1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D01B.Simples.S8169
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 8169 Full or empty indicator code [B]
17 -- > Desc: Code indicating whether an object is full or empty.
21 -- > 1 More than one quarter volume available
22 -- > Self explanatory.
24 -- > 2 More than half volume available
25 -- > Indicates that there is more than a half of the volume
28 -- > 3 More than three quarters volume available
29 -- > Indicates that there is more than three quarters of the
30 -- > volume available.
33 -- > Indicates that the object is empty.
36 -- > Indicates that the object is full.
38 -- > 6 No volume available
39 -- > Indicates that there is no space available in the
42 -- > 7 Full, mixed consignment
43 -- > Indicates that the equipment is fully loaded, and
44 -- > includes a number LCL (Less Than Container Load)
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)