1 files changed, 69 insertions, 0 deletions

diff --git a/specification/src/Text/Edifact/D96A/Simples/S4405.hs b/specification/src/Text/Edifact/D96A/Simples/S4405.hs
new file mode 100644
index 0000000..fa997d8
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Simples/S4405.hs
@@ -0,0 +1,69 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+---- Machine generated code.
+---- Output of edi-parser-scaffolder
+
+module Text.Edifact.D96A.Simples.S4405
+  ( simple4405
+  ) where
+
+import           Text.Edifact.Parsing
+import           Text.Edifact.Types   (Value)
+
+-- | Derived from this specification:
+--
+-- >   4405  Status, coded
+-- >
+-- >   Desc: Provides information regarding a status.
+-- >
+-- >   Repr: an..3
+-- >
+-- >         1 To be done
+-- >              Remark that the requested service in the order remains
+-- >              outstanding.
+-- >         2 Done
+-- >              The instruction has been completed.
+-- >         3 Passed on
+-- >              The information has been passed on.
+-- >         4 Final
+-- >              The amount has the status of finality.
+-- >         5 Subject to final payment
+-- >              The amount is subject to finality.
+-- >         6 Minimum
+-- >              The amount quoted is a minimum tariff.
+-- >         7 Fixed
+-- >              The amount quoted is a fixed tariff.
+-- >         8 Maximum
+-- >              The amount quoted is a maximum tariff.
+-- >         9 Information
+-- >              The amount is quoted for information only, it is not part
+-- >              of the charges to be deducted or added.
+-- >        10 0 day available
+-- >              The amount is available today.
+-- >        11 1 day available
+-- >              The amount is available on the next banking office day
+-- >              after the booking date.
+-- >        12 2 days available
+-- >              The amount is available on the second banking office day
+-- >              after the booking date.
+-- >        13 3 days available
+-- >              The amount available on the third banking office day
+-- >              after the booking date.
+-- >        14 Uncollected funds
+-- >              Funds not collected by beneficiary.
+-- >        15 Nil
+-- >              Self explanatory.
+-- >        16 None advised
+-- >              Self explanatory.
+-- >        17 Requested
+-- >              Self explanatory.
+-- >        18 Free of charge
+-- >              Self explanatory.
+-- >        19 Rounded
+-- >              Self explanatory.
+-- >        20 Permanent
+-- >              Self-explanatory.
+-- >        21 Temporary
+-- >              Self-explanatory.
+simple4405 :: Parser Value
+simple4405 = simple "4405" (alphaNumeric `upTo` 3)