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	19	20	95.0
total	71	72	98.6

package Finance::AMEX::Transaction::GRRCN::Summary;
$Finance::AMEX::Transaction::GRRCN::Summary::VERSION = '0.003';
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],
  };
}

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__