[613] | 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,
|
---|