File Coverage

blib/lib/Business/EDI/CodeList/ResponseTypeCode.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::ResponseTypeCode;
2              
3 11     11   61 use base 'Business::EDI::CodeList';
  11         21  
  11         2953  
4             my $VERSION = 0.02;
5 34     34 0 170 sub list_number {4343;}
6             my $usage = 'C';
7              
8             # 4343 Response type code [C]
9             # Desc: Code specifying the type of acknowledgment required or
10             # transmitted.
11             # Repr: an..3
12              
13             my %code_hash = (
14             'AA' => [ 'Debit advice',
15             'Receiver of the payment message needs to return a debit advice in response to the payment message.' ],
16             'AB' => [ 'Message acknowledgement',
17             'Indicates that an acknowledgement relating to receipt of message is required.' ],
18             'AC' => [ 'Acknowledge - with detail and change',
19             'Acknowledge complete including changes.' ],
20             'AD' => [ 'Acknowledge - with detail, no change',
21             'Acknowledge complete without changes.' ],
22             'AE' => [ 'Debit advice for each transaction',
23             'A debit advice is requested for each transaction in the message.' ],
24             'AF' => [ 'Debit advice/message acknowledgement',
25             'The sender wishes to receive both a Debit Advice and an acknowledgement of receipt for a payment message.' ],
26             'AG' => [ 'Authentication',
27             'Authentication, by a party, of a document established for him by another party.' ],
28             'AH' => [ 'Debit advice/message acknowledgement for each transaction',
29             'A debit advice and message acknowledgement are requested for each transaction in the message.' ],
30             'AI' => [ 'Acknowledge only changes',
31             'Acknowledgement of changes only is required.' ],
32             'AJ' => [ 'Pending',
33             'Indication that the referenced offer or transaction (e.g. cargo booking or quotation request) is being dealt with.' ],
34             'AP' => [ 'Accepted',
35             'Indication that the referenced offer or transaction (e.g., cargo booking or quotation request) has been accepted.' ],
36             'AQ' => [ 'Response expected',
37             'The sender of the message expects a response.' ],
38             'AR' => [ 'Direct documentary credit collection',
39             'Documentary credit collection forwarded directly.' ],
40             'AS' => [ 'Credit advice and message acknowledgement',
41             'The receiver of the message is to acknowledge receipt of the message and sent a credit advice for each credit.' ],
42             'CA' => [ 'Conditionally accepted',
43             'Indication that the referenced offer or transaction (e.g., cargo booking or quotation request) has been accepted under conditions indicated in this message.' ],
44             'CO' => [ 'Confirmation of measurements',
45             'Indication that the message contains the physical measurements on which the charges will be based.' ],
46             'NA' => [ 'No acknowledgement needed',
47             'Specifies that no acknowledgement is needed in response to this message.' ],
48             'RE' => [ 'Rejected',
49             'Indication that the referenced offer or transaction (e.g., cargo booking or quotation request) is not accepted.' ],
50             'UR' => [ 'Credit advice',
51             'The message recipient is to send a credit advice in response to the message.' ],
52             'US' => [ 'Acknowledgement when error',
53             'An acknowledgement is requested when an error occurred.' ],
54             'UT' => [ 'Acknowledgment due to error',
55             'An acknowledgment is sent because an error was identified in the received message.' ],
56             'UU' => [ 'Alternate date',
57             'The solution proposed in the response applies to another date than the one requested.' ],
58             'UV' => [ 'Alternate service',
59             'The solution proposed in the response applies to another service than the one requested.' ],
60             );
61 34     34 0 111 sub get_codes { return \%code_hash; }
62              
63             1;