|  line  | 
 stmt  | 
 bran  | 
 cond  | 
 sub  | 
 pod  | 
 time  | 
 code  | 
| 
1
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 package Finance::AMEX::Transaction::EPPRC::Detail::ChargeSummary 0.005;  | 
| 
2
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
    | 
| 
3
 | 
9
 | 
 
 | 
 
 | 
  
9
  
 | 
 
 | 
52
 | 
 use strict;  | 
| 
 
 | 
9
 | 
 
 | 
 
 | 
 
 | 
 
 | 
15
 | 
    | 
| 
 
 | 
9
 | 
 
 | 
 
 | 
 
 | 
 
 | 
216
 | 
    | 
| 
4
 | 
9
 | 
 
 | 
 
 | 
  
9
  
 | 
 
 | 
39
 | 
 use warnings;  | 
| 
 
 | 
9
 | 
 
 | 
 
 | 
 
 | 
 
 | 
42
 | 
    | 
| 
 
 | 
9
 | 
 
 | 
 
 | 
 
 | 
 
 | 
204
 | 
    | 
| 
5
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
    | 
| 
6
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 # ABSTRACT: Parse AMEX Transaction/Invoice Level Reconciliation (EPPRC) Summary of Charge (SOC) Detail Rows  | 
| 
7
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
    | 
| 
8
 | 
9
 | 
 
 | 
 
 | 
  
9
  
 | 
 
 | 
38
 | 
 use base 'Finance::AMEX::Transaction::EPPRC::Base';  | 
| 
 
 | 
9
 | 
 
 | 
 
 | 
 
 | 
 
 | 
12
 | 
    | 
| 
 
 | 
9
 | 
 
 | 
 
 | 
 
 | 
 
 | 
7290
 | 
    | 
| 
9
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
    | 
| 
10
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 sub field_map {  | 
| 
11
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
   return {  | 
| 
12
 | 
2210
 | 
 
 | 
 
 | 
  
2210
  
 | 
  
1
  
 | 
39525
 | 
     AMEX_PAYEE_NUMBER           => [1,   10],  | 
| 
13
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     AMEX_SE_NUMBER              => [11,  10],  | 
| 
14
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     SE_UNIT_NUMBER              => [21,  10],  | 
| 
15
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     PAYMENT_YEAR                => [31,  4],  | 
| 
16
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     PAYMENT_NUMBER              => [35,  8],  | 
| 
17
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     PAYMENT_NUMBER_DATE         => [35,  3],  | 
| 
18
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     PAYMENT_NUMBER_TYPE         => [38,  1],  | 
| 
19
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     PAYMENT_NUMBER_NUMBER       => [39,  4],  | 
| 
20
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     RECORD_TYPE                 => [43,  1],  | 
| 
21
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     DETAIL_RECORD_TYPE          => [44,  2],  | 
| 
22
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     SE_BUSINESS_DATE            => [46,  7],  | 
| 
23
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     AMEX_PROCESS_DATE           => [53,  7],  | 
| 
24
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     SOC_INVOICE_NUMBER          => [60,  6],  | 
| 
25
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     SOC_AMOUNT                  => [66,  11],  | 
| 
26
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     DISCOUNT_AMOUNT             => [77,  9],  | 
| 
27
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     SERVICE_FEE_AMOUNT          => [86,  7],  | 
| 
28
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     NET_SOC_AMOUNT              => [100, 11],  | 
| 
29
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     DISCOUNT_RATE               => [111, 5],  | 
| 
30
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     SERVICE_FEE_RATE            => [116, 5],  | 
| 
31
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     AMEX_GROSS_AMOUNT           => [142, 11],  | 
| 
32
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     AMEX_ROC_COUNT              => [153, 5],  | 
| 
33
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     TRACKING_ID                 => [158, 9],  | 
| 
34
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     TRACKING_ID_DATE            => [158, 3],  | 
| 
35
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     TRACKING_ID_PCID            => [161, 6],  | 
| 
36
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     CPC_INDICATOR               => [167, 1],  | 
| 
37
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     AMEX_ROC_COUNT_POA          => [183, 7],  | 
| 
38
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     BASE_DISCOUNT_AMOUNT        => [190, 16],  | 
| 
39
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     CARD_NOT_PRESENT_BPA_AMOUNT => [206, 16],  | 
| 
40
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     CARD_NOT_PRESENT_PTA_AMOUNT => [222, 16],  | 
| 
41
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     CARD_NOT_PRESENT_BPA_RATE   => [238, 9],  | 
| 
42
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     CARD_NOT_PRESENT_PTA_RATE   => [247, 9],  | 
| 
43
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     TRANSACTION_FEE_AMOUNT      => [256, 16],  | 
| 
44
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
     TRANSACTION_FEE_RATE        => [272, 9],  | 
| 
45
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
   };  | 
| 
46
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 }  | 
| 
47
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
    | 
| 
48
 | 
130
 | 
 
 | 
 
 | 
  
130
  
 | 
  
1
  
 | 
31314
 | 
 sub type {return 'SOC_DETAIL'}  | 
| 
49
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
    | 
| 
50
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
29276
 | 
 sub AMEX_PAYEE_NUMBER           {return $_[0]->_get_column('AMEX_PAYEE_NUMBER')}  | 
| 
51
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
30189
 | 
 sub AMEX_SE_NUMBER              {return $_[0]->_get_column('AMEX_SE_NUMBER')}  | 
