Routine: SDRPA11

SDRPA11 ;BP-OIFO/ESW - UTILITY ; 6/9/04 8:21am

 ;;5.3;Scheduling;**376,1015**;Aug 13, 1993;Build 21

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)

529 ;;

 ;;529;B;5297795920;52911332691

 ;;529;ER;200;11,65,69,105,106,150,247,462,464,467,578,580,588,590,593,680,717,719,861,872,873,952,953,1144,1224,1502,1760,1863,1990,2522,2524,3396,3397,

 ;;529;ER;200;3461,3562,3565,3566,3567,3919,3921,3922,3923,3925,3926,3928,3929,3931,4102,4270,4272,4273,4276,4277,4394,4427,4491,4638,4641,4643,4645,4646,4647,4648,4707,4709,

 ;;529;ER;200;4727,4738,4789,4790,4791,4794,4795,4796,4797,4897,4911,4912,4976,4988,4989,4990,4991,4995,4997,

 ;;529;B;5297795922;52911332697

 ;;529;ER;200;655,656,1288,1386,1387,1396,1397,1400,1401,1402,4628,4702,4703,4704,4768,4919,

 ;;529;B;5297796072;52911332854

 ;;529;ER;200;338,340,1423,1514,2281,2282,3543,4586,4690,4691,

 ;;529;B;5297796074;52911332856

 ;;529;ER;200;301,400,1639,1990,4663,4938,4941,

 ;;529;B;5297796084;52911332866

 ;;529;ER;200;770,962,4222,4223,4652,

 ;;529;B;5297796086;52911332868

 ;;529;ER;200;760,990,1355,1357,1526,1751,4655,4853,4917,4921,

 ;;529;B;5297796088;52911332870

 ;;529;ER;200;753,799,1309,1457,1540,1543,2194,4705,4706,4707,4797,4799,4917,4918,4919,4920,4921,4922,

 ;;529;B;5297796091;52911332873

 ;;529;ER;200;772,825,1280,2272,2277,3695,4724,4866,

 ;;529;B;5297796093;52911332876

 ;;529;ER;200;839,1575,4720,4829,

 ;;529;B;5297796099;52911332884

 ;;529;ER;200;144,322,323,324,325,692,733,1021,1022,1023,2457,2681,3627,3801,3846,4210,4596,4597,4726,4727,4729,

 ;;529;B;5297796104;52911332889

 ;;529;ER;200;393,781,1112,1113,1115,1158,1623,2585,2586,3308,4548,4549,4639,4642,

 ;;529;B;5297796109;52911332894

 ;;529;ER;200;2,158,305,397,607,670,1125,1263,1264,1414,1415,3162,3305,3830,3831,3995,4252,4253,4687,

 ;;529;B;5297796111;52911332896

 ;;529;ER;200;689,702,1039,1757,2708,2709,3760,3908,4059,4589,4650,

 ;;529;B;5297796113;52911332898

 ;;529;ER;200;576,577,1773,2032,2119,2120,2121,

531 ;;

 ;;531;B;53119169425;53192855136

 ;;531;ER;350;2893,

 ;;531;B;53119169505;53192855212

 ;;531;ER;400;4221,4222,

534 ;;

 ;;534;B;53429620410;53419772381

 ;;534;ER;350;1718,

 ;;534;B;53429715403;53419846814

 ;;534;ER;350;601,4771,

 ;;534;B;53429731676;53419857147

 ;;534;ER;350;749,

 ;;534;B;53429732848;53419857945

 ;;534;ER;350;1482,

537 ;;

 ;;537;B;53735470560;53745265152

 ;;537;ER;350;4853,

 ;;537;B;53735471635;53745266672

 ;;537;ER;350;3757,

 ;;537;B;53735471760;53745267247

 ;;537;ER;350;518,

 ;;537;B;53735472129;53745267876

 ;;537;ER;350;756,

 ;;537;B;53735472828;53745268806

 ;;537;ER;350;2261,

 ;;537;B;53735473888;53745270371

 ;;537;ER;350;733,

 ;;537;B;53735475021;53745272010

 ;;537;ER;350;2602,

 ;;537;B;53735479605;53745279167

 ;;537;ER;350;4993,

 ;;537;B;53735503027;53745313697

 ;;537;ER;350;4652,

 ;;537;B;53735503953;53745315198

 ;;537;ER;350;1465,

