SDRPA10.m

SDRPA10 ;BP-OIFO/ESW - UTILITY ; 10/31/04 5:42pm

 ;;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

 ;SB - batch # ; SM - message # ; ER - error code ; SQ - message sequence

402 ;;

 ;;402;B;40210857923;40219758875

 ;;402;ER;200;1844,2139,2144,3441,4922,

 ;;402;B;40210857979;40219758931

 ;;402;ER;350;953,

 ;;402;B;40210857991;40219758943

 ;;402;ER;350;1768,

 ;;402;B;40210858009;40219758963

 ;;402;ER;350;2041,

436 ;;

 ;;436;B;43612717288;43617215164

 ;;436;ER;350;4168,

 ;;436;B;43612718897;43617216823

 ;;436;ER;400;2842,

437 ;;

 ;;437;B;4378705080;43712485531

 ;;437;ER;350;2756,

438 ;;

 ;;438;B;4389221661;43815419260

 ;;438;ER;200;4949,

 ;;438;B;4389221674;43815419273

 ;;438;ER;200;91,1229,

 ;;438;B;4389221676;43815419274

 ;;438;ER;200;948,1560,1615,

 ;;438;B;4389221682;43815419281

 ;;438;ER;200;988,2897,4536,4942,

 ;;438;B;4389221702;43815419301

 ;;438;ER;200;462,

 ;;438;B;4389221703;43815419302

 ;;438;ER;200;686,687,1289,2171,4213,4981,

 ;;438;B;4389221705;43815419305

 ;;438;ER;200;3157,

 ;;438;B;4389221706;43815419306

 ;;438;ER;200;4992,

 ;;438;B;4389221707;43815419307

 ;;438;ER;200;438,2474,2476,3218,4580,

 ;;438;B;4389221708;43815419308

 ;;438;ER;200;428,3378,4629,

 ;;438;B;4389221730;43815419329

 ;;438;ER;200;1641,4616,4711,

 ;;438;B;4389221735;43815419335

 ;;438;ER;200;2156,2708,

 ;;438;B;4389221736;43815419336

 ;;438;ER;200;1338,

 ;;438;B;4389221742;43815419339

 ;;438;ER;200;426,1814,3007,

 ;;438;B;4389221748;43815419349

 ;;438;ER;200;1005,1082,4511,4732,

 ;;438;B;4389221766;43815419355

 ;;438;ER;200;77,501,2789,3734,4790,

 ;;438;B;4389221770;43815419371

 ;;438;ER;200;4475,

 ;;438;B;4389221771;43815419372

 ;;438;ER;200;1616,4749,

 ;;438;B;4389221775;43815419381

 ;;438;ER;200;4867,

442 ;;

 ;;442;B;4428421492;44210088571

 ;;442;ER;200;858,2156,

 ;;442;B;4428421522;44210088601

 ;;442;ER;200;817,3201,

 ;;442;B;4428421547;44210088620

 ;;442;ER;200;4373,

 ;;442;B;4428421618;44210088697

 ;;442;ER;200;2127,

 ;;442;B;4428421643;44210088721

 ;;442;ER;200;210,

 ;;442;B;4428421682;44210088777

 ;;442;ER;200;654,

 ;;442;B;4428421706;44210088801

 ;;442;ER;200;115,1818,1962,2524,2793,2998,3015,3054,3298,3651,3894,3918,4318,4388,4556,4844,4889

 ;;442;B;4428421720;44210088815

 ;;442;ER;200;279,2567,2610,2698,3062,3410,3670,3826,3844,4378,

 ;;442;B;4428421834;44210088934

 ;;442;ER;200;47,296,1393,1459,1468,2258,3328,3343,4104,4162,4862,

 ;;442;B;4428421858;44210088958

 ;;442;ER;200;449,491,845,1371,1475,2121,2942,3311,3829,4142,4720,

 ;;442;B;4428421860;44210088960

 ;;442;ER;200;230,350,359,437,533,760,910,1199,1365,1399,1524,1590,1591,1644,2179,2202,2221,2438,2526

 ;;442;ER;200;2599,2777,2783,3161,3268,3407,3668,3689,3702,3719,3763,3788,3837,4013,4067,4325,4437,4829,4855,

 ;;442;B;4428421870;44210088966

 ;;442;ER;200;53,265,603,1556,1593,2222,3295,4190,4305,

 ;;442;B;4428421896;44210088996

 ;;442;ER;200;14,289,292,370,409,450,518,812,831,861,1043,1174,1391,1424,1472,1547,1634,2031,2096,2537,2887,2892,3079,3116,3143,3224,3256,3421,3533,3796,3850,4176,4284,4369,4401,4446,4562,4589,4717,4809,

 ;;442;B;4428421938;44210089034

 ;;442;ER;200;320,398,433,543,610,1423,1952,2007,2335,3200,3756,3772,4633,4699,

 ;;442;B;4428421974;44210089067

 ;;442;ER;200;233,360,985,1036,1242,1436,1630,1652,1731,1763,2066,2109,2181,2390,2419,2626,2850,2853,2877,2878,2882,3532,3564,3588,3643,3981,4109,4209,4475,4593,4679,4742,4748,4866,4867,4880,

 ;;442;B;4428422002;44210089103

 ;;442;ER;200;118,140,277,460,622,1415,1417,1444,1637,1986,1987,2266,2332,2356,2376,2377,2815,

