1 | SDRPA17 ;BP-OIFO/ESW - UTILITY ; 10/31/04 6:00pm
|
---|
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,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,
|
---|
14 | 674 ;;
|
---|
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,
|
---|