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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Simples.S1229
   7   ( simple1229
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- > * 1229  Action request/notification, coded
  16 -- >
  17 -- >   Desc: Code specifying the action to be taken or already taken.
  18 -- >
  19 -- >   Repr: an..3
  20 -- >
  21 -- >         1 Added
  22 -- >              This line item is added to the referenced message.
  23 -- >         2 Deleted
  24 -- >              This line item is deleted from the referenced message.
  25 -- >         3 Changed
  26 -- >              This line item is changed in the referenced message.
  27 -- >         4 No action
  28 -- >              This line item is not affected by the actual message.
  29 -- >         5 Accepted without amendment
  30 -- >              This line item is entirely accepted by the seller.
  31 -- >         6 Accepted with amendment
  32 -- >              This line item is accepted but amended by the seller.
  33 -- >         7 Not accepted
  34 -- >              This line item is not accepted by the seller.
  35 -- >         8 Schedule only
  36 -- >              Self explanatory.
  37 -- >         9 Amendments
  38 -- >              Self explanatory.
  39 -- >        10 Not found
  40 -- >              This line item is not found in the referenced message.
  41 -- >        11 Not amended
  42 -- >              This line is not amended by the buyer.
  43 -- >        12 Line item numbers changed
  44 -- >              Self explanatory.
  45 -- >        13 Buyer has deducted amount
  46 -- >              Buyer has deducted amount from payment.
  47 -- >        14 Buyer claims against invoice
  48 -- >              Buyer has a claim against an outstanding invoice.
  49 -- >        15 Charge back by seller
  50 -- >              Factor has been requested to charge back the outstanding
  51 -- >              item.
  52 -- >        16 Seller will issue credit note
  53 -- >              Seller agrees to issue a credit note.
  54 -- >        17 Terms changed for new terms
  55 -- >              New settlement terms have been agreed.
  56 -- >        18 Abide outcome of negotiations
  57 -- >              Factor agrees to abide by the outcome of negotiations
  58 -- >              between seller and buyer.
  59 -- >        19 Seller rejects dispute
  60 -- >              Seller does not accept validity of dispute.
  61 -- >        20 Settlement
  62 -- >              The reported situation is settled.
  63 -- >        21 No delivery
  64 -- >              Code indicating that no delivery will be required.
  65 -- >        22 Call-off delivery
  66 -- >              A request for delivery of a particular quantity of goods
  67 -- >              to be delivered on a particular date (or within a
  68 -- >              particular period).
  69 -- >        23 Proposed amendment
  70 -- >              A code used to indicate an amendment suggested by the
  71 -- >              sender.
  72 -- > +      24 Accepted with amendment, no confirmation required
  73 -- >              Accepted with changes which require no confirmation.
  74 simple1229 :: Parser Value
  75 simple1229 = simple "1229" (alphaNumeric `upTo` 3)