1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D96A.Segments.DOC
17 import Text.Edifact.D96A.Composites (compositeC002, compositeC503)
18 import Text.Edifact.D96A.Simples (simple1218, simple1220,
21 import Text.Edifact.Parsing
22 import Text.Edifact.Types (Value)
24 -- | Derived from this specification:
26 -- > DOC DOCUMENT/MESSAGE DETAILS
28 -- > Function: To identify documents, either printed, electronically
29 -- > transferred, or referenced as specified in message
30 -- > description, including, where relevant, the
31 -- > identification of the type of transaction that will
32 -- > result from this message.
34 -- > 010 C002 DOCUMENT/MESSAGE NAME M
35 -- > 1001 Document/message name, coded C an..3
36 -- > 1131 Code list qualifier C an..3
37 -- > 3055 Code list responsible agency, coded C an..3
38 -- > 1000 Document/message name C an..35
40 -- > 020 C503 DOCUMENT/MESSAGE DETAILS C
41 -- > 1004 Document/message number C an..35
42 -- > 1373 Document/message status, coded C an..3
43 -- > 1366 Document/message source C an..35
44 -- > 3453 Language, coded C an..3
46 -- > 030 3153 COMMUNICATION CHANNEL IDENTIFIER, CODED C an..3
48 -- > 040 1220 NUMBER OF COPIES OF DOCUMENT REQUIRED C n..2
50 -- > 050 1218 NUMBER OF ORIGINALS OF DOCUMENT REQUIRED C n..2
52 -- Dependencies: 'compositeC002', 'compositeC503', 'simple1218', 'simple1220', 'simple3153'.
53 segmentDOC :: Parser Value
56 [ "010" .@ mandatory compositeC002
57 , "020" .@ optional compositeC503
58 , "030" .@ optional simple3153
59 , "040" .@ optional simple1220
60 , "050" .@ optional simple1218