459 ;;

 ;;459;B;4596864446;4599796156

 ;;459;ER;350;2333,

460 ;;

 ;;460;B;46010937546;46028948497

 ;;460;ER;350;2611,

 ;;460;B;46010937548;46028948499

 ;;460;ER;700;4060,

501 ;;

 ;;501;B;50122428626;50132956451

 ;;501;ER;350;1606,

 ;;501;B;50122430493;50132959797

 ;;501;ER;350;3703,

 ;;501;B;50122431559;50132961242

 ;;501;ER;350;200,

 ;;501;B;50122432583;50132962548

 ;;501;ER;350;731,

 ;;501;B;50122436969;50132968262

 ;;501;ER;350;2980,

 ;;501;B;50122437407;50132968754

 ;;501;ER;350;4828,

502 ;;

 ;;502;B;50214602922;50221153579

 ;;502;ER;350;1090,1710,2390,

 ;;502;B;50214607691;50221158166

 ;;502;ER;350;4182,

504 ;;

 ;;504;B;50420220750;50427829687

 ;;504;ER;350;3900,

 ;;504;B;50420616901;50428098750

 ;;504;ER;350;4036,

506 ;;

 ;;506;B;50639348097;50615666027

 ;;506;ER;350;3397,

508 ;;

 ;;508;B;50884117473;50882608095

 ;;508;ER;350;242,

509 ;;

 ;;509;B;50919307755;50922262566

 ;;509;ER;350;4721,

512 ;;

 ;;512;B;51222906369;51278176746

 ;;512;ER;200;936,

 ;;512;B;51222906997;51278177702

 ;;512;ER;200;648,

 ;;512;B;51222907307;51278177906

 ;;512;ER;200;4042,

 ;;512;B;51222922663;51278202692

 ;;512;ER;200;2115,

 ;;512;B;51222926995;51278209444

 ;;512;ER;200;3315,

 ;;512;B;51222931310;51278216568

 ;;512;ER;200;263,2488,

 ;;512;ER;350;4652,

 ;;512;B;51222932194;51278218171

 ;;512;ER;200;4452,

 ;;512;ER;350;439,

 ;;512;B;51222935398;51278224630

 ;;512;ER;350;2107,3932,

 ;;512;B;51222965309;51278276117

 ;;512;ER;350;3707,

 ;;512;ER;400;320,

 ;;512;B;51222966140;51278277440

 ;;512;ER;400;520,521,

515 ;;

 ;;515;B;51520625697;51525930296

 ;;515;ER;350;3195,

518 ;;

 ;;518;B;51814498699;51818440994

 ;;518;ER;700;4644,

 ;;518;B;51814498703;51818440998

 ;;518;ER;350;2322,

519 ;;

 ;;519;B;51910042024;51914931317

 ;;519;ER;700;201,

 ;;519;B;51910042034;51914931327

 ;;519;ER;350;1471,

520 ;;

 ;;520;B;52025224144;52045807380

 ;;520;ER;700;911,

 ;;520;B;52025267102;52045863837

 ;;520;ER;700;911,

 ;;520;B;52025267720;52045864913

 ;;520;ER;350;680,

