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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Simples.S6167
   7   ( simple6167
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- >   6167  Range type qualifier
  16 -- >
  17 -- >   Desc: Identification of the type of range.
  18 -- >
  19 -- >   Repr: an..3
  20 -- >
  21 -- >         1 Allowance range
  22 -- >              Self explanatory.
  23 -- >         2 Charge range
  24 -- >              Self explanatory.
  25 -- >         3 Monetary range
  26 -- >              Self explanatory.
  27 -- >         4 Quantity range
  28 -- >              Self explanatory.
  29 -- >         5 Temperature range
  30 -- >              The range of a temperature.
  31 -- >         6 Order quantity range
  32 -- >              The minimum to maximum order quantity.
  33 -- >         7 Delivery quantity range
  34 -- >              The minimum to maximum delivery quantity.
  35 -- >         8 Production batch range
  36 -- >              The minimum to maximum quantity in a single production
  37 -- >              run.
  38 -- >         9 Monthly quantity range
  39 -- >              The minimum to maximum monthly quantity.
  40 -- >        10 Annual quantity range
  41 -- >              The minimum to maximum yearly quantity.
  42 simple6167 :: Parser Value
  43 simple6167 = simple "6167" (alphaNumeric `upTo` 3)