- 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 Jan 18, 2025@03:15:10 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 ;