source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDRPA15.m@ 1147

Last change on this file since 1147 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 8.5 KB
Line 
1SDRPA15 ;BP-OIFO/ESW - UTILITY ; 6/9/04 8:28am
2 ;;5.3;Scheduling;**376**;Aug 13, 1993
3EN(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
13619 ;;
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,
27620 ;;
28 ;;620;B;62094177662;62065197692
29 ;;620;ER;350;1836,
30 ;;620;B;62094207805;62065214364
31 ;;620;ER;350;611,
32621 ;;
33 ;;621;B;62184281093;62139478336
34 ;;621;ER;350;2847,
35 ;;621;B;62184285387;62139480913
36 ;;621;ER;350;3329,
37623 ;;
38 ;;623;B;62313573887;62324520029
39 ;;623;ER;350;3210,
40 ;;623;B;62313584324;62324534684
41 ;;623;ER;350;480,
42626 ;;
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,
51629 ;;
52 ;;629;B;62921109547;62958401319
53 ;;629;ER;700;203,
54 ;;629;B;62921230076;62958619265
55 ;;629;ER;700;203,
56630 ;;
57 ;;630;B;63050701981;630157174109
58 ;;630;ER;350;4936,
59 ;;630;B;63050913340;630157820628
60 ;;630;ER;450;3028,
61631 ;;
62 ;;631;B;6319029561;63113225143
63 ;;631;ER;350;1127,
64635 ;;
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,
98636 ;;
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,
125637 ;;
126 ;;637;B;63712358412;63720591588
127 ;;637;ER;350;644,
128640 ;;
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,
143642 ;;
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,
170644 ;;
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,
197646 ;;
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,
208648 ;;
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,
219650 ;;
220 ;;650;B;65013317751;65024393176
221 ;;650;ER;350;1964,
222652 ;;
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,
231654 ;;
232 ;;654;B;65413112674;65419363257
233 ;;654;ER;350;3301,4157,
234 ;;654;B;65413223658;65419507467
235 ;;654;ER;350;2008,2759,3776,
236655 ;;
237 ;;655;B;65516549087;65520295193
238 ;;655;ER;350;3324,
239657 ;;
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,
248658 ;;
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,
265659 ;;
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,
278660 ;;
279 ;;660;B;6608026700;66033848678
280 ;;660;ER;350;4353,
281 ;;660;ER;700;34,
282662 ;;
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,
315663 ;;
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,
Note: See TracBrowser for help on using the repository browser.