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