File Coverage

blib/lib/Business/EDI/CodeList/MessageType.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::MessageType;
2              
3 7     7   37 use base 'Business::EDI::CodeList';
  7         15  
  7         9929  
4             my $VERSION = 0.02;
5 19     19 0 66 sub list_number {return "0065";}
6             my $usage = 'B';
7              
8             # * 0065 Message type
9             # Desc: Code identifying a type of message and assigned by its
10             # controlling agency.
11             # Repr: an..6
12              
13             my %code_hash = (
14             'APERAK' => [ 'Application error and acknowledgement message',
15             'A code to identify the application error and acknowledgement message.' ],
16             'AUTACK' => [ 'Secure authentication and acknowledgement message',
17             'A code to identify the secure authentication and acknowledgement message.' ],
18             'AUTHOR' => [ 'Authorization message',
19             'A code to identify the authorization message.' ],
20             'AVLREQ' => [ 'Availability request - interactive message',
21             'A code to identify the availability request - interactive message.' ],
22             'AVLRSP' => [ 'Availability response - interactive message',
23             'A code to identify the availability response - interactive message.' ],
24             'BALANC' => [ 'Balance message',
25             'A code to identify the balance message.' ],
26             'BANSTA' => [ 'Banking status message',
27             'A code to identify the banking status message.' ],
28             'BAPLIE' => [ 'Bayplan/stowage plan occupied and empty locations message',
29             'A code to identify the bayplan/stowage plan occupied and empty locations message.' ],
30             'BERMAN' => [ 'Berth management message',
31             'A code to identify the berth management message.' ],
32             'BMISRM' => [ 'Bulk marine inspection summary report message',
33             'A code to identify the bulk marine inspection summary report message.' ],
34             'BOPBNK' => [ 'Bank transactions and portfolio transactions report message',
35             'A code to identify the bank transactions and portfolio transactions report message.' ],
36             'BOPCUS' => [ 'Balance of payment customer transaction report message',
37             'A code to identify the balance of payment customer transaction report message.' ],
38             'BOPDIR' => [ 'Direct balance of payment declaration message',
39             'A code to identify the direct balance of payment declaration message.' ],
40             'BOPINF' => [ 'Balance of payment information from customer message',
41             'A code to identify the balance of payment information from customer message.' ],
42             'BUSCRD' => [ 'Business credit report message',
43             'A code to identify the business credit report message.' ],
44             'CALINF' => [ 'Vessel call information message',
45             'A code to identify the vessel call information message.' ],
46             'CASINT' => [ 'Request for legal administration action in civil proceedings',
47             ],
48             'A' => [ 'code to identify the request for legal administration',
49             'action in civil proceedings message.' ],
50             'CASRES' => [ 'Legal administration response in civil proceedings message',
51             'A code to identify the legal administration response in civil proceedings message.' ],
52             'CHACCO' => [ 'Chart of accounts message',
53             'A code to identify the chart of accounts message.' ],
54             'CLASET' => [ 'Classification information set message',
55             'A code to identify the classification information set message.' ],
56             'CNTCND' => [ 'Contractual conditions message',
57             'A code to identify the contractual conditions message.' ],
58             'COACSU' => [ 'Commercial account summary message',
59             'A code to identify the commercial account summary message.' ],
60             'COARRI' => [ 'Container discharge/loading report message',
61             'A code to identify the container discharge/loading report message.' ],
62             'CODECO' => [ 'Container gate-in/gate-out report message',
63             'A code to identify the container gate-in/gate-out report message.' ],
64             'CODENO' => [ 'Permit expiration/clearance ready notice message',
65             'A code to identify the permit expiration/clearance ready notice message.' ],
66             'COEDOR' => [ 'Container stock report message',
67             'A code to identify the container stock report message.' ],
68             'COHAOR' => [ 'Container special handling order message',
69             'A code to identify the container special handling order message.' ],
70             'COLREQ' => [ 'Request for a documentary collection message',
71             'A code to identify the request for a documentary collection message.' ],
72             'COMDIS' => [ 'Commercial dispute message',
73             'A code to identify the commercial dispute message.' ],
74             'CONAPW' => [ 'Advice on pending works message',
75             'A code to identify the advice on pending works message.' ],
76             'CONDPV' => [ 'Direct payment valuation message',
77             'A code to identify the direct payment valuation message.' ],
78             'CONDRA' => [ 'Drawing administration message',
79             'A code to identify the drawing administration message.' ],
80             'CONDRO' => [ 'Drawing organisation message',
81             'A code to identify the drawing organisation message.' ],
82             'CONEST' => [ 'Establishment of contract message',
83             'A code to identify the establishment of contract message.' ],
84             'CONITT' => [ 'Invitation to tender message',
85             'A code to identify the invitation to tender message.' ],
86             'CONPVA' => [ 'Payment valuation message',
87             'A code to identify the payment valuation message.' ],
88             'CONQVA' => [ 'Quantity valuation message',
89             'A code to identify the quantity valuation message.' ],
90             'CONRPW' => [ 'Response of pending works message',
91             'A code to identify the response of pending works message.' ],
92             'CONTEN' => [ 'Tender message',
93             'A code to identify the tender message.' ],
94             'CONTRL' => [ 'Syntax and service report message',
95             'A code to identify the syntax and service report message.' ],
96             'CONWQD' => [ 'Work item quantity determination message',
97             'A code to identify the work item quantity determination message.' ],
98             'COPARN' => [ 'Container announcement message',
99             'A code to identify the container announcement message.' ],
100             'COPAYM' => [ 'Contributions for payment',
101             'A code to identify the contributions for payment.' ],
102             'COPINO' => [ 'Container pre-notification message',
103             'A code to identify the container pre-notification message.' ],
104             'COPRAR' => [ 'Container discharge/loading order message',
105             'A code to identify the container discharge/loading order message.' ],
106             'COREOR' => [ 'Container release order message',
107             'A code to identify the container release order message.' ],
108             'COSTCO' => [ 'Container stuffing/stripping confirmation message',
109             'A code to identify the container stuffing/stripping confirmation message.' ],
110             'COSTOR' => [ 'Container stuffing/stripping order message',
111             'A code to identify the container stuffing/stripping order message.' ],
112             'CREADV' => [ 'Credit advice message',
113             'A code to identify the credit advice message.' ],
114             'CREEXT' => [ 'Extended credit advice message',
115             'A code to identify the extended credit advice message.' ],
116             'CREMUL' => [ 'Multiple credit advice message',
117             'A code to identify the multiple credit advice message.' ],
118             'CUSCAR' => [ 'Customs cargo report message',
119             'A code to identify the customs cargo report message.' ],
120             'CUSDEC' => [ 'Customs declaration message',
121             'A code to identify the customs declaration message.' ],
122             'CUSEXP' => [ 'Customs express consignment declaration message',
123             'A code to identify the customs express consignment declaration message.' ],
124             'CUSPED' => [ 'Periodic customs declaration message',
125             'A code to identify the periodic customs declaration message.' ],
126             'CUSREP' => [ 'Customs conveyance report message',
127             'A code to identify the customs conveyance report message.' ],
128             'CUSRES' => [ 'Customs response message',
129             'A code to identify the customs response message.' ],
130             'DEBADV' => [ 'Debit advice message',
131             'A code to identify the debit advice message.' ],
132             'DEBMUL' => [ 'Multiple debit advice message',
133             'A code to identify the multiple debit advice message.' ],
134             'DEBREC' => [ 'Debts recovery message',
135             'A code to identify the debts recovery message.' ],
136             'DELFOR' => [ 'Delivery schedule message',
137             'A code to identify the delivery schedule message.' ],
138             'DELJIT' => [ 'Delivery just in time message',
139             'A code to identify the delivery just in time message.' ],
140             'DESADV' => [ 'Despatch advice message',
141             'A code to identify the despatch advice message.' ],
142             'DESTIM' => [ 'Equipment damage and repair estimate message',
143             'A code to identify the equipment damage and repair estimate message.' ],
144             'DGRECA' => [ 'Dangerous goods recapitulation message',
145             'A code to identify the dangerous goods recapitulation message.' ],
146             'DIRDEB' => [ 'Direct debit message',
147             'A code to identify the direct debit message.' ],
148             'DIRDEF' => [ 'Directory definition message',
149             'A code to identify the directory definition message.' ],
150             'DMRDEF' => [ 'Data maintenance request definition message',
151             'A code to identify the data maintenance request definition message.' ],
152             'DMSTAT' => [ 'Data maintenance status report/query message',
153             'A code to identify the data maintenance status report/query message.' ],
154             'DOCADV' => [ 'Documentary credit advice message',
155             'A code to identify the documentary credit advice message.' ],
156             'DOCAMA' => [ 'Advice of an amendment of a documentary credit message',
157             'A code to identify the advice of an amendment of a documentary credit message.' ],
158             'DOCAMI' => [ 'Documentary credit amendment information message',
159             'A code to identify the documentary credit amendment information message.' ],
160             'DOCAMR' => [ 'Request for an amendment of a documentary credit message',
161             'A code to identify the request for an amendment of a documentary credit message.' ],
162             'DOCAPP' => [ 'Documentary credit application message',
163             'A code to identify the documentary credit application message.' ],
164             'DOCARE' => [ 'Response to an amendment of a documentary credit message',
165             'A code to identify the response to an amendment of a documentary credit message.' ],
166             'DOCINF' => [ 'Documentary credit issuance information message',
167             'A code to identify the documentary credit issuance information message.' ],
168             'ENTREC' => [ 'Accounting entries message',
169             'A code to identify the accounting entries message.' ],
170             'FINCAN' => [ 'Financial cancellation message',
171             'A code to identify the financial cancellation message.' ],
172             'FINPAY' => [ 'Multiple interbank funds transfer message',
173             'A code to identify the multiple interbank funds transfer message.' ],
174             'FINSTA' => [ 'Financial statement of an account message',
175             'A code to identify the financial statement of an account message.' ],
176             'GENRAL' => [ 'General purpose message',
177             'A code to identify the general purpose message.' ],
178             'GESMES' => [ 'Generic statistical message',
179             'A code to identify the generic statistical message.' ],
180             'GOVCBR' => [ 'Government cross border regulatory message',
181             'A code to identify the government cross border regulatory message.' ],
182             'HANMOV' => [ 'Cargo/goods handling and movement message',
183             'A code to identify the cargo/goods handling and movement message.' ],
184             'ICASRP' => [ 'Insurance claim assessment and reporting message',
185             'A code to identify the insurance claim assessment and reporting message.' ],
186             'ICSOLI' => [ 'Insurance claim solicitor’s instruction message',
187             'A code to identify the insurance claim solicitor’s instruction message.' ],
188             'IFCSUM' => [ 'Forwarding and consolidation summary message',
189             'A code to identify the forwarding and consolidation summary message.' ],
190             'IFTCCA' => [ 'Forwarding and transport shipment charge calculation message',
191             'A code to identify the forwarding and transport shipment charge calculation message.' ],
192             'IFTDGN' => [ 'Dangerous goods notification message',
193             'A code to identify the dangerous goods notification message.' ],
194             'IFTFCC' => [ 'International transport freight costs and other charges',
195             ],
196             'A' => [ 'code to identify the international transport freight',
197             'costs and other charges message.' ],
198             'IFTICL' => [ 'Cargo insurance claims message',
199             'A code to identify the cargo insurance claims message.' ],
200             'IFTMAN' => [ 'Arrival notice message',
201             'A code to identify the arrival notice message.' ],
202             'IFTMBC' => [ 'Booking confirmation message',
203             'A code to identify the booking confirmation message.' ],
204             'IFTMBF' => [ 'Firm booking message',
205             'A code to identify the firm booking message.' ],
206             'IFTMBP' => [ 'Provisional booking message',
207             'A code to identify the provisional booking message.' ],
208             'IFTMCA' => [ 'Consignment advice message',
209             'A code to identify the consignment advice message.' ],
210             'IFTMCS' => [ 'Instruction contract status message',
211             'A code to identify the instruction contract status message.' ],
212             'IFTMIN' => [ 'Instruction message',
213             'A code to identify the instruction message.' ],
214             'IFTRIN' => [ 'Forwarding and transport rate information message',
215             'A code to identify the forwarding and transport rate information message.' ],
216             'IFTSAI' => [ 'Forwarding and transport schedule and availability',
217             ],
218             'information' => [ 'message',
219             'A code to identify the forwarding and transport schedule and availability information message.' ],
220             'IFTSTA' => [ 'International multimodal status report message',
221             'A code to identify the international multimodal status report message.' ],
222             'IFTSTQ' => [ 'International multimodal status request message',
223             'A code to identify the international multimodal status request message.' ],
224             'IHCEBI' => [ 'Interactive health insurance eligibility and benefits',
225             ],
226             'inquiry' => [ 'and response',
227             'A code to identify the interactive health insurance eligibility and benefits inquiry and response.' ],
228             'IHCLME' => [ 'Health care claim or encounter request and response -',
229             ],
230             'interactive' => [ 'message',
231             'A code to identify the health care claim or encounter request and response - interactive message.' ],
232             'IMPDEF' => [ 'EDI implementation guide definition message',
233             'A code to identify the EDI implementation guide definition message.' ],
234             'INFCON' => [ 'Infrastructure condition message',
235             'A code to identify the infrastructure condition message.' ],
236             'INFENT' => [ 'Enterprise accounting information message',
237             'A code to identify the enterprise accounting information message.' ],
238             'INSDES' => [ 'Instruction to despatch message',
239             'A code to identify the instruction to despatch message.' ],
240             'INSPRE' => [ 'Insurance premium message',
241             'A code to identify the insurance premium message.' ],
242             'INSREQ' => [ 'Inspection request message',
243             'A code to identify the inspection request message.' ],
244             'INSRPT' => [ 'Inspection report message',
245             'A code to identify the inspection report message.' ],
246             'INVOIC' => [ 'Invoice message',
247             'A code to identify the invoice message.' ],
248             'INVRPT' => [ 'Inventory report message',
249             'A code to identify the inventory report message.' ],
250             'IPPOAD' => [ 'Insurance policy administration message',
251             'A code to identify the insurance policy administration message.' ],
252             'IPPOMO' => [ 'Motor insurance policy message',
253             'A code to identify the motor insurance policy message.' ],
254             'ISENDS' => [ 'Intermediary system enablement or disablement message',
255             'A code to identify the intermediary system enablement or disablement message.' ],
256             'ITRRPT' => [ 'In transit report detail message',
257             'A code to identify the in transit report detail message.' ],
258             'JAPRES' => [ 'Job application result message',
259             'A code to identify the job application result message.' ],
260             'JINFDE' => [ 'Job information demand message',
261             'A code to identify the job information demand message.' ],
262             'JOBAPP' => [ 'Job application proposal message',
263             'A code to identify the job application proposal message.' ],
264             'JOBCON' => [ 'Job order confirmation message',
265             'A code to identify the job order confirmation message.' ],
266             'JOBMOD' => [ 'Job order modification message',
267             'A code to identify the job order modification message.' ],
268             'JOBOFF' => [ 'Job order message',
269             'A code to identify the job order message.' ],
270             'JUPREQ' => [ 'Justified payment request message',
271             'A code to identify the justified payment request message.' ],
272             'KEYMAN' => [ 'Security key and certificate management message',
273             'A code to identify the security key and certificate management message.' ],
274             'LEDGER' => [ 'Ledger message',
275             'A code to identify the ledger message.' ],
276             'LREACT' => [ 'Life reinsurance activity message',
277             'A code to identify the life reinsurance activity message.' ],
278             'LRECLM' => [ 'Life reinsurance claims message',
279             'A code to identify the life reinsurance claims message.' ],
280             'MEDPID' => [ 'Person identification message',
281             'A code to identify the person identification message.' ],
282             'MEDPRE' => [ 'Medical prescription message',
283             'A code to identify the medical prescription message.' ],
284             'MEDREQ' => [ 'Medical service request message',
285             'A code to identify the medical service request message.' ],
286             'MEDRPT' => [ 'Medical service report message',
287             'A code to identify the medical service report message.' ],
288             'MEDRUC' => [ 'Medical resource usage and cost message',
289             'A code to identify the medical resource usage and cost message.' ],
290             'MEQPOS' => [ 'Means of transport and equipment position message',
291             'A code to identify the means of transport and equipment position message.' ],
292             'MOVINS' => [ 'Stowage instruction message',
293             'A code to identify the stowage instruction message.' ],
294             'MSCONS' => [ 'Metered services consumption report message',
295             'A code to identify the metered services consumption report message.' ],
296             'ORDCHG' => [ 'Purchase order change request message',
297             'A code to identify the purchase order change request message.' ],
298             'ORDERS' => [ 'Purchase order message',
299             'A code to identify the purchase order message.' ],
300             'ORDRSP' => [ 'Purchase order response message',
301             'A code to identify the purchase order response message.' ],
302             'OSTENQ' => [ 'Order status enquiry message',
303             'A code to identify the order status enquiry message.' ],
304             'OSTRPT' => [ 'Order status report message',
305             'A code to identify the order status report message.' ],
306             'PARTIN' => [ 'Party information message',
307             'A code to identify the party information message.' ],
308             'PASREQ' => [ 'Travel, tourism and leisure product application status',
309             ],
310             'request' => [ '- interactive message',
311             'A code to identify the travel, tourism and leisure product application status request - interactive message.' ],
312             'PASRSP' => [ 'Travel, tourism and leisure product application status',
313             ],
314             'response' => [ '- interactive message',
315             'A code to identify the travel, tourism and leisure product application status response - interactive message.' ],
316             'PAXLST' => [ 'Passenger list message',
317             'A code to identify the passenger list message.' ],
318             'PAYDUC' => [ 'Payroll deductions advice message',
319             'A code to identify the payroll deductions advice message.' ],
320             'PAYEXT' => [ 'Extended payment order message',
321             'A code to identify the extended payment order message.' ],
322             'PAYMUL' => [ 'Multiple payment order message',
323             'A code to identify the multiple payment order message.' ],
324             'PAYORD' => [ 'Payment order message',
325             'A code to identify the payment order message.' ],
326             'PRICAT' => [ 'Price/sales catalogue message',
327             'A code to identify the price/sales catalogue message.' ],
328             'PRIHIS' => [ 'Pricing history message',
329             'A code to identify the pricing history message.' ],
330             'PROCST' => [ 'Project cost reporting message',
331             'A code to identify the project cost reporting message.' ],
332             'PRODAT' => [ 'Product data message',
333             'A code to identify the product data message.' ],
334             'PRODEX' => [ 'Product exchange reconciliation message',
335             'A code to identify the product exchange reconciliation message.' ],
336             'PROINQ' => [ 'Product inquiry message',
337             'A code to identify the product inquiry message.' ],
338             'PROSRV' => [ 'Product service message',
339             'A code to identify the product service message.' ],
340             'PROTAP' => [ 'Project tasks planning message',
341             'A code to identify the project tasks planning message.' ],
342             'PRPAID' => [ 'Insurance premium payment message',
343             'A code to identify the insurance premium payment message.' ],
344             'QALITY' => [ 'Quality data message',
345             'A code to identify the quality data message.' ],
346             'QUOTES' => [ 'Quote message',
347             'A code to identify the quote message.' ],
348             'RDRMES' => [ 'Raw data reporting message',
349             'A code to identify the raw data reporting message.' ],
350             'REBORD' => [ 'Reinsurance bordereau message',
351             'A code to identify the reinsurance bordereau message.' ],
352             'RECADV' => [ 'Receiving advice message',
353             'A code to identify the receiving advice message.' ],
354             'RECALC' => [ 'Reinsurance calculation message',
355             'A code to identify the reinsurance calculation message.' ],
356             'RECECO' => [ 'Credit risk cover message',
357             'A code to identify the credit risk cover message.' ],
358             'RECLAM' => [ 'Reinsurance claims message',
359             'A code to identify the reinsurance claims message.' ],
360             'RECORD' => [ 'Reinsurance core data message',
361             'A code to identify the reinsurance core data message.' ],
362             'REGENT' => [ 'Registration of enterprise message',
363             'A code to identify the registration of enterprise message.' ],
364             'RELIST' => [ 'Reinsured objects list message',
365             'A code to identify the reinsured objects list message.' ],
366             'REMADV' => [ 'Remittance advice message',
367             'A code to identify the remittance advice message.' ],
368             'REPREM' => [ 'Reinsurance premium message',
369             'A code to identify the reinsurance premium message.' ],
370             'REQDOC' => [ 'Request for document message',
371             'A code to identify the request for document message.' ],
372             'REQOTE' => [ 'Request for quote message',
373             'A code to identify the request for quote message.' ],
374             'RESETT' => [ 'Reinsurance settlement message',
375             'A code to identify the reinsurance settlement message.' ],
376             'RESMSG' => [ 'Reservation message',
377             'A code to identify the reservation message.' ],
378             'RESREQ' => [ 'Reservation request - interactive message',
379             'A code to identify the reservation request - interactive message.' ],
380             'RESRSP' => [ 'Reservation response - interactive message',
381             'A code to identify the reservation response - interactive message.' ],
382             'RETACC' => [ 'Reinsurance technical account message',
383             'A code to identify the reinsurance technical account message.' ],
384             'RETANN' => [ 'Announcement for returns message',
385             'A code to identify the announcement for returns message.' ],
386             'RETINS' => [ 'Instruction for returns message',
387             'A code to identify the instruction for returns message.' ],
388             'RPCALL' => [ 'Repair call message',
389             'A code to identify the repair call message.' ],
390             'SAFHAZ' => [ 'Safety and hazard data message',
391             'A code to identify the safety and hazard data message.' ],
392             'SANCRT' => [ 'International movement of goods governmental regulatory',
393             ],
394             'A' => [ 'code to identify the international movement of goods',
395             'governmental regulatory message.' ],
396             'SKDREQ' => [ 'Schedule request - interactive message',
397             'A code to identify the schedule request - interactive message.' ],
398             'SKDUPD' => [ 'Schedule update - interactive message',
399             'A code to identify the schedule update - interactive message.' ],
400             'SLSFCT' => [ 'Sales forecast message',
401             'A code to identify the sales forecast message.' ],
402             'SLSRPT' => [ 'Sales data report message',
403             'A code to identify the sales data report message.' ],
404             'SOCADE' => [ 'Social administration message',
405             'A code to identify the social administration message.' ],
406             'SSIMOD' => [ 'Modification of identity details message',
407             'A code to identify the modification of identity details message.' ],
408             'SSRECH' => [ "Worker's insurance history message",
409             "A code to identify the worker's insurance history message." ],
410             'SSREGW' => [ 'Notification of registration of a worker message',
411             'A code to identify the notification of registration of a worker message.' ],
412             'STATAC' => [ 'Statement of account message',
413             'A code to identify the statement of account message.' ],
414             'STLRPT' => [ 'Settlement transaction reporting message',
415             'A code to identify the settlement transaction reporting message.' ],
416             'SUPCOT' => [ 'Superannuation contributions advice message',
417             'A code to identify the superannuation contributions advice message.' ],
418             'SUPMAN' => [ 'Superannuation maintenance message',
419             'A code to identify the superannuation maintenance message.' ],
420             'SUPRES' => [ 'Supplier response message',
421             'A code to identify the supplier response message.' ],
422             'TANSTA' => [ 'Tank status report message',
423             'A code to identify the tank status report message.' ],
424             'TAXCON' => [ 'Tax control message',
425             'A code to identify the tax control message.' ],
426             'TIQREQ' => [ 'Travel, tourism and leisure information inquiry request -',
427             ],
428             'interactive' => [ 'message',
429             'A code to identify the travel, tourism and leisure information inquiry request - interactive message.' ],
430             'TIQRSP' => [ 'Travel, tourism and leisure information inquiry response -',
431             ],
432             'interactive' => [ 'message',
433             'A code to identify the travel, tourism and leisure information inquiry response - interactive message.' ],
434             'TPFREP' => [ 'Terminal performance message',
435             'A code to identify the terminal performance message.' ],
436             'TSDUPD' => [ 'Timetable static data update - interactive message',
437             'A code to identify the timetable static data update - interactive message.' ],
438             'TUPREQ' => [ 'Travel, tourism and leisure data update request -',
439             ],
440             'interactive' => [ 'message',
441             'A code to identify the travel, tourism and leisure data update request - interactive message.' ],
442             'TUPRSP' => [ 'Travel, tourism and leisure data update response -',
443             ],
444             'interactive' => [ 'message',
445             'A code to identify the travel, tourism and leisure data update response - interactive message.' ],
446             'UTILMD' => [ 'Utilities master data message',
447             'A code to identify the utilities master data message.' ],
448             'UTILTS' => [ 'Utilities time series message',
449             'A code to identify the utilities time series message.' ],
450             'VATDEC' => [ 'Value added tax message',
451             'A code to identify the value added tax message.' ],
452             'VESDEP' => [ 'Vessel departure message',
453             'A code to identify the vessel departure message.' ],
454             'WASDIS' => [ 'Waste disposal information message',
455             'A code to identify the waste disposal information message.' ],
456             'WKGRDC' => [ 'Work grant decision message',
457             'A code to identify the work grant decision message.' ],
458             'WKGRRE' => [ 'Work grant request message',
459             'A code to identify the work grant request message.' ],
460             );
461 19     19 0 58 sub get_codes { return \%code_hash; }
462              
463             1;