File Coverage

blib/lib/Finance/AMEX/Transaction/EPPRC/Detail/RecordSummary.pm

Criterion	Covered	Total	%
statement	45	45	100.0
branch			n/a
condition			n/a
subroutine	39	39	100.0
pod	30	36	83.3
total	114	120	95.0

package Finance::AMEX::Transaction::EPPRC::Detail::RecordSummary;
$Finance::AMEX::Transaction::EPPRC::Detail::RecordSummary::VERSION = '0.004';
use strict;
use warnings;

# ABSTRACT: Parse AMEX Transaction/Invoice Level Reconciliation (EPPRC) Record of Charge (ROC) Detail Rows

use base 'Finance::AMEX::Transaction::EPPRC::Base';

sub field_map {
  return {

    TLRR_AMEX_PAYEE_NUMBER     => [1, 10],
    TLRR_AMEX_SE_NUMBER        => [11, 10],
    TLRR_SE_UNIT_NUMBER        => [21, 10],
    TLRR_PAYMENT_YEAR          => [31, 4],
    TLRR_PAYMENT_NUMBER        => [35, 8],
    TLRR_PAYMENT_NUMBER_DATE   => [35, 3],
    TLRR_PAYMENT_NUMBER_TYPE   => [38, 1],
    TLRR_PAYMENT_NUMBER_NUMBER => [39, 4],
    TLRR_RECORD_TYPE           => [43, 1],
    TLRR_DETAIL_RECORD_TYPE    => [44, 2],
    TLRR_SE_BUSINESS_DATE      => [46, 7],
    TLRR_AMEX_PROCESS_DATE     => [53, 7],
    TLRR_SOC_INVOICE_NUMBER    => [60, 6],
    TLRR_SOC_AMOUNT            => [66, 13],

    TLRR_ROC_AMOUNT            => [79, 13],
    TLRR_CM_NUMBER             => [92, 15],
    TLRR_CM_REF_NO             => [107, 11],
    TLRR_SE_REF                => [118, 9],
    TLRR_ROC_NUMBER            => [137, 10],
    TLRR_TRAN_DATE             => [147, 7],
    TLRR_SE_REF_POA            => [154, 30],
    NON_COMPLIANT_INDICATOR    => [184, 1],
    NON_COMPLIANT_ERROR_CODE_1 => [185, 4],
    NON_COMPLIANT_ERROR_CODE_2 => [189, 4],
    NON_COMPLIANT_ERROR_CODE_3 => [193, 4],
    NON_COMPLIANT_ERROR_CODE_4 => [197, 4],
    NON_SWIPED_INDICATOR       => [201, 1],
    US_MR_INDICATOR            => [202, 1],
    SE_REJ_IND                 => [203, 2],
    TRANSACTION_TIME           => [205, 6],
    APPROVAL_CODE              => [211, 6],
    TERMINAL_ID                => [217, 8],
    MERCHANT_CATEGORY_CODE     => [225, 4],
    TLRR_CM_NUMB_EXD           => [229, 19],
  };
}

sub type {return 'ROC_DETAIL'}

sub TLRR_AMEX_PAYEE_NUMBER     {return $_[0]->_get_column('TLRR_AMEX_PAYEE_NUMBER')}
sub TLRR_AMEX_SE_NUMBER        {return $_[0]->_get_column('TLRR_AMEX_SE_NUMBER')}
sub TLRR_SE_UNIT_NUMBER        {return $_[0]->_get_column('TLRR_SE_UNIT_NUMBER')}
sub TLRR_PAYMENT_YEAR          {return $_[0]->_get_column('TLRR_PAYMENT_YEAR')}
sub TLRR_PAYMENT_NUMBER        {return $_[0]->_get_column('TLRR_PAYMENT_NUMBER')}
sub TLRR_PAYMENT_NUMBER_DATE   {return $_[0]->_get_column('TLRR_PAYMENT_NUMBER_DATE')}
sub TLRR_PAYMENT_NUMBER_TYPE   {return $_[0]->_get_column('TLRR_PAYMENT_NUMBER_TYPE')}
sub TLRR_PAYMENT_NUMBER_NUMBER {return $_[0]->_get_column('TLRR_PAYMENT_NUMBER_NUMBER')}
sub TLRR_RECORD_TYPE           {return $_[0]->_get_column('TLRR_RECORD_TYPE')}
sub TLRR_DETAIL_RECORD_TYPE    {return $_[0]->_get_column('TLRR_DETAIL_RECORD_TYPE')}
sub TLRR_SE_BUSINESS_DATE      {return $_[0]->_get_column('TLRR_SE_BUSINESS_DATE')}
sub TLRR_AMEX_PROCESS_DATE     {return $_[0]->_get_column('TLRR_AMEX_PROCESS_DATE')}
sub TLRR_SOC_INVOICE_NUMBER    {return $_[0]->_get_column('TLRR_SOC_INVOICE_NUMBER')}
sub TLRR_SOC_AMOUNT            {return $_[0]->_get_column('TLRR_SOC_AMOUNT')}

sub TLRR_ROC_AMOUNT            {return $_[0]->_get_column('TLRR_ROC_AMOUNT')}
sub TLRR_CM_NUMBER             {return $_[0]->_get_column('TLRR_CM_NUMBER')}
sub TLRR_CM_REF_NO             {return $_[0]->_get_column('TLRR_CM_REF_NO')}
sub TLRR_SE_REF                {return $_[0]->_get_column('TLRR_SE_REF')}
sub TLRR_ROC_NUMBER            {return $_[0]->_get_column('TLRR_ROC_NUMBER')}
sub TLRR_TRAN_DATE             {return $_[0]->_get_column('TLRR_TRAN_DATE')}
sub TLRR_SE_REF_POA            {return $_[0]->_get_column('TLRR_SE_REF_POA')}
sub NON_COMPLIANT_INDICATOR    {return $_[0]->_get_column('NON_COMPLIANT_INDICATOR')}
sub NON_COMPLIANT_ERROR_CODE_1 {return $_[0]->_get_column('NON_COMPLIANT_ERROR_CODE_1')}
sub NON_COMPLIANT_ERROR_CODE_2 {return $_[0]->_get_column('NON_COMPLIANT_ERROR_CODE_2')}
sub NON_COMPLIANT_ERROR_CODE_3 {return $_[0]->_get_column('NON_COMPLIANT_ERROR_CODE_3')}
sub NON_COMPLIANT_ERROR_CODE_4 {return $_[0]->_get_column('NON_COMPLIANT_ERROR_CODE_4')}
sub NON_SWIPED_INDICATOR       {return $_[0]->_get_column('NON_SWIPED_INDICATOR')}
sub US_MR_INDICATOR            {return $_[0]->_get_column('US_MR_INDICATOR')}
sub SE_REJ_IND                 {return $_[0]->_get_column('SE_REJ_IND')}
sub TRANSACTION_TIME           {return $_[0]->_get_column('TRANSACTION_TIME')}
sub APPROVAL_CODE              {return $_[0]->_get_column('APPROVAL_CODE')}
sub TERMINAL_ID                {return $_[0]->_get_column('TERMINAL_ID')}
sub MERCHANT_CATEGORY_CODE     {return $_[0]->_get_column('MERCHANT_CATEGORY_CODE')}
sub TLRR_CM_NUMB_EXD           {return $_[0]->_get_column('TLRR_CM_NUMB_EXD')}

1;

__END__