File Coverage

blib/lib/Finance/AMEX/Transaction/EPTRN/Detail/Adjustment.pm

Criterion	Covered	Total	%
statement	9	31	29.0
branch			n/a
condition			n/a
subroutine	3	25	12.0
pod	22	22	100.0
total	34	78	43.5

package Finance::AMEX::Transaction::EPTRN::Detail::Adjustment 0.005;

use strict;
use warnings;

# ABSTRACT: Parse AMEX Transaction/Invoice Level Reconciliation (EPTRN) Adjustment Detail Rows

use base 'Finance::AMEX::Transaction::EPTRN::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],
    ADJUSTMENT_NUMBER     => [53,  6],
    ADJUSTMENT_AMOUNT     => [59,  9],
    DISCOUNT_AMOUNT       => [68,  9],
    SERVICE_FEE_AMOUNT    => [77,  7],
    NET_ADJUSTMENT_AMOUNT => [91,  9],
    DISCOUNT_RATE         => [100, 5],
    SERVICE_FEE_RATE      => [105, 5],
    CARDMEMBER_NUMBER     => [126, 17],
    ADJUSTMENT_REASON     => [143, 280],
  };
}

sub type {return 'ADJUSTMENT_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 ADJUSTMENT_NUMBER     {return $_[0]->_get_column('ADJUSTMENT_NUMBER')}
sub ADJUSTMENT_AMOUNT     {return $_[0]->_get_column('ADJUSTMENT_AMOUNT')}
sub DISCOUNT_AMOUNT       {return $_[0]->_get_column('DISCOUNT_AMOUNT')}
sub SERVICE_FEE_AMOUNT    {return $_[0]->_get_column('SERVICE_FEE_AMOUNT')}
sub NET_ADJUSTMENT_AMOUNT {return $_[0]->_get_column('NET_ADJUSTMENT_AMOUNT')}
sub DISCOUNT_RATE         {return $_[0]->_get_column('DISCOUNT_RATE')}
sub SERVICE_FEE_RATE      {return $_[0]->_get_column('SERVICE_FEE_RATE')}
sub CARDMEMBER_NUMBER     {return $_[0]->_get_column('CARDMEMBER_NUMBER')}
sub ADJUSTMENT_REASON     {return $_[0]->_get_column('ADJUSTMENT_REASON')}

1;

__END__