1 files changed, 106 insertions, 0 deletions

diff --git a/specification/src/Text/Edifact/D96A/Simples/S4401.hs b/specification/src/Text/Edifact/D96A/Simples/S4401.hs
new file mode 100644
index 0000000..c5bd232
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Simples/S4401.hs
@@ -0,0 +1,106 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+---- Machine generated code.
+---- Output of edi-parser-scaffolder
+
+module Text.Edifact.D96A.Simples.S4401
+  ( simple4401
+  ) where
+
+import           Text.Edifact.Parsing
+import           Text.Edifact.Types   (Value)
+
+-- | Derived from this specification:
+--
+-- >   4401  Instruction, coded
+-- >
+-- >   Desc: Specification of an action to be taken by the receiver of the
+-- >         message.
+-- >
+-- >   Repr: an..3
+-- >
+-- >    AA     Send credit note
+-- >              Self explanatory.
+-- >    AB     Change invoice
+-- >              Send invoice, taking into account specified
+-- >              discrepancies.
+-- >    AD     Advise
+-- >              Instruction to advise a party.
+-- > X  AE     Change invoice
+-- >              Send invoice, taking into account specified
+-- >              discrepancies. Use code value AB.
+-- >    AF     Stop delivery process
+-- >              Self-explanatory.
+-- >    AG     Send replacement
+-- >              The identified item must be sent for replacement.
+-- >    AH     Pick-up
+-- >              The identified item is to be picked up.
+-- >    AI     Advise by telecommunication
+-- >              Advise of documentary credit by telecommunication.
+-- >    AJ     Advise by fax
+-- >              Instruction to advise party by fax.
+-- >    AK     By registered airmail
+-- >              Issue documentary credit by registered airmail.
+-- >    AL     By registered airmail in one set
+-- >              Deliver documents in one set by registered airmail.
+-- >    AM     By registered airmail in two sets
+-- >              Deliver documents in two sets by registered airmail.
+-- >    AP     Advise by phone
+-- >              Instruction to advise party by phone.
+-- >    AT     Advise by telex
+-- >              Instruction to advise party by telex.
+-- >    CO     Convert
+-- >              Convert the message into other format.
+-- >    DA     Without
+-- >              The bank advising the documentary credit is not requested
+-- >              to confirm the credit.
+-- >    DB     May add
+-- >              The bank advising the documentary credit may add its
+-- >              confirmation to the documentary credit.
+-- >    DC     Confirm
+-- >              The bank advising the documentary credit is requested to
+-- >              confirm the credit.
+-- >    DD     By registered mail
+-- >              Issue documentary credit by registered mail.
+-- >    DE     By courier service
+-- >              Issue documentary credit by courier service.
+-- >    DF     By teletransmission
+-- >              Issue documentary credit by teletransmission.
+-- >    DG     Preadvice by teletransmission
+-- >              Preadvise documentary credit by teletransmission.
+-- >    DH     By courier service in one set
+-- >              Deliver documents in one set by courier service.
+-- >    DI     By courier service in two sets
+-- >              Deliver documents in two sets by courier service.
+-- >    DJ     By registered mail in one set
+-- >              Deliver documents in one set by registered mail.
+-- >    DK     By registered mail in two sets
+-- >              Deliver documents in two sets by registered mail.
+-- >    DN     Per teletransmission
+-- >              Deliver documents by teletransmission.
+-- >    DO     Advise beneficiary by phone
+-- >              Advise beneficiary of documentary credit by phone.
+-- >    DP     Late presentation of documents within D/C validity
+-- >           acceptable
+-- >              Late presentation of documents with the documentary
+-- >              credit validity is acceptable.
+-- >    EI     EDI
+-- >              Instructions to advise beneficiary by EDI.
+-- >    EM     Electronic mail
+-- >              Instructions to advise beneficiary by electronic mail.
+-- >    EX     Expedite
+-- >              Forward the information to requested party immediately.
+-- >    QC     Quality control held
+-- >              Goods to be held from distribution by stockholder until a
+-- >              quality control assessment is completed by the
+-- >              manufacturer.
+-- >    QE     Quality control embargo
+-- >              Quality control assessment is negative, goods are to be
+-- >              held from distribution by stockholder.
+-- >    RL     Released
+-- >              Goods are released by manufacturer for distribution by
+-- >              stockholder.
+-- >    SW     S.W.I.F.T.
+-- >              Instructions to advise beneficiary by S.W.I.F.T.
+simple4401 :: Parser Value
+simple4401 = simple "4401" (alphaNumeric `upTo` 3)