File Coverage

blib/lib/Business/EDI/CodeList/CurrencyUsageCodeQualifier.pm

Criterion	Covered	Total	%
statement	5	5	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod	0	2	0.0
total	8	10	80.0

package Business::EDI::CodeList::CurrencyUsageCodeQualifier;

use base 'Business::EDI::CodeList';
my $VERSION     = 0.02;
sub list_number {6347;}
my $usage       = 'C';

# 6347  Currency usage code qualifier                           [C]
# Desc: Code qualifying the usage of a currency.
# Repr: an..3

my %code_hash = (
'1' => [ 'Charge payment currency',
    'The currency in which charges are to be paid.' ],
'2' => [ 'Reference currency',
    'The currency applicable to amounts stated. It may have to be converted.' ],
'3' => [ 'Target currency',
    'The currency which should be used to the target destination of the transaction.' ],
'4' => [ 'Transport document currency',
    'Currency applicable to amounts stated in a transport document/message.' ],
'5' => [ 'Calculation base currency',
    'Currency on which the calculation is based.' ],
'6' => [ 'Information Currency',
    'Additional currency the message recipient needs for information purposes. The actual message amount(s) is/are not based upon this currency.' ],
'7' => [ 'Currency of the account',
    'Currency in which the account is held.' ],
);
sub get_codes { return \%code_hash; }

1;