]>
Commit | Line | Data |
---|---|---|
a9d77a20 FM |
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 | ] |