File Coverage

blib/lib/Business/EDI/CodeList/ControllingAgencyCoded.pm
Criterion Covered Total %
statement 5 5 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 2 0.0
total 8 10 80.0


line stmt bran cond sub pod time code
1             package Business::EDI::CodeList::ControllingAgencyCoded;
2              
3 7     7   39 use base 'Business::EDI::CodeList';
  7         14  
  7         4440  
4             my $VERSION = 0.02;
5 19     19 0 77 sub list_number {return "0051";}
6             my $usage = 'B';
7              
8             # 0051 Controlling agency, coded
9             # Desc: Code identifying a controlling agency.
10             # Repr: an..3
11              
12             my %code_hash = (
13             'AA' => [ 'EDICONSTRUCT',
14             'French construction project.' ],
15             'AB' => [ 'DIN (Deutsches Institut fuer Normung)',
16             'German standardization institute.' ],
17             'AC' => [ 'ICS (International Chamber of Shipping)',
18             'The International Chamber of Shipping.' ],
19             'AD' => [ 'UPU (Union Postale Universelle)',
20             'Universal Postal Union.' ],
21             'AE' => [ 'United Kingdom ANA (Article Numbering Association)',
22             'Identifies the Article Numbering Association of the United Kingdom.' ],
23             'AF' => [ 'ANSI ASC X12 (American National Standard Institute',
24             ],
25             'Accredited' => [ 'Standards Committee X12)',
26             'Identifies the United States electronic data interchange standards body.' ],
27             'AG' => [ 'US DoD (United States Department of Defense)',
28             'The United States Department of Defense is the entity controlling the message specification.' ],
29             'AH' => [ 'US Federal Government',
30             'The United States Federal Government is the entity controlling the message specification.' ],
31             'AI' => [ 'EDIFICAS',
32             'European EDI association for financial, informational, cost, accounting, auditing and social areas.' ],
33             'CC' => [ 'CCC (Customs Co-operation Council)',
34             'The Customs Co-operation Council.' ],
35             'CE' => [ "CEFIC (Conseil Europeen des Federations de l'Industrie",
36             ],
37             'EDI' => [ 'project for chemical industry.',
38             ],
39             'EC' => [ 'EDICON',
40             'UK Construction project.' ],
41             'ED' => [ 'EDIFICE (Electronic industries project)',
42             'EDI Forum for companies with Interest in Computing and Electronics (EDI project for EDP/ADP sector).' ],
43             'EE' => [ 'EC + EFTA (European Communities and European Free Trade',
44             ],
45             'The' => [ 'European Communities and the European Free Trade',
46             'Association.' ],
47             'EN' => [ 'GS1',
48             'Partner identification code assigned by GS1, an international organization of GS1 Member Organizations that manages the GS1 System.' ],
49             'ER' => [ 'UIC (International Union of railways)',
50             'European railways.' ],
51             'EU' => [ 'European Union',
52             'The European Union.' ],
53             'EW' => [ 'UN/EDIFACT Working Group (EWG)',
54             'United Nations working group responsible for UN/EDIFACT (United Nations, Electronic Data Interchange for Administration, Commerce and Transport).' ],
55             'EX' => [ 'IECC (International Express Carriers Conference)',
56             'The International Express Carriers Conference.' ],
57             'IA' => [ 'IATA (International Air Transport Association)',
58             'The International Air Transport Association.' ],
59             'KE' => [ 'KEC (Korea EDIFACT Committee)',
60             'The Korea EDIFACT Committee.' ],
61             'LI' => [ 'LIMNET',
62             'UK Insurance project.' ],
63             'OD' => [ 'ODETTE (Organization for Data Exchange through Tele-',
64             ],
65             'Transmission' => [ 'in Europe)',
66             'European automotive industry project.' ],
67             'RI' => [ 'RINET (Reinsurance and Insurance Network)',
68             'The Reinsurance and Insurance Network.' ],
69             'RT' => [ "UN/ECE/TRADE/WP.4/GE.1/EDIFACT Rapporteurs' Teams",
70             "United Nations Economic UN Economic Commission for Europe (UN/ECE), Committee on the development of trade (TRADE), Working Party on facilitation of international trade procedures (WP.4), Group of Experts on data elements and automatic data interchange (GE.1), EDIFACT Rapporteurs' Teams." ],
71             'UN' => [ 'UN/CEFACT',
72             'United Nations Centre for Trade Facilitation and Electronic Business (UN/CEFACT).' ],
73             );
74 19     19 0 60 sub get_codes { return \%code_hash; }
75              
76             1;