SDRPA17 ;BP-OIFO/ESW - UTILITY ; 10/31/04 6:00pm
 ;;5.3;Scheduling;**376**;Aug 13, 1993
EN(ST) ;
 N SR,II,STR,SA,STE,GG,SS,SQS,ER,SB,SM,SQ,SBE,SME
 F II=1:1 S STR=$P($T(@ST+II),";;",2) Q:STR=""  D
 .S SA=$P(STR,";") Q:SA="E"
 .S SB=$P(STR,";"),SM=$P(STR,";",2) D
 ..F GG=1:1 S STE=$P($T(@ST+II+GG),";;",2) Q:$P(STE,";")'="E"  D
 ...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)
 ..S ER="" S SQ=$O(^SDWL(409.6,"AMSG",SM,"")) Q:SQ=""  D PR^SD376P(SB,SM,ER,SQ)
 Q
 ;batch;ms
 ;E;ere cd;seq1,seq2,
674 ;;
 ;;25217915;48941214
 ;;E;350;2192,
 ;;25277627;49053629
 ;;E;200;367,384,475,521,1190,1271,1318,1708,1710,1759,1961,2038,2093,2729,3126,3440,3688,3736,3793,3817,3856,
 ;;25283907;49065301
 ;;E;200;378,717,949,2020,2136,2527,2741,3082,3367,3385,3446,3711,3836,4029,4071,4376,4928,
 ;;25294638;49080201
 ;;E;200;476,747,1433,1455,1637,2486,2524,2594,2622,2646,2727,2887,2912,3222,3241,3344,3519,3787,3889,4121,4413,4894,
 ;;25303583;49092494
 ;;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,
 ;;E;200;517,607,778,867,913,944,1224,1309,1476,1481,1668,1922,2155
 ;;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,
 ;;E;200;3002,3017,3067,3108,3171,3240,3411,3479,3601,3625,3796,3808,4057,4218,
 ;;25318368;49107676
 ;;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,
 ;;25325672;49115510
 ;;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,
 ;;25326509;49119268
 ;;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,
 ;;25326945;49119456
 ;;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,
 ;;25327195;49120057
 ;;E;200;564,703,1024,1803,1852,2144,2165,2693,2707,3077,3104,3500,3837,4281,4415,4563,
 ;;E;350;1512,
 ;;25327503;49120443
 ;;E;200;22,561,1122,1927,2297,2353,2471,2534,2652,2832,2919,2920,4120,4323,4561,4881,
 ;;25328054;49120936
 ;;E;200;519,670,817,1501,2433,2926,3111,4358,
 ;;25328395;49121277
 ;;E;200;246,654,1379,1960,2090,2355,2601,2608,3171,3690,3716,3730,
 ;;25328504;49125090
 ;;E;200;400,460,1006,1032,2128,2613,2795,3098,3439,3892,4502,4662,
 ;;25328711;49130992
 ;;E;200;1355,1609,1653,1863,1887,2179,2420,2445,2463,2681,2927,4059,4409,4497,
 ;;25331266;49133070
 ;;E;200;407,570,1342,2418,2634,3503,3933,4091,4356,4667,4961,
 ;;25334891;49135124
 ;;E;200;1024,2445,3476,
 ;;25341571;49141053
 ;;E;200;1404,2995,4559,
 ;;25350367;49150046
 ;;E;200;2172,2190,2288,2913,3303,3416,3418,4523,
 ;;25359268;49158911
 ;;E;200;1527,2338,2384,2412,3269,3318,3375,3758,4970,
 ;;25374264;49172416
 ;;E;200;385,1172,1195,2012,2229,2553,2706,2850,3356,3358,3486,3740,
 ;;E;200;358,2303,3529,3676,3764,3878,4271,4295,4743,
 ;;E;200;358,2303,3529,3676,3764,3878,4271,4295,4743,
 ;;25394823;49196200
 ;;E;200;2387,3542,3543,3544,3578,3954,4012,4953,
 ;;25395743;49198142
 ;;E;200;402,1723,1724,2526,2592,4947,
 ;;25396049;49199202
 ;;E;200;736,1095,1305,1812,2190,2245,2557,2720,2821,2939,3037,3088,3274,3388,3500,3551,4086,4542,
 ;;25397679;49200650
 ;;E;200;295,868,1329,1918,2102,2206,2222,2351,2403,2529,2551,2556,2632,2807,2972,3235,3553,3742,3782,3878,
 ;;25397799;49201471
 ;;E;200;203,1110,1554,2324,2334,2355,2623,3662,4231,4427,
 ;;25399817;49202495
 ;;E;200;815,1046,1799,2175,2346,3786,3838,4055,
 ;;25400603;49204834
 ;;E;200;1023,1204,1428,2303,2873,2898,3199,3259,3615,4437,4905,
 ;;25401313;49205730
 ;;E;200;285,976,3091,3706,
 ;;E;350;702,
 ;;25402604;49207029
 ;;E;200;1606,2163,2967,3121,3199,3274,3843,
 ;;25404729;49209854
 ;;E;200;1656,4942,
 ;;25407371;49213437
 ;;E;200;645,911,1420,1422,1424,3406,3522,
 ;;25409997;49217489
 ;;E;200;1299,4549,4943,4954,4959,
 ;;25412615;49221198
 ;;E;200;1244,1460,1542,2094,2180,2626,2658,3149,3160,3806,4220,4297,4811,
 ;;25414954;49224644
 ;;E;200;1119,1358,1641,1725,3899,4105,4983,
 ;;25416867;49227691
 ;;E;200;249,985,2098,2162,2229,2678,3224,4156,4216,
 ;;25418438;49230058
 ;;E;200;2151,2659,2865,
 ;;25419453;49232241
 ;;E;200;2858,3711,3720,
 ;;25420309;49233464
 ;;E;200;2041,2857,3629,3634,3670,4869,
 ;;25421225;49234819
 ;;E;200;2462,2577,2603,2910,3491,3512,
 ;;25422730;49236705
 ;;E;200;202,755,1802,2196,3016,3360,3899,3934,4457,
 ;;25424211;49238806
 ;;E;200;823,865,1449,2497,3544,3555,
 ;;25425867;49240848
 ;;E;200;457,661,1056,2314,2882,2954,3500,3538,3655,3865,
 ;;25427378;49243258
 ;;E;200;1158,1268,2363,2922,3089,3730,3952,4046,4087,4346,4975,
 ;;25429538;49245769
 ;;E;200;228,342,1041,1289,1324,1825,1870,1962,2329,2590,2646,2785,3217,3386,3455,3897,4154,
 ;;E;350;2364,
 ;;25434564;49249773
 ;;E;200;228,261,905,1351,1997,2766,2847,2850,2956,2995,3816,4163,4448,4583,4615,
 ;;25443721;49264947
 ;;E;200;267,357,707,1165,2431,3759,3843,
 ;;25452444;49279635
 ;;E;200;580,623,1059,1547,2403,2666,2896,3019,4405,4496,
 ;;25461201;49294789
 ;;E;200;23,1175,2026,2202,2215,3245,4533,
 ;;25468737;49310022
 ;;E;200;189,1515,2342,2656,
 ;;25468907;49314903
 ;;E;200;112,1062,1063,1064,1367,1854,2327,2608,2884,2974,4032,4354,
 ;;E;200;357,1869,1880,2391,4181,4404,
 ;;E;200;357,1869,1880,2391,4181,4404,
 ;;25469461;49315572
 ;;E;200;1446,1616,1786,2413,2704,2975,3527,3602,4202,
 ;;25469691;49315992
 ;;E;200;2906,3213,3256,4417,
 ;;25470125;49316720
 ;;E;200;34,1321,3175,
 ;;E;350;899,
 ;;25471835;49318630
 ;;E;200;439,1527,3394,
 ;;25472066;49319452
 ;;E;200;2996,3225,3439,3795,3897,4314,
 ;;25472460;49319895
 ;;E;200;2911,3944,3952,4075,4317,
 ;;25473511;49320217
 ;;E;200;1508,1551,2981,
 ;;25476116;49323337
 ;;E;200;1528,3138,3806,4295,4977,
 ;;25480593;49326190
 ;;E;200;746,1134,1692,2836,3127,
 ;;25485809;49330202
 ;;E;200;1324,3437,3734,3825,
 ;;25492908;49339053
 ;;E;200;357,1504,2342,2678,2823,3040,3729,3975,4190,4891,4960,
 ;;25500445;49351142
 ;;E;200;411,1133,1249,1277,1956,2351,2426,2479,2736,2898,4798,
 ;;25505015;49362568
 ;;E;200;266,843,1599,2231,2269,2944,3387,3554,3560,3760,
 ;;25505257;49362915
 ;;E;200;2928,3338,4208,4590,4996,
 ;;25505404;49363170
 ;;E;200;261,1464,2449,2536,4973,
 ;;25505757;49363649
 ;;E;200;1667,3542,3877,4368,4650,4940,
 ;;25505949;49363966
 ;;E;200;2656,3482,3861,4027,4453,
 ;;25506011;49364101
 ;;E;200;839,1178,2616,3213,3603,3954,
 ;;25506117;49364326
 ;;E;200;1169,2100,3391,4860,
 ;;25506465;49365020
 ;;E;200;326,477,1416,1990,4320,
 ;;25507536;49365318
 ;;E;200;813,1430,2867,3164,4528,
 ;;25516134;49372625
 ;;E;200;982,1734,2632,3932,4626,
 ;;25520238;49377650
 ;;E;200;647,1939,2004,2972,3866,4211,
 ;;25531241;49394904
 ;;E;200;288,1031,2160,2319,3980,4043,4097,
 ;;25541170;49411587
 ;;E;200;1675,1856,2193,2250,2546,2838,3127,3323,3727,3739,3831,3894,3903,4050,
 ;;25548018;49425352
 ;;E;200;8,907,938,1218,2342,2699,3474,3564,3632,4247,
 ;;25555062;49438387
 ;;E;200;511,1784,2369,3049,3067,3128,3318,3445,3769,4436,4633,
 ;;25561820;49452155
 ;;E;200;270,1223,1278,1466,1948,2055,2860,3127,3139,3226,3328,4020,4823,
 ;;25567090;49463144
 ;;E;200;1606,4213,
 ;;25573772;49474801
 ;;E;200;478,1756,2888,3180,
 ;;25625346;49568812
 ;;E;200;198,1650,2029,2330,2346,2462,2531,3096,3774,
 ;;25643600;49593770
 ;;E;200;1273,2727,2976,4287,
 ;;25655016;49610188
 ;;E;200;2781,3110,3779,4016,4213,
 ;;25666966;49627379
 ;;E;200;407,2026,2098,3821,4367,
 ;;25679867;49645638
 ;;E;200;194,563,576,2504,3237,
 ;;25690081;49661769
 ;;E;200;2567,3003,4260,
 ;;25700586;49678334
 ;;E;200;2850,3041,3280,4995,
 ;;25710517;49694824
 ;;E;200;387,769,837,1882,3110,4737,
 ;;25716592;49708375
 ;;E;200;719,1123,2018,3161,
 ;;25717026;49711576
 ;;E;200;1371,3359,
 ;;25717197;49711953
 ;;E;200;2292,2467,2542,4158,4960,
 ;;25718056;49712467
 ;;E;200;326,719,934,989,1552,1815,2000,2277,2446,2498,2892,3094,3114,3251,4038,4321,4599,
 ;;25719726;49713442
 ;;E;200;176,193,1128,1205,1443,1518,1601,1733,2017,2281,2585,3285,3474,3775,3902,3996,4397,4495,4590,4788,
 ;;25722959;49717477
 ;;E;200;270,499,502,1217,1379,1412,1660,1846,2204,2705,2726,2792,3009,3256,3511,3712,3865,4507,4548,
 ;;25727920;49721425
 ;;E;200;463,1576,1852,3433,3590,3637,3663,4130,4218,
 ;;25736902;49729062
 ;;E;200;859,1049,1689,1819,2346,2699,3582,
 ;;25747319;49739528
 ;;E;200;764,1868,2243,3196,3254,3385,3602,
 ;;25757985;49749729
 ;;E;200;1363,1580,3528,3851,4457,4979,
 ;;25773129;49765154
 ;;E;200;1044,1505,3616,4998,
 ;;25783897;49776025
 ;;E;200;924,1852,2186,2924,3551,3558,3660,
 ;;25796860;49788059
 ;;E;200;430,1158,1319,1593,1972,2802,
 ;;E;400;4977,4978,
 ;;25807730;49801466
 ;;E;200;1260,3237,4127,4674,4901,
 ;;25815463;49809685
 ;;E;200;244,2444,
 ;;25823127;49815307
 ;;E;200;2151,2161,3514,3584,
 ;;25831454;49824154
 ;;E;200;2695,3009,3060,3815,4020,4534,4759,
 ;;25836868;49830035
 ;;E;200;1566,
 ;;25843436;49836859
 ;;E;200;639,3326,4438,
 ;;25849534;49844065
 ;;E;200;1503,2259,3123,
 ;;25863893;49858904
 ;;E;200;597,1251,1856,1974,2099,2754,2789,3140,
 ;;25866728;49862842
 ;;E;200;811,877,1678,2178,
 ;;25869715;49868135
 ;;E;200;1015,2935,3181,3285,
 ;;25873785;49874214
 ;;E;200;2294,2583,2910,3573,3592,
 ;;25875986;49877861
 ;;E;200;3237,3238,4448,
 ;;25878155;49880484
 ;;E;200;3693,
 ;;25879802;49883628
 ;;E;200;969,3433,
 ;;25881077;49886044
 ;;E;200;2871,
 ;;25882473;49887880
 ;;E;200;1129,
 ;;25884241;49890003
 ;;E;200;481,