1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D01B.Simples.S9353
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 9353 Government procedure code [B]
17 -- > Desc: Code specifying a government procedure.
21 -- > 1 Already customs cleared in the importing country
22 -- > Arrangements for inspection are not necessary because
23 -- > they were cleared before.
25 -- > 2 Documents requirements completed
26 -- > All requirements for documents have been completed.
28 -- > 3 Documents required
29 -- > Pertinent documents are required.
31 -- > 4 Inspection arrangements completed
32 -- > Arrangements for inspection of the cargo have been
35 -- > 5 Inspection arrangements required
36 -- > Arrangements for inspection of the cargo are required.
38 -- > 6 No customs procedure
39 -- > Customs clearance not required.
41 -- > 7 Safety arrangements completed
42 -- > Arrangements for safeguarding the cargo have been
45 -- > 8 Safety arrangements required
46 -- > Arrangements for safeguarding the cargo are required.
48 -- > 9 Security arrangements required
49 -- > Arrangements for the security of the cargo are required.
51 -- > 10 Storage arrangements completed
52 -- > Arrangements for storing the cargo have been completed.
54 -- > 11 Storage arrangements required
55 -- > Arrangements for storing the cargo are required.
57 -- > 12 Transport arrangements completed
58 -- > All arrangements for transport have been completed.
60 -- > 13 Transport arrangements required
61 -- > Transport has to be arranged.
62 simple9353 :: Parser Value
63 simple9353 = simple "9353" (alphaNumeric `upTo` 3)