specification/src/Text/Edifact/D96A/Simples/S9415.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Simples.S9415
   7   ( simple9415
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           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.
  57 simple9415 :: Parser Value
  58 simple9415 = simple "9415" (alphaNumeric `upTo` 3)