539 ;;

 ;;539;B;53933787453;53940055432

 ;;539;ER;350;513,

 ;;539;ER;700;51,52,

 ;;539;B;53933787850;53940055890

 ;;539;ER;350;2568,2569,

 ;;539;B;53933798889;53940063916

 ;;539;ER;350;2033,

 ;;539;B;53933804361;53940068636

 ;;539;ER;350;266,

 ;;539;B;53933862286;53940119176

 ;;539;ER;350;3501,

541 ;;

 ;;541;B;54111500367;54180257613

 ;;541;ER;350;1515,

 ;;541;B;54111506210;54180292305

 ;;541;ER;350;1888,

 ;;541;B;54111507474;54180301756

 ;;541;ER;350;2487,2488,3501,4664,

 ;;541;B;54111507861;54180303147

 ;;541;ER;350;3530,

 ;;541;B;54111514729;54180342697

 ;;541;ER;350;4980,

 ;;541;B;54111521658;54180384213

 ;;541;ER;350;3902,

 ;;541;B;54111527072;54180427801

 ;;541;ER;350;1673,

 ;;541;B;54111529245;54180441238

 ;;541;ER;400;5,

 ;;541;B;54111537488;54180498625

 ;;541;ER;350;650,

 ;;541;B;54111539596;54180511438

 ;;541;ER;350;1312,

 ;;541;B;54111542820;54180530340

 ;;541;ER;350;4635,

 ;;541;B;54111543032;54180531719

 ;;541;ER;350;3498,

 ;;541;B;54111637583;54181143457

 ;;541;ER;700;2688,

 ;;541;B;54111662851;54181310927

 ;;541;ER;400;8,

544 ;;

 ;;544;B;54425329584;54433704269

 ;;544;ER;350;2563,

 ;;544;B;54425371042;54433736350

 ;;544;ER;350;2191,

546 ;;

 ;;546;B;54654062543;54658177137

 ;;546;ER;350;2857,3790,

 ;;546;B;54654075634;54658186625

 ;;546;ER;350;1142,1616,

 ;;546;B;54654075856;54658186864

 ;;546;ER;350;1563,2377,3855,

 ;;546;B;54654086082;54658198129

 ;;546;ER;350;3153,

 ;;546;B;54654089535;54658201995

 ;;546;ER;350;2404,

 ;;546;B;54654093439;54658207190

 ;;546;ER;350;1281,2767,

 ;;546;B;54654096575;54658211269

 ;;546;ER;350;887,

 ;;546;B;54654100397;54658217572

 ;;546;ER;350;506,

 ;;546;B;54654115613;54658239891

 ;;546;ER;350;149,

 ;;546;B;54654116042;54658240421

 ;;546;ER;350;7,

 ;;546;B;54654116758;54658241465

 ;;546;ER;350;3987,

 ;;546;B;54654128189;54658246454

 ;;546;ER;350;1314,

 ;;546;B;54654132002;54658252972

 ;;546;ER;350;216,1566,

 ;;546;B;54654152367;54658277081

 ;;546;ER;350;189,1155,

SDRPA11   ;BP-OIFO/ESW - UTILITY ; 6/9/04 8:21am

 +1       ;;5.3;Scheduling;**376,1015**;Aug 13, 1993;Build 21

EN(ST)    ;

 +1        NEW SR,II,STR,SA,STE,GG,SS,SQS,ER,SB,SM,SQ

 +2        FOR II=1:1

               SET STR=$PIECE($TEXT(@ST+II),";;",2)

               IF +STR'=ST

                   QUIT

               Begin DoDot:1

 +3                SET SA=$PIECE(STR,";",2)

                   IF SA'="B"

                       QUIT

 +4                SET SB=$PIECE(STR,";",3)

                   SET SM=$PIECE(STR,";",4)

                   Begin DoDot:2

 +5                    FOR GG=1:1

                           SET STE=$PIECE($TEXT(@ST+II+GG),";;",2)

                           IF +STE'=ST!($PIECE(STE,";",2)="B")

                               QUIT

                           Begin DoDot:3

 +6                            SET ER=$PIECE(STE,";",3)

                               SET SQS=$PIECE(STE,";",4)

                               FOR SS=1:1

                                   SET SQ=$PIECE(SQS,",",SS)

                                   IF SQ=""

                                       QUIT

                                   DO PR^SD376P(SB,SM,ER,SQ)

                           End DoDot:3

 +7       ;update batch acknowledgement

 +8                    SET ER=""

                       SET SQ=$ORDER(^SDWL(409.6,"AMSG",SM,""))

                       IF SQ=""

                           QUIT

                       DO PR^SD376P(SB,SM,ER,SQ)

                   End DoDot:2

               End DoDot:1

 +9        QUIT

