1package Business::EDI::CodeList::AgreementTypeCodeQualifier;
2
3use base 'Business::EDI::CodeList';
4my $VERSION     = 0.02;
5sub list_number {7431;}
6my $usage       = 'B';
7
8# 7431  Agreement type code qualifier                           [B]
9# Desc: Code qualifying the type of agreement.
10# Repr: an..3
11
12my %code_hash = (
13'1' => [ 'Type of participation',
14    'The subject of the agreement is the type of participation.' ],
15'2' => [ 'Credit cover agreement',
16    'Agreement on protection against risk of credit losses on sales to buyers.' ],
17'3' => [ "Cedent's treaty identifier",
18    'Identifies the treaty as assigned by the cedent.' ],
19'4' => [ "Reinsurer's treaty identifier",
20    'Identifies the treaty as assigned by the reinsurer.' ],
21'5' => [ 'Type of contract letting',
22    'The type of agreement needed to specify construction works tendered out as public or restricted.' ],
23'6' => [ 'Contract breakdown type',
24    'The type of contract breakdown.' ],
25'7' => [ 'Contractor responsibility and liability structure',
26    'The way the contractor(s) are structured to perform a contract for the purpose of responsibility and liability.' ],
27'8' => [ 'Health insurance cover agreement',
28    'Agreement on health insurance coverage.' ],
29'9' => [ 'Contract',
30    'The type of agreement is a contract.' ],
31'10' => [ 'Social security cover agreement',
32    'Agreement on social security cover.' ],
33'11' => [ 'Grid connection contract',
34    'Contract for connection to a grid.' ],
35'12' => [ 'Power supply contract',
36    'Contract for supply of power.' ],
37);
38sub get_codes { return \%code_hash; }
39
401;
41