1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D01B.Simples.S9411
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 9411 Government involvement code [B]
17 -- > Desc: Code indicating the requirement and status of
18 -- > governmental involvement.
22 -- > 1 Carried out as instructed
23 -- > Instructions have been carried out.
25 -- > 2 Carried out as amended
26 -- > Procedures have been carried out as amended.
29 -- > Procedures have been completed.
32 -- > Instructions are not applicable.
35 -- > An action which is most desirable but not required.
38 -- > Procedures are required.
41 -- > Procedures are applicable.
42 simple9411 :: Parser Value
43 simple9411 = simple "9411" (alphaNumeric `upTo` 3)