specification/src/Text/Edifact/D96A/Simples/S4295.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Simples.S4295
   7   ( simple4295
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- > * 4295  Change reason, coded
  16 -- >
  17 -- >   Desc: Identification of the reason for a change.
  18 -- >
  19 -- >   Repr: an..3
  20 -- >
  21 -- >    AA     Member attribute change
  22 -- >              An attribute of a member of a group has changed.
  23 -- >    AB     Abroad
  24 -- >              In an other country.
  25 -- >    AC     Member category change
  26 -- >              The member or benefits category has changed.
  27 -- >    AD     Death
  28 -- >              Subject has died.
  29 -- >    AE     Disability
  30 -- >              Subject is disabled.
  31 -- >    AF     Early retirement
  32 -- >              Retirement before the normal retirement age.
  33 -- >    AG     Hardship
  34 -- >              Subject is incurring hardship.
  35 -- >    AH     Ill health
  36 -- >              Subject has ill health.
  37 -- >    AI     Leaving employer
  38 -- >              Subject is leaving employer.
  39 -- >    AJ     Leaving industry
  40 -- >              Person is leaving, or has left, an identified industry.
  41 -- >    AK     Level/rate table change
  42 -- >              The insurance level/rate table has changed.
  43 -- >    AL     Normal retirement
  44 -- >              Subject has retired at the normal retirement age.
  45 -- >    AM     Other
  46 -- >              Reason differs from any of the other coded values.
  47 -- >    AN     Retrenchment
  48 -- >              Subject has been retrenched from work.
  49 -- >    AO     Resignation
  50 -- >              Subject has resigned from work.
  51 -- >    AP     Member status change
  52 -- >              The member status has changed.
  53 -- >    AQ     Alternate quantity and unit of measurement
  54 -- >              Self explanatory.
  55 -- > +  AR     Article out of assortment for particular company
  56 -- >              Item normally part of a suppliers standard assortment but
  57 -- >              is unavailable for a specific buyer due to legal or
  58 -- >              commercial reasons.
  59 -- > +  AS     Article out of assortment
  60 -- >              Article normally part of a standard assortment is
  61 -- >              unavailable.
  62 -- > +  AT     Item not ordered
  63 -- >              Code indicating the item or product was not ordered.
  64 -- > +  AU     No delivery due to outstanding payments
  65 -- >              Delivery of an item was stopped due to outstanding
  66 -- >              deliveries which have not yet been paid.
  67 -- > +  AV     Out of inventory
  68 -- >              Item is out of inventory.
  69 -- >    BD     Blueprint deviation
  70 -- >              Self explanatory.
  71 -- >    BQ     Balancing quantity
  72 -- >              Amount needed to resolve difference between ordered and
  73 -- >              delivered quantity.
  74 -- >    DC     Date change
  75 -- >              Self explanatory.
  76 -- >    EV     Estimated quantity
  77 -- >              Self explanatory.
  78 -- >    GU     Gross volume per pack and unit of measure
  79 -- >              Self explanatory.
  80 -- >    GW     Gross weight per pack
  81 -- >              Self explanatory.
  82 -- >    LD     Length difference
  83 -- >              Self explanatory.
  84 -- >    MC     Pack/size measure difference
  85 -- >              Description to be provided.
  86 -- >    PC     Pack difference
  87 -- >              Self-explanatory.
  88 -- >    PD     Pack dimension difference
  89 -- >              Description to be provided.
  90 -- >    PQ     Pack quantity
  91 -- >              Self explanatory.
  92 -- >    PS     Product/services ID change
  93 -- >              Self explanatory.
  94 -- >    PW     Pack weight difference
  95 -- >              Self explanatory.
  96 -- >    PZ     Pack size difference
  97 -- >              Self-explanatory.
  98 -- >    QO     Quantity ordered
  99 -- >              Self explanatory.
 100 -- >    QP     Quantity based on price qualifier
 101 -- >              Self explanatory.
 102 -- >    QT     Quantity price break
 103 -- >              Self explanatory.
 104 -- >    SC     Size difference
 105 -- >              Self explanatory.
 106 -- >    UM     Unit of measure difference
 107 -- >              Self explanatory.
 108 -- >    UP     Unit price
 109 -- >              Self explanatory.
 110 -- >    WD     Width difference
 111 -- >              Self explanatory.
 112 -- >    WO     Weight qualifier/gross weight per package
 113 -- >              Self explanatory.
 114 -- >    ZZZ    Mutually defined
 115 -- >              Self explanatory.
 116 simple4295 :: Parser Value
 117 simple4295 = simple "4295" (alphaNumeric `upTo` 3)