specification/src/Text/Edifact/D96A/Simples/S4457.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Simples.S4457
   7   ( simple4457
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- >   4457  Product/service substitution, coded
  16 -- >
  17 -- >   Desc: Code indicating product or service substitution conditions.
  18 -- >
  19 -- >   Repr: an..3
  20 -- >
  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)