1package Business::EDI::CodeList::CalculationSequenceCode; 2 3use base 'Business::EDI::CodeList'; 4my $VERSION = 0.02; 5sub list_number {1227;} 6my $usage = 'B'; 7 8# 1227 Calculation sequence code [B] 9# Desc: Code specifying a calculation sequence. 10# Repr: an..3 11 12my %code_hash = ( 13'1' => [ 'First step of calculation', 14 'Code specifying the first step of a calculation.' ], 15'2' => [ 'Second step of calculation', 16 'Code specifying the second step of a calculation.' ], 17'3' => [ 'Third step of calculation', 18 'Code specifying the third step of a calculation.' ], 19'4' => [ 'Fourth step of calculation', 20 'Code specifying the fourth step of a calculation.' ], 21'5' => [ 'Fifth step of calculation', 22 'Code specifying the fifth step of a calculation.' ], 23'6' => [ 'Sixth step of calculation', 24 'Code specifying the sixth step of a calculation.' ], 25'7' => [ 'Seventh step of calculation', 26 'Code specifying the seventh step of a calculation.' ], 27'8' => [ 'Eighth step of calculation', 28 'Code specifying the eighth step of a calculation.' ], 29'9' => [ 'Ninth step of calculation', 30 'Code specifying the ninth step of a calculation.' ], 31); 32sub get_codes { return \%code_hash; } 33 341; 35