Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XUTMTR4

XUTMTR4.m

Go to the documentation of this file.
  1. XUTMTR4 ;SEA/RDS - TaskMan: ToolKit, Report 4 (Print List) ;5/12/94 12:08
  1. ;;8.0;KERNEL;;Jul 10, 1995
  1. MAIN ;
  1. ;print the list of tasks stored at @XUTMT("NODE")
  1. N ZTCLEAR,ZTEOL,ZTHEADER,ZTNODE,ZTNONE
  1. S ZTCLEAR=$G(XUTMT("CLEAR"))
  1. S ZTEOL=$G(XUTMT("EOL"))
  1. S ZTHEADER=$G(XUTMT("HEADER"))
  1. S ZTNODE=XUTMT("NODE")
  1. S ZTNONE=XUTMT("NONE")
  1. N DIR,DIRUT,DTOUT,DUOUT,X,Y,ZTCOUNT,ZTFIRST,ZTNEWPG,XUTMT,ZTOUT,ZTS,ZTSK
  1. S ($Y,ZTOUT,ZTCOUNT)=0,(ZTFIRST,ZTNEWPG)=1
  1. M1 ;
  1. S ZTS=0 F S ZTS=$O(@(ZTNODE_ZTS_")")) Q:'ZTS D I ZTOUT Q
  1. .I 'ZTNEWPG W !,"-------------------------------------------------------------------------------"
  1. .E D
  1. ..I ZTCLEAR!'ZTFIRST W @IOF
  1. ..I ZTHEADER]"" W !,ZTHEADER,!
  1. ..S (ZTFIRST,ZTNEWPG)=0
  1. ..Q
  1. . D EN^XUTMTP(ZTS)
  1. .S ZTCOUNT=ZTCOUNT+1
  1. .I $Y'>18 Q
  1. .S ZTNEWPG=1
  1. .W ! S DIR(0)="E" D ^DIR
  1. .S ZTOUT=$D(DIRUT)
  1. .I ZTOUT Q
  1. .W @IOF
  1. .Q
  1. I ZTOUT Q
  1. M2 ;
  1. I 'ZTCOUNT W !!,ZTNONE
  1. I 'ZTEOL Q
  1. W !
  1. S DIR(0)="E"
  1. S DIR("A")="Press RETURN to continue" D
  1. .I ZTCOUNT S DIR("A")="End of listing. "_DIR("A")
  1. D ^DIR
  1. Q
  1. ;