1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D01B.Simples.S4237
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 4237 Payment arrangement code [B]
17 -- > Desc: Code specifying the arrangements for a payment.
21 -- > A Payable elsewhere
22 -- > Responsibility for payment of transport charges unknown
23 -- > at time of departure.
25 -- > B Third party to pay
26 -- > A third party to pay the freight bill is known at the
27 -- > time of shipment.
30 -- > Charges are (to be) collected from the consignee at the
34 -- > Charges are (to be) prepaid before the transport
36 simple4237 :: Parser Value
37 simple4237 = simple "4237" (alphaNumeric `upTo` 3)