File Coverage

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

Criterion	Covered	Total	%
statement	26	26	100.0
branch			n/a
condition			n/a
subroutine	20	20	100.0
pod	16	17	94.1
total	62	63	98.4

package Finance::AMEX::Transaction::GRRCN::FeeRevenue;
$Finance::AMEX::Transaction::GRRCN::FeeRevenue::VERSION = '0.004';
use strict;
use warnings;

# ABSTRACT: Parse AMEX Global Reconciliation (GRRCN) Fees and Revenues Record Rows

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

sub field_map {
  return {
    RECORD_TYPE                     => [1, 10],
    PAYEE_MERCHANT_ID               => [11, 15],
    AMERICAN_EXPRESS_PAYMENT_NUMBER => [26, 10],
    PAYMENT_DATE                    => [36, 8],
    PAYMENT_CURRENCY                => [44, 3],

    SUBMISSION_MERCHANT_ID          => [47, 15],
    MERCHANT_LOCATION_ID            => [62, 15],

    FEE_OR_REVENUE_AMOUNT           => [77, 16],
    FEE_OR_REVENUE_DESCRIPTION      => [93, 80],
    ASSET_BILLING_AMOUNT            => [173, 16],
    ASSET_BILLING_DESCRIPTION       => [189, 65],
    ASSET_BILLING_TAX               => [254, 16],
    PAY_IN_GROSS_INDICATOR          => [270, 1],
    BATCH_CODE                      => [271, 3],
    BILL_CODE                       => [274, 3],
  };
}

sub type {return 'FEEREVENUE'}

sub RECORD_TYPE                     {return $_[0]->_get_column('RECORD_TYPE')}
sub PAYEE_MERCHANT_ID               {return $_[0]->_get_column('PAYEE_MERCHANT_ID')}
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 MERCHANT_LOCATION_ID            {return $_[0]->_get_column('MERCHANT_LOCATION_ID')}

sub FEE_OR_REVENUE_AMOUNT           {return $_[0]->_get_column('FEE_OR_REVENUE_AMOUNT')}
sub FEE_OR_REVENUE_DESCRIPTION      {return $_[0]->_get_column('FEE_OR_REVENUE_DESCRIPTION')}
sub ASSET_BILLING_AMOUNT            {return $_[0]->_get_column('ASSET_BILLING_AMOUNT')}
sub ASSET_BILLING_DESCRIPTION       {return $_[0]->_get_column('ASSET_BILLING_DESCRIPTION')}
sub ASSET_BILLING_TAX               {return $_[0]->_get_column('ASSET_BILLING_TAX')}
sub PAY_IN_GROSS_INDICATOR          {return $_[0]->_get_column('PAY_IN_GROSS_INDICATOR')}
sub BATCH_CODE                      {return $_[0]->_get_column('BATCH_CODE')}
sub BILL_CODE                       {return $_[0]->_get_column('BILL_CODE')}

1;

__END__