source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDRPA12.m@ 1361

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

initial load of WorldVistAEHR

File size: 8.9 KB
RevLine 
[613]1SDRPA12 ;BP-OIFO/ESW - UTILITY ; 6/9/04 8:25am
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
13548 ;;
14 ;;548;B;54818160756;54828864362
15 ;;548;ER;200;1850,3653,3903,
16 ;;548;B;54818166052;54828871385
17 ;;548;ER;200;5,118,180,190,210,262,544,603,618,711,715,821,908,917,952,1090,1116,1158,1169,1286,1424,1471,1634,1711,1760,1862,1881,2143,2193,2231,2274
18 ;;548;ER;200;2500,2532,2584,2701,2787,2872,3046,3299,3320,3438,3547,4012,4021,4066,4089,4314,4397,4454,4679,4832,
19 ;;548;B;54818194910;54828910086
20 ;;548;ER;200;328,861,957,987,1102,1143,1220,1262,1283,1334,1359,1677,2148,2305,2350,2474,2723,2911,3169,3243,3840,3980,4610,4723,4725,4794,4931,
21 ;;548;B;54818200225;54828918603
22 ;;548;ER;200;1541,3040,4932,
23 ;;548;ER;350;3781,
24 ;;548;B;54818288056;54829043683
25 ;;548;ER;200;1841,3655,3910,
26 ;;548;B;54818288920;54829045138
27 ;;548;ER;200;5,117,177,187,206,257,546,603,618,710,714,821,908,917,958,1095,1120,1173,1290,1431,1478,1648,1724,1773,1875,1894,2157,2210,2251,2292,2504
28 ;;548;ER;200;2534,2585,2713,2800,2879,3051,3303,3323,3431,3532,4002,4011,4056,4079,4292,4379,4437,4630,4666,4753,4754,4817,4862,
29 ;;548;B;54818289488;54829046109
30 ;;548;ER;200;425,1146,1238,1265,1377,1417,1488,1526,1547,1598,1621,1909,2347,2492,2537,2650,2872,3039,3284,3352,3915,4043,4931,
31 ;;548;B;54818290189;54829047084
32 ;;548;ER;200;1626,2796,4774,
33 ;;548;ER;350;3537,
34 ;;548;B;54818290375;54829047315
35 ;;548;ER;200;1631,
36 ;;548;B;54818290631;54829047661
37 ;;548;ER;200;480,2374,4381,
38 ;;548;B;54818290766;54829047830
39 ;;548;ER;200;541,571,1564,4235,
40 ;;548;B;54818291018;54829048182
41 ;;548;ER;200;760,
42 ;;548;B;54818291121;54829048372
43 ;;548;ER;200;1446,
44 ;;548;B;54818291215;54829048589
45 ;;548;ER;200;217,319,771,773,3126,3768,3890,4216,
46 ;;548;B;54818291319;54829048754
47 ;;548;ER;200;1548,1905,2156,
48 ;;548;B;54818291468;54829049069
49 ;;548;ER;200;94,95,1322,1323,2952,2953,
50 ;;548;B;54818291672;54829049292
51 ;;548;ER;200;320,490,685,941,977,1491,1493,
52 ;;548;B;54818291774;54829049539
53 ;;548;ER;200;881,2689,
54 ;;548;B;54818291903;54829049888
55 ;;548;ER;200;534,1258,1886,2685,3446,
56 ;;548;B;54818292004;54829050054
57 ;;548;ER;200;4793,
58 ;;548;B;54818292138;54829050419
59 ;;548;ER;200;751,
60 ;;548;B;54818292219;54829050855
61 ;;548;ER;200;2161,
62 ;;548;B;54818292276;54829051049
63 ;;548;ER;200;294,2069,
64 ;;548;B;54818292313;54829051221
65 ;;548;ER;200;197,2155,3529,
66 ;;548;B;54818292383;54829051384
67 ;;548;ER;200;1582,4153,
68 ;;548;B;54818292438;54829051580
69 ;;548;ER;200;1121,
70 ;;548;B;54818292490;54829051742
71 ;;548;ER;200;749,2400,2725,
72 ;;548;B;54818292500;54829051848
73 ;;548;ER;200;147,967,4129,4242,
74 ;;548;B;54818292529;54829051957
75 ;;548;ER;200;156,1427,1969,2331,2333,2370,2939,2991,2992,3101,3122,3172,3751,3791,3879,4658,4681,
76 ;;548;B;54818292536;54829052025
77 ;;548;ER;200;425,738,1330,1484,3175,4740,4952,
78 ;;548;B;54818292567;54829052109
79 ;;548;ER;200;276,353,439,508,549,850,884,1014,1140,1148,1375,1563,1761,1943,2010,2181,2401,2509,2563,2565,2964,3125,3204,3549,3899,4099,4177,4208,4367,4659,
80 ;;548;B;54818292969;54829052821
81 ;;548;ER;200;204,2675,2984,3666,4809,
82 ;;548;B;54818293396;54829053399
83 ;;548;ER;200;303,1761,4697,4905,
84 ;;548;B;54818293629;54829053787
85 ;;548;ER;200;1014,2834,2835,
86 ;;548;B;54818294033;54829054304
87 ;;548;ER;200;74,236,848,902,1704,2369,
88 ;;548;B;54818295165;54829055642
89 ;;548;ER;200;477,1866,2076,2211,3685,3979,
90 ;;548;B;54818297170;54829057907
91 ;;548;ER;200;3516,4632,4648,4979,
92 ;;548;B;54818298074;54829059351
93 ;;548;ER;200;467,540,645,1347,4077,
94 ;;548;B;54818298951;54829060561
95 ;;548;ER;200;1814,2173,
96 ;;548;B;54818299748;54829061733
97 ;;548;ER;200;104,1135,2822,2823,3423,4709,
98 ;;548;ER;350;3065,
99 ;;548;B;54818300552;54829062945
100 ;;548;ER;200;23,848,1237,1797,1811,2894,
101 ;;548;B;54818302529;54829065875
102 ;;548;ER;200;221,1198,1604,4814,
103 ;;548;B;54818303659;54829067540
104 ;;548;ER;200;1731,2098,4773,4774,
105 ;;548;B;54818304348;54829068917
106 ;;548;ER;200;3485,
107 ;;548;B;54818306098;54829071392
108 ;;548;ER;200;273,279,1284,1549,3130,4944,
109 ;;548;B;54818306823;54829072511
110 ;;548;ER;200;842,2682,2916,4654,
111 ;;548;B;54818307611;54829073657
112 ;;548;ER;200;376,415,2578,2865,3016,
113 ;;548;B;54818308786;54829074974
114 ;;548;ER;200;364,669,2051,3400,3801,4221,4365,
115 ;;548;B;54818309466;54829076246
116 ;;548;ER;200;4814,
117 ;;548;B;54818309937;54829076990
118 ;;548;ER;200;386,438,731,1922,
119 ;;548;B;54818310455;54829077796
120 ;;548;ER;200;917,1536,4141,
121 ;;548;B;54818311033;54829078850
122 ;;548;ER;200;2791,3743,4287,
123 ;;548;B;54818313864;54829083315
124 ;;548;ER;200;1214,4982,
125 ;;548;ER;700;4836,
126 ;;548;B;54818314573;54829084335
127 ;;548;ER;200;1202,2680,3276,
128 ;;548;B;54818315538;54829085625
129 ;;548;ER;200;4089,4725,4814,4816,4850,
130 ;;548;B;54818317094;54829087723
131 ;;548;ER;200;236,517,605,1345,4228,
132 ;;548;B;54818318068;54829089189
133 ;;548;ER;200;1069,1213,2393,2427,2451,2554,2574,2908,3712,3898,4485,4581,
134 ;;548;B;54818319216;54829090966
135 ;;548;ER;200;285,287,1064,1065,1522,
136 ;;548;B;54818319710;54829091574
137 ;;548;ER;200;708,4014,4371,
138 ;;548;B;54818320244;54829092353
139 ;;548;ER;200;1909,2615,2937,4152,4960,
140 ;;548;B;54818320807;54829093035
141 ;;548;ER;200;925,
142 ;;548;B;54818321240;54829093681
143 ;;548;ER;200;501,1868,2274,4170,
144 ;;548;B;54818321527;54829094021
145 ;;548;ER;200;1100,1469,
146 ;;548;B;54818321822;54829094496
147 ;;548;ER;200;2288,2790,
148 ;;548;B;54818322241;54829095183
149 ;;548;ER;200;687,1990,2496,2960,3002,
150 ;;548;B;54818322575;54829095767
151 ;;548;ER;200;1253,
152 ;;548;B;54818322800;54829096012
153 ;;548;ER;200;3204,3266,3463,4080,
154 ;;548;B;54818323154;54829096628
155 ;;548;ER;200;1896,2012,3488,
156 ;;548;B;54818323271;54829096846
157 ;;548;ER;200;98,389,502,1157,2135,
158 ;;548;B;54818323420;54829097129
159 ;;548;ER;200;1215,1296,1721,3474,3566,4891,
160 ;;548;B;54818323541;54829097327
161 ;;548;ER;200;89,2619,3937,
162 ;;548;B;54818323694;54829097662
163 ;;548;ER;200;597,
164 ;;548;B;54818323792;54829097809
165 ;;548;ER;200;244,1490,2740,3795,4099,4154,4348,4893,
166 ;;548;B;54818323865;54829097952
167 ;;548;ER;200;165,343,628,1016,1541,
168 ;;548;B;54818324004;54829098174
169 ;;548;ER;200;533,807,1514,1892,2560,2872,3210,
170 ;;548;B;54818324140;54829098538
171 ;;548;ER;200;26,414,2947,2986,2999,3955,4291,4357,4509,
172 ;;548;B;54818324290;54829099214
173 ;;548;ER;200;957,1337,1842,4187,
174 ;;548;B;54818324605;54829099651
175 ;;548;ER;200;170,196,290,421,523,646,659,668,685,967,1207,1209,1480,1531,2033,2109,2207,2289,2312,2523,2673,2695,2872,2988,3245,3284,3410,3460,3501,
176 ;;548;ER;200;3556,3629,3646,3727,3898,3977,4161,4166,4225,4377,4382,4438,4481,4619,4647,4741,
177 ;;548;B;54818324954;54829100043
178 ;;548;ER;200;440,680,2346,3585,3587,
179 ;;548;B;54818325147;54829100396
180 ;;548;ER;200;307,1536,4468,
181 ;;548;B;54818325308;54829100621
182 ;;548;ER;200;215,4823,
183 ;;548;B;54818325494;54829100918
184 ;;548;ER;200;89,1130,1498,2744,2904,3308,4589,
185 ;;548;B;54818325579;54829101045
186 ;;548;ER;200;289,779,2072,2271,3606,4434,4593,
187 ;;548;B;54818325680;54829101185
188 ;;548;ER;200;1113,1991,
189 ;;548;B;54818325802;54829101343
190 ;;548;ER;200;1449,
191 ;;548;B;54818325877;54829101459
192 ;;548;ER;200;71,508,2166,3596,
193 ;;548;B;54818325949;54829101550
194 ;;548;ER;200;583,1193,1294,1316,1937,2075,2256,3016,4969,
195 ;;548;B;54818326079;54829101744
196 ;;548;ER;200;535,1410,3134,
197 ;;548;B;54818326119;54829101822
198 ;;548;ER;200;1286,1351,4164,4249,4346,4626,4970,
199 ;;548;B;54818326215;54829102014
200 ;;548;ER;200;704,900,902,1190,1203,1480,3986,
201 ;;548;B;54818326296;54829102172
202 ;;548;ER;200;800,801,1042,1959,2639,2640,4294,4543,4831,4924,4985,
203 ;;548;B;54818326349;54829102269
204 ;;548;ER;200;1572,
205 ;;548;B;54818326505;54829102518
206 ;;548;ER;200;1100,4482,4488,
207 ;;548;B;54818326660;54829102937
208 ;;548;ER;200;90,797,1062,1729,1963,
209 ;;548;B;54818326758;54829103194
210 ;;548;ER;200;1194,1644,1884,4727,
211 ;;548;B;54818326836;54829103398
212 ;;548;ER;200;269,4005,4007,
213 ;;548;B;54818327030;54829103767
214 ;;548;ER;200;790,954,1063,1271,4459,
215 ;;548;B;54818327155;54829103994
216 ;;548;ER;200;23,2734,3329,3896,3898,4739,
217549 ;;
218 ;;549;B;54930411303;54996011224
219 ;;549;ER;350;2085,
220 ;;549;B;54930422921;54996033827
221 ;;549;ER;350;866,
222 ;;549;ER;700;16,52,210,1976,3931,3978,
223 ;;549;B;54930436137;54996062733
224 ;;549;ER;350;3649,
225 ;;549;B;54930437952;54996066052
226 ;;549;ER;350;2274,
227 ;;549;B;54930441184;54996074598
228 ;;549;ER;350;2263,
229 ;;549;B;54930443465;54996080214
230 ;;549;ER;350;3992,
231 ;;549;B;54930445405;54996083947
232 ;;549;ER;350;877,
233 ;;549;B;54930446720;54996085824
234 ;;549;ER;700;2313,
235 ;;549;B;54930448103;54996089837
236 ;;549;ER;350;2075,
237 ;;549;B;54930454903;54996103266
238 ;;549;ER;350;4752,
239550 ;;
240 ;;550;B;55014778664;55021524711
241 ;;550;ER;350;668,
242553 ;;
243 ;;553;B;55320661406;5537211698
244 ;;553;ER;350;3194,
245 ;;553;B;55320662266;5537212619
246 ;;553;ER;350;2677,
Note: See TracBrowser for help on using the repository browser.