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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D01B.Simples.S6341
   7   ( simple6341
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- >      6341  Exchange rate currency market identifier                [C]
  16 -- >
  17 -- >      Desc: To identify an exchange rate currency market.
  18 -- >
  19 -- >      Repr: an..3
  20 -- >
  21 -- >      AAA   Paris exchange
  22 -- >               The currency exchange rate is set by the Paris exchange.
  23 -- >
  24 -- >      AAB   Colombian official exchange (Central Bank of Colombia)
  25 -- >               The currency exchange rate is set by the Central Bank of
  26 -- >               Colombia.
  27 -- >
  28 -- >      AMS   Amsterdam exchange
  29 -- >               The currency exchange rate is set by the Amsterdam
  30 -- >               exchange.
  31 -- >
  32 -- >      ARG   Bolsa de Comercio de Buenos Aires
  33 -- >               Argentina exchange.
  34 -- >
  35 -- >      AST   Australian exchange
  36 -- >               The currency exchange rate is set by the Australian
  37 -- >               exchange.
  38 -- >
  39 -- >      AUS   Wien exchange
  40 -- >               Wiener Boersenkammer.
  41 -- >
  42 -- >      BEL   Brussels exchange
  43 -- >               Commission de la Bourse Bruxelles.
  44 -- >
  45 -- >      CAN   Toronto exchange
  46 -- >               The currency exchange rate is set by the Toronto
  47 -- >               exchange.
  48 -- >
  49 -- >      CAR   Contractual agreement exchange rate
  50 -- >               The currency exchange rate is set by a written or spoken
  51 -- >               agreement between two or more parties.
  52 -- >
  53 -- >      CIE   US Customs Information Exchange
  54 -- >               Currency rates published by the US Customs Information
  55 -- >               Exchange, 6 WTC, New York NY 10048-0945, USA.
  56 -- >
  57 -- >      DEN   Copenhagen exchange
  58 -- >               Koebenhavns Fondsboers.
  59 -- >
  60 -- >      ECR   European Community period exchange rate
  61 -- >               The currency exchange rate is set for a length of time
  62 -- >               by the European Community.
  63 -- >
  64 -- >      FIN   Helsinki exchange
  65 -- >               The currency exchange rate is set by the Helsinki
  66 -- >               exchange.
  67 -- >
  68 -- >      FRA   Frankfurt exchange
  69 -- >               The currency exchange rate is set by the Frankfurt
  70 -- >               exchange.
  71 -- >
  72 -- >      IMF   International Monetary Fund
  73 -- >               The currency exchange rate is set by the International
  74 -- >               Monetary Fund.
  75 -- >
  76 -- >      LNF   London exchange, first closing
  77 -- >               The currency exchange rate is set by the London exchange
  78 -- >               at the first closing.
  79 -- >
  80 -- >      LNS   London exchange, second closing
  81 -- >               The currency exchange rate is set by the London exchange
  82 -- >               at the second closing.
  83 -- >
  84 -- >      MIL   Milan exchange
  85 -- >               The currency exchange rate is set by the Milan exchange.
  86 -- >
  87 -- >      NOR   Oslo exchange
  88 -- >               The currency exchange rate is set by the Oslo exchange.
  89 -- >
  90 -- >      NYC   New York exchange
  91 -- >               The currency exchange rate is set by the New York
  92 -- >               exchange.
  93 -- >
  94 -- >      PHI   Philadelphia exchange
  95 -- >               The currency exchange rate is set by the Philadelphia
  96 -- >               exchange.
  97 -- >
  98 -- >      SRE   Specific railway exchange currency
  99 -- >               Specific rate of exchange applied to currency exchanges
 100 -- >               between rail companies and partners.
 101 -- >
 102 -- >      SWE   Stockholm exchange
 103 -- >               The currency exchange rate is set by the Stockholm
 104 -- >               exchange.
 105 -- >
 106 -- >      ZUR   Zurich exchange
 107 -- >               The currency exchange rate is set by the Zurich
 108 -- >               exchange.
 109 simple6341 :: Parser Value
 110 simple6341 = simple "6341" (alphaNumeric `upTo` 3)