XUTMTR4 ;SEA/RDS - TaskMan: ToolKit, Report 4 (Print List) ;5/12/94 12:08
;;8.0;KERNEL;;Jul 10, 1995
MAIN ;
;print the list of tasks stored at @XUTMT("NODE")
N ZTCLEAR,ZTEOL,ZTHEADER,ZTNODE,ZTNONE
S ZTCLEAR=$G(XUTMT("CLEAR"))
S ZTEOL=$G(XUTMT("EOL"))
S ZTHEADER=$G(XUTMT("HEADER"))
S ZTNODE=XUTMT("NODE")
S ZTNONE=XUTMT("NONE")
N DIR,DIRUT,DTOUT,DUOUT,X,Y,ZTCOUNT,ZTFIRST,ZTNEWPG,XUTMT,ZTOUT,ZTS,ZTSK
S ($Y,ZTOUT,ZTCOUNT)=0,(ZTFIRST,ZTNEWPG)=1
M1 ;
S ZTS=0 F S ZTS=$O(@(ZTNODE_ZTS_")")) Q:'ZTS D I ZTOUT Q
.I 'ZTNEWPG W !,"-------------------------------------------------------------------------------"
.E D
..I ZTCLEAR!'ZTFIRST W @IOF
..I ZTHEADER]"" W !,ZTHEADER,!
..S (ZTFIRST,ZTNEWPG)=0
..Q
. D EN^XUTMTP(ZTS)
.S ZTCOUNT=ZTCOUNT+1
.I $Y'>18 Q
.S ZTNEWPG=1
.W ! S DIR(0)="E" D ^DIR
.S ZTOUT=$D(DIRUT)
.I ZTOUT Q
.W @IOF
.Q
I ZTOUT Q
M2 ;
I 'ZTCOUNT W !!,ZTNONE
I 'ZTEOL Q
W !
S DIR(0)="E"
S DIR("A")="Press RETURN to continue" D
.I ZTCOUNT S DIR("A")="End of listing. "_DIR("A")
D ^DIR
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUTMTR4 1076 printed Nov 22, 2024@17:24:07 Page 2
XUTMTR4 ;SEA/RDS - TaskMan: ToolKit, Report 4 (Print List) ;5/12/94 12:08
+1 ;;8.0;KERNEL;;Jul 10, 1995
MAIN ;
+1 ;print the list of tasks stored at @XUTMT("NODE")
+2 NEW ZTCLEAR,ZTEOL,ZTHEADER,ZTNODE,ZTNONE
+3 SET ZTCLEAR=$GET(XUTMT("CLEAR"))
+4 SET ZTEOL=$GET(XUTMT("EOL"))
+5 SET ZTHEADER=$GET(XUTMT("HEADER"))
+6 SET ZTNODE=XUTMT("NODE")
+7 SET ZTNONE=XUTMT("NONE")
+8 NEW DIR,DIRUT,DTOUT,DUOUT,X,Y,ZTCOUNT,ZTFIRST,ZTNEWPG,XUTMT,ZTOUT,ZTS,ZTSK
+9 SET ($Y,ZTOUT,ZTCOUNT)=0
SET (ZTFIRST,ZTNEWPG)=1
M1 ;
+1 SET ZTS=0
FOR
SET ZTS=$ORDER(@(ZTNODE_ZTS_")"))
if 'ZTS
QUIT
Begin DoDot:1
+2 IF 'ZTNEWPG
WRITE !,"-------------------------------------------------------------------------------"
+3 IF '$TEST
Begin DoDot:2
+4 IF ZTCLEAR!'ZTFIRST
WRITE @IOF
+5 IF ZTHEADER]""
WRITE !,ZTHEADER,!
+6 SET (ZTFIRST,ZTNEWPG)=0
+7 QUIT
End DoDot:2
+8 DO EN^XUTMTP(ZTS)
+9 SET ZTCOUNT=ZTCOUNT+1
+10 IF $Y'>18
QUIT
+11 SET ZTNEWPG=1
+12 WRITE !
SET DIR(0)="E"
DO ^DIR
+13 SET ZTOUT=$DATA(DIRUT)
+14 IF ZTOUT
QUIT
+15 WRITE @IOF
+16 QUIT
End DoDot:1
IF ZTOUT
QUIT
+17 IF ZTOUT
QUIT
M2 ;
+1 IF 'ZTCOUNT
WRITE !!,ZTNONE
+2 IF 'ZTEOL
QUIT
+3 WRITE !
+4 SET DIR(0)="E"
+5 SET DIR("A")="Press RETURN to continue"
Begin DoDot:1
+6 IF ZTCOUNT
SET DIR("A")="End of listing. "_DIR("A")
End DoDot:1
+7 DO ^DIR
+8 QUIT
+9 ;
