- XUTMONH2 ;SEA/RDS - TaskMan: Option, XUTMON, Part 5 (Help Modules) ;5/12/94 12:12 [ 04/02/2003 8:29 AM ]
- ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003
- ;;8.0;KERNEL;;Jul 10, 1995
- ;
- Q
- ;
- PRINT ;Subroutine--Print A Task
- N ZTMT,ZTSK W:'ZTC @IOF,!,ZTH,! W:'ZTF !,"-------------------------------------------------------------------------------"
- S X=0,ZTF=0 D EN^XUTMTP(ZTS) I $Y>18 W ! S ZTF=1,DIR(0)="E" D ^DIR S X=$D(DTOUT)!$D(DUOUT) Q:X W @IOF
- S ZTC=ZTC+1 Q
- ;
- OUT ;Tag for breaking FOR scope to exit early
- Q
- ;
- JOB ;Display Job List
- N DIR,DIRUT,DTOUT,DUOUT,X,ZT,ZT1,ZT2,ZTC,ZTF,ZTH,ZTS S ZTC=0,ZTF=1,ZTH="Job list..."
- S ZT1="" F ZT=0:0 S ZT1=$O(^%ZTSCH("JOB",ZT1)),ZT2=0 Q:ZT1="" F ZT=0:0 S ZT2=$O(^%ZTSCH("JOB",ZT1,ZT2)) Q:'ZT2 S ZTS=ZT2 D PRINT S ZTC=ZTC+1 G OUT:X
- I 'ZTC W !!,"The Job List is empty."
- W ! S DIR(0)="E",DIR("A")=$S(ZTC:"End of listing. ",1:"")_"Press RETURN to continue" D ^DIR Q
- ;
- TASK ;Display Task List
- N DIR,DIRUT,DTOUT,DUOUT,X,ZTC,ZTF,ZTH,ZTS S ZTC=0,ZTF=1,ZTH="Task list..."
- F ZTS=0:0 S ZTS=$O(^%ZTSCH("TASK",ZTS)) Q:'ZTS D PRINT S ZTC=ZTC+1 G OUT:X
- I 'ZTC W !!,"The Task List is empty."
- W ! S DIR(0)="E",DIR("A")=$S(ZTC:"End of listing. ",1:"")_"Press RETURN to continue" D ^DIR Q
- ;
- LINK ;Display Link Lists
- N DIR,DIRUT,DTOUT,DUOUT,X,ZT,ZT1,ZT2,ZTC,ZTF,ZTS S ZTC=0,ZTF=1,ZTH="Link lists..."
- S ZT1="" F ZT=0:0 S ZT1=$O(^%ZTSCH("LINK",ZT1)),ZT2="" Q:ZT1="" F ZT=0:0 S ZT2=$O(^%ZTSCH("LINK",ZT1,ZT2)) Q:'ZT2 F ZTS=$O(^%ZTSCH("LINK",ZT1,ZT2,ZTS)) Q:'ZTS D PRINT S ZTC=ZTC+1 G OUT:X
- I 'ZTC W !!,"The Link List is empty."
- W ! S DIR(0)="E",DIR("A")=$S(ZTC:"End of listing. ",1:"")_"Press RETURN to continue" D ^DIR Q
- ;
- XUTMONH2 ;SEA/RDS - TaskMan: Option, XUTMON, Part 5 (Help Modules) ;5/12/94 12:12 [ 04/02/2003 8:29 AM ]
- +1 ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003
- +2 ;;8.0;KERNEL;;Jul 10, 1995
- +3 ;
- +4 QUIT
- +5 ;
- PRINT ;Subroutine--Print A Task
- +1 NEW ZTMT,ZTSK
- IF 'ZTC
- WRITE @IOF,!,ZTH,!
- IF 'ZTF
- WRITE !,"-------------------------------------------------------------------------------"
- +2 SET X=0
- SET ZTF=0
- DO EN^XUTMTP(ZTS)
- IF $Y>18
- WRITE !
- SET ZTF=1
- SET DIR(0)="E"
- DO ^DIR
- SET X=$DATA(DTOUT)!$DATA(DUOUT)
- IF X
- QUIT
- WRITE @IOF
- +3 SET ZTC=ZTC+1
- QUIT
- +4 ;
- OUT ;Tag for breaking FOR scope to exit early
- +1 QUIT
- +2 ;
- JOB ;Display Job List
- +1 NEW DIR,DIRUT,DTOUT,DUOUT,X,ZT,ZT1,ZT2,ZTC,ZTF,ZTH,ZTS
- SET ZTC=0
- SET ZTF=1
- SET ZTH="Job list..."
- +2 SET ZT1=""
- FOR ZT=0:0
- SET ZT1=$ORDER(^%ZTSCH("JOB",ZT1))
- SET ZT2=0
- IF ZT1=""
- QUIT
- FOR ZT=0:0
- SET ZT2=$ORDER(^%ZTSCH("JOB",ZT1,ZT2))
- IF 'ZT2
- QUIT
- SET ZTS=ZT2
- DO PRINT
- SET ZTC=ZTC+1
- IF X
- GOTO OUT
- +3 IF 'ZTC
- WRITE !!,"The Job List is empty."
- +4 WRITE !
- SET DIR(0)="E"
- SET DIR("A")=$SELECT(ZTC:"End of listing. ",1:"")_"Press RETURN to continue"
- DO ^DIR
- QUIT
- +5 ;
- TASK ;Display Task List
- +1 NEW DIR,DIRUT,DTOUT,DUOUT,X,ZTC,ZTF,ZTH,ZTS
- SET ZTC=0
- SET ZTF=1
- SET ZTH="Task list..."
- +2 FOR ZTS=0:0
- SET ZTS=$ORDER(^%ZTSCH("TASK",ZTS))
- IF 'ZTS
- QUIT
- DO PRINT
- SET ZTC=ZTC+1
- IF X
- GOTO OUT
- +3 IF 'ZTC
- WRITE !!,"The Task List is empty."
- +4 WRITE !
- SET DIR(0)="E"
- SET DIR("A")=$SELECT(ZTC:"End of listing. ",1:"")_"Press RETURN to continue"
- DO ^DIR
- QUIT
- +5 ;
- LINK ;Display Link Lists
- +1 NEW DIR,DIRUT,DTOUT,DUOUT,X,ZT,ZT1,ZT2,ZTC,ZTF,ZTS
- SET ZTC=0
- SET ZTF=1
- SET ZTH="Link lists..."
- +2 SET ZT1=""
- FOR ZT=0:0
- SET ZT1=$ORDER(^%ZTSCH("LINK",ZT1))
- SET ZT2=""
- IF ZT1=""
- QUIT
- FOR ZT=0:0
- SET ZT2=$ORDER(^%ZTSCH("LINK",ZT1,ZT2))
- IF 'ZT2
- QUIT
- FOR ZTS=$ORDER(^%ZTSCH("LINK",ZT1,ZT2,ZTS))
- IF 'ZTS
- QUIT
- DO PRINT
- SET ZTC=ZTC+1
- IF X
- GOTO OUT
- +3 IF 'ZTC
- WRITE !!,"The Link List is empty."
- +4 WRITE !
- SET DIR(0)="E"
- SET DIR("A")=$SELECT(ZTC:"End of listing. ",1:"")_"Press RETURN to continue"
- DO ^DIR
- QUIT
- +5 ;