1 files changed, 58 insertions, 0 deletions

diff --git a/specification/src/Text/Edifact/D96A/Simples/S4343.hs b/specification/src/Text/Edifact/D96A/Simples/S4343.hs
new file mode 100644
index 0000000..3cf3cc9
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Simples/S4343.hs
@@ -0,0 +1,58 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+---- Machine generated code.
+---- Output of edi-parser-scaffolder
+
+module Text.Edifact.D96A.Simples.S4343
+  ( simple4343
+  ) where
+
+import           Text.Edifact.Parsing
+import           Text.Edifact.Types   (Value)
+
+-- | Derived from this specification:
+--
+-- > * 4343  Response type, coded
+-- >
+-- >   Desc: Code specifying the type of acknowledgement 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 acknowledge relating to receipt is
+-- >              required.
+-- >    AC     Acknowledge - with detail and change
+-- >              Acknowledge complete including changes.
+-- >    AD     Acknowledge - with detail, no change
+-- >              Acknowledge complete without changes.
+-- >    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.
+-- > +  AI     Acknowledge only changes
+-- >              Acknowledgement of changes only is required.
+-- >    AP     Accepted
+-- >              Indication that the referenced offer or transaction
+-- >              (e.g., cargo booking or quotation request) has been
+-- >              accepted.
+-- >    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
+-- >              Self explanatory.
+-- >    RE     Rejected
+-- >              Indication that the referenced offer or transaction
+-- >              (e.g., cargo booking or quotation request) is not
+-- >              accepted.
+simple4343 :: Parser Value
+simple4343 = simple "4343" (alphaNumeric `upTo` 3)