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