529       ;;

 +1       ;;529;B;5297795920;52911332691

 +2       ;;529;ER;200;11,65,69,105,106,150,247,462,464,467,578,580,588,590,593,680,717,719,861,872,873,952,953,1144,1224,1502,1760,1863,1990,2522,2524,3396,3397,

 +3       ;;529;ER;200;3461,3562,3565,3566,3567,3919,3921,3922,3923,3925,3926,3928,3929,3931,4102,4270,4272,4273,4276,4277,4394,4427,4491,4638,4641,4643,4645,4646,4647,4648,4707,4709,

 +4       ;;529;ER;200;4727,4738,4789,4790,4791,4794,4795,4796,4797,4897,4911,4912,4976,4988,4989,4990,4991,4995,4997,

 +5       ;;529;B;5297795922;52911332697

 +6       ;;529;ER;200;655,656,1288,1386,1387,1396,1397,1400,1401,1402,4628,4702,4703,4704,4768,4919,

 +7       ;;529;B;5297796072;52911332854

 +8       ;;529;ER;200;338,340,1423,1514,2281,2282,3543,4586,4690,4691,

 +9       ;;529;B;5297796074;52911332856

 +10      ;;529;ER;200;301,400,1639,1990,4663,4938,4941,

 +11      ;;529;B;5297796084;52911332866

 +12      ;;529;ER;200;770,962,4222,4223,4652,

 +13      ;;529;B;5297796086;52911332868

 +14      ;;529;ER;200;760,990,1355,1357,1526,1751,4655,4853,4917,4921,

 +15      ;;529;B;5297796088;52911332870

 +16      ;;529;ER;200;753,799,1309,1457,1540,1543,2194,4705,4706,4707,4797,4799,4917,4918,4919,4920,4921,4922,

 +17      ;;529;B;5297796091;52911332873

 +18      ;;529;ER;200;772,825,1280,2272,2277,3695,4724,4866,

 +19      ;;529;B;5297796093;52911332876

 +20      ;;529;ER;200;839,1575,4720,4829,

 +21      ;;529;B;5297796099;52911332884

 +22      ;;529;ER;200;144,322,323,324,325,692,733,1021,1022,1023,2457,2681,3627,3801,3846,4210,4596,4597,4726,4727,4729,

 +23      ;;529;B;5297796104;52911332889

 +24      ;;529;ER;200;393,781,1112,1113,1115,1158,1623,2585,2586,3308,4548,4549,4639,4642,

 +25      ;;529;B;5297796109;52911332894

 +26      ;;529;ER;200;2,158,305,397,607,670,1125,1263,1264,1414,1415,3162,3305,3830,3831,3995,4252,4253,4687,

 +27      ;;529;B;5297796111;52911332896

 +28      ;;529;ER;200;689,702,1039,1757,2708,2709,3760,3908,4059,4589,4650,

 +29      ;;529;B;5297796113;52911332898

 +30      ;;529;ER;200;576,577,1773,2032,2119,2120,2121,

531       ;;

 +1       ;;531;B;53119169425;53192855136

 +2       ;;531;ER;350;2893,

 +3       ;;531;B;53119169505;53192855212

 +4       ;;531;ER;400;4221,4222,

534       ;;

 +1       ;;534;B;53429620410;53419772381

 +2       ;;534;ER;350;1718,

 +3       ;;534;B;53429715403;53419846814

 +4       ;;534;ER;350;601,4771,

 +5       ;;534;B;53429731676;53419857147

 +6       ;;534;ER;350;749,

 +7       ;;534;B;53429732848;53419857945

 +8       ;;534;ER;350;1482,

