1 | SDRPA12 ;BP-OIFO/ESW - UTILITY ; 6/9/04 8:25am
|
---|
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 | 548 ;;
|
---|
14 | ;;548;B;54818160756;54828864362
|
---|
15 | ;;548;ER;200;1850,3653,3903,
|
---|
16 | ;;548;B;54818166052;54828871385
|
---|
17 | ;;548;ER;200;5,118,180,190,210,262,544,603,618,711,715,821,908,917,952,1090,1116,1158,1169,1286,1424,1471,1634,1711,1760,1862,1881,2143,2193,2231,2274
|
---|
18 | ;;548;ER;200;2500,2532,2584,2701,2787,2872,3046,3299,3320,3438,3547,4012,4021,4066,4089,4314,4397,4454,4679,4832,
|
---|
19 | ;;548;B;54818194910;54828910086
|
---|
20 | ;;548;ER;200;328,861,957,987,1102,1143,1220,1262,1283,1334,1359,1677,2148,2305,2350,2474,2723,2911,3169,3243,3840,3980,4610,4723,4725,4794,4931,
|
---|
21 | ;;548;B;54818200225;54828918603
|
---|
22 | ;;548;ER;200;1541,3040,4932,
|
---|
23 | ;;548;ER;350;3781,
|
---|
24 | ;;548;B;54818288056;54829043683
|
---|
25 | ;;548;ER;200;1841,3655,3910,
|
---|
26 | ;;548;B;54818288920;54829045138
|
---|
27 | ;;548;ER;200;5,117,177,187,206,257,546,603,618,710,714,821,908,917,958,1095,1120,1173,1290,1431,1478,1648,1724,1773,1875,1894,2157,2210,2251,2292,2504
|
---|
28 | ;;548;ER;200;2534,2585,2713,2800,2879,3051,3303,3323,3431,3532,4002,4011,4056,4079,4292,4379,4437,4630,4666,4753,4754,4817,4862,
|
---|
29 | ;;548;B;54818289488;54829046109
|
---|
30 | ;;548;ER;200;425,1146,1238,1265,1377,1417,1488,1526,1547,1598,1621,1909,2347,2492,2537,2650,2872,3039,3284,3352,3915,4043,4931,
|
---|
31 | ;;548;B;54818290189;54829047084
|
---|
32 | ;;548;ER;200;1626,2796,4774,
|
---|
33 | ;;548;ER;350;3537,
|
---|
34 | ;;548;B;54818290375;54829047315
|
---|
35 | ;;548;ER;200;1631,
|
---|
36 | ;;548;B;54818290631;54829047661
|
---|
37 | ;;548;ER;200;480,2374,4381,
|
---|
38 | ;;548;B;54818290766;54829047830
|
---|
39 | ;;548;ER;200;541,571,1564,4235,
|
---|
40 | ;;548;B;54818291018;54829048182
|
---|
41 | ;;548;ER;200;760,
|
---|
42 | ;;548;B;54818291121;54829048372
|
---|
43 | ;;548;ER;200;1446,
|
---|
44 | ;;548;B;54818291215;54829048589
|
---|
45 | ;;548;ER;200;217,319,771,773,3126,3768,3890,4216,
|
---|
46 | ;;548;B;54818291319;54829048754
|
---|
47 | ;;548;ER;200;1548,1905,2156,
|
---|
48 | ;;548;B;54818291468;54829049069
|
---|
49 | ;;548;ER;200;94,95,1322,1323,2952,2953,
|
---|
50 | ;;548;B;54818291672;54829049292
|
---|
51 | ;;548;ER;200;320,490,685,941,977,1491,1493,
|
---|
52 | ;;548;B;54818291774;54829049539
|
---|
53 | ;;548;ER;200;881,2689,
|
---|
54 | ;;548;B;54818291903;54829049888
|
---|
55 | ;;548;ER;200;534,1258,1886,2685,3446,
|
---|
56 | ;;548;B;54818292004;54829050054
|
---|
57 | ;;548;ER;200;4793,
|
---|
58 | ;;548;B;54818292138;54829050419
|
---|
59 | ;;548;ER;200;751,
|
---|
60 | ;;548;B;54818292219;54829050855
|
---|
61 | ;;548;ER;200;2161,
|
---|
62 | ;;548;B;54818292276;54829051049
|
---|
63 | ;;548;ER;200;294,2069,
|
---|
64 | ;;548;B;54818292313;54829051221
|
---|
65 | ;;548;ER;200;197,2155,3529,
|
---|
66 | ;;548;B;54818292383;54829051384
|
---|
67 | ;;548;ER;200;1582,4153,
|
---|
68 | ;;548;B;54818292438;54829051580
|
---|
69 | ;;548;ER;200;1121,
|
---|
70 | ;;548;B;54818292490;54829051742
|
---|
71 | ;;548;ER;200;749,2400,2725,
|
---|
72 | ;;548;B;54818292500;54829051848
|
---|
73 | ;;548;ER;200;147,967,4129,4242,
|
---|
74 | ;;548;B;54818292529;54829051957
|
---|
75 | ;;548;ER;200;156,1427,1969,2331,2333,2370,2939,2991,2992,3101,3122,3172,3751,3791,3879,4658,4681,
|
---|
76 | ;;548;B;54818292536;54829052025
|
---|
77 | ;;548;ER;200;425,738,1330,1484,3175,4740,4952,
|
---|
78 | ;;548;B;54818292567;54829052109
|
---|
79 | ;;548;ER;200;276,353,439,508,549,850,884,1014,1140,1148,1375,1563,1761,1943,2010,2181,2401,2509,2563,2565,2964,3125,3204,3549,3899,4099,4177,4208,4367,4659,
|
---|
80 | ;;548;B;54818292969;54829052821
|
---|
81 | ;;548;ER;200;204,2675,2984,3666,4809,
|
---|
82 | ;;548;B;54818293396;54829053399
|
---|
83 | ;;548;ER;200;303,1761,4697,4905,
|
---|
84 | ;;548;B;54818293629;54829053787
|
---|
85 | ;;548;ER;200;1014,2834,2835,
|
---|
86 | ;;548;B;54818294033;54829054304
|
---|
87 | ;;548;ER;200;74,236,848,902,1704,2369,
|
---|
88 | ;;548;B;54818295165;54829055642
|
---|
89 | ;;548;ER;200;477,1866,2076,2211,3685,3979,
|
---|
90 | ;;548;B;54818297170;54829057907
|
---|
91 | ;;548;ER;200;3516,4632,4648,4979,
|
---|
92 | ;;548;B;54818298074;54829059351
|
---|
93 | ;;548;ER;200;467,540,645,1347,4077,
|
---|
94 | ;;548;B;54818298951;54829060561
|
---|
95 | ;;548;ER;200;1814,2173,
|
---|
96 | ;;548;B;54818299748;54829061733
|
---|
97 | ;;548;ER;200;104,1135,2822,2823,3423,4709,
|
---|
98 | ;;548;ER;350;3065,
|
---|
99 | ;;548;B;54818300552;54829062945
|
---|
100 | ;;548;ER;200;23,848,1237,1797,1811,2894,
|
---|
101 | ;;548;B;54818302529;54829065875
|
---|
102 | ;;548;ER;200;221,1198,1604,4814,
|
---|
103 | ;;548;B;54818303659;54829067540
|
---|
104 | ;;548;ER;200;1731,2098,4773,4774,
|
---|
105 | ;;548;B;54818304348;54829068917
|
---|
106 | ;;548;ER;200;3485,
|
---|
107 | ;;548;B;54818306098;54829071392
|
---|
108 | ;;548;ER;200;273,279,1284,1549,3130,4944,
|
---|
109 | ;;548;B;54818306823;54829072511
|
---|
110 | ;;548;ER;200;842,2682,2916,4654,
|
---|
111 | ;;548;B;54818307611;54829073657
|
---|
112 | ;;548;ER;200;376,415,2578,2865,3016,
|
---|
113 | ;;548;B;54818308786;54829074974
|
---|
114 | ;;548;ER;200;364,669,2051,3400,3801,4221,4365,
|
---|
115 | ;;548;B;54818309466;54829076246
|
---|
116 | ;;548;ER;200;4814,
|
---|
117 | ;;548;B;54818309937;54829076990
|
---|
118 | ;;548;ER;200;386,438,731,1922,
|
---|
119 | ;;548;B;54818310455;54829077796
|
---|
120 | ;;548;ER;200;917,1536,4141,
|
---|
121 | ;;548;B;54818311033;54829078850
|
---|
122 | ;;548;ER;200;2791,3743,4287,
|
---|
123 | ;;548;B;54818313864;54829083315
|
---|
124 | ;;548;ER;200;1214,4982,
|
---|
125 | ;;548;ER;700;4836,
|
---|
126 | ;;548;B;54818314573;54829084335
|
---|
127 | ;;548;ER;200;1202,2680,3276,
|
---|
128 | ;;548;B;54818315538;54829085625
|
---|
129 | ;;548;ER;200;4089,4725,4814,4816,4850,
|
---|
130 | ;;548;B;54818317094;54829087723
|
---|
131 | ;;548;ER;200;236,517,605,1345,4228,
|
---|
132 | ;;548;B;54818318068;54829089189
|
---|
133 | ;;548;ER;200;1069,1213,2393,2427,2451,2554,2574,2908,3712,3898,4485,4581,
|
---|
134 | ;;548;B;54818319216;54829090966
|
---|
135 | ;;548;ER;200;285,287,1064,1065,1522,
|
---|
136 | ;;548;B;54818319710;54829091574
|
---|
137 | ;;548;ER;200;708,4014,4371,
|
---|
138 | ;;548;B;54818320244;54829092353
|
---|
139 | ;;548;ER;200;1909,2615,2937,4152,4960,
|
---|
140 | ;;548;B;54818320807;54829093035
|
---|
141 | ;;548;ER;200;925,
|
---|
142 | ;;548;B;54818321240;54829093681
|
---|
143 | ;;548;ER;200;501,1868,2274,4170,
|
---|
144 | ;;548;B;54818321527;54829094021
|
---|
145 | ;;548;ER;200;1100,1469,
|
---|
146 | ;;548;B;54818321822;54829094496
|
---|
147 | ;;548;ER;200;2288,2790,
|
---|
148 | ;;548;B;54818322241;54829095183
|
---|
149 | ;;548;ER;200;687,1990,2496,2960,3002,
|
---|
150 | ;;548;B;54818322575;54829095767
|
---|
151 | ;;548;ER;200;1253,
|
---|
152 | ;;548;B;54818322800;54829096012
|
---|
153 | ;;548;ER;200;3204,3266,3463,4080,
|
---|
154 | ;;548;B;54818323154;54829096628
|
---|
155 | ;;548;ER;200;1896,2012,3488,
|
---|
156 | ;;548;B;54818323271;54829096846
|
---|
157 | ;;548;ER;200;98,389,502,1157,2135,
|
---|
158 | ;;548;B;54818323420;54829097129
|
---|
159 | ;;548;ER;200;1215,1296,1721,3474,3566,4891,
|
---|
160 | ;;548;B;54818323541;54829097327
|
---|
161 | ;;548;ER;200;89,2619,3937,
|
---|
162 | ;;548;B;54818323694;54829097662
|
---|
163 | ;;548;ER;200;597,
|
---|
164 | ;;548;B;54818323792;54829097809
|
---|
165 | ;;548;ER;200;244,1490,2740,3795,4099,4154,4348,4893,
|
---|
166 | ;;548;B;54818323865;54829097952
|
---|
167 | ;;548;ER;200;165,343,628,1016,1541,
|
---|
168 | ;;548;B;54818324004;54829098174
|
---|
169 | ;;548;ER;200;533,807,1514,1892,2560,2872,3210,
|
---|
170 | ;;548;B;54818324140;54829098538
|
---|
171 | ;;548;ER;200;26,414,2947,2986,2999,3955,4291,4357,4509,
|
---|
172 | ;;548;B;54818324290;54829099214
|
---|
173 | ;;548;ER;200;957,1337,1842,4187,
|
---|
174 | ;;548;B;54818324605;54829099651
|
---|
175 | ;;548;ER;200;170,196,290,421,523,646,659,668,685,967,1207,1209,1480,1531,2033,2109,2207,2289,2312,2523,2673,2695,2872,2988,3245,3284,3410,3460,3501,
|
---|
176 | ;;548;ER;200;3556,3629,3646,3727,3898,3977,4161,4166,4225,4377,4382,4438,4481,4619,4647,4741,
|
---|
177 | ;;548;B;54818324954;54829100043
|
---|
178 | ;;548;ER;200;440,680,2346,3585,3587,
|
---|
179 | ;;548;B;54818325147;54829100396
|
---|
180 | ;;548;ER;200;307,1536,4468,
|
---|
181 | ;;548;B;54818325308;54829100621
|
---|
182 | ;;548;ER;200;215,4823,
|
---|
183 | ;;548;B;54818325494;54829100918
|
---|
184 | ;;548;ER;200;89,1130,1498,2744,2904,3308,4589,
|
---|
185 | ;;548;B;54818325579;54829101045
|
---|
186 | ;;548;ER;200;289,779,2072,2271,3606,4434,4593,
|
---|
187 | ;;548;B;54818325680;54829101185
|
---|
188 | ;;548;ER;200;1113,1991,
|
---|
189 | ;;548;B;54818325802;54829101343
|
---|
190 | ;;548;ER;200;1449,
|
---|
191 | ;;548;B;54818325877;54829101459
|
---|
192 | ;;548;ER;200;71,508,2166,3596,
|
---|
193 | ;;548;B;54818325949;54829101550
|
---|
194 | ;;548;ER;200;583,1193,1294,1316,1937,2075,2256,3016,4969,
|
---|
195 | ;;548;B;54818326079;54829101744
|
---|
196 | ;;548;ER;200;535,1410,3134,
|
---|
197 | ;;548;B;54818326119;54829101822
|
---|
198 | ;;548;ER;200;1286,1351,4164,4249,4346,4626,4970,
|
---|
199 | ;;548;B;54818326215;54829102014
|
---|
200 | ;;548;ER;200;704,900,902,1190,1203,1480,3986,
|
---|
201 | ;;548;B;54818326296;54829102172
|
---|
202 | ;;548;ER;200;800,801,1042,1959,2639,2640,4294,4543,4831,4924,4985,
|
---|
203 | ;;548;B;54818326349;54829102269
|
---|
204 | ;;548;ER;200;1572,
|
---|
205 | ;;548;B;54818326505;54829102518
|
---|
206 | ;;548;ER;200;1100,4482,4488,
|
---|
207 | ;;548;B;54818326660;54829102937
|
---|
208 | ;;548;ER;200;90,797,1062,1729,1963,
|
---|
209 | ;;548;B;54818326758;54829103194
|
---|
210 | ;;548;ER;200;1194,1644,1884,4727,
|
---|
211 | ;;548;B;54818326836;54829103398
|
---|
212 | ;;548;ER;200;269,4005,4007,
|
---|
213 | ;;548;B;54818327030;54829103767
|
---|
214 | ;;548;ER;200;790,954,1063,1271,4459,
|
---|
215 | ;;548;B;54818327155;54829103994
|
---|
216 | ;;548;ER;200;23,2734,3329,3896,3898,4739,
|
---|
217 | 549 ;;
|
---|
218 | ;;549;B;54930411303;54996011224
|
---|
219 | ;;549;ER;350;2085,
|
---|
220 | ;;549;B;54930422921;54996033827
|
---|
221 | ;;549;ER;350;866,
|
---|
222 | ;;549;ER;700;16,52,210,1976,3931,3978,
|
---|
223 | ;;549;B;54930436137;54996062733
|
---|
224 | ;;549;ER;350;3649,
|
---|
225 | ;;549;B;54930437952;54996066052
|
---|
226 | ;;549;ER;350;2274,
|
---|
227 | ;;549;B;54930441184;54996074598
|
---|
228 | ;;549;ER;350;2263,
|
---|
229 | ;;549;B;54930443465;54996080214
|
---|
230 | ;;549;ER;350;3992,
|
---|
231 | ;;549;B;54930445405;54996083947
|
---|
232 | ;;549;ER;350;877,
|
---|
233 | ;;549;B;54930446720;54996085824
|
---|
234 | ;;549;ER;700;2313,
|
---|
235 | ;;549;B;54930448103;54996089837
|
---|
236 | ;;549;ER;350;2075,
|
---|
237 | ;;549;B;54930454903;54996103266
|
---|
238 | ;;549;ER;350;4752,
|
---|
239 | 550 ;;
|
---|
240 | ;;550;B;55014778664;55021524711
|
---|
241 | ;;550;ER;350;668,
|
---|
242 | 553 ;;
|
---|
243 | ;;553;B;55320661406;5537211698
|
---|
244 | ;;553;ER;350;3194,
|
---|
245 | ;;553;B;55320662266;5537212619
|
---|
246 | ;;553;ER;350;2677,
|
---|