1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D96A.Segments.BGM
16 import Text.Edifact.D96A.Composites (compositeC002)
17 import Text.Edifact.D96A.Simples (simple1004, simple1225,
20 import Text.Edifact.Parsing
21 import Text.Edifact.Types (Value)
23 -- | Derived from this specification:
25 -- > BGM BEGINNING OF MESSAGE
27 -- > Function: To indicate the type and function of a message and to
28 -- > transmit the identifying number.
30 -- > 010 C002 DOCUMENT/MESSAGE NAME C
31 -- > 1001 Document/message name, coded C an..3
32 -- > 1131 Code list qualifier C an..3
33 -- > 3055 Code list responsible agency, coded C an..3
34 -- > 1000 Document/message name C an..35
36 -- > 020 1004 DOCUMENT/MESSAGE NUMBER C an..35
38 -- > 030 1225 MESSAGE FUNCTION, CODED C an..3
40 -- > 040 4343 RESPONSE TYPE, CODED C an..3
42 -- Dependencies: 'compositeC002', 'simple1004', 'simple1225', 'simple4343'.
43 segmentBGM :: Parser Value
46 [ "010" .@ optional compositeC002
47 , "020" .@ optional simple1004
48 , "030" .@ optional simple1225
49 , "040" .@ optional simple4343