]> git.immae.eu Git - github/fretlink/edi-parser.git/blame - specification/src/Text/Edifact/D96A/Simples/S9415.hs
Release code as open source
[github/fretlink/edi-parser.git] / specification / src / Text / Edifact / D96A / Simples / S9415.hs
CommitLineData
a9d77a20
FM
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Simples.S9415
7 ( simple9415
8 ) where
9
10import Text.Edifact.Parsing
11import Text.Edifact.Types (Value)
12
13-- | Derived from this specification:
14--
15-- > 9415 Government agency, coded
16-- >
17-- > Desc: To indicate government agencies that are involved.
18-- >
19-- > Repr: an..3
20-- >
21-- > 1 Agriculture
22-- > Government agency responsible for agriculture and e.g.
23-- > the inspection of vegetable and animal substances being
24-- > imported.
25-- > 2 Ammunition
26-- > Government agency responsible for the safe transport of
27-- > ammunition.
28-- > 3 Commerce
29-- > Government agency responsible for commerce both domestic
30-- > and international.
31-- > 4 Coastguard
32-- > Government agency responsible for public safety on
33-- > waterways.
34-- > 5 Customs
35-- > Customs authorities.
36-- > 6 Food and drug
37-- > Government agency responsible for the safety on food and
38-- > drugs.
39-- > 7 Health certificate
40-- > Health authorities.
41-- > 8 Harbour police
42-- > Police authorities responsible for public safety in the
43-- > harbour.
44-- > 9 Immigration
45-- > Government agency responsible for immigration matters.
46-- > 10 Live animals
47-- > Government agency responsible for the importation of live
48-- > animals.
49-- > 11 Port authority
50-- > Government or semi-government body responsible for port
51-- > operations.
52-- > 12 Public health
53-- > Government body responsible for public health matters.
54-- > 13 Transportation
55-- > Government agency responsible for transportation policy
56-- > and other transportation matters.
57simple9415 :: Parser Value
58simple9415 = simple "9415" (alphaNumeric `upTo` 3)