1package Business::EDI::CodeList::DiagnosisTypeCode;
2
3use base 'Business::EDI::CodeList';
4my $VERSION     = 0.02;
5sub list_number {9623;}
6my $usage       = 'I';
7
8# 9623  Diagnosis type code                                     [I]
9# Desc: Code specifying the type of diagnosis.
10# Repr: an..3
11
12my %code_hash = (
13'1' => [ 'Admitting diagnosis',
14    'The type of diagnosis upon admitting.' ],
15'2' => [ 'Primary diagnosis',
16    'The primary illness or condition.' ],
17'3' => [ 'Secondary diagnosis',
18    'The secondary illness or condition.' ],
19);
20sub get_codes { return \%code_hash; }
21
221;
23