1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D96A.Simples.S4457
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 4457 Product/service substitution, coded
17 -- > Desc: Code indicating product or service substitution conditions.
21 -- > 1 No substitution allowed
22 -- > Notice to supplier to fill order exactly as specified.
23 -- > 2 Supply any binding if edition ordered not available
24 -- > Indicates that substitute bindings are acceptable if the
25 -- > edition of a book originally ordered is unavailable.
26 -- > 3 Supply paper binding if edition ordered not available
27 -- > Indicates that a paper back edition of a book is
28 -- > acceptable if the edition ordered is unavailable.
29 -- > 4 Supply cloth binding if edition ordered not available
30 -- > Indicates that the cloth bound edition of a book is
31 -- > acceptable if the edition ordered is unavailable.
32 -- > 5 Supply library binding if edition ordered not available
33 -- > Indicates that a library binding of a book is acceptable
34 -- > if the edition ordered is unavailable.
35 -- > 6 Equivalent item substitution
36 -- > Indicates that an item of the same value and performance
37 -- > may be substituted for the item specified.
38 -- > 7 Alternate item substitution allowed
39 -- > Indicates that an item of equal or greater value and
40 -- > performance may be substituted for the item specified.
41 -- > ZZZ Mutually defined
42 -- > A code reserved for special trading partner requirements
43 -- > when pre-defined codes do not exist.
44 simple4457 :: Parser Value
45 simple4457 = simple "4457" (alphaNumeric `upTo` 3)