Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDRPA17

SDRPA17.m

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