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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Simples.S7297
   7   ( simple7297
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- > * 7297  Set identification qualifier
  16 -- >
  17 -- >   Desc: Identification of the type of set.
  18 -- >
  19 -- >   Repr: an..3
  20 -- >
  21 -- >         1 Product
  22 -- >              Self explanatory.
  23 -- >         2 Licence
  24 -- >              Description to be provided.
  25 -- >         3 Package
  26 -- >              Related numbers identifying a package such as a bar code
  27 -- >              label number related to a kanban card number, etc.
  28 -- >         4 Vehicle reference set
  29 -- >              A code which indicates that the identities which follow
  30 -- >              are related to a particular vehicle which may have been
  31 -- >              previously identified.
  32 -- >         5 Source database
  33 -- >              The source database of the data in a data set.
  34 -- >         6 Target database
  35 -- >              The target database for the data in a data set.
  36 -- >         7 Value list
  37 -- >              A coded or non coded list of values.
  38 -- > +       8 Contract
  39 -- >              The contract related item numbers.
  40 -- > +       9 Financial security
  41 -- >              Financial security identifier set.
  42 simple7297 :: Parser Value
  43 simple7297 = simple "7297" (alphaNumeric `upTo` 3)