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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Simples.S9411
   7   ( simple9411
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- >   9411  Government involvement, coded
  16 -- >
  17 -- >   Desc: Indication of requirement and status of government
  18 -- >         involvement.
  19 -- >
  20 -- >   Repr: an..3
  21 -- >
  22 -- >         1 Carried out as instructed
  23 -- >              Instructions have been carried out.
  24 -- >         2 Carried out as amended
  25 -- >              Procedures have been carried out as amended.
  26 -- >         3 Completed
  27 -- >              Procedures have been completed.
  28 -- >         4 Not applicable
  29 -- >              Instructions are not applicable.
  30 -- >         5 Optimal
  31 -- >              An action which is most desirable but not required.
  32 -- >         6 Required
  33 -- >              Procedures are required.
  34 -- >         7 Applicable
  35 -- >              Procedures are applicable.
  36 simple9411 :: Parser Value
  37 simple9411 = simple "9411" (alphaNumeric `upTo` 3)