1 | SDRPA14 ;BP-OIFO/ESW - UTILITY ; 6/9/04 8:27am
|
---|
2 | ;;5.3;Scheduling;**376**;Aug 13, 1993
|
---|
3 | EN(ST) ;
|
---|
4 | N SR,II,STR,SA,STE,GG,SS,SQS,ER,SB,SM,SQ
|
---|
5 | F II=1:1 S STR=$P($T(@ST+II),";;",2) Q:+STR'=ST D
|
---|
6 | .S SA=$P(STR,";",2) Q:SA'="B"
|
---|
7 | .S SB=$P(STR,";",3),SM=$P(STR,";",4) D
|
---|
8 | ..F GG=1:1 S STE=$P($T(@ST+II+GG),";;",2) Q:+STE'=ST!($P(STE,";",2)="B") D
|
---|
9 | ...S ER=$P(STE,";",3) S SQS=$P(STE,";",4) F SS=1:1 S SQ=$P(SQS,",",SS) Q:SQ="" D PR^SD376P(SB,SM,ER,SQ)
|
---|
10 | ..;update batch acknowledgement
|
---|
11 | ..S ER="" S SQ=$O(^SDWL(409.6,"AMSG",SM,"")) Q:SQ="" D PR^SD376P(SB,SM,ER,SQ)
|
---|
12 | Q
|
---|
13 | 573 ;;
|
---|
14 | ;;573;B;57341415896;57315611095
|
---|
15 | ;;573;ER;350;3839,4363,4523,
|
---|
16 | ;;573;B;57341418138;57315613298
|
---|
17 | ;;573;ER;350;4376,
|
---|
18 | ;;573;B;57341485488;57315713018
|
---|
19 | ;;573;ER;350;1166,
|
---|
20 | ;;573;B;57341487141;57315716177
|
---|
21 | ;;573;ER;400;196,
|
---|
22 | ;;573;B;57341489204;57315718962
|
---|
23 | ;;573;ER;200;2755,
|
---|
24 | ;;573;B;57341489679;57315719529
|
---|
25 | ;;573;ER;200;2509,
|
---|
26 | ;;573;B;57341492136;57315722645
|
---|
27 | ;;573;ER;200;4636,
|
---|
28 | ;;573;B;57341492794;57315724385
|
---|
29 | ;;573;ER;700;1820,1821,1822,1823,
|
---|
30 | ;;573;B;57341495581;57315727630
|
---|
31 | ;;573;ER;200;4448,
|
---|
32 | ;;573;ER;400;550,
|
---|
33 | ;;573;B;57341498824;57315731474
|
---|
34 | ;;573;ER;200;1816,2711,
|
---|
35 | ;;573;B;57341500431;57315733222
|
---|
36 | ;;573;ER;400;35,
|
---|
37 | ;;573;B;57341503288;57315737113
|
---|
38 | ;;573;ER;200;2480,
|
---|
39 | ;;573;B;57341520649;57315761979
|
---|
40 | ;;573;ER;350;1962,4422,
|
---|
41 | ;;573;ER;400;259,
|
---|
42 | ;;573;B;57341569767;57315841639
|
---|
43 | ;;573;ER;200;1577,
|
---|
44 | ;;573;B;57341570917;57315843211
|
---|
45 | ;;573;ER;200;1678,2517,2826,
|
---|
46 | ;;573;B;57341575458;57315852716
|
---|
47 | ;;573;ER;200;4596,
|
---|
48 | ;;573;ER;350;4077,
|
---|
49 | ;;573;B;57341579418;57315857030
|
---|
50 | ;;573;ER;200;1818,
|
---|
51 | ;;573;B;57341674187;57316001990
|
---|
52 | ;;573;ER;200;3044,3292,
|
---|
53 | ;;573;B;57341679090;57316011044
|
---|
54 | ;;573;ER;200;2092,2094,
|
---|
55 | ;;573;B;57341681987;57316015213
|
---|
56 | ;;573;ER;200;1380,
|
---|
57 | ;;573;ER;350;1516,
|
---|
58 | ;;573;B;57341695560;57316035922
|
---|
59 | ;;573;ER;200;4518,
|
---|
60 | ;;573;B;57341698193;57316040853
|
---|
61 | ;;573;ER;400;651,652,653,654,655,
|
---|
62 | ;;573;B;57341706343;57316060325
|
---|
63 | ;;573;ER;200;2505,2901,3195,
|
---|
64 | ;;573;B;57341707374;57316061797
|
---|
65 | ;;573;ER;200;4600,
|
---|
66 | ;;573;B;57341709992;57316070530
|
---|
67 | ;;573;ER;200;4570,
|
---|
68 | ;;573;B;57341710221;57316070949
|
---|
69 | ;;573;ER;200;4093,
|
---|
70 | ;;573;B;57341711151;57316071850
|
---|
71 | ;;573;ER;200;1729,
|
---|
72 | ;;573;B;57341716961;57316079101
|
---|
73 | ;;573;ER;700;1071,
|
---|
74 | ;;573;B;57341773438;57316162909
|
---|
75 | ;;573;ER;400;228,229,692,750,
|
---|
76 | ;;573;B;57341781048;57316175318
|
---|
77 | ;;573;ER;400;612,
|
---|
78 | ;;573;B;57341791215;57316189877
|
---|
79 | ;;573;ER;200;1702,2431,
|
---|
80 | ;;573;B;57341828949;57316236656
|
---|
81 | ;;573;ER;200;3837,4318,
|
---|
82 | ;;573;B;57341832016;57316242557
|
---|
83 | ;;573;ER;200;1379,
|
---|
84 | ;;573;ER;400;693,
|
---|
85 | ;;573;B;57341834624;57316245932
|
---|
86 | ;;573;ER;200;325,326,4404,
|
---|
87 | ;;573;B;57341836365;57316248426
|
---|
88 | ;;573;ER;400;660,
|
---|
89 | ;;573;B;57341836617;57316248858
|
---|
90 | ;;573;ER;200;2279,2978,
|
---|
91 | ;;573;B;57341836857;57316248968
|
---|
92 | ;;573;ER;400;320,
|
---|
93 | ;;573;B;57341837065;57316249491
|
---|
94 | ;;573;ER;200;375,
|
---|
95 | ;;573;B;57341837257;57316249683
|
---|
96 | ;;573;ER;200;2151,2154,
|
---|
97 | ;;573;B;57341837471;57316250076
|
---|
98 | ;;573;ER;200;4501,4505,
|
---|
99 | ;;573;B;57341839782;57316252638
|
---|
100 | ;;573;ER;400;235,
|
---|
101 | ;;573;B;57341842379;57316255955
|
---|
102 | ;;573;ER;400;615,
|
---|
103 | ;;573;B;57341874437;57316306782
|
---|
104 | ;;573;ER;200;1504,1505,1845,2273,2274,2275,2625,2626,2930,2931,2932,4740,4741,
|
---|
105 | ;;573;ER;350;1377,1633,
|
---|
106 | ;;573;ER;400;173,482,483,484,485,486,
|
---|
107 | 578 ;;
|
---|
108 | ;;578;B;57829530511;57849068398
|
---|
109 | ;;578;ER;350;3390,
|
---|
110 | ;;578;B;57829546923;57849087498
|
---|
111 | ;;578;ER;350;1795,
|
---|
112 | ;;578;B;57829548330;57849089338
|
---|
113 | ;;578;ER;350;4065,
|
---|
114 | ;;578;B;57829549548;57849090878
|
---|
115 | ;;578;ER;350;4573,
|
---|
116 | ;;578;B;57829556791;57849099346
|
---|
117 | ;;578;ER;350;2541,
|
---|
118 | ;;578;B;57829562050;57849105770
|
---|
119 | ;;578;ER;350;1246,
|
---|
120 | 580 ;;
|
---|
121 | ;;580;B;58028677146;58060598974
|
---|
122 | ;;580;ER;350;4691,
|
---|
123 | ;;580;B;58028679370;58060601963
|
---|
124 | ;;580;ER;350;4301,
|
---|
125 | ;;580;B;58028680566;58060603502
|
---|
126 | ;;580;ER;350;3453,
|
---|
127 | ;;580;B;58028681606;58060605513
|
---|
128 | ;;580;ER;350;2195,
|
---|
129 | ;;580;B;58028681697;58060605606
|
---|
130 | ;;580;ER;350;4365,
|
---|
131 | ;;580;B;58028681963;58060605959
|
---|
132 | ;;580;ER;350;4217,
|
---|
133 | ;;580;B;58028682205;58060606364
|
---|
134 | ;;580;ER;350;4720,
|
---|
135 | ;;580;B;58028682294;58060606550
|
---|
136 | ;;580;ER;350;4977,
|
---|
137 | 581 ;;
|
---|
138 | ;;581;B;58119172408;58129312063
|
---|
139 | ;;581;ER;350;3445,
|
---|
140 | ;;581;B;58119173049;58129312699
|
---|
141 | ;;581;ER;350;2436,
|
---|
142 | 585 ;;
|
---|
143 | ;;585;B;58519290836;58520450002
|
---|
144 | ;;585;ER;350;790,
|
---|
145 | ;;585;B;58519291576;58520450521
|
---|
146 | ;;585;ER;350;702,
|
---|
147 | 586 ;;
|
---|
148 | ;;586;B;58613842182;58629011651
|
---|
149 | ;;586;ER;350;4319,
|
---|
150 | ;;586;B;58613842258;58629011775
|
---|
151 | ;;586;ER;350;4099,4102,
|
---|
152 | ;;586;B;58613842571;58629012161
|
---|
153 | ;;586;ER;350;4462,
|
---|
154 | ;;586;B;58613842662;58629012274
|
---|
155 | ;;586;ER;350;1791,
|
---|
156 | ;;586;B;58613842821;58629012513
|
---|
157 | ;;586;ER;350;1185,
|
---|
158 | ;;586;B;58613842835;58629012534
|
---|
159 | ;;586;ER;350;3752,
|
---|
160 | 589 ;;
|
---|
161 | ;;589;B;58960524418;58991794662
|
---|
162 | ;;589;ER;700;1248,
|
---|
163 | ;;589;B;58960551798;58991828049
|
---|
164 | ;;589;ER;350;593,
|
---|
165 | 590 ;;
|
---|
166 | ;;590;B;59012333707;59019239340
|
---|
167 | ;;590;ER;350;2431,
|
---|
168 | 593 ;;
|
---|
169 | ;;593;B;59326911928;59332408266
|
---|
170 | ;;593;ER;350;4666,
|
---|
171 | 595 ;;
|
---|
172 | ;;595;B;59592063554;59560474846
|
---|
173 | ;;595;ER;350;2801,3556,
|
---|
174 | ;;595;B;59592068645;59560477543
|
---|
175 | ;;595;ER;350;2423,
|
---|
176 | ;;595;B;59592093832;59560491541
|
---|
177 | ;;595;ER;350;4741,
|
---|
178 | ;;595;B;59592097396;59560493679
|
---|
179 | ;;595;ER;350;4302,
|
---|
180 | ;;595;B;59592097407;59560493726
|
---|
181 | ;;595;ER;350;2566,
|
---|
182 | 596 ;;
|
---|
183 | ;;596;B;59670076649;59628464879
|
---|
184 | ;;596;ER;350;81,
|
---|
185 | 598 ;;
|
---|
186 | ;;598;B;59832615755;5988785037
|
---|
187 | ;;598;ER;350;4295,
|
---|
188 | ;;598;B;59832665961;5988862464
|
---|
189 | ;;598;ER;350;3621,
|
---|
190 | ;;598;B;59832666979;5988863704
|
---|
191 | ;;598;ER;350;2505,
|
---|
192 | ;;598;B;59832676491;5988875993
|
---|
193 | ;;598;ER;350;1646,
|
---|
194 | ;;598;B;59832676797;5988876476
|
---|
195 | ;;598;ER;350;4771,
|
---|
196 | ;;598;B;59832685366;5988894468
|
---|
197 | ;;598;ER;350;1207,
|
---|
198 | 603 ;;
|
---|
199 | ;;603;B;60323022947;60331845934
|
---|
200 | ;;603;ER;400;824,
|
---|
201 | ;;603;B;60323025516;60331848091
|
---|
202 | ;;603;ER;350;4781,
|
---|
203 | ;;603;B;60323027636;60331850083
|
---|
204 | ;;603;ER;350;3003,
|
---|
205 | ;;603;B;60323028154;60331850561
|
---|
206 | ;;603;ER;350;2667,
|
---|
207 | ;;603;B;60323029629;60331851961
|
---|
208 | ;;603;ER;350;4024,
|
---|
209 | ;;603;B;60323058642;60331889465
|
---|
210 | ;;603;ER;400;4978,4979,4980,
|
---|
211 | 605 ;;
|
---|
212 | ;;605;B;60529709067;60542594202
|
---|
213 | ;;605;ER;700;101,
|
---|
214 | ;;605;B;60529709962;60542595441
|
---|
215 | ;;605;ER;350;839,
|
---|
216 | ;;605;B;60529717983;60542605175
|
---|
217 | ;;605;ER;400;314,
|
---|
218 | 607 ;;
|
---|
219 | ;;607;B;60715816407;60724532978
|
---|
220 | ;;607;ER;350;1741,
|
---|
221 | ;;607;B;60715816891;60724533804
|
---|
222 | ;;607;ER;350;835,1243,
|
---|
223 | ;;607;B;60715819072;60724536838
|
---|
224 | ;;607;ER;350;13,
|
---|
225 | ;;607;B;60715827931;60724547414
|
---|
226 | ;;607;ER;350;3880,
|
---|
227 | 608 ;;
|
---|
228 | ;;608;B;60812360929;60817646348
|
---|
229 | ;;608;ER;350;242,
|
---|
230 | 610 ;;
|
---|
231 | ;;610;B;61012402904;6106912019
|
---|
232 | ;;610;ER;350;3204,
|
---|
233 | ;;610;B;61012406207;6106916012
|
---|
234 | ;;610;ER;350;144,758,
|
---|
235 | 612 ;;
|
---|
236 | ;;612;B;61224607028;61252523748
|
---|
237 | ;;612;ER;350;2923,
|
---|
238 | ;;612;B;61224625224;61252550343
|
---|
239 | ;;612;ER;350;1612,
|
---|
240 | 614 ;;
|
---|
241 | ;;614;B;61493778802;61475834672
|
---|
242 | ;;614;ER;350;1092,
|
---|
243 | ;;614;B;61493947493;61475941007
|
---|
244 | ;;614;ER;350;1025,
|
---|
245 | 618 ;;
|
---|
246 | ;;618;B;61830310882;61849207623
|
---|
247 | ;;618;ER;350;2998,4699,
|
---|
248 | ;;618;B;61830311669;61849208422
|
---|
249 | ;;618;ER;400;621,803,
|
---|
250 | ;;618;B;61830311696;61849208514
|
---|
251 | ;;618;ER;350;2242,
|
---|
252 | ;;618;B;61830311701;61849208519
|
---|
253 | ;;618;ER;350;1794,2023,
|
---|
254 | ;;618;B;61830311823;61849208661
|
---|
255 | ;;618;ER;350;2001,2293,
|
---|
256 | ;;618;B;61830311868;61849208729
|
---|
257 | ;;618;ER;350;913,
|
---|
258 | ;;618;B;61830311894;61849208756
|
---|
259 | ;;618;ER;350;1662,2226,3314,
|
---|
260 | ;;618;B;61830311915;61849208778
|
---|
261 | ;;618;ER;350;488,4560,4726,4864,4910,4936,4973,
|
---|
262 | ;;618;B;61830312071;61849208939
|
---|
263 | ;;618;ER;350;2809,
|
---|
264 | ;;618;B;61830312114;61849208976
|
---|
265 | ;;618;ER;350;4487,4918,
|
---|
266 | ;;618;ER;400;255,
|
---|
267 | ;;618;B;61830312149;61849209021
|
---|
268 | ;;618;ER;350;629,
|
---|
269 | ;;618;B;61830312286;61849209163
|
---|
270 | ;;618;ER;350;1007,
|
---|
271 | ;;618;ER;400;688,
|
---|
272 | ;;618;B;61830312303;61849209178
|
---|
273 | ;;618;ER;350;1767,
|
---|
274 | ;;618;B;61830312324;61849209205
|
---|
275 | ;;618;ER;350;4703,
|
---|
276 | ;;618;B;61830312361;61849209237
|
---|
277 | ;;618;ER;350;3419,
|
---|
278 | ;;618;B;61830312364;61849209252
|
---|
279 | ;;618;ER;350;4771,
|
---|
280 | ;;618;B;61830312391;61849209282
|
---|
281 | ;;618;ER;350;4831,
|
---|
282 | ;;618;B;61830312397;61849209288
|
---|
283 | ;;618;ER;350;326,
|
---|
284 | ;;618;B;61830312452;61849209355
|
---|
285 | ;;618;ER;350;3504,
|
---|
286 | ;;618;B;61830312457;61849209357
|
---|
287 | ;;618;ER;400;585,586,587,
|
---|
288 | ;;618;B;61830312599;61849209503
|
---|
289 | ;;618;ER;350;1091,
|
---|
290 | ;;618;B;61830312620;61849209524
|
---|
291 | ;;618;ER;400;840,
|
---|
292 | ;;618;B;61830312636;61849209548
|
---|
293 | ;;618;ER;350;1309,1681,
|
---|
294 | ;;618;B;61830312685;61849209597
|
---|
295 | ;;618;ER;350;1298,2501,
|
---|
296 | ;;618;B;61830312800;61849209700
|
---|
297 | ;;618;ER;350;3111,
|
---|
298 | ;;618;B;61830312869;61849209793
|
---|
299 | ;;618;ER;350;4521,
|
---|
300 | ;;618;B;61830313456;61849210463
|
---|
301 | ;;618;ER;350;1227,2620,
|
---|
302 | ;;618;B;61830313650;61849210673
|
---|
303 | ;;618;ER;400;372,
|
---|
304 | ;;618;B;61830465384;61849405161
|
---|
305 | ;;618;ER;350;3727,
|
---|
306 | ;;618;B;61830466498;61849406601
|
---|
307 | ;;618;ER;400;231,232,
|
---|
308 | ;;618;B;61830466967;61849407222
|
---|
309 | ;;618;ER;400;197,
|
---|
310 | ;;618;B;61830471715;61849413242
|
---|
311 | ;;618;ER;400;104,
|
---|
312 | ;;618;B;61830472001;61849413603
|
---|
313 | ;;618;ER;350;1038,2211,2825,3555,4156,
|
---|
314 | ;;618;B;61830477267;61849420417
|
---|
315 | ;;618;ER;400;151,278,
|
---|
316 | ;;618;B;61830481012;61849425245
|
---|
317 | ;;618;"ER";400;199,
|
---|