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