File Coverage

blib/lib/Finance/AMEX/Transaction/GRRCN/Chargeback.pm
Criterion Covered Total %
statement 39 39 100.0
branch n/a
condition n/a
subroutine 33 33 100.0
pod 29 30 96.6
total 101 102 99.0


line stmt bran cond sub pod time code
1             package Finance::AMEX::Transaction::GRRCN::Chargeback;
2             $Finance::AMEX::Transaction::GRRCN::Chargeback::VERSION = '0.004';
3 8     8   63 use strict;
  8         19  
  8         246  
4 8     8   133 use warnings;
  8         22  
  8         381  
5              
6             # ABSTRACT: Parse AMEX Global Reconciliation (GRRCN) Chargeback Rows
7              
8 8     8   44 use base 'Finance::AMEX::Transaction::GRRCN::Base';
  8         21  
  8         7399  
9              
10             sub field_map {
11             return {
12 12     12 0 344 RECORD_TYPE => [1, 10],
13             PAYEE_MERCHANT_ID => [11, 15],
14             SETTLEMENT_ACCOUNT_TYPE_CODE => [26, 3],
15             AMERICAN_EXPRESS_PAYMENT_NUMBER => [29, 10],
16             PAYMENT_DATE => [39, 8],
17             PAYMENT_CURRENCY => [47, 3],
18             SUBMISSION_MERCHANT_ID => [50, 15],
19              
20             BUSINESS_SUBMISSION_DATE => [65, 8],
21             MERCHANT_LOCATION_ID => [73, 15],
22             INVOICE_REFERENCE_NUMBER => [88, 30],
23             SELLER_ID => [118, 20],
24             CARDMEMBER_ACCOUNT_NUMBER => [138, 19],
25             INDUSTRY_SPECIFIC_REFERENCE_NUMBER => [157, 30],
26             AMEX_PROCESSING_DATE => [187, 8],
27             SUBMISSION_INVOICE_NUMBER => [195, 15],
28             SUBMISSION_CURRENCY => [210, 3],
29             CHARGEBACK_NUMBER => [213, 30],
30             CHARGEBACK_REASON_CODE => [243, 10],
31             CHARGEBACK_REASON_DESCRIPTION => [253, 280],
32             GROSS_AMOUNT => [533, 16],
33             DISCOUNT_AMOUNT => [549, 16],
34             SERVICE_FEE_AMOUNT => [565, 16],
35             TAX_AMOUNT => [581, 16],
36             NET_AMOUNT => [597, 16],
37             DISCOUNT_RATE => [613, 7],
38             SERVICE_FEE_RATE => [620, 7],
39             BATCH_CODE => [627, 3],
40             BILL_CODE => [630, 3],
41              
42             };
43             }
44              
45 12     12 1 3794 sub type {return 'CHARGEBACK'}
46              
47 6     6 1 2925 sub RECORD_TYPE {return $_[0]->_get_column('RECORD_TYPE')}
48 6     6 1 2985 sub PAYEE_MERCHANT_ID {return $_[0]->_get_column('PAYEE_MERCHANT_ID')}
49 6     6 1 2990 sub SETTLEMENT_ACCOUNT_TYPE_CODE {return $_[0]->_get_column('SETTLEMENT_ACCOUNT_TYPE_CODE')}
50 6     6 1 2970 sub AMERICAN_EXPRESS_PAYMENT_NUMBER {return $_[0]->_get_column('AMERICAN_EXPRESS_PAYMENT_NUMBER')}
51 6     6 1 3594 sub PAYMENT_DATE {return $_[0]->_get_column('PAYMENT_DATE')}
52 6     6 1 3984 sub PAYMENT_CURRENCY {return $_[0]->_get_column('PAYMENT_CURRENCY')}
53 6     6 1 3535 sub SUBMISSION_MERCHANT_ID {return $_[0]->_get_column('SUBMISSION_MERCHANT_ID')}
54              
55 6     6 1 3038 sub BUSINESS_SUBMISSION_DATE {return $_[0]->_get_column('BUSINESS_SUBMISSION_DATE')}
56 6     6 1 3958 sub MERCHANT_LOCATION_ID {return $_[0]->_get_column('MERCHANT_LOCATION_ID')}
57 6     6 1 3550 sub INVOICE_REFERENCE_NUMBER {return $_[0]->_get_column('INVOICE_REFERENCE_NUMBER')}
58 6     6 1 3609 sub SELLER_ID {return $_[0]->_get_column('SELLER_ID')}
59 6     6 1 3575 sub CARDMEMBER_ACCOUNT_NUMBER {return $_[0]->_get_column('CARDMEMBER_ACCOUNT_NUMBER')}
60 6     6 1 3558 sub INDUSTRY_SPECIFIC_REFERENCE_NUMBER {return $_[0]->_get_column('INDUSTRY_SPECIFIC_REFERENCE_NUMBER')}
61 6     6 1 3565 sub AMEX_PROCESSING_DATE {return $_[0]->_get_column('AMEX_PROCESSING_DATE')}
62 6     6 1 3534 sub SUBMISSION_INVOICE_NUMBER {return $_[0]->_get_column('SUBMISSION_INVOICE_NUMBER')}
63 6     6 1 3669 sub SUBMISSION_CURRENCY {return $_[0]->_get_column('SUBMISSION_CURRENCY')}
64 6     6 1 3570 sub CHARGEBACK_NUMBER {return $_[0]->_get_column('CHARGEBACK_NUMBER')}
65 6     6 1 3528 sub CHARGEBACK_REASON_CODE {return $_[0]->_get_column('CHARGEBACK_REASON_CODE')}
66 6     6 1 3579 sub CHARGEBACK_REASON_DESCRIPTION {return $_[0]->_get_column('CHARGEBACK_REASON_DESCRIPTION')}
67 6     6 1 3584 sub GROSS_AMOUNT {return $_[0]->_get_column('GROSS_AMOUNT')}
68 6     6 1 3635 sub DISCOUNT_AMOUNT {return $_[0]->_get_column('DISCOUNT_AMOUNT')}
69 6     6 1 3531 sub SERVICE_FEE_AMOUNT {return $_[0]->_get_column('SERVICE_FEE_AMOUNT')}
70 6     6 1 3092 sub TAX_AMOUNT {return $_[0]->_get_column('TAX_AMOUNT')}
71 6     6 1 3554 sub NET_AMOUNT {return $_[0]->_get_column('NET_AMOUNT')}
72 6     6 1 3514 sub DISCOUNT_RATE {return $_[0]->_get_column('DISCOUNT_RATE')}
73 6     6 1 3539 sub SERVICE_FEE_RATE {return $_[0]->_get_column('SERVICE_FEE_RATE')}
74 6     6 1 3517 sub BATCH_CODE {return $_[0]->_get_column('BATCH_CODE')}
75 6     6 1 3651 sub BILL_CODE {return $_[0]->_get_column('BILL_CODE')}
76              
77              
78             1;
79              
80             __END__