1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D01B.Simples.S4233
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 4233 Marking instructions code [B]
17 -- > Desc: Code specifying instructions for marking.
21 -- > 1 Do not mark suppliers company name
22 -- > Packaging should not be marked with supplier's company
25 -- > 2 Mark customers company name
26 -- > Packaging should be marked with customer's company name.
28 -- > 3 Mark customers references
29 -- > Packaging should be marked with customer's references.
31 -- > 4 Mark additionally customers article description
32 -- > Packaging should also be marked with customer's article
35 -- > 5 Mark exclusively customers article description
36 -- > Packaging should be marked with customer's article
37 -- > description only.
39 -- > 6 Mark packages dimensions
40 -- > Packaging should be marked with package's dimensions.
42 -- > 7 Mark net weight
43 -- > Packaging should be marked with net weight.
45 -- > 8 Mark gross weight
46 -- > Packaging should be marked with gross weight.
48 -- > 9 Mark tare weight
49 -- > Packaging should be marked with tare weight.
51 -- > 10 Mark batch number
52 -- > Packaging should be marked with batch number.
54 -- > 11 Mark article number customer
55 -- > Packaging should be marked with customer's article
58 -- > 12 Mark running number of packages
59 -- > Packaging should be marked with the running number of
62 -- > 13 Mark date of production
63 -- > Packaging should be marked with the date of production.
65 -- > 14 Mark expiry date
66 -- > Packaging should be marked with the expiry date.
68 -- > 15 Mark supplier number
69 -- > Packaging should be marked with the supplier number.
71 -- > 16 Buyer's instructions
72 -- > Markings as specified by the buyer.
74 -- > 17 Seller's instructions
75 -- > Markings as specified by the seller.
77 -- > 18 Carrier's instructions
78 -- > Markings as specified by carrier.
80 -- > 19 Legal requirements
81 -- > Markings as specified by law.
83 -- > 20 Industry instructions
84 -- > Markings as specified by industry.
86 -- > 21 Line item only
87 -- > Exclusive reference markings for this line.
89 -- > 22 Pre-marked by buyer
90 -- > Packaging should be pre-marked by buyer.
92 -- > 23 Entire shipment
93 -- > Markings refer to the entire shipment.
95 -- > 24 Shipper assigned
96 -- > Markings to identify a shipment, package or carton as
97 -- > assigned by shipper.
99 -- > 25 Shipper assigned roll number
100 -- > Markings to identify a roll as assigned by the shipper.
102 -- > 26 Shipper assigned skid number
103 -- > Markings used to identify a skid as assigned by shipper.
105 -- > 27 Uniform Code Council (UCC) format
106 -- > Markings according to UCC format are required. System of
107 -- > coding products where by each item/multipack case type
108 -- > is uniquely identified. A unique manufacturer Id is
109 -- > assigned by the UCC.
111 -- > 28 Mark free text
112 -- > Packaging should be marked with free text.
114 -- > 29 Mark case number
115 -- > Case numbers to be used for marking.
117 -- > 30 Mark serial shipping container code
118 -- > Requests the marking of the serial shipping container
119 -- > code to the transport container or packaging.
121 -- > ZZZ Mutually defined
122 -- > A code assigned within a code list to be used on an
123 -- > interim basis and as defined among trading partners
124 -- > until a precise code can be assigned to the code list.
125 simple4233 :: Parser Value
126 simple4233 = simple "4233" (alphaNumeric `upTo` 3)