XUTMTDL ;SEA/RDS - TaskMan: ToolKit, Delete List ;7/21/95 08:38
;;8.0;KERNEL;**1**;Jul 05, 1995
;
SCHED ;Lookup Tasks In Schedule File
N ZT,ZT1,ZT2,ZT3,ZT4,ZT5,ZT6,ZTF,ZTS S ZTSK=0 K ^TMP($J,"XUTMTDL")
S ZT1="" F ZT=0:0 S ZT1=$O(^%ZTSCH(ZT1)),ZT2="" Q:'ZT1 F ZT=0:0 S ZT2=$O(^%ZTSCH(ZT1,ZT2)) Q:ZT2="" S ZTS=ZT2 D SCREEN I ZTF D DQSCHED,DELETE
S ZT1="" F ZT=0:0 S ZT1=$O(^%ZTSCH("IO",ZT1)),ZT2="" Q:ZT1="" F ZT=0:0 S ZT2=$O(^%ZTSCH("IO",ZT1,ZT2)),ZT3="" Q:ZT2="" F ZT=0:0 S ZT3=$O(^%ZTSCH("IO",ZT1,ZT2,ZT3)) Q:ZT3="" S ZTS=ZT3 D SCREEN I ZTF D DQIO,DELETE
S ZT1="" F ZT=0:0 S ZT1=$O(^%ZTSCH("JOB",ZT1)),ZT2="" Q:ZT1="" F ZT=0:0 S ZT2=$O(^%ZTSCH("JOB",ZT1,ZT2)) Q:ZT2="" S ZTS=ZT2 D SCREEN I ZTF D DQJOB,DELETE
S ZT1="" F ZT=0:0 S ZT1=$O(^%ZTSCH("LINK",ZT1)),ZT2="" Q:ZT1="" F ZT=0:0 S ZT2=$O(^%ZTSCH("LINK",ZT1,ZT2)),ZT3="" Q:ZT2="" F ZT=0:0 S ZT3=$O(^%ZTSCH("LINK",ZT1,ZT2,ZT3)) Q:ZT3="" S ZTS=ZT3 D SCREEN I ZTF D DQLINK,DELETE
;
TASK ;delete unscheduled tasks in Task file
S ZT1="" F ZT=0:0 S ZT1=$O(^TMP($J,"XUTMT",ZT1)) Q:ZT1="" D RANGE:$D(^(ZT1))=10 I $D(^TMP($J,"XUTMT",ZT1))=1,$D(^%ZTSK(ZT1)) S ZTS=ZT1 D SCREEN I ZTF D DELETE
K ^TMP($J,"XUTMTDL") Q
;
RANGE ;TASK--process a range
S ZT3=ZT1,(ZT2,ZTS)=$O(^TMP($J,"XUTMT",ZT1,""))
I $D(^%ZTSK(ZTS)) D SCREEN I ZTF D DELETE
F ZT=0:0 S ZTS=$O(^%ZTSK(ZTS)) Q:ZTS>ZT3!'ZTS D SCREEN I ZTF D DELETE
Q
;
SCREEN ;Screen Tasks For Selection & User Authority To Select
L +^%ZTSK(ZTS)
S ZTF=0 I '$D(^TMP($J,"XUTMT",ZTS)) S ZT5=$O(^TMP($J,"XUTMT",ZTS)) G SCRX:ZT5="" S ZT6=$O(^(ZT5,"")) G SCRX:ZT6>ZTS!'ZT6
I 'ZTKEY I $S($D(^%ZTSK(ZTS,0))[0:1,$P(^%ZTSK(ZTS,0),U,11)_","_$P(^(0),U,12)=XUTMUCI:DUZ'=$P(^(0),U,3),1:ZTNAME'=$P(^(0),U,10)) G SCRX
S ZTF=1
SCRX L -^%ZTSK(ZTS) Q
;
DQSCHED ;Dequeue A Schedule List Entry
L +^%ZTSCH(ZT1,ZT2) K ^%ZTSCH(ZT1,ZT2) L -^%ZTSCH(ZT1,ZT2) Q
;
DQIO ;Dequeue A Device Waiting List
N %ZTIO,ZTDTH,ZTSK S %ZTIO=ZT1,ZTDTH=ZT2,ZTSK=ZT3 L +^%ZTSK(ZTSK),+^%ZTSCH("IO") D DQ^%ZTM4 L -^%ZTSCH("IO"),-^%ZTSK(ZTSK) Q
;
DQJOB ;Dequeue A Submanager Waiting List Entry
L +^%ZTSK(ZT2),+^%ZTSCH("JOB",ZT1,ZT2) K ^%ZTSCH("JOB",ZT1,ZT2) L -^%ZTSCH("JOB"),-^%ZTSK(ZT2) Q
;
DQLINK ;Dequeue A Link Waiting List Entry
L +^%ZTSCH("LINK") K ^%ZTSCH("LINK",ZT1,ZT2,ZT3) L -^%ZTSCH("LINK") Q
;
DELETE ;Delete Unscreened Tasks That Are Not Currently Running
L +^%ZTSK(ZTS) I '$D(^%ZTSCH("TASK",ZTS)) K ^%ZTSK(ZTS) I '$D(^TMP($J,"XUTMTDL",ZTS)) S ^(ZTS)="",ZTSK=ZTSK+1
L -^%ZTSK(ZTS) Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUTMTDL 2524 printed Apr 09, 2024@21:12:16 Page 2
XUTMTDL ;SEA/RDS - TaskMan: ToolKit, Delete List ;7/21/95 08:38
+1 ;;8.0;KERNEL;**1**;Jul 05, 1995
+2 ;
SCHED ;Lookup Tasks In Schedule File
+1 NEW ZT,ZT1,ZT2,ZT3,ZT4,ZT5,ZT6,ZTF,ZTS
SET ZTSK=0
KILL ^TMP($JOB,"XUTMTDL")
+2 SET ZT1=""
FOR ZT=0:0
SET ZT1=$ORDER(^%ZTSCH(ZT1))
SET ZT2=""
if 'ZT1
QUIT
FOR ZT=0:0
SET ZT2=$ORDER(^%ZTSCH(ZT1,ZT2))
if ZT2=""
QUIT
SET ZTS=ZT2
DO SCREEN
IF ZTF
DO DQSCHED
DO DELETE
+3 SET ZT1=""
FOR ZT=0:0
SET ZT1=$ORDER(^%ZTSCH("IO",ZT1))
SET ZT2=""
if ZT1=""
QUIT
FOR ZT=0:0
SET ZT2=$ORDER(^%ZTSCH("IO",ZT1,ZT2))
SET ZT3=""
if ZT2=""
QUIT
FOR ZT=0:0
SET ZT3=$ORDER(^%ZTSCH("IO",ZT1,ZT2,ZT3))
if ZT3=""
QUIT
SET ZTS=ZT3
DO SCREEN
IF ZTF
DO DQIO
DO DELETE
+4 SET ZT1=""
FOR ZT=0:0
SET ZT1=$ORDER(^%ZTSCH("JOB",ZT1))
SET ZT2=""
if ZT1=""
QUIT
FOR ZT=0:0
SET ZT2=$ORDER(^%ZTSCH("JOB",ZT1,ZT2))
if ZT2=""
QUIT
SET ZTS=ZT2
DO SCREEN
IF ZTF
DO DQJOB
DO DELETE
+5 SET ZT1=""
FOR ZT=0:0
SET ZT1=$ORDER(^%ZTSCH("LINK",ZT1))
SET ZT2=""
if ZT1=""
QUIT
FOR ZT=0:0
SET ZT2=$ORDER(^%ZTSCH("LINK",ZT1,ZT2))
SET ZT3=""
if ZT2=""
QUIT
FOR ZT=0:0
SET ZT3=$ORDER(^%ZTSCH("LINK",ZT1,ZT2,ZT3))
if ZT3=""
QUIT
SET ZTS=ZT3
DO SCREEN
IF ZTF
DO DQLINK
DO DELETE
+6 ;
TASK ;delete unscheduled tasks in Task file
+1 SET ZT1=""
FOR ZT=0:0
SET ZT1=$ORDER(^TMP($JOB,"XUTMT",ZT1))
if ZT1=""
QUIT
if $DATA(^(ZT1))=10
DO RANGE
IF $DATA(^TMP($JOB,"XUTMT",ZT1))=1
IF $DATA(^%ZTSK(ZT1))
SET ZTS=ZT1
DO SCREEN
IF ZTF
DO DELETE
+2 KILL ^TMP($JOB,"XUTMTDL")
QUIT
+3 ;
RANGE ;TASK--process a range
+1 SET ZT3=ZT1
SET (ZT2,ZTS)=$ORDER(^TMP($JOB,"XUTMT",ZT1,""))
+2 IF $DATA(^%ZTSK(ZTS))
DO SCREEN
IF ZTF
DO DELETE
+3 FOR ZT=0:0
SET ZTS=$ORDER(^%ZTSK(ZTS))
if ZTS>ZT3!'ZTS
QUIT
DO SCREEN
IF ZTF
DO DELETE
+4 QUIT
+5 ;
SCREEN ;Screen Tasks For Selection & User Authority To Select
+1 LOCK +^%ZTSK(ZTS)
+2 SET ZTF=0
IF '$DATA(^TMP($JOB,"XUTMT",ZTS))
SET ZT5=$ORDER(^TMP($JOB,"XUTMT",ZTS))
if ZT5=""
GOTO SCRX
SET ZT6=$ORDER(^(ZT5,""))
if ZT6>ZTS!'ZT6
GOTO SCRX
+3 IF 'ZTKEY
IF $SELECT($DATA(^%ZTSK(ZTS,0))[0:1,$PIECE(^%ZTSK(ZTS,0),U,11)_","_$PIECE(^(0),U,12)=XUTMUCI:DUZ'=$PIECE(^(0),U,3),1:ZTNAME'=$PIECE(^(0),U,10))
GOTO SCRX
+4 SET ZTF=1
SCRX LOCK -^%ZTSK(ZTS)
QUIT
+1 ;
DQSCHED ;Dequeue A Schedule List Entry
+1 LOCK +^%ZTSCH(ZT1,ZT2)
KILL ^%ZTSCH(ZT1,ZT2)
LOCK -^%ZTSCH(ZT1,ZT2)
QUIT
+2 ;
DQIO ;Dequeue A Device Waiting List
+1 NEW %ZTIO,ZTDTH,ZTSK
SET %ZTIO=ZT1
SET ZTDTH=ZT2
SET ZTSK=ZT3
LOCK +^%ZTSK(ZTSK),+^%ZTSCH("IO")
DO DQ^%ZTM4
LOCK -^%ZTSCH("IO"),-^%ZTSK(ZTSK)
QUIT
+2 ;
DQJOB ;Dequeue A Submanager Waiting List Entry
+1 LOCK +^%ZTSK(ZT2),+^%ZTSCH("JOB",ZT1,ZT2)
KILL ^%ZTSCH("JOB",ZT1,ZT2)
LOCK -^%ZTSCH("JOB"),-^%ZTSK(ZT2)
QUIT
+2 ;
DQLINK ;Dequeue A Link Waiting List Entry
+1 LOCK +^%ZTSCH("LINK")
KILL ^%ZTSCH("LINK",ZT1,ZT2,ZT3)
LOCK -^%ZTSCH("LINK")
QUIT
+2 ;
DELETE ;Delete Unscreened Tasks That Are Not Currently Running
+1 LOCK +^%ZTSK(ZTS)
IF '$DATA(^%ZTSCH("TASK",ZTS))
KILL ^%ZTSK(ZTS)
IF '$DATA(^TMP($JOB,"XUTMTDL",ZTS))
SET ^(ZTS)=""
SET ZTSK=ZTSK+1
+2 LOCK -^%ZTSK(ZTS)
QUIT
+3 ;
