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

SDRPA15.m

Go to the documentation of this file.
  1. SDRPA15 ;BP-OIFO/ESW - UTILITY ; 6/9/04 8:28am
  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. 619 ;;
  1. ;;619;B;61934461160;61935566249
  1. ;;619;ER;350;1495,1996,3185,3411,
  1. ;;619;B;61934467364;61935570694
  1. ;;619;ER;350;3713,
  1. ;;619;B;61934475278;61935575320
  1. ;;619;ER;350;1233,
  1. ;;619;B;61934476854;61935576213
  1. ;;619;ER;400;1715,
  1. ;;619;B;61934478706;61935577448
  1. ;;619;ER;350;271,
  1. ;;619;B;61934479827;61935578142
  1. ;;619;ER;350;3315,
  1. ;;619;ER;400;190,
  1. 620 ;;
  1. ;;620;B;62094177662;62065197692
  1. ;;620;ER;350;1836,
  1. ;;620;B;62094207805;62065214364
  1. ;;620;ER;350;611,
  1. 621 ;;
  1. ;;621;B;62184281093;62139478336
  1. ;;621;ER;350;2847,
  1. ;;621;B;62184285387;62139480913
  1. ;;621;ER;350;3329,
  1. 623 ;;
  1. ;;623;B;62313573887;62324520029
  1. ;;623;ER;350;3210,
  1. ;;623;B;62313584324;62324534684
  1. ;;623;ER;350;480,
  1. 626 ;;
  1. ;;626;B;62641068414;626126580504
  1. ;;626;ER;350;3360,3549,
  1. ;;626;B;62641276624;626126720487
  1. ;;626;ER;350;1058,
  1. ;;626;B;62641662292;626126985971
  1. ;;626;ER;400;4934,
  1. ;;626;B;62641691414;626127005866
  1. ;;626;ER;400;4901,4902,
  1. 629 ;;
  1. ;;629;B;62921109547;62958401319
  1. ;;629;ER;700;203,
  1. ;;629;B;62921230076;62958619265
  1. ;;629;ER;700;203,
  1. 630 ;;
  1. ;;630;B;63050701981;630157174109
  1. ;;630;ER;350;4936,
  1. ;;630;B;63050913340;630157820628
  1. ;;630;ER;450;3028,
  1. 631 ;;
  1. ;;631;B;6319029561;63113225143
  1. ;;631;ER;350;1127,
  1. 635 ;;
  1. ;;635;B;63520523705;63537174321
  1. ;;635;ER;400;159,
  1. ;;635;B;63520523873;63537174702
  1. ;;635;ER;400;520,521,522,
  1. ;;635;B;63520524115;63537174943
  1. ;;635;ER;350;664,
  1. ;;635;ER;400;1452,
  1. ;;635;B;63520525121;63537176250
  1. ;;635;ER;350;1120,
  1. ;;635;B;63520527107;63537177775
  1. ;;635;ER;400;679,
  1. ;;635;B;63520531762;63537184107
  1. ;;635;ER;400;747,
  1. ;;635;B;63520538010;63537192878
  1. ;;635;ER;350;1563,
  1. ;;635;ER;400;790,
  1. ;;635;B;63520542593;63537198482
  1. ;;635;ER;350;2498,
  1. ;;635;B;63520543699;63537200310
  1. ;;635;ER;350;975,4219,
  1. ;;635;ER;400;1093,
  1. ;;635;B;63520544591;63537201534
  1. ;;635;ER;400;1213,
  1. ;;635;B;63520545094;63537202138
  1. ;;635;ER;350;1184,
  1. ;;635;B;63520549024;63537207961
  1. ;;635;ER;400;875,
  1. ;;635;B;63520589371;63537253180
  1. ;;635;ER;400;838,
  1. ;;635;B;63520596578;63537262680
  1. ;;635;ER;400;635,
  1. ;;635;B;63520598566;63537265274
  1. ;;635;ER;400;584,
  1. 636 ;;
  1. ;;636;B;63635193423;63662847520
  1. ;;636;ER;350;3571,
  1. ;;636;B;63635202403;63662859075
  1. ;;636;ER;700;581,
  1. ;;636;B;63635462920;63663227039
  1. ;;636;ER;350;3569,
  1. ;;636;B;63635467872;63663232717
  1. ;;636;ER;700;527,
  1. ;;636;B;63635805870;63663722429
  1. ;;636;ER;350;1479,
  1. ;;636;B;63635807214;63663724105
  1. ;;636;ER;450;895,
  1. ;;636;B;63636979130;63665361302
  1. ;;636;ER;350;3571,
  1. ;;636;B;63636983651;63665367674
  1. ;;636;ER;700;331,
  1. ;;636;B;63636986728;63665371597
  1. ;;636;ER;350;1668,
  1. ;;636;B;63636987649;63665372545
  1. ;;636;ER;350;1267,1317,
  1. ;;636;B;63637000797;63665391307
  1. ;;636;ER;350;1245,
  1. ;;636;B;63637044170;63665453294
  1. ;;636;ER;350;1432,
  1. ;;636;B;63637045723;63665455406
  1. ;;636;ER;350;1953,
  1. 637 ;;
  1. ;;637;B;63712358412;63720591588
  1. ;;637;ER;350;644,
  1. 640 ;;
  1. ;;640;B;64028032219;64071284831
  1. ;;640;ER;400;1947,
  1. ;;640;B;64028034427;64071292241
  1. ;;640;ER;350;3954,
  1. ;;640;B;64028035904;64071295525
  1. ;;640;ER;350;3137,
  1. ;;640;B;64028037495;64071297942
  1. ;;640;ER;350;3880,
  1. ;;640;B;64028040018;64071309972
  1. ;;640;ER;350;1058,
  1. ;;640;B;64028040706;64071312241
  1. ;;640;ER;350;4996,
  1. ;;640;B;64028041583;64071316787
  1. ;;640;ER;350;4816,
  1. 642 ;;
  1. ;;642;B;64219040764;64247692763
  1. ;;642;ER;350;3918,
  1. ;;642;B;64219044000;64247697805
  1. ;;642;ER;350;4345,
  1. ;;642;B;64219055644;64247719067
  1. ;;642;ER;350;1856,
  1. ;;642;B;64219064867;64247734420
  1. ;;642;ER;350;2019,
  1. ;;642;B;64219066381;64247736808
  1. ;;642;ER;350;1633,
  1. ;;642;B;64219070163;64247743950
  1. ;;642;ER;350;1946,
  1. ;;642;B;64219070384;64247744318
  1. ;;642;ER;350;2242,
  1. ;;642;B;64219071069;64247745564
  1. ;;642;ER;350;3850,
  1. ;;642;B;64219071155;64247745706
  1. ;;642;ER;350;1505,2788,4683,
  1. ;;642;B;64219071235;64247745877
  1. ;;642;ER;350;3030,
  1. ;;642;B;64219071531;64247746887
  1. ;;642;ER;350;1791,
  1. ;;642;B;64219071792;64247747601
  1. ;;642;ER;350;300,3686,
  1. ;;642;B;64219073896;64247756907
  1. ;;642;ER;700;1011,
  1. 644 ;;
  1. ;;644;B;64431818656;64446027218
  1. ;;644;ER;350;2278,
  1. ;;644;B;64431874728;64446084905
  1. ;;644;ER;350;2167,
  1. ;;644;B;64431889209;64446101223
  1. ;;644;ER;350;4004,
  1. ;;644;B;64431896874;64446108951
  1. ;;644;ER;350;3130,
  1. ;;644;B;64431904135;64446116323
  1. ;;644;ER;350;2433,
  1. ;;644;B;64431978829;64446192826
  1. ;;644;ER;200;31,163,412,
  1. ;;644;B;64431980821;64446195496
  1. ;;644;ER;200;643,727,734,1250,1386,1760,1905,2107,2244,2598,2676,3513,3538,3552,3823,3945,4733,
  1. ;;644;B;64431989436;64446203597
  1. ;;644;ER;200;33,
  1. ;;644;B;64431992122;64446205828
  1. ;;644;ER;200;386,453,557,689,755,798,803,982,1030,1440,1605,1788,1885,2290,2393,3004,3787,3790,4628,
  1. ;;644;B;64431993591;64446207840
  1. ;;644;ER;200;65,353,354,388,499,656,1151,1198,1365,1835,1840,2382,2620,
  1. ;;644;B;64431994207;64446208461
  1. ;;644;ER;200;2279,2589,2894,2991,3450,3894,4064,
  1. ;;644;B;64432000557;64446214187
  1. ;;644;ER;200;235,939,972,1005,1056,1125,1162,1589,1624,1942,1954,2071,2351,2439,2482,
  1. ;;644;B;64432001163;64446214612
  1. ;;644;ER;200;589,804,1007,1355,1424,
  1. 646 ;;
  1. ;;646;B;64622152067;64636125592
  1. ;;646;ER;350;3641,
  1. ;;646;B;64622172061;64636149373
  1. ;;646;ER;350;2807,
  1. ;;646;B;64622177731;64636158072
  1. ;;646;ER;350;2913,
  1. ;;646;B;64622182360;64636165439
  1. ;;646;ER;350;2350,
  1. ;;646;B;64622182634;64636165816
  1. ;;646;ER;350;1713,
  1. 648 ;;
  1. ;;648;B;64830169503;64859420738
  1. ;;648;ER;350;3226,
  1. ;;648;B;64830173491;64859426791
  1. ;;648;ER;350;559,
  1. ;;648;B;64830176032;64859430610
  1. ;;648;ER;350;3576,
  1. ;;648;B;64830176493;64859431425
  1. ;;648;ER;350;4437,
  1. ;;648;B;64830181488;64859439943
  1. ;;648;ER;200;201,2116,4485,
  1. 650 ;;
  1. ;;650;B;65013317751;65024393176
  1. ;;650;ER;350;1964,
  1. 652 ;;
  1. ;;652;B;65211886530;65213575232
  1. ;;652;ER;350;618,
  1. ;;652;B;65211887675;65213578292
  1. ;;652;ER;350;3143,
  1. ;;652;B;65211888822;65213581189
  1. ;;652;ER;350;1029,
  1. ;;652;B;65211914787;65213619795
  1. ;;652;ER;350;525,
  1. 654 ;;
  1. ;;654;B;65413112674;65419363257
  1. ;;654;ER;350;3301,4157,
  1. ;;654;B;65413223658;65419507467
  1. ;;654;ER;350;2008,2759,3776,
  1. 655 ;;
  1. ;;655;B;65516549087;65520295193
  1. ;;655;ER;350;3324,
  1. 657 ;;
  1. ;;657;B;65729884244;65764668755
  1. ;;657;ER;700;4874,
  1. ;;657;B;65729887352;65764672552
  1. ;;657;ER;350;4759,
  1. ;;657;B;65729928496;65764736980
  1. ;;657;ER;700;725,
  1. ;;657;B;65729931738;65764743255
  1. ;;657;ER;700;4571,4782,
  1. 658 ;;
  1. ;;658;B;65814078326;65822477724
  1. ;;658;ER;350;639,
  1. ;;658;B;65814085475;65822487961
  1. ;;658;ER;350;3798,
  1. ;;658;B;65814091130;65822495944
  1. ;;658;ER;350;3614,
  1. ;;658;B;65814093437;65822499879
  1. ;;658;ER;350;4423,
  1. ;;658;B;65814093863;65822500443
  1. ;;658;ER;350;3272,
  1. ;;658;B;65814093973;65822500660
  1. ;;658;ER;350;4009,
  1. ;;658;B;65814094754;65822504108
  1. ;;658;ER;350;3727,
  1. ;;658;B;65814094883;65822504172
  1. ;;658;ER;350;4794,
  1. 659 ;;
  1. ;;659;B;65921670759;65928910087
  1. ;;659;ER;350;2755,
  1. ;;659;B;65921671754;65928911209
  1. ;;659;ER;350;3033,
  1. ;;659;B;65921672431;65928911663
  1. ;;659;ER;350;1453,
  1. ;;659;B;65921687821;65928931958
  1. ;;659;ER;350;3395,
  1. ;;659;B;65921746315;65929005443
  1. ;;659;ER;350;4798,
  1. ;;659;B;65921748734;65929009131
  1. ;;659;ER;400;4948,
  1. 660 ;;
  1. ;;660;B;6608026700;66033848678
  1. ;;660;ER;350;4353,
  1. ;;660;ER;700;34,
  1. 662 ;;
  1. ;;662;B;66220042896;66219570876
  1. ;;662;ER;400;556,642,643,644,
  1. ;;662;B;66220043286;66219571232
  1. ;;662;ER;400;653,654,655,
  1. ;;662;B;66220043544;66219571400
  1. ;;662;ER;400;699,813,814,815,816,817,
  1. ;;662;B;66220043608;66219571476
  1. ;;662;ER;400;779,780,
  1. ;;662;B;66220043997;66219571735
  1. ;;662;ER;400;743,
  1. ;;662;B;66220044158;66219571900
  1. ;;662;ER;400;744,745,
  1. ;;662;B;66220044918;66219572474
  1. ;;662;ER;350;3643,
  1. ;;662;B;66220045352;66219572827
  1. ;;662;ER;400;923,
  1. ;;662;B;66220045649;66219573166
  1. ;;662;ER;400;975,
  1. ;;662;B;66220049393;66219576633
  1. ;;662;ER;350;4777,4778,
  1. ;;662;B;66220049792;66219577884
  1. ;;662;ER;350;4175,
  1. ;;662;ER;400;651,652,
  1. ;;662;B;66220050273;66219579204
  1. ;;662;ER;350;3735,
  1. ;;662;B;66220076364;66219608607
  1. ;;662;ER;350;4527,
  1. ;;662;B;66220084134;66219618992
  1. ;;662;ER;350;3875,
  1. ;;662;B;66220096015;66219631665
  1. ;;662;ER;350;4527,4584,
  1. ;;662;ER;400;740,
  1. 663 ;;
  1. ;;663;B;66335145156;66354303336
  1. ;;663;ER;350;553,
  1. ;;663;B;66335183905;66354349535
  1. ;;663;ER;350;553,
  1. ;;663;B;66335202779;66354372618
  1. ;;663;ER;350;225,
  1. ;;663;B;66335218249;66354391533
  1. ;;663;ER;350;1802,