line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Business::EDI::CodeList::PriceCodeQualifier; |
2
|
|
|
|
|
|
|
|
3
|
4
|
|
|
4
|
|
20
|
use base 'Business::EDI::CodeList'; |
|
4
|
|
|
|
|
8
|
|
|
4
|
|
|
|
|
655
|
|
4
|
|
|
|
|
|
|
my $VERSION = 0.02; |
5
|
192
|
|
|
192
|
0
|
563
|
sub list_number {5125;} |
6
|
|
|
|
|
|
|
my $usage = 'C'; |
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
# 5125 Price code qualifier [C] |
9
|
|
|
|
|
|
|
# Desc: Code qualifying a price. |
10
|
|
|
|
|
|
|
# Repr: an..3 |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
my %code_hash = ( |
13
|
|
|
|
|
|
|
'AAA' => [ 'Calculation net', |
14
|
|
|
|
|
|
|
'The price stated is the net price including allowances/ charges. Allowances/charges may be stated for information only.' ], |
15
|
|
|
|
|
|
|
'AAB' => [ 'Calculation gross', |
16
|
|
|
|
|
|
|
'The price stated is the gross price to which allowances/ charges must be applied.' ], |
17
|
|
|
|
|
|
|
'AAC' => [ 'Allowances and charges not included, tax included', |
18
|
|
|
|
|
|
|
'The price does not include the allowances and charges, but includes the taxes.' ], |
19
|
|
|
|
|
|
|
'AAD' => [ 'Average selling price', |
20
|
|
|
|
|
|
|
'Average selling price of a product.' ], |
21
|
|
|
|
|
|
|
'AAE' => [ 'Information price, excluding allowances or charges,', |
22
|
|
|
|
|
|
|
'including taxes The price stated is for information purposes only and excludes all allowances and charges. Taxes however are included in the price.' ], |
23
|
|
|
|
|
|
|
'AAF' => [ 'Information price, excluding allowances or charges, and', |
24
|
|
|
|
|
|
|
'taxes The price stated is for information purposes only and excludes all allowances, charges and taxes.' ], |
25
|
|
|
|
|
|
|
'AAG' => [ 'Additive unit price component', |
26
|
|
|
|
|
|
|
'A code to indicate that the price described is an additive component of the total price.' ], |
27
|
|
|
|
|
|
|
'CAL' => [ 'Calculation price', |
28
|
|
|
|
|
|
|
'The price stated is the price for the calculation of the line item amount.' ], |
29
|
|
|
|
|
|
|
'INF' => [ 'Information', |
30
|
|
|
|
|
|
|
'The price is provided for information.' ], |
31
|
|
|
|
|
|
|
'INV' => [ 'Invoice price', |
32
|
|
|
|
|
|
|
'Referenced price taken from an invoice.' ], |
33
|
|
|
|
|
|
|
'ZZZ' => [ 'Mutually defined', |
34
|
|
|
|
|
|
|
'A code assigned within a code list to be used on an interim basis and as defined among trading partners until a precise code can be assigned to the code list.' ], |
35
|
|
|
|
|
|
|
); |
36
|
192
|
|
|
192
|
0
|
843
|
sub get_codes { return \%code_hash; } |
37
|
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
1; |