aboutsummaryrefslogtreecommitdiffhomepage
path: root/specification/src/Text/Edifact/D96A/Simples/S9353.hs
diff options
context:
space:
mode:
authorFrédéric Menou <frederic.menou@fretlink.com>2016-12-08 10:19:15 +0200
committerIsmaël Bouya <ismael.bouya@fretlink.com>2022-05-17 18:01:51 +0200
commita9d77a20008efe82862cc1adbfa7a6d4f09f8ff7 (patch)
treeadf3186fdccaeef19151026cdfbd38a530cf9ecb /specification/src/Text/Edifact/D96A/Simples/S9353.hs
downloadedi-parser-a9d77a20008efe82862cc1adbfa7a6d4f09f8ff7.tar.gz
edi-parser-a9d77a20008efe82862cc1adbfa7a6d4f09f8ff7.tar.zst
edi-parser-a9d77a20008efe82862cc1adbfa7a6d4f09f8ff7.zip
Release code as open sourceHEADmaster
Diffstat (limited to 'specification/src/Text/Edifact/D96A/Simples/S9353.hs')
-rw-r--r--specification/src/Text/Edifact/D96A/Simples/S9353.hs52
1 files changed, 52 insertions, 0 deletions
diff --git a/specification/src/Text/Edifact/D96A/Simples/S9353.hs b/specification/src/Text/Edifact/D96A/Simples/S9353.hs
new file mode 100644
index 0000000..ca44dab
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Simples/S9353.hs
@@ -0,0 +1,52 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Simples.S9353
7 ( simple9353
8 ) where
9
10import Text.Edifact.Parsing
11import Text.Edifact.Types (Value)
12
13-- | Derived from this specification:
14--
15-- > 9353 Government procedure, coded
16-- >
17-- > Desc: Code identifying the treatment applied by the government to
18-- > goods which are subject to a control.
19-- >
20-- > Repr: an..3
21-- >
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
31-- > completed.
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
38-- > completed.
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.
51simple9353 :: Parser Value
52simple9353 = simple "9353" (alphaNumeric `upTo` 3)