source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUTMTR4.m@ 1427

Last change on this file since 1427 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1XUTMTR4 ;SEA/RDS - TaskMan: ToolKit, Report 4 (Print List) ;5/12/94 12:08
2 ;;8.0;KERNEL;;Jul 10, 1995
3MAIN ;
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
13M1 ;
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
31M2 ;
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 ;
Note: See TracBrowser for help on using the repository browser.