1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D01B.Simples.S7383
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 7383 Surface or layer code [C]
17 -- > Desc: Code specifying the surface or layer of an object.
22 -- > The location is side one.
25 -- > The location is side two.
28 -- > To indicate that the entity being specified is on the
32 -- > To indicate that the entity being specified is off the
36 -- > Specifies that the surface/layer/position being
37 -- > described is the soluble portion.
39 -- > AD Opposite corners
40 -- > The surface or layer of the product being described is
41 -- > the opposite corners.
43 -- > AE Corner Diagonals
44 -- > The surface or layer of the product being described are
45 -- > the corner diagonals.
48 -- > The left-hand side (looking forward) of a ship, boat or
52 -- > The right-hand side (looking forward) of a ship, boat or
55 -- > AH Tooth facial surface
56 -- > Surface of a tooth directed toward the face and opposite
57 -- > the lingual surface.
59 -- > AI Tooth incisal surface
60 -- > Surface of the tooth relating to the cutting edge of the
61 -- > anterior teeth, incisors or canines.
63 -- > AJ Tooth distal surface
64 -- > Surface of the tooth toward the back of the dental arch,
65 -- > or away from the midline.
67 -- > AK Tooth buccal surface
68 -- > Surface of the tooth pertaining to or around the cheek.
70 -- > AL Tooth occlusal surface
71 -- > Surface of the tooth pertaining to the masticating
72 -- > surfaces of the posterior teeth.
74 -- > AM Tooth lingual surface
75 -- > Surface of the tooth pertaining to or around the tongue.
77 -- > AN Tooth mesial surface
78 -- > Surface of the tooth toward the midline of the dental
82 -- > The location is at the back of the cab.
85 -- > The location is both sides.
88 -- > The location is on the bottom.
90 -- > DF Dual fuel tank positions
91 -- > The location is in the dual fuel tank positions.
94 -- > The location is in the front.
97 -- > The location is in the inside.
100 -- > The location is on the left.
103 -- > The location is overall.
106 -- > The location is on one side.
109 -- > The location is on the outside.
112 -- > The location is on the right.
115 -- > The location is in the rear.
117 -- > ST Spare tyre position
118 -- > The location is the spare tyre position.
121 -- > The location is at the tank bottom.
124 -- > The location is on the top.
127 -- > The location is on two sides.
130 -- > The location is under the cab.
131 simple7383 :: Parser Value
132 simple7383 = simple "7383" (alphaNumeric `upTo` 3)