specification/src/Text/Edifact/D01B/Simples/S8169.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D01B.Simples.S8169
   7   ( simple8169
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- >      8169  Full or empty indicator code                            [B]
  16 -- >
  17 -- >      Desc: Code indicating whether an object is full or empty.
  18 -- >
  19 -- >      Repr: an..3
  20 -- >
  21 -- >      1     More than one quarter volume available
  22 -- >               Self explanatory.
  23 -- >
  24 -- >      2     More than half volume available
  25 -- >               Indicates that there is more than a half of the volume
  26 -- >               available.
  27 -- >
  28 -- >      3     More than three quarters volume available
  29 -- >               Indicates that there is more than three quarters of the
  30 -- >               volume available.
  31 -- >
  32 -- >      4     Empty
  33 -- >               Indicates that the object is empty.
  34 -- >
  35 -- >      5     Full
  36 -- >               Indicates that the object is full.
  37 -- >
  38 -- >      6     No volume available
  39 -- >               Indicates that there is no space available in the
  40 -- >               object.
  41 -- >
  42 -- >      7     Full, mixed consignment
  43 -- >               Indicates that the equipment is fully loaded, and
  44 -- >               includes a number LCL (Less Than Container Load)
  45 -- >               consignments.
  46 -- >
  47 -- >      8     Full, single consignment
  48 -- >               Indicates that the container is fully loaded with a
  49 -- >               single FCL (Full Container Load) consignment.
  50 simple8169 :: Parser Value
  51 simple8169 = simple "8169" (alphaNumeric `upTo` 3)