VistA-WorldVistAEHR/r/SCHEDULING-SD-SC/SDRPA12.m

SDRPA12 ;BP-OIFO/ESW - UTILITY ; 6/9/04 8:25am
 ;;5.3;Scheduling;**376**;Aug 13, 1993
EN(ST) ;
 N SR,II,STR,SA,STE,GG,SS,SQS,ER,SB,SM,SQ
 F II=1:1 S STR=$P($T(@ST+II),";;",2) Q:+STR'=ST  D
 .S SA=$P(STR,";",2) Q:SA'="B"
 .S SB=$P(STR,";",3),SM=$P(STR,";",4) D
 ..F GG=1:1 S STE=$P($T(@ST+II+GG),";;",2) Q:+STE'=ST!($P(STE,";",2)="B")  D
 ...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)
 ..;update batch acknowledgement
 ..S ER="" S SQ=$O(^SDWL(409.6,"AMSG",SM,"")) Q:SQ=""  D PR^SD376P(SB,SM,ER,SQ)
 Q
548 ;;
 ;;548;B;54818160756;54828864362
 ;;548;ER;200;1850,3653,3903,
 ;;548;B;54818166052;54828871385
 ;;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
 ;;548;ER;200;2500,2532,2584,2701,2787,2872,3046,3299,3320,3438,3547,4012,4021,4066,4089,4314,4397,4454,4679,4832,
 ;;548;B;54818194910;54828910086
 ;;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,
 ;;548;B;54818200225;54828918603
 ;;548;ER;200;1541,3040,4932,
 ;;548;ER;350;3781,
 ;;548;B;54818288056;54829043683
 ;;548;ER;200;1841,3655,3910,
 ;;548;B;54818288920;54829045138
 ;;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
 ;;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,
 ;;548;B;54818289488;54829046109
 ;;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,
 ;;548;B;54818290189;54829047084
 ;;548;ER;200;1626,2796,4774,
 ;;548;ER;350;3537,
 ;;548;B;54818290375;54829047315
 ;;548;ER;200;1631,
 ;;548;B;54818290631;54829047661
 ;;548;ER;200;480,2374,4381,
 ;;548;B;54818290766;54829047830
 ;;548;ER;200;541,571,1564,4235,
 ;;548;B;54818291018;54829048182
 ;;548;ER;200;760,
 ;;548;B;54818291121;54829048372
 ;;548;ER;200;1446,
 ;;548;B;54818291215;54829048589
 ;;548;ER;200;217,319,771,773,3126,3768,3890,4216,
 ;;548;B;54818291319;54829048754
 ;;548;ER;200;1548,1905,2156,
 ;;548;B;54818291468;54829049069
 ;;548;ER;200;94,95,1322,1323,2952,2953,
 ;;548;B;54818291672;54829049292
 ;;548;ER;200;320,490,685,941,977,1491,1493,
 ;;548;B;54818291774;54829049539
 ;;548;ER;200;881,2689,
 ;;548;B;54818291903;54829049888
 ;;548;ER;200;534,1258,1886,2685,3446,
 ;;548;B;54818292004;54829050054
 ;;548;ER;200;4793,
 ;;548;B;54818292138;54829050419
 ;;548;ER;200;751,
 ;;548;B;54818292219;54829050855
 ;;548;ER;200;2161,
 ;;548;B;54818292276;54829051049
 ;;548;ER;200;294,2069,
 ;;548;B;54818292313;54829051221
 ;;548;ER;200;197,2155,3529,
 ;;548;B;54818292383;54829051384
 ;;548;ER;200;1582,4153,
 ;;548;B;54818292438;54829051580
 ;;548;ER;200;1121,
 ;;548;B;54818292490;54829051742
 ;;548;ER;200;749,2400,2725,
 ;;548;B;54818292500;54829051848
 ;;548;ER;200;147,967,4129,4242,
 ;;548;B;54818292529;54829051957
 ;;548;ER;200;156,1427,1969,2331,2333,2370,2939,2991,2992,3101,3122,3172,3751,3791,3879,4658,4681,
 ;;548;B;54818292536;54829052025
 ;;548;ER;200;425,738,1330,1484,3175,4740,4952,
 ;;548;B;54818292567;54829052109
 ;;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,
 ;;548;B;54818292969;54829052821
 ;;548;ER;200;204,2675,2984,3666,4809,
 ;;548;B;54818293396;54829053399
 ;;548;ER;200;303,1761,4697,4905,
 ;;548;B;54818293629;54829053787
 ;;548;ER;200;1014,2834,2835,
 ;;548;B;54818294033;54829054304
 ;;548;ER;200;74,236,848,902,1704,2369,
 ;;548;B;54818295165;54829055642
 ;;548;ER;200;477,1866,2076,2211,3685,3979,
 ;;548;B;54818297170;54829057907
 ;;548;ER;200;3516,4632,4648,4979,
 ;;548;B;54818298074;54829059351
 ;;548;ER;200;467,540,645,1347,4077,
 ;;548;B;54818298951;54829060561
 ;;548;ER;200;1814,2173,
 ;;548;B;54818299748;54829061733
 ;;548;ER;200;104,1135,2822,2823,3423,4709,
 ;;548;ER;350;3065,
 ;;548;B;54818300552;54829062945
 ;;548;ER;200;23,848,1237,1797,1811,2894,
 ;;548;B;54818302529;54829065875
 ;;548;ER;200;221,1198,1604,4814,
 ;;548;B;54818303659;54829067540
 ;;548;ER;200;1731,2098,4773,4774,
 ;;548;B;54818304348;54829068917
 ;;548;ER;200;3485,
 ;;548;B;54818306098;54829071392
 ;;548;ER;200;273,279,1284,1549,3130,4944,
 ;;548;B;54818306823;54829072511
 ;;548;ER;200;842,2682,2916,4654,
 ;;548;B;54818307611;54829073657
 ;;548;ER;200;376,415,2578,2865,3016,
 ;;548;B;54818308786;54829074974
 ;;548;ER;200;364,669,2051,3400,3801,4221,4365,
 ;;548;B;54818309466;54829076246
 ;;548;ER;200;4814,
 ;;548;B;54818309937;54829076990
 ;;548;ER;200;386,438,731,1922,
 ;;548;B;54818310455;54829077796
 ;;548;ER;200;917,1536,4141,
 ;;548;B;54818311033;54829078850
 ;;548;ER;200;2791,3743,4287,
 ;;548;B;54818313864;54829083315
 ;;548;ER;200;1214,4982,
 ;;548;ER;700;4836,
 ;;548;B;54818314573;54829084335
 ;;548;ER;200;1202,2680,3276,
 ;;548;B;54818315538;54829085625
 ;;548;ER;200;4089,4725,4814,4816,4850,
 ;;548;B;54818317094;54829087723
 ;;548;ER;200;236,517,605,1345,4228,
 ;;548;B;54818318068;54829089189
 ;;548;ER;200;1069,1213,2393,2427,2451,2554,2574,2908,3712,3898,4485,4581,
 ;;548;B;54818319216;54829090966
 ;;548;ER;200;285,287,1064,1065,1522,
 ;;548;B;54818319710;54829091574
 ;;548;ER;200;708,4014,4371,
 ;;548;B;54818320244;54829092353
 ;;548;ER;200;1909,2615,2937,4152,4960,
 ;;548;B;54818320807;54829093035
 ;;548;ER;200;925,
 ;;548;B;54818321240;54829093681
 ;;548;ER;200;501,1868,2274,4170,
 ;;548;B;54818321527;54829094021
 ;;548;ER;200;1100,1469,
 ;;548;B;54818321822;54829094496
 ;;548;ER;200;2288,2790,
 ;;548;B;54818322241;54829095183
 ;;548;ER;200;687,1990,2496,2960,3002,
 ;;548;B;54818322575;54829095767
 ;;548;ER;200;1253,
 ;;548;B;54818322800;54829096012
 ;;548;ER;200;3204,3266,3463,4080,
 ;;548;B;54818323154;54829096628
 ;;548;ER;200;1896,2012,3488,
 ;;548;B;54818323271;54829096846
 ;;548;ER;200;98,389,502,1157,2135,
 ;;548;B;54818323420;54829097129
 ;;548;ER;200;1215,1296,1721,3474,3566,4891,
 ;;548;B;54818323541;54829097327
 ;;548;ER;200;89,2619,3937,
 ;;548;B;54818323694;54829097662
 ;;548;ER;200;597,
 ;;548;B;54818323792;54829097809
 ;;548;ER;200;244,1490,2740,3795,4099,4154,4348,4893,
 ;;548;B;54818323865;54829097952
 ;;548;ER;200;165,343,628,1016,1541,
 ;;548;B;54818324004;54829098174
 ;;548;ER;200;533,807,1514,1892,2560,2872,3210,
 ;;548;B;54818324140;54829098538
 ;;548;ER;200;26,414,2947,2986,2999,3955,4291,4357,4509,
 ;;548;B;54818324290;54829099214
 ;;548;ER;200;957,1337,1842,4187,
 ;;548;B;54818324605;54829099651
 ;;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,
 ;;548;ER;200;3556,3629,3646,3727,3898,3977,4161,4166,4225,4377,4382,4438,4481,4619,4647,4741,
 ;;548;B;54818324954;54829100043
 ;;548;ER;200;440,680,2346,3585,3587,
 ;;548;B;54818325147;54829100396
 ;;548;ER;200;307,1536,4468,
 ;;548;B;54818325308;54829100621
 ;;548;ER;200;215,4823,
 ;;548;B;54818325494;54829100918
 ;;548;ER;200;89,1130,1498,2744,2904,3308,4589,
 ;;548;B;54818325579;54829101045
 ;;548;ER;200;289,779,2072,2271,3606,4434,4593,
 ;;548;B;54818325680;54829101185
 ;;548;ER;200;1113,1991,
 ;;548;B;54818325802;54829101343
 ;;548;ER;200;1449,
 ;;548;B;54818325877;54829101459
 ;;548;ER;200;71,508,2166,3596,
 ;;548;B;54818325949;54829101550
 ;;548;ER;200;583,1193,1294,1316,1937,2075,2256,3016,4969,
 ;;548;B;54818326079;54829101744
 ;;548;ER;200;535,1410,3134,
 ;;548;B;54818326119;54829101822
 ;;548;ER;200;1286,1351,4164,4249,4346,4626,4970,
 ;;548;B;54818326215;54829102014
 ;;548;ER;200;704,900,902,1190,1203,1480,3986,
 ;;548;B;54818326296;54829102172
 ;;548;ER;200;800,801,1042,1959,2639,2640,4294,4543,4831,4924,4985,
 ;;548;B;54818326349;54829102269
 ;;548;ER;200;1572,
 ;;548;B;54818326505;54829102518
 ;;548;ER;200;1100,4482,4488,
 ;;548;B;54818326660;54829102937
 ;;548;ER;200;90,797,1062,1729,1963,
 ;;548;B;54818326758;54829103194
 ;;548;ER;200;1194,1644,1884,4727,
 ;;548;B;54818326836;54829103398
 ;;548;ER;200;269,4005,4007,
 ;;548;B;54818327030;54829103767
 ;;548;ER;200;790,954,1063,1271,4459,
 ;;548;B;54818327155;54829103994
 ;;548;ER;200;23,2734,3329,3896,3898,4739,
549 ;;
 ;;549;B;54930411303;54996011224
 ;;549;ER;350;2085,
 ;;549;B;54930422921;54996033827
 ;;549;ER;350;866,
 ;;549;ER;700;16,52,210,1976,3931,3978,
 ;;549;B;54930436137;54996062733
 ;;549;ER;350;3649,
 ;;549;B;54930437952;54996066052
 ;;549;ER;350;2274,
 ;;549;B;54930441184;54996074598
 ;;549;ER;350;2263,
 ;;549;B;54930443465;54996080214
 ;;549;ER;350;3992,
 ;;549;B;54930445405;54996083947
 ;;549;ER;350;877,
 ;;549;B;54930446720;54996085824
 ;;549;ER;700;2313,
 ;;549;B;54930448103;54996089837
 ;;549;ER;350;2075,
 ;;549;B;54930454903;54996103266
 ;;549;ER;350;4752,
550 ;;
 ;;550;B;55014778664;55021524711
 ;;550;ER;350;668,
553 ;;
 ;;553;B;55320661406;5537211698
 ;;553;ER;350;3194,
 ;;553;B;55320662266;5537212619
 ;;553;ER;350;2677,