1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D01B.Simples.S8101
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 8101 Transit direction indicator code [B]
17 -- > Desc: Code specifying the direction of transport.
21 -- > BS Buyer to seller
22 -- > Self explanatory.
24 -- > SB Seller to buyer
25 -- > The transport from the seller to the buyer.
27 -- > SC Subcontractor to seller
28 -- > The transport from the subcontractor to the seller.
30 -- > SD Seller to drop ship designated location
31 -- > The transport from the seller to the drop ship
32 -- > designated location.
34 -- > SF Seller to freight forwarder
35 -- > The transport from the seller to the freight forwarder.
37 -- > SS Seller to subcontractor
38 -- > The transport from the seller to the subcontractor.
40 -- > ST Mother vessel to lighter
41 -- > Cargo is transferred from the main carriage or mother
42 -- > vessel to a lighter.
44 -- > SU Lighter to mother vessel
45 -- > Cargo is transferred from the lighter vessel to a main
46 -- > carriage or mother vessel.
48 -- > ZZZ Mutually defined
49 -- > A code assigned within a code list to be used on an
50 -- > interim basis and as defined among trading partners
51 -- > until a precise code can be assigned to the code list.
52 simple8101 :: Parser Value
53 simple8101 = simple "8101" (alphaNumeric `upTo` 3)