1package Business::EDI::CodeList::RateOrTariffClassDescriptionCode;
2
3use base 'Business::EDI::CodeList';
4my $VERSION     = 0.02;
5sub list_number {5243;}
6my $usage       = 'C';
7
8# 5243  Rate or tariff class description code                   [C]
9# Desc: Code specifying an applicable rate or tariff class.
10# Repr: an..9
11
12my %code_hash = (
13'A' => [ 'Senior person rate',
14    'Rate class applies to senior persons.' ],
15'B' => [ 'Basic',
16    'Code specifying that the rate or tariff is a basic one.' ],
17'C' => [ 'Specific commodity rate',
18    'Code specifying the specific commodity rate.' ],
19'D' => [ 'Teenager rate',
20    'Rate class applies to teenagers.' ],
21'E' => [ 'Child rate',
22    'Rate class applies to children.' ],
23'F' => [ 'Adult rate',
24    'Rate class applies to adults.' ],
25'K' => [ 'Rate per kilogram',
26    'Code specifying the rate per kilogram.' ],
27'M' => [ 'Minimum charge rate',
28    'Code specifying the minimum charge rate.' ],
29'N' => [ 'Normal rate',
30    'Code specifying the normal rate.' ],
31'Q' => [ 'Quantity rate',
32    'Code specifying the quantity rate.' ],
33'R' => [ 'Class rate (Reduction on normal rate)',
34    'Code specifying the reduction on normal rate.' ],
35'S' => [ 'Class rate (Surcharge on normal rate)',
36    'Code specifying the surcharge on normal rate.' ],
37);
38sub get_codes { return \%code_hash; }
39
401;
41