specification/src/Text/Edifact/D96A/Simples/S4405.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Simples.S4405
   7   ( simple4405
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- >   4405  Status, coded
  16 -- >
  17 -- >   Desc: Provides information regarding a status.
  18 -- >
  19 -- >   Repr: an..3
  20 -- >
  21 -- >         1 To be done
  22 -- >              Remark that the requested service in the order remains
  23 -- >              outstanding.
  24 -- >         2 Done
  25 -- >              The instruction has been completed.
  26 -- >         3 Passed on
  27 -- >              The information has been passed on.
  28 -- >         4 Final
  29 -- >              The amount has the status of finality.
  30 -- >         5 Subject to final payment
  31 -- >              The amount is subject to finality.
  32 -- >         6 Minimum
  33 -- >              The amount quoted is a minimum tariff.
  34 -- >         7 Fixed
  35 -- >              The amount quoted is a fixed tariff.
  36 -- >         8 Maximum
  37 -- >              The amount quoted is a maximum tariff.
  38 -- >         9 Information
  39 -- >              The amount is quoted for information only, it is not part
  40 -- >              of the charges to be deducted or added.
  41 -- >        10 0 day available
  42 -- >              The amount is available today.
  43 -- >        11 1 day available
  44 -- >              The amount is available on the next banking office day
  45 -- >              after the booking date.
  46 -- >        12 2 days available
  47 -- >              The amount is available on the second banking office day
  48 -- >              after the booking date.
  49 -- >        13 3 days available
  50 -- >              The amount available on the third banking office day
  51 -- >              after the booking date.
  52 -- >        14 Uncollected funds
  53 -- >              Funds not collected by beneficiary.
  54 -- >        15 Nil
  55 -- >              Self explanatory.
  56 -- >        16 None advised
  57 -- >              Self explanatory.
  58 -- >        17 Requested
  59 -- >              Self explanatory.
  60 -- >        18 Free of charge
  61 -- >              Self explanatory.
  62 -- >        19 Rounded
  63 -- >              Self explanatory.
  64 -- >        20 Permanent
  65 -- >              Self-explanatory.
  66 -- >        21 Temporary
  67 -- >              Self-explanatory.
  68 simple4405 :: Parser Value
  69 simple4405 = simple "4405" (alphaNumeric `upTo` 3)