XUTMTUL ;SEA/RDS - TaskMan: ToolKit, Unschedule List ;11/18/94 11:53 [ 04/02/2003 8:29 AM ]
;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003
;;8.0;KERNEL;;Jul 10, 1995
;
SCHED ;Lookup Tasks In Schedule File
N ZT,ZT1,ZT2,ZT3,ZT4,ZT5,ZT6,ZTF,ZTS S ZTSK=0 K ^TMP($J,"XUTMTUL")
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,DQSCHED:ZTF
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,DQIO:ZTF
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,DQJOB:ZTF
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,DQLINK:ZTF
K ^TMP($J,"XUTMTUL") Q
;
SCREEN ;Screen Tasks For Selection & User Authority To Select
N X
S ZTF=0 I '$D(^TMP($J,"XUTMT",ZTS)) S ZT5=$O(^TMP($J,"XUTMT",ZTS)) Q:ZT5="" S ZT6=$O(^(ZT5,"")) Q:ZT6>ZTS!'ZT6
I 'ZTKEY S X=$G(^%ZTSK(ZTS)) I $S(X="":1,$P(X,U,11)_","_$P(X,U,12)=XUTMUCI:DUZ'=$P(X,U,3),1:ZTNAME'=$P(X,U,10)) Q
S ZTF=1 S:'$D(^TMP($J,"XUTMTUL",ZTS)) ^TMP($J,"XUTMTUL",ZTS)="",ZTSK=ZTSK+1 Q
;
DQSCHED ;Dequeue A Schedule List Entry
L +^%ZTSK(ZT2),+^%ZTSCH(ZT1,ZT2)
S:$D(^%ZTSCH(ZT1,ZT2))#2 ZT3=^(ZT2) K ^(ZT2) I ZT3]"" S:$D(^%ZTSK(ZT2)) $P(^(ZT2,.2),"^")=ZT3
S:$D(^%ZTSK(ZT2)) $P(^(ZT2,.1),"^",1,3)="F^"_$H_U_ZTNAME
L -^%ZTSCH(ZT1,ZT2),-^%ZTSK(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
S:$D(^%ZTSK(ZTSK)) $P(^(ZTSK,.1),U,1,3)="F^"_$H_U_ZTNAME
L -^%ZTSCH("IO"),^%ZTSK(ZTSK)
Q
;
DQJOB ;Dequeue A Submanager Waiting List Entry
L +^%ZTSK(ZT3),+^%ZTSCH("JOB") K ^%ZTSCH("JOB",ZT1,ZT2)
S:$D(^%ZTSK(ZT3)) $P(^(ZT3,.1),U,1,3)="F^"_$H_U_ZTNAME
L -^%ZTSCH("JOB"),-^%ZTSK(ZT3) Q
;
DQLINK ;Dequeue A Link Waiting List Entry
L +^%ZTSK(ZT3),+^%ZTSCH("LINK") K ^%ZTSCH("LINK",ZT1,ZT2,ZT3)
S:$D(^%ZTSK(ZT3)) $P(^(ZT3,.1),U,1,3)="F^"_$H_U_ZTNAME
L -^ZTSCH("LINK"),-^%ZTSK(ZT3) Q
;
XUTMTUL ;SEA/RDS - TaskMan: ToolKit, Unschedule List ;11/18/94 11:53 [ 04/02/2003 8:29 AM ]
+1 ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003
+2 ;;8.0;KERNEL;;Jul 10, 1995
+3 ;
SCHED ;Lookup Tasks In Schedule File
+1 NEW ZT,ZT1,ZT2,ZT3,ZT4,ZT5,ZT6,ZTF,ZTS
SET ZTSK=0
KILL ^TMP($JOB,"XUTMTUL")
+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
+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
+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
+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
+6 KILL ^TMP($JOB,"XUTMTUL")
QUIT
+7 ;
SCREEN ;Screen Tasks For Selection & User Authority To Select
+1 NEW X
+2 SET ZTF=0
IF '$DATA(^TMP($JOB,"XUTMT",ZTS))
SET ZT5=$ORDER(^TMP($JOB,"XUTMT",ZTS))
IF ZT5=""
QUIT
SET ZT6=$ORDER(^(ZT5,""))
IF ZT6>ZTS!'ZT6
QUIT
+3 IF 'ZTKEY
SET X=$GET(^%ZTSK(ZTS))
IF $SELECT(X="":1,$PIECE(X,U,11)_","_$PIECE(X,U,12)=XUTMUCI:DUZ'=$PIECE(X,U,3),1:ZTNAME'=$PIECE(X,U,10))
QUIT
+4 SET ZTF=1
IF '$DATA(^TMP($JOB,"XUTMTUL",ZTS))
SET ^TMP($JOB,"XUTMTUL",ZTS)=""
SET ZTSK=ZTSK+1
QUIT
+5 ;
DQSCHED ;Dequeue A Schedule List Entry
+1 LOCK +^%ZTSK(ZT2),+^%ZTSCH(ZT1,ZT2)
+2 IF $DATA(^%ZTSCH(ZT1,ZT2))#2
SET ZT3=^(ZT2)
KILL ^(ZT2)
IF ZT3]""
IF $DATA(^%ZTSK(ZT2))
SET $PIECE(^(ZT2,.2),"^")=ZT3
+3 IF $DATA(^%ZTSK(ZT2))
SET $PIECE(^(ZT2,.1),"^",1,3)="F^"_$HOROLOG_U_ZTNAME
+4 LOCK -^%ZTSCH(ZT1,ZT2),-^%ZTSK(ZT2)
+5 QUIT
+6 ;
DQIO ;Dequeue A Device Waiting List
+1 NEW %ZTIO,ZTDTH,ZTSK
+2 SET %ZTIO=ZT1
SET ZTDTH=ZT2
SET ZTSK=ZT3
LOCK +^%ZTSK(ZTSK),+^%ZTSCH("IO")
DO DQ^%ZTM4
+3 IF $DATA(^%ZTSK(ZTSK))
SET $PIECE(^(ZTSK,.1),U,1,3)="F^"_$HOROLOG_U_ZTNAME
+4 LOCK -^%ZTSCH("IO"),^%ZTSK(ZTSK)
+5 QUIT
+6 ;
DQJOB ;Dequeue A Submanager Waiting List Entry
+1 LOCK +^%ZTSK(ZT3),+^%ZTSCH("JOB")
KILL ^%ZTSCH("JOB",ZT1,ZT2)
+2 IF $DATA(^%ZTSK(ZT3))
SET $PIECE(^(ZT3,.1),U,1,3)="F^"_$HOROLOG_U_ZTNAME
+3 LOCK -^%ZTSCH("JOB"),-^%ZTSK(ZT3)
QUIT
+4 ;
DQLINK ;Dequeue A Link Waiting List Entry
+1 LOCK +^%ZTSK(ZT3),+^%ZTSCH("LINK")
KILL ^%ZTSCH("LINK",ZT1,ZT2,ZT3)
+2 IF $DATA(^%ZTSK(ZT3))
SET $PIECE(^(ZT3,.1),U,1,3)="F^"_$HOROLOG_U_ZTNAME
+3 LOCK -^ZTSCH("LINK"),-^%ZTSK(ZT3)
QUIT
+4 ;