521 ;;

 ;;521;B;52120966450;52129317600

 ;;521;ER;400;432,

 ;;521;B;52120976473;52129326054

 ;;521;ER;400;263,264,

 ;;521;B;52121000431;52129348123

 ;;521;ER;350;3284,

 ;;521;B;52121033791;52129371057

 ;;521;ER;400;406,

 ;;521;B;52121036445;52129372420

 ;;521;ER;400;454,

 ;;521;B;52121038181;52129373296

 ;;521;ER;400;400,

 ;;521;B;52121052324;52129380558

 ;;521;ER;400;166,

526 ;;

 ;;526;B;52691389;52655067

 ;;526;ER;400;563,

 ;;526;B;526103887;52665506

 ;;526;ER;350;925,

 ;;526;B;526143960;52695953

 ;;526;ER;400;388,

 ;;526;B;526407496;52613214901

 ;;526;ER;350;3700,

528 ;;

 ;;528;B;52815285504;52846320778

 ;;528;ER;350;4055,

 ;;528;B;52815299211;52846398475

 ;;528;ER;350;3305,

 ;;528;B;52815310259;52846460347

 ;;528;ER;350;2871,

 ;;528;B;52815327503;52846543629

 ;;528;ER;350;1402,

 ;;528;B;52815328650;52846552937

 ;;528;ER;400;1998,

 ;;528;B;52815329287;52846556720

 ;;528;ER;350;2490,

 ;;528;B;52815380770;52846791898

 ;;528;ER;400;2161,

SDRPA10   ;BP-OIFO/ESW - UTILITY ; 10/31/04 5:42pm

 +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 

 +10      ;SB - batch # ; SM - message # ; ER - error code ; SQ - message sequence

402       ;;

 +1       ;;402;B;40210857923;40219758875

 +2       ;;402;ER;200;1844,2139,2144,3441,4922,

 +3       ;;402;B;40210857979;40219758931

 +4       ;;402;ER;350;953,

 +5       ;;402;B;40210857991;40219758943

 +6       ;;402;ER;350;1768,

 +7       ;;402;B;40210858009;40219758963

 +8       ;;402;ER;350;2041,

436       ;;

 +1       ;;436;B;43612717288;43617215164

 +2       ;;436;ER;350;4168,

 +3       ;;436;B;43612718897;43617216823

 +4       ;;436;ER;400;2842,

437       ;;

 +1       ;;437;B;4378705080;43712485531

 +2       ;;437;ER;350;2756,

438       ;;

 +1       ;;438;B;4389221661;43815419260

 +2       ;;438;ER;200;4949,

 +3       ;;438;B;4389221674;43815419273

 +4       ;;438;ER;200;91,1229,

 +5       ;;438;B;4389221676;43815419274

 +6       ;;438;ER;200;948,1560,1615,

 +7       ;;438;B;4389221682;43815419281

 +8       ;;438;ER;200;988,2897,4536,4942,

 +9       ;;438;B;4389221702;43815419301

 +10      ;;438;ER;200;462,

 +11      ;;438;B;4389221703;43815419302

 +12      ;;438;ER;200;686,687,1289,2171,4213,4981,

 +13      ;;438;B;4389221705;43815419305

 +14      ;;438;ER;200;3157,

 +15      ;;438;B;4389221706;43815419306

 +16      ;;438;ER;200;4992,

 +17      ;;438;B;4389221707;43815419307

 +18      ;;438;ER;200;438,2474,2476,3218,4580,

 +19      ;;438;B;4389221708;43815419308

 +20      ;;438;ER;200;428,3378,4629,

 +21      ;;438;B;4389221730;43815419329

 +22      ;;438;ER;200;1641,4616,4711,

 +23      ;;438;B;4389221735;43815419335

 +24      ;;438;ER;200;2156,2708,

 +25      ;;438;B;4389221736;43815419336

 +26      ;;438;ER;200;1338,

 +27      ;;438;B;4389221742;43815419339

 +28      ;;438;ER;200;426,1814,3007,

 +29      ;;438;B;4389221748;43815419349

 +30      ;;438;ER;200;1005,1082,4511,4732,

 +31      ;;438;B;4389221766;43815419355

 +32      ;;438;ER;200;77,501,2789,3734,4790,

 +33      ;;438;B;4389221770;43815419371

 +34      ;;438;ER;200;4475,

 +35      ;;438;B;4389221771;43815419372

 +36      ;;438;ER;200;1616,4749,

 +37      ;;438;B;4389221775;43815419381

 +38      ;;438;ER;200;4867,

