blob: 4f047a67aeabb64f30f3f9c424867dba0c597fb6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
{-# LANGUAGE OverloadedStrings #-}
---- Machine generated code.
---- Output of edi-parser-scaffolder
module Text.Edifact.D01B.Simples.S8249
( simple8249
) where
import Text.Edifact.Parsing
import Text.Edifact.Types (Value)
-- | Derived from this specification:
--
-- > 8249 Equipment status code [B]
-- >
-- > Desc: Code specifying the status of equipment.
-- >
-- > Repr: an..3
-- >
-- > 1 Continental
-- > The equipment is or will be moving across a continent on
-- > an intermodal or multimodal basis.
-- >
-- > 2 Export
-- > Transport equipment to be exported on a marine vessel.
-- >
-- > 3 Import
-- > Transport equipment to be imported on a marine vessel.
-- >
-- > 4 Remain on board
-- > Transport equipment arriving on a marine vessel is to
-- > remain on board.
-- >
-- > 5 Shifter
-- > Transport equipment is to be shifted from one stowage
-- > location on a marine vessel to another on the same
-- > vessel.
-- >
-- > 6 Transhipment
-- > Transport equipment is to be transferred from one marine
-- > vessel to another.
-- >
-- > 7 Shortlanded
-- > Transport equipment notified to arrive which did not
-- > arrive on the means of transport.
-- >
-- > 8 Overlanded
-- > Transport equipment not notified to arrive but which did
-- > arrive on the means of transport.
-- >
-- > 9 Domestic
-- > Transport equipment is used in domestic service.
-- >
-- > 10 Positioning
-- > Equipment is being transported for positioning purposes.
-- >
-- > 11 Delivery
-- > Equipment is being delivered.
-- >
-- > 12 Redelivery
-- > Equipment is being redelivered.
-- >
-- > 13 Repair
-- > The equipment is for repair.
-- >
-- > 14 Reloader
-- > Transport equipment to be discharged and subsequently
-- > reloaded on the same means of transport but in a
-- > different stowage location.
simple8249 :: Parser Value
simple8249 = simple "8249" (alphaNumeric `upTo` 3)
|