1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D01B.Simples.S6145
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 6145 Dimension type code qualifier [B]
17 -- > Desc: Code qualifying the type of the dimension.
21 -- > 1 Gross dimensions
22 -- > The dimension expressed in a gross value.
24 -- > 2 Package dimensions (including goods)
25 -- > The dimension of the goods including the packaging.
27 -- > 3 Pallet dimensions (excluding goods)
28 -- > The dimension of a pallet excluding the goods.
30 -- > 4 Pallet dimensions (including goods)
31 -- > The dimension of a pallet including the goods.
33 -- > 5 Off-standard dimension front
34 -- > The dimension in the length that the cargo exceeds the
35 -- > standard length at the front of an equipment.
37 -- > 6 Off-standard dimension back
38 -- > The dimension in the length that the cargo exceeds the
39 -- > standard length at the back of an equipment.
41 -- > 7 Off-standard dimension right
42 -- > The dimension in the width that the cargo exceeds the
43 -- > standard width at the right side of an equipment.
45 -- > 8 Off-standard dimension left
46 -- > The dimension in the width that the cargo exceeds the
47 -- > standard width at the left side of an equipment.
49 -- > 9 Off-standard dimension general
50 -- > The dimensions that the cargo exceeds the standard
53 -- > 10 External equipment dimension
54 -- > The external dimensions of transport equipment.
56 -- > 11 Internal equipment dimensions
57 -- > The internal dimensions of equipment.
59 -- > 12 Damage dimensions
60 -- > Dimensions of the damaged area.
62 -- > 13 Off-standard dimensions height
63 -- > The dimension in the height that the cargo exceeds the
64 -- > standard height at the top of a piece of equipment.
66 -- > 14 Equipment door dimensions
67 -- > Dimensions (width and height) of the equipment door.
68 simple6145 :: Parser Value
69 simple6145 = simple "6145" (alphaNumeric `upTo` 3)