File Coverage

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

Criterion	Covered	Total	%
statement	40	40	100.0
branch	2	2	100.0
condition			n/a
subroutine	27	27	100.0
pod	24	24	100.0
total	93	93	100.0

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

use strict;
use warnings;

# ABSTRACT: Parse AMEX Global Reconciliation (GRRCN) Transaction or ROC pricing Rows

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

sub field_map {
  my ($self) = @_;

  # order is important here for the CSV and TSV file formats
  my $map = [
    {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]},
    {MERCHANT_LOCATION_ID            => [65,  15]},
    {FILLER1                         => [80,  15]},
    {INVOICE_REFERENCE_NUMBER        => [95,  30]},
    {SELLER_ID                       => [125, 20]},
    {CARDMEMBER_ACCOUNT_NUMBER       => [145, 19]},
    {TRANSACTION_AMOUNT              => [164, 16]},
    {TRANSACTION_DATE                => [180, 8]},
    {FEE_CODE                        => [188, 2]},
    {FILLER2                         => [190, 7]},
    {FEE_AMOUNT                      => [197, 22]},
    {DISCOUNT_RATE                   => [219, 7]},
    {DISCOUNT_AMOUNT                 => [226, 22]},
    {FILLER3                         => [248, 553]},
  ];

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

    push @{$map} => (
      {ROUNDED_FEE_AMOUNT                     => [248, 16]},     # v3.01
      {ROUNDED_DISCOUNT_AMOUNT                => [264, 16]},     # v3.01
      {FEE_AMOUNT_SETTLEMENT_CURRENCY         => [280, 22]},     # v3.01
      {DISCOUNT_AMOUNT_SETTLEMENT_CURRENCY    => [302, 22]},     # v3.01
      {TRANSACTION_AMOUNT_SETTLEMENT_CURRENCY => [324, 16]},     # v3.01
      {FILLER3                                => [340, 461]},    # v3.01
    );
  }

  return $map;
}

sub type {return 'TXNPRICING'}

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 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 TRANSACTION_AMOUNT              {return $_[0]->_get_column('TRANSACTION_AMOUNT')}
sub TRANSACTION_DATE                {return $_[0]->_get_column('TRANSACTION_DATE')}
sub FEE_CODE                        {return $_[0]->_get_column('FEE_CODE')}
sub FEE_AMOUNT                      {return $_[0]->_get_column('FEE_AMOUNT')}
sub DISCOUNT_RATE                   {return $_[0]->_get_column('DISCOUNT_RATE')}
sub DISCOUNT_AMOUNT                 {return $_[0]->_get_column('DISCOUNT_AMOUNT')}

sub ROUNDED_FEE_AMOUNT                     {return $_[0]->_get_column('ROUNDED_FEE_AMOUNT')}
sub ROUNDED_DISCOUNT_AMOUNT                {return $_[0]->_get_column('ROUNDED_DISCOUNT_AMOUNT')}
sub FEE_AMOUNT_SETTLEMENT_CURRENCY         {return $_[0]->_get_column('FEE_AMOUNT_SETTLEMENT_CURRENCY')}
sub DISCOUNT_AMOUNT_SETTLEMENT_CURRENCY    {return $_[0]->_get_column('DISCOUNT_AMOUNT_SETTLEMENT_CURRENCY')}
sub TRANSACTION_AMOUNT_SETTLEMENT_CURRENCY {return $_[0]->_get_column('TRANSACTION_AMOUNT_SETTLEMENT_CURRENCY')}

1;

__END__