1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D01B.Simples.S4347
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 4347 Product identifier code qualifier [B]
17 -- > Desc: Code qualifying the product identifier.
21 -- > 1 Additional identification
22 -- > Information which specifies and qualifies product
25 -- > 2 Identification for potential substitution
26 -- > The item number describes the potential substitute
30 -- > The given item number is the number of the product that
31 -- > substitutes another one.
33 -- > 4 Substituted for
34 -- > The given item number is the number of the original
35 -- > product substituted by another.
37 -- > 5 Product identification
38 -- > The item number is for product identification.
40 -- > 6 Successor product id
41 -- > Product id of the product that will follow the one
42 -- > currently in production/trade.
44 -- > 7 Predecessor product id
45 -- > Product id of the predecessor of the product currently
46 -- > in production/trade.
48 -- > 8 Expired/out of production
49 -- > The given item number is the expired item number of the
50 -- > product. It has been replaced.
52 -- > 9 Deletion of secondary identification
53 -- > Code indicating the deletion of a secondary
56 -- > 10 Defective part's identification
57 -- > Identification of a defective part.
59 -- > 11 Repaired part's identification
60 -- > Identification of a repaired part.
62 -- > 12 Alternate product identification
63 -- > Alternate number to identify the product.
64 simple4347 :: Parser Value
65 simple4347 = simple "4347" (alphaNumeric `upTo` 3)