Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDRPA14

SDRPA14.m

Go to the documentation of this file. 
  1. SDRPA14 ;BP-OIFO/ESW - UTILITY ; 6/9/04 8:27am
  1.  ;;5.3;Scheduling;**376,1015**;Aug 13, 1993;Build 21
  1. EN(ST) ;
  1.  N SR,II,STR,SA,STE,GG,SS,SQS,ER,SB,SM,SQ
  1.  F II=1:1 S STR=$P($T(@ST+II),";;",2) Q:+STR'=ST  D
  1.  .S SA=$P(STR,";",2) Q:SA'="B"
  1.  .S SB=$P(STR,";",3),SM=$P(STR,";",4) D
  1.  ..F GG=1:1 S STE=$P($T(@ST+II+GG),";;",2) Q:+STE'=ST!($P(STE,";",2)="B")  D
  1.  ...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)
  1.  ..;update batch acknowledgement
  1.  ..S ER="" S SQ=$O(^SDWL(409.6,"AMSG",SM,"")) Q:SQ=""  D PR^SD376P(SB,SM,ER,SQ)
  1.  Q
  1. 573 ;;
  1.  ;;573;B;57341415896;57315611095
  1.  ;;573;ER;350;3839,4363,4523,
  1.  ;;573;B;57341418138;57315613298
  1.  ;;573;ER;350;4376,
  1.  ;;573;B;57341485488;57315713018
  1.  ;;573;ER;350;1166,
  1.  ;;573;B;57341487141;57315716177
  1.  ;;573;ER;400;196,
  1.  ;;573;B;57341489204;57315718962
  1.  ;;573;ER;200;2755,
  1.  ;;573;B;57341489679;57315719529
  1.  ;;573;ER;200;2509,
  1.  ;;573;B;57341492136;57315722645
  1.  ;;573;ER;200;4636,
  1.  ;;573;B;57341492794;57315724385
  1.  ;;573;ER;700;1820,1821,1822,1823,
  1.  ;;573;B;57341495581;57315727630
  1.  ;;573;ER;200;4448,
  1.  ;;573;ER;400;550,
  1.  ;;573;B;57341498824;57315731474
  1.  ;;573;ER;200;1816,2711,
  1.  ;;573;B;57341500431;57315733222
  1.  ;;573;ER;400;35,
  1.  ;;573;B;57341503288;57315737113
  1.  ;;573;ER;200;2480,
  1.  ;;573;B;57341520649;57315761979
  1.  ;;573;ER;350;1962,4422,
  1.  ;;573;ER;400;259,
  1.  ;;573;B;57341569767;57315841639
  1.  ;;573;ER;200;1577,
  1.  ;;573;B;57341570917;57315843211
  1.  ;;573;ER;200;1678,2517,2826,
  1.  ;;573;B;57341575458;57315852716
  1.  ;;573;ER;200;4596,
  1.  ;;573;ER;350;4077,
  1.  ;;573;B;57341579418;57315857030
  1.  ;;573;ER;200;1818,
  1.  ;;573;B;57341674187;57316001990
  1.  ;;573;ER;200;3044,3292,
  1.  ;;573;B;57341679090;57316011044
  1.  ;;573;ER;200;2092,2094,
  1.  ;;573;B;57341681987;57316015213
  1.  ;;573;ER;200;1380,
  1.  ;;573;ER;350;1516,
  1.  ;;573;B;57341695560;57316035922
  1.  ;;573;ER;200;4518,
  1.  ;;573;B;57341698193;57316040853
  1.  ;;573;ER;400;651,652,653,654,655,
  1.  ;;573;B;57341706343;57316060325
  1.  ;;573;ER;200;2505,2901,3195,
  1.  ;;573;B;57341707374;57316061797
  1.  ;;573;ER;200;4600,
  1.  ;;573;B;57341709992;57316070530
  1.  ;;573;ER;200;4570,
  1.  ;;573;B;57341710221;57316070949
  1.  ;;573;ER;200;4093,
  1.  ;;573;B;57341711151;57316071850
  1.  ;;573;ER;200;1729,
  1.  ;;573;B;57341716961;57316079101
  1.  ;;573;ER;700;1071,
  1.  ;;573;B;57341773438;57316162909
  1.  ;;573;ER;400;228,229,692,750,
  1.  ;;573;B;57341781048;57316175318
  1.  ;;573;ER;400;612,
  1.  ;;573;B;57341791215;57316189877
  1.  ;;573;ER;200;1702,2431,
  1.  ;;573;B;57341828949;57316236656
  1.  ;;573;ER;200;3837,4318,
  1.  ;;573;B;57341832016;57316242557
  1.  ;;573;ER;200;1379,
  1.  ;;573;ER;400;693,
  1.  ;;573;B;57341834624;57316245932
  1.  ;;573;ER;200;325,326,4404,
  1.  ;;573;B;57341836365;57316248426
  1.  ;;573;ER;400;660,
  1.  ;;573;B;57341836617;57316248858
  1.  ;;573;ER;200;2279,2978,
  1.  ;;573;B;57341836857;57316248968
  1.  ;;573;ER;400;320,
  1.  ;;573;B;57341837065;57316249491
  1.  ;;573;ER;200;375,
  1.  ;;573;B;57341837257;57316249683
  1.  ;;573;ER;200;2151,2154,
  1.  ;;573;B;57341837471;57316250076
  1.  ;;573;ER;200;4501,4505,
  1.  ;;573;B;57341839782;57316252638
  1.  ;;573;ER;400;235,
  1.  ;;573;B;57341842379;57316255955
  1.  ;;573;ER;400;615,
  1.  ;;573;B;57341874437;57316306782
  1.  ;;573;ER;200;1504,1505,1845,2273,2274,2275,2625,2626,2930,2931,2932,4740,4741,
  1.  ;;573;ER;350;1377,1633,
  1.  ;;573;ER;400;173,482,483,484,485,486,
  1. 578 ;;
  1.  ;;578;B;57829530511;57849068398
  1.  ;;578;ER;350;3390,
  1.  ;;578;B;57829546923;57849087498
  1.  ;;578;ER;350;1795,
  1.  ;;578;B;57829548330;57849089338
  1.  ;;578;ER;350;4065,
  1.  ;;578;B;57829549548;57849090878
  1.  ;;578;ER;350;4573,
  1.  ;;578;B;57829556791;57849099346
  1.  ;;578;ER;350;2541,
  1.  ;;578;B;57829562050;57849105770
  1.  ;;578;ER;350;1246,
  1. 580 ;;
  1.  ;;580;B;58028677146;58060598974
  1.  ;;580;ER;350;4691,
  1.  ;;580;B;58028679370;58060601963
  1.  ;;580;ER;350;4301,
  1.  ;;580;B;58028680566;58060603502
  1.  ;;580;ER;350;3453,
  1.  ;;580;B;58028681606;58060605513
  1.  ;;580;ER;350;2195,
  1.  ;;580;B;58028681697;58060605606
  1.  ;;580;ER;350;4365,
  1.  ;;580;B;58028681963;58060605959
  1.  ;;580;ER;350;4217,
  1.  ;;580;B;58028682205;58060606364
  1.  ;;580;ER;350;4720,
  1.  ;;580;B;58028682294;58060606550
  1.  ;;580;ER;350;4977,
  1. 581 ;;
  1.  ;;581;B;58119172408;58129312063
  1.  ;;581;ER;350;3445,
  1.  ;;581;B;58119173049;58129312699
  1.  ;;581;ER;350;2436,
  1. 585 ;;
  1.  ;;585;B;58519290836;58520450002
  1.  ;;585;ER;350;790,
  1.  ;;585;B;58519291576;58520450521
  1.  ;;585;ER;350;702,
  1. 586 ;;
  1.  ;;586;B;58613842182;58629011651
  1.  ;;586;ER;350;4319,
  1.  ;;586;B;58613842258;58629011775
  1.  ;;586;ER;350;4099,4102,
  1.  ;;586;B;58613842571;58629012161
  1.  ;;586;ER;350;4462,
  1.  ;;586;B;58613842662;58629012274
  1.  ;;586;ER;350;1791,
  1.  ;;586;B;58613842821;58629012513
  1.  ;;586;ER;350;1185,
  1.  ;;586;B;58613842835;58629012534
  1.  ;;586;ER;350;3752,
  1. 589 ;;
  1.  ;;589;B;58960524418;58991794662
  1.  ;;589;ER;700;1248,
  1.  ;;589;B;58960551798;58991828049
  1.  ;;589;ER;350;593,
  1. 590 ;;
  1.  ;;590;B;59012333707;59019239340
  1.  ;;590;ER;350;2431,
  1. 593 ;;
  1.  ;;593;B;59326911928;59332408266
  1.  ;;593;ER;350;4666,
  1. 595 ;;
  1.  ;;595;B;59592063554;59560474846
  1.  ;;595;ER;350;2801,3556,
  1.  ;;595;B;59592068645;59560477543
  1.  ;;595;ER;350;2423,
  1.  ;;595;B;59592093832;59560491541
  1.  ;;595;ER;350;4741,
  1.  ;;595;B;59592097396;59560493679
  1.  ;;595;ER;350;4302,
  1.  ;;595;B;59592097407;59560493726
  1.  ;;595;ER;350;2566,
  1. 596 ;;
  1.  ;;596;B;59670076649;59628464879
  1.  ;;596;ER;350;81,
  1. 598 ;;
  1.  ;;598;B;59832615755;5988785037
  1.  ;;598;ER;350;4295,
  1.  ;;598;B;59832665961;5988862464
  1.  ;;598;ER;350;3621,
  1.  ;;598;B;59832666979;5988863704
  1.  ;;598;ER;350;2505,
  1.  ;;598;B;59832676491;5988875993
  1.  ;;598;ER;350;1646,
  1.  ;;598;B;59832676797;5988876476
  1.  ;;598;ER;350;4771,
  1.  ;;598;B;59832685366;5988894468
  1.  ;;598;ER;350;1207,
  1. 603 ;;
  1.  ;;603;B;60323022947;60331845934
  1.  ;;603;ER;400;824,
  1.  ;;603;B;60323025516;60331848091
  1.  ;;603;ER;350;4781,
  1.  ;;603;B;60323027636;60331850083
  1.  ;;603;ER;350;3003,
  1.  ;;603;B;60323028154;60331850561
  1.  ;;603;ER;350;2667,
  1.  ;;603;B;60323029629;60331851961
  1.  ;;603;ER;350;4024,
  1.  ;;603;B;60323058642;60331889465
  1.  ;;603;ER;400;4978,4979,4980,
  1. 605 ;;
  1.  ;;605;B;60529709067;60542594202
  1.  ;;605;ER;700;101,
  1.  ;;605;B;60529709962;60542595441
  1.  ;;605;ER;350;839,
  1.  ;;605;B;60529717983;60542605175
  1.  ;;605;ER;400;314,
  1. 607 ;;
  1.  ;;607;B;60715816407;60724532978
  1.  ;;607;ER;350;1741,
  1.  ;;607;B;60715816891;60724533804
  1.  ;;607;ER;350;835,1243,
  1.  ;;607;B;60715819072;60724536838
  1.  ;;607;ER;350;13,
  1.  ;;607;B;60715827931;60724547414
  1.  ;;607;ER;350;3880,
  1. 608 ;;
  1.  ;;608;B;60812360929;60817646348
  1.  ;;608;ER;350;242,
  1. 610 ;;
  1.  ;;610;B;61012402904;6106912019
  1.  ;;610;ER;350;3204,
  1.  ;;610;B;61012406207;6106916012
  1.  ;;610;ER;350;144,758,
  1. 612 ;;
  1.  ;;612;B;61224607028;61252523748
  1.  ;;612;ER;350;2923,
  1.  ;;612;B;61224625224;61252550343
  1.  ;;612;ER;350;1612,
  1. 614 ;;
  1.  ;;614;B;61493778802;61475834672
  1.  ;;614;ER;350;1092,
  1.  ;;614;B;61493947493;61475941007
  1.  ;;614;ER;350;1025,
  1. 618 ;;
  1.  ;;618;B;61830310882;61849207623
  1.  ;;618;ER;350;2998,4699,
  1.  ;;618;B;61830311669;61849208422
  1.  ;;618;ER;400;621,803,
  1.  ;;618;B;61830311696;61849208514
  1.  ;;618;ER;350;2242,
  1.  ;;618;B;61830311701;61849208519
  1.  ;;618;ER;350;1794,2023,
  1.  ;;618;B;61830311823;61849208661
  1.  ;;618;ER;350;2001,2293,
  1.  ;;618;B;61830311868;61849208729
  1.  ;;618;ER;350;913,
  1.  ;;618;B;61830311894;61849208756
  1.  ;;618;ER;350;1662,2226,3314,
  1.  ;;618;B;61830311915;61849208778
  1.  ;;618;ER;350;488,4560,4726,4864,4910,4936,4973,
  1.  ;;618;B;61830312071;61849208939
  1.  ;;618;ER;350;2809,
  1.  ;;618;B;61830312114;61849208976
  1.  ;;618;ER;350;4487,4918,
  1.  ;;618;ER;400;255,
  1.  ;;618;B;61830312149;61849209021
  1.  ;;618;ER;350;629,
  1.  ;;618;B;61830312286;61849209163
  1.  ;;618;ER;350;1007,
  1.  ;;618;ER;400;688,
  1.  ;;618;B;61830312303;61849209178
  1.  ;;618;ER;350;1767,
  1.  ;;618;B;61830312324;61849209205
  1.  ;;618;ER;350;4703,
  1.  ;;618;B;61830312361;61849209237
  1.  ;;618;ER;350;3419,
  1.  ;;618;B;61830312364;61849209252
  1.  ;;618;ER;350;4771,
  1.  ;;618;B;61830312391;61849209282
  1.  ;;618;ER;350;4831,
  1.  ;;618;B;61830312397;61849209288
  1.  ;;618;ER;350;326,
  1.  ;;618;B;61830312452;61849209355
  1.  ;;618;ER;350;3504,
  1.  ;;618;B;61830312457;61849209357
  1.  ;;618;ER;400;585,586,587,
  1.  ;;618;B;61830312599;61849209503
  1.  ;;618;ER;350;1091,
  1.  ;;618;B;61830312620;61849209524
  1.  ;;618;ER;400;840,
  1.  ;;618;B;61830312636;61849209548
  1.  ;;618;ER;350;1309,1681,
  1.  ;;618;B;61830312685;61849209597
  1.  ;;618;ER;350;1298,2501,
  1.  ;;618;B;61830312800;61849209700
  1.  ;;618;ER;350;3111,
  1.  ;;618;B;61830312869;61849209793
  1.  ;;618;ER;350;4521,
  1.  ;;618;B;61830313456;61849210463
  1.  ;;618;ER;350;1227,2620,
  1.  ;;618;B;61830313650;61849210673
  1.  ;;618;ER;400;372,
  1.  ;;618;B;61830465384;61849405161
  1.  ;;618;ER;350;3727,
  1.  ;;618;B;61830466498;61849406601
  1.  ;;618;ER;400;231,232,
  1.  ;;618;B;61830466967;61849407222
  1.  ;;618;ER;400;197,
  1.  ;;618;B;61830471715;61849413242
  1.  ;;618;ER;400;104,
  1.  ;;618;B;61830472001;61849413603
  1.  ;;618;ER;350;1038,2211,2825,3555,4156,
  1.  ;;618;B;61830477267;61849420417
  1.  ;;618;ER;400;151,278,
  1.  ;;618;B;61830481012;61849425245
  1.  ;;618;"ER";400;199,