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