1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D01B.Simples.S8249
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 8249 Equipment status code [B]
17 -- > Desc: Code specifying the status of equipment.
22 -- > The equipment is or will be moving across a continent on
23 -- > an intermodal or multimodal basis.
26 -- > Transport equipment to be exported on a marine vessel.
29 -- > Transport equipment to be imported on a marine vessel.
31 -- > 4 Remain on board
32 -- > Transport equipment arriving on a marine vessel is to
36 -- > Transport equipment is to be shifted from one stowage
37 -- > location on a marine vessel to another on the same
41 -- > Transport equipment is to be transferred from one marine
42 -- > vessel to another.
45 -- > Transport equipment notified to arrive which did not
46 -- > arrive on the means of transport.
49 -- > Transport equipment not notified to arrive but which did
50 -- > arrive on the means of transport.
53 -- > Transport equipment is used in domestic service.
56 -- > Equipment is being transported for positioning purposes.
59 -- > Equipment is being delivered.
62 -- > Equipment is being redelivered.
65 -- > The equipment is for repair.
68 -- > Transport equipment to be discharged and subsequently
69 -- > reloaded on the same means of transport but in a
70 -- > different stowage location.
71 simple8249 :: Parser Value
72 simple8249 = simple "8249" (alphaNumeric `upTo` 3)