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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Simples.S6155
   7   ( simple6155
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- > * 6155  Measurement attribute, coded
  16 -- >
  17 -- >   Desc: Code used to specify non-discrete measurement values.
  18 -- >
  19 -- >   Repr: an..3
  20 -- >
  21 -- >         1 Clear
  22 -- >              Self explanatory.
  23 -- >         2 Hazy
  24 -- >              Self explanatory.
  25 -- >         3 Excess
  26 -- >              Self explanatory.
  27 -- >         4 Some
  28 -- >              Self explanatory.
  29 -- >         5 Undetectable
  30 -- >              Self explanatory.
  31 -- >         6 Trace
  32 -- >              Self explanatory.
  33 -- >         7 Yes
  34 -- >              Self explanatory.
  35 -- >         8 Closed
  36 -- >              Self explanatory.
  37 -- >         9 Passed
  38 -- >              Self explanatory.
  39 -- >        10 Present
  40 -- >              Self explanatory.
  41 -- >        11 Gel
  42 -- >              Self explanatory.
  43 -- >        12 OK
  44 -- >              Self explanatory.
  45 -- >        13 Slight
  46 -- >              Self explanatory.
  47 -- >        14 No Good
  48 -- >              Self explanatory.
  49 -- >        15 Marginal
  50 -- >              Self explanatory.
  51 -- >        16 Nil
  52 -- >              Self explanatory.
  53 -- >        18 Open
  54 -- >              Self explanatory.
  55 -- >        19 Free
  56 -- >              Self explanatory.
  57 -- >        20 No
  58 -- >              Self explanatory.
  59 -- >        21 Checked
  60 -- >              Self explanatory.
  61 -- >        22 Fail
  62 -- >              Self explanatory.
  63 -- >        23 Absent
  64 -- >              Self explanatory.
  65 -- >        24 Good
  66 -- >              Self explanatory.
  67 -- >        25 Fair
  68 -- >              Self explanatory.
  69 -- >        26 Poor
  70 -- >              Self explanatory.
  71 -- >        27 Excellent
  72 -- >              Self explanatory.
  73 -- >        28 Bright
  74 -- >              Self explanatory.
  75 -- >        29 To be determined
  76 -- >              Self explanatory.
  77 -- >        32 Conditional, free
  78 -- >              Self explanatory.
  79 -- >        33 Balance
  80 -- >              Self explanatory.
  81 -- >        34 Complete
  82 -- >              Self explanatory.
  83 -- >        35 Low
  84 -- >              Self explanatory.
  85 -- >        36 Not applicable
  86 -- >              Self explanatory.
  87 -- >        37 Not determined
  88 -- >              Self explanatory.
  89 -- >        38 Negligible
  90 -- >              Self explanatory.
  91 -- >        39 Moderate
  92 -- >              Self explanatory.
  93 -- >        40 Appreciable
  94 -- >              Self explanatory.
  95 -- >        41 Not available
  96 -- >              Self explanatory.
  97 -- > +      42 Uncontrolled temperature
  98 -- >              Uncontrolled temperature conditions.
  99 -- > +      43 Chilled
 100 -- >              Somewhere between four degrees Celsius and twelve degrees
 101 -- >              Celsius.
 102 -- > +      44 Frozen
 103 -- >              Less than zero degrees Celsius.
 104 -- > +      45 Temperature controlled
 105 -- >              Required temperature value.
 106 simple6155 :: Parser Value
 107 simple6155 = simple "6155" (alphaNumeric `upTo` 3)