diff options
Diffstat (limited to 'specification/src/Text/Edifact/D96A/Messages/IFTSTA.hs')
-rw-r--r-- | specification/src/Text/Edifact/D96A/Messages/IFTSTA.hs | 223 |
1 files changed, 223 insertions, 0 deletions
diff --git a/specification/src/Text/Edifact/D96A/Messages/IFTSTA.hs b/specification/src/Text/Edifact/D96A/Messages/IFTSTA.hs new file mode 100644 index 0000000..6bf19a1 --- /dev/null +++ b/specification/src/Text/Edifact/D96A/Messages/IFTSTA.hs | |||
@@ -0,0 +1,223 @@ | |||
1 | {-# LANGUAGE OverloadedStrings #-} | ||
2 | |||
3 | ---- Machine generated code. | ||
4 | ---- Output of edi-parser-scaffolder | ||
5 | |||
6 | module Text.Edifact.D96A.Messages.IFTSTA | ||
7 | ( -- * Definition | ||
8 | messageIFTSTA | ||
9 | -- * Dependencies | ||
10 | , segmentBGM | ||
11 | , segmentCNI | ||
12 | , segmentCNT | ||
13 | , segmentCOM | ||
14 | , segmentCTA | ||
15 | , segmentDIM | ||
16 | , segmentDOC | ||
17 | , segmentDTM | ||
18 | , segmentEQA | ||
19 | , segmentEQD | ||
20 | , segmentEQN | ||
21 | , segmentFTX | ||
22 | , segmentGID | ||
23 | , segmentGIN | ||
24 | , segmentHAN | ||
25 | , segmentLOC | ||
26 | , segmentMEA | ||
27 | , segmentNAD | ||
28 | , segmentPCI | ||
29 | , segmentRFF | ||
30 | , segmentSEL | ||
31 | , segmentSTS | ||
32 | , segmentTDT | ||
33 | , segmentTSR | ||
34 | ) where | ||
35 | |||
36 | import Text.Edifact.Common.Segments | ||
37 | |||
38 | import Text.Edifact.D96A.Segments (segmentBGM, segmentCNI, | ||
39 | segmentCNT, segmentCOM, | ||
40 | segmentCTA, segmentDIM, | ||
41 | segmentDOC, segmentDTM, | ||
42 | segmentEQA, segmentEQD, | ||
43 | segmentEQN, segmentFTX, | ||
44 | segmentGID, segmentGIN, | ||
45 | segmentHAN, segmentLOC, | ||
46 | segmentMEA, segmentNAD, | ||
47 | segmentPCI, segmentRFF, | ||
48 | segmentSEL, segmentSTS, | ||
49 | segmentTDT, segmentTSR) | ||
50 | |||
51 | import Text.Edifact.Parsing | ||
52 | import Text.Edifact.Types (Value) | ||
53 | |||
54 | -- | Derived from this specification: | ||
55 | -- | ||
56 | -- > 4.3 Message structure | ||
57 | -- > | ||
58 | -- > 4.3.1 Segment table | ||
59 | -- > | ||
60 | -- > Pos Tag Name S R | ||
61 | -- > | ||
62 | -- > 0010 UNH Message header M 1 | ||
63 | -- > 0020 BGM Beginning of message M 1 | ||
64 | -- > 0030 DTM Date/time/period C 9 | ||
65 | -- > 0040 TSR Transport service requirements C 1 | ||
66 | -- > | ||
67 | -- > 0050 ----- Segment group 1 ------------------ C 9-----------+ | ||
68 | -- > 0060 NAD Name and address M 1 | | ||
69 | -- > | | ||
70 | -- > 0070 ----- Segment group 2 ------------------ C 9----------+| | ||
71 | -- > 0080 CTA Contact information M 1 || | ||
72 | -- > 0090 COM Communication contact C 9----------++ | ||
73 | -- > | ||
74 | -- > 0100 ----- Segment group 3 ------------------ C 9-----------+ | ||
75 | -- > 0110 RFF Reference M 1 | | ||
76 | -- > 0120 DTM Date/time/period C 1-----------+ | ||
77 | -- > 0130 LOC Place/location identification C 9 | ||
78 | -- > 0140 FTX Free text C 9 | ||
79 | -- > 0150 CNT Control total C 9 | ||
80 | -- > | ||
81 | -- > 0160 ----- Segment group 4 ------------------ C 999---------+ | ||
82 | -- > 0170 CNI Consignment information M 1 | | ||
83 | -- > 0180 LOC Place/location identification C 9 | | ||
84 | -- > 0190 CNT Control total C 9 | | ||
85 | -- > | | ||
86 | -- > 0200 * ----- Segment group 5 ------------------ M 99---------+| | ||
87 | -- > 0210 STS Status M 1 || | ||
88 | -- > 0220 RFF Reference C 9 || | ||
89 | -- > 0230 DTM Date/time/period C 9 || | ||
90 | -- > 0240 + DOC Document/message details C 1 || | ||
91 | -- > 0250 FTX Free text C 9 || | ||
92 | -- > 0260 NAD Name and address C 9 || | ||
93 | -- > 0270 LOC Place/location identification C 1 || | ||
94 | -- > 0280 PCI Package identification C 99 || | ||
95 | -- > || | ||
96 | -- > 0290 ----- Segment group 6 ------------------ C 99--------+|| | ||
97 | -- > 0300 TDT Details of transport M 1 ||| | ||
98 | -- > 0310 RFF Reference C 9 ||| | ||
99 | -- > 0320 LOC Place/location identification C 9 ||| | ||
100 | -- > 0330 DTM Date/time/period C 9---------+|| | ||
101 | -- > || | ||
102 | -- > 0340 ----- Segment group 7 ------------------ C 99--------+|| | ||
103 | -- > 0350 EQD Equipment details M 1 ||| | ||
104 | -- > 0360 MEA Measurements C 9 ||| | ||
105 | -- > 0370 DIM Dimensions C 9 ||| | ||
106 | -- > 0380 SEL Seal number C 9 ||| | ||
107 | -- > ||| | ||
108 | -- > 0390 ----- Segment group 8 ------------------ C 99-------+||| | ||
109 | -- > 0400 EQA Attached equipment M 1 |||| | ||
110 | -- > 0410 SEL Seal number C 9--------++|| | ||
111 | -- > || | ||
112 | -- > 0420 * ----- Segment group 9 ------------------ C 99--------+|| | ||
113 | -- > 0430 GID Goods item details M 1 ||| | ||
114 | -- > 0440 HAN Handling instructions C 9 ||| | ||
115 | -- > ||| | ||
116 | -- > 0450 ----- Segment group 10 ------------------ C 99-------+||| | ||
117 | -- > 0460 MEA Measurements M 1 |||| | ||
118 | -- > 0470 EQN Number of units C 1--------+||| | ||
119 | -- > ||| | ||
120 | -- > 0480 ----- Segment group 11 ------------------ C 99-------+||| | ||
121 | -- > 0490 DIM Dimensions M 1 |||| | ||
122 | -- > 0500 EQN Number of units C 1--------+||| | ||
123 | -- > ||| | ||
124 | -- > 0510 + ----- Segment group 12 ------------------ C 99-------+||| | ||
125 | -- > 0520 + PCI Package identification M 1 |||| | ||
126 | -- > 0530 + GIN Goods identity number C 9--------++++ | ||
127 | -- > 0540 UNT Message trailer M 1 | ||
128 | -- | ||
129 | -- Dependencies: 'segmentBGM', 'segmentCNI', 'segmentCNT', 'segmentCOM', 'segmentCTA', 'segmentDIM', 'segmentDOC', 'segmentDTM', 'segmentEQA', 'segmentEQD', 'segmentEQN', 'segmentFTX', 'segmentGID', 'segmentGIN', 'segmentHAN', 'segmentLOC', 'segmentMEA', 'segmentNAD', 'segmentPCI', 'segmentRFF', 'segmentSEL', 'segmentSTS', 'segmentTDT', 'segmentTSR'. | ||
130 | messageIFTSTA :: Parser Value | ||
131 | messageIFTSTA = | ||
132 | message "IFTSTA" | ||
133 | [ "0010" .@ once segmentUNH | ||
134 | , "0020" .@ once segmentBGM | ||
135 | , "0030" .@ repeated 9 segmentDTM | ||
136 | , "0040" .@ maybeOnce segmentTSR | ||
137 | , "0050" .@ repeated 9 ( | ||
138 | segmentGroup "1" | ||
139 | [ "0060" .@ once segmentNAD | ||
140 | , "0070" .@ repeated 9 ( | ||
141 | segmentGroup "2" | ||
142 | [ "0080" .@ once segmentCTA | ||
143 | , "0090" .@ repeated 9 segmentCOM | ||
144 | ] | ||
145 | ) | ||
146 | ] | ||
147 | ) | ||
148 | , "0100" .@ repeated 9 ( | ||
149 | segmentGroup "3" | ||
150 | [ "0110" .@ once segmentRFF | ||
151 | , "0120" .@ maybeOnce segmentDTM | ||
152 | ] | ||
153 | ) | ||
154 | , "0130" .@ repeated 9 segmentLOC | ||
155 | , "0140" .@ repeated 9 segmentFTX | ||
156 | , "0150" .@ repeated 9 segmentCNT | ||
157 | , "0160" .@ repeated 999 ( | ||
158 | segmentGroup "4" | ||
159 | [ "0170" .@ once segmentCNI | ||
160 | , "0180" .@ repeated 9 segmentLOC | ||
161 | , "0190" .@ repeated 9 segmentCNT | ||
162 | , "0200" .@ repeatedAtLeastOnce 99 ( | ||
163 | segmentGroup "5" | ||
164 | [ "0210" .@ once segmentSTS | ||
165 | , "0220" .@ repeated 9 segmentRFF | ||
166 | , "0230" .@ repeated 9 segmentDTM | ||
167 | , "0240" .@ maybeOnce segmentDOC | ||
168 | , "0250" .@ repeated 9 segmentFTX | ||
169 | , "0260" .@ repeated 9 segmentNAD | ||
170 | , "0270" .@ maybeOnce segmentLOC | ||
171 | , "0280" .@ repeated 99 segmentPCI | ||
172 | , "0290" .@ repeated 99 ( | ||
173 | segmentGroup "6" | ||
174 | [ "0300" .@ once segmentTDT | ||
175 | , "0310" .@ repeated 9 segmentRFF | ||
176 | , "0320" .@ repeated 9 segmentLOC | ||
177 | , "0330" .@ repeated 9 segmentDTM | ||
178 | ] | ||
179 | ) | ||
180 | , "0340" .@ repeated 99 ( | ||
181 | segmentGroup "7" | ||
182 | [ "0350" .@ once segmentEQD | ||
183 | , "0360" .@ repeated 9 segmentMEA | ||
184 | , "0370" .@ repeated 9 segmentDIM | ||
185 | , "0380" .@ repeated 9 segmentSEL | ||
186 | , "0390" .@ repeated 99 ( | ||
187 | segmentGroup "8" | ||
188 | [ "0400" .@ once segmentEQA | ||
189 | , "0410" .@ repeated 9 segmentSEL | ||
190 | ] | ||
191 | ) | ||
192 | ] | ||
193 | ) | ||
194 | , "0420" .@ repeated 99 ( | ||
195 | segmentGroup "9" | ||
196 | [ "0430" .@ once segmentGID | ||
197 | , "0440" .@ repeated 9 segmentHAN | ||
198 | , "0450" .@ repeated 99 ( | ||
199 | segmentGroup "10" | ||
200 | [ "0460" .@ once segmentMEA | ||
201 | , "0470" .@ maybeOnce segmentEQN | ||
202 | ] | ||
203 | ) | ||
204 | , "0480" .@ repeated 99 ( | ||
205 | segmentGroup "11" | ||
206 | [ "0490" .@ once segmentDIM | ||
207 | , "0500" .@ maybeOnce segmentEQN | ||
208 | ] | ||
209 | ) | ||
210 | , "0510" .@ repeated 99 ( | ||
211 | segmentGroup "12" | ||
212 | [ "0520" .@ once segmentPCI | ||
213 | , "0530" .@ repeated 9 segmentGIN | ||
214 | ] | ||
215 | ) | ||
216 | ] | ||
217 | ) | ||
218 | ] | ||
219 | ) | ||
220 | ] | ||
221 | ) | ||
222 | , "0540" .@ once segmentUNT | ||
223 | ] | ||