| 1 | SDRPA16 ;BP-OIFO/ESW - UTILITY ; 6/9/04 8:30am | 
|---|
| 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 | 664 ;; | 
|---|
| 14 | ;;664;B;66428349836;66444721425 | 
|---|
| 15 | ;;664;ER;400;503, | 
|---|
| 16 | ;;664;B;66428368268;66444741152 | 
|---|
| 17 | ;;664;ER;350;1452, | 
|---|
| 18 | ;;664;B;66428368989;66444741953 | 
|---|
| 19 | ;;664;ER;350;4755, | 
|---|
| 20 | ;;664;ER;400;519, | 
|---|
| 21 | ;;664;B;66428375804;66444748723 | 
|---|
| 22 | ;;664;ER;350;3217, | 
|---|
| 23 | ;;664;B;66428383184;66444755266 | 
|---|
| 24 | ;;664;ER;400;597, | 
|---|
| 25 | ;;664;B;66428386245;66444758330 | 
|---|
| 26 | ;;664;ER;400;534, | 
|---|
| 27 | 666 ;; | 
|---|
| 28 | ;;666;B;6669797547;66610952037 | 
|---|
| 29 | ;;666;ER;350;3244, | 
|---|
| 30 | 667 ;; | 
|---|
| 31 | ;;667;B;66713122874;66738994513 | 
|---|
| 32 | ;;667;ER;350;184, | 
|---|
| 33 | ;;667;B;66713133064;66739009240 | 
|---|
| 34 | ;;667;ER;350;1647, | 
|---|
| 35 | ;;667;B;66713155082;66739041926 | 
|---|
| 36 | ;;667;ER;350;3290, | 
|---|
| 37 | 668 ;; | 
|---|
| 38 | ;;668;B;66810464290;66817886230 | 
|---|
| 39 | ;;668;ER;350;4754, | 
|---|
| 40 | ;;668;B;66810466850;66817889332 | 
|---|
| 41 | ;;668;ER;350;2207, | 
|---|
| 42 | ;;668;B;66810474924;66817900838 | 
|---|
| 43 | ;;668;ER;350;4754, | 
|---|
| 44 | ;;668;B;66810475458;66817901533 | 
|---|
| 45 | ;;668;ER;350;2153, | 
|---|
| 46 | ;;668;B;66810488617;66817919364 | 
|---|
| 47 | ;;668;ER;350;4754, | 
|---|
| 48 | ;;668;B;66810488785;66817919561 | 
|---|
| 49 | ;;668;ER;350;2140, | 
|---|
| 50 | 671 ;; | 
|---|
| 51 | ;;671;B;67132981217;67159117106 | 
|---|
| 52 | ;;671;ER;350;833,2035,3868, | 
|---|
| 53 | ;;671;B;67132987909;67159125467 | 
|---|
| 54 | ;;671;ER;350;4073, | 
|---|
| 55 | ;;671;B;67133036913;67159200628 | 
|---|
| 56 | ;;671;ER;350;643,1237, | 
|---|
| 57 | ;;671;B;67133041690;67159206920 | 
|---|
| 58 | ;;671;ER;350;4773, | 
|---|
| 59 | ;;671;B;67133042133;67159207528 | 
|---|
| 60 | ;;671;ER;350;3832, | 
|---|
| 61 | ;;671;B;67133045694;67159211695 | 
|---|
| 62 | ;;671;ER;350;2299, | 
|---|
| 63 | ;;671;B;67133046570;67159212323 | 
|---|
| 64 | ;;671;ER;350;4381, | 
|---|
| 65 | ;;671;B;67133047309;67159213658 | 
|---|
| 66 | ;;671;ER;350;3620, | 
|---|
| 67 | ;;671;B;67133048613;67159215258 | 
|---|
| 68 | ;;671;ER;350;1902, | 
|---|
| 69 | ;;671;B;67133050070;67159216787 | 
|---|
| 70 | ;;671;ER;350;1954, | 
|---|
| 71 | ;;671;B;67133050455;67159217438 | 
|---|
| 72 | ;;671;ER;350;4661, | 
|---|
| 73 | ;;671;B;67133058683;67159227958 | 
|---|
| 74 | ;;671;ER;350;3228, | 
|---|
| 75 | ;;671;B;67133098028;67159287146 | 
|---|
| 76 | ;;671;ER;400;4927,4928,4929,4930,4931, | 
|---|
| 77 | ;;671;B;67133111103;67159303091 | 
|---|
| 78 | ;;671;ER;350;2048, | 
|---|
| 79 | ;;671;B;67133133529;67159334455 | 
|---|
| 80 | ;;671;ER;200;301, | 
|---|
| 81 | ;;671;B;67133137194;67159341590 | 
|---|
| 82 | ;;671;ER;200;2161, | 
|---|
| 83 | ;;671;B;67133141268;67159347813 | 
|---|
| 84 | ;;671;ER;200;3057,3865, | 
|---|
| 85 | ;;671;B;67133213967;67159469557 | 
|---|
| 86 | ;;671;ER;200;3679, | 
|---|
| 87 | ;;671;ER;350;224,611,3475,4651, | 
|---|
| 88 | 672 ;; | 
|---|
| 89 | ;;672;B;67229599250;67247153270 | 
|---|
| 90 | ;;672;ER;350;991, | 
|---|
| 91 | ;;672;B;67229626113;67247191361 | 
|---|
| 92 | ;;672;ER;350;1503, | 
|---|
| 93 | ;;672;B;67229626569;67247192113 | 
|---|
| 94 | ;;672;ER;350;2080, | 
|---|
| 95 | ;;672;B;67229627431;67247194800 | 
|---|
| 96 | ;;672;ER;350;3597, | 
|---|
| 97 | ;;672;B;67229629617;67247197857 | 
|---|
| 98 | ;;672;ER;350;135, | 
|---|
| 99 | ;;672;B;67229641291;67247214235 | 
|---|
| 100 | ;;672;ER;350;2778, | 
|---|
| 101 | ;;672;B;67229652973;67247229333 | 
|---|
| 102 | ;;672;ER;350;4323, | 
|---|
| 103 | ;;672;B;67229690512;67247282637 | 
|---|
| 104 | ;;672;ER;400;4959, | 
|---|
| 105 | 673 ;; | 
|---|
| 106 | ;;673;B;67356533673;67315769886 | 
|---|
| 107 | ;;673;ER;350;4512, | 
|---|
| 108 | ;;673;B;67356593151;67315849807 | 
|---|
| 109 | ;;673;ER;350;2927, | 
|---|
| 110 | ;;673;B;67356619775;67315884695 | 
|---|
| 111 | ;;673;ER;350;3404, | 
|---|
| 112 | ;;673;B;67356621574;67315887362 | 
|---|
| 113 | ;;673;ER;350;862, | 
|---|
| 114 | 678 ;; | 
|---|
| 115 | ;;678;B;6784062356;67841327096 | 
|---|
| 116 | ;;678;ER;350;2133, | 
|---|
| 117 | ;;678;B;6784064606;67841330669 | 
|---|
| 118 | ;;678;ER;350;2680, | 
|---|
| 119 | 688 ;; | 
|---|
| 120 | ;;688;B;68830770661;68845659219 | 
|---|
| 121 | ;;688;ER;350;3609, | 
|---|
| 122 | ;;688;B;68830785983;68845682134 | 
|---|
| 123 | ;;688;ER;400;238, | 
|---|
| 124 | ;;688;B;68830816605;68845723675 | 
|---|
| 125 | ;;688;ER;400;527, | 
|---|
| 126 | 689 ;; | 
|---|
| 127 | ;;689;B;68926206064;68946706330 | 
|---|
| 128 | ;;689;ER;350;3394, | 
|---|
| 129 | ;;689;B;68926226721;68946729321 | 
|---|
| 130 | ;;689;ER;350;1414, | 
|---|
| 131 | ;;689;B;68926228196;68946731460 | 
|---|
| 132 | ;;689;ER;350;687, | 
|---|
| 133 | ;;689;B;68926229578;68946732672 | 
|---|
| 134 | ;;689;ER;350;3689, | 
|---|
| 135 | ;;689;B;68926230786;68946733904 | 
|---|
| 136 | ;;689;ER;350;1692, | 
|---|
| 137 | ;;689;B;68926231927;68946735396 | 
|---|
| 138 | ;;689;ER;350;677, | 
|---|
| 139 | ;;689;B;68926235812;68946739193 | 
|---|
| 140 | ;;689;ER;350;447, | 
|---|
| 141 | ;;689;B;68926238671;68946741989 | 
|---|
| 142 | ;;689;ER;350;1617, | 
|---|
| 143 | ;;689;B;68926240742;68946744272 | 
|---|
| 144 | ;;689;ER;350;1941, | 
|---|
| 145 | 691 ;; | 
|---|
| 146 | ;;691;B;69115467595;69199974034 | 
|---|
| 147 | ;;691;ER;350;3515, | 
|---|
| 148 | ;;691;B;69115473812;691100057312 | 
|---|
| 149 | ;;691;ER;350;569,791,2239,3291, | 
|---|
| 150 | ;;691;B;69115473843;691100057730 | 
|---|
| 151 | ;;691;ER;350;3558, | 
|---|
| 152 | ;;691;B;69115474016;691100059938 | 
|---|
| 153 | ;;691;ER;350;4558, | 
|---|
| 154 | ;;691;ER;400;1900, | 
|---|
| 155 | ;;691;B;69115474436;691100065253 | 
|---|
| 156 | ;;691;ER;350;2084, | 
|---|
| 157 | ;;691;B;69115475068;691100072896 | 
|---|
| 158 | ;;691;ER;350;2292, | 
|---|
| 159 | ;;691;B;69115475285;691100076254 | 
|---|
| 160 | ;;691;ER;350;2492, | 
|---|
| 161 | ;;691;B;69115477604;691100106895 | 
|---|
| 162 | ;;691;ER;400;4378, | 
|---|
| 163 | 695 ;; | 
|---|
| 164 | ;;695;B;69547025705;69566977886 | 
|---|
| 165 | ;;695;ER;700;747, | 
|---|
| 166 | ;;695;B;69547184760;69567085569 | 
|---|
| 167 | ;;695;ER;350;1522, | 
|---|
| 168 | ;;695;B;69547228336;69567113862 | 
|---|
| 169 | ;;695;ER;350;4578, | 
|---|
| 170 | ;;695;B;69547301923;69567168441 | 
|---|
| 171 | ;;695;ER;350;3721, | 
|---|
| 172 | ;;695;B;69547309355;69567175635 | 
|---|
| 173 | ;;695;ER;350;4755, | 
|---|
| 174 | ;;695;B;69547362795;69567213604 | 
|---|
| 175 | ;;695;ER;350;966, | 
|---|
| 176 | ;;695;B;69547380956;69567225219 | 
|---|
| 177 | ;;695;ER;350;2566, | 
|---|
| 178 | ;;695;B;69547650192;69567407656 | 
|---|
| 179 | ;;695;ER;350;4474, | 
|---|
| 180 | 756 ;; | 
|---|
| 181 | ;;756;B;75611363180;75615911397 | 
|---|
| 182 | ;;756;ER;700;2781, | 
|---|