1 files changed, 112 insertions, 0 deletions

diff --git a/specification/src/Text/Edifact/D01B/Simples/S4343.hs b/specification/src/Text/Edifact/D01B/Simples/S4343.hs
new file mode 100644
index 0000000..18aa162
--- /dev/null
+++ b/specification/src/Text/Edifact/D01B/Simples/S4343.hs
@@ -0,0 +1,112 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+---- Machine generated code.
+---- Output of edi-parser-scaffolder
+
+module Text.Edifact.D01B.Simples.S4343
+  ( simple4343
+  ) where
+
+import           Text.Edifact.Parsing
+import           Text.Edifact.Types   (Value)
+
+-- | Derived from this specification:
+--
+-- > *    4343  Response type code                                      [C]
+-- >
+-- >      Desc: Code specifying the type of acknowledgment required or
+-- >            transmitted.
+-- >
+-- >      Repr: an..3
+-- >
+-- >      AA    Debit advice
+-- >               Receiver of the payment message needs to return a debit
+-- >               advice in response to the payment message.
+-- >
+-- >      AB    Message acknowledgement
+-- >               Indicates that an acknowledgement relating to receipt of
+-- >               message is required.
+-- >
+-- >      AC    Acknowledge - with detail and change
+-- >               Acknowledge complete including changes.
+-- >
+-- >      AD    Acknowledge - with detail, no change
+-- >               Acknowledge complete without changes.
+-- >
+-- >      AE    Debit advice for each transaction
+-- >               A debit advice is requested for each transaction in the
+-- >               message.
+-- >
+-- >      AF    Debit advice/message acknowledgement
+-- >               The sender wishes to receive both a Debit Advice and an
+-- >               acknowledgement of receipt for a payment message.
+-- >
+-- >      AG    Authentication
+-- >               Authentication, by a party, of a document established
+-- >               for him by another party.
+-- >
+-- >      AH    Debit advice/message acknowledgement for each transaction
+-- >               A debit advice and message acknowledgement are requested
+-- >               for each transaction in the message.
+-- >
+-- >      AI    Acknowledge only changes
+-- >               Acknowledgement of changes only is required.
+-- >
+-- >      AJ    Pending
+-- >               Indication that the referenced offer or transaction
+-- >               (e.g. cargo booking or quotation request) is being dealt
+-- >               with.
+-- >
+-- >      AP    Accepted
+-- >               Indication that the referenced offer or transaction
+-- >               (e.g., cargo booking or quotation request) has been
+-- >               accepted.
+-- >
+-- >      AQ    Response expected
+-- >               The sender of the message expects a response.
+-- >
+-- >      AR    Direct documentary credit collection
+-- >               Documentary credit collection forwarded directly.
+-- >
+-- >      AS    Credit advice and message acknowledgement
+-- >               The receiver of the message is to acknowledge receipt of
+-- >               the message and sent a credit advice for each credit.
+-- >
+-- >      CA    Conditionally accepted
+-- >               Indication that the referenced offer or transaction
+-- >               (e.g., cargo booking or quotation request) has been
+-- >               accepted under conditions indicated in this message.
+-- >
+-- >      CO    Confirmation of measurements
+-- >               Indication that the message contains the physical
+-- >               measurements on which the charges will be based.
+-- >
+-- >      NA    No acknowledgement needed
+-- >               Specifies that no acknowledgement is needed in response
+-- >               to this message.
+-- >
+-- >      RE    Rejected
+-- >               Indication that the referenced offer or transaction
+-- >               (e.g., cargo booking or quotation request) is not
+-- >               accepted.
+-- >
+-- >      UR    Credit advice
+-- >               The message recipient is to send a credit advice in
+-- >               response to the message.
+-- >
+-- >      US    Acknowledgement when error
+-- >               An acknowledgement is requested when an error occurred.
+-- >
+-- > +    UT    Acknowledgment due to error
+-- >               An acknowledgment is sent because an error was
+-- >               identified in the received message.
+-- >
+-- > +    UU    Alternate date
+-- >               The solution proposed in the response applies to another
+-- >               date than the one requested.
+-- >
+-- > +    UV    Alternate service
+-- >               The solution proposed in the response applies to another
+-- >               service than the one requested.
+simple4343 :: Parser Value
+simple4343 = simple "4343" (alphaNumeric `upTo` 3)