1 files changed, 117 insertions, 0 deletions

diff --git a/specification/src/Text/Edifact/D96A/Simples/S4295.hs b/specification/src/Text/Edifact/D96A/Simples/S4295.hs
new file mode 100644
index 0000000..36a8607
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Simples/S4295.hs
@@ -0,0 +1,117 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+---- Machine generated code.
+---- Output of edi-parser-scaffolder
+
+module Text.Edifact.D96A.Simples.S4295
+  ( simple4295
+  ) where
+
+import           Text.Edifact.Parsing
+import           Text.Edifact.Types   (Value)
+
+-- | Derived from this specification:
+--
+-- > * 4295  Change reason, coded
+-- >
+-- >   Desc: Identification of the reason for a change.
+-- >
+-- >   Repr: an..3
+-- >
+-- >    AA     Member attribute change
+-- >              An attribute of a member of a group has changed.
+-- >    AB     Abroad
+-- >              In an other country.
+-- >    AC     Member category change
+-- >              The member or benefits category has changed.
+-- >    AD     Death
+-- >              Subject has died.
+-- >    AE     Disability
+-- >              Subject is disabled.
+-- >    AF     Early retirement
+-- >              Retirement before the normal retirement age.
+-- >    AG     Hardship
+-- >              Subject is incurring hardship.
+-- >    AH     Ill health
+-- >              Subject has ill health.
+-- >    AI     Leaving employer
+-- >              Subject is leaving employer.
+-- >    AJ     Leaving industry
+-- >              Person is leaving, or has left, an identified industry.
+-- >    AK     Level/rate table change
+-- >              The insurance level/rate table has changed.
+-- >    AL     Normal retirement
+-- >              Subject has retired at the normal retirement age.
+-- >    AM     Other
+-- >              Reason differs from any of the other coded values.
+-- >    AN     Retrenchment
+-- >              Subject has been retrenched from work.
+-- >    AO     Resignation
+-- >              Subject has resigned from work.
+-- >    AP     Member status change
+-- >              The member status has changed.
+-- >    AQ     Alternate quantity and unit of measurement
+-- >              Self explanatory.
+-- > +  AR     Article out of assortment for particular company
+-- >              Item normally part of a suppliers standard assortment but
+-- >              is unavailable for a specific buyer due to legal or
+-- >              commercial reasons.
+-- > +  AS     Article out of assortment
+-- >              Article normally part of a standard assortment is
+-- >              unavailable.
+-- > +  AT     Item not ordered
+-- >              Code indicating the item or product was not ordered.
+-- > +  AU     No delivery due to outstanding payments
+-- >              Delivery of an item was stopped due to outstanding
+-- >              deliveries which have not yet been paid.
+-- > +  AV     Out of inventory
+-- >              Item is out of inventory.
+-- >    BD     Blueprint deviation
+-- >              Self explanatory.
+-- >    BQ     Balancing quantity
+-- >              Amount needed to resolve difference between ordered and
+-- >              delivered quantity.
+-- >    DC     Date change
+-- >              Self explanatory.
+-- >    EV     Estimated quantity
+-- >              Self explanatory.
+-- >    GU     Gross volume per pack and unit of measure
+-- >              Self explanatory.
+-- >    GW     Gross weight per pack
+-- >              Self explanatory.
+-- >    LD     Length difference
+-- >              Self explanatory.
+-- >    MC     Pack/size measure difference
+-- >              Description to be provided.
+-- >    PC     Pack difference
+-- >              Self-explanatory.
+-- >    PD     Pack dimension difference
+-- >              Description to be provided.
+-- >    PQ     Pack quantity
+-- >              Self explanatory.
+-- >    PS     Product/services ID change
+-- >              Self explanatory.
+-- >    PW     Pack weight difference
+-- >              Self explanatory.
+-- >    PZ     Pack size difference
+-- >              Self-explanatory.
+-- >    QO     Quantity ordered
+-- >              Self explanatory.
+-- >    QP     Quantity based on price qualifier
+-- >              Self explanatory.
+-- >    QT     Quantity price break
+-- >              Self explanatory.
+-- >    SC     Size difference
+-- >              Self explanatory.
+-- >    UM     Unit of measure difference
+-- >              Self explanatory.
+-- >    UP     Unit price
+-- >              Self explanatory.
+-- >    WD     Width difference
+-- >              Self explanatory.
+-- >    WO     Weight qualifier/gross weight per package
+-- >              Self explanatory.
+-- >    ZZZ    Mutually defined
+-- >              Self explanatory.
+simple4295 :: Parser Value
+simple4295 = simple "4295" (alphaNumeric `upTo` 3)