XUTMTR4.m

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 ---XUTMTR4   1076     printed  Apr 09, 2024@21:18:29                                                                                                                                                                                                     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       ;