| 1 | SDRPA15 ;BP-OIFO/ESW - UTILITY ; 6/9/04 8:28am | 
|---|
| 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 | 619 ;; | 
|---|
| 14 | ;;619;B;61934461160;61935566249 | 
|---|
| 15 | ;;619;ER;350;1495,1996,3185,3411, | 
|---|
| 16 | ;;619;B;61934467364;61935570694 | 
|---|
| 17 | ;;619;ER;350;3713, | 
|---|
| 18 | ;;619;B;61934475278;61935575320 | 
|---|
| 19 | ;;619;ER;350;1233, | 
|---|
| 20 | ;;619;B;61934476854;61935576213 | 
|---|
| 21 | ;;619;ER;400;1715, | 
|---|
| 22 | ;;619;B;61934478706;61935577448 | 
|---|
| 23 | ;;619;ER;350;271, | 
|---|
| 24 | ;;619;B;61934479827;61935578142 | 
|---|
| 25 | ;;619;ER;350;3315, | 
|---|
| 26 | ;;619;ER;400;190, | 
|---|
| 27 | 620 ;; | 
|---|
| 28 | ;;620;B;62094177662;62065197692 | 
|---|
| 29 | ;;620;ER;350;1836, | 
|---|
| 30 | ;;620;B;62094207805;62065214364 | 
|---|
| 31 | ;;620;ER;350;611, | 
|---|
| 32 | 621 ;; | 
|---|
| 33 | ;;621;B;62184281093;62139478336 | 
|---|
| 34 | ;;621;ER;350;2847, | 
|---|
| 35 | ;;621;B;62184285387;62139480913 | 
|---|
| 36 | ;;621;ER;350;3329, | 
|---|
| 37 | 623 ;; | 
|---|
| 38 | ;;623;B;62313573887;62324520029 | 
|---|
| 39 | ;;623;ER;350;3210, | 
|---|
| 40 | ;;623;B;62313584324;62324534684 | 
|---|
| 41 | ;;623;ER;350;480, | 
|---|
| 42 | 626 ;; | 
|---|
| 43 | ;;626;B;62641068414;626126580504 | 
|---|
| 44 | ;;626;ER;350;3360,3549, | 
|---|
| 45 | ;;626;B;62641276624;626126720487 | 
|---|
| 46 | ;;626;ER;350;1058, | 
|---|
| 47 | ;;626;B;62641662292;626126985971 | 
|---|
| 48 | ;;626;ER;400;4934, | 
|---|
| 49 | ;;626;B;62641691414;626127005866 | 
|---|
| 50 | ;;626;ER;400;4901,4902, | 
|---|
| 51 | 629 ;; | 
|---|
| 52 | ;;629;B;62921109547;62958401319 | 
|---|
| 53 | ;;629;ER;700;203, | 
|---|
| 54 | ;;629;B;62921230076;62958619265 | 
|---|
| 55 | ;;629;ER;700;203, | 
|---|
| 56 | 630 ;; | 
|---|
| 57 | ;;630;B;63050701981;630157174109 | 
|---|
| 58 | ;;630;ER;350;4936, | 
|---|
| 59 | ;;630;B;63050913340;630157820628 | 
|---|
| 60 | ;;630;ER;450;3028, | 
|---|
| 61 | 631 ;; | 
|---|
| 62 | ;;631;B;6319029561;63113225143 | 
|---|
| 63 | ;;631;ER;350;1127, | 
|---|
| 64 | 635 ;; | 
|---|
| 65 | ;;635;B;63520523705;63537174321 | 
|---|
| 66 | ;;635;ER;400;159, | 
|---|
| 67 | ;;635;B;63520523873;63537174702 | 
|---|
| 68 | ;;635;ER;400;520,521,522, | 
|---|
| 69 | ;;635;B;63520524115;63537174943 | 
|---|
| 70 | ;;635;ER;350;664, | 
|---|
| 71 | ;;635;ER;400;1452, | 
|---|
| 72 | ;;635;B;63520525121;63537176250 | 
|---|
| 73 | ;;635;ER;350;1120, | 
|---|
| 74 | ;;635;B;63520527107;63537177775 | 
|---|
| 75 | ;;635;ER;400;679, | 
|---|
| 76 | ;;635;B;63520531762;63537184107 | 
|---|
| 77 | ;;635;ER;400;747, | 
|---|
| 78 | ;;635;B;63520538010;63537192878 | 
|---|
| 79 | ;;635;ER;350;1563, | 
|---|
| 80 | ;;635;ER;400;790, | 
|---|
| 81 | ;;635;B;63520542593;63537198482 | 
|---|
| 82 | ;;635;ER;350;2498, | 
|---|
| 83 | ;;635;B;63520543699;63537200310 | 
|---|
| 84 | ;;635;ER;350;975,4219, | 
|---|
| 85 | ;;635;ER;400;1093, | 
|---|
| 86 | ;;635;B;63520544591;63537201534 | 
|---|
| 87 | ;;635;ER;400;1213, | 
|---|
| 88 | ;;635;B;63520545094;63537202138 | 
|---|
| 89 | ;;635;ER;350;1184, | 
|---|
| 90 | ;;635;B;63520549024;63537207961 | 
|---|
| 91 | ;;635;ER;400;875, | 
|---|
| 92 | ;;635;B;63520589371;63537253180 | 
|---|
| 93 | ;;635;ER;400;838, | 
|---|
| 94 | ;;635;B;63520596578;63537262680 | 
|---|
| 95 | ;;635;ER;400;635, | 
|---|
| 96 | ;;635;B;63520598566;63537265274 | 
|---|
| 97 | ;;635;ER;400;584, | 
|---|
| 98 | 636 ;; | 
|---|
| 99 | ;;636;B;63635193423;63662847520 | 
|---|
| 100 | ;;636;ER;350;3571, | 
|---|
| 101 | ;;636;B;63635202403;63662859075 | 
|---|
| 102 | ;;636;ER;700;581, | 
|---|
| 103 | ;;636;B;63635462920;63663227039 | 
|---|
| 104 | ;;636;ER;350;3569, | 
|---|
| 105 | ;;636;B;63635467872;63663232717 | 
|---|
| 106 | ;;636;ER;700;527, | 
|---|
| 107 | ;;636;B;63635805870;63663722429 | 
|---|
| 108 | ;;636;ER;350;1479, | 
|---|
| 109 | ;;636;B;63635807214;63663724105 | 
|---|
| 110 | ;;636;ER;450;895, | 
|---|
| 111 | ;;636;B;63636979130;63665361302 | 
|---|
| 112 | ;;636;ER;350;3571, | 
|---|
| 113 | ;;636;B;63636983651;63665367674 | 
|---|
| 114 | ;;636;ER;700;331, | 
|---|
| 115 | ;;636;B;63636986728;63665371597 | 
|---|
| 116 | ;;636;ER;350;1668, | 
|---|
| 117 | ;;636;B;63636987649;63665372545 | 
|---|
| 118 | ;;636;ER;350;1267,1317, | 
|---|
| 119 | ;;636;B;63637000797;63665391307 | 
|---|
| 120 | ;;636;ER;350;1245, | 
|---|
| 121 | ;;636;B;63637044170;63665453294 | 
|---|
| 122 | ;;636;ER;350;1432, | 
|---|
| 123 | ;;636;B;63637045723;63665455406 | 
|---|
| 124 | ;;636;ER;350;1953, | 
|---|
| 125 | 637 ;; | 
|---|
| 126 | ;;637;B;63712358412;63720591588 | 
|---|
| 127 | ;;637;ER;350;644, | 
|---|
| 128 | 640 ;; | 
|---|
| 129 | ;;640;B;64028032219;64071284831 | 
|---|
| 130 | ;;640;ER;400;1947, | 
|---|
| 131 | ;;640;B;64028034427;64071292241 | 
|---|
| 132 | ;;640;ER;350;3954, | 
|---|
| 133 | ;;640;B;64028035904;64071295525 | 
|---|
| 134 | ;;640;ER;350;3137, | 
|---|
| 135 | ;;640;B;64028037495;64071297942 | 
|---|
| 136 | ;;640;ER;350;3880, | 
|---|
| 137 | ;;640;B;64028040018;64071309972 | 
|---|
| 138 | ;;640;ER;350;1058, | 
|---|
| 139 | ;;640;B;64028040706;64071312241 | 
|---|
| 140 | ;;640;ER;350;4996, | 
|---|
| 141 | ;;640;B;64028041583;64071316787 | 
|---|
| 142 | ;;640;ER;350;4816, | 
|---|
| 143 | 642 ;; | 
|---|
| 144 | ;;642;B;64219040764;64247692763 | 
|---|
| 145 | ;;642;ER;350;3918, | 
|---|
| 146 | ;;642;B;64219044000;64247697805 | 
|---|
| 147 | ;;642;ER;350;4345, | 
|---|
| 148 | ;;642;B;64219055644;64247719067 | 
|---|
| 149 | ;;642;ER;350;1856, | 
|---|
| 150 | ;;642;B;64219064867;64247734420 | 
|---|
| 151 | ;;642;ER;350;2019, | 
|---|
| 152 | ;;642;B;64219066381;64247736808 | 
|---|
| 153 | ;;642;ER;350;1633, | 
|---|
| 154 | ;;642;B;64219070163;64247743950 | 
|---|
| 155 | ;;642;ER;350;1946, | 
|---|
| 156 | ;;642;B;64219070384;64247744318 | 
|---|
| 157 | ;;642;ER;350;2242, | 
|---|
| 158 | ;;642;B;64219071069;64247745564 | 
|---|
| 159 | ;;642;ER;350;3850, | 
|---|
| 160 | ;;642;B;64219071155;64247745706 | 
|---|
| 161 | ;;642;ER;350;1505,2788,4683, | 
|---|
| 162 | ;;642;B;64219071235;64247745877 | 
|---|
| 163 | ;;642;ER;350;3030, | 
|---|
| 164 | ;;642;B;64219071531;64247746887 | 
|---|
| 165 | ;;642;ER;350;1791, | 
|---|
| 166 | ;;642;B;64219071792;64247747601 | 
|---|
| 167 | ;;642;ER;350;300,3686, | 
|---|
| 168 | ;;642;B;64219073896;64247756907 | 
|---|
| 169 | ;;642;ER;700;1011, | 
|---|
| 170 | 644 ;; | 
|---|
| 171 | ;;644;B;64431818656;64446027218 | 
|---|
| 172 | ;;644;ER;350;2278, | 
|---|
| 173 | ;;644;B;64431874728;64446084905 | 
|---|
| 174 | ;;644;ER;350;2167, | 
|---|
| 175 | ;;644;B;64431889209;64446101223 | 
|---|
| 176 | ;;644;ER;350;4004, | 
|---|
| 177 | ;;644;B;64431896874;64446108951 | 
|---|
| 178 | ;;644;ER;350;3130, | 
|---|
| 179 | ;;644;B;64431904135;64446116323 | 
|---|
| 180 | ;;644;ER;350;2433, | 
|---|
| 181 | ;;644;B;64431978829;64446192826 | 
|---|
| 182 | ;;644;ER;200;31,163,412, | 
|---|
| 183 | ;;644;B;64431980821;64446195496 | 
|---|
| 184 | ;;644;ER;200;643,727,734,1250,1386,1760,1905,2107,2244,2598,2676,3513,3538,3552,3823,3945,4733, | 
|---|
| 185 | ;;644;B;64431989436;64446203597 | 
|---|
| 186 | ;;644;ER;200;33, | 
|---|
| 187 | ;;644;B;64431992122;64446205828 | 
|---|
| 188 | ;;644;ER;200;386,453,557,689,755,798,803,982,1030,1440,1605,1788,1885,2290,2393,3004,3787,3790,4628, | 
|---|
| 189 | ;;644;B;64431993591;64446207840 | 
|---|
| 190 | ;;644;ER;200;65,353,354,388,499,656,1151,1198,1365,1835,1840,2382,2620, | 
|---|
| 191 | ;;644;B;64431994207;64446208461 | 
|---|
| 192 | ;;644;ER;200;2279,2589,2894,2991,3450,3894,4064, | 
|---|
| 193 | ;;644;B;64432000557;64446214187 | 
|---|
| 194 | ;;644;ER;200;235,939,972,1005,1056,1125,1162,1589,1624,1942,1954,2071,2351,2439,2482, | 
|---|
| 195 | ;;644;B;64432001163;64446214612 | 
|---|
| 196 | ;;644;ER;200;589,804,1007,1355,1424, | 
|---|
| 197 | 646 ;; | 
|---|
| 198 | ;;646;B;64622152067;64636125592 | 
|---|
| 199 | ;;646;ER;350;3641, | 
|---|
| 200 | ;;646;B;64622172061;64636149373 | 
|---|
| 201 | ;;646;ER;350;2807, | 
|---|
| 202 | ;;646;B;64622177731;64636158072 | 
|---|
| 203 | ;;646;ER;350;2913, | 
|---|
| 204 | ;;646;B;64622182360;64636165439 | 
|---|
| 205 | ;;646;ER;350;2350, | 
|---|
| 206 | ;;646;B;64622182634;64636165816 | 
|---|
| 207 | ;;646;ER;350;1713, | 
|---|
| 208 | 648 ;; | 
|---|
| 209 | ;;648;B;64830169503;64859420738 | 
|---|
| 210 | ;;648;ER;350;3226, | 
|---|
| 211 | ;;648;B;64830173491;64859426791 | 
|---|
| 212 | ;;648;ER;350;559, | 
|---|
| 213 | ;;648;B;64830176032;64859430610 | 
|---|
| 214 | ;;648;ER;350;3576, | 
|---|
| 215 | ;;648;B;64830176493;64859431425 | 
|---|
| 216 | ;;648;ER;350;4437, | 
|---|
| 217 | ;;648;B;64830181488;64859439943 | 
|---|
| 218 | ;;648;ER;200;201,2116,4485, | 
|---|
| 219 | 650 ;; | 
|---|
| 220 | ;;650;B;65013317751;65024393176 | 
|---|
| 221 | ;;650;ER;350;1964, | 
|---|
| 222 | 652 ;; | 
|---|
| 223 | ;;652;B;65211886530;65213575232 | 
|---|
| 224 | ;;652;ER;350;618, | 
|---|
| 225 | ;;652;B;65211887675;65213578292 | 
|---|
| 226 | ;;652;ER;350;3143, | 
|---|
| 227 | ;;652;B;65211888822;65213581189 | 
|---|
| 228 | ;;652;ER;350;1029, | 
|---|
| 229 | ;;652;B;65211914787;65213619795 | 
|---|
| 230 | ;;652;ER;350;525, | 
|---|
| 231 | 654 ;; | 
|---|
| 232 | ;;654;B;65413112674;65419363257 | 
|---|
| 233 | ;;654;ER;350;3301,4157, | 
|---|
| 234 | ;;654;B;65413223658;65419507467 | 
|---|
| 235 | ;;654;ER;350;2008,2759,3776, | 
|---|
| 236 | 655 ;; | 
|---|
| 237 | ;;655;B;65516549087;65520295193 | 
|---|
| 238 | ;;655;ER;350;3324, | 
|---|
| 239 | 657 ;; | 
|---|
| 240 | ;;657;B;65729884244;65764668755 | 
|---|
| 241 | ;;657;ER;700;4874, | 
|---|
| 242 | ;;657;B;65729887352;65764672552 | 
|---|
| 243 | ;;657;ER;350;4759, | 
|---|
| 244 | ;;657;B;65729928496;65764736980 | 
|---|
| 245 | ;;657;ER;700;725, | 
|---|
| 246 | ;;657;B;65729931738;65764743255 | 
|---|
| 247 | ;;657;ER;700;4571,4782, | 
|---|
| 248 | 658 ;; | 
|---|
| 249 | ;;658;B;65814078326;65822477724 | 
|---|
| 250 | ;;658;ER;350;639, | 
|---|
| 251 | ;;658;B;65814085475;65822487961 | 
|---|
| 252 | ;;658;ER;350;3798, | 
|---|
| 253 | ;;658;B;65814091130;65822495944 | 
|---|
| 254 | ;;658;ER;350;3614, | 
|---|
| 255 | ;;658;B;65814093437;65822499879 | 
|---|
| 256 | ;;658;ER;350;4423, | 
|---|
| 257 | ;;658;B;65814093863;65822500443 | 
|---|
| 258 | ;;658;ER;350;3272, | 
|---|
| 259 | ;;658;B;65814093973;65822500660 | 
|---|
| 260 | ;;658;ER;350;4009, | 
|---|
| 261 | ;;658;B;65814094754;65822504108 | 
|---|
| 262 | ;;658;ER;350;3727, | 
|---|
| 263 | ;;658;B;65814094883;65822504172 | 
|---|
| 264 | ;;658;ER;350;4794, | 
|---|
| 265 | 659 ;; | 
|---|
| 266 | ;;659;B;65921670759;65928910087 | 
|---|
| 267 | ;;659;ER;350;2755, | 
|---|
| 268 | ;;659;B;65921671754;65928911209 | 
|---|
| 269 | ;;659;ER;350;3033, | 
|---|
| 270 | ;;659;B;65921672431;65928911663 | 
|---|
| 271 | ;;659;ER;350;1453, | 
|---|
| 272 | ;;659;B;65921687821;65928931958 | 
|---|
| 273 | ;;659;ER;350;3395, | 
|---|
| 274 | ;;659;B;65921746315;65929005443 | 
|---|
| 275 | ;;659;ER;350;4798, | 
|---|
| 276 | ;;659;B;65921748734;65929009131 | 
|---|
| 277 | ;;659;ER;400;4948, | 
|---|
| 278 | 660 ;; | 
|---|
| 279 | ;;660;B;6608026700;66033848678 | 
|---|
| 280 | ;;660;ER;350;4353, | 
|---|
| 281 | ;;660;ER;700;34, | 
|---|
| 282 | 662 ;; | 
|---|
| 283 | ;;662;B;66220042896;66219570876 | 
|---|
| 284 | ;;662;ER;400;556,642,643,644, | 
|---|
| 285 | ;;662;B;66220043286;66219571232 | 
|---|
| 286 | ;;662;ER;400;653,654,655, | 
|---|
| 287 | ;;662;B;66220043544;66219571400 | 
|---|
| 288 | ;;662;ER;400;699,813,814,815,816,817, | 
|---|
| 289 | ;;662;B;66220043608;66219571476 | 
|---|
| 290 | ;;662;ER;400;779,780, | 
|---|
| 291 | ;;662;B;66220043997;66219571735 | 
|---|
| 292 | ;;662;ER;400;743, | 
|---|
| 293 | ;;662;B;66220044158;66219571900 | 
|---|
| 294 | ;;662;ER;400;744,745, | 
|---|
| 295 | ;;662;B;66220044918;66219572474 | 
|---|
| 296 | ;;662;ER;350;3643, | 
|---|
| 297 | ;;662;B;66220045352;66219572827 | 
|---|
| 298 | ;;662;ER;400;923, | 
|---|
| 299 | ;;662;B;66220045649;66219573166 | 
|---|
| 300 | ;;662;ER;400;975, | 
|---|
| 301 | ;;662;B;66220049393;66219576633 | 
|---|
| 302 | ;;662;ER;350;4777,4778, | 
|---|
| 303 | ;;662;B;66220049792;66219577884 | 
|---|
| 304 | ;;662;ER;350;4175, | 
|---|
| 305 | ;;662;ER;400;651,652, | 
|---|
| 306 | ;;662;B;66220050273;66219579204 | 
|---|
| 307 | ;;662;ER;350;3735, | 
|---|
| 308 | ;;662;B;66220076364;66219608607 | 
|---|
| 309 | ;;662;ER;350;4527, | 
|---|
| 310 | ;;662;B;66220084134;66219618992 | 
|---|
| 311 | ;;662;ER;350;3875, | 
|---|
| 312 | ;;662;B;66220096015;66219631665 | 
|---|
| 313 | ;;662;ER;350;4527,4584, | 
|---|
| 314 | ;;662;ER;400;740, | 
|---|
| 315 | 663 ;; | 
|---|
| 316 | ;;663;B;66335145156;66354303336 | 
|---|
| 317 | ;;663;ER;350;553, | 
|---|
| 318 | ;;663;B;66335183905;66354349535 | 
|---|
| 319 | ;;663;ER;350;553, | 
|---|
| 320 | ;;663;B;66335202779;66354372618 | 
|---|
| 321 | ;;663;ER;350;225, | 
|---|
| 322 | ;;663;B;66335218249;66354391533 | 
|---|
| 323 | ;;663;ER;350;1802, | 
|---|