1package Business::EDI::CodeList::ClinicalInterventionDescriptionCode; 2 3use base 'Business::EDI::CodeList'; 4my $VERSION = 0.02; 5sub list_number {9437;} 6my $usage = 'B'; 7 8# 9437 Clinical intervention description code [B] 9# Desc: Code specifying a clinical intervention. 10# Repr: an..17 11 12my %code_hash = ( 13'1' => [ 'Full disability certificate issue', 14 'A clinical intervention to certify that a person is completely unable to work for medical reasons.' ], 15'2' => [ 'Partial disability certificate issue', 16 'A clinical intervention to certify that a person is partially unable to work for medical reasons.' ], 17); 18sub get_codes { return \%code_hash; } 19 201; 21