core/src/Text/Edifact/Common/Simples.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 module Text.Edifact.Common.Simples
   4   ( simple0001
   5   , simple0002
   6   , simple0004
   7   , simple0007
   8   , simple0008
   9   , simple0010
  10   , simple0014
  11   , simple0017
  12   , simple0019
  13   , simple0020
  14   , simple0022
  15   , simple0025
  16   , simple0026
  17   , simple0029
  18   , simple0031
  19   , simple0032
  20   , simple0035
  21   , simple0036
  22   , simple0042
  23   , simple0046
  24   , simple0051
  25   , simple0052
  26   , simple0054
  27   , simple0057
  28   , simple0062
  29   , simple0065
  30   , simple0068
  31   , simple0070
  32   , simple0073
  33   , simple0074
  34   , simple0080
  35   , simple0081
  36   , simple0133
  37   ) where
  38
  39 import           Text.Edifact.Parsing
  40 import           Text.Edifact.Types   (Value)
  41
  42 -- | Derived from this specification:
  43 --
  44 -- > 0001  Syntax identifier
  45 -- > Repr: a4
  46 simple0001 :: Parser Value
  47 simple0001 = simple "0001" (alpha `exactly` 4)
  48
  49 -- | Derived from this specification:
  50 --
  51 -- > 0002  Syntax version number
  52 -- > Repr: an1
  53 simple0002 :: Parser Value
  54 simple0002 = simple "0002" (alphaNumeric `exactly` 1)
  55
  56 -- | Derived from this specification:
  57 --
  58 -- > 0004  Interchange sender identification
  59 -- > Repr: an..35
  60 simple0004 :: Parser Value
  61 simple0004 = simple "0004" (alphaNumeric `upTo` 35)
  62
  63 -- | Derived from this specification:
  64 --
  65 -- > 0007  Identification code qualifier
  66 -- > Repr: an..4
  67 simple0007 :: Parser Value
  68 simple0007 = simple "0007" (alphaNumeric `upTo` 4)
  69
  70 -- | Derived from this specification:
  71 --
  72 -- > 0008  Interchange sender internal identification
  73 -- > Repr: an..35
  74 simple0008 :: Parser Value
  75 simple0008 = simple "0008" (alphaNumeric `upTo` 35)
  76
  77 -- | Derived from this specification:
  78 --
  79 -- > 0010  Interchange recipient identification
  80 -- > Repr: an..35
  81 simple0010 :: Parser Value
  82 simple0010 = simple "0010" (alphaNumeric `upTo` 35)
  83
  84 -- | Derived from this specification:
  85 --
  86 -- > 0014  Interchange recipient internal identification
  87 -- > Repr: an..35
  88 simple0014 :: Parser Value
  89 simple0014 = simple "0014" (alphaNumeric `upTo` 35)
  90
  91 -- | Derived from this specification:
  92 --
  93 -- > 0017  Date
  94 -- > Repr: n6
  95 simple0017 :: Parser Value
  96 simple0017 = simple "0017" (numeric `exactly` 6)
  97
  98 -- | Derived from this specification:
  99 --
 100 -- > 0019  Time
 101 -- > Repr: n4
 102 simple0019 :: Parser Value
 103 simple0019 = simple "0019" (numeric `exactly` 4)
 104
 105 -- | Derived from this specification:
 106 --
 107 -- > 0020  Interchange control reference
 108 -- > Repr: an..14
 109 simple0020 :: Parser Value
 110 simple0020 = simple "0020" (alphaNumeric `upTo` 14)
 111
 112 -- | Derived from this specification:
 113 --
 114 -- > 0022  Recipient reference/password
 115 -- > Repr: an..14
 116 simple0022 :: Parser Value
 117 simple0022 = simple "0022" (alphaNumeric `upTo` 14)
 118
 119 -- | Derived from this specification:
 120 --
 121 -- > 0025  Recipient reference/password qualifier
 122 -- > Repr: an2
 123 simple0025 :: Parser Value
 124 simple0025 = simple "0025" (alphaNumeric `exactly` 2)
 125
 126 -- | Derived from this specification:
 127 --
 128 -- > 0026  Application reference
 129 -- > Repr: an..14
 130 simple0026 :: Parser Value
 131 simple0026 = simple "0026" (alphaNumeric `upTo` 14)
 132
 133 -- | Derived from this specification:
 134 --
 135 -- > 0029  Processing priority code
 136 -- > Repr: a1
 137 simple0029 :: Parser Value
 138 simple0029 = simple "0029" (alphaNumeric `exactly` 1)
 139
 140 -- | Derived from this specification:
 141 --
 142 -- > 0031  Acknowledgement request
 143 -- > Repr: n1
 144 simple0031 :: Parser Value
 145 simple0031 = simple "0031" (numeric `exactly` 1)
 146
 147 -- | Derived from this specification:
 148 --
 149 -- > 0032  Interchange agreement identifier
 150 -- > Repr: an..35
 151 simple0032 :: Parser Value
 152 simple0032 = simple "0032" (alphaNumeric `upTo` 35)
 153
 154 -- | Derived from this specification:
 155 --
 156 -- > 0035  Test indicator
 157 -- > Repr: n1
 158 simple0035 :: Parser Value
 159 simple0035 = simple "0035" (numeric `exactly` 1)
 160
 161 -- | Derived from this specification:
 162 --
 163 -- > 0036  Interchange control count
 164 -- > Repr: n..6
 165 simple0036 :: Parser Value
 166 simple0036 = simple "0036" (numeric `upTo` 6)
 167
 168 -- | Derived from this specification:
 169 --
 170 -- > 0042  Interchange sender internal sub-identification
 171 -- > Repr: an..35
 172 simple0042 :: Parser Value
 173 simple0042 = simple "0042" (alphaNumeric `upTo` 35)
 174
 175 -- | Derived from this specification:
 176 --
 177 -- > 0046  Interchange recipient internal sub-identification
 178 -- > Repr: an..35
 179 simple0046 :: Parser Value
 180 simple0046 = simple "0046" (alphaNumeric `upTo` 35)
 181
 182 -- | Derived from this specification:
 183 --
 184 -- > 0051  Controlling agency
 185 -- > Repr: an..2
 186 simple0051 :: Parser Value
 187 simple0051 = simple "0051" (alphaNumeric `upTo` 2)
 188
 189 -- | Derived from this specification:
 190 --
 191 -- > 0052  Message version number
 192 -- > Repr: an..3
 193 simple0052 :: Parser Value
 194 simple0052 = simple "0052" (alphaNumeric `upTo` 3)
 195
 196 -- | Derived from this specification:
 197 --
 198 -- > 0054  Message release number
 199 -- > Repr: an..3
 200 simple0054 :: Parser Value
 201 simple0054 = simple "0054" (alphaNumeric `upTo` 3)
 202
 203 -- | Derived from this specification:
 204 --
 205 -- > 0057  Association assigned code
 206 -- > Repr: an..6
 207 simple0057 :: Parser Value
 208 simple0057 = simple "0057" (alphaNumeric `upTo` 6)
 209
 210 -- | Derived from this specification:
 211 --
 212 -- > 0062  MESSAGE REFERENCE NUMBER
 213 -- > Repr: an..14
 214 simple0062 :: Parser Value
 215 simple0062 = simple "0062" (alphaNumeric `upTo` 14)
 216
 217 -- | Derived from this specification:
 218 --
 219 -- > 0065  Message type
 220 -- > Repr: an..6
 221 simple0065 :: Parser Value
 222 simple0065 = simple "0065" (alphaNumeric `upTo` 6)
 223
 224 -- | Derived from this specification:
 225 --
 226 -- > 0068  COMMON ACCESS REFERENCE
 227 -- > Repr: an..35
 228 simple0068 :: Parser Value
 229 simple0068 = simple "0068" (alphaNumeric `upTo` 35)
 230
 231 -- | Derived from this specification:
 232 --
 233 -- > 0070  Sequence of transfers
 234 -- > Repr: n..2
 235 simple0070 :: Parser Value
 236 simple0070 = simple "0070" (numeric `upTo` 2)
 237
 238 -- | Derived from this specification:
 239 --
 240 -- > 0073  First and last transfer
 241 -- > Repr: a1
 242 simple0073 :: Parser Value
 243 simple0073 = simple "0073" (alpha `exactly` 1)
 244
 245 -- | Derived from this specification:
 246 --
 247 -- > 0074  NUMBER OF SEGMENTS IN THE MESSAGE
 248 -- > Repr: n..6
 249 simple0074 :: Parser Value
 250 simple0074 = simple "0074" (numeric `upTo` 6)
 251
 252 -- | Derived from this specification:
 253 --
 254 -- > 0080  Service code list directory version number
 255 -- > Repr: an..6
 256 simple0080 :: Parser Value
 257 simple0080 = simple "0080" (alphaNumeric `upTo` 6)
 258
 259 -- | Derived from this specification:
 260 --
 261 -- > 0081  SECTION IDENTIFICATION
 262 -- > Repr: a1
 263 simple0081 :: Parser Value
 264 simple0081 = simple "0081" (alpha `exactly` 1)
 265
 266 -- | Derived from this specification:
 267 --
 268 -- > 0133  Character encoding, coded
 269 -- > Repr: an..3
 270 simple0133 :: Parser Value
 271 simple0133 = simple "0133" (alphaNumeric `upTo` 3)