1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D96A.Simples.S7273
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 7273 Service requirement, coded
17 -- > Desc: Identification of a service requirement (which may constitute
18 -- > an additional component to a basic contract).
23 -- > The cargo is loaded in the equipment by the carrier.
25 -- > Container to be stuffed or stripped under responsibility
26 -- > and for account of the shipper or the consignee.
27 -- > 3 Less than full loads
28 -- > Container to be stuffed and stripped for account and risk
31 -- > The cargo is loaded in the equipment by the shipper.
32 -- > 5 To be delivered
33 -- > The cargo is to be delivered as instructed.
35 -- > The cargo is to be retained awaiting further
37 -- > 7 Transhipment allowed
38 -- > Transhipment of goods is allowed.
39 -- > 8 Transhipment not allowed
40 -- > Transhipment of goods is not allowed.
41 -- > 9 Partial shipment allowed
42 -- > Partial shipment is allowed.
43 -- > 10 Partial shipment not allowed
44 -- > Partial shipment is not allowed.
45 -- > 11 Partial shipment and/or drawing allowed
46 -- > Partial shipment and/or drawing is allowed.
47 -- > 12 Partial shipment and/or drawing not allowed
48 -- > Partial shipment and/or drawing is not allowed.
49 -- > 13 Carrier unloads
50 -- > The cargo is to be unloaded from the equipment by the
52 -- > 14 Shipper unloads
53 -- > The cargo is to be unloaded from the equipment by the
55 -- > 15 Consignee unloads
56 -- > The cargo is to be unloaded from the equipment by the
58 -- > 16 Consignee loads
59 -- > The cargo is to be loaded in the equipment by the
61 -- > 17 Exclusive usage of equipment
62 -- > Usage of the equipment is reserved for exclusive use.
63 -- > 18 Non exclusive usage of equipment
64 -- > Usage of the equipment is not reserved for exclusive use.
65 simple7273 :: Parser Value
66 simple7273 = simple "7273" (alphaNumeric `upTo` 3)