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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D01B.Simples.S5249
   7   ( simple5249
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- >      5249  Percentage basis identification code                    [B]
  16 -- >
  17 -- >      Desc: Code specifying the basis on which a percentage is
  18 -- >            calculated.
  19 -- >
  20 -- >      Repr: an..3
  21 -- >
  22 -- >      1     Per unit
  23 -- >               Referenced percentage applies on a single unit basis.
  24 -- >
  25 -- >      2     Per ton
  26 -- >               Reduction percentage is applied per transported ton.
  27 -- >
  28 -- >      3     Per equipment unit
  29 -- >               Reduction percentage is applied per main equipment unit
  30 -- >               (for rail purpose, only rail wagons).
  31 -- >
  32 -- >      4     Per unit price
  33 -- >               Reduction percentage is applied on the unit price, which
  34 -- >               is the basis of the charge calculation.
  35 -- >
  36 -- >      5     Per quantity
  37 -- >               Reduction percentage applied on the unit price and
  38 -- >               conceded to a consignor after he reached a specified
  39 -- >               tonnage of transport.
  40 -- >
  41 -- >      6     Basic charge
  42 -- >               Code to indicate that the IATA experimental special
  43 -- >               charge within Europe is the basis for the percentage
  44 -- >               reduction or surcharge.
  45 -- >
  46 -- >      7     Rate per kilogram
  47 -- >               Code to indicate that the IATA experimental special rate
  48 -- >               within in Europe is the basis for the percentage
  49 -- >               reduction or surcharge.
  50 -- >
  51 -- >      8     Minimum charge
  52 -- >               Code to indicate that the IATA minimum charge is the
  53 -- >               basis for the percentage reduction or surcharge.
  54 -- >
  55 -- >      9     Normal rate
  56 -- >               Code to indicate that the IATA normal rate is the basis
  57 -- >               for the percentage reduction or surcharge.
  58 -- >
  59 -- >      10    Quantity rate
  60 -- >               Code to indicate that the IATA quantity rate is the
  61 -- >               basis for the percentage reduction or surcharge.
  62 -- >
  63 -- >      11    Amount of drawing
  64 -- >               Referenced percentage applies on the amount of drawing
  65 -- >               under the documentary credit.
  66 -- >
  67 -- >      12    Documentary credit amount
  68 -- >               Referenced percentage applies on documentary credit
  69 -- >               amount.
  70 -- >
  71 -- >      13    Invoice value
  72 -- >               Referenced percentage applies on the invoice value.
  73 -- >
  74 -- >      14    CIF value
  75 -- >               Referenced percentage applies on CIF value.
  76 -- >
  77 -- >      15    Contract cost
  78 -- >               The percentage applied to the contract cost.
  79 -- >
  80 -- >      16    Labour hours
  81 -- >               The percentage applied to the labour hours.
  82 -- >
  83 -- >      17    LIBOR (London Inter-Bank Offered Rate)
  84 -- >               The percentage basis is London Inter-Bank Offered Rate
  85 -- >               (LIBOR).
  86 -- >
  87 -- >      18    FIBOR (Frankfurt Inter-Bank Offered Rate)
  88 -- >               The percentage basis is Frankfurt Inter-Bank Offered
  89 -- >               Rate (FIBOR).
  90 -- >
  91 -- >      19    PIBOR (Paris Inter-Bank Offered Rate)
  92 -- >               The percentage basis is Paris Inter-Bank Offered Rate
  93 -- >               (PIBOR).
  94 -- >
  95 -- >      20    Nationally based percentage basis
  96 -- >               The percentage basis is nationally based.
  97 simple5249 :: Parser Value
  98 simple5249 = simple "5249" (alphaNumeric `upTo` 3)