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