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