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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D01B.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 identification code                   [B]
  16 -- >
  17 -- >      Desc: Code identifying a government agency.
  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 -- >
  26 -- >      2     Ammunition
  27 -- >               Government agency responsible for the safe transport of
  28 -- >               ammunition.
  29 -- >
  30 -- >      3     Commerce
  31 -- >               Government agency responsible for commerce both domestic
  32 -- >               and international.
  33 -- >
  34 -- >      4     Coastguard
  35 -- >               Government agency responsible for public safety on
  36 -- >               waterways.
  37 -- >
  38 -- >      5     Customs
  39 -- >               Customs authorities.
  40 -- >
  41 -- >      6     Food and drug
  42 -- >               Government agency responsible for the safety on food and
  43 -- >               drugs.
  44 -- >
  45 -- >      7     Health certificate
  46 -- >               Health authorities.
  47 -- >
  48 -- >      8     Harbour police
  49 -- >               Police authorities responsible for public safety in the
  50 -- >               harbour.
  51 -- >
  52 -- >      9     Immigration
  53 -- >               Government agency responsible for immigration matters.
  54 -- >
  55 -- >      10    Live animals
  56 -- >               Government agency responsible for the importation of
  57 -- >               live animals.
  58 -- >
  59 -- >      11    Port authority
  60 -- >               Government or semi-government body responsible for port
  61 -- >               operations.
  62 -- >
  63 -- >      12    Public health
  64 -- >               Government body responsible for public health matters.
  65 -- >
  66 -- >      13    Transportation
  67 -- >               Government agency responsible for transportation policy
  68 -- >               and other transportation matters.
  69 simple9415 :: Parser Value
  70 simple9415 = simple "9415" (alphaNumeric `upTo` 3)