1 files changed, 123 insertions, 0 deletions

diff --git a/specification/src/Text/Edifact/D96A/Simples/S4221.hs b/specification/src/Text/Edifact/D96A/Simples/S4221.hs
new file mode 100644
index 0000000..23a7de2
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Simples/S4221.hs
@@ -0,0 +1,123 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+---- Machine generated code.
+---- Output of edi-parser-scaffolder
+
+module Text.Edifact.D96A.Simples.S4221
+  ( simple4221
+  ) where
+
+import           Text.Edifact.Parsing
+import           Text.Edifact.Types   (Value)
+
+-- | Derived from this specification:
+--
+-- > * 4221  Discrepancy, coded
+-- >
+-- >   Desc: Code defining the disposition of any difference between the
+-- >         quantity ordered and invoiced, or shipped and invoiced for a
+-- >         line item or transaction.
+-- >
+-- >   Repr: an..3
+-- >
+-- > +  AA     Item discontinued by wholesaler
+-- >              The wholesaler no longer offers the ordered product.
+-- > +  AB     Item no longer produced
+-- >              The item ordered has been discontinued and is no longer
+-- >              in production.
+-- > +  AC     Over-shipped
+-- >              Code indicating that there was an excess quantity of
+-- >              goods in a shipment relative to the order.
+-- > +  AD     Item out of stock at manufacturer
+-- >              The item is out of stock at manufacturer.
+-- > +  AE     Delivered but not advised
+-- >              Shipment or goods have been delivered without any advance
+-- >              notification of delivery.
+-- > +  AF     Goods delivered damaged
+-- >              Part or all of the goods in a shipment were delivered
+-- >              damaged.
+-- > +  AG     Delivered too late
+-- >              Delivered but at a later date than the delivery date
+-- >              under the agreed conditions or stipulated in the order.
+-- >    AN     Available now - no shipping schedule
+-- >              Self explanatory.
+-- >    AS     Available now - scheduled to ship (date)
+-- >              Self explanatory.
+-- >    BK     Back ordered from previous order
+-- >              Self explanatory.
+-- >    BP     Shipment partial - back order to follow
+-- >              Self explanatory.
+-- >    CA     Customer inquiry - all items
+-- >              Self explanatory.
+-- >    CC     Shipment complete
+-- >              Self explanatory.
+-- >    CE     Shipment includes extra items to meet price break
+-- >              Self explanatory.
+-- >    CI     Customer inquiry - shipped items only
+-- >              Self explanatory.
+-- >    CK     Cancelled from previous order
+-- >              Self explanatory.
+-- >    CM     Shipment complete with additional quantity
+-- >              Self explanatory.
+-- >    CN     Next carrier, PVE - (date)
+-- >              Self explanatory.
+-- >    CO     Customer inquiry - unshipped items only
+-- >              Self explanatory.
+-- >    CP     Shipment partial - considered complete, no backorder
+-- >              Self explanatory.
+-- >    CS     Shipment complete with substitution
+-- >              Self explanatory.
+-- >    IC     Item cancelled
+-- >              Self explanatory.
+-- >    IS     Item represents substitution from original order
+-- >              Self explanatory.
+-- >    LS     Last shipment (date)
+-- >              Self explanatory.
+-- >    NF     Not yet published
+-- >              Self explanatory.
+-- >    NN     Not in process - no shipping schedule
+-- >              Self explanatory.
+-- >    NS     Not in process - schedule to ship (date)
+-- >              Self explanatory.
+-- >    OF     Order sent to factory for production (date)
+-- >              Self explanatory.
+-- >    OM     Item sent to factory for production (date)
+-- >              Self explanatory.
+-- >    OP     Out of print
+-- >              Self explanatory.
+-- >    OS     Item out of stock because of strike of force majeure
+-- >              Self explanatory.
+-- >    OW     Item out of stock at wholesaler
+-- >              Self explanatory.
+-- >    PA     Purchase order inquiry - all items
+-- >              Self explanatory.
+-- >    PD     Purchase order complete
+-- >              Self explanatory.
+-- >    PI     Purchase order inquiry - shipped items only
+-- >              Self explanatory.
+-- >    PK     Packed-to-date (date)
+-- >              Self explanatory.
+-- >    PN     In process - no shipping schedule
+-- >              Self explanatory.
+-- >    PO     Purchase order inquiry - unshipped items only
+-- >              Self explanatory.
+-- >    PP     Purchase order inquiry - specific items
+-- >              Self explanatory.
+-- >    PS     In process - scheduled to ship (date)
+-- >              Self explanatory.
+-- >    RA     Item rationed
+-- >              Self explanatory.
+-- >    SL     Shipped-to-date (date)
+-- >              Self explanatory.
+-- >    SP     Scheduled for production at factory
+-- >              Self explanatory.
+-- >    SS     Split shipment
+-- >              Shipment is only part of the ordered quantity.
+-- >    TW     Item temporary discontinued by wholesaler
+-- >              Self explanatory.
+-- >    UR     Unsolicited report
+-- >              Self explanatory.
+-- >    ZZZ    Mutually defined
+-- >              Self explanatory.
+simple4221 :: Parser Value
+simple4221 = simple "4221" (alphaNumeric `upTo` 3)