| 1 | XUTMTR4 ;SEA/RDS - TaskMan: ToolKit, Report 4 (Print List) ;5/12/94 12:08
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | MAIN ;
|
|---|
| 4 | ;print the list of tasks stored at @XUTMT("NODE")
|
|---|
| 5 | N ZTCLEAR,ZTEOL,ZTHEADER,ZTNODE,ZTNONE
|
|---|
| 6 | S ZTCLEAR=$G(XUTMT("CLEAR"))
|
|---|
| 7 | S ZTEOL=$G(XUTMT("EOL"))
|
|---|
| 8 | S ZTHEADER=$G(XUTMT("HEADER"))
|
|---|
| 9 | S ZTNODE=XUTMT("NODE")
|
|---|
| 10 | S ZTNONE=XUTMT("NONE")
|
|---|
| 11 | N DIR,DIRUT,DTOUT,DUOUT,X,Y,ZTCOUNT,ZTFIRST,ZTNEWPG,XUTMT,ZTOUT,ZTS,ZTSK
|
|---|
| 12 | S ($Y,ZTOUT,ZTCOUNT)=0,(ZTFIRST,ZTNEWPG)=1
|
|---|
| 13 | M1 ;
|
|---|
| 14 | S ZTS=0 F S ZTS=$O(@(ZTNODE_ZTS_")")) Q:'ZTS D I ZTOUT Q
|
|---|
| 15 | .I 'ZTNEWPG W !,"-------------------------------------------------------------------------------"
|
|---|
| 16 | .E D
|
|---|
| 17 | ..I ZTCLEAR!'ZTFIRST W @IOF
|
|---|
| 18 | ..I ZTHEADER]"" W !,ZTHEADER,!
|
|---|
| 19 | ..S (ZTFIRST,ZTNEWPG)=0
|
|---|
| 20 | ..Q
|
|---|
| 21 | . D EN^XUTMTP(ZTS)
|
|---|
| 22 | .S ZTCOUNT=ZTCOUNT+1
|
|---|
| 23 | .I $Y'>18 Q
|
|---|
| 24 | .S ZTNEWPG=1
|
|---|
| 25 | .W ! S DIR(0)="E" D ^DIR
|
|---|
| 26 | .S ZTOUT=$D(DIRUT)
|
|---|
| 27 | .I ZTOUT Q
|
|---|
| 28 | .W @IOF
|
|---|
| 29 | .Q
|
|---|
| 30 | I ZTOUT Q
|
|---|
| 31 | M2 ;
|
|---|
| 32 | I 'ZTCOUNT W !!,ZTNONE
|
|---|
| 33 | I 'ZTEOL Q
|
|---|
| 34 | W !
|
|---|
| 35 | S DIR(0)="E"
|
|---|
| 36 | S DIR("A")="Press RETURN to continue" D
|
|---|
| 37 | .I ZTCOUNT S DIR("A")="End of listing. "_DIR("A")
|
|---|
| 38 | D ^DIR
|
|---|
| 39 | Q
|
|---|
| 40 | ;
|
|---|
