1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D96A.Simples.S7383
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 7383 Surface/layer indicator, coded
17 -- > Desc: Code indicating the surface or layer of a product that is
23 -- > Self explanatory.
25 -- > Self explanatory.
27 -- > To indicate that the entity being specified is on the
30 -- > To indicate that the entity being specified is off the
33 -- > Specifies that the surface/layer/position being
34 -- > described is the soluble portion.
36 -- > Self explanatory.
38 -- > Self explanatory.
40 -- > Self explanatory.
41 -- > DF Dual fuel tank positions
42 -- > Self explanatory.
44 -- > Self explanatory.
46 -- > Self explanatory.
48 -- > Self explanatory.
50 -- > Self explanatory.
52 -- > Self explanatory.
54 -- > Self explanatory.
56 -- > Self explanatory.
58 -- > Self explanatory.
59 -- > ST Spare tyre position
60 -- > Self explanatory.
62 -- > Self explanatory.
64 -- > Self explanatory.
66 -- > Self explanatory.
68 -- > Self explanatory.
69 simple7383 :: Parser Value
70 simple7383 = simple "7383" (alphaNumeric `upTo` 3)