XUTMTR3 ;SEA/RDS - TaskMan: ToolKit, Report 3 (Status 2) ;12/27/94 13:38
;;8.0;KERNEL;;Jul 10, 1995
;
TASK ;Lookup Task File Data
K ZTSK S ZTSK="" L +^%ZTSK(XUTMT) S:'$D(^%ZTSK(XUTMT)) ZTSK(.11)="UNDEFINED" S:$D(^(XUTMT))&($D(^(XUTMT,0))[0) ZTSK(.11)="INCOMPLETE"
S ZTSK=XUTMT S ZTSK(0)=$S($D(^%ZTSK(ZTSK,0))#2:^(0),1:""),ZTSK(.1)=$S($D(^(.1))#2:^(.1),1:""),ZTSK(.2)=$S($D(^(.2))#2:^(.2),1:""),ZTSK(.26)=$S($D(^(.26))#2:^(.26),1:"")
N %,%D,%H,%M,%Y,%ZTT,X,Y,ZT,ZT1,ZT2,ZT3,ZTC
;
SCHED ;Lookup Task In Schedule File
S ZT1="" F ZT=0:0 S ZT1=$O(^%ZTSCH(ZT1)) Q:'ZT1 I $D(^%ZTSCH(ZT1,ZTSK))#2 S ZTSK("A",ZT1,ZTSK)="",ZT2=^(ZTSK) I ZT2]"",$S($D(ZTSK(.11))[0:1,1:ZTSK(.11)'="UNDEFINED") S $P(ZTSK(.2),U)=ZT2
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)) Q:ZT2="" S:$D(^(ZT2,ZTSK))#2 ZTSK("IO",ZT1,ZT2,ZTSK)=""
S ZT1="" F ZT=0:0 S ZT1=$O(^%ZTSCH("JOB",ZT1)) Q:ZT1="" S:$D(^(ZT1,ZTSK))#2 ZTSK("JOB",ZT1,ZTSK)=""
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)) Q:ZT2="" S:$D(^(ZT2,ZTSK))#2 ZTSK("LINK",ZT1,ZT2,ZTSK)=""
S:$D(^%ZTSCH("TASK",ZTSK))#2 ZTSK("TASK",ZTSK)=^(ZTSK)
L -^%ZTSK(XUTMT)
;
STATUS ;Determine Status According To Lookup Data
S ZTC=0
I $D(ZTSK("A")) S ZT1="" F ZT=0:0 S ZT1=$O(ZTSK("A",ZT1)) Q:ZT1="" S ZTSK(.15,ZTC)="Scheduled to start "_$$TIME^XUTMTP(ZT1),ZTC=ZTC+1
I ZTSK(.26)]"" S ZTSK(.15,ZTC)="Waiting for hunt group"_$S(ZTSK(.26)[",":"s ",1:" ")_ZTSK(.26)_".",ZTC=ZTC+1
I ZTSK(.26)="",$D(ZTSK("IO")) S ZT1="" F ZT=0:0 S ZT1=$O(ZTSK("IO",ZT1)) Q:ZT1="" S ZTSK(.15,ZTC)="Waiting for device "_ZT1,ZTC=ZTC+1
I $D(ZTSK("JOB")) S ZTSK(.15,ZTC)="Waiting for a submanager.",ZTC=ZTC+1
I $D(ZTSK("LINK")) S ZT1="" F ZT=0:0 S ZT1=$O(ZTSK("LINK",ZT1)) Q:ZT1="" S ZTSK(.15,ZTC)="Waiting for the link to "_ZT1_" to be restored.",ZTC=ZTC+1
I $D(ZTSK("TASK")) S ZTSK(.15,ZTC)="Currently running.",ZTC=ZTC+1
I $O(ZTSK(.3))="",$D(ZTSK(.1))#2,$P(ZTSK(.1),U)]"" D ^XUTMTP0 S ZTC=ZTC+1
K XUTMT Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUTMTR3 2068 printed Apr 09, 2024@21:18:19 Page 2
XUTMTR3 ;SEA/RDS - TaskMan: ToolKit, Report 3 (Status 2) ;12/27/94 13:38
+1 ;;8.0;KERNEL;;Jul 10, 1995
+2 ;
TASK ;Lookup Task File Data
+1 KILL ZTSK
SET ZTSK=""
LOCK +^%ZTSK(XUTMT)
if '$DATA(^%ZTSK(XUTMT))
SET ZTSK(.11)="UNDEFINED"
if $DATA(^(XUTMT))&($DATA(^(XUTMT,0))[0)
SET ZTSK(.11)="INCOMPLETE"
+2 SET ZTSK=XUTMT
SET ZTSK(0)=$SELECT($DATA(^%ZTSK(ZTSK,0))#2:^(0),1:"")
SET ZTSK(.1)=$SELECT($DATA(^(.1))#2:^(.1),1:"")
SET ZTSK(.2)=$SELECT($DATA(^(.2))#2:^(.2),1:"")
SET ZTSK(.26)=$SELECT($DATA(^(.26))#2:^(.26),1:"")
+3 NEW %,%D,%H,%M,%Y,%ZTT,X,Y,ZT,ZT1,ZT2,ZT3,ZTC
+4 ;
SCHED ;Lookup Task In Schedule File
+1 SET ZT1=""
FOR ZT=0:0
SET ZT1=$ORDER(^%ZTSCH(ZT1))
if 'ZT1
QUIT
IF $DATA(^%ZTSCH(ZT1,ZTSK))#2
SET ZTSK("A",ZT1,ZTSK)=""
SET ZT2=^(ZTSK)
IF ZT2]""
IF $SELECT($DATA(ZTSK(.11))[0:1,1:ZTSK(.11)'="UNDEFINED")
SET $PIECE(ZTSK(.2),U)=ZT2
+2 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))
if ZT2=""
QUIT
if $DATA(^(ZT2,ZTSK))#2
SET ZTSK("IO",ZT1,ZT2,ZTSK)=""
+3 SET ZT1=""
FOR ZT=0:0
SET ZT1=$ORDER(^%ZTSCH("JOB",ZT1))
if ZT1=""
QUIT
if $DATA(^(ZT1,ZTSK))#2
SET ZTSK("JOB",ZT1,ZTSK)=""
+4 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))
if ZT2=""
QUIT
if $DATA(^(ZT2,ZTSK))#2
SET ZTSK("LINK",ZT1,ZT2,ZTSK)=""
+5 if $DATA(^%ZTSCH("TASK",ZTSK))#2
SET ZTSK("TASK",ZTSK)=^(ZTSK)
+6 LOCK -^%ZTSK(XUTMT)
+7 ;
STATUS ;Determine Status According To Lookup Data
+1 SET ZTC=0
+2 IF $DATA(ZTSK("A"))
SET ZT1=""
FOR ZT=0:0
SET ZT1=$ORDER(ZTSK("A",ZT1))
if ZT1=""
QUIT
SET ZTSK(.15,ZTC)="Scheduled to start "_$$TIME^XUTMTP(ZT1)
SET ZTC=ZTC+1
+3 IF ZTSK(.26)]""
SET ZTSK(.15,ZTC)="Waiting for hunt group"_$SELECT(ZTSK(.26)[",":"s ",1:" ")_ZTSK(.26)_"."
SET ZTC=ZTC+1
+4 IF ZTSK(.26)=""
IF $DATA(ZTSK("IO"))
SET ZT1=""
FOR ZT=0:0
SET ZT1=$ORDER(ZTSK("IO",ZT1))
if ZT1=""
QUIT
SET ZTSK(.15,ZTC)="Waiting for device "_ZT1
SET ZTC=ZTC+1
+5 IF $DATA(ZTSK("JOB"))
SET ZTSK(.15,ZTC)="Waiting for a submanager."
SET ZTC=ZTC+1
+6 IF $DATA(ZTSK("LINK"))
SET ZT1=""
FOR ZT=0:0
SET ZT1=$ORDER(ZTSK("LINK",ZT1))
if ZT1=""
QUIT
SET ZTSK(.15,ZTC)="Waiting for the link to "_ZT1_" to be restored."
SET ZTC=ZTC+1
+7 IF $DATA(ZTSK("TASK"))
SET ZTSK(.15,ZTC)="Currently running."
SET ZTC=ZTC+1
+8 IF $ORDER(ZTSK(.3))=""
IF $DATA(ZTSK(.1))#2
IF $PIECE(ZTSK(.1),U)]""
DO ^XUTMTP0
SET ZTC=ZTC+1
+9 KILL XUTMT
QUIT
+10 ;
