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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Simples.S5375
   7   ( simple5375
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- > * 5375  Price type, coded
  16 -- >
  17 -- >   Desc: Code identifying the type of price of an item.
  18 -- >
  19 -- >   Repr: an..3
  20 -- >
  21 -- >    AA     Cancellation price
  22 -- >              Price authorized to be charged in the event of an order
  23 -- >              being cancelled.
  24 -- >    AB     Per ton
  25 -- >              To indicate that the price applies per ton.
  26 -- > +  AC     Minimum order price
  27 -- >              A code to identify the price when the minimum number is
  28 -- >              purchased.
  29 -- > +  AD     Export price
  30 -- >              A code to identify the price of a given article for the
  31 -- >              export market.
  32 -- > +  AE     Range dependent price
  33 -- >              A code identifying the price for a specific range of
  34 -- >              purchase quantities.
  35 -- >    AI     Active ingredient
  36 -- >              The price is referring to the active ingredient.
  37 -- >    AQ     As is quantity
  38 -- >              The price is referring to the measured quantity.
  39 -- >    CA     Catalogue
  40 -- >              Self explanatory.
  41 -- >    CT     Contract
  42 -- >              Self explanatory.
  43 -- >    CU     Consumer unit
  44 -- >              The price is referring to the consumer unit.
  45 -- >    DI     Distributor
  46 -- >              Self explanatory.
  47 -- >    EC     ECSC price
  48 -- >              Price registered at European Commission Steel and Carbon
  49 -- >              office (DG III).
  50 -- >    NW     Net weight
  51 -- >              Self explanatory.
  52 -- >    PC     Price catalogue
  53 -- >              Self explanatory.
  54 -- >    PE     Per each
  55 -- >              Self explanatory.
  56 -- >    PK     Per kilogram
  57 -- >              Self explanatory.
  58 -- >    PL     Per litre
  59 -- >              Self explanatory.
  60 -- >    PT     Per tonne
  61 -- >              Self explanatory.
  62 -- >    PU     Specified unit
  63 -- >              Self explanatory.
  64 -- >    PV     Provisional price
  65 -- >              Self explanatory.
  66 -- >    PW     Gross weight
  67 -- >              Self explanatory.
  68 -- >    QT     Quoted
  69 -- >              Self explanatory.
  70 -- >    SR     Suggested retail
  71 -- >              Self explanatory.
  72 -- >    TB     To be negotiated
  73 -- >              Self explanatory.
  74 -- >    TU     Traded unit
  75 -- >              The price is referring to the traded unit.
  76 -- >    TW     Theoretical weight
  77 -- >              Weight calculated on ordered dimension (length, width,
  78 -- >              thickness) not on final dimension (e.g. steel products).
  79 -- >    WH     Wholesale
  80 -- >              Self explanatory.
  81 simple5375 :: Parser Value
  82 simple5375 = simple "5375" (alphaNumeric `upTo` 3)