1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D96A.Simples.S9353
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 9353 Government procedure, coded
17 -- > Desc: Code identifying the treatment applied by the government to
18 -- > goods which are subject to a control.
22 -- > 1 Already customs cleared in the importing country
23 -- > Arrangements for inspection are not necessary because
24 -- > they were cleared before.
25 -- > 2 Documents requirements completed
26 -- > All requirements for documents have been completed.
27 -- > 3 Documents required
28 -- > Pertinent documents are required.
29 -- > 4 Inspection arrangements completed
30 -- > Arrangements for inspection of the cargo have been
32 -- > 5 Inspection arrangements required
33 -- > Arrangements for inspection of the cargo are required.
34 -- > 6 No customs procedure
35 -- > Customs clearance not required.
36 -- > 7 Safety arrangements completed
37 -- > Arrangements for safeguarding the cargo have been
39 -- > 8 Safety arrangements required
40 -- > Arrangements for safeguarding the cargo are required.
41 -- > 9 Security arrangements required
42 -- > Arrangements for the security of the cargo are required.
43 -- > 10 Storage arrangements completed
44 -- > Arrangements for storing the cargo have been completed.
45 -- > 11 Storage arrangements required
46 -- > Arrangements for storing the cargo are required.
47 -- > 12 Transport arrangements completed
48 -- > All arrangements for transport have been completed.
49 -- > 13 Transport arrangements required
50 -- > Transport has to be arranged.
51 simple9353 :: Parser Value
52 simple9353 = simple "9353" (alphaNumeric `upTo` 3)