File Coverage

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

Criterion	Covered	Total	%
statement	30	30	100.0
branch	2	2	100.0
condition			n/a
subroutine	23	23	100.0
pod	18	20	90.0
total	73	75	97.3

package Finance::AMEX::Transaction::GRRCN::TxnPricing;
$Finance::AMEX::Transaction::GRRCN::TxnPricing::VERSION = '0.004';
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) = @_;

  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],

    MERCHANT_LOCATION_ID            => [65, 15],

    (
      $self->version >= 2.01
      ? ( FILLER => [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],
    FEE_AMOUNT                      => [197, 22],
    DISCOUNT_RATE                   => [216, 7],
    DISCOUNT_AMOUNT                 => [226, 22],
  };
}

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

1;

__END__