File Coverage

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

Criterion	Covered	Total	%
statement	34	34	100.0
branch	2	2	100.0
condition			n/a
subroutine	21	21	100.0
pod	18	18	100.0
total	75	75	100.0

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

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 {
  my ($self) = @_;

  my $map = [
    {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]},
    {FILLER1                         => [277, 524]},
  ];

  if ($self->file_version >= 3.01) {
    pop @{$map};    # the last filler column changes for v3.01, so we remove it

    push @{$map} => (
      {SELLER_ID => [277, 20]},     # v3.01
      {FILLER1   => [267, 504]},    # v3.01
    );
  }

  return $map;
}

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

1;

__END__