1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D01B.Segments.EQA
14 import Text.Edifact.D01B.Composites (compositeC237)
15 import Text.Edifact.D01B.Simples (simple8053)
17 import Text.Edifact.Parsing
18 import Text.Edifact.Types (Value)
20 -- | Derived from this specification:
22 -- > EQA ATTACHED EQUIPMENT
24 -- > Function: To specify attached or related equipment.
26 -- > 010 8053 EQUIPMENT TYPE CODE QUALIFIER M 1 an..3
28 -- > 020 C237 EQUIPMENT IDENTIFICATION C 1
29 -- > 8260 Equipment identifier C an..17
30 -- > 1131 Code list identification code C an..17
31 -- > 3055 Code list responsible agency code C an..3
32 -- > 3207 Country name code C an..3
34 -- Dependencies: 'compositeC237', 'simple8053'.
35 segmentEQA :: Parser Value
38 [ "010" .@ mandatory simple8053
39 , "020" .@ optional compositeC237