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