1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D96A.Simples.S6353
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 6353 Number of units qualifier
17 -- > Desc: Indication of the objective of number of units information.
21 -- > 1 Number of pricing units
22 -- > [6170] Number of units which multiplied by the unit price
23 -- > gives 5116 Line item amount.
24 -- > 2 Transportable unit
25 -- > Self explanatory.
26 -- > 3 Number of debit units
27 -- > The number of units which are debited by the sender of
28 -- > the consignment to the receiving party.
29 -- > 4 Number of received units
30 -- > The number of units which are received by the receiving
31 -- > party of the consignment.
32 simple6353 :: Parser Value
33 simple6353 = simple "6353" (alphaNumeric `upTo` 3)