1package Business::EDI::CodeList::DespatchPatternTimingCode;
2
3use base 'Business::EDI::CodeList';
4my $VERSION     = 0.02;
5sub list_number {2017;}
6my $usage       = 'C';
7
8# 2017  Despatch pattern timing code                            [C]
9# Desc: Code specifying a set of dates/times within a despatch
10# pattern.
11# Repr: an..3
12
13my %code_hash = (
14'A' => [ '1st shift (normal working hours)',
15    'The first working period as defined by an entity.' ],
16'B' => [ '2nd shift',
17    'A subsequent working period as defined by an entity, that follows 1st shift.' ],
18'C' => [ '3rd shift',
19    'A subsequent working period as defined by an entity, that follows 2nd shift.' ],
20'D' => [ 'A.M.',
21    'Ante Meridiem (forenoon).' ],
22'E' => [ 'P.M.',
23    'Post Meridiem (afternoon).' ],
24'F' => [ 'As directed',
25    'Shipment/delivery instruction will be provided in an independent communication session.' ],
26'G' => [ 'Any shift',
27    'The production period that a product will be built such as 1st shift or 3rd shift.' ],
28'H' => [ '24 hour clock',
29    'Shipment/deliveries will be specified by a continuous time clock .' ],
30'Y' => [ 'None',
31    'Used to cancel or override a previous pattern.' ],
32'ZZZ' => [ 'Mutually defined',
33    'Despatch pattern timing according to agreement.' ],
34);
35sub get_codes { return \%code_hash; }
36
371;
38