%ZTM4 ;SEA/RDS-TaskMan: Manager, (Waiting List) ;06/19/2000 09:32
;;8.0;KERNEL;**1,118,127,162**;Jul 03, 1995
;
;^%ZTSK(ZTSK) must be locked before call
NQ ;enter a task on the busy device waiting lists
N ZT,ZT1,ZT2,ZT3,ZT4,ZT5,ZTHG,ZTI
K ^%ZTSK(ZTSK,.26) S ZTHG="" ;L +^%ZTSCH("IO")
I ZTIOT'="HG" D I ZTIO(1)="DIRECT" G NQX
. I $D(^%ZTSCH("IO",%ZTIO))[0 S ^(%ZTIO)=ZTIOT
. S ^%ZTSK(ZTSK,.26,%ZTIO)="",^%ZTSCH("IO",%ZTIO,ZTDTH,ZTSK)=""
. I (ZTIO(1)="DIRECT")!('$D(^%ZIS(1,"AHG",ZTIOS))) Q
. S ZT2=""
. F S ZT2=$O(^%ZIS(1,"AHG",ZTIOS,ZT2)) Q:ZT2="" D NAME,ADD
. Q
I ZTIOT="HG" S ZT2=ZTIOS D ADD
I ZTHG]"" S ^%ZTSK(ZTSK,.26)=ZTHG
NQX Q
;
NAME ;NQ--save name of hunt group
S ZTS=$G(^%ZIS(1,ZT2,0))
S ZTN=$P(ZTS,U) I ZTN="" Q
I ZTHG="" S ZTHG=ZTN Q
S ZTHG=ZTHG_","_ZTN
Q
;
ADD ;NQ--add the devices in this hunt group to the list the task waits for
N ZTI,ZT5 S ZT5=""
F S ZT5=$O(^%ZIS(1,ZT2,"HG","B",ZT5)) Q:ZT5="" D
.S ZTI=$P($G(^%ZIS(1,ZT5,0)),U,2) ;Get $I
.I ZTI="" Q
.I $D(^%ZTSCH("IO",ZTI))[0 S ^%ZTSCH("IO",ZTI)=$P($G(^%ZIS(1,ZT5,"TYPE")),"^") ;Get type
.S ^%ZTSCH("IO",ZTI,ZTDTH,ZTSK)="",^%ZTSK(ZTSK,.26,ZTI)=""
Q
;
DQ ;Remove A Task From The Busy Device Waiting Lists, TASK is LOCKED
N ZT,ZT1,ZTL
K ^%ZTSCH("IO",%ZTIO,ZTDTH,ZTSK)
S ZT1=""
F S ZT1=$O(^%ZTSK(ZTSK,.26,ZT1)) Q:ZT1="" K ^%ZTSCH("IO",ZT1,ZTDTH,ZTSK)
K ^%ZTSK(ZTSK,.26) Q
;
KILL ;POST^%ZTMS4, Call To Delete A Task And Unschedule It Completely
;As long as ^%ZTSK(ZTSK) is locked we can remove any reference.
N ZTDTH
I $D(^%ZTSK(ZTSK,0))[0 K ^%ZTSK(ZTSK) Q ;No task to work on.
S ZTDTH=$G(^%ZTSK(ZTSK,.04)) S:ZTDTH="" ZTDTH=$$H3^%ZTM($P(^%ZTSK(ZTSK,0),U,6))
I %ZTIO]"",$D(^%ZTSK(ZTSK,0))#2,$P(^(0),U,6)]"" D DQ
K ^%ZTSK(ZTSK)
N ZT,ZT1,ZT2 D US
Q
;
US ;Un-Schedule a task from all lists
;S ZT1="" F S ZT1=$O(^%ZTSCH("JOB",ZT1)) Q:ZT1="" I $D(^(ZT1,ZTSK)) K ^(ZTSK)
;S ZT1="" F S ZT1=$O(^%ZTSCH(ZT1)) Q:'ZT1 I $D(^(ZT1,ZTSK)) K ^(ZTSK)
K ^%ZTSCH(ZTDTH,ZTSK),^%ZTSCH("JOB",ZTDTH,ZTSK)
S ZT1="" F S ZT1=$O(^%ZTSCH("C",ZT1)) Q:ZT1="" K ^%ZTSCH("C",ZT1,ZTDTH,ZTSK)
;Any others??
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HZTM4 2161 printed Apr 09, 2024@21:15:12 Page 2
%ZTM4 ;SEA/RDS-TaskMan: Manager, (Waiting List) ;06/19/2000 09:32
+1 ;;8.0;KERNEL;**1,118,127,162**;Jul 03, 1995
+2 ;
+3 ;^%ZTSK(ZTSK) must be locked before call
NQ ;enter a task on the busy device waiting lists
+1 NEW ZT,ZT1,ZT2,ZT3,ZT4,ZT5,ZTHG,ZTI
+2 ;L +^%ZTSCH("IO")
KILL ^%ZTSK(ZTSK,.26)
SET ZTHG=""
+3 IF ZTIOT'="HG"
Begin DoDot:1
+4 IF $DATA(^%ZTSCH("IO",%ZTIO))[0
SET ^(%ZTIO)=ZTIOT
+5 SET ^%ZTSK(ZTSK,.26,%ZTIO)=""
SET ^%ZTSCH("IO",%ZTIO,ZTDTH,ZTSK)=""
+6 IF (ZTIO(1)="DIRECT")!('$DATA(^%ZIS(1,"AHG",ZTIOS)))
QUIT
+7 SET ZT2=""
+8 FOR
SET ZT2=$ORDER(^%ZIS(1,"AHG",ZTIOS,ZT2))
if ZT2=""
QUIT
DO NAME
DO ADD
+9 QUIT
End DoDot:1
IF ZTIO(1)="DIRECT"
GOTO NQX
+10 IF ZTIOT="HG"
SET ZT2=ZTIOS
DO ADD
+11 IF ZTHG]""
SET ^%ZTSK(ZTSK,.26)=ZTHG
NQX QUIT
+1 ;
NAME ;NQ--save name of hunt group
+1 SET ZTS=$GET(^%ZIS(1,ZT2,0))
+2 SET ZTN=$PIECE(ZTS,U)
IF ZTN=""
QUIT
+3 IF ZTHG=""
SET ZTHG=ZTN
QUIT
+4 SET ZTHG=ZTHG_","_ZTN
+5 QUIT
+6 ;
ADD ;NQ--add the devices in this hunt group to the list the task waits for
+1 NEW ZTI,ZT5
SET ZT5=""
+2 FOR
SET ZT5=$ORDER(^%ZIS(1,ZT2,"HG","B",ZT5))
if ZT5=""
QUIT
Begin DoDot:1
+3 ;Get $I
SET ZTI=$PIECE($GET(^%ZIS(1,ZT5,0)),U,2)
+4 IF ZTI=""
QUIT
+5 ;Get type
IF $DATA(^%ZTSCH("IO",ZTI))[0
SET ^%ZTSCH("IO",ZTI)=$PIECE($GET(^%ZIS(1,ZT5,"TYPE")),"^")
+6 SET ^%ZTSCH("IO",ZTI,ZTDTH,ZTSK)=""
SET ^%ZTSK(ZTSK,.26,ZTI)=""
End DoDot:1
+7 QUIT
+8 ;
DQ ;Remove A Task From The Busy Device Waiting Lists, TASK is LOCKED
+1 NEW ZT,ZT1,ZTL
+2 KILL ^%ZTSCH("IO",%ZTIO,ZTDTH,ZTSK)
+3 SET ZT1=""
+4 FOR
SET ZT1=$ORDER(^%ZTSK(ZTSK,.26,ZT1))
if ZT1=""
QUIT
KILL ^%ZTSCH("IO",ZT1,ZTDTH,ZTSK)
+5 KILL ^%ZTSK(ZTSK,.26)
QUIT
+6 ;
KILL ;POST^%ZTMS4, Call To Delete A Task And Unschedule It Completely
+1 ;As long as ^%ZTSK(ZTSK) is locked we can remove any reference.
+2 NEW ZTDTH
+3 ;No task to work on.
IF $DATA(^%ZTSK(ZTSK,0))[0
KILL ^%ZTSK(ZTSK)
QUIT
+4 SET ZTDTH=$GET(^%ZTSK(ZTSK,.04))
if ZTDTH=""
SET ZTDTH=$$H3^%ZTM($PIECE(^%ZTSK(ZTSK,0),U,6))
+5 IF %ZTIO]""
IF $DATA(^%ZTSK(ZTSK,0))#2
IF $PIECE(^(0),U,6)]""
DO DQ
+6 KILL ^%ZTSK(ZTSK)
+7 NEW ZT,ZT1,ZT2
DO US
+8 QUIT
+9 ;
US ;Un-Schedule a task from all lists
+1 ;S ZT1="" F S ZT1=$O(^%ZTSCH("JOB",ZT1)) Q:ZT1="" I $D(^(ZT1,ZTSK)) K ^(ZTSK)
+2 ;S ZT1="" F S ZT1=$O(^%ZTSCH(ZT1)) Q:'ZT1 I $D(^(ZT1,ZTSK)) K ^(ZTSK)
+3 KILL ^%ZTSCH(ZTDTH,ZTSK),^%ZTSCH("JOB",ZTDTH,ZTSK)
+4 SET ZT1=""
FOR
SET ZT1=$ORDER(^%ZTSCH("C",ZT1))
if ZT1=""
QUIT
KILL ^%ZTSCH("C",ZT1,ZTDTH,ZTSK)
+5 ;Any others??
+6 QUIT