537       ;;

 +1       ;;537;B;53735470560;53745265152

 +2       ;;537;ER;350;4853,

 +3       ;;537;B;53735471635;53745266672

 +4       ;;537;ER;350;3757,

 +5       ;;537;B;53735471760;53745267247

 +6       ;;537;ER;350;518,

 +7       ;;537;B;53735472129;53745267876

 +8       ;;537;ER;350;756,

 +9       ;;537;B;53735472828;53745268806

 +10      ;;537;ER;350;2261,

 +11      ;;537;B;53735473888;53745270371

 +12      ;;537;ER;350;733,

 +13      ;;537;B;53735475021;53745272010

 +14      ;;537;ER;350;2602,

 +15      ;;537;B;53735479605;53745279167

 +16      ;;537;ER;350;4993,

 +17      ;;537;B;53735503027;53745313697

 +18      ;;537;ER;350;4652,

 +19      ;;537;B;53735503953;53745315198

 +20      ;;537;ER;350;1465,

539       ;;

 +1       ;;539;B;53933787453;53940055432

 +2       ;;539;ER;350;513,

 +3       ;;539;ER;700;51,52,

 +4       ;;539;B;53933787850;53940055890

 +5       ;;539;ER;350;2568,2569,

 +6       ;;539;B;53933798889;53940063916

 +7       ;;539;ER;350;2033,

 +8       ;;539;B;53933804361;53940068636

 +9       ;;539;ER;350;266,

 +10      ;;539;B;53933862286;53940119176

 +11      ;;539;ER;350;3501,

541       ;;

 +1       ;;541;B;54111500367;54180257613

 +2       ;;541;ER;350;1515,

 +3       ;;541;B;54111506210;54180292305

 +4       ;;541;ER;350;1888,

 +5       ;;541;B;54111507474;54180301756

 +6       ;;541;ER;350;2487,2488,3501,4664,

 +7       ;;541;B;54111507861;54180303147

 +8       ;;541;ER;350;3530,

 +9       ;;541;B;54111514729;54180342697

 +10      ;;541;ER;350;4980,

 +11      ;;541;B;54111521658;54180384213

 +12      ;;541;ER;350;3902,

 +13      ;;541;B;54111527072;54180427801

 +14      ;;541;ER;350;1673,

 +15      ;;541;B;54111529245;54180441238

 +16      ;;541;ER;400;5,

 +17      ;;541;B;54111537488;54180498625

 +18      ;;541;ER;350;650,

 +19      ;;541;B;54111539596;54180511438

 +20      ;;541;ER;350;1312,

 +21      ;;541;B;54111542820;54180530340

 +22      ;;541;ER;350;4635,

 +23      ;;541;B;54111543032;54180531719

 +24      ;;541;ER;350;3498,

 +25      ;;541;B;54111637583;54181143457

 +26      ;;541;ER;700;2688,

 +27      ;;541;B;54111662851;54181310927

 +28      ;;541;ER;400;8,

544       ;;

 +1       ;;544;B;54425329584;54433704269

 +2       ;;544;ER;350;2563,

 +3       ;;544;B;54425371042;54433736350

 +4       ;;544;ER;350;2191,

546       ;;

 +1       ;;546;B;54654062543;54658177137

 +2       ;;546;ER;350;2857,3790,

 +3       ;;546;B;54654075634;54658186625

 +4       ;;546;ER;350;1142,1616,

 +5       ;;546;B;54654075856;54658186864

 +6       ;;546;ER;350;1563,2377,3855,

 +7       ;;546;B;54654086082;54658198129

 +8       ;;546;ER;350;3153,

 +9       ;;546;B;54654089535;54658201995

 +10      ;;546;ER;350;2404,

 +11      ;;546;B;54654093439;54658207190

 +12      ;;546;ER;350;1281,2767,

 +13      ;;546;B;54654096575;54658211269

 +14      ;;546;ER;350;887,

 +15      ;;546;B;54654100397;54658217572

 +16      ;;546;ER;350;506,

 +17      ;;546;B;54654115613;54658239891

 +18      ;;546;ER;350;149,

 +19      ;;546;B;54654116042;54658240421

 +20      ;;546;ER;350;7,

 +21      ;;546;B;54654116758;54658241465

 +22      ;;546;ER;350;3987,

 +23      ;;546;B;54654128189;54658246454

 +24      ;;546;ER;350;1314,

 +25      ;;546;B;54654132002;54658252972

 +26      ;;546;ER;350;216,1566,

 +27      ;;546;B;54654152367;54658277081

 +28      ;;546;ER;350;189,1155,

SDRPA11.m