XUTMQ1 ;SEA/RDS - TaskMan: Option, ZTMINQ, Part 3 (Modules) ;4/20/95 10:33
;;8.0;KERNEL;;Jul 10, 1995
;
ENTRY G ^XUTMQ
;
PRINT ;Subroutine--Print A Task
N XUTMT,ZTSK W:'ZTC @IOF,!,ZTH,! W:'ZTF !,"-------------------------------------------------------------------------------"
S X=0,ZTF=0 D EN^XUTMTP(ZTS) I $Y>18 W ! S ZTF=1,DIR(0)="E" D ^DIR S X=$D(DTOUT)!$D(DUOUT) Q:X W @IOF
S ZTC=ZTC+1 Q
;
RANGE ;LIST--Process A Range
S ZT1=$P(ZT,"-"),ZT2=$P(ZT,"-",2),ZTS=ZT1 I $D(^%ZTSK(ZTS))!($D(^%ZTSCH("TASK",ZTS))) D PRINT Q:X
F ZTJ=0:0 S ZTS=$O(^%ZTSCH("TASK",ZTS)) Q:ZTS=""!(ZTS>ZT2) I '$D(^%ZTSK(ZTS)) D PRINT Q:X
Q:X S ZTS=ZT1 F ZTJ=0:0 S ZTS=$O(^%ZTSK(ZTS)) Q:ZTS>ZT2!'ZTS D PRINT Q:X
Q
;
OUT ;Tag for breaking FOR scope to exit listing early
Q
;
EVERY ;Every task.
N DIR,DIRUT,DTOUT,DUOUT,X,ZT1,ZT2,ZTC,ZTF,ZTH,ZTREC,ZTS
K ^TMP($J)
S ZTC=0,ZTF=1,ZTH="Every task..."
W !!,"Building list of sorted tasks..."
;
E1 S ZTS=0 F S ZTS=$O(^%ZTSK(ZTS)) Q:'ZTS D
.S ZTREC=$G(^%ZTSK(ZTS,0)) Q:'$L(ZTREC)
. D SORT(+$P(ZTREC,U,6),ZTS)
.Q
;
E2 S ZTS=0 F S ZTS=$O(^%ZTSCH("TASK",ZTS)) Q:'ZTS D
.I $D(^%ZTSK(ZTS)) Q
. D SORT($H,ZTS) ;S ^TMP($J,99999-$H,99999-$P($H,",",2),ZTS)=""
.Q
W "finished!"
;
E3 ;
G:$O(^TMP($J,0))="" E4
S ZTSAVE("^TMP($J,")="" D EN^XUTMDEVQ("LIST^XUTMQ","TASK LIST",.ZTSAVE)
K ^TMP($J)
Q
S ZT1="" F S ZT1=$O(^TMP($J,ZT1),-1) Q:ZT1="" D I X Q
. S ZTS=0 F S ZTS=$O(^TMP($J,ZT1,ZTS)) Q:'ZTS D PRINT I X Q
.Q
I X K ^TMP($J) Q
;
E4 I 'ZTC W !!,"This volume set has no defined tasks!"
W ! S DIR(0)="E",DIR("A")="Press RETURN to continue" D
.I ZTC S DIR("A")="End of listing. "_DIR("A")
D ^DIR K ^TMP($J) Q
;
LIST ;List of tasks.
N DIR,DIRUT,DTOUT,DUOUT,X,ZT,ZT1,ZT2,ZTC,ZTF,ZTH,ZTI,ZTJ,XUTMT,ZTS,ZTSK
L0 S XUTMT(0)="AL",XUTMT("A")="Enter list to display: ",XUTMT("??")="@" D ^XUTMT K ^TMP($J,"XUTMT") Q:ZTSK="" S X=0,ZTC=0,ZTF=1,ZTH="All tasks within the list "_ZTSK_"..."
F ZTI=1:1:$L(ZTSK,",") S ZT=$P(ZTSK,",",ZTI) D RANGE:ZT["-" G OUT:X I ZT'["-",$D(^%ZTSK(ZT))!($D(^%ZTSCH("TASK",ZT))) S ZTS=ZT D PRINT G OUT:X
I ZTC W !!,"There ",$S(ZTC=1:"is ",1:"are "),ZTC," task",$S(ZTC=1:"",1:"s")," in that list."
I 'ZTC W !!?5,$S(ZTSK["-"!(ZTSK[","):"None of those tasks are ",1:"That task is not "),"defined in this volume set's Task File."
K DIR,DIRUT,DTOUT,DUOUT,X,ZT,ZT1,ZT2,ZTC,ZTF,ZTI,ZTJ,XUTMT,ZTS,ZTSK W ! G L0
;
NOT ;Unsuccessful tasks.
N DIR,DIRUT,DTOUT,DUOUT,X,ZT1,ZT2,ZTC,ZTF,ZTH,ZTS,ZTSCREEN,ZTSK
K ^TMP($J)
S X=0,ZTH="Unsuccessful tasks...",ZTC=0,ZTF=1
W !!,"Searching for unsuccessful tasks..."
;
N1 S ZTS=0 F S ZTS=$O(^%ZTSK(ZTS)) Q:'ZTS D
.I $D(^%ZTSK(ZTS,0))[0 Q
.I $D(^%ZTSK(ZTS,.1))[0 Q
.I "BCDEFIL"'[$P(^%ZTSK(ZTS,.1),U) Q
.S XUTMT=ZTS,XUTMT(0)="L" D ^XUTMT
.I '$D(ZTSK("A")),'$D(ZTSK("IO")),'$D(ZTSK("JOB")),'$D(ZTSK("LINK")),'$D(ZTSK("TASK")) D SORT(+$P(ZTSK(0),U,6),ZTS)
.Q
W "Finished!",!
;
N2 ;
G:$O(^TMP($J,0))="" N3
S ZTSAVE("^TMP($J,")="" D EN^XUTMDEVQ("LIST^XUTMQ","TASK LIST",.ZTSAVE)
K ^TMP($J)
Q
S ZT1="" F S ZT1=$O(^TMP($J,ZT1),-1) Q:ZT1="" D I X Q
. S ZTS=0 F S ZTS=$O(^TMP($J,ZT1,ZTS)) Q:'ZTS D I X Q
.. D PRINT
.Q
I X K ^TMP($J) Q
;
N3 I 'ZTC W !!,"No tasks failed to run to completion."
W ! S DIR(0)="E",DIR("A")="Press RETURN to continue" D
.I ZTC S DIR("A")="End of listing. "_DIR("A")
D ^DIR K ^TMP($J) Q
;
SORT(ZTDTH,ZTSK) ;
Q:(ZTSK'>0)!(ZTDTH'>0)
I ZTDTH["," S ZTDTH=$$H3^%ZTM(ZTDTH)
S ^TMP($J,ZTDTH,ZTSK)=""
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUTMQ1 3550 printed Apr 09, 2024@21:17:19 Page 2
XUTMQ1 ;SEA/RDS - TaskMan: Option, ZTMINQ, Part 3 (Modules) ;4/20/95 10:33
+1 ;;8.0;KERNEL;;Jul 10, 1995
+2 ;
ENTRY GOTO ^XUTMQ
+1 ;
PRINT ;Subroutine--Print A Task
+1 NEW XUTMT,ZTSK
if 'ZTC
WRITE @IOF,!,ZTH,!
if 'ZTF
WRITE !,"-------------------------------------------------------------------------------"
+2 SET X=0
SET ZTF=0
DO EN^XUTMTP(ZTS)
IF $Y>18
WRITE !
SET ZTF=1
SET DIR(0)="E"
DO ^DIR
SET X=$DATA(DTOUT)!$DATA(DUOUT)
if X
QUIT
WRITE @IOF
+3 SET ZTC=ZTC+1
QUIT
+4 ;
RANGE ;LIST--Process A Range
+1 SET ZT1=$PIECE(ZT,"-")
SET ZT2=$PIECE(ZT,"-",2)
SET ZTS=ZT1
IF $DATA(^%ZTSK(ZTS))!($DATA(^%ZTSCH("TASK",ZTS)))
DO PRINT
if X
QUIT
+2 FOR ZTJ=0:0
SET ZTS=$ORDER(^%ZTSCH("TASK",ZTS))
if ZTS=""!(ZTS>ZT2)
QUIT
IF '$DATA(^%ZTSK(ZTS))
DO PRINT
if X
QUIT
+3 if X
QUIT
SET ZTS=ZT1
FOR ZTJ=0:0
SET ZTS=$ORDER(^%ZTSK(ZTS))
if ZTS>ZT2!'ZTS
QUIT
DO PRINT
if X
QUIT
+4 QUIT
+5 ;
OUT ;Tag for breaking FOR scope to exit listing early
+1 QUIT
+2 ;
EVERY ;Every task.
+1 NEW DIR,DIRUT,DTOUT,DUOUT,X,ZT1,ZT2,ZTC,ZTF,ZTH,ZTREC,ZTS
+2 KILL ^TMP($JOB)
+3 SET ZTC=0
SET ZTF=1
SET ZTH="Every task..."
+4 WRITE !!,"Building list of sorted tasks..."
+5 ;
E1 SET ZTS=0
FOR
SET ZTS=$ORDER(^%ZTSK(ZTS))
if 'ZTS
QUIT
Begin DoDot:1
+1 SET ZTREC=$GET(^%ZTSK(ZTS,0))
if '$LENGTH(ZTREC)
QUIT
+2 DO SORT(+$PIECE(ZTREC,U,6),ZTS)
+3 QUIT
End DoDot:1
+4 ;
E2 SET ZTS=0
FOR
SET ZTS=$ORDER(^%ZTSCH("TASK",ZTS))
if 'ZTS
QUIT
Begin DoDot:1
+1 IF $DATA(^%ZTSK(ZTS))
QUIT
+2 ;S ^TMP($J,99999-$H,99999-$P($H,",",2),ZTS)=""
DO SORT($HOROLOG,ZTS)
+3 QUIT
End DoDot:1
+4 WRITE "finished!"
+5 ;
E3 ;
+1 if $ORDER(^TMP($JOB,0))=""
GOTO E4
+2 SET ZTSAVE("^TMP($J,")=""
DO EN^XUTMDEVQ("LIST^XUTMQ","TASK LIST",.ZTSAVE)
+3 KILL ^TMP($JOB)
+4 QUIT
+5 SET ZT1=""
FOR
SET ZT1=$ORDER(^TMP($JOB,ZT1),-1)
if ZT1=""
QUIT
Begin DoDot:1
+6 SET ZTS=0
FOR
SET ZTS=$ORDER(^TMP($JOB,ZT1,ZTS))
if 'ZTS
QUIT
DO PRINT
IF X
QUIT
+7 QUIT
End DoDot:1
IF X
QUIT
+8 IF X
KILL ^TMP($JOB)
QUIT
+9 ;
E4 IF 'ZTC
WRITE !!,"This volume set has no defined tasks!"
+1 WRITE !
SET DIR(0)="E"
SET DIR("A")="Press RETURN to continue"
Begin DoDot:1
+2 IF ZTC
SET DIR("A")="End of listing. "_DIR("A")
End DoDot:1
+3 DO ^DIR
KILL ^TMP($JOB)
QUIT
+4 ;
LIST ;List of tasks.
+1 NEW DIR,DIRUT,DTOUT,DUOUT,X,ZT,ZT1,ZT2,ZTC,ZTF,ZTH,ZTI,ZTJ,XUTMT,ZTS,ZTSK
L0 SET XUTMT(0)="AL"
SET XUTMT("A")="Enter list to display: "
SET XUTMT("??")="@"
DO ^XUTMT
KILL ^TMP($JOB,"XUTMT")
if ZTSK=""
QUIT
SET X=0
SET ZTC=0
SET ZTF=1
SET ZTH="All tasks within the list "_ZTSK_"..."
+1 FOR ZTI=1:1:$LENGTH(ZTSK,",")
SET ZT=$PIECE(ZTSK,",",ZTI)
if ZT["-"
DO RANGE
if X
GOTO OUT
IF ZT'["-"
IF $DATA(^%ZTSK(ZT))!($DATA(^%ZTSCH("TASK",ZT)))
SET ZTS=ZT
DO PRINT
if X
GOTO OUT
+2 IF ZTC
WRITE !!,"There ",$SELECT(ZTC=1:"is ",1:"are "),ZTC," task",$SELECT(ZTC=1:"",1:"s")," in that list."
+3 IF 'ZTC
WRITE !!?5,$SELECT(ZTSK["-"!(ZTSK[","):"None of those tasks are ",1:"That task is not "),"defined in this volume set's Task File."
+4 KILL DIR,DIRUT,DTOUT,DUOUT,X,ZT,ZT1,ZT2,ZTC,ZTF,ZTI,ZTJ,XUTMT,ZTS,ZTSK
WRITE !
GOTO L0
+5 ;
NOT ;Unsuccessful tasks.
+1 NEW DIR,DIRUT,DTOUT,DUOUT,X,ZT1,ZT2,ZTC,ZTF,ZTH,ZTS,ZTSCREEN,ZTSK
+2 KILL ^TMP($JOB)
+3 SET X=0
SET ZTH="Unsuccessful tasks..."
SET ZTC=0
SET ZTF=1
+4 WRITE !!,"Searching for unsuccessful tasks..."
+5 ;
N1 SET ZTS=0
FOR
SET ZTS=$ORDER(^%ZTSK(ZTS))
if 'ZTS
QUIT
Begin DoDot:1
+1 IF $DATA(^%ZTSK(ZTS,0))[0
QUIT
+2 IF $DATA(^%ZTSK(ZTS,.1))[0
QUIT
+3 IF "BCDEFIL"'[$PIECE(^%ZTSK(ZTS,.1),U)
QUIT
+4 SET XUTMT=ZTS
SET XUTMT(0)="L"
DO ^XUTMT
+5 IF '$DATA(ZTSK("A"))
IF '$DATA(ZTSK("IO"))
IF '$DATA(ZTSK("JOB"))
IF '$DATA(ZTSK("LINK"))
IF '$DATA(ZTSK("TASK"))
DO SORT(+$PIECE(ZTSK(0),U,6),ZTS)
+6 QUIT
End DoDot:1
+7 WRITE "Finished!",!
+8 ;
N2 ;
+1 if $ORDER(^TMP($JOB,0))=""
GOTO N3
+2 SET ZTSAVE("^TMP($J,")=""
DO EN^XUTMDEVQ("LIST^XUTMQ","TASK LIST",.ZTSAVE)
+3 KILL ^TMP($JOB)
+4 QUIT
+5 SET ZT1=""
FOR
SET ZT1=$ORDER(^TMP($JOB,ZT1),-1)
if ZT1=""
QUIT
Begin DoDot:1
+6 SET ZTS=0
FOR
SET ZTS=$ORDER(^TMP($JOB,ZT1,ZTS))
if 'ZTS
QUIT
Begin DoDot:2
+7 DO PRINT
End DoDot:2
IF X
QUIT
+8 QUIT
End DoDot:1
IF X
QUIT
+9 IF X
KILL ^TMP($JOB)
QUIT
+10 ;
N3 IF 'ZTC
WRITE !!,"No tasks failed to run to completion."
+1 WRITE !
SET DIR(0)="E"
SET DIR("A")="Press RETURN to continue"
Begin DoDot:1
+2 IF ZTC
SET DIR("A")="End of listing. "_DIR("A")
End DoDot:1
+3 DO ^DIR
KILL ^TMP($JOB)
QUIT
+4 ;
SORT(ZTDTH,ZTSK) ;
+1 if (ZTSK'>0)!(ZTDTH'>0)
QUIT
+2 IF ZTDTH[","
SET ZTDTH=$$H3^%ZTM(ZTDTH)
+3 SET ^TMP($JOB,ZTDTH,ZTSK)=""
+4 QUIT
