[613] | 1 | SDRPA10 ;BP-OIFO/ESW - UTILITY ; 10/31/04 5:42pm
|
---|
| 2 | ;;5.3;Scheduling;**376**;Aug 13, 1993
|
---|
| 3 | EN(ST) ;
|
---|
| 4 | N SR,II,STR,SA,STE,GG,SS,SQS,ER,SB,SM,SQ
|
---|
| 5 | F II=1:1 S STR=$P($T(@ST+II),";;",2) Q:+STR'=ST D
|
---|
| 6 | .S SA=$P(STR,";",2) Q:SA'="B"
|
---|
| 7 | .S SB=$P(STR,";",3),SM=$P(STR,";",4) D
|
---|
| 8 | ..F GG=1:1 S STE=$P($T(@ST+II+GG),";;",2) Q:+STE'=ST!($P(STE,";",2)="B") D
|
---|
| 9 | ...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)
|
---|
| 10 | ..;update batch acknowledgement
|
---|
| 11 | ..S ER="" S SQ=$O(^SDWL(409.6,"AMSG",SM,"")) Q:SQ="" D PR^SD376P(SB,SM,ER,SQ)
|
---|
| 12 | Q
|
---|
| 13 | ;SB - batch # ; SM - message # ; ER - error code ; SQ - message sequence
|
---|
| 14 | 402 ;;
|
---|
| 15 | ;;402;B;40210857923;40219758875
|
---|
| 16 | ;;402;ER;200;1844,2139,2144,3441,4922,
|
---|
| 17 | ;;402;B;40210857979;40219758931
|
---|
| 18 | ;;402;ER;350;953,
|
---|
| 19 | ;;402;B;40210857991;40219758943
|
---|
| 20 | ;;402;ER;350;1768,
|
---|
| 21 | ;;402;B;40210858009;40219758963
|
---|
| 22 | ;;402;ER;350;2041,
|
---|
| 23 | 436 ;;
|
---|
| 24 | ;;436;B;43612717288;43617215164
|
---|
| 25 | ;;436;ER;350;4168,
|
---|
| 26 | ;;436;B;43612718897;43617216823
|
---|
| 27 | ;;436;ER;400;2842,
|
---|
| 28 | 437 ;;
|
---|
| 29 | ;;437;B;4378705080;43712485531
|
---|
| 30 | ;;437;ER;350;2756,
|
---|
| 31 | 438 ;;
|
---|
| 32 | ;;438;B;4389221661;43815419260
|
---|
| 33 | ;;438;ER;200;4949,
|
---|
| 34 | ;;438;B;4389221674;43815419273
|
---|
| 35 | ;;438;ER;200;91,1229,
|
---|
| 36 | ;;438;B;4389221676;43815419274
|
---|
| 37 | ;;438;ER;200;948,1560,1615,
|
---|
| 38 | ;;438;B;4389221682;43815419281
|
---|
| 39 | ;;438;ER;200;988,2897,4536,4942,
|
---|
| 40 | ;;438;B;4389221702;43815419301
|
---|
| 41 | ;;438;ER;200;462,
|
---|
| 42 | ;;438;B;4389221703;43815419302
|
---|
| 43 | ;;438;ER;200;686,687,1289,2171,4213,4981,
|
---|
| 44 | ;;438;B;4389221705;43815419305
|
---|
| 45 | ;;438;ER;200;3157,
|
---|
| 46 | ;;438;B;4389221706;43815419306
|
---|
| 47 | ;;438;ER;200;4992,
|
---|
| 48 | ;;438;B;4389221707;43815419307
|
---|
| 49 | ;;438;ER;200;438,2474,2476,3218,4580,
|
---|
| 50 | ;;438;B;4389221708;43815419308
|
---|
| 51 | ;;438;ER;200;428,3378,4629,
|
---|
| 52 | ;;438;B;4389221730;43815419329
|
---|
| 53 | ;;438;ER;200;1641,4616,4711,
|
---|
| 54 | ;;438;B;4389221735;43815419335
|
---|
| 55 | ;;438;ER;200;2156,2708,
|
---|
| 56 | ;;438;B;4389221736;43815419336
|
---|
| 57 | ;;438;ER;200;1338,
|
---|
| 58 | ;;438;B;4389221742;43815419339
|
---|
| 59 | ;;438;ER;200;426,1814,3007,
|
---|
| 60 | ;;438;B;4389221748;43815419349
|
---|
| 61 | ;;438;ER;200;1005,1082,4511,4732,
|
---|
| 62 | ;;438;B;4389221766;43815419355
|
---|
| 63 | ;;438;ER;200;77,501,2789,3734,4790,
|
---|
| 64 | ;;438;B;4389221770;43815419371
|
---|
| 65 | ;;438;ER;200;4475,
|
---|
| 66 | ;;438;B;4389221771;43815419372
|
---|
| 67 | ;;438;ER;200;1616,4749,
|
---|
| 68 | ;;438;B;4389221775;43815419381
|
---|
| 69 | ;;438;ER;200;4867,
|
---|
| 70 | 442 ;;
|
---|
| 71 | ;;442;B;4428421492;44210088571
|
---|
| 72 | ;;442;ER;200;858,2156,
|
---|
| 73 | ;;442;B;4428421522;44210088601
|
---|
| 74 | ;;442;ER;200;817,3201,
|
---|
| 75 | ;;442;B;4428421547;44210088620
|
---|
| 76 | ;;442;ER;200;4373,
|
---|
| 77 | ;;442;B;4428421618;44210088697
|
---|
| 78 | ;;442;ER;200;2127,
|
---|
| 79 | ;;442;B;4428421643;44210088721
|
---|
| 80 | ;;442;ER;200;210,
|
---|
| 81 | ;;442;B;4428421682;44210088777
|
---|
| 82 | ;;442;ER;200;654,
|
---|
| 83 | ;;442;B;4428421706;44210088801
|
---|
| 84 | ;;442;ER;200;115,1818,1962,2524,2793,2998,3015,3054,3298,3651,3894,3918,4318,4388,4556,4844,4889
|
---|
| 85 | ;;442;B;4428421720;44210088815
|
---|
| 86 | ;;442;ER;200;279,2567,2610,2698,3062,3410,3670,3826,3844,4378,
|
---|
| 87 | ;;442;B;4428421834;44210088934
|
---|
| 88 | ;;442;ER;200;47,296,1393,1459,1468,2258,3328,3343,4104,4162,4862,
|
---|
| 89 | ;;442;B;4428421858;44210088958
|
---|
| 90 | ;;442;ER;200;449,491,845,1371,1475,2121,2942,3311,3829,4142,4720,
|
---|
| 91 | ;;442;B;4428421860;44210088960
|
---|
| 92 | ;;442;ER;200;230,350,359,437,533,760,910,1199,1365,1399,1524,1590,1591,1644,2179,2202,2221,2438,2526
|
---|
| 93 | ;;442;ER;200;2599,2777,2783,3161,3268,3407,3668,3689,3702,3719,3763,3788,3837,4013,4067,4325,4437,4829,4855,
|
---|
| 94 | ;;442;B;4428421870;44210088966
|
---|
| 95 | ;;442;ER;200;53,265,603,1556,1593,2222,3295,4190,4305,
|
---|
| 96 | ;;442;B;4428421896;44210088996
|
---|
| 97 | ;;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,
|
---|
| 98 | ;;442;B;4428421938;44210089034
|
---|
| 99 | ;;442;ER;200;320,398,433,543,610,1423,1952,2007,2335,3200,3756,3772,4633,4699,
|
---|
| 100 | ;;442;B;4428421974;44210089067
|
---|
| 101 | ;;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,
|
---|
| 102 | ;;442;B;4428422002;44210089103
|
---|
| 103 | ;;442;ER;200;118,140,277,460,622,1415,1417,1444,1637,1986,1987,2266,2332,2356,2376,2377,2815,
|
---|
| 104 | 459 ;;
|
---|
| 105 | ;;459;B;4596864446;4599796156
|
---|
| 106 | ;;459;ER;350;2333,
|
---|
| 107 | 460 ;;
|
---|
| 108 | ;;460;B;46010937546;46028948497
|
---|
| 109 | ;;460;ER;350;2611,
|
---|
| 110 | ;;460;B;46010937548;46028948499
|
---|
| 111 | ;;460;ER;700;4060,
|
---|
| 112 | 501 ;;
|
---|
| 113 | ;;501;B;50122428626;50132956451
|
---|
| 114 | ;;501;ER;350;1606,
|
---|
| 115 | ;;501;B;50122430493;50132959797
|
---|
| 116 | ;;501;ER;350;3703,
|
---|
| 117 | ;;501;B;50122431559;50132961242
|
---|
| 118 | ;;501;ER;350;200,
|
---|
| 119 | ;;501;B;50122432583;50132962548
|
---|
| 120 | ;;501;ER;350;731,
|
---|
| 121 | ;;501;B;50122436969;50132968262
|
---|
| 122 | ;;501;ER;350;2980,
|
---|
| 123 | ;;501;B;50122437407;50132968754
|
---|
| 124 | ;;501;ER;350;4828,
|
---|
| 125 | 502 ;;
|
---|
| 126 | ;;502;B;50214602922;50221153579
|
---|
| 127 | ;;502;ER;350;1090,1710,2390,
|
---|
| 128 | ;;502;B;50214607691;50221158166
|
---|
| 129 | ;;502;ER;350;4182,
|
---|
| 130 | 504 ;;
|
---|
| 131 | ;;504;B;50420220750;50427829687
|
---|
| 132 | ;;504;ER;350;3900,
|
---|
| 133 | ;;504;B;50420616901;50428098750
|
---|
| 134 | ;;504;ER;350;4036,
|
---|
| 135 | 506 ;;
|
---|
| 136 | ;;506;B;50639348097;50615666027
|
---|
| 137 | ;;506;ER;350;3397,
|
---|
| 138 | 508 ;;
|
---|
| 139 | ;;508;B;50884117473;50882608095
|
---|
| 140 | ;;508;ER;350;242,
|
---|
| 141 | 509 ;;
|
---|
| 142 | ;;509;B;50919307755;50922262566
|
---|
| 143 | ;;509;ER;350;4721,
|
---|
| 144 | 512 ;;
|
---|
| 145 | ;;512;B;51222906369;51278176746
|
---|
| 146 | ;;512;ER;200;936,
|
---|
| 147 | ;;512;B;51222906997;51278177702
|
---|
| 148 | ;;512;ER;200;648,
|
---|
| 149 | ;;512;B;51222907307;51278177906
|
---|
| 150 | ;;512;ER;200;4042,
|
---|
| 151 | ;;512;B;51222922663;51278202692
|
---|
| 152 | ;;512;ER;200;2115,
|
---|
| 153 | ;;512;B;51222926995;51278209444
|
---|
| 154 | ;;512;ER;200;3315,
|
---|
| 155 | ;;512;B;51222931310;51278216568
|
---|
| 156 | ;;512;ER;200;263,2488,
|
---|
| 157 | ;;512;ER;350;4652,
|
---|
| 158 | ;;512;B;51222932194;51278218171
|
---|
| 159 | ;;512;ER;200;4452,
|
---|
| 160 | ;;512;ER;350;439,
|
---|
| 161 | ;;512;B;51222935398;51278224630
|
---|
| 162 | ;;512;ER;350;2107,3932,
|
---|
| 163 | ;;512;B;51222965309;51278276117
|
---|
| 164 | ;;512;ER;350;3707,
|
---|
| 165 | ;;512;ER;400;320,
|
---|
| 166 | ;;512;B;51222966140;51278277440
|
---|
| 167 | ;;512;ER;400;520,521,
|
---|
| 168 | 515 ;;
|
---|
| 169 | ;;515;B;51520625697;51525930296
|
---|
| 170 | ;;515;ER;350;3195,
|
---|
| 171 | 518 ;;
|
---|
| 172 | ;;518;B;51814498699;51818440994
|
---|
| 173 | ;;518;ER;700;4644,
|
---|
| 174 | ;;518;B;51814498703;51818440998
|
---|
| 175 | ;;518;ER;350;2322,
|
---|
| 176 | 519 ;;
|
---|
| 177 | ;;519;B;51910042024;51914931317
|
---|
| 178 | ;;519;ER;700;201,
|
---|
| 179 | ;;519;B;51910042034;51914931327
|
---|
| 180 | ;;519;ER;350;1471,
|
---|
| 181 | 520 ;;
|
---|
| 182 | ;;520;B;52025224144;52045807380
|
---|
| 183 | ;;520;ER;700;911,
|
---|
| 184 | ;;520;B;52025267102;52045863837
|
---|
| 185 | ;;520;ER;700;911,
|
---|
| 186 | ;;520;B;52025267720;52045864913
|
---|
| 187 | ;;520;ER;350;680,
|
---|
| 188 | 521 ;;
|
---|
| 189 | ;;521;B;52120966450;52129317600
|
---|
| 190 | ;;521;ER;400;432,
|
---|
| 191 | ;;521;B;52120976473;52129326054
|
---|
| 192 | ;;521;ER;400;263,264,
|
---|
| 193 | ;;521;B;52121000431;52129348123
|
---|
| 194 | ;;521;ER;350;3284,
|
---|
| 195 | ;;521;B;52121033791;52129371057
|
---|
| 196 | ;;521;ER;400;406,
|
---|
| 197 | ;;521;B;52121036445;52129372420
|
---|
| 198 | ;;521;ER;400;454,
|
---|
| 199 | ;;521;B;52121038181;52129373296
|
---|
| 200 | ;;521;ER;400;400,
|
---|
| 201 | ;;521;B;52121052324;52129380558
|
---|
| 202 | ;;521;ER;400;166,
|
---|
| 203 | 526 ;;
|
---|
| 204 | ;;526;B;52691389;52655067
|
---|
| 205 | ;;526;ER;400;563,
|
---|
| 206 | ;;526;B;526103887;52665506
|
---|
| 207 | ;;526;ER;350;925,
|
---|
| 208 | ;;526;B;526143960;52695953
|
---|
| 209 | ;;526;ER;400;388,
|
---|
| 210 | ;;526;B;526407496;52613214901
|
---|
| 211 | ;;526;ER;350;3700,
|
---|
| 212 | 528 ;;
|
---|
| 213 | ;;528;B;52815285504;52846320778
|
---|
| 214 | ;;528;ER;350;4055,
|
---|
| 215 | ;;528;B;52815299211;52846398475
|
---|
| 216 | ;;528;ER;350;3305,
|
---|
| 217 | ;;528;B;52815310259;52846460347
|
---|
| 218 | ;;528;ER;350;2871,
|
---|
| 219 | ;;528;B;52815327503;52846543629
|
---|
| 220 | ;;528;ER;350;1402,
|
---|
| 221 | ;;528;B;52815328650;52846552937
|
---|
| 222 | ;;528;ER;400;1998,
|
---|
| 223 | ;;528;B;52815329287;52846556720
|
---|
| 224 | ;;528;ER;350;2490,
|
---|
| 225 | ;;528;B;52815380770;52846791898
|
---|
| 226 | ;;528;ER;400;2161,
|
---|