| 
52
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
28506
 | 
 sub SE_UNIT_NUMBER              {return $_[0]->_get_column('SE_UNIT_NUMBER')}  | 
| 
53
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
29338
 | 
 sub PAYMENT_YEAR                {return $_[0]->_get_column('PAYMENT_YEAR')}  | 
| 
54
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
30255
 | 
 sub PAYMENT_NUMBER              {return $_[0]->_get_column('PAYMENT_NUMBER')}  | 
| 
55
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
29789
 | 
 sub PAYMENT_NUMBER_DATE         {return $_[0]->_get_column('PAYMENT_NUMBER_DATE')}  | 
| 
56
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
29930
 | 
 sub PAYMENT_NUMBER_TYPE         {return $_[0]->_get_column('PAYMENT_NUMBER_TYPE')}  | 
| 
57
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
27547
 | 
 sub PAYMENT_NUMBER_NUMBER       {return $_[0]->_get_column('PAYMENT_NUMBER_NUMBER')}  | 
| 
58
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
28766
 | 
 sub RECORD_TYPE                 {return $_[0]->_get_column('RECORD_TYPE')}  | 
| 
59
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
29874
 | 
 sub DETAIL_RECORD_TYPE          {return $_[0]->_get_column('DETAIL_RECORD_TYPE')}  | 
| 
60
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
28022
 | 
 sub SE_BUSINESS_DATE            {return $_[0]->_get_column('SE_BUSINESS_DATE')}  | 
| 
61
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
29254
 | 
 sub AMEX_PROCESS_DATE           {return $_[0]->_get_column('AMEX_PROCESS_DATE')}  | 
| 
62
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
28541
 | 
 sub SOC_INVOICE_NUMBER          {return $_[0]->_get_column('SOC_INVOICE_NUMBER')}  | 
| 
63
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
29442
 | 
 sub SOC_AMOUNT                  {return $_[0]->_get_column('SOC_AMOUNT')}  | 
| 
64
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
30031
 | 
 sub DISCOUNT_AMOUNT             {return $_[0]->_get_column('DISCOUNT_AMOUNT')}  | 
| 
65
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
27579
 | 
 sub SERVICE_FEE_AMOUNT          {return $_[0]->_get_column('SERVICE_FEE_AMOUNT')}  | 
| 
66
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
29951
 | 
 sub NET_SOC_AMOUNT              {return $_[0]->_get_column('NET_SOC_AMOUNT')}  | 
| 
67
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
29648
 | 
 sub DISCOUNT_RATE               {return $_[0]->_get_column('DISCOUNT_RATE')}  | 
| 
68
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
29731
 | 
 sub SERVICE_FEE_RATE            {return $_[0]->_get_column('SERVICE_FEE_RATE')}  | 
| 
69
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
29087
 | 
 sub AMEX_GROSS_AMOUNT           {return $_[0]->_get_column('AMEX_GROSS_AMOUNT')}  | 
| 
70
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
29128
 | 
 sub AMEX_ROC_COUNT              {return $_[0]->_get_column('AMEX_ROC_COUNT')}  | 
| 
71
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
29987
 | 
 sub TRACKING_ID                 {return $_[0]->_get_column('TRACKING_ID')}  | 
| 
72
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
29546
 | 
 sub TRACKING_ID_DATE            {return $_[0]->_get_column('TRACKING_ID_DATE')}  | 
| 
73
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
29039
 | 
 sub TRACKING_ID_PCID            {return $_[0]->_get_column('TRACKING_ID_PCID')}  | 
| 
74
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
29637
 | 
 sub CPC_INDICATOR               {return $_[0]->_get_column('CPC_INDICATOR')}  | 
| 
75
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
29702
 | 
 sub AMEX_ROC_COUNT_POA          {return $_[0]->_get_column('AMEX_ROC_COUNT_POA')}  | 
| 
76
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
27701
 | 
 sub BASE_DISCOUNT_AMOUNT        {return $_[0]->_get_column('BASE_DISCOUNT_AMOUNT')}  | 
| 
77
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
29800
 | 
 sub CARD_NOT_PRESENT_BPA_AMOUNT {return $_[0]->_get_column('CARD_NOT_PRESENT_BPA_AMOUNT')}  | 
| 
78
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
29080
 | 
 sub CARD_NOT_PRESENT_PTA_AMOUNT {return $_[0]->_get_column('CARD_NOT_PRESENT_PTA_AMOUNT')}  | 
| 
79
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
27555
 | 
 sub CARD_NOT_PRESENT_BPA_RATE   {return $_[0]->_get_column('CARD_NOT_PRESENT_BPA_RATE')}  | 
| 
80
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
29326
 | 
 sub CARD_NOT_PRESENT_PTA_RATE   {return $_[0]->_get_column('CARD_NOT_PRESENT_PTA_RATE')}  | 
| 
81
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
30347
 | 
 sub TRANSACTION_FEE_AMOUNT      {return $_[0]->_get_column('TRANSACTION_FEE_AMOUNT')}  | 
| 
82
 | 
65
 | 
 
 | 
 
 | 
  
65
  
 | 
  
1
  
 | 
26240
 | 
 sub TRANSACTION_FEE_RATE        {return $_[0]->_get_column('TRANSACTION_FEE_RATE')}  | 
| 
83
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
    | 
| 
84
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 1;  | 
| 
85
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
    | 
| 
86
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 
 | 
 __END__  |