specification/src/Text/Edifact/D01B/Simples/S6353.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D01B.Simples.S6353
   7   ( simple6353
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- > *    6353  Unit type code qualifier                                [C]
  16 -- >
  17 -- >      Desc: Code qualifying the type of unit.
  18 -- >
  19 -- >      Repr: an..3
  20 -- >
  21 -- >      1     Number of pricing units
  22 -- >               Number of units which multiplied by the unit price gives
  23 -- >               price.
  24 -- >
  25 -- >      2     Transportable unit
  26 -- >               A unit that is capable of being transported.
  27 -- >
  28 -- >      3     Number of debit units
  29 -- >               The number of units which are debited by the sender of
  30 -- >               the consignment to the receiving party.
  31 -- >
  32 -- >      4     Number of received units
  33 -- >               The number of units which are received by the receiving
  34 -- >               party of the consignment.
  35 -- >
  36 -- >      5     Number of free days for container availability
  37 -- >               Number of days within which the container will be made
  38 -- >               available at no charge.
  39 -- >
  40 -- >      6     Number of structure components
  41 -- >               Number of components in a structure.
  42 -- >
  43 -- >      7     Number of asset units
  44 -- >               The number of units of an asset.
  45 -- >
  46 -- >      8     Number of consignments
  47 -- >               The number of consignments.
  48 -- >
  49 -- > +    9     Adult
  50 -- >               The unit is an adult.
  51 -- >
  52 -- > +    10    Child
  53 -- >               The unit is a child.
  54 -- >
  55 -- > +    11    Number of trial balance accounts
  56 -- >               The unit is trial balance account.
  57 -- >
  58 -- > +    12    Number of lines
  59 -- >               Unit is line.
  60 simple6353 :: Parser Value
  61 simple6353 = simple "6353" (alphaNumeric `upTo` 3)