File Coverage

blib/lib/Finance/AMEX/Transaction/GRRCN/Summary.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch			n/a
condition			n/a
subroutine	23	23	100.0
pod	20	20	100.0
total	72	72	100.0

package Finance::AMEX::Transaction::GRRCN::Summary 0.005;

use strict;
use warnings;

# ABSTRACT: Parse AMEX Global Reconciliation (GRRCN) Summary Rows

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

sub field_map {
  return [
    {RECORD_TYPE                       => [1,   10]},
    {PAYEE_MERCHANT_ID                 => [11,  15]},
    {SETTLEMENT_ACCOUNT_TYPE_CODE      => [26,  3]},
    {AMERICAN_EXPRESS_PAYMENT_NUMBER   => [29,  10]},
    {PAYMENT_DATE                      => [39,  8]},
    {PAYMENT_CURRENCY                  => [47,  3]},
    {UNIQUE_PAYMENT_REFERENCE_NUMBER   => [50,  18]},
    {PAYMENT_NET_AMOUNT                => [68,  16]},
    {PAYMENT_GROSS_AMOUNT              => [84,  16]},
    {PAYMENT_DISCOUNT_AMOUNT           => [100, 16]},
    {PAYMENT_SERVICE_FEE_AMOUNT        => [116, 16]},
    {PAYMENT_ADJUSTMENT_AMOUNT         => [132, 16]},
    {PAYMENT_TAX_AMOUNT                => [148, 16]},
    {OPENING_DEBIT_BALANCE_AMOUNT      => [164, 16]},
    {PAYEE_DIRECT_DEPOSIT_NUMBER       => [180, 17]},
    {BANK_ACCOUNT_NUMBER               => [197, 34]},
    {INTERNATIONAL_BANK_ACCOUNT_NUMBER => [231, 34]},
    {BANK_IDENTIFIER_CODE              => [265, 15]},
    {FILLER1                           => [280, 521]},
  ];
}

sub type {return 'SUMMARY'}

sub RECORD_TYPE                       {return $_[0]->_get_column('RECORD_TYPE')}
sub PAYEE_MERCHANT_ID                 {return $_[0]->_get_column('PAYEE_MERCHANT_ID')}
sub SETTLEMENT_ACCOUNT_TYPE_CODE      {return $_[0]->_get_column('SETTLEMENT_ACCOUNT_TYPE_CODE')}
sub AMERICAN_EXPRESS_PAYMENT_NUMBER   {return $_[0]->_get_column('AMERICAN_EXPRESS_PAYMENT_NUMBER')}
sub PAYMENT_DATE                      {return $_[0]->_get_column('PAYMENT_DATE')}
sub PAYMENT_CURRENCY                  {return $_[0]->_get_column('PAYMENT_CURRENCY')}
sub UNIQUE_PAYMENT_REFERENCE_NUMBER   {return $_[0]->_get_column('UNIQUE_PAYMENT_REFERENCE_NUMBER')}
sub PAYMENT_NET_AMOUNT                {return $_[0]->_get_column('PAYMENT_NET_AMOUNT')}
sub PAYMENT_GROSS_AMOUNT              {return $_[0]->_get_column('PAYMENT_GROSS_AMOUNT')}
sub PAYMENT_DISCOUNT_AMOUNT           {return $_[0]->_get_column('PAYMENT_DISCOUNT_AMOUNT')}
sub PAYMENT_SERVICE_FEE_AMOUNT        {return $_[0]->_get_column('PAYMENT_SERVICE_FEE_AMOUNT')}
sub PAYMENT_ADJUSTMENT_AMOUNT         {return $_[0]->_get_column('PAYMENT_ADJUSTMENT_AMOUNT')}
sub PAYMENT_TAX_AMOUNT                {return $_[0]->_get_column('PAYMENT_TAX_AMOUNT')}
sub OPENING_DEBIT_BALANCE_AMOUNT      {return $_[0]->_get_column('OPENING_DEBIT_BALANCE_AMOUNT')}
sub PAYEE_DIRECT_DEPOSIT_NUMBER       {return $_[0]->_get_column('PAYEE_DIRECT_DEPOSIT_NUMBER')}
sub BANK_ACCOUNT_NUMBER               {return $_[0]->_get_column('BANK_ACCOUNT_NUMBER')}
sub INTERNATIONAL_BANK_ACCOUNT_NUMBER {return $_[0]->_get_column('INTERNATIONAL_BANK_ACCOUNT_NUMBER')}
sub BANK_IDENTIFIER_CODE              {return $_[0]->_get_column('BANK_IDENTIFIER_CODE')}

1;

__END__