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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Simples.S4221
   7   ( simple4221
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- > * 4221  Discrepancy, coded
  16 -- >
  17 -- >   Desc: Code defining the disposition of any difference between the
  18 -- >         quantity ordered and invoiced, or shipped and invoiced for a
  19 -- >         line item or transaction.
  20 -- >
  21 -- >   Repr: an..3
  22 -- >
  23 -- > +  AA     Item discontinued by wholesaler
  24 -- >              The wholesaler no longer offers the ordered product.
  25 -- > +  AB     Item no longer produced
  26 -- >              The item ordered has been discontinued and is no longer
  27 -- >              in production.
  28 -- > +  AC     Over-shipped
  29 -- >              Code indicating that there was an excess quantity of
  30 -- >              goods in a shipment relative to the order.
  31 -- > +  AD     Item out of stock at manufacturer
  32 -- >              The item is out of stock at manufacturer.
  33 -- > +  AE     Delivered but not advised
  34 -- >              Shipment or goods have been delivered without any advance
  35 -- >              notification of delivery.
  36 -- > +  AF     Goods delivered damaged
  37 -- >              Part or all of the goods in a shipment were delivered
  38 -- >              damaged.
  39 -- > +  AG     Delivered too late
  40 -- >              Delivered but at a later date than the delivery date
  41 -- >              under the agreed conditions or stipulated in the order.
  42 -- >    AN     Available now - no shipping schedule
  43 -- >              Self explanatory.
  44 -- >    AS     Available now - scheduled to ship (date)
  45 -- >              Self explanatory.
  46 -- >    BK     Back ordered from previous order
  47 -- >              Self explanatory.
  48 -- >    BP     Shipment partial - back order to follow
  49 -- >              Self explanatory.
  50 -- >    CA     Customer inquiry - all items
  51 -- >              Self explanatory.
  52 -- >    CC     Shipment complete
  53 -- >              Self explanatory.
  54 -- >    CE     Shipment includes extra items to meet price break
  55 -- >              Self explanatory.
  56 -- >    CI     Customer inquiry - shipped items only
  57 -- >              Self explanatory.
  58 -- >    CK     Cancelled from previous order
  59 -- >              Self explanatory.
  60 -- >    CM     Shipment complete with additional quantity
  61 -- >              Self explanatory.
  62 -- >    CN     Next carrier, PVE - (date)
  63 -- >              Self explanatory.
  64 -- >    CO     Customer inquiry - unshipped items only
  65 -- >              Self explanatory.
  66 -- >    CP     Shipment partial - considered complete, no backorder
  67 -- >              Self explanatory.
  68 -- >    CS     Shipment complete with substitution
  69 -- >              Self explanatory.
  70 -- >    IC     Item cancelled
  71 -- >              Self explanatory.
  72 -- >    IS     Item represents substitution from original order
  73 -- >              Self explanatory.
  74 -- >    LS     Last shipment (date)
  75 -- >              Self explanatory.
  76 -- >    NF     Not yet published
  77 -- >              Self explanatory.
  78 -- >    NN     Not in process - no shipping schedule
  79 -- >              Self explanatory.
  80 -- >    NS     Not in process - schedule to ship (date)
  81 -- >              Self explanatory.
  82 -- >    OF     Order sent to factory for production (date)
  83 -- >              Self explanatory.
  84 -- >    OM     Item sent to factory for production (date)
  85 -- >              Self explanatory.
  86 -- >    OP     Out of print
  87 -- >              Self explanatory.
  88 -- >    OS     Item out of stock because of strike of force majeure
  89 -- >              Self explanatory.
  90 -- >    OW     Item out of stock at wholesaler
  91 -- >              Self explanatory.
  92 -- >    PA     Purchase order inquiry - all items
  93 -- >              Self explanatory.
  94 -- >    PD     Purchase order complete
  95 -- >              Self explanatory.
  96 -- >    PI     Purchase order inquiry - shipped items only
  97 -- >              Self explanatory.
  98 -- >    PK     Packed-to-date (date)
  99 -- >              Self explanatory.
 100 -- >    PN     In process - no shipping schedule
 101 -- >              Self explanatory.
 102 -- >    PO     Purchase order inquiry - unshipped items only
 103 -- >              Self explanatory.
 104 -- >    PP     Purchase order inquiry - specific items
 105 -- >              Self explanatory.
 106 -- >    PS     In process - scheduled to ship (date)
 107 -- >              Self explanatory.
 108 -- >    RA     Item rationed
 109 -- >              Self explanatory.
 110 -- >    SL     Shipped-to-date (date)
 111 -- >              Self explanatory.
 112 -- >    SP     Scheduled for production at factory
 113 -- >              Self explanatory.
 114 -- >    SS     Split shipment
 115 -- >              Shipment is only part of the ordered quantity.
 116 -- >    TW     Item temporary discontinued by wholesaler
 117 -- >              Self explanatory.
 118 -- >    UR     Unsolicited report
 119 -- >              Self explanatory.
 120 -- >    ZZZ    Mutually defined
 121 -- >              Self explanatory.
 122 simple4221 :: Parser Value
 123 simple4221 = simple "4221" (alphaNumeric `upTo` 3)