442       ;;

 +1       ;;442;B;4428421492;44210088571

 +2       ;;442;ER;200;858,2156,

 +3       ;;442;B;4428421522;44210088601

 +4       ;;442;ER;200;817,3201,

 +5       ;;442;B;4428421547;44210088620

 +6       ;;442;ER;200;4373,

 +7       ;;442;B;4428421618;44210088697

 +8       ;;442;ER;200;2127,

 +9       ;;442;B;4428421643;44210088721

 +10      ;;442;ER;200;210,

 +11      ;;442;B;4428421682;44210088777

 +12      ;;442;ER;200;654,

 +13      ;;442;B;4428421706;44210088801

 +14      ;;442;ER;200;115,1818,1962,2524,2793,2998,3015,3054,3298,3651,3894,3918,4318,4388,4556,4844,4889

 +15      ;;442;B;4428421720;44210088815

 +16      ;;442;ER;200;279,2567,2610,2698,3062,3410,3670,3826,3844,4378,

 +17      ;;442;B;4428421834;44210088934

 +18      ;;442;ER;200;47,296,1393,1459,1468,2258,3328,3343,4104,4162,4862,

 +19      ;;442;B;4428421858;44210088958

 +20      ;;442;ER;200;449,491,845,1371,1475,2121,2942,3311,3829,4142,4720,

 +21      ;;442;B;4428421860;44210088960

 +22      ;;442;ER;200;230,350,359,437,533,760,910,1199,1365,1399,1524,1590,1591,1644,2179,2202,2221,2438,2526

 +23      ;;442;ER;200;2599,2777,2783,3161,3268,3407,3668,3689,3702,3719,3763,3788,3837,4013,4067,4325,4437,4829,4855,

 +24      ;;442;B;4428421870;44210088966

 +25      ;;442;ER;200;53,265,603,1556,1593,2222,3295,4190,4305,

 +26      ;;442;B;4428421896;44210088996

 +27      ;;442;ER;200;14,289,292,370,409,450,518,812,831,861,1043,1174,1391,1424,1472,1547,1634,2031,2096,2537,2887,2892,3079,3116,3143,3224,3256,3421,3533,3796,3850,4176,4284,4369,4401,4446,4562,4589,4717,4809,

 +28      ;;442;B;4428421938;44210089034

 +29      ;;442;ER;200;320,398,433,543,610,1423,1952,2007,2335,3200,3756,3772,4633,4699,

 +30      ;;442;B;4428421974;44210089067

 +31      ;;442;ER;200;233,360,985,1036,1242,1436,1630,1652,1731,1763,2066,2109,2181,2390,2419,2626,2850,2853,2877,2878,2882,3532,3564,3588,3643,3981,4109,4209,4475,4593,4679,4742,4748,4866,4867,4880,

 +32      ;;442;B;4428422002;44210089103

 +33      ;;442;ER;200;118,140,277,460,622,1415,1417,1444,1637,1986,1987,2266,2332,2356,2376,2377,2815,

459       ;;

 +1       ;;459;B;4596864446;4599796156

 +2       ;;459;ER;350;2333,

460       ;;

 +1       ;;460;B;46010937546;46028948497

 +2       ;;460;ER;350;2611,

 +3       ;;460;B;46010937548;46028948499

 +4       ;;460;ER;700;4060,

501       ;;

 +1       ;;501;B;50122428626;50132956451

 +2       ;;501;ER;350;1606,

 +3       ;;501;B;50122430493;50132959797

 +4       ;;501;ER;350;3703,

 +5       ;;501;B;50122431559;50132961242

 +6       ;;501;ER;350;200,

 +7       ;;501;B;50122432583;50132962548

 +8       ;;501;ER;350;731,

 +9       ;;501;B;50122436969;50132968262

 +10      ;;501;ER;350;2980,

 +11      ;;501;B;50122437407;50132968754

 +12      ;;501;ER;350;4828,

502       ;;

 +1       ;;502;B;50214602922;50221153579

 +2       ;;502;ER;350;1090,1710,2390,

 +3       ;;502;B;50214607691;50221158166

 +4       ;;502;ER;350;4182,

504       ;;

 +1       ;;504;B;50420220750;50427829687

 +2       ;;504;ER;350;3900,

 +3       ;;504;B;50420616901;50428098750

 +4       ;;504;ER;350;4036,

506       ;;

 +1       ;;506;B;50639348097;50615666027

 +2       ;;506;ER;350;3397,

508       ;;

 +1       ;;508;B;50884117473;50882608095

 +2       ;;508;ER;350;242,

509       ;;

 +1       ;;509;B;50919307755;50922262566

 +2       ;;509;ER;350;4721,

512       ;;

 +1       ;;512;B;51222906369;51278176746

 +2       ;;512;ER;200;936,

 +3       ;;512;B;51222906997;51278177702

 +4       ;;512;ER;200;648,

 +5       ;;512;B;51222907307;51278177906

 +6       ;;512;ER;200;4042,

 +7       ;;512;B;51222922663;51278202692

 +8       ;;512;ER;200;2115,

 +9       ;;512;B;51222926995;51278209444

 +10      ;;512;ER;200;3315,

 +11      ;;512;B;51222931310;51278216568

 +12      ;;512;ER;200;263,2488,

 +13      ;;512;ER;350;4652,

 +14      ;;512;B;51222932194;51278218171

 +15      ;;512;ER;200;4452,

 +16      ;;512;ER;350;439,

 +17      ;;512;B;51222935398;51278224630

 +18      ;;512;ER;350;2107,3932,

 +19      ;;512;B;51222965309;51278276117

 +20      ;;512;ER;350;3707,

 +21      ;;512;ER;400;320,

 +22      ;;512;B;51222966140;51278277440

 +23      ;;512;ER;400;520,521,

515       ;;

 +1       ;;515;B;51520625697;51525930296

 +2       ;;515;ER;350;3195,

518       ;;

 +1       ;;518;B;51814498699;51818440994

 +2       ;;518;ER;700;4644,

 +3       ;;518;B;51814498703;51818440998

 +4       ;;518;ER;350;2322,

519       ;;

 +1       ;;519;B;51910042024;51914931317

 +2       ;;519;ER;700;201,

 +3       ;;519;B;51910042034;51914931327

 +4       ;;519;ER;350;1471,

520       ;;

 +1       ;;520;B;52025224144;52045807380

 +2       ;;520;ER;700;911,

 +3       ;;520;B;52025267102;52045863837

 +4       ;;520;ER;700;911,

 +5       ;;520;B;52025267720;52045864913

 +6       ;;520;ER;350;680,

521       ;;

 +1       ;;521;B;52120966450;52129317600

 +2       ;;521;ER;400;432,

 +3       ;;521;B;52120976473;52129326054

 +4       ;;521;ER;400;263,264,

 +5       ;;521;B;52121000431;52129348123

 +6       ;;521;ER;350;3284,

 +7       ;;521;B;52121033791;52129371057

 +8       ;;521;ER;400;406,

 +9       ;;521;B;52121036445;52129372420

 +10      ;;521;ER;400;454,

 +11      ;;521;B;52121038181;52129373296

 +12      ;;521;ER;400;400,

 +13      ;;521;B;52121052324;52129380558

 +14      ;;521;ER;400;166,

526       ;;

 +1       ;;526;B;52691389;52655067

 +2       ;;526;ER;400;563,

 +3       ;;526;B;526103887;52665506

 +4       ;;526;ER;350;925,

 +5       ;;526;B;526143960;52695953

 +6       ;;526;ER;400;388,

 +7       ;;526;B;526407496;52613214901

 +8       ;;526;ER;350;3700,

528       ;;

 +1       ;;528;B;52815285504;52846320778

 +2       ;;528;ER;350;4055,

 +3       ;;528;B;52815299211;52846398475

 +4       ;;528;ER;350;3305,

 +5       ;;528;B;52815310259;52846460347

 +6       ;;528;ER;350;2871,

 +7       ;;528;B;52815327503;52846543629

 +8       ;;528;ER;350;1402,

 +9       ;;528;B;52815328650;52846552937

 +10      ;;528;ER;400;1998,

 +11      ;;528;B;52815329287;52846556720

 +12      ;;528;ER;350;2490,

 +13      ;;528;B;52815380770;52846791898

 +14      ;;528;ER;400;2161,