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

SDRPA16.m

Go to the documentation of this file. 
  1. SDRPA16 ;BP-OIFO/ESW - UTILITY ; 6/9/04 8:30am
  1.  ;;5.3;Scheduling;**376**;Aug 13, 1993
  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. 664 ;;
  1.  ;;664;B;66428349836;66444721425
  1.  ;;664;ER;400;503,
  1.  ;;664;B;66428368268;66444741152
  1.  ;;664;ER;350;1452,
  1.  ;;664;B;66428368989;66444741953
  1.  ;;664;ER;350;4755,
  1.  ;;664;ER;400;519,
  1.  ;;664;B;66428375804;66444748723
  1.  ;;664;ER;350;3217,
  1.  ;;664;B;66428383184;66444755266
  1.  ;;664;ER;400;597,
  1.  ;;664;B;66428386245;66444758330
  1.  ;;664;ER;400;534,
  1. 666 ;;
  1.  ;;666;B;6669797547;66610952037
  1.  ;;666;ER;350;3244,
  1. 667 ;;
  1.  ;;667;B;66713122874;66738994513
  1.  ;;667;ER;350;184,
  1.  ;;667;B;66713133064;66739009240
  1.  ;;667;ER;350;1647,
  1.  ;;667;B;66713155082;66739041926
  1.  ;;667;ER;350;3290,
  1. 668 ;;
  1.  ;;668;B;66810464290;66817886230
  1.  ;;668;ER;350;4754,
  1.  ;;668;B;66810466850;66817889332
  1.  ;;668;ER;350;2207,
  1.  ;;668;B;66810474924;66817900838
  1.  ;;668;ER;350;4754,
  1.  ;;668;B;66810475458;66817901533
  1.  ;;668;ER;350;2153,
  1.  ;;668;B;66810488617;66817919364
  1.  ;;668;ER;350;4754,
  1.  ;;668;B;66810488785;66817919561
  1.  ;;668;ER;350;2140,
  1. 671 ;;
  1.  ;;671;B;67132981217;67159117106
  1.  ;;671;ER;350;833,2035,3868,
  1.  ;;671;B;67132987909;67159125467
  1.  ;;671;ER;350;4073,
  1.  ;;671;B;67133036913;67159200628
  1.  ;;671;ER;350;643,1237,
  1.  ;;671;B;67133041690;67159206920
  1.  ;;671;ER;350;4773,
  1.  ;;671;B;67133042133;67159207528
  1.  ;;671;ER;350;3832,
  1.  ;;671;B;67133045694;67159211695
  1.  ;;671;ER;350;2299,
  1.  ;;671;B;67133046570;67159212323
  1.  ;;671;ER;350;4381,
  1.  ;;671;B;67133047309;67159213658
  1.  ;;671;ER;350;3620,
  1.  ;;671;B;67133048613;67159215258
  1.  ;;671;ER;350;1902,
  1.  ;;671;B;67133050070;67159216787
  1.  ;;671;ER;350;1954,
  1.  ;;671;B;67133050455;67159217438
  1.  ;;671;ER;350;4661,
  1.  ;;671;B;67133058683;67159227958
  1.  ;;671;ER;350;3228,
  1.  ;;671;B;67133098028;67159287146
  1.  ;;671;ER;400;4927,4928,4929,4930,4931,
  1.  ;;671;B;67133111103;67159303091
  1.  ;;671;ER;350;2048,
  1.  ;;671;B;67133133529;67159334455
  1.  ;;671;ER;200;301,
  1.  ;;671;B;67133137194;67159341590
  1.  ;;671;ER;200;2161,
  1.  ;;671;B;67133141268;67159347813
  1.  ;;671;ER;200;3057,3865,
  1.  ;;671;B;67133213967;67159469557
  1.  ;;671;ER;200;3679,
  1.  ;;671;ER;350;224,611,3475,4651,
  1. 672 ;;
  1.  ;;672;B;67229599250;67247153270
  1.  ;;672;ER;350;991,
  1.  ;;672;B;67229626113;67247191361
  1.  ;;672;ER;350;1503,
  1.  ;;672;B;67229626569;67247192113
  1.  ;;672;ER;350;2080,
  1.  ;;672;B;67229627431;67247194800
  1.  ;;672;ER;350;3597,
  1.  ;;672;B;67229629617;67247197857
  1.  ;;672;ER;350;135,
  1.  ;;672;B;67229641291;67247214235
  1.  ;;672;ER;350;2778,
  1.  ;;672;B;67229652973;67247229333
  1.  ;;672;ER;350;4323,
  1.  ;;672;B;67229690512;67247282637
  1.  ;;672;ER;400;4959,
  1. 673 ;;
  1.  ;;673;B;67356533673;67315769886
  1.  ;;673;ER;350;4512,
  1.  ;;673;B;67356593151;67315849807
  1.  ;;673;ER;350;2927,
  1.  ;;673;B;67356619775;67315884695
  1.  ;;673;ER;350;3404,
  1.  ;;673;B;67356621574;67315887362
  1.  ;;673;ER;350;862,
  1. 678 ;;
  1.  ;;678;B;6784062356;67841327096
  1.  ;;678;ER;350;2133,
  1.  ;;678;B;6784064606;67841330669
  1.  ;;678;ER;350;2680,
  1. 688 ;;
  1.  ;;688;B;68830770661;68845659219
  1.  ;;688;ER;350;3609,
  1.  ;;688;B;68830785983;68845682134
  1.  ;;688;ER;400;238,
  1.  ;;688;B;68830816605;68845723675
  1.  ;;688;ER;400;527,
  1. 689 ;;
  1.  ;;689;B;68926206064;68946706330
  1.  ;;689;ER;350;3394,
  1.  ;;689;B;68926226721;68946729321
  1.  ;;689;ER;350;1414,
  1.  ;;689;B;68926228196;68946731460
  1.  ;;689;ER;350;687,
  1.  ;;689;B;68926229578;68946732672
  1.  ;;689;ER;350;3689,
  1.  ;;689;B;68926230786;68946733904
  1.  ;;689;ER;350;1692,
  1.  ;;689;B;68926231927;68946735396
  1.  ;;689;ER;350;677,
  1.  ;;689;B;68926235812;68946739193
  1.  ;;689;ER;350;447,
  1.  ;;689;B;68926238671;68946741989
  1.  ;;689;ER;350;1617,
  1.  ;;689;B;68926240742;68946744272
  1.  ;;689;ER;350;1941,
  1. 691 ;;
  1.  ;;691;B;69115467595;69199974034
  1.  ;;691;ER;350;3515,
  1.  ;;691;B;69115473812;691100057312
  1.  ;;691;ER;350;569,791,2239,3291,
  1.  ;;691;B;69115473843;691100057730
  1.  ;;691;ER;350;3558,
  1.  ;;691;B;69115474016;691100059938
  1.  ;;691;ER;350;4558,
  1.  ;;691;ER;400;1900,
  1.  ;;691;B;69115474436;691100065253
  1.  ;;691;ER;350;2084,
  1.  ;;691;B;69115475068;691100072896
  1.  ;;691;ER;350;2292,
  1.  ;;691;B;69115475285;691100076254
  1.  ;;691;ER;350;2492,
  1.  ;;691;B;69115477604;691100106895
  1.  ;;691;ER;400;4378,
  1. 695 ;;
  1.  ;;695;B;69547025705;69566977886
  1.  ;;695;ER;700;747,
  1.  ;;695;B;69547184760;69567085569
  1.  ;;695;ER;350;1522,
  1.  ;;695;B;69547228336;69567113862
  1.  ;;695;ER;350;4578,
  1.  ;;695;B;69547301923;69567168441
  1.  ;;695;ER;350;3721,
  1.  ;;695;B;69547309355;69567175635
  1.  ;;695;ER;350;4755,
  1.  ;;695;B;69547362795;69567213604
  1.  ;;695;ER;350;966,
  1.  ;;695;B;69547380956;69567225219
  1.  ;;695;ER;350;2566,
  1.  ;;695;B;69547650192;69567407656
  1.  ;;695;ER;350;4474,
  1. 756 ;;
  1.  ;;756;B;75611363180;75615911397
  1.  ;;756;ER;700;2781,