1package Business::EDI::CodeList::DosageAdministrationCodeQualifier;
2
3use base 'Business::EDI::CodeList';
4my $VERSION     = 0.02;
5sub list_number {6085;}
6my $usage       = 'B';
7
8# 6085  Dosage administration code qualifier                    [B]
9# Desc: Code qualifying the administration of a dosage.
10# Repr: an..3
11
12my %code_hash = (
13'1' => [ 'Route of administration',
14    'Route of administration of item.' ],
15'2' => [ 'Physical form',
16    'Physical form of medicinal products.' ],
17);
18sub get_codes { return \%code_hash; }
19
201;
21