1package Business::EDI::CodeList::RateTypeCodeQualifier; 2 3use base 'Business::EDI::CodeList'; 4my $VERSION = 0.02; 5sub list_number {5419;} 6my $usage = 'B'; 7 8# 5419 Rate type code qualifier [B] 9# Desc: Code qualifying the type of rate. 10# Repr: an..3 11 12my %code_hash = ( 13'1' => [ 'Allowance rate', 14 'Code specifying the allowance rate.' ], 15'2' => [ 'Charge rate', 16 'Code specifying the charge rate.' ], 17'3' => [ 'Actual versus calculated price difference rate', 18 'Difference rate of actual price and calculated price.' ], 19'4' => [ 'Standard labour rate', 20 'Labour rate for a normal working day. Synonym: Straight time.' ], 21'5' => [ 'Overtime labour rate', 22 'Labour rate for overtime.' ], 23'6' => [ 'Premium labour rate', 24 'Labour rate for premium time.' ], 25'7' => [ 'Calculation rate', 26 'To identify a rate which is to be applied in a calculation.' ], 27'8' => [ 'Coefficient', 28 'The coefficient which is to be used as a multiplier.' ], 29'9' => [ 'Indemnity rate', 30 'To specify the rate of an indemnity.' ], 31'10' => [ 'Guarantee reserved calculation rate', 32 'To specify the rate that has been used to calculate the monetary amount reserved as a guarantee.' ], 33'11' => [ 'Waiting time indemnity rate', 34 'To specify the rate of an indemnity for waiting.' ], 35'ZZZ' => [ 'Mutually defined', 36 'The rate type is mutually agreed by the interchanging parties.' ], 37); 38sub get_codes { return \%code_hash; } 39 401; 41