blob: a2bbe579880fac6ebb146f4ebde235ecc5789bfd (
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
73
74
75
76
77
78
79
80
81
82
83
84
|
{-# LANGUAGE OverloadedStrings #-}
---- Machine generated code.
---- Output of edi-parser-scaffolder
module Text.Edifact.D96A.Simples.S8335
( simple8335
) where
import Text.Edifact.Parsing
import Text.Edifact.Types (Value)
-- | Derived from this specification:
--
-- > 8335 Movement type, coded
-- >
-- > Desc: Code indicating the type of movement.
-- >
-- > Repr: an..3
-- >
-- > 1 Breakbulk
-- > Defines the movement of general cargo not carried in ISO
-- > standard containers.
-- > 2 LCL/LCL
-- > Defines the movement of cargo packed in and unpacked from
-- > containers by the carrier on behalf of the
-- > shipper/consignee. 'LCL' means Less than Container Load.
-- > 3 FCL/FCL
-- > Defines the movement of cargo packed by the shipper or
-- > shipper's agent and unpacked by the consignee or
-- > consignee's agent. 'FCL' means Full Container Load.
-- > 4 FCL/LCL
-- > Defines the movement of cargo packed by the shipper or
-- > shipper's agent and unpacked by the carrier. 'FCL' means
-- > Full Container Load. 'LCL' means Less than Container
-- > Load.
-- > 5 LCL/FCL
-- > Defines the movement of cargo packed by the carrier and
-- > unpacked by the consignee or consignee's agent. 'LCL'
-- > means Less than Container Load. 'FCL' means Full Load.
-- > 11 House to house
-- > Cargo packed in a unit by the shipper at point of origin
-- > and unpacked by consignee at final destination.
-- > 12 House to terminal
-- > Cargo packed in a unit by the shipper at point of origin
-- > and unpacked at the carrier's inland facility between the
-- > ship's point of discharge and the final destination.
-- > 13 House to pier
-- > Cargo packed in a unit by the shipper at point of origin
-- > and unpacked by carrier at ship's point of discharge
-- > (pier).
-- > 21 Terminal to house
-- > Cargo packed in a unit at a carrier's inland facility
-- > between point of origin and the ship's point of loading
-- > and unpacked by consignee at the final destination.
-- > 22 Terminal to terminal
-- > Cargo packed in a unit at a carrier's inland facility
-- > between point of origin and the ship's point of loading
-- > and unpacked at a carrier's inland facility between
-- > ship's point of discharge and final destination.
-- > 23 Terminal to pier
-- > Cargo packed in a unit at a carrier's inland facility
-- > between point of origin and ship's point of loading and
-- > unpacked by carrier at ship's point of discharge (pier).
-- > 31 Pier to house
-- > Cargo packed in a unit at ship's point of loading and
-- > unpacked by consignee at final destination.
-- > 32 Pier to terminal
-- > Cargo packed in a unit at ship's point of loading and
-- > unpacked at a carrier's inland facility between ship's
-- > point of discharge and final destination.
-- > 33 Pier to pier
-- > Cargo packed in a unit at ship's point of loading and
-- > unpacked by carrier at ship's point of discharge (pier).
-- > 41 Station to station
-- > Self explanatory.
-- > 42 House to warehouse
-- > Self explanatory.
-- > 43 Warehouse to house
-- > Self explanatory.
-- > 44 Station to house
-- > Self explanatory.
simple8335 :: Parser Value
simple8335 = simple "8335" (alphaNumeric `upTo` 3)
|
