1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D96A.Simples.S8249
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 8249 Equipment status, coded
17 -- > Desc: Indication of the action related to the equipment.
22 -- > Self explanatory.
24 -- > Transport equipment to be exported on a marine vessel.
26 -- > Transport equipment to be imported on a marine vessel.
27 -- > 4 Remain on board
28 -- > Transport equipment arriving on a marine vessel is to
31 -- > Transport equipment is to be shifted from one stowage
32 -- > location on a marine vessel to another on the same
35 -- > Transport equipment is to be transferred from one marine
36 -- > vessel to another.
37 simple8249 :: Parser Value
38 simple8249 = simple "8249" (alphaNumeric `upTo` 3)