| 1 | SDRPA14 ;BP-OIFO/ESW - UTILITY ; 6/9/04 8:27am | 
|---|
| 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 | 573 ;; | 
|---|
| 14 | ;;573;B;57341415896;57315611095 | 
|---|
| 15 | ;;573;ER;350;3839,4363,4523, | 
|---|
| 16 | ;;573;B;57341418138;57315613298 | 
|---|
| 17 | ;;573;ER;350;4376, | 
|---|
| 18 | ;;573;B;57341485488;57315713018 | 
|---|
| 19 | ;;573;ER;350;1166, | 
|---|
| 20 | ;;573;B;57341487141;57315716177 | 
|---|
| 21 | ;;573;ER;400;196, | 
|---|
| 22 | ;;573;B;57341489204;57315718962 | 
|---|
| 23 | ;;573;ER;200;2755, | 
|---|
| 24 | ;;573;B;57341489679;57315719529 | 
|---|
| 25 | ;;573;ER;200;2509, | 
|---|
| 26 | ;;573;B;57341492136;57315722645 | 
|---|
| 27 | ;;573;ER;200;4636, | 
|---|
| 28 | ;;573;B;57341492794;57315724385 | 
|---|
| 29 | ;;573;ER;700;1820,1821,1822,1823, | 
|---|
| 30 | ;;573;B;57341495581;57315727630 | 
|---|
| 31 | ;;573;ER;200;4448, | 
|---|
| 32 | ;;573;ER;400;550, | 
|---|
| 33 | ;;573;B;57341498824;57315731474 | 
|---|
| 34 | ;;573;ER;200;1816,2711, | 
|---|
| 35 | ;;573;B;57341500431;57315733222 | 
|---|
| 36 | ;;573;ER;400;35, | 
|---|
| 37 | ;;573;B;57341503288;57315737113 | 
|---|
| 38 | ;;573;ER;200;2480, | 
|---|
| 39 | ;;573;B;57341520649;57315761979 | 
|---|
| 40 | ;;573;ER;350;1962,4422, | 
|---|
| 41 | ;;573;ER;400;259, | 
|---|
| 42 | ;;573;B;57341569767;57315841639 | 
|---|
| 43 | ;;573;ER;200;1577, | 
|---|
| 44 | ;;573;B;57341570917;57315843211 | 
|---|
| 45 | ;;573;ER;200;1678,2517,2826, | 
|---|
| 46 | ;;573;B;57341575458;57315852716 | 
|---|
| 47 | ;;573;ER;200;4596, | 
|---|
| 48 | ;;573;ER;350;4077, | 
|---|
| 49 | ;;573;B;57341579418;57315857030 | 
|---|
| 50 | ;;573;ER;200;1818, | 
|---|
| 51 | ;;573;B;57341674187;57316001990 | 
|---|
| 52 | ;;573;ER;200;3044,3292, | 
|---|
| 53 | ;;573;B;57341679090;57316011044 | 
|---|
| 54 | ;;573;ER;200;2092,2094, | 
|---|
| 55 | ;;573;B;57341681987;57316015213 | 
|---|
| 56 | ;;573;ER;200;1380, | 
|---|
| 57 | ;;573;ER;350;1516, | 
|---|
| 58 | ;;573;B;57341695560;57316035922 | 
|---|
| 59 | ;;573;ER;200;4518, | 
|---|
| 60 | ;;573;B;57341698193;57316040853 | 
|---|
| 61 | ;;573;ER;400;651,652,653,654,655, | 
|---|
| 62 | ;;573;B;57341706343;57316060325 | 
|---|
| 63 | ;;573;ER;200;2505,2901,3195, | 
|---|
| 64 | ;;573;B;57341707374;57316061797 | 
|---|
| 65 | ;;573;ER;200;4600, | 
|---|
| 66 | ;;573;B;57341709992;57316070530 | 
|---|
| 67 | ;;573;ER;200;4570, | 
|---|
| 68 | ;;573;B;57341710221;57316070949 | 
|---|
| 69 | ;;573;ER;200;4093, | 
|---|
| 70 | ;;573;B;57341711151;57316071850 | 
|---|
| 71 | ;;573;ER;200;1729, | 
|---|
| 72 | ;;573;B;57341716961;57316079101 | 
|---|
| 73 | ;;573;ER;700;1071, | 
|---|
| 74 | ;;573;B;57341773438;57316162909 | 
|---|
| 75 | ;;573;ER;400;228,229,692,750, | 
|---|
| 76 | ;;573;B;57341781048;57316175318 | 
|---|
| 77 | ;;573;ER;400;612, | 
|---|
| 78 | ;;573;B;57341791215;57316189877 | 
|---|
| 79 | ;;573;ER;200;1702,2431, | 
|---|
| 80 | ;;573;B;57341828949;57316236656 | 
|---|
| 81 | ;;573;ER;200;3837,4318, | 
|---|
| 82 | ;;573;B;57341832016;57316242557 | 
|---|
| 83 | ;;573;ER;200;1379, | 
|---|
| 84 | ;;573;ER;400;693, | 
|---|
| 85 | ;;573;B;57341834624;57316245932 | 
|---|
| 86 | ;;573;ER;200;325,326,4404, | 
|---|
| 87 | ;;573;B;57341836365;57316248426 | 
|---|
| 88 | ;;573;ER;400;660, | 
|---|
| 89 | ;;573;B;57341836617;57316248858 | 
|---|
| 90 | ;;573;ER;200;2279,2978, | 
|---|
| 91 | ;;573;B;57341836857;57316248968 | 
|---|
| 92 | ;;573;ER;400;320, | 
|---|
| 93 | ;;573;B;57341837065;57316249491 | 
|---|
| 94 | ;;573;ER;200;375, | 
|---|
| 95 | ;;573;B;57341837257;57316249683 | 
|---|
| 96 | ;;573;ER;200;2151,2154, | 
|---|
| 97 | ;;573;B;57341837471;57316250076 | 
|---|
| 98 | ;;573;ER;200;4501,4505, | 
|---|
| 99 | ;;573;B;57341839782;57316252638 | 
|---|
| 100 | ;;573;ER;400;235, | 
|---|
| 101 | ;;573;B;57341842379;57316255955 | 
|---|
| 102 | ;;573;ER;400;615, | 
|---|
| 103 | ;;573;B;57341874437;57316306782 | 
|---|
| 104 | ;;573;ER;200;1504,1505,1845,2273,2274,2275,2625,2626,2930,2931,2932,4740,4741, | 
|---|
| 105 | ;;573;ER;350;1377,1633, | 
|---|
| 106 | ;;573;ER;400;173,482,483,484,485,486, | 
|---|
| 107 | 578 ;; | 
|---|
| 108 | ;;578;B;57829530511;57849068398 | 
|---|
| 109 | ;;578;ER;350;3390, | 
|---|
| 110 | ;;578;B;57829546923;57849087498 | 
|---|
| 111 | ;;578;ER;350;1795, | 
|---|
| 112 | ;;578;B;57829548330;57849089338 | 
|---|
| 113 | ;;578;ER;350;4065, | 
|---|
| 114 | ;;578;B;57829549548;57849090878 | 
|---|
| 115 | ;;578;ER;350;4573, | 
|---|
| 116 | ;;578;B;57829556791;57849099346 | 
|---|
| 117 | ;;578;ER;350;2541, | 
|---|
| 118 | ;;578;B;57829562050;57849105770 | 
|---|
| 119 | ;;578;ER;350;1246, | 
|---|
| 120 | 580 ;; | 
|---|
| 121 | ;;580;B;58028677146;58060598974 | 
|---|
| 122 | ;;580;ER;350;4691, | 
|---|
| 123 | ;;580;B;58028679370;58060601963 | 
|---|
| 124 | ;;580;ER;350;4301, | 
|---|
| 125 | ;;580;B;58028680566;58060603502 | 
|---|
| 126 | ;;580;ER;350;3453, | 
|---|
| 127 | ;;580;B;58028681606;58060605513 | 
|---|
| 128 | ;;580;ER;350;2195, | 
|---|
| 129 | ;;580;B;58028681697;58060605606 | 
|---|
| 130 | ;;580;ER;350;4365, | 
|---|
| 131 | ;;580;B;58028681963;58060605959 | 
|---|
| 132 | ;;580;ER;350;4217, | 
|---|
| 133 | ;;580;B;58028682205;58060606364 | 
|---|
| 134 | ;;580;ER;350;4720, | 
|---|
| 135 | ;;580;B;58028682294;58060606550 | 
|---|
| 136 | ;;580;ER;350;4977, | 
|---|
| 137 | 581 ;; | 
|---|
| 138 | ;;581;B;58119172408;58129312063 | 
|---|
| 139 | ;;581;ER;350;3445, | 
|---|
| 140 | ;;581;B;58119173049;58129312699 | 
|---|
| 141 | ;;581;ER;350;2436, | 
|---|
| 142 | 585 ;; | 
|---|
| 143 | ;;585;B;58519290836;58520450002 | 
|---|
| 144 | ;;585;ER;350;790, | 
|---|
| 145 | ;;585;B;58519291576;58520450521 | 
|---|
| 146 | ;;585;ER;350;702, | 
|---|
| 147 | 586 ;; | 
|---|
| 148 | ;;586;B;58613842182;58629011651 | 
|---|
| 149 | ;;586;ER;350;4319, | 
|---|
| 150 | ;;586;B;58613842258;58629011775 | 
|---|
| 151 | ;;586;ER;350;4099,4102, | 
|---|
| 152 | ;;586;B;58613842571;58629012161 | 
|---|
| 153 | ;;586;ER;350;4462, | 
|---|
| 154 | ;;586;B;58613842662;58629012274 | 
|---|
| 155 | ;;586;ER;350;1791, | 
|---|
| 156 | ;;586;B;58613842821;58629012513 | 
|---|
| 157 | ;;586;ER;350;1185, | 
|---|
| 158 | ;;586;B;58613842835;58629012534 | 
|---|
| 159 | ;;586;ER;350;3752, | 
|---|
| 160 | 589 ;; | 
|---|
| 161 | ;;589;B;58960524418;58991794662 | 
|---|
| 162 | ;;589;ER;700;1248, | 
|---|
| 163 | ;;589;B;58960551798;58991828049 | 
|---|
| 164 | ;;589;ER;350;593, | 
|---|
| 165 | 590 ;; | 
|---|
| 166 | ;;590;B;59012333707;59019239340 | 
|---|
| 167 | ;;590;ER;350;2431, | 
|---|
| 168 | 593 ;; | 
|---|
| 169 | ;;593;B;59326911928;59332408266 | 
|---|
| 170 | ;;593;ER;350;4666, | 
|---|
| 171 | 595 ;; | 
|---|
| 172 | ;;595;B;59592063554;59560474846 | 
|---|
| 173 | ;;595;ER;350;2801,3556, | 
|---|
| 174 | ;;595;B;59592068645;59560477543 | 
|---|
| 175 | ;;595;ER;350;2423, | 
|---|
| 176 | ;;595;B;59592093832;59560491541 | 
|---|
| 177 | ;;595;ER;350;4741, | 
|---|
| 178 | ;;595;B;59592097396;59560493679 | 
|---|
| 179 | ;;595;ER;350;4302, | 
|---|
| 180 | ;;595;B;59592097407;59560493726 | 
|---|
| 181 | ;;595;ER;350;2566, | 
|---|
| 182 | 596 ;; | 
|---|
| 183 | ;;596;B;59670076649;59628464879 | 
|---|
| 184 | ;;596;ER;350;81, | 
|---|
| 185 | 598 ;; | 
|---|
| 186 | ;;598;B;59832615755;5988785037 | 
|---|
| 187 | ;;598;ER;350;4295, | 
|---|
| 188 | ;;598;B;59832665961;5988862464 | 
|---|
| 189 | ;;598;ER;350;3621, | 
|---|
| 190 | ;;598;B;59832666979;5988863704 | 
|---|
| 191 | ;;598;ER;350;2505, | 
|---|
| 192 | ;;598;B;59832676491;5988875993 | 
|---|
| 193 | ;;598;ER;350;1646, | 
|---|
| 194 | ;;598;B;59832676797;5988876476 | 
|---|
| 195 | ;;598;ER;350;4771, | 
|---|
| 196 | ;;598;B;59832685366;5988894468 | 
|---|
| 197 | ;;598;ER;350;1207, | 
|---|
| 198 | 603 ;; | 
|---|
| 199 | ;;603;B;60323022947;60331845934 | 
|---|
| 200 | ;;603;ER;400;824, | 
|---|
| 201 | ;;603;B;60323025516;60331848091 | 
|---|
| 202 | ;;603;ER;350;4781, | 
|---|
| 203 | ;;603;B;60323027636;60331850083 | 
|---|
| 204 | ;;603;ER;350;3003, | 
|---|
| 205 | ;;603;B;60323028154;60331850561 | 
|---|
| 206 | ;;603;ER;350;2667, | 
|---|
| 207 | ;;603;B;60323029629;60331851961 | 
|---|
| 208 | ;;603;ER;350;4024, | 
|---|
| 209 | ;;603;B;60323058642;60331889465 | 
|---|
| 210 | ;;603;ER;400;4978,4979,4980, | 
|---|
| 211 | 605 ;; | 
|---|
| 212 | ;;605;B;60529709067;60542594202 | 
|---|
| 213 | ;;605;ER;700;101, | 
|---|
| 214 | ;;605;B;60529709962;60542595441 | 
|---|
| 215 | ;;605;ER;350;839, | 
|---|
| 216 | ;;605;B;60529717983;60542605175 | 
|---|
| 217 | ;;605;ER;400;314, | 
|---|
| 218 | 607 ;; | 
|---|
| 219 | ;;607;B;60715816407;60724532978 | 
|---|
| 220 | ;;607;ER;350;1741, | 
|---|
| 221 | ;;607;B;60715816891;60724533804 | 
|---|
| 222 | ;;607;ER;350;835,1243, | 
|---|
| 223 | ;;607;B;60715819072;60724536838 | 
|---|
| 224 | ;;607;ER;350;13, | 
|---|
| 225 | ;;607;B;60715827931;60724547414 | 
|---|
| 226 | ;;607;ER;350;3880, | 
|---|
| 227 | 608 ;; | 
|---|
| 228 | ;;608;B;60812360929;60817646348 | 
|---|
| 229 | ;;608;ER;350;242, | 
|---|
| 230 | 610 ;; | 
|---|
| 231 | ;;610;B;61012402904;6106912019 | 
|---|
| 232 | ;;610;ER;350;3204, | 
|---|
| 233 | ;;610;B;61012406207;6106916012 | 
|---|
| 234 | ;;610;ER;350;144,758, | 
|---|
| 235 | 612 ;; | 
|---|
| 236 | ;;612;B;61224607028;61252523748 | 
|---|
| 237 | ;;612;ER;350;2923, | 
|---|
| 238 | ;;612;B;61224625224;61252550343 | 
|---|
| 239 | ;;612;ER;350;1612, | 
|---|
| 240 | 614 ;; | 
|---|
| 241 | ;;614;B;61493778802;61475834672 | 
|---|
| 242 | ;;614;ER;350;1092, | 
|---|
| 243 | ;;614;B;61493947493;61475941007 | 
|---|
| 244 | ;;614;ER;350;1025, | 
|---|
| 245 | 618 ;; | 
|---|
| 246 | ;;618;B;61830310882;61849207623 | 
|---|
| 247 | ;;618;ER;350;2998,4699, | 
|---|
| 248 | ;;618;B;61830311669;61849208422 | 
|---|
| 249 | ;;618;ER;400;621,803, | 
|---|
| 250 | ;;618;B;61830311696;61849208514 | 
|---|
| 251 | ;;618;ER;350;2242, | 
|---|
| 252 | ;;618;B;61830311701;61849208519 | 
|---|
| 253 | ;;618;ER;350;1794,2023, | 
|---|
| 254 | ;;618;B;61830311823;61849208661 | 
|---|
| 255 | ;;618;ER;350;2001,2293, | 
|---|
| 256 | ;;618;B;61830311868;61849208729 | 
|---|
| 257 | ;;618;ER;350;913, | 
|---|
| 258 | ;;618;B;61830311894;61849208756 | 
|---|
| 259 | ;;618;ER;350;1662,2226,3314, | 
|---|
| 260 | ;;618;B;61830311915;61849208778 | 
|---|
| 261 | ;;618;ER;350;488,4560,4726,4864,4910,4936,4973, | 
|---|
| 262 | ;;618;B;61830312071;61849208939 | 
|---|
| 263 | ;;618;ER;350;2809, | 
|---|
| 264 | ;;618;B;61830312114;61849208976 | 
|---|
| 265 | ;;618;ER;350;4487,4918, | 
|---|
| 266 | ;;618;ER;400;255, | 
|---|
| 267 | ;;618;B;61830312149;61849209021 | 
|---|
| 268 | ;;618;ER;350;629, | 
|---|
| 269 | ;;618;B;61830312286;61849209163 | 
|---|
| 270 | ;;618;ER;350;1007, | 
|---|
| 271 | ;;618;ER;400;688, | 
|---|
| 272 | ;;618;B;61830312303;61849209178 | 
|---|
| 273 | ;;618;ER;350;1767, | 
|---|
| 274 | ;;618;B;61830312324;61849209205 | 
|---|
| 275 | ;;618;ER;350;4703, | 
|---|
| 276 | ;;618;B;61830312361;61849209237 | 
|---|
| 277 | ;;618;ER;350;3419, | 
|---|
| 278 | ;;618;B;61830312364;61849209252 | 
|---|
| 279 | ;;618;ER;350;4771, | 
|---|
| 280 | ;;618;B;61830312391;61849209282 | 
|---|
| 281 | ;;618;ER;350;4831, | 
|---|
| 282 | ;;618;B;61830312397;61849209288 | 
|---|
| 283 | ;;618;ER;350;326, | 
|---|
| 284 | ;;618;B;61830312452;61849209355 | 
|---|
| 285 | ;;618;ER;350;3504, | 
|---|
| 286 | ;;618;B;61830312457;61849209357 | 
|---|
| 287 | ;;618;ER;400;585,586,587, | 
|---|
| 288 | ;;618;B;61830312599;61849209503 | 
|---|
| 289 | ;;618;ER;350;1091, | 
|---|
| 290 | ;;618;B;61830312620;61849209524 | 
|---|
| 291 | ;;618;ER;400;840, | 
|---|
| 292 | ;;618;B;61830312636;61849209548 | 
|---|
| 293 | ;;618;ER;350;1309,1681, | 
|---|
| 294 | ;;618;B;61830312685;61849209597 | 
|---|
| 295 | ;;618;ER;350;1298,2501, | 
|---|
| 296 | ;;618;B;61830312800;61849209700 | 
|---|
| 297 | ;;618;ER;350;3111, | 
|---|
| 298 | ;;618;B;61830312869;61849209793 | 
|---|
| 299 | ;;618;ER;350;4521, | 
|---|
| 300 | ;;618;B;61830313456;61849210463 | 
|---|
| 301 | ;;618;ER;350;1227,2620, | 
|---|
| 302 | ;;618;B;61830313650;61849210673 | 
|---|
| 303 | ;;618;ER;400;372, | 
|---|
| 304 | ;;618;B;61830465384;61849405161 | 
|---|
| 305 | ;;618;ER;350;3727, | 
|---|
| 306 | ;;618;B;61830466498;61849406601 | 
|---|
| 307 | ;;618;ER;400;231,232, | 
|---|
| 308 | ;;618;B;61830466967;61849407222 | 
|---|
| 309 | ;;618;ER;400;197, | 
|---|
| 310 | ;;618;B;61830471715;61849413242 | 
|---|
| 311 | ;;618;ER;400;104, | 
|---|
| 312 | ;;618;B;61830472001;61849413603 | 
|---|
| 313 | ;;618;ER;350;1038,2211,2825,3555,4156, | 
|---|
| 314 | ;;618;B;61830477267;61849420417 | 
|---|
| 315 | ;;618;ER;400;151,278, | 
|---|
| 316 | ;;618;B;61830481012;61849425245 | 
|---|
| 317 | ;;618;"ER";400;199, | 
|---|