source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDRPA17.m@ 1134

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

initial load of WorldVistAEHR

File size: 9.5 KB
Line 
1SDRPA17 ;BP-OIFO/ESW - UTILITY ; 10/31/04 6:00pm
2 ;;5.3;Scheduling;**376**;Aug 13, 1993
3EN(ST) ;
4 N SR,II,STR,SA,STE,GG,SS,SQS,ER,SB,SM,SQ,SBE,SME
5 F II=1:1 S STR=$P($T(@ST+II),";;",2) Q:STR="" D
6 .S SA=$P(STR,";") Q:SA="E"
7 .S SB=$P(STR,";"),SM=$P(STR,";",2) D
8 ..F GG=1:1 S STE=$P($T(@ST+II+GG),";;",2) Q:$P(STE,";")'="E" D
9 ...S ER=$P(STE,";",2) S SQS=$P(STE,";",3) F SS=1:1 S SQ=$P(SQS,",",SS) Q:SQ="" S SBE=ST_SB,SME=ST_SM D PR^SD376P(SBE,SME,ER,SQ)
10 ..S ER="" S SQ=$O(^SDWL(409.6,"AMSG",SM,"")) Q:SQ="" D PR^SD376P(SB,SM,ER,SQ)
11 Q
12 ;batch;ms
13 ;E;ere cd;seq1,seq2,
14674 ;;
15 ;;25217915;48941214
16 ;;E;350;2192,
17 ;;25277627;49053629
18 ;;E;200;367,384,475,521,1190,1271,1318,1708,1710,1759,1961,2038,2093,2729,3126,3440,3688,3736,3793,3817,3856,
19 ;;25283907;49065301
20 ;;E;200;378,717,949,2020,2136,2527,2741,3082,3367,3385,3446,3711,3836,4029,4071,4376,4928,
21 ;;25294638;49080201
22 ;;E;200;476,747,1433,1455,1637,2486,2524,2594,2622,2646,2727,2887,2912,3222,3241,3344,3519,3787,3889,4121,4413,4894,
23 ;;25303583;49092494
24 ;;E;200;502,565,725,726,761,965,1415,1626,1752,1999,2074,2077,2089,2101,2114,2435,2574,3193,3352,3463,3685,3750,3760,3761,3932,4173,4180,
25 ;;E;200;517,607,778,867,913,944,1224,1309,1476,1481,1668,1922,2155
26 ;;E;200;517,607,778,867,913,944,1224,1309,1476,1481,1668,1922,2155,2284,2300,2320,2454,2569,2572,2658,2696,2801,2904,2907,2913,2918,2971,2975,2984,
27 ;;E;200;3002,3017,3067,3108,3171,3240,3411,3479,3601,3625,3796,3808,4057,4218,
28 ;;25318368;49107676
29 ;;E;200;609,921,1170,1173,1267,1726,1962,2000,2872,2947,2959,2975,2988,2991,3117,3128,3183,3286,3293,3340,3416,3506,3526,3530,3543,3698,3742,4003,4095,4125,4192,4229,4244,4297,4310,
30 ;;25325672;49115510
31 ;;E;200;341,413,417,486,523,769,1069,1184,1232,1302,1313,1418,1490,1599,2392,2404,2566,2675,2737,2993,3011,3251,3295,3523,3584,3747,3962,4352,
32 ;;25326509;49119268
33 ;;E;200;192,194,384,502,504,624,662,769,954,1006,1517,1615,1821,2026,2057,2175,2293,2420,2502,2526,2541,2672,2817,2862,3022,3085,3092,3115,3257,3333,3487,3610,3660,3688,3782,3804,3831,3933,3980,4416,4878,4887,
34 ;;25326945;49119456
35 ;;E;200;2477,2682,2761,2763,2770,2795,2815,2869,2925,3278,3283,3330,3334,3507,3519,3701,3966,4005,4293,4367,4372,4380,4384,
36 ;;25327195;49120057
37 ;;E;200;564,703,1024,1803,1852,2144,2165,2693,2707,3077,3104,3500,3837,4281,4415,4563,
38 ;;E;350;1512,
39 ;;25327503;49120443
40 ;;E;200;22,561,1122,1927,2297,2353,2471,2534,2652,2832,2919,2920,4120,4323,4561,4881,
41 ;;25328054;49120936
42 ;;E;200;519,670,817,1501,2433,2926,3111,4358,
43 ;;25328395;49121277
44 ;;E;200;246,654,1379,1960,2090,2355,2601,2608,3171,3690,3716,3730,
45 ;;25328504;49125090
46 ;;E;200;400,460,1006,1032,2128,2613,2795,3098,3439,3892,4502,4662,
47 ;;25328711;49130992
48 ;;E;200;1355,1609,1653,1863,1887,2179,2420,2445,2463,2681,2927,4059,4409,4497,
49 ;;25331266;49133070
50 ;;E;200;407,570,1342,2418,2634,3503,3933,4091,4356,4667,4961,
51 ;;25334891;49135124
52 ;;E;200;1024,2445,3476,
53 ;;25341571;49141053
54 ;;E;200;1404,2995,4559,
55 ;;25350367;49150046
56 ;;E;200;2172,2190,2288,2913,3303,3416,3418,4523,
57 ;;25359268;49158911
58 ;;E;200;1527,2338,2384,2412,3269,3318,3375,3758,4970,
59 ;;25374264;49172416
60 ;;E;200;385,1172,1195,2012,2229,2553,2706,2850,3356,3358,3486,3740,
61 ;;E;200;358,2303,3529,3676,3764,3878,4271,4295,4743,
62 ;;E;200;358,2303,3529,3676,3764,3878,4271,4295,4743,
63 ;;25394823;49196200
64 ;;E;200;2387,3542,3543,3544,3578,3954,4012,4953,
65 ;;25395743;49198142
66 ;;E;200;402,1723,1724,2526,2592,4947,
67 ;;25396049;49199202
68 ;;E;200;736,1095,1305,1812,2190,2245,2557,2720,2821,2939,3037,3088,3274,3388,3500,3551,4086,4542,
69 ;;25397679;49200650
70 ;;E;200;295,868,1329,1918,2102,2206,2222,2351,2403,2529,2551,2556,2632,2807,2972,3235,3553,3742,3782,3878,
71 ;;25397799;49201471
72 ;;E;200;203,1110,1554,2324,2334,2355,2623,3662,4231,4427,
73 ;;25399817;49202495
74 ;;E;200;815,1046,1799,2175,2346,3786,3838,4055,
75 ;;25400603;49204834
76 ;;E;200;1023,1204,1428,2303,2873,2898,3199,3259,3615,4437,4905,
77 ;;25401313;49205730
78 ;;E;200;285,976,3091,3706,
79 ;;E;350;702,
80 ;;25402604;49207029
81 ;;E;200;1606,2163,2967,3121,3199,3274,3843,
82 ;;25404729;49209854
83 ;;E;200;1656,4942,
84 ;;25407371;49213437
85 ;;E;200;645,911,1420,1422,1424,3406,3522,
86 ;;25409997;49217489
87 ;;E;200;1299,4549,4943,4954,4959,
88 ;;25412615;49221198
89 ;;E;200;1244,1460,1542,2094,2180,2626,2658,3149,3160,3806,4220,4297,4811,
90 ;;25414954;49224644
91 ;;E;200;1119,1358,1641,1725,3899,4105,4983,
92 ;;25416867;49227691
93 ;;E;200;249,985,2098,2162,2229,2678,3224,4156,4216,
94 ;;25418438;49230058
95 ;;E;200;2151,2659,2865,
96 ;;25419453;49232241
97 ;;E;200;2858,3711,3720,
98 ;;25420309;49233464
99 ;;E;200;2041,2857,3629,3634,3670,4869,
100 ;;25421225;49234819
101 ;;E;200;2462,2577,2603,2910,3491,3512,
102 ;;25422730;49236705
103 ;;E;200;202,755,1802,2196,3016,3360,3899,3934,4457,
104 ;;25424211;49238806
105 ;;E;200;823,865,1449,2497,3544,3555,
106 ;;25425867;49240848
107 ;;E;200;457,661,1056,2314,2882,2954,3500,3538,3655,3865,
108 ;;25427378;49243258
109 ;;E;200;1158,1268,2363,2922,3089,3730,3952,4046,4087,4346,4975,
110 ;;25429538;49245769
111 ;;E;200;228,342,1041,1289,1324,1825,1870,1962,2329,2590,2646,2785,3217,3386,3455,3897,4154,
112 ;;E;350;2364,
113 ;;25434564;49249773
114 ;;E;200;228,261,905,1351,1997,2766,2847,2850,2956,2995,3816,4163,4448,4583,4615,
115 ;;25443721;49264947
116 ;;E;200;267,357,707,1165,2431,3759,3843,
117 ;;25452444;49279635
118 ;;E;200;580,623,1059,1547,2403,2666,2896,3019,4405,4496,
119 ;;25461201;49294789
120 ;;E;200;23,1175,2026,2202,2215,3245,4533,
121 ;;25468737;49310022
122 ;;E;200;189,1515,2342,2656,
123 ;;25468907;49314903
124 ;;E;200;112,1062,1063,1064,1367,1854,2327,2608,2884,2974,4032,4354,
125 ;;E;200;357,1869,1880,2391,4181,4404,
126 ;;E;200;357,1869,1880,2391,4181,4404,
127 ;;25469461;49315572
128 ;;E;200;1446,1616,1786,2413,2704,2975,3527,3602,4202,
129 ;;25469691;49315992
130 ;;E;200;2906,3213,3256,4417,
131 ;;25470125;49316720
132 ;;E;200;34,1321,3175,
133 ;;E;350;899,
134 ;;25471835;49318630
135 ;;E;200;439,1527,3394,
136 ;;25472066;49319452
137 ;;E;200;2996,3225,3439,3795,3897,4314,
138 ;;25472460;49319895
139 ;;E;200;2911,3944,3952,4075,4317,
140 ;;25473511;49320217
141 ;;E;200;1508,1551,2981,
142 ;;25476116;49323337
143 ;;E;200;1528,3138,3806,4295,4977,
144 ;;25480593;49326190
145 ;;E;200;746,1134,1692,2836,3127,
146 ;;25485809;49330202
147 ;;E;200;1324,3437,3734,3825,
148 ;;25492908;49339053
149 ;;E;200;357,1504,2342,2678,2823,3040,3729,3975,4190,4891,4960,
150 ;;25500445;49351142
151 ;;E;200;411,1133,1249,1277,1956,2351,2426,2479,2736,2898,4798,
152 ;;25505015;49362568
153 ;;E;200;266,843,1599,2231,2269,2944,3387,3554,3560,3760,
154 ;;25505257;49362915
155 ;;E;200;2928,3338,4208,4590,4996,
156 ;;25505404;49363170
157 ;;E;200;261,1464,2449,2536,4973,
158 ;;25505757;49363649
159 ;;E;200;1667,3542,3877,4368,4650,4940,
160 ;;25505949;49363966
161 ;;E;200;2656,3482,3861,4027,4453,
162 ;;25506011;49364101
163 ;;E;200;839,1178,2616,3213,3603,3954,
164 ;;25506117;49364326
165 ;;E;200;1169,2100,3391,4860,
166 ;;25506465;49365020
167 ;;E;200;326,477,1416,1990,4320,
168 ;;25507536;49365318
169 ;;E;200;813,1430,2867,3164,4528,
170 ;;25516134;49372625
171 ;;E;200;982,1734,2632,3932,4626,
172 ;;25520238;49377650
173 ;;E;200;647,1939,2004,2972,3866,4211,
174 ;;25531241;49394904
175 ;;E;200;288,1031,2160,2319,3980,4043,4097,
176 ;;25541170;49411587
177 ;;E;200;1675,1856,2193,2250,2546,2838,3127,3323,3727,3739,3831,3894,3903,4050,
178 ;;25548018;49425352
179 ;;E;200;8,907,938,1218,2342,2699,3474,3564,3632,4247,
180 ;;25555062;49438387
181 ;;E;200;511,1784,2369,3049,3067,3128,3318,3445,3769,4436,4633,
182 ;;25561820;49452155
183 ;;E;200;270,1223,1278,1466,1948,2055,2860,3127,3139,3226,3328,4020,4823,
184 ;;25567090;49463144
185 ;;E;200;1606,4213,
186 ;;25573772;49474801
187 ;;E;200;478,1756,2888,3180,
188 ;;25625346;49568812
189 ;;E;200;198,1650,2029,2330,2346,2462,2531,3096,3774,
190 ;;25643600;49593770
191 ;;E;200;1273,2727,2976,4287,
192 ;;25655016;49610188
193 ;;E;200;2781,3110,3779,4016,4213,
194 ;;25666966;49627379
195 ;;E;200;407,2026,2098,3821,4367,
196 ;;25679867;49645638
197 ;;E;200;194,563,576,2504,3237,
198 ;;25690081;49661769
199 ;;E;200;2567,3003,4260,
200 ;;25700586;49678334
201 ;;E;200;2850,3041,3280,4995,
202 ;;25710517;49694824
203 ;;E;200;387,769,837,1882,3110,4737,
204 ;;25716592;49708375
205 ;;E;200;719,1123,2018,3161,
206 ;;25717026;49711576
207 ;;E;200;1371,3359,
208 ;;25717197;49711953
209 ;;E;200;2292,2467,2542,4158,4960,
210 ;;25718056;49712467
211 ;;E;200;326,719,934,989,1552,1815,2000,2277,2446,2498,2892,3094,3114,3251,4038,4321,4599,
212 ;;25719726;49713442
213 ;;E;200;176,193,1128,1205,1443,1518,1601,1733,2017,2281,2585,3285,3474,3775,3902,3996,4397,4495,4590,4788,
214 ;;25722959;49717477
215 ;;E;200;270,499,502,1217,1379,1412,1660,1846,2204,2705,2726,2792,3009,3256,3511,3712,3865,4507,4548,
216 ;;25727920;49721425
217 ;;E;200;463,1576,1852,3433,3590,3637,3663,4130,4218,
218 ;;25736902;49729062
219 ;;E;200;859,1049,1689,1819,2346,2699,3582,
220 ;;25747319;49739528
221 ;;E;200;764,1868,2243,3196,3254,3385,3602,
222 ;;25757985;49749729
223 ;;E;200;1363,1580,3528,3851,4457,4979,
224 ;;25773129;49765154
225 ;;E;200;1044,1505,3616,4998,
226 ;;25783897;49776025
227 ;;E;200;924,1852,2186,2924,3551,3558,3660,
228 ;;25796860;49788059
229 ;;E;200;430,1158,1319,1593,1972,2802,
230 ;;E;400;4977,4978,
231 ;;25807730;49801466
232 ;;E;200;1260,3237,4127,4674,4901,
233 ;;25815463;49809685
234 ;;E;200;244,2444,
235 ;;25823127;49815307
236 ;;E;200;2151,2161,3514,3584,
237 ;;25831454;49824154
238 ;;E;200;2695,3009,3060,3815,4020,4534,4759,
239 ;;25836868;49830035
240 ;;E;200;1566,
241 ;;25843436;49836859
242 ;;E;200;639,3326,4438,
243 ;;25849534;49844065
244 ;;E;200;1503,2259,3123,
245 ;;25863893;49858904
246 ;;E;200;597,1251,1856,1974,2099,2754,2789,3140,
247 ;;25866728;49862842
248 ;;E;200;811,877,1678,2178,
249 ;;25869715;49868135
250 ;;E;200;1015,2935,3181,3285,
251 ;;25873785;49874214
252 ;;E;200;2294,2583,2910,3573,3592,
253 ;;25875986;49877861
254 ;;E;200;3237,3238,4448,
255 ;;25878155;49880484
256 ;;E;200;3693,
257 ;;25879802;49883628
258 ;;E;200;969,3433,
259 ;;25881077;49886044
260 ;;E;200;2871,
261 ;;25882473;49887880
262 ;;E;200;1129,
263 ;;25884241;49890003
264 ;;E;200;481,
Note: See TracBrowser for help on using the repository browser.