1 | SDRPA13 ;BP-OIFO/ESW - UTILITY ; 6/9/04 8:24am
|
---|
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 | 554 ;;
|
---|
14 | ;;554;B;55437796563;55448521745
|
---|
15 | ;;554;ER;350;388,
|
---|
16 | ;;554;B;55437797821;55448523185
|
---|
17 | ;;554;ER;350;1674,
|
---|
18 | ;;554;ER;400;283,
|
---|
19 | ;;554;B;55437799590;55448525823
|
---|
20 | ;;554;ER;350;2430,
|
---|
21 | ;;554;B;55437800230;55448526572
|
---|
22 | ;;554;ER;350;4361,
|
---|
23 | ;;554;B;55437800577;55448526877
|
---|
24 | ;;554;ER;350;389,
|
---|
25 | ;;554;B;55437801818;55448528456
|
---|
26 | ;;554;ER;400;4932,
|
---|
27 | ;;554;B;55437806185;55448532888
|
---|
28 | ;;554;ER;400;4856,4857,4858,4859,
|
---|
29 | ;;554;B;55437816254;55448544676
|
---|
30 | ;;554;ER;400;649,
|
---|
31 | ;;554;B;55437909261;55448657090
|
---|
32 | ;;554;ER;400;119,
|
---|
33 | 556 ;;
|
---|
34 | ;;556;B;55614723975;55621263555
|
---|
35 | ;;556;ER;350;2967,
|
---|
36 | ;;556;B;55614724139;55621263748
|
---|
37 | ;;556;ER;350;1708,
|
---|
38 | ;;556;B;55614724207;55621263828
|
---|
39 | ;;556;ER;350;4497,
|
---|
40 | 557 ;;
|
---|
41 | ;;557;B;55723601318;55729649231
|
---|
42 | ;;557;ER;700;672,
|
---|
43 | 558 ;;
|
---|
44 | ;;558;B;55830098578;55844865732
|
---|
45 | ;;558;ER;350;1113,2920,
|
---|
46 | ;;558;B;55830102189;55844871123
|
---|
47 | ;;558;ER;350;4287,
|
---|
48 | ;;558;B;55830103593;55844873399
|
---|
49 | ;;558;ER;350;1955,
|
---|
50 | 561 ;;
|
---|
51 | ;;561;B;56130833860;56129081726
|
---|
52 | ;;561;ER;700;2271,
|
---|
53 | ;;561;B;56130901834;56129473527
|
---|
54 | ;;561;ER;350;2830,
|
---|
55 | ;;561;B;56130903196;56129481304
|
---|
56 | ;;561;ER;350;343,
|
---|
57 | ;;561;B;56130903290;56129482010
|
---|
58 | ;;561;ER;350;3491,
|
---|
59 | 562 ;;
|
---|
60 | ;;562;B;5627678452;5626309900
|
---|
61 | ;;562;ER;350;3253,
|
---|
62 | 565 ;;
|
---|
63 | ;;565;B;56516370753;56523143655
|
---|
64 | ;;565;ER;350;1249,4039,
|
---|
65 | 568 ;;
|
---|
66 | ;;568;B;56810669869;56815555226
|
---|
67 | ;;568;ER;200;2077,
|
---|
68 | ;;568;B;56810669876;56815555246
|
---|
69 | ;;568;ER;200;3855,3858,3861,3864,3867,3872,3875,3876,3877,3878,3879,3880,4279,
|
---|
70 | ;;568;B;56810669881;56815555251
|
---|
71 | ;;568;ER;200;4148,4151,4152,4153,4154,4155,4156,4157,4158,4159,4160,4161,
|
---|
72 | ;;568;B;56810669904;56815555280
|
---|
73 | ;;568;ER;200;4219,
|
---|
74 | ;;568;B;56810669927;56815555303
|
---|
75 | ;;568;ER;200;150,608,709,868,888,1011,1257,1511,1834,1890,2171,2644,2696,2789,2948,2989,3797,3969,4013,4016,4020,4024,4027,4030,4031,4032,4033,4034,4035,
|
---|
76 | ;;568,ER;200;4036,4075,4077,4080,4082,4083,4084,4085,4086,4087,4088,4089,4090,4091,4092,4093,4096,4097,4098,4099,4100,4101,4102,4103,4113,4265,4318,4592,4608,4632,4648,4670,4676,4807,4906,
|
---|
77 | ;;568;B;56810669937;56815555313
|
---|
78 | ;;568;ER;200;3062,3066,3067,3069,3070,3071,3072,3073,3074,3075,3076,3077,3078,4284,4717,4718,4719,4720,4721,4906,4910,4914,4918,4921,4924,4927,4929,4930,4931,4932,4933,
|
---|
79 | ;;568;B;56810669946;56815555322
|
---|
80 | ;;568;ER;200;3474,3477,3478,3479,3480,3481,4217,4218,4219,4220,4221,4222,4223,4224,4225,4226,4227,4923,
|
---|
81 | ;;568;B;56810669968;56815555343
|
---|
82 | ;;568;ER;200;2596,2601,2604,2608,2611,2613,2616,2618,2619,2620,2621,2622,
|
---|
83 | ;;568;B;56810669978;56815555355
|
---|
84 | ;;568;ER;200;1179,1182,1185,1188,1190,1193,1195,1197,1198,1199,1200,4076,4079,4082,4085,4086,4087,4088,4089,4090,4091,4092,
|
---|
85 | ;;568;B;56810669983;56815555360
|
---|
86 | ;;568;ER;200;4935,4937,4939,4940,4941,4942,4943,4944,4945,4946,
|
---|
87 | ;;568;B;56810669986;56815555363
|
---|
88 | ;;568;ER;200;560,788,842,925,955,1006,1173,1265,1352,1391,1793,2034,3174,3361,3653,3654,3658,3661,3665,3668,3670,3673,3676,3678,3679,3680,4233,4315,4589,
|
---|
89 | ;;568,ER;200;4594,4597,4600,4603,4606,4609,4610,4611,4612,4613,4645,4669,4672,4675,4678,4681,4684,4687,4689,4692,4696,4699,4700,4701,4761,4831,4859,4885,4892,4898,4910,4915,4921,
|
---|
90 | ;;568;B;56810670008;56815555376
|
---|
91 | ;;568;ER;200;2821,2831,2836,2839,2841,2844,2846,2849,2852,2855,2856,2857,4660,
|
---|
92 | ;;568;B;56810670085;56815555454
|
---|
93 | ;;568;ER;200;1026,1031,1035,1037,1042,1044,1047,1050,3814,3815,3816,3817,3818,3819,3820,3821,3822,3823,3824,3825,
|
---|
94 | ;;568;B;56810670093;56815555473
|
---|
95 | ;;568;ER;200;2009,2195,3523,3525,3526,3527,3528,3529,3530,3531,3532,3533,3534,3535,4246,
|
---|
96 | ;;568;B;56810670098;56815555478
|
---|
97 | ;;568;ER;200;4793,4795,4796,4797,4798,4799,4800,4801,4802,4803,4804,4805,4808,4811,4812,4813,4814,4815,4816,4818,4819,4820,4821,4822,
|
---|
98 | ;;568;B;56810670101;56815555481
|
---|
99 | ;;568;ER;200;580,1141,1330,1433,1687,1690,1693,1695,1698,1701,1703,1705,1708,1711,1713,1714,1774,1997,2061,2075,3296,3298,3300,3301,3302,3303,3304,
|
---|
100 | ;;568;ER;200;3305,3306,3307,3308,3309,3748,4816,4818,4821,4823,4826,4829,4832,4834,4836,4839,4842,4843,
|
---|
101 | ;;568;B;56810670128;56815555505
|
---|
102 | ;;568;ER;200;2789,2888,3422,3479,3484,3489,3493,3498,3501,3505,3509,3512,3514,3515,3516,4195,4205,4266,4317,4338,4402,4508,4571,4787,4911,
|
---|
103 | ;;568;ER;200;1222,1223,1224,1225,1226,1227,1228,1229,1230,1231,1232
|
---|
104 | ;;568;ER;200;1222,1223,1224,1225,1226,1227,1228,1229,1230,1231,1232,1233,4842,4846,4850,4853,4856,4859,4862,4865,4866,4867,4868,4869,
|
---|
105 | ;;568;B;56810670150;56815555529
|
---|
106 | ;;568;ER;200;3958,3962,3965,3968,3971,3974,3977,3981,3982,3983,3984,3985,4484,4489,4494,4499,4503,4507,4512,4515,4517,4518,4519,
|
---|
107 | ;;568;B;56810670151;56815555532
|
---|
108 | ;;568;ER;200;2252,2253,2254,2255,2256,2257,2258,2259,2260,2261,2262,2263,
|
---|
109 | ;;568;B;56810670156;56815555543
|
---|
110 | ;;568;ER;200;2308,2309,2310,2311,2312,2313,2314,2315,2316,2317,2318,2465,2466,2467,2468,2469,2470,2471,2472,2473,2474,2475,
|
---|
111 | ;;568;B;56810670169;56815555566
|
---|
112 | ;;568;ER;200;118,754,796,1460,1764,2435,2669,4468,4471,4472,4473,4474,4475,4476,4477,4478,4479,4480,4481,
|
---|
113 | ;;568;B;56810670178;56815555575
|
---|
114 | ;;568;ER;200;2472,2770,3180,3445,3532,3740,3873,3903,4143,4274,4293,4411,4607,4762,4803,4813,4827,4839,4931,4944,4952,4963,
|
---|
115 | ;;568;B;56810670187;56815555585
|
---|
116 | ;;568;ER;200;1507,1508,1509,1510,1511,1512,1513,1514,1515,1516,1517,1518,4274,4278,4280,4283,4288,4291,4294,4297,4298,4299,4300,4301,
|
---|
117 | ;;568;B;56810670188;56815555586
|
---|
118 | ;;568;ER;200;2206,2314,
|
---|
119 | ;;568;B;56810670193;56815555591
|
---|
120 | ;;568;ER;200;2074,2189,
|
---|
121 | ;;568;B;56810670242;56815555640
|
---|
122 | ;;568;ER;200;300,372,1468,1605,1753,2116,2161,3371,3955,3956,3964,3965,3972,3973,3976,3977,3978,3979,3980,3981,3982,3983,3984,3985,3986,3987,3988,3989,3990,3991,3992,4161,4423,4681,4682,4683,4684,
|
---|
123 | ;;568;B;56810670243;56815555641
|
---|
124 | ;;568;ER;200;1174,1176,1177,1178,1179,1180,1181,1182,1183,1184,1185,1186,2144,2145,2146,2147,2148,2149,2150,2151,2152,2153,2154,2155,4089,4137,4326,4604,4606,4607,4608,4609,4610,4611,4612,4623,4767,4857,4895,
|
---|
125 | ;;568;B;56810670244;56815555642
|
---|
126 | ;;568;ER;200;4006,4009,4010,4011,4012,4013,4014,4015,4016,4017,4018,4554,4555,4556,4557,4558,4559,4560,4561,4562,4563,4564,4565,
|
---|
127 | ;;568;B;56810670249;56815555643
|
---|
128 | ;;568;ER;200;440,1999,
|
---|
129 | ;;568;B;56810670250;56815555648
|
---|
130 | ;;568;ER;200;2099,3746,3747,3748,3749,3750,3751,3752,3753,3754,3755,3756,3849,3850,3851,3852,3853,3854,3855,3856,3857,3858,3859,3860,
|
---|
131 | ;;568;B;56810670267;56815555666
|
---|
132 | ;;568;ER;200;4522,4529,4535,4536,4537,4538,4539,4540,4541,4542,4543,4544,4897,4900,4906,4909,4912,4915,4918,4919,4920,4921,4922,4923,
|
---|
133 | ;;568;B;56810670272;56815555677
|
---|
134 | ;;568;ER;200;1370,1373,1376,1379,1382,1384,1385,1386,1387,1388,1389,2035,2045,2154,3795,
|
---|
135 | ;;568;B;56810670277;56815555682
|
---|
136 | ;;568;ER;200;540,816,817,1009,1602,1608,1699,2200,2401,2701,3026,3374,3822,4066,4254,4456,4707,4717,4848,4855,4861,4946,
|
---|
137 | ;;568;B;56810670293;56815555698
|
---|
138 | ;;568;ER;200;1177,1180,1183,1188,1191,1194,1197,1198,1199,1200,4620,4623,4626,4629,4632,4635,4637,4638,4639,4640,4641,
|
---|
139 | ;;568;ER;350;3973,
|
---|
140 | ;;568;B;56810670298;56815555703
|
---|
141 | ;;568;ER;200;1470,1473,1474,1475,1476,1477,1478,1479,1480,1481,1482,1483,4491,4918,4919,4920,4921,4922,4923,4924,4925,4926,4927,4928,4929,
|
---|
142 | ;;568;ER;200;426,925,1591,1596,1599,1602,1605,1608,1611,1613,1614,1
|
---|
143 | ;;568;ER;200;426,925,1591,1596,1599,1602,1605,1608,1611,1613,1614,1615,1616,1617,2887,3120,3386,3505,3508,3511,3514,3517,3521,3525,3529,3531,3533,3534,3535,3841,3845,3850,3854,3858,3862,3868,3870,3872,3874,3876,3877,
|
---|
144 | ;;568;B;56810670313;56815555741
|
---|
145 | ;;568;ER;200;2007,2010,2013,2016,2019,2022,2024,2025,2026,2027,2028,2870,2932,3220,3855,4799,4810,4860,4862,4863,4864,4865,4866,4867,4868,4873,4879,4894,
|
---|
146 | ;;568;B;56810670351;56815555786
|
---|
147 | ;;568;ER;200;2539,2545,2551,2557,2560,2561,2563,2564,2565,2566,2567,2568,
|
---|
148 | 570 ;;
|
---|
149 | ;;570;B;57010414709;5707880258
|
---|
150 | ;;570;ER;350;3290,
|
---|
151 | ;;570;B;57010414740;5707880290
|
---|
152 | ;;570;ER;400;1323,
|
---|
153 | ;;570;B;57010414742;5707880292
|
---|
154 | ;;570;ER;350;4114,
|
---|
155 | ;;570;B;57010414760;5707880310
|
---|
156 | ;;570;ER;350;5000,
|
---|
157 | ;;570;B;57010414762;5707880313
|
---|
158 | ;;570;ER;350;3633,
|
---|
159 | ;;570;ER;400;98,
|
---|
160 | ;;570;B;57010414824;5707880399
|
---|
161 | ;;570;ER;400;1075,
|
---|
162 | ;;570;B;57010414853;5707880442
|
---|
163 | ;;570;ER;400;419,
|
---|