1package Business::EDI::CodeList::TestAdministrationMethodCode; 2 3use base 'Business::EDI::CodeList'; 4my $VERSION = 0.02; 5sub list_number {4419;} 6my $usage = 'B'; 7 8# 4419 Test administration method code [B] 9# Desc: Code specifying the method of the administration of a 10# test. 11# Repr: an..3 12 13my %code_hash = ( 14'1' => [ 'Oral', 15 'The test was conducted verbally.' ], 16'2' => [ 'Dermal', 17 'The test is administrated via the skin.' ], 18'3' => [ 'Inhalation', 19 'The test is administrated via inhalation.' ], 20'ZZZ' => [ 'Mutually defined', 21 'A code assigned within a code list to be used on an interim basis and as defined among trading partners until a precise code can be assigned to the code list.' ], 22); 23sub get_codes { return \%code_hash; } 24 251; 26