- 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)
- 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,
- 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,