File Coverage

blib/lib/Finance/AMEX/Transaction/EPRAW/Detail/Other.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch			n/a
condition			n/a
subroutine	25	25	100.0
pod	21	22	95.4
total	77	78	98.7

package Finance::AMEX::Transaction::EPRAW::Detail::Other;
$Finance::AMEX::Transaction::EPRAW::Detail::Other::VERSION = '0.003';
use strict;
use warnings;

# ABSTRACT: Parse AMEX Reconciliation Files (EPRAW) Chargeback Detail Rows

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

sub field_map {
  return {

    AMEX_PAYEE_NUMBER          => [1, 10],
    AMEX_SE_NUMBER             => [11, 10],
    SE_UNIT_NUMBER             => [21, 10],
    PAYMENT_YEAR               => [31, 4],
    PAYMENT_NUMBER             => [35, 8],

    PAYMENT_NUMBER_DATE        => [35, 3],
    PAYMENT_NUMBER_TYPE        => [38, 1],
    PAYMENT_NUMBER_NUMBER      => [39, 4],

    RECORD_TYPE                => [43, 1],
    DETAIL_RECORD_TYPE         => [44, 2],
    AMEX_PROCESS_DATE          => [46, 7],
    ASSET_BILLING_AMOUNT       => [53, 9],
    ASSET_BILLING_DESCRIPTION  => [62, 65],
    TAKE_ONE_COMMISSION_AMOUNT => [127, 9],
    TAKE_ONE_DESCRIPTION       => [136, 80],
    OTHER_FEE_AMOUNT           => [216, 9],
    OTHER_FEE_DESCRIPTION      => [225, 80],
    ASSET_BILLING_TAX          => [305, 9],
    PAY_IN_GROSS_INDICATOR     => [314, 1],

    SERVICE_AGENT_MERCHANT_ID  => [321, 15],
  };
}

sub type {return 'OTHER_DETAIL'}

sub AMEX_PAYEE_NUMBER          {return $_[0]->_get_column('AMEX_PAYEE_NUMBER')}
sub AMEX_SE_NUMBER             {return $_[0]->_get_column('AMEX_SE_NUMBER')}
sub SE_UNIT_NUMBER             {return $_[0]->_get_column('SE_UNIT_NUMBER')}
sub PAYMENT_YEAR               {return $_[0]->_get_column('PAYMENT_YEAR')}
sub PAYMENT_NUMBER             {return $_[0]->_get_column('PAYMENT_NUMBER')}
sub PAYMENT_NUMBER_DATE        {return $_[0]->_get_column('PAYMENT_NUMBER_DATE')}
sub PAYMENT_NUMBER_TYPE        {return $_[0]->_get_column('PAYMENT_NUMBER_TYPE')}
sub PAYMENT_NUMBER_NUMBER      {return $_[0]->_get_column('PAYMENT_NUMBER_NUMBER')}
sub RECORD_TYPE                {return $_[0]->_get_column('RECORD_TYPE')}
sub DETAIL_RECORD_TYPE         {return $_[0]->_get_column('DETAIL_RECORD_TYPE')}
sub AMEX_PROCESS_DATE          {return $_[0]->_get_column('AMEX_PROCESS_DATE')}
sub ASSET_BILLING_AMOUNT       {return $_[0]->_get_column('ASSET_BILLING_AMOUNT')}
sub ASSET_BILLING_DESCRIPTION  {return $_[0]->_get_column('ASSET_BILLING_DESCRIPTION')}
sub TAKE_ONE_COMMISSION_AMOUNT {return $_[0]->_get_column('TAKE_ONE_COMMISSION_AMOUNT')}
sub TAKE_ONE_DESCRIPTION       {return $_[0]->_get_column('TAKE_ONE_DESCRIPTION')}
sub OTHER_FEE_AMOUNT           {return $_[0]->_get_column('OTHER_FEE_AMOUNT')}
sub OTHER_FEE_DESCRIPTION      {return $_[0]->_get_column('OTHER_FEE_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 SERVICE_AGENT_MERCHANT_ID  {return $_[0]->_get_column('SERVICE_AGENT_MERCHANT_ID')}

1;

__END__