]> git.immae.eu Git - github/fretlink/edi-parser.git/blob - specification/src/Text/Edifact/D96A/Segments/MEA.hs
Release code as open source
[github/fretlink/edi-parser.git] / specification / src / Text / Edifact / D96A / Segments / MEA.hs
1 {-# LANGUAGE OverloadedStrings #-}
2
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
5
6 module Text.Edifact.D96A.Segments.MEA
7 ( -- * Definition
8 segmentMEA
9 -- * Dependencies
10 , compositeC174
11 , compositeC502
12 , simple6311
13 , simple7383
14 ) where
15
16 import Text.Edifact.D96A.Composites (compositeC174, compositeC502)
17 import Text.Edifact.D96A.Simples (simple6311, simple7383)
18
19 import Text.Edifact.Parsing
20 import Text.Edifact.Types (Value)
21
22 -- | Derived from this specification:
23 --
24 -- > MEA MEASUREMENTS
25 -- >
26 -- > Function: To specify physical measurements, including dimension
27 -- > tolerances, weights and counts.
28 -- >
29 -- > 010 6311 MEASUREMENT APPLICATION QUALIFIER M an..3
30 -- >
31 -- > 020 C502 MEASUREMENT DETAILS C
32 -- > 6313 Measurement dimension, coded C an..3
33 -- > 6321 Measurement significance, coded C an..3
34 -- > 6155 Measurement attribute, coded C an..3
35 -- > 6154 Measurement attribute C an..70
36 -- >
37 -- > 030 C174 VALUE/RANGE C
38 -- > 6411 Measure unit qualifier M an..3
39 -- > 6314 Measurement value C n..18
40 -- > 6162 Range minimum C n..18
41 -- > 6152 Range maximum C n..18
42 -- > 6432 Significant digits C n..2
43 -- >
44 -- > 040 7383 SURFACE/LAYER INDICATOR, CODED C an..3
45 --
46 -- Dependencies: 'compositeC174', 'compositeC502', 'simple6311', 'simple7383'.
47 segmentMEA :: Parser Value
48 segmentMEA =
49 segment "MEA"
50 [ "010" .@ mandatory simple6311
51 , "020" .@ optional compositeC502
52 , "030" .@ optional compositeC174
53 , "040" .@ optional simple7383
54 ]