File Coverage

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

Criterion	Covered	Total	%
statement	39	39	100.0
branch			n/a
condition			n/a
subroutine	33	33	100.0
pod	30	30	100.0
total	102	102	100.0

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

use strict;
use warnings;

# ABSTRACT: Parse AMEX Global Reconciliation (GRRCN) Adjustment 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]},
    {SUBMISSION_MERCHANT_ID             => [50,  15]},
    {BUSINESS_SUBMISSION_DATE           => [65,  8]},
    {MERCHANT_LOCATION_ID               => [73,  15]},
    {INVOICE_REFERENCE_NUMBER           => [88,  30]},
    {SELLER_ID                          => [118, 20]},
    {CARDMEMBER_ACCOUNT_NUMBER          => [138, 19]},
    {INDUSTRY_SPECIFIC_REFERENCE_NUMBER => [157, 30]},
    {AMEX_PROCESSING_DATE               => [187, 8]},
    {SUBMISSION_INVOICE_NUMBER          => [195, 15]},
    {SUBMISSION_CURRENCY                => [210, 3]},
    {ADJUSTMENT_NUMBER                  => [213, 30]},
    {ADJUSTMENT_REASON_CODE             => [243, 10]},
    {ADJUSTMENT_REASON_DESCRIPTION      => [253, 280]},
    {GROSS_AMOUNT                       => [533, 16]},
    {DISCOUNT_AMOUNT                    => [549, 16]},
    {SERVICE_FEE_AMOUNT                 => [565, 16]},
    {TAX_AMOUNT                         => [581, 16]},
    {NET_AMOUNT                         => [597, 16]},
    {DISCOUNT_RATE                      => [613, 7]},
    {SERVICE_FEE_RATE                   => [620, 7]},
    {BATCH_CODE                         => [627, 3]},
    {BILL_CODE                          => [630, 3]},
    {FILLER1                            => [633, 168]},
  ];
}

sub type {return 'ADJUSTMENT'}

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 SUBMISSION_MERCHANT_ID             {return $_[0]->_get_column('SUBMISSION_MERCHANT_ID')}
sub BUSINESS_SUBMISSION_DATE           {return $_[0]->_get_column('BUSINESS_SUBMISSION_DATE')}
sub MERCHANT_LOCATION_ID               {return $_[0]->_get_column('MERCHANT_LOCATION_ID')}
sub INVOICE_REFERENCE_NUMBER           {return $_[0]->_get_column('INVOICE_REFERENCE_NUMBER')}
sub SELLER_ID                          {return $_[0]->_get_column('SELLER_ID')}
sub CARDMEMBER_ACCOUNT_NUMBER          {return $_[0]->_get_column('CARDMEMBER_ACCOUNT_NUMBER')}
sub INDUSTRY_SPECIFIC_REFERENCE_NUMBER {return $_[0]->_get_column('INDUSTRY_SPECIFIC_REFERENCE_NUMBER')}
sub AMEX_PROCESSING_DATE               {return $_[0]->_get_column('AMEX_PROCESSING_DATE')}
sub SUBMISSION_INVOICE_NUMBER          {return $_[0]->_get_column('SUBMISSION_INVOICE_NUMBER')}
sub SUBMISSION_CURRENCY                {return $_[0]->_get_column('SUBMISSION_CURRENCY')}
sub ADJUSTMENT_NUMBER                  {return $_[0]->_get_column('ADJUSTMENT_NUMBER')}
sub ADJUSTMENT_REASON_CODE             {return $_[0]->_get_column('ADJUSTMENT_REASON_CODE')}
sub ADJUSTMENT_REASON_DESCRIPTION      {return $_[0]->_get_column('ADJUSTMENT_REASON_DESCRIPTION')}
sub GROSS_AMOUNT                       {return $_[0]->_get_column('GROSS_AMOUNT')}
sub DISCOUNT_AMOUNT                    {return $_[0]->_get_column('DISCOUNT_AMOUNT')}
sub SERVICE_FEE_AMOUNT                 {return $_[0]->_get_column('SERVICE_FEE_AMOUNT')}
sub TAX_AMOUNT                         {return $_[0]->_get_column('TAX_AMOUNT')}
sub NET_AMOUNT                         {return $_[0]->_get_column('NET_AMOUNT')}
sub DISCOUNT_RATE                      {return $_[0]->_get_column('DISCOUNT_RATE')}
sub SERVICE_FEE_RATE                   {return $_[0]->_get_column('SERVICE_FEE_RATE')}
sub BATCH_CODE                         {return $_[0]->_get_column('BATCH_CODE')}
sub BILL_CODE                          {return $_[0]->_get_column('BILL_CODE')}

1;

__END__