SDRPA11 ;BP-OIFO/ESW - UTILITY ; 6/9/04 8:21am
;;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
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,
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDRPA11 5331 printed Oct 16, 2024@19:00:44 Page 2
SDRPA11 ;BP-OIFO/ESW - UTILITY ; 6/9/04 8:21am
+1 ;;5.3;Scheduling;**376**;Aug 13, 1993
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,
