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