1 | SDRPA15 ;BP-OIFO/ESW - UTILITY ; 6/9/04 8:28am
|
---|
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 | 619 ;;
|
---|
14 | ;;619;B;61934461160;61935566249
|
---|
15 | ;;619;ER;350;1495,1996,3185,3411,
|
---|
16 | ;;619;B;61934467364;61935570694
|
---|
17 | ;;619;ER;350;3713,
|
---|
18 | ;;619;B;61934475278;61935575320
|
---|
19 | ;;619;ER;350;1233,
|
---|
20 | ;;619;B;61934476854;61935576213
|
---|
21 | ;;619;ER;400;1715,
|
---|
22 | ;;619;B;61934478706;61935577448
|
---|
23 | ;;619;ER;350;271,
|
---|
24 | ;;619;B;61934479827;61935578142
|
---|
25 | ;;619;ER;350;3315,
|
---|
26 | ;;619;ER;400;190,
|
---|
27 | 620 ;;
|
---|
28 | ;;620;B;62094177662;62065197692
|
---|
29 | ;;620;ER;350;1836,
|
---|
30 | ;;620;B;62094207805;62065214364
|
---|
31 | ;;620;ER;350;611,
|
---|
32 | 621 ;;
|
---|
33 | ;;621;B;62184281093;62139478336
|
---|
34 | ;;621;ER;350;2847,
|
---|
35 | ;;621;B;62184285387;62139480913
|
---|
36 | ;;621;ER;350;3329,
|
---|
37 | 623 ;;
|
---|
38 | ;;623;B;62313573887;62324520029
|
---|
39 | ;;623;ER;350;3210,
|
---|
40 | ;;623;B;62313584324;62324534684
|
---|
41 | ;;623;ER;350;480,
|
---|
42 | 626 ;;
|
---|
43 | ;;626;B;62641068414;626126580504
|
---|
44 | ;;626;ER;350;3360,3549,
|
---|
45 | ;;626;B;62641276624;626126720487
|
---|
46 | ;;626;ER;350;1058,
|
---|
47 | ;;626;B;62641662292;626126985971
|
---|
48 | ;;626;ER;400;4934,
|
---|
49 | ;;626;B;62641691414;626127005866
|
---|
50 | ;;626;ER;400;4901,4902,
|
---|
51 | 629 ;;
|
---|
52 | ;;629;B;62921109547;62958401319
|
---|
53 | ;;629;ER;700;203,
|
---|
54 | ;;629;B;62921230076;62958619265
|
---|
55 | ;;629;ER;700;203,
|
---|
56 | 630 ;;
|
---|
57 | ;;630;B;63050701981;630157174109
|
---|
58 | ;;630;ER;350;4936,
|
---|
59 | ;;630;B;63050913340;630157820628
|
---|
60 | ;;630;ER;450;3028,
|
---|
61 | 631 ;;
|
---|
62 | ;;631;B;6319029561;63113225143
|
---|
63 | ;;631;ER;350;1127,
|
---|
64 | 635 ;;
|
---|
65 | ;;635;B;63520523705;63537174321
|
---|
66 | ;;635;ER;400;159,
|
---|
67 | ;;635;B;63520523873;63537174702
|
---|
68 | ;;635;ER;400;520,521,522,
|
---|
69 | ;;635;B;63520524115;63537174943
|
---|
70 | ;;635;ER;350;664,
|
---|
71 | ;;635;ER;400;1452,
|
---|
72 | ;;635;B;63520525121;63537176250
|
---|
73 | ;;635;ER;350;1120,
|
---|
74 | ;;635;B;63520527107;63537177775
|
---|
75 | ;;635;ER;400;679,
|
---|
76 | ;;635;B;63520531762;63537184107
|
---|
77 | ;;635;ER;400;747,
|
---|
78 | ;;635;B;63520538010;63537192878
|
---|
79 | ;;635;ER;350;1563,
|
---|
80 | ;;635;ER;400;790,
|
---|
81 | ;;635;B;63520542593;63537198482
|
---|
82 | ;;635;ER;350;2498,
|
---|
83 | ;;635;B;63520543699;63537200310
|
---|
84 | ;;635;ER;350;975,4219,
|
---|
85 | ;;635;ER;400;1093,
|
---|
86 | ;;635;B;63520544591;63537201534
|
---|
87 | ;;635;ER;400;1213,
|
---|
88 | ;;635;B;63520545094;63537202138
|
---|
89 | ;;635;ER;350;1184,
|
---|
90 | ;;635;B;63520549024;63537207961
|
---|
91 | ;;635;ER;400;875,
|
---|
92 | ;;635;B;63520589371;63537253180
|
---|
93 | ;;635;ER;400;838,
|
---|
94 | ;;635;B;63520596578;63537262680
|
---|
95 | ;;635;ER;400;635,
|
---|
96 | ;;635;B;63520598566;63537265274
|
---|
97 | ;;635;ER;400;584,
|
---|
98 | 636 ;;
|
---|
99 | ;;636;B;63635193423;63662847520
|
---|
100 | ;;636;ER;350;3571,
|
---|
101 | ;;636;B;63635202403;63662859075
|
---|
102 | ;;636;ER;700;581,
|
---|
103 | ;;636;B;63635462920;63663227039
|
---|
104 | ;;636;ER;350;3569,
|
---|
105 | ;;636;B;63635467872;63663232717
|
---|
106 | ;;636;ER;700;527,
|
---|
107 | ;;636;B;63635805870;63663722429
|
---|
108 | ;;636;ER;350;1479,
|
---|
109 | ;;636;B;63635807214;63663724105
|
---|
110 | ;;636;ER;450;895,
|
---|
111 | ;;636;B;63636979130;63665361302
|
---|
112 | ;;636;ER;350;3571,
|
---|
113 | ;;636;B;63636983651;63665367674
|
---|
114 | ;;636;ER;700;331,
|
---|
115 | ;;636;B;63636986728;63665371597
|
---|
116 | ;;636;ER;350;1668,
|
---|
117 | ;;636;B;63636987649;63665372545
|
---|
118 | ;;636;ER;350;1267,1317,
|
---|
119 | ;;636;B;63637000797;63665391307
|
---|
120 | ;;636;ER;350;1245,
|
---|
121 | ;;636;B;63637044170;63665453294
|
---|
122 | ;;636;ER;350;1432,
|
---|
123 | ;;636;B;63637045723;63665455406
|
---|
124 | ;;636;ER;350;1953,
|
---|
125 | 637 ;;
|
---|
126 | ;;637;B;63712358412;63720591588
|
---|
127 | ;;637;ER;350;644,
|
---|
128 | 640 ;;
|
---|
129 | ;;640;B;64028032219;64071284831
|
---|
130 | ;;640;ER;400;1947,
|
---|
131 | ;;640;B;64028034427;64071292241
|
---|
132 | ;;640;ER;350;3954,
|
---|
133 | ;;640;B;64028035904;64071295525
|
---|
134 | ;;640;ER;350;3137,
|
---|
135 | ;;640;B;64028037495;64071297942
|
---|
136 | ;;640;ER;350;3880,
|
---|
137 | ;;640;B;64028040018;64071309972
|
---|
138 | ;;640;ER;350;1058,
|
---|
139 | ;;640;B;64028040706;64071312241
|
---|
140 | ;;640;ER;350;4996,
|
---|
141 | ;;640;B;64028041583;64071316787
|
---|
142 | ;;640;ER;350;4816,
|
---|
143 | 642 ;;
|
---|
144 | ;;642;B;64219040764;64247692763
|
---|
145 | ;;642;ER;350;3918,
|
---|
146 | ;;642;B;64219044000;64247697805
|
---|
147 | ;;642;ER;350;4345,
|
---|
148 | ;;642;B;64219055644;64247719067
|
---|
149 | ;;642;ER;350;1856,
|
---|
150 | ;;642;B;64219064867;64247734420
|
---|
151 | ;;642;ER;350;2019,
|
---|
152 | ;;642;B;64219066381;64247736808
|
---|
153 | ;;642;ER;350;1633,
|
---|
154 | ;;642;B;64219070163;64247743950
|
---|
155 | ;;642;ER;350;1946,
|
---|
156 | ;;642;B;64219070384;64247744318
|
---|
157 | ;;642;ER;350;2242,
|
---|
158 | ;;642;B;64219071069;64247745564
|
---|
159 | ;;642;ER;350;3850,
|
---|
160 | ;;642;B;64219071155;64247745706
|
---|
161 | ;;642;ER;350;1505,2788,4683,
|
---|
162 | ;;642;B;64219071235;64247745877
|
---|
163 | ;;642;ER;350;3030,
|
---|
164 | ;;642;B;64219071531;64247746887
|
---|
165 | ;;642;ER;350;1791,
|
---|
166 | ;;642;B;64219071792;64247747601
|
---|
167 | ;;642;ER;350;300,3686,
|
---|
168 | ;;642;B;64219073896;64247756907
|
---|
169 | ;;642;ER;700;1011,
|
---|
170 | 644 ;;
|
---|
171 | ;;644;B;64431818656;64446027218
|
---|
172 | ;;644;ER;350;2278,
|
---|
173 | ;;644;B;64431874728;64446084905
|
---|
174 | ;;644;ER;350;2167,
|
---|
175 | ;;644;B;64431889209;64446101223
|
---|
176 | ;;644;ER;350;4004,
|
---|
177 | ;;644;B;64431896874;64446108951
|
---|
178 | ;;644;ER;350;3130,
|
---|
179 | ;;644;B;64431904135;64446116323
|
---|
180 | ;;644;ER;350;2433,
|
---|
181 | ;;644;B;64431978829;64446192826
|
---|
182 | ;;644;ER;200;31,163,412,
|
---|
183 | ;;644;B;64431980821;64446195496
|
---|
184 | ;;644;ER;200;643,727,734,1250,1386,1760,1905,2107,2244,2598,2676,3513,3538,3552,3823,3945,4733,
|
---|
185 | ;;644;B;64431989436;64446203597
|
---|
186 | ;;644;ER;200;33,
|
---|
187 | ;;644;B;64431992122;64446205828
|
---|
188 | ;;644;ER;200;386,453,557,689,755,798,803,982,1030,1440,1605,1788,1885,2290,2393,3004,3787,3790,4628,
|
---|
189 | ;;644;B;64431993591;64446207840
|
---|
190 | ;;644;ER;200;65,353,354,388,499,656,1151,1198,1365,1835,1840,2382,2620,
|
---|
191 | ;;644;B;64431994207;64446208461
|
---|
192 | ;;644;ER;200;2279,2589,2894,2991,3450,3894,4064,
|
---|
193 | ;;644;B;64432000557;64446214187
|
---|
194 | ;;644;ER;200;235,939,972,1005,1056,1125,1162,1589,1624,1942,1954,2071,2351,2439,2482,
|
---|
195 | ;;644;B;64432001163;64446214612
|
---|
196 | ;;644;ER;200;589,804,1007,1355,1424,
|
---|
197 | 646 ;;
|
---|
198 | ;;646;B;64622152067;64636125592
|
---|
199 | ;;646;ER;350;3641,
|
---|
200 | ;;646;B;64622172061;64636149373
|
---|
201 | ;;646;ER;350;2807,
|
---|
202 | ;;646;B;64622177731;64636158072
|
---|
203 | ;;646;ER;350;2913,
|
---|
204 | ;;646;B;64622182360;64636165439
|
---|
205 | ;;646;ER;350;2350,
|
---|
206 | ;;646;B;64622182634;64636165816
|
---|
207 | ;;646;ER;350;1713,
|
---|
208 | 648 ;;
|
---|
209 | ;;648;B;64830169503;64859420738
|
---|
210 | ;;648;ER;350;3226,
|
---|
211 | ;;648;B;64830173491;64859426791
|
---|
212 | ;;648;ER;350;559,
|
---|
213 | ;;648;B;64830176032;64859430610
|
---|
214 | ;;648;ER;350;3576,
|
---|
215 | ;;648;B;64830176493;64859431425
|
---|
216 | ;;648;ER;350;4437,
|
---|
217 | ;;648;B;64830181488;64859439943
|
---|
218 | ;;648;ER;200;201,2116,4485,
|
---|
219 | 650 ;;
|
---|
220 | ;;650;B;65013317751;65024393176
|
---|
221 | ;;650;ER;350;1964,
|
---|
222 | 652 ;;
|
---|
223 | ;;652;B;65211886530;65213575232
|
---|
224 | ;;652;ER;350;618,
|
---|
225 | ;;652;B;65211887675;65213578292
|
---|
226 | ;;652;ER;350;3143,
|
---|
227 | ;;652;B;65211888822;65213581189
|
---|
228 | ;;652;ER;350;1029,
|
---|
229 | ;;652;B;65211914787;65213619795
|
---|
230 | ;;652;ER;350;525,
|
---|
231 | 654 ;;
|
---|
232 | ;;654;B;65413112674;65419363257
|
---|
233 | ;;654;ER;350;3301,4157,
|
---|
234 | ;;654;B;65413223658;65419507467
|
---|
235 | ;;654;ER;350;2008,2759,3776,
|
---|
236 | 655 ;;
|
---|
237 | ;;655;B;65516549087;65520295193
|
---|
238 | ;;655;ER;350;3324,
|
---|
239 | 657 ;;
|
---|
240 | ;;657;B;65729884244;65764668755
|
---|
241 | ;;657;ER;700;4874,
|
---|
242 | ;;657;B;65729887352;65764672552
|
---|
243 | ;;657;ER;350;4759,
|
---|
244 | ;;657;B;65729928496;65764736980
|
---|
245 | ;;657;ER;700;725,
|
---|
246 | ;;657;B;65729931738;65764743255
|
---|
247 | ;;657;ER;700;4571,4782,
|
---|
248 | 658 ;;
|
---|
249 | ;;658;B;65814078326;65822477724
|
---|
250 | ;;658;ER;350;639,
|
---|
251 | ;;658;B;65814085475;65822487961
|
---|
252 | ;;658;ER;350;3798,
|
---|
253 | ;;658;B;65814091130;65822495944
|
---|
254 | ;;658;ER;350;3614,
|
---|
255 | ;;658;B;65814093437;65822499879
|
---|
256 | ;;658;ER;350;4423,
|
---|
257 | ;;658;B;65814093863;65822500443
|
---|
258 | ;;658;ER;350;3272,
|
---|
259 | ;;658;B;65814093973;65822500660
|
---|
260 | ;;658;ER;350;4009,
|
---|
261 | ;;658;B;65814094754;65822504108
|
---|
262 | ;;658;ER;350;3727,
|
---|
263 | ;;658;B;65814094883;65822504172
|
---|
264 | ;;658;ER;350;4794,
|
---|
265 | 659 ;;
|
---|
266 | ;;659;B;65921670759;65928910087
|
---|
267 | ;;659;ER;350;2755,
|
---|
268 | ;;659;B;65921671754;65928911209
|
---|
269 | ;;659;ER;350;3033,
|
---|
270 | ;;659;B;65921672431;65928911663
|
---|
271 | ;;659;ER;350;1453,
|
---|
272 | ;;659;B;65921687821;65928931958
|
---|
273 | ;;659;ER;350;3395,
|
---|
274 | ;;659;B;65921746315;65929005443
|
---|
275 | ;;659;ER;350;4798,
|
---|
276 | ;;659;B;65921748734;65929009131
|
---|
277 | ;;659;ER;400;4948,
|
---|
278 | 660 ;;
|
---|
279 | ;;660;B;6608026700;66033848678
|
---|
280 | ;;660;ER;350;4353,
|
---|
281 | ;;660;ER;700;34,
|
---|
282 | 662 ;;
|
---|
283 | ;;662;B;66220042896;66219570876
|
---|
284 | ;;662;ER;400;556,642,643,644,
|
---|
285 | ;;662;B;66220043286;66219571232
|
---|
286 | ;;662;ER;400;653,654,655,
|
---|
287 | ;;662;B;66220043544;66219571400
|
---|
288 | ;;662;ER;400;699,813,814,815,816,817,
|
---|
289 | ;;662;B;66220043608;66219571476
|
---|
290 | ;;662;ER;400;779,780,
|
---|
291 | ;;662;B;66220043997;66219571735
|
---|
292 | ;;662;ER;400;743,
|
---|
293 | ;;662;B;66220044158;66219571900
|
---|
294 | ;;662;ER;400;744,745,
|
---|
295 | ;;662;B;66220044918;66219572474
|
---|
296 | ;;662;ER;350;3643,
|
---|
297 | ;;662;B;66220045352;66219572827
|
---|
298 | ;;662;ER;400;923,
|
---|
299 | ;;662;B;66220045649;66219573166
|
---|
300 | ;;662;ER;400;975,
|
---|
301 | ;;662;B;66220049393;66219576633
|
---|
302 | ;;662;ER;350;4777,4778,
|
---|
303 | ;;662;B;66220049792;66219577884
|
---|
304 | ;;662;ER;350;4175,
|
---|
305 | ;;662;ER;400;651,652,
|
---|
306 | ;;662;B;66220050273;66219579204
|
---|
307 | ;;662;ER;350;3735,
|
---|
308 | ;;662;B;66220076364;66219608607
|
---|
309 | ;;662;ER;350;4527,
|
---|
310 | ;;662;B;66220084134;66219618992
|
---|
311 | ;;662;ER;350;3875,
|
---|
312 | ;;662;B;66220096015;66219631665
|
---|
313 | ;;662;ER;350;4527,4584,
|
---|
314 | ;;662;ER;400;740,
|
---|
315 | 663 ;;
|
---|
316 | ;;663;B;66335145156;66354303336
|
---|
317 | ;;663;ER;350;553,
|
---|
318 | ;;663;B;66335183905;66354349535
|
---|
319 | ;;663;ER;350;553,
|
---|
320 | ;;663;B;66335202779;66354372618
|
---|
321 | ;;663;ER;350;225,
|
---|
322 | ;;663;B;66335218249;66354391533
|
---|
323 | ;;663;ER;350;1802,
|
---|