diff options
author | Frédéric Menou <frederic.menou@fretlink.com> | 2016-12-08 10:19:15 +0200 |
---|---|---|
committer | Ismaël Bouya <ismael.bouya@fretlink.com> | 2022-05-17 18:01:51 +0200 |
commit | a9d77a20008efe82862cc1adbfa7a6d4f09f8ff7 (patch) | |
tree | adf3186fdccaeef19151026cdfbd38a530cf9ecb /specification/src/Text/Edifact/D01B/Messages | |
download | edi-parser-a9d77a20008efe82862cc1adbfa7a6d4f09f8ff7.tar.gz edi-parser-a9d77a20008efe82862cc1adbfa7a6d4f09f8ff7.tar.zst edi-parser-a9d77a20008efe82862cc1adbfa7a6d4f09f8ff7.zip |
Diffstat (limited to 'specification/src/Text/Edifact/D01B/Messages')
-rw-r--r-- | specification/src/Text/Edifact/D01B/Messages/IFCSUM.hs | 1068 | ||||
-rw-r--r-- | specification/src/Text/Edifact/D01B/Messages/IFTSTA.hs | 265 |
2 files changed, 1333 insertions, 0 deletions
diff --git a/specification/src/Text/Edifact/D01B/Messages/IFCSUM.hs b/specification/src/Text/Edifact/D01B/Messages/IFCSUM.hs new file mode 100644 index 0000000..a7fa4bd --- /dev/null +++ b/specification/src/Text/Edifact/D01B/Messages/IFCSUM.hs | |||
@@ -0,0 +1,1068 @@ | |||
1 | {-# LANGUAGE OverloadedStrings #-} | ||
2 | |||
3 | ---- Machine generated code. | ||
4 | ---- Output of edi-parser-scaffolder | ||
5 | |||
6 | module Text.Edifact.D01B.Messages.IFCSUM | ||
7 | ( -- * Definition | ||
8 | messageIFCSUM | ||
9 | -- * Dependencies | ||
10 | , segmentBGM | ||
11 | , segmentCNI | ||
12 | , segmentCNT | ||
13 | , segmentCOM | ||
14 | , segmentCPI | ||
15 | , segmentCTA | ||
16 | , segmentCUX | ||
17 | , segmentDGS | ||
18 | , segmentDIM | ||
19 | , segmentDOC | ||
20 | , segmentDTM | ||
21 | , segmentEQA | ||
22 | , segmentEQD | ||
23 | , segmentEQN | ||
24 | , segmentFTX | ||
25 | , segmentGDS | ||
26 | , segmentGID | ||
27 | , segmentGIN | ||
28 | , segmentGOR | ||
29 | , segmentHAN | ||
30 | , segmentICD | ||
31 | , segmentLOC | ||
32 | , segmentMEA | ||
33 | , segmentMOA | ||
34 | , segmentNAD | ||
35 | , segmentPCD | ||
36 | , segmentPCI | ||
37 | , segmentPIA | ||
38 | , segmentPRI | ||
39 | , segmentQTY | ||
40 | , segmentRFF | ||
41 | , segmentRNG | ||
42 | , segmentSEL | ||
43 | , segmentSEQ | ||
44 | , segmentSGP | ||
45 | , segmentTCC | ||
46 | , segmentTDT | ||
47 | , segmentTMD | ||
48 | , segmentTMP | ||
49 | , segmentTOD | ||
50 | , segmentTPL | ||
51 | , segmentTSR | ||
52 | ) where | ||
53 | |||
54 | import Text.Edifact.Common.Segments | ||
55 | |||
56 | import Text.Edifact.D01B.Segments (segmentBGM, segmentCNI, | ||
57 | segmentCNT, segmentCOM, | ||
58 | segmentCPI, segmentCTA, | ||
59 | segmentCUX, segmentDGS, | ||
60 | segmentDIM, segmentDOC, | ||
61 | segmentDTM, segmentEQA, | ||
62 | segmentEQD, segmentEQN, | ||
63 | segmentFTX, segmentGDS, | ||
64 | segmentGID, segmentGIN, | ||
65 | segmentGOR, segmentHAN, | ||
66 | segmentICD, segmentLOC, | ||
67 | segmentMEA, segmentMOA, | ||
68 | segmentNAD, segmentPCD, | ||
69 | segmentPCI, segmentPIA, | ||
70 | segmentPRI, segmentQTY, | ||
71 | segmentRFF, segmentRNG, | ||
72 | segmentSEL, segmentSEQ, | ||
73 | segmentSGP, segmentTCC, | ||
74 | segmentTDT, segmentTMD, | ||
75 | segmentTMP, segmentTOD, | ||
76 | segmentTPL, segmentTSR) | ||
77 | |||
78 | import Text.Edifact.Parsing | ||
79 | import Text.Edifact.Types (Value) | ||
80 | |||
81 | -- | Derived from this specification: | ||
82 | -- | ||
83 | -- > 4.3 Message structure | ||
84 | -- > | ||
85 | -- > 4.3.1 Segment table | ||
86 | -- > | ||
87 | -- > Pos Tag Name S R | ||
88 | -- > | ||
89 | -- > 0010 UNH Message header M 1 | ||
90 | -- > 0020 BGM Beginning of message M 1 | ||
91 | -- > 0030 DTM Date/time/period C 9 | ||
92 | -- > 0040 MOA Monetary amount C 99 | ||
93 | -- > 0050 FTX Free text C 99 | ||
94 | -- > 0060 CNT Control total C 9 | ||
95 | -- > 0070 PCD Percentage details C 1 | ||
96 | -- > 0080 GDS Nature of cargo C 9 | ||
97 | -- > | ||
98 | -- > 0090 ----- Segment group 1 ------------------ C 9-----------+ | ||
99 | -- > 0100 RFF Reference M 1 | | ||
100 | -- > 0110 DTM Date/time/period C 9-----------+ | ||
101 | -- > | ||
102 | -- > 0120 ----- Segment group 2 ------------------ C 9-----------+ | ||
103 | -- > 0130 GOR Governmental requirements M 1 | | ||
104 | -- > 0140 DTM Date/time/period C 9 | | ||
105 | -- > 0150 LOC Place/location identification C 9 | | ||
106 | -- > 0160 SEL Seal number C 9 | | ||
107 | -- > 0170 FTX Free text C 9 | | ||
108 | -- > | | ||
109 | -- > 0180 ----- Segment group 3 ------------------ C 9----------+| | ||
110 | -- > 0190 DOC Document/message details M 1 || | ||
111 | -- > 0200 DTM Date/time/period C 1----------++ | ||
112 | -- > | ||
113 | -- > 0210 ----- Segment group 4 ------------------ C 9-----------+ | ||
114 | -- > 0220 NAD Name and address M 1 | | ||
115 | -- > | | ||
116 | -- > 0230 ----- Segment group 5 ------------------ C 9----------+| | ||
117 | -- > 0240 CTA Contact information M 1 || | ||
118 | -- > 0250 COM Communication contact C 9----------+| | ||
119 | -- > | | ||
120 | -- > 0260 ----- Segment group 6 ------------------ C 9----------+| | ||
121 | -- > 0270 RFF Reference M 1 || | ||
122 | -- > 0280 DTM Date/time/period C 9----------++ | ||
123 | -- > | ||
124 | -- > 0290 ----- Segment group 7 ------------------ C 9-----------+ | ||
125 | -- > 0300 TCC Charge/rate calculations M 1 | | ||
126 | -- > 0310 CUX Currencies C 1 | | ||
127 | -- > 0320 PRI Price details C 1 | | ||
128 | -- > 0330 EQN Number of units C 1 | | ||
129 | -- > 0340 PCD Percentage details C 1 | | ||
130 | -- > 0350 MOA Monetary amount C 9 | | ||
131 | -- > 0360 QTY Quantity C 9 | | ||
132 | -- > 0370 LOC Place/location identification C 9-----------+ | ||
133 | -- > | ||
134 | -- > 0380 ----- Segment group 8 ------------------ C 99----------+ | ||
135 | -- > 0390 ICD Insurance cover description M 1 | | ||
136 | -- > 0400 DTM Date/time/period C 1 | | ||
137 | -- > 0410 FTX Free text C 9-----------+ | ||
138 | -- > | ||
139 | -- > 0420 ----- Segment group 9 ------------------ C 9-----------+ | ||
140 | -- > 0430 TDT Details of transport M 1 | | ||
141 | -- > 0440 DTM Date/time/period C 9 | | ||
142 | -- > 0450 TSR Transport service requirements C 9 | | ||
143 | -- > | | ||
144 | -- > 0460 ----- Segment group 10 ------------------ C 9----------+| | ||
145 | -- > 0470 LOC Place/location identification M 1 || | ||
146 | -- > 0480 DTM Date/time/period C 9----------+| | ||
147 | -- > 0490 SEL Seal number C 9 | | ||
148 | -- > 0500 FTX Free text C 9 | | ||
149 | -- > | | ||
150 | -- > 0510 ----- Segment group 11 ------------------ C 9----------+| | ||
151 | -- > 0520 MEA Measurements M 1 || | ||
152 | -- > 0530 EQN Number of units C 1----------+| | ||
153 | -- > | | ||
154 | -- > 0540 ----- Segment group 12 ------------------ C 9----------+| | ||
155 | -- > 0550 DIM Dimensions M 1 || | ||
156 | -- > 0560 EQN Number of units C 1----------+| | ||
157 | -- > | | ||
158 | -- > 0570 ----- Segment group 13 ------------------ C 9----------+| | ||
159 | -- > 0580 CTA Contact information M 1 || | ||
160 | -- > 0590 COM Communication contact C 9----------+| | ||
161 | -- > | | ||
162 | -- > 0600 ----- Segment group 14 ------------------ C 99---------+| | ||
163 | -- > 0610 TCC Charge/rate calculations M 1 || | ||
164 | -- > 0620 MOA Monetary amount C 9 || | ||
165 | -- > 0630 PCD Percentage details C 1----------+| | ||
166 | -- > | | ||
167 | -- > 0640 ----- Segment group 15 ------------------ C 99---------+| | ||
168 | -- > 0650 ICD Insurance cover description M 1 || | ||
169 | -- > 0660 DTM Date/time/period C 1 || | ||
170 | -- > 0670 FTX Free text C 9----------+| | ||
171 | -- > | | ||
172 | -- > 0680 ----- Segment group 16 ------------------ C 9----------+| | ||
173 | -- > 0690 NAD Name and address M 1 || | ||
174 | -- > 0700 LOC Place/location identification C 9 || | ||
175 | -- > || | ||
176 | -- > 0710 ----- Segment group 17 ------------------ C 9---------+|| | ||
177 | -- > 0720 CTA Contact information M 1 ||| | ||
178 | -- > 0730 COM Communication contact C 9---------+|| | ||
179 | -- > || | ||
180 | -- > 0740 ----- Segment group 18 ------------------ C 9---------+|| | ||
181 | -- > 0750 DOC Document/message details M 1 ||| | ||
182 | -- > 0760 DTM Date/time/period C 1---------+|| | ||
183 | -- > || | ||
184 | -- > 0770 ----- Segment group 19 ------------------ C 9---------+|| | ||
185 | -- > 0780 TCC Charge/rate calculations M 1 ||| | ||
186 | -- > 0790 CUX Currencies C 1 ||| | ||
187 | -- > 0800 PRI Price details C 1 ||| | ||
188 | -- > 0810 EQN Number of units C 1 ||| | ||
189 | -- > 0820 PCD Percentage details C 1 ||| | ||
190 | -- > 0830 MOA Monetary amount C 9 ||| | ||
191 | -- > 0840 QTY Quantity C 9---------+|| | ||
192 | -- > || | ||
193 | -- > 0850 ----- Segment group 20 ------------------ C 9---------+|| | ||
194 | -- > 0860 RFF Reference M 1 ||| | ||
195 | -- > 0870 DTM Date/time/period C 9---------+++ | ||
196 | -- > | ||
197 | -- > 0880 ----- Segment group 21 ------------------ C 999---------+ | ||
198 | -- > 0890 EQD Equipment details M 1 | | ||
199 | -- > 0900 EQN Number of units C 1 | | ||
200 | -- > 0910 TPL Transport placement C 1 | | ||
201 | -- > 0920 TMD Transport movement details C 1 | | ||
202 | -- > 0930 MEA Measurements C 9 | | ||
203 | -- > 0940 DIM Dimensions C 9 | | ||
204 | -- > 0950 SEL Seal number C 9 | | ||
205 | -- > 0960 NAD Name and address C 9 | | ||
206 | -- > 0970 LOC Place/location identification C 9 | | ||
207 | -- > 0980 HAN Handling instructions C 1 | | ||
208 | -- > 0990 TMP Temperature C 1 | | ||
209 | -- > 1000 FTX Free text C 9 | | ||
210 | -- > 1010 RFF Reference C 9 | | ||
211 | -- > 1020 PCD Percentage details C 9 | | ||
212 | -- > | | ||
213 | -- > 1030 ----- Segment group 22 ------------------ C 99---------+| | ||
214 | -- > 1040 EQA Attached equipment M 1 || | ||
215 | -- > 1050 EQN Number of units C 1----------+| | ||
216 | -- > | | ||
217 | -- > 1060 ----- Segment group 23 ------------------ C 99---------+| | ||
218 | -- > 1070 DGS Dangerous goods M 1 || | ||
219 | -- > 1080 FTX Free text C 9 || | ||
220 | -- > || | ||
221 | -- > 1090 ----- Segment group 24 ------------------ M 1---------+|| | ||
222 | -- > 1100 CTA Contact information M 1 ||| | ||
223 | -- > 1110 COM Communication contact C 9---------+++ | ||
224 | -- > | ||
225 | -- > 1120 ----- Segment group 25 ------------------ C 9999--------+ | ||
226 | -- > 1130 CNI Consignment information M 1 | | ||
227 | -- > | | ||
228 | -- > 1140 ----- Segment group 26 ------------------ C 9----------+| | ||
229 | -- > 1150 SGP Split goods placement M 1 || | ||
230 | -- > || | ||
231 | -- > 1160 ----- Segment group 27 ------------------ C 9---------+|| | ||
232 | -- > 1170 MEA Measurements M 1 ||| | ||
233 | -- > 1180 EQN Number of units C 1---------++| | ||
234 | -- > | | ||
235 | -- > 1190 ----- Segment group 28 ------------------ C 9----------+| | ||
236 | -- > 1200 TPL Transport placement M 1 || | ||
237 | -- > || | ||
238 | -- > 1210 ----- Segment group 29 ------------------ C 9---------+|| | ||
239 | -- > 1220 MEA Measurements M 1 ||| | ||
240 | -- > 1230 EQN Number of units C 1---------++| | ||
241 | -- > 1240 CTA Contact information C 1 | | ||
242 | -- > 1250 COM Communication contact C 9 | | ||
243 | -- > 1260 DTM Date/time/period C 9 | | ||
244 | -- > 1270 CNT Control total C 9 | | ||
245 | -- > 1280 TSR Transport service requirements C 9 | | ||
246 | -- > 1290 CUX Currencies C 9 | | ||
247 | -- > 1300 PCD Percentage details C 9 | | ||
248 | -- > 1310 MOA Monetary amount C 99 | | ||
249 | -- > 1320 FTX Free text C 99 | | ||
250 | -- > 1330 GDS Nature of cargo C 9 | | ||
251 | -- > | | ||
252 | -- > 1340 ----- Segment group 30 ------------------ C 99---------+| | ||
253 | -- > 1350 LOC Place/location identification M 1 || | ||
254 | -- > 1360 DTM Date/time/period C 9----------+| | ||
255 | -- > | | ||
256 | -- > 1370 ----- Segment group 31 ------------------ C 2----------+| | ||
257 | -- > 1380 TOD Terms of delivery or transport M 1 || | ||
258 | -- > 1390 LOC Place/location identification C 9----------+| | ||
259 | -- > | | ||
260 | -- > 1400 ----- Segment group 32 ------------------ C 999--------+| | ||
261 | -- > 1410 RFF Reference M 1 || | ||
262 | -- > 1420 DTM Date/time/period C 9----------+| | ||
263 | -- > | | ||
264 | -- > 1430 ----- Segment group 33 ------------------ C 9----------+| | ||
265 | -- > 1440 GOR Governmental requirements M 1 || | ||
266 | -- > 1450 DTM Date/time/period C 9 || | ||
267 | -- > 1460 LOC Place/location identification C 9 || | ||
268 | -- > 1470 SEL Seal number C 9 || | ||
269 | -- > 1480 FTX Free text C 9 || | ||
270 | -- > || | ||
271 | -- > 1490 ----- Segment group 34 ------------------ C 9---------+|| | ||
272 | -- > 1500 DOC Document/message details M 1 ||| | ||
273 | -- > 1510 DTM Date/time/period C 1---------++| | ||
274 | -- > | | ||
275 | -- > 1520 ----- Segment group 35 ------------------ C 9----------+| | ||
276 | -- > 1530 CPI Charge payment instructions M 1 || | ||
277 | -- > 1540 RFF Reference C 99 || | ||
278 | -- > 1550 CUX Currencies C 1 || | ||
279 | -- > 1560 LOC Place/location identification C 9 || | ||
280 | -- > 1570 MOA Monetary amount C 9----------+| | ||
281 | -- > | | ||
282 | -- > 1580 ----- Segment group 36 ------------------ C 99---------+| | ||
283 | -- > 1590 TCC Charge/rate calculations M 1 || | ||
284 | -- > 1600 LOC Place/location identification C 1 || | ||
285 | -- > 1610 FTX Free text C 1 || | ||
286 | -- > 1620 CUX Currencies C 1 || | ||
287 | -- > 1630 PRI Price details C 1 || | ||
288 | -- > 1640 EQN Number of units C 1 || | ||
289 | -- > 1650 PCD Percentage details C 1 || | ||
290 | -- > 1660 MOA Monetary amount C 9 || | ||
291 | -- > 1670 QTY Quantity C 9----------+| | ||
292 | -- > | | ||
293 | -- > 1680 ----- Segment group 37 ------------------ C 99---------+| | ||
294 | -- > 1690 ICD Insurance cover description M 1 || | ||
295 | -- > 1700 DTM Date/time/period C 1 || | ||
296 | -- > 1710 FTX Free text C 9----------+| | ||
297 | -- > | | ||
298 | -- > 1720 ----- Segment group 38 ------------------ C 99---------+| | ||
299 | -- > 1730 TDT Details of transport M 1 || | ||
300 | -- > 1740 DTM Date/time/period C 9 || | ||
301 | -- > 1750 TSR Transport service requirements C 9 || | ||
302 | -- > || | ||
303 | -- > 1760 ----- Segment group 39 ------------------ C 99--------+|| | ||
304 | -- > 1770 LOC Place/location identification M 1 ||| | ||
305 | -- > 1780 DTM Date/time/period C 9---------+|| | ||
306 | -- > || | ||
307 | -- > 1790 ----- Segment group 40 ------------------ C 9---------+|| | ||
308 | -- > 1800 RFF Reference M 1 ||| | ||
309 | -- > 1810 DTM Date/time/period C 1---------+|| | ||
310 | -- > || | ||
311 | -- > 1820 ----- Segment group 41 ------------------ C 99--------+|| | ||
312 | -- > 1830 TCC Charge/rate calculations M 1 ||| | ||
313 | -- > 1840 MOA Monetary amount C 9 ||| | ||
314 | -- > 1850 PCD Percentage details C 1---------+|| | ||
315 | -- > || | ||
316 | -- > 1860 ----- Segment group 42 ------------------ C 99--------+|| | ||
317 | -- > 1870 ICD Insurance cover description M 1 ||| | ||
318 | -- > 1880 DTM Date/time/period C 1 ||| | ||
319 | -- > 1890 FTX Free text C 9---------++| | ||
320 | -- > | | ||
321 | -- > 1900 ----- Segment group 43 ------------------ C 99---------+| | ||
322 | -- > 1910 NAD Name and address M 1 || | ||
323 | -- > 1920 LOC Place/location identification C 9 || | ||
324 | -- > 1930 MOA Monetary amount C 9 || | ||
325 | -- > || | ||
326 | -- > 1940 ----- Segment group 44 ------------------ C 9---------+|| | ||
327 | -- > 1950 CTA Contact information M 1 ||| | ||
328 | -- > 1960 COM Communication contact C 9---------+|| | ||
329 | -- > || | ||
330 | -- > 1970 ----- Segment group 45 ------------------ C 9---------+|| | ||
331 | -- > 1980 DOC Document/message details M 1 ||| | ||
332 | -- > 1990 DTM Date/time/period C 1---------+|| | ||
333 | -- > || | ||
334 | -- > 2000 ----- Segment group 46 ------------------ C 99--------+|| | ||
335 | -- > 2010 TCC Charge/rate calculations M 1 ||| | ||
336 | -- > 2020 CUX Currencies C 1 ||| | ||
337 | -- > 2030 PRI Price details C 1 ||| | ||
338 | -- > 2040 EQN Number of units C 1 ||| | ||
339 | -- > 2050 PCD Percentage details C 1 ||| | ||
340 | -- > 2060 MOA Monetary amount C 9 ||| | ||
341 | -- > 2070 QTY Quantity C 9---------+|| | ||
342 | -- > || | ||
343 | -- > 2080 ----- Segment group 47 ------------------ C 9---------+|| | ||
344 | -- > 2090 RFF Reference M 1 ||| | ||
345 | -- > 2100 DTM Date/time/period C 9---------+|| | ||
346 | -- > || | ||
347 | -- > 2110 ----- Segment group 48 ------------------ C 9---------+|| | ||
348 | -- > 2120 CPI Charge payment instructions M 1 ||| | ||
349 | -- > 2130 RFF Reference C 99 ||| | ||
350 | -- > 2140 CUX Currencies C 1 ||| | ||
351 | -- > 2150 LOC Place/location identification C 9 ||| | ||
352 | -- > 2160 MOA Monetary amount C 9---------+|| | ||
353 | -- > || | ||
354 | -- > 2170 ----- Segment group 49 ------------------ C 99--------+|| | ||
355 | -- > 2180 TSR Transport service requirements M 1 ||| | ||
356 | -- > 2190 RFF Reference C 1 ||| | ||
357 | -- > 2200 LOC Place/location identification C 1 ||| | ||
358 | -- > 2210 TPL Transport placement C 1 ||| | ||
359 | -- > 2220 FTX Free text C 9---------++| | ||
360 | -- > | | ||
361 | -- > 2230 ----- Segment group 50 ------------------ C 999--------+| | ||
362 | -- > 2240 GID Goods item details M 1 || | ||
363 | -- > 2250 HAN Handling instructions C 1 || | ||
364 | -- > 2260 TMP Temperature C 1 || | ||
365 | -- > 2270 RNG Range details C 1 || | ||
366 | -- > 2280 TMD Transport movement details C 1 || | ||
367 | -- > 2290 LOC Place/location identification C 9 || | ||
368 | -- > 2300 MOA Monetary amount C 9 || | ||
369 | -- > 2310 PIA Additional product id C 9 || | ||
370 | -- > 2320 GIN Goods identity number C 99 || | ||
371 | -- > 2330 FTX Free text C 9 || | ||
372 | -- > || | ||
373 | -- > 2340 ----- Segment group 51 ------------------ C 9---------+|| | ||
374 | -- > 2350 NAD Name and address M 1 ||| | ||
375 | -- > 2360 DTM Date/time/period C 1---------+|| | ||
376 | -- > 2370 GDS Nature of cargo C 9 || | ||
377 | -- > || | ||
378 | -- > 2380 ----- Segment group 52 ------------------ C 99--------+|| | ||
379 | -- > 2390 MEA Measurements M 1 ||| | ||
380 | -- > 2400 EQN Number of units C 1---------+|| | ||
381 | -- > || | ||
382 | -- > 2410 ----- Segment group 53 ------------------ C 99--------+|| | ||
383 | -- > 2420 DIM Dimensions M 1 ||| | ||
384 | -- > 2430 EQN Number of units C 1---------+|| | ||
385 | -- > || | ||
386 | -- > 2440 ----- Segment group 54 ------------------ C 9---------+|| | ||
387 | -- > 2450 RFF Reference M 1 ||| | ||
388 | -- > 2460 DTM Date/time/period C 9---------+|| | ||
389 | -- > || | ||
390 | -- > 2470 ----- Segment group 55 ------------------ C 999-------+|| | ||
391 | -- > 2480 PCI Package identification M 1 ||| | ||
392 | -- > 2490 RFF Reference C 1 ||| | ||
393 | -- > 2500 DTM Date/time/period C 1 ||| | ||
394 | -- > 2510 GIN Goods identity number C 9 ||| | ||
395 | -- > 2520 MEA Measurements C 9 ||| | ||
396 | -- > 2530 DIM Dimensions C 1 ||| | ||
397 | -- > 2540 FTX Free text C 9---------+|| | ||
398 | -- > || | ||
399 | -- > 2550 ----- Segment group 56 ------------------ C 9---------+|| | ||
400 | -- > 2560 DOC Document/message details M 1 ||| | ||
401 | -- > 2570 DTM Date/time/period C 9---------+|| | ||
402 | -- > || | ||
403 | -- > 2580 ----- Segment group 57 ------------------ C 9---------+|| | ||
404 | -- > 2590 GOR Governmental requirements M 1 ||| | ||
405 | -- > 2600 DTM Date/time/period C 9 ||| | ||
406 | -- > 2610 LOC Place/location identification C 9 ||| | ||
407 | -- > 2620 SEL Seal number C 9 ||| | ||
408 | -- > 2630 FTX Free text C 9 ||| | ||
409 | -- > ||| | ||
410 | -- > 2640 ----- Segment group 58 ------------------ C 9--------+||| | ||
411 | -- > 2650 DOC Document/message details M 1 |||| | ||
412 | -- > 2660 DTM Date/time/period C 1--------++|| | ||
413 | -- > || | ||
414 | -- > 2670 ----- Segment group 59 ------------------ C 9---------+|| | ||
415 | -- > 2680 TPL Transport placement M 1 ||| | ||
416 | -- > ||| | ||
417 | -- > 2690 ----- Segment group 60 ------------------ C 9--------+||| | ||
418 | -- > 2700 MEA Measurements M 1 |||| | ||
419 | -- > 2710 EQN Number of units C 1--------++|| | ||
420 | -- > || | ||
421 | -- > 2720 ----- Segment group 61 ------------------ C 999-------+|| | ||
422 | -- > 2730 SGP Split goods placement M 1 ||| | ||
423 | -- > 2740 SEQ Sequence details C 1 ||| | ||
424 | -- > ||| | ||
425 | -- > 2750 ----- Segment group 62 ------------------ C 9--------+||| | ||
426 | -- > 2760 MEA Measurements M 1 |||| | ||
427 | -- > 2770 EQN Number of units C 1--------++|| | ||
428 | -- > || | ||
429 | -- > 2780 ----- Segment group 63 ------------------ C 99--------+|| | ||
430 | -- > 2790 TCC Charge/rate calculations M 1 ||| | ||
431 | -- > 2800 CUX Currencies C 1 ||| | ||
432 | -- > 2810 PRI Price details C 1 ||| | ||
433 | -- > 2820 EQN Number of units C 1 ||| | ||
434 | -- > 2830 PCD Percentage details C 1 ||| | ||
435 | -- > 2840 MOA Monetary amount C 9 ||| | ||
436 | -- > 2850 QTY Quantity C 9 ||| | ||
437 | -- > 2860 LOC Place/location identification C 9---------+|| | ||
438 | -- > || | ||
439 | -- > 2870 ----- Segment group 64 ------------------ C 99--------+|| | ||
440 | -- > 2880 ICD Insurance cover description M 1 ||| | ||
441 | -- > 2890 DTM Date/time/period C 1 ||| | ||
442 | -- > 2900 FTX Free text C 9---------+|| | ||
443 | -- > || | ||
444 | -- > 2910 ----- Segment group 65 ------------------ C 99--------+|| | ||
445 | -- > 2920 DGS Dangerous goods M 1 ||| | ||
446 | -- > 2930 FTX Free text C 99 ||| | ||
447 | -- > ||| | ||
448 | -- > 2940 ----- Segment group 66 ------------------ C 9--------+||| | ||
449 | -- > 2950 CTA Contact information M 1 |||| | ||
450 | -- > 2960 COM Communication contact C 9--------+||| | ||
451 | -- > ||| | ||
452 | -- > 2970 ----- Segment group 67 ------------------ C 9--------+||| | ||
453 | -- > 2980 MEA Measurements M 1 |||| | ||
454 | -- > 2990 EQN Number of units C 1--------+||| | ||
455 | -- > ||| | ||
456 | -- > 3000 ----- Segment group 68 ------------------ C 999------+||| | ||
457 | -- > 3010 SGP Split goods placement M 1 |||| | ||
458 | -- > |||| | ||
459 | -- > 3020 ----- Segment group 69 ------------------ C 9-------+|||| | ||
460 | -- > 3030 MEA Measurements M 1 ||||| | ||
461 | -- > 3040 EQN Number of units C 1-------++++| | ||
462 | -- > | | ||
463 | -- > 3050 ----- Segment group 70 ------------------ C 999--------+| | ||
464 | -- > 3060 EQD Equipment details M 1 || | ||
465 | -- > 3070 EQN Number of units C 1 || | ||
466 | -- > 3080 TMD Transport movement details C 1 || | ||
467 | -- > 3090 MEA Measurements C 9 || | ||
468 | -- > 3100 DIM Dimensions C 9 || | ||
469 | -- > 3110 SEL Seal number C 99 || | ||
470 | -- > 3120 TPL Transport placement C 9 || | ||
471 | -- > 3130 HAN Handling instructions C 1 || | ||
472 | -- > 3140 TMP Temperature C 1 || | ||
473 | -- > 3150 FTX Free text C 9 || | ||
474 | -- > 3160 PCD Percentage details C 9 || | ||
475 | -- > || | ||
476 | -- > 3170 ----- Segment group 71 ------------------ C 99--------+|| | ||
477 | -- > 3180 TCC Charge/rate calculations M 1 ||| | ||
478 | -- > 3190 CUX Currencies C 1 ||| | ||
479 | -- > 3200 PRI Price details C 1 ||| | ||
480 | -- > 3210 EQN Number of units C 1 ||| | ||
481 | -- > 3220 PCD Percentage details C 1 ||| | ||
482 | -- > 3230 MOA Monetary amount C 9 ||| | ||
483 | -- > 3240 QTY Quantity C 9---------+|| | ||
484 | -- > || | ||
485 | -- > 3250 ----- Segment group 72 ------------------ C 9---------+|| | ||
486 | -- > 3260 NAD Name and address M 1 ||| | ||
487 | -- > 3270 DTM Date/time/period C 1---------+|| | ||
488 | -- > || | ||
489 | -- > 3280 ----- Segment group 73 ------------------ C 99--------+|| | ||
490 | -- > 3290 EQA Attached equipment M 1 ||| | ||
491 | -- > 3300 EQN Number of units C 1---------+|| | ||
492 | -- > || | ||
493 | -- > 3310 ----- Segment group 74 ------------------ C 99--------+|| | ||
494 | -- > 3320 DGS Dangerous goods M 1 ||| | ||
495 | -- > 3330 FTX Free text C 9 ||| | ||
496 | -- > ||| | ||
497 | -- > 3340 ----- Segment group 75 ------------------ C 9--------+||| | ||
498 | -- > 3350 CTA Contact information M 1 |||| | ||
499 | -- > 3360 COM Communication contact C 9--------++++ | ||
500 | -- > 3370 UNT Message trailer M 1 | ||
501 | -- | ||
502 | -- Dependencies: 'segmentBGM', 'segmentCNI', 'segmentCNT', 'segmentCOM', 'segmentCPI', 'segmentCTA', 'segmentCUX', 'segmentDGS', 'segmentDIM', 'segmentDOC', 'segmentDTM', 'segmentEQA', 'segmentEQD', 'segmentEQN', 'segmentFTX', 'segmentGDS', 'segmentGID', 'segmentGIN', 'segmentGOR', 'segmentHAN', 'segmentICD', 'segmentLOC', 'segmentMEA', 'segmentMOA', 'segmentNAD', 'segmentPCD', 'segmentPCI', 'segmentPIA', 'segmentPRI', 'segmentQTY', 'segmentRFF', 'segmentRNG', 'segmentSEL', 'segmentSEQ', 'segmentSGP', 'segmentTCC', 'segmentTDT', 'segmentTMD', 'segmentTMP', 'segmentTOD', 'segmentTPL', 'segmentTSR'. | ||
503 | messageIFCSUM :: Parser Value | ||
504 | messageIFCSUM = | ||
505 | message "IFCSUM" | ||
506 | [ "0010" .@ once segmentUNH | ||
507 | , "0020" .@ once segmentBGM | ||
508 | , "0030" .@ repeated 9 segmentDTM | ||
509 | , "0040" .@ repeated 99 segmentMOA | ||
510 | , "0050" .@ repeated 99 segmentFTX | ||
511 | , "0060" .@ repeated 9 segmentCNT | ||
512 | , "0070" .@ maybeOnce segmentPCD | ||
513 | , "0080" .@ repeated 9 segmentGDS | ||
514 | , "0090" .@ repeated 9 ( | ||
515 | segmentGroup "1" | ||
516 | [ "0100" .@ once segmentRFF | ||
517 | , "0110" .@ repeated 9 segmentDTM | ||
518 | ] | ||
519 | ) | ||
520 | , "0120" .@ repeated 9 ( | ||
521 | segmentGroup "2" | ||
522 | [ "0130" .@ once segmentGOR | ||
523 | , "0140" .@ repeated 9 segmentDTM | ||
524 | , "0150" .@ repeated 9 segmentLOC | ||
525 | , "0160" .@ repeated 9 segmentSEL | ||
526 | , "0170" .@ repeated 9 segmentFTX | ||
527 | , "0180" .@ repeated 9 ( | ||
528 | segmentGroup "3" | ||
529 | [ "0190" .@ once segmentDOC | ||
530 | , "0200" .@ maybeOnce segmentDTM | ||
531 | ] | ||
532 | ) | ||
533 | ] | ||
534 | ) | ||
535 | , "0210" .@ repeated 9 ( | ||
536 | segmentGroup "4" | ||
537 | [ "0220" .@ once segmentNAD | ||
538 | , "0230" .@ repeated 9 ( | ||
539 | segmentGroup "5" | ||
540 | [ "0240" .@ once segmentCTA | ||
541 | , "0250" .@ repeated 9 segmentCOM | ||
542 | ] | ||
543 | ) | ||
544 | , "0260" .@ repeated 9 ( | ||
545 | segmentGroup "6" | ||
546 | [ "0270" .@ once segmentRFF | ||
547 | , "0280" .@ repeated 9 segmentDTM | ||
548 | ] | ||
549 | ) | ||
550 | ] | ||
551 | ) | ||
552 | , "0290" .@ repeated 9 ( | ||
553 | segmentGroup "7" | ||
554 | [ "0300" .@ once segmentTCC | ||
555 | , "0310" .@ maybeOnce segmentCUX | ||
556 | , "0320" .@ maybeOnce segmentPRI | ||
557 | , "0330" .@ maybeOnce segmentEQN | ||
558 | , "0340" .@ maybeOnce segmentPCD | ||
559 | , "0350" .@ repeated 9 segmentMOA | ||
560 | , "0360" .@ repeated 9 segmentQTY | ||
561 | , "0370" .@ repeated 9 segmentLOC | ||
562 | ] | ||
563 | ) | ||
564 | , "0380" .@ repeated 99 ( | ||
565 | segmentGroup "8" | ||
566 | [ "0390" .@ once segmentICD | ||
567 | , "0400" .@ maybeOnce segmentDTM | ||
568 | , "0410" .@ repeated 9 segmentFTX | ||
569 | ] | ||
570 | ) | ||
571 | , "0420" .@ repeated 9 ( | ||
572 | segmentGroup "9" | ||
573 | [ "0430" .@ once segmentTDT | ||
574 | , "0440" .@ repeated 9 segmentDTM | ||
575 | , "0450" .@ repeated 9 segmentTSR | ||
576 | , "0460" .@ repeated 9 ( | ||
577 | segmentGroup "10" | ||
578 | [ "0470" .@ once segmentLOC | ||
579 | , "0480" .@ repeated 9 segmentDTM | ||
580 | ] | ||
581 | ) | ||
582 | , "0490" .@ repeated 9 segmentSEL | ||
583 | , "0500" .@ repeated 9 segmentFTX | ||
584 | , "0510" .@ repeated 9 ( | ||
585 | segmentGroup "11" | ||
586 | [ "0520" .@ once segmentMEA | ||
587 | , "0530" .@ maybeOnce segmentEQN | ||
588 | ] | ||
589 | ) | ||
590 | , "0540" .@ repeated 9 ( | ||
591 | segmentGroup "12" | ||
592 | [ "0550" .@ once segmentDIM | ||
593 | , "0560" .@ maybeOnce segmentEQN | ||
594 | ] | ||
595 | ) | ||
596 | , "0570" .@ repeated 9 ( | ||
597 | segmentGroup "13" | ||
598 | [ "0580" .@ once segmentCTA | ||
599 | , "0590" .@ repeated 9 segmentCOM | ||
600 | ] | ||
601 | ) | ||
602 | , "0600" .@ repeated 99 ( | ||
603 | segmentGroup "14" | ||
604 | [ "0610" .@ once segmentTCC | ||
605 | , "0620" .@ repeated 9 segmentMOA | ||
606 | , "0630" .@ maybeOnce segmentPCD | ||
607 | ] | ||
608 | ) | ||
609 | , "0640" .@ repeated 99 ( | ||
610 | segmentGroup "15" | ||
611 | [ "0650" .@ once segmentICD | ||
612 | , "0660" .@ maybeOnce segmentDTM | ||
613 | , "0670" .@ repeated 9 segmentFTX | ||
614 | ] | ||
615 | ) | ||
616 | , "0680" .@ repeated 9 ( | ||
617 | segmentGroup "16" | ||
618 | [ "0690" .@ once segmentNAD | ||
619 | , "0700" .@ repeated 9 segmentLOC | ||
620 | , "0710" .@ repeated 9 ( | ||
621 | segmentGroup "17" | ||
622 | [ "0720" .@ once segmentCTA | ||
623 | , "0730" .@ repeated 9 segmentCOM | ||
624 | ] | ||
625 | ) | ||
626 | , "0740" .@ repeated 9 ( | ||
627 | segmentGroup "18" | ||
628 | [ "0750" .@ once segmentDOC | ||
629 | , "0760" .@ maybeOnce segmentDTM | ||
630 | ] | ||
631 | ) | ||
632 | , "0770" .@ repeated 9 ( | ||
633 | segmentGroup "19" | ||
634 | [ "0780" .@ once segmentTCC | ||
635 | , "0790" .@ maybeOnce segmentCUX | ||
636 | , "0800" .@ maybeOnce segmentPRI | ||
637 | , "0810" .@ maybeOnce segmentEQN | ||
638 | , "0820" .@ maybeOnce segmentPCD | ||
639 | , "0830" .@ repeated 9 segmentMOA | ||
640 | , "0840" .@ repeated 9 segmentQTY | ||
641 | ] | ||
642 | ) | ||
643 | , "0850" .@ repeated 9 ( | ||
644 | segmentGroup "20" | ||
645 | [ "0860" .@ once segmentRFF | ||
646 | , "0870" .@ repeated 9 segmentDTM | ||
647 | ] | ||
648 | ) | ||
649 | ] | ||
650 | ) | ||
651 | ] | ||
652 | ) | ||
653 | , "0880" .@ repeated 999 ( | ||
654 | segmentGroup "21" | ||
655 | [ "0890" .@ once segmentEQD | ||
656 | , "0900" .@ maybeOnce segmentEQN | ||
657 | , "0910" .@ maybeOnce segmentTPL | ||
658 | , "0920" .@ maybeOnce segmentTMD | ||
659 | , "0930" .@ repeated 9 segmentMEA | ||
660 | , "0940" .@ repeated 9 segmentDIM | ||
661 | , "0950" .@ repeated 9 segmentSEL | ||
662 | , "0960" .@ repeated 9 segmentNAD | ||
663 | , "0970" .@ repeated 9 segmentLOC | ||
664 | , "0980" .@ maybeOnce segmentHAN | ||
665 | , "0990" .@ maybeOnce segmentTMP | ||
666 | , "1000" .@ repeated 9 segmentFTX | ||
667 | , "1010" .@ repeated 9 segmentRFF | ||
668 | , "1020" .@ repeated 9 segmentPCD | ||
669 | , "1030" .@ repeated 99 ( | ||
670 | segmentGroup "22" | ||
671 | [ "1040" .@ once segmentEQA | ||
672 | , "1050" .@ maybeOnce segmentEQN | ||
673 | ] | ||
674 | ) | ||
675 | , "1060" .@ repeated 99 ( | ||
676 | segmentGroup "23" | ||
677 | [ "1070" .@ once segmentDGS | ||
678 | , "1080" .@ repeated 9 segmentFTX | ||
679 | , "1090" .@ once ( | ||
680 | segmentGroup "24" | ||
681 | [ "1100" .@ once segmentCTA | ||
682 | , "1110" .@ repeated 9 segmentCOM | ||
683 | ] | ||
684 | ) | ||
685 | ] | ||
686 | ) | ||
687 | ] | ||
688 | ) | ||
689 | , "1120" .@ repeated 9999 ( | ||
690 | segmentGroup "25" | ||
691 | [ "1130" .@ once segmentCNI | ||
692 | , "1140" .@ repeated 9 ( | ||
693 | segmentGroup "26" | ||
694 | [ "1150" .@ once segmentSGP | ||
695 | , "1160" .@ repeated 9 ( | ||
696 | segmentGroup "27" | ||
697 | [ "1170" .@ once segmentMEA | ||
698 | , "1180" .@ maybeOnce segmentEQN | ||
699 | ] | ||
700 | ) | ||
701 | ] | ||
702 | ) | ||
703 | , "1190" .@ repeated 9 ( | ||
704 | segmentGroup "28" | ||
705 | [ "1200" .@ once segmentTPL | ||
706 | , "1210" .@ repeated 9 ( | ||
707 | segmentGroup "29" | ||
708 | [ "1220" .@ once segmentMEA | ||
709 | , "1230" .@ maybeOnce segmentEQN | ||
710 | ] | ||
711 | ) | ||
712 | ] | ||
713 | ) | ||
714 | , "1240" .@ maybeOnce segmentCTA | ||
715 | , "1250" .@ repeated 9 segmentCOM | ||
716 | , "1260" .@ repeated 9 segmentDTM | ||
717 | , "1270" .@ repeated 9 segmentCNT | ||
718 | , "1280" .@ repeated 9 segmentTSR | ||
719 | , "1290" .@ repeated 9 segmentCUX | ||
720 | , "1300" .@ repeated 9 segmentPCD | ||
721 | , "1310" .@ repeated 99 segmentMOA | ||
722 | , "1320" .@ repeated 99 segmentFTX | ||
723 | , "1330" .@ repeated 9 segmentGDS | ||
724 | , "1340" .@ repeated 99 ( | ||
725 | segmentGroup "30" | ||
726 | [ "1350" .@ once segmentLOC | ||
727 | , "1360" .@ repeated 9 segmentDTM | ||
728 | ] | ||
729 | ) | ||
730 | , "1370" .@ repeated 2 ( | ||
731 | segmentGroup "31" | ||
732 | [ "1380" .@ once segmentTOD | ||
733 | , "1390" .@ repeated 9 segmentLOC | ||
734 | ] | ||
735 | ) | ||
736 | , "1400" .@ repeated 999 ( | ||
737 | segmentGroup "32" | ||
738 | [ "1410" .@ once segmentRFF | ||
739 | , "1420" .@ repeated 9 segmentDTM | ||
740 | ] | ||
741 | ) | ||
742 | , "1430" .@ repeated 9 ( | ||
743 | segmentGroup "33" | ||
744 | [ "1440" .@ once segmentGOR | ||
745 | , "1450" .@ repeated 9 segmentDTM | ||
746 | , "1460" .@ repeated 9 segmentLOC | ||
747 | , "1470" .@ repeated 9 segmentSEL | ||
748 | , "1480" .@ repeated 9 segmentFTX | ||
749 | , "1490" .@ repeated 9 ( | ||
750 | segmentGroup "34" | ||
751 | [ "1500" .@ once segmentDOC | ||
752 | , "1510" .@ maybeOnce segmentDTM | ||
753 | ] | ||
754 | ) | ||
755 | ] | ||
756 | ) | ||
757 | , "1520" .@ repeated 9 ( | ||
758 | segmentGroup "35" | ||
759 | [ "1530" .@ once segmentCPI | ||
760 | , "1540" .@ repeated 99 segmentRFF | ||
761 | , "1550" .@ maybeOnce segmentCUX | ||
762 | , "1560" .@ repeated 9 segmentLOC | ||
763 | , "1570" .@ repeated 9 segmentMOA | ||
764 | ] | ||
765 | ) | ||
766 | , "1580" .@ repeated 99 ( | ||
767 | segmentGroup "36" | ||
768 | [ "1590" .@ once segmentTCC | ||
769 | , "1600" .@ maybeOnce segmentLOC | ||
770 | , "1610" .@ maybeOnce segmentFTX | ||
771 | , "1620" .@ maybeOnce segmentCUX | ||
772 | , "1630" .@ maybeOnce segmentPRI | ||
773 | , "1640" .@ maybeOnce segmentEQN | ||
774 | , "1650" .@ maybeOnce segmentPCD | ||
775 | , "1660" .@ repeated 9 segmentMOA | ||
776 | , "1670" .@ repeated 9 segmentQTY | ||
777 | ] | ||
778 | ) | ||
779 | , "1680" .@ repeated 99 ( | ||
780 | segmentGroup "37" | ||
781 | [ "1690" .@ once segmentICD | ||
782 | , "1700" .@ maybeOnce segmentDTM | ||
783 | , "1710" .@ repeated 9 segmentFTX | ||
784 | ] | ||
785 | ) | ||
786 | , "1720" .@ repeated 99 ( | ||
787 | segmentGroup "38" | ||
788 | [ "1730" .@ once segmentTDT | ||
789 | , "1740" .@ repeated 9 segmentDTM | ||
790 | , "1750" .@ repeated 9 segmentTSR | ||
791 | , "1760" .@ repeated 99 ( | ||
792 | segmentGroup "39" | ||
793 | [ "1770" .@ once segmentLOC | ||
794 | , "1780" .@ repeated 9 segmentDTM | ||
795 | ] | ||
796 | ) | ||
797 | , "1790" .@ repeated 9 ( | ||
798 | segmentGroup "40" | ||
799 | [ "1800" .@ once segmentRFF | ||
800 | , "1810" .@ maybeOnce segmentDTM | ||
801 | ] | ||
802 | ) | ||
803 | , "1820" .@ repeated 99 ( | ||
804 | segmentGroup "41" | ||
805 | [ "1830" .@ once segmentTCC | ||
806 | , "1840" .@ repeated 9 segmentMOA | ||
807 | , "1850" .@ maybeOnce segmentPCD | ||
808 | ] | ||
809 | ) | ||
810 | , "1860" .@ repeated 99 ( | ||
811 | segmentGroup "42" | ||
812 | [ "1870" .@ once segmentICD | ||
813 | , "1880" .@ maybeOnce segmentDTM | ||
814 | , "1890" .@ repeated 9 segmentFTX | ||
815 | ] | ||
816 | ) | ||
817 | ] | ||
818 | ) | ||
819 | , "1900" .@ repeated 99 ( | ||
820 | segmentGroup "43" | ||
821 | [ "1910" .@ once segmentNAD | ||
822 | , "1920" .@ repeated 9 segmentLOC | ||
823 | , "1930" .@ repeated 9 segmentMOA | ||
824 | , "1940" .@ repeated 9 ( | ||
825 | segmentGroup "44" | ||
826 | [ "1950" .@ once segmentCTA | ||
827 | , "1960" .@ repeated 9 segmentCOM | ||
828 | ] | ||
829 | ) | ||
830 | , "1970" .@ repeated 9 ( | ||
831 | segmentGroup "45" | ||
832 | [ "1980" .@ once segmentDOC | ||
833 | , "1990" .@ maybeOnce segmentDTM | ||
834 | ] | ||
835 | ) | ||
836 | , "2000" .@ repeated 99 ( | ||
837 | segmentGroup "46" | ||
838 | [ "2010" .@ once segmentTCC | ||
839 | , "2020" .@ maybeOnce segmentCUX | ||
840 | , "2030" .@ maybeOnce segmentPRI | ||
841 | , "2040" .@ maybeOnce segmentEQN | ||
842 | , "2050" .@ maybeOnce segmentPCD | ||
843 | , "2060" .@ repeated 9 segmentMOA | ||
844 | , "2070" .@ repeated 9 segmentQTY | ||
845 | ] | ||
846 | ) | ||
847 | , "2080" .@ repeated 9 ( | ||
848 | segmentGroup "47" | ||
849 | [ "2090" .@ once segmentRFF | ||
850 | , "2100" .@ repeated 9 segmentDTM | ||
851 | ] | ||
852 | ) | ||
853 | , "2110" .@ repeated 9 ( | ||
854 | segmentGroup "48" | ||
855 | [ "2120" .@ once segmentCPI | ||
856 | , "2130" .@ repeated 99 segmentRFF | ||
857 | , "2140" .@ maybeOnce segmentCUX | ||
858 | , "2150" .@ repeated 9 segmentLOC | ||
859 | , "2160" .@ repeated 9 segmentMOA | ||
860 | ] | ||
861 | ) | ||
862 | , "2170" .@ repeated 99 ( | ||
863 | segmentGroup "49" | ||
864 | [ "2180" .@ once segmentTSR | ||
865 | , "2190" .@ maybeOnce segmentRFF | ||
866 | , "2200" .@ maybeOnce segmentLOC | ||
867 | , "2210" .@ maybeOnce segmentTPL | ||
868 | , "2220" .@ repeated 9 segmentFTX | ||
869 | ] | ||
870 | ) | ||
871 | ] | ||
872 | ) | ||
873 | , "2230" .@ repeated 999 ( | ||
874 | segmentGroup "50" | ||
875 | [ "2240" .@ once segmentGID | ||
876 | , "2250" .@ maybeOnce segmentHAN | ||
877 | , "2260" .@ maybeOnce segmentTMP | ||
878 | , "2270" .@ maybeOnce segmentRNG | ||
879 | , "2280" .@ maybeOnce segmentTMD | ||
880 | , "2290" .@ repeated 9 segmentLOC | ||
881 | , "2300" .@ repeated 9 segmentMOA | ||
882 | , "2310" .@ repeated 9 segmentPIA | ||
883 | , "2320" .@ repeated 99 segmentGIN | ||
884 | , "2330" .@ repeated 9 segmentFTX | ||
885 | , "2340" .@ repeated 9 ( | ||
886 | segmentGroup "51" | ||
887 | [ "2350" .@ once segmentNAD | ||
888 | , "2360" .@ maybeOnce segmentDTM | ||
889 | ] | ||
890 | ) | ||
891 | , "2370" .@ repeated 9 segmentGDS | ||
892 | , "2380" .@ repeated 99 ( | ||
893 | segmentGroup "52" | ||
894 | [ "2390" .@ once segmentMEA | ||
895 | , "2400" .@ maybeOnce segmentEQN | ||
896 | ] | ||
897 | ) | ||
898 | , "2410" .@ repeated 99 ( | ||
899 | segmentGroup "53" | ||
900 | [ "2420" .@ once segmentDIM | ||
901 | , "2430" .@ maybeOnce segmentEQN | ||
902 | ] | ||
903 | ) | ||
904 | , "2440" .@ repeated 9 ( | ||
905 | segmentGroup "54" | ||
906 | [ "2450" .@ once segmentRFF | ||
907 | , "2460" .@ repeated 9 segmentDTM | ||
908 | ] | ||
909 | ) | ||
910 | , "2470" .@ repeated 999 ( | ||
911 | segmentGroup "55" | ||
912 | [ "2480" .@ once segmentPCI | ||
913 | , "2490" .@ maybeOnce segmentRFF | ||
914 | , "2500" .@ maybeOnce segmentDTM | ||
915 | , "2510" .@ repeated 9 segmentGIN | ||
916 | , "2520" .@ repeated 9 segmentMEA | ||
917 | , "2530" .@ maybeOnce segmentDIM | ||
918 | , "2540" .@ repeated 9 segmentFTX | ||
919 | ] | ||
920 | ) | ||
921 | , "2550" .@ repeated 9 ( | ||
922 | segmentGroup "56" | ||
923 | [ "2560" .@ once segmentDOC | ||
924 | , "2570" .@ repeated 9 segmentDTM | ||
925 | ] | ||
926 | ) | ||
927 | , "2580" .@ repeated 9 ( | ||
928 | segmentGroup "57" | ||
929 | [ "2590" .@ once segmentGOR | ||
930 | , "2600" .@ repeated 9 segmentDTM | ||
931 | , "2610" .@ repeated 9 segmentLOC | ||
932 | , "2620" .@ repeated 9 segmentSEL | ||
933 | , "2630" .@ repeated 9 segmentFTX | ||
934 | , "2640" .@ repeated 9 ( | ||
935 | segmentGroup "58" | ||
936 | [ "2650" .@ once segmentDOC | ||
937 | , "2660" .@ maybeOnce segmentDTM | ||
938 | ] | ||
939 | ) | ||
940 | ] | ||
941 | ) | ||
942 | , "2670" .@ repeated 9 ( | ||
943 | segmentGroup "59" | ||
944 | [ "2680" .@ once segmentTPL | ||
945 | , "2690" .@ repeated 9 ( | ||
946 | segmentGroup "60" | ||
947 | [ "2700" .@ once segmentMEA | ||
948 | , "2710" .@ maybeOnce segmentEQN | ||
949 | ] | ||
950 | ) | ||
951 | ] | ||
952 | ) | ||
953 | , "2720" .@ repeated 999 ( | ||
954 | segmentGroup "61" | ||
955 | [ "2730" .@ once segmentSGP | ||
956 | , "2740" .@ maybeOnce segmentSEQ | ||
957 | , "2750" .@ repeated 9 ( | ||
958 | segmentGroup "62" | ||
959 | [ "2760" .@ once segmentMEA | ||
960 | , "2770" .@ maybeOnce segmentEQN | ||
961 | ] | ||
962 | ) | ||
963 | ] | ||
964 | ) | ||
965 | , "2780" .@ repeated 99 ( | ||
966 | segmentGroup "63" | ||
967 | [ "2790" .@ once segmentTCC | ||
968 | , "2800" .@ maybeOnce segmentCUX | ||
969 | , "2810" .@ maybeOnce segmentPRI | ||
970 | , "2820" .@ maybeOnce segmentEQN | ||
971 | , "2830" .@ maybeOnce segmentPCD | ||
972 | , "2840" .@ repeated 9 segmentMOA | ||
973 | , "2850" .@ repeated 9 segmentQTY | ||
974 | , "2860" .@ repeated 9 segmentLOC | ||
975 | ] | ||
976 | ) | ||
977 | , "2870" .@ repeated 99 ( | ||
978 | segmentGroup "64" | ||
979 | [ "2880" .@ once segmentICD | ||
980 | , "2890" .@ maybeOnce segmentDTM | ||
981 | , "2900" .@ repeated 9 segmentFTX | ||
982 | ] | ||
983 | ) | ||
984 | , "2910" .@ repeated 99 ( | ||
985 | segmentGroup "65" | ||
986 | [ "2920" .@ once segmentDGS | ||
987 | , "2930" .@ repeated 99 segmentFTX | ||
988 | , "2940" .@ repeated 9 ( | ||
989 | segmentGroup "66" | ||
990 | [ "2950" .@ once segmentCTA | ||
991 | , "2960" .@ repeated 9 segmentCOM | ||
992 | ] | ||
993 | ) | ||
994 | , "2970" .@ repeated 9 ( | ||
995 | segmentGroup "67" | ||
996 | [ "2980" .@ once segmentMEA | ||
997 | , "2990" .@ maybeOnce segmentEQN | ||
998 | ] | ||
999 | ) | ||
1000 | , "3000" .@ repeated 999 ( | ||
1001 | segmentGroup "68" | ||
1002 | [ "3010" .@ once segmentSGP | ||
1003 | , "3020" .@ repeated 9 ( | ||
1004 | segmentGroup "69" | ||
1005 | [ "3030" .@ once segmentMEA | ||
1006 | , "3040" .@ maybeOnce segmentEQN | ||
1007 | ] | ||
1008 | ) | ||
1009 | ] | ||
1010 | ) | ||
1011 | ] | ||
1012 | ) | ||
1013 | ] | ||
1014 | ) | ||
1015 | , "3050" .@ repeated 999 ( | ||
1016 | segmentGroup "70" | ||
1017 | [ "3060" .@ once segmentEQD | ||
1018 | , "3070" .@ maybeOnce segmentEQN | ||
1019 | , "3080" .@ maybeOnce segmentTMD | ||
1020 | , "3090" .@ repeated 9 segmentMEA | ||
1021 | , "3100" .@ repeated 9 segmentDIM | ||
1022 | , "3110" .@ repeated 99 segmentSEL | ||
1023 | , "3120" .@ repeated 9 segmentTPL | ||
1024 | , "3130" .@ maybeOnce segmentHAN | ||
1025 | , "3140" .@ maybeOnce segmentTMP | ||
1026 | , "3150" .@ repeated 9 segmentFTX | ||
1027 | , "3160" .@ repeated 9 segmentPCD | ||
1028 | , "3170" .@ repeated 99 ( | ||
1029 | segmentGroup "71" | ||
1030 | [ "3180" .@ once segmentTCC | ||
1031 | , "3190" .@ maybeOnce segmentCUX | ||
1032 | , "3200" .@ maybeOnce segmentPRI | ||
1033 | , "3210" .@ maybeOnce segmentEQN | ||
1034 | , "3220" .@ maybeOnce segmentPCD | ||
1035 | , "3230" .@ repeated 9 segmentMOA | ||
1036 | , "3240" .@ repeated 9 segmentQTY | ||
1037 | ] | ||
1038 | ) | ||
1039 | , "3250" .@ repeated 9 ( | ||
1040 | segmentGroup "72" | ||
1041 | [ "3260" .@ once segmentNAD | ||
1042 | , "3270" .@ maybeOnce segmentDTM | ||
1043 | ] | ||
1044 | ) | ||
1045 | , "3280" .@ repeated 99 ( | ||
1046 | segmentGroup "73" | ||
1047 | [ "3290" .@ once segmentEQA | ||
1048 | , "3300" .@ maybeOnce segmentEQN | ||
1049 | ] | ||
1050 | ) | ||
1051 | , "3310" .@ repeated 99 ( | ||
1052 | segmentGroup "74" | ||
1053 | [ "3320" .@ once segmentDGS | ||
1054 | , "3330" .@ repeated 9 segmentFTX | ||
1055 | , "3340" .@ repeated 9 ( | ||
1056 | segmentGroup "75" | ||
1057 | [ "3350" .@ once segmentCTA | ||
1058 | , "3360" .@ repeated 9 segmentCOM | ||
1059 | ] | ||
1060 | ) | ||
1061 | ] | ||
1062 | ) | ||
1063 | ] | ||
1064 | ) | ||
1065 | ] | ||
1066 | ) | ||
1067 | , "3370" .@ once segmentUNT | ||
1068 | ] | ||
diff --git a/specification/src/Text/Edifact/D01B/Messages/IFTSTA.hs b/specification/src/Text/Edifact/D01B/Messages/IFTSTA.hs new file mode 100644 index 0000000..23e53c3 --- /dev/null +++ b/specification/src/Text/Edifact/D01B/Messages/IFTSTA.hs | |||
@@ -0,0 +1,265 @@ | |||
1 | {-# LANGUAGE OverloadedStrings #-} | ||
2 | |||
3 | ---- Machine generated code. | ||
4 | ---- Output of edi-parser-scaffolder | ||
5 | |||
6 | module Text.Edifact.D01B.Messages.IFTSTA | ||
7 | ( -- * Definition | ||
8 | messageIFTSTA | ||
9 | -- * Dependencies | ||
10 | , segmentBGM | ||
11 | , segmentCNI | ||
12 | , segmentCNT | ||
13 | , segmentCOM | ||
14 | , segmentCTA | ||
15 | , segmentDGS | ||
16 | , segmentDIM | ||
17 | , segmentDOC | ||
18 | , segmentDTM | ||
19 | , segmentEQA | ||
20 | , segmentEQD | ||
21 | , segmentEQN | ||
22 | , segmentFTX | ||
23 | , segmentGID | ||
24 | , segmentGIN | ||
25 | , segmentHAN | ||
26 | , segmentLOC | ||
27 | , segmentMEA | ||
28 | , segmentNAD | ||
29 | , segmentPCI | ||
30 | , segmentRFF | ||
31 | , segmentSEL | ||
32 | , segmentSGP | ||
33 | , segmentSTS | ||
34 | , segmentTDT | ||
35 | , segmentTMD | ||
36 | , segmentTPL | ||
37 | , segmentTSR | ||
38 | ) where | ||
39 | |||
40 | import Text.Edifact.Common.Segments | ||
41 | |||
42 | import Text.Edifact.D01B.Segments (segmentBGM, segmentCNI, | ||
43 | segmentCNT, segmentCOM, | ||
44 | segmentCTA, segmentDGS, | ||
45 | segmentDIM, segmentDOC, | ||
46 | segmentDTM, segmentEQA, | ||
47 | segmentEQD, segmentEQN, | ||
48 | segmentFTX, segmentGID, | ||
49 | segmentGIN, segmentHAN, | ||
50 | segmentLOC, segmentMEA, | ||
51 | segmentNAD, segmentPCI, | ||
52 | segmentRFF, segmentSEL, | ||
53 | segmentSGP, segmentSTS, | ||
54 | segmentTDT, segmentTMD, | ||
55 | segmentTPL, segmentTSR) | ||
56 | |||
57 | import Text.Edifact.Parsing | ||
58 | import Text.Edifact.Types (Value) | ||
59 | |||
60 | -- | Derived from this specification: | ||
61 | -- | ||
62 | -- > 4.3 Message structure | ||
63 | -- > | ||
64 | -- > 4.3.1 Segment table | ||
65 | -- > | ||
66 | -- > Pos Tag Name S R | ||
67 | -- > | ||
68 | -- > 0010 UNH Message header M 1 | ||
69 | -- > 0020 BGM Beginning of message M 1 | ||
70 | -- > 0030 DTM Date/time/period C 9 | ||
71 | -- > 0040 TSR Transport service requirements C 1 | ||
72 | -- > | ||
73 | -- > 0050 ----- Segment group 1 ------------------ C 9-----------+ | ||
74 | -- > 0060 NAD Name and address M 1 | | ||
75 | -- > | | ||
76 | -- > 0070 ----- Segment group 2 ------------------ C 9----------+| | ||
77 | -- > 0080 CTA Contact information M 1 || | ||
78 | -- > 0090 COM Communication contact C 9----------++ | ||
79 | -- > | ||
80 | -- > 0100 ----- Segment group 3 ------------------ C 9-----------+ | ||
81 | -- > 0110 RFF Reference M 1 | | ||
82 | -- > 0120 DTM Date/time/period C 1-----------+ | ||
83 | -- > 0130 LOC Place/location identification C 9 | ||
84 | -- > 0140 FTX Free text C 9 | ||
85 | -- > 0150 CNT Control total C 9 | ||
86 | -- > | ||
87 | -- > 0160 ----- Segment group 4 ------------------ C 99999-------+ | ||
88 | -- > 0170 CNI Consignment information M 1 | | ||
89 | -- > 0180 LOC Place/location identification C 9 | | ||
90 | -- > 0190 CNT Control total C 9 | | ||
91 | -- > | | ||
92 | -- > 0200 ----- Segment group 5 ------------------ M 99---------+| | ||
93 | -- > 0210 STS Status M 1 || | ||
94 | -- > 0220 RFF Reference C 999 || | ||
95 | -- > 0230 DTM Date/time/period C 9 || | ||
96 | -- > 0240 DOC Document/message details C 1 || | ||
97 | -- > 0250 FTX Free text C 9 || | ||
98 | -- > || | ||
99 | -- > 0260 ----- Segment group 6 ------------------ C 9---------+|| | ||
100 | -- > 0270 NAD Name and address M 1 ||| | ||
101 | -- > ||| | ||
102 | -- > 0280 ----- Segment group 7 ------------------ C 9--------+||| | ||
103 | -- > 0290 CTA Contact information M 1 |||| | ||
104 | -- > 0300 COM Communication contact C 9--------++|| | ||
105 | -- > 0310 LOC Place/location identification C 1 || | ||
106 | -- > 0320 PCI Package identification C 99 || | ||
107 | -- > || | ||
108 | -- > 0330 ----- Segment group 8 ------------------ C 99--------+|| | ||
109 | -- > 0340 TDT Details of transport M 1 ||| | ||
110 | -- > 0350 DTM Date/time/period C 9 ||| | ||
111 | -- > 0360 RFF Reference C 9 ||| | ||
112 | -- > ||| | ||
113 | -- > 0370 ----- Segment group 9 ------------------ C 9--------+||| | ||
114 | -- > 0380 LOC Place/location identification M 1 |||| | ||
115 | -- > 0390 DTM Date/time/period C 9--------++|| | ||
116 | -- > || | ||
117 | -- > 0400 ----- Segment group 10 ------------------ C 99--------+|| | ||
118 | -- > 0410 EQD Equipment details M 1 ||| | ||
119 | -- > 0420 MEA Measurements C 9 ||| | ||
120 | -- > 0430 DIM Dimensions C 9 ||| | ||
121 | -- > 0440 SEL Seal number C 9 ||| | ||
122 | -- > 0450 RFF Reference C 9 ||| | ||
123 | -- > 0460 TPL Transport placement C 9 ||| | ||
124 | -- > 0470 TMD Transport movement details C 1 ||| | ||
125 | -- > ||| | ||
126 | -- > 0480 ----- Segment group 11 ------------------ C 99-------+||| | ||
127 | -- > 0490 EQA Attached equipment M 1 |||| | ||
128 | -- > 0500 SEL Seal number C 9--------++|| | ||
129 | -- > || | ||
130 | -- > 0510 ----- Segment group 12 ------------------ C 99--------+|| | ||
131 | -- > 0520 GID Goods item details M 1 ||| | ||
132 | -- > 0530 HAN Handling instructions C 9 ||| | ||
133 | -- > 0540 SGP Split goods placement C 99 ||| | ||
134 | -- > 0550 DGS Dangerous goods C 9 ||| | ||
135 | -- > 0560 FTX Free text C 9 ||| | ||
136 | -- > ||| | ||
137 | -- > 0570 ----- Segment group 13 ------------------ C 99-------+||| | ||
138 | -- > 0580 MEA Measurements M 1 |||| | ||
139 | -- > 0590 EQN Number of units C 1--------+||| | ||
140 | -- > ||| | ||
141 | -- > 0600 ----- Segment group 14 ------------------ C 99-------+||| | ||
142 | -- > 0610 DIM Dimensions M 1 |||| | ||
143 | -- > 0620 EQN Number of units C 1--------+||| | ||
144 | -- > ||| | ||
145 | -- > 0630 ----- Segment group 15 ------------------ C 99-------+||| | ||
146 | -- > 0640 PCI Package identification M 1 |||| | ||
147 | -- > 0650 GIN Goods identity number C 9--------++++ | ||
148 | -- > 0660 UNT Message trailer M 1 | ||
149 | -- | ||
150 | -- Dependencies: 'segmentBGM', 'segmentCNI', 'segmentCNT', 'segmentCOM', 'segmentCTA', 'segmentDGS', 'segmentDIM', 'segmentDOC', 'segmentDTM', 'segmentEQA', 'segmentEQD', 'segmentEQN', 'segmentFTX', 'segmentGID', 'segmentGIN', 'segmentHAN', 'segmentLOC', 'segmentMEA', 'segmentNAD', 'segmentPCI', 'segmentRFF', 'segmentSEL', 'segmentSGP', 'segmentSTS', 'segmentTDT', 'segmentTMD', 'segmentTPL', 'segmentTSR'. | ||
151 | messageIFTSTA :: Parser Value | ||
152 | messageIFTSTA = | ||
153 | message "IFTSTA" | ||
154 | [ "0010" .@ once segmentUNH | ||
155 | , "0020" .@ once segmentBGM | ||
156 | , "0030" .@ repeated 9 segmentDTM | ||
157 | , "0040" .@ maybeOnce segmentTSR | ||
158 | , "0050" .@ repeated 9 ( | ||
159 | segmentGroup "1" | ||
160 | [ "0060" .@ once segmentNAD | ||
161 | , "0070" .@ repeated 9 ( | ||
162 | segmentGroup "2" | ||
163 | [ "0080" .@ once segmentCTA | ||
164 | , "0090" .@ repeated 9 segmentCOM | ||
165 | ] | ||
166 | ) | ||
167 | ] | ||
168 | ) | ||
169 | , "0100" .@ repeated 9 ( | ||
170 | segmentGroup "3" | ||
171 | [ "0110" .@ once segmentRFF | ||
172 | , "0120" .@ maybeOnce segmentDTM | ||
173 | ] | ||
174 | ) | ||
175 | , "0130" .@ repeated 9 segmentLOC | ||
176 | , "0140" .@ repeated 9 segmentFTX | ||
177 | , "0150" .@ repeated 9 segmentCNT | ||
178 | , "0160" .@ repeated 99999 ( | ||
179 | segmentGroup "4" | ||
180 | [ "0170" .@ once segmentCNI | ||
181 | , "0180" .@ repeated 9 segmentLOC | ||
182 | , "0190" .@ repeated 9 segmentCNT | ||
183 | , "0200" .@ repeatedAtLeastOnce 99 ( | ||
184 | segmentGroup "5" | ||
185 | [ "0210" .@ once segmentSTS | ||
186 | , "0220" .@ repeated 999 segmentRFF | ||
187 | , "0230" .@ repeated 9 segmentDTM | ||
188 | , "0240" .@ maybeOnce segmentDOC | ||
189 | , "0250" .@ repeated 9 segmentFTX | ||
190 | , "0260" .@ repeated 9 ( | ||
191 | segmentGroup "6" | ||
192 | [ "0270" .@ once segmentNAD | ||
193 | , "0280" .@ repeated 9 ( | ||
194 | segmentGroup "7" | ||
195 | [ "0290" .@ once segmentCTA | ||
196 | , "0300" .@ repeated 9 segmentCOM | ||
197 | ] | ||
198 | ) | ||
199 | ] | ||
200 | ) | ||
201 | , "0310" .@ maybeOnce segmentLOC | ||
202 | , "0320" .@ repeated 99 segmentPCI | ||
203 | , "0330" .@ repeated 99 ( | ||
204 | segmentGroup "8" | ||
205 | [ "0340" .@ once segmentTDT | ||
206 | , "0350" .@ repeated 9 segmentDTM | ||
207 | , "0360" .@ repeated 9 segmentRFF | ||
208 | , "0370" .@ repeated 9 ( | ||
209 | segmentGroup "9" | ||
210 | [ "0380" .@ once segmentLOC | ||
211 | , "0390" .@ repeated 9 segmentDTM | ||
212 | ] | ||
213 | ) | ||
214 | ] | ||
215 | ) | ||
216 | , "0400" .@ repeated 99 ( | ||
217 | segmentGroup "10" | ||
218 | [ "0410" .@ once segmentEQD | ||
219 | , "0420" .@ repeated 9 segmentMEA | ||
220 | , "0430" .@ repeated 9 segmentDIM | ||
221 | , "0440" .@ repeated 9 segmentSEL | ||
222 | , "0450" .@ repeated 9 segmentRFF | ||
223 | , "0460" .@ repeated 9 segmentTPL | ||
224 | , "0470" .@ maybeOnce segmentTMD | ||
225 | , "0480" .@ repeated 99 ( | ||
226 | segmentGroup "11" | ||
227 | [ "0490" .@ once segmentEQA | ||
228 | , "0500" .@ repeated 9 segmentSEL | ||
229 | ] | ||
230 | ) | ||
231 | ] | ||
232 | ) | ||
233 | , "0510" .@ repeated 99 ( | ||
234 | segmentGroup "12" | ||
235 | [ "0520" .@ once segmentGID | ||
236 | , "0530" .@ repeated 9 segmentHAN | ||
237 | , "0540" .@ repeated 99 segmentSGP | ||
238 | , "0550" .@ repeated 9 segmentDGS | ||
239 | , "0560" .@ repeated 9 segmentFTX | ||
240 | , "0570" .@ repeated 99 ( | ||
241 | segmentGroup "13" | ||
242 | [ "0580" .@ once segmentMEA | ||
243 | , "0590" .@ maybeOnce segmentEQN | ||
244 | ] | ||
245 | ) | ||
246 | , "0600" .@ repeated 99 ( | ||
247 | segmentGroup "14" | ||
248 | [ "0610" .@ once segmentDIM | ||
249 | , "0620" .@ maybeOnce segmentEQN | ||
250 | ] | ||
251 | ) | ||
252 | , "0630" .@ repeated 99 ( | ||
253 | segmentGroup "15" | ||
254 | [ "0640" .@ once segmentPCI | ||
255 | , "0650" .@ repeated 9 segmentGIN | ||
256 | ] | ||
257 | ) | ||
258 | ] | ||
259 | ) | ||
260 | ] | ||
261 | ) | ||
262 | ] | ||
263 | ) | ||
264 | , "0660" .@ once segmentUNT | ||
265 | ] | ||