- XUTMQ2 ;SEA/RDS - TaskMan: Option, XUTMINQ, Part 4 (Modules) ;6/21/95 16:25 [ 04/02/2003 8:29 AM ]
- ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003
- ;;8.0;KERNEL;;Jul 10, 1995
- ;
- ENTRY G ^XUTMQ
- ;
- PRINT ;Subroutine--Print A Task
- N XUTMT,ZTSK W:'ZTC @IOF,!,ZTH,! W:'ZTF !,"-------------------------------------------------------------------------------"
- S X=0,ZTC=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
- ;
- LINK ;Cross-cpu waiting lists.
- N DIR,DIRUT,DTOUT,DUOUT,X,ZT,ZT1,ZT2,ZTC,ZTF,ZTH,ZTS S ZTC=0,ZTF=1,ZTH="Tasks waiting for dropped links..."
- 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=0:0 S ZTS=$O(^%ZTSCH("LINK",ZT1,ZT2,ZTS)) Q:'ZTS D PRINT G OUT:X
- I 'ZTC W !!,"There are no tasks on this volume set that are waiting for dropped links."
- W ! S DIR(0)="E",DIR("A")=$S(ZTC:"End of listing. ",1:"")_"Press RETURN to continue" D ^DIR Q
- ;
- RUN ;Running tasks.
- N XUTMT,ZTSK,ZT1
- I ^%ZOSF("OS")["VAX DSM" F ZT1=0:0 D VAX1 Q:ZT1'>0
- S XUTMT(0)="R4"
- S XUTMT("CLEAR")=1
- S XUTMT("EOL")=1
- S XUTMT("HEADER")="Running tasks..."
- S XUTMT("NODE")="^%ZTSCH(""TASK"","
- S XUTMT("NONE")="There are no tasks listed as running."
- D ^XUTMT Q
- ;
- VAX1 ;Use VMS to help clean the TASK list
- N $ETRAP,PID S $ETRAP="K ^%ZTSCH(""TASK"",ZT1) S $ECODE="""""
- VAX2 S ZT1=$O(^%ZTSCH("TASK",ZT1)) Q:ZT1'>0
- S PID=$P((^%ZTSCH("TASK",ZT1)),U,10) Q:'PID
- S Y=$&ZLIB.%GETJPI(PID,"PID")
- Q
- ;
- FUT ;Future tasks.
- N DIR,DIRUT,DTOUT,DUOUT,X,ZT,ZT1,ZT2,ZT3,ZTC,ZTF,ZTH,ZTS
- K ^TMP($J)
- S ZTC=0,ZTF=1,ZTH="Scheduled and waiting tasks..."
- W !!,"Building sorted list of tasks..."
- ;
- F1 S ZT1="" F S ZT1=$O(^%ZTSCH("JOB",ZT1)) Q:ZT1="" D
- .S ZT2="" F S ZT2=$O(^%ZTSCH("JOB",ZT1,ZT2)) Q:'ZT2 D
- .. D SORT(ZT1,ZT2) ;S ^TMP($J,99999-ZT1,99999-$P(ZT1,",",2),ZT2)=""
- .Q
- ;
- F2 S ZT1=$$H3^%ZTM($H) F S ZT1=$O(^%ZTSCH(ZT1)) Q:'ZT1 D
- .S ZTS=0 F S ZTS=$O(^%ZTSCH(ZT1,ZTS)) Q:'ZTS D
- .. D SORT(ZT1,ZTS) ;S ^TMP($J,99999-ZT1,99999-$P(ZT1,",",2),ZTS)=""
- .Q
- ;
- F3 S ZT1="" F S ZT1=$O(^%ZTSCH("IO",ZT1)) Q:ZT1="" D
- .S ZT2="" F S ZT2=$O(^%ZTSCH("IO",ZT1,ZT2)) Q:'ZT2 D
- ..S ZT3=0 F S ZT3=$O(^%ZTSCH("IO",ZT1,ZT2,ZT3)) Q:ZT3="" D
- ... D SORT(ZT2,ZT3) ;S ^TMP($J,99999-ZT2,99999-$P(ZT2,",",2),ZT3)=""
- .Q
- ;
- F4 S ZT1="" F S ZT1=$O(^%ZTSCH("LINK",ZT1)) Q:'ZT1 D
- .S ZT2="" F S ZT2=$O(^%ZTSCH("LINK",ZT1,ZT2)) Q:'ZT2 D
- ..S ZTS=0 F S ZTS=$O(^%ZTSCH("LINK",ZT1,ZT2,ZTS)) Q:'ZTS D
- ... D SORT(ZT2,ZTS) ;S ^TMP($J,99999-ZT2,99999-$P(ZT2,",",2),ZTS)=""
- .Q
- W "finished!"
- ;
- F5 ;
- G:$O(^TMP($J,0))="" F6
- S ZTSAVE("^TMP($J,")="" D EN^XUTMDEVQ("LIST^XUTMQ","TASK LIST",.ZTSAVE)
- K ^TMP($J)
- Q
- S ZT1="" F S ZT1=$O(^TMP($J,ZT1),-1) Q:ZT1="" D I X Q
- . S ZTS=0 F S ZTS=$O(^TMP($J,ZT1,ZTS)) Q:'ZTS D PRINT I X Q
- .Q
- I X K ^TMP($J) Q
- ;
- F6 I 'ZTC W !!,"There are no future tasks on this volume set."
- W ! S DIR(0)="E",DIR("A")="Press RETURN to continue" D
- .I ZTC S DIR("A")="End of listing. "_DIR("A")
- D ^DIR K ^TMP($J) Q
- ;
- SORT(ZTDTH,ZTSK) ;
- I ZTDTH["," S ZTDTH=$$H3^%ZTM(ZTDTH)
- S ^TMP($J,ZTDTH,ZTSK)=""
- Q
- XUTMQ2 ;SEA/RDS - TaskMan: Option, XUTMINQ, Part 4 (Modules) ;6/21/95 16:25 [ 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 ;
- ENTRY GOTO ^XUTMQ
- +1 ;
- PRINT ;Subroutine--Print A Task
- +1 NEW XUTMT,ZTSK
- IF 'ZTC
- WRITE @IOF,!,ZTH,!
- IF 'ZTF
- WRITE !,"-------------------------------------------------------------------------------"
- +2 SET X=0
- SET ZTC=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 ;
- LINK ;Cross-cpu waiting lists.
- +1 NEW DIR,DIRUT,DTOUT,DUOUT,X,ZT,ZT1,ZT2,ZTC,ZTF,ZTH,ZTS
- SET ZTC=0
- SET ZTF=1
- SET ZTH="Tasks waiting for dropped links..."
- +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=0:0
- SET ZTS=$ORDER(^%ZTSCH("LINK",ZT1,ZT2,ZTS))
- IF 'ZTS
- QUIT
- DO PRINT
- IF X
- GOTO OUT
- +3 IF 'ZTC
- WRITE !!,"There are no tasks on this volume set that are waiting for dropped links."
- +4 WRITE !
- SET DIR(0)="E"
- SET DIR("A")=$SELECT(ZTC:"End of listing. ",1:"")_"Press RETURN to continue"
- DO ^DIR
- QUIT
- +5 ;
- RUN ;Running tasks.
- +1 NEW XUTMT,ZTSK,ZT1
- +2 IF ^%ZOSF("OS")["VAX DSM"
- FOR ZT1=0:0
- DO VAX1
- IF ZT1'>0
- QUIT
- +3 SET XUTMT(0)="R4"
- +4 SET XUTMT("CLEAR")=1
- +5 SET XUTMT("EOL")=1
- +6 SET XUTMT("HEADER")="Running tasks..."
- +7 SET XUTMT("NODE")="^%ZTSCH(""TASK"","
- +8 SET XUTMT("NONE")="There are no tasks listed as running."
- +9 DO ^XUTMT
- QUIT
- +10 ;
- VAX1 ;Use VMS to help clean the TASK list
- +1 NEW $ETRAP,PID
- SET $ETRAP="K ^%ZTSCH(""TASK"",ZT1) S $ECODE="""""
- VAX2 SET ZT1=$ORDER(^%ZTSCH("TASK",ZT1))
- IF ZT1'>0
- QUIT
- +1 SET PID=$PIECE((^%ZTSCH("TASK",ZT1)),U,10)
- IF 'PID
- QUIT
- +2 SET Y=$&ZLIB.%GETJPI(PID,"PID")
- +3 QUIT
- +4 ;
- FUT ;Future tasks.
- +1 NEW DIR,DIRUT,DTOUT,DUOUT,X,ZT,ZT1,ZT2,ZT3,ZTC,ZTF,ZTH,ZTS
- +2 KILL ^TMP($JOB)
- +3 SET ZTC=0
- SET ZTF=1
- SET ZTH="Scheduled and waiting tasks..."
- +4 WRITE !!,"Building sorted list of tasks..."
- +5 ;
- F1 SET ZT1=""
- FOR
- SET ZT1=$ORDER(^%ZTSCH("JOB",ZT1))
- IF ZT1=""
- QUIT
- Begin DoDot:1
- +1 SET ZT2=""
- FOR
- SET ZT2=$ORDER(^%ZTSCH("JOB",ZT1,ZT2))
- IF 'ZT2
- QUIT
- Begin DoDot:2
- +2 ;S ^TMP($J,99999-ZT1,99999-$P(ZT1,",",2),ZT2)=""
- DO SORT(ZT1,ZT2)
- End DoDot:2
- +3 QUIT
- End DoDot:1
- +4 ;
- F2 SET ZT1=$$H3^%ZTM($HOROLOG)
- FOR
- SET ZT1=$ORDER(^%ZTSCH(ZT1))
- IF 'ZT1
- QUIT
- Begin DoDot:1
- +1 SET ZTS=0
- FOR
- SET ZTS=$ORDER(^%ZTSCH(ZT1,ZTS))
- IF 'ZTS
- QUIT
- Begin DoDot:2
- +2 ;S ^TMP($J,99999-ZT1,99999-$P(ZT1,",",2),ZTS)=""
- DO SORT(ZT1,ZTS)
- End DoDot:2
- +3 QUIT
- End DoDot:1
- +4 ;
- F3 SET ZT1=""
- FOR
- SET ZT1=$ORDER(^%ZTSCH("IO",ZT1))
- IF ZT1=""
- QUIT
- Begin DoDot:1
- +1 SET ZT2=""
- FOR
- SET ZT2=$ORDER(^%ZTSCH("IO",ZT1,ZT2))
- IF 'ZT2
- QUIT
- Begin DoDot:2
- +2 SET ZT3=0
- FOR
- SET ZT3=$ORDER(^%ZTSCH("IO",ZT1,ZT2,ZT3))
- IF ZT3=""
- QUIT
- Begin DoDot:3
- +3 ;S ^TMP($J,99999-ZT2,99999-$P(ZT2,",",2),ZT3)=""
- DO SORT(ZT2,ZT3)
- End DoDot:3
- End DoDot:2
- +4 QUIT
- End DoDot:1
- +5 ;
- F4 SET ZT1=""
- FOR
- SET ZT1=$ORDER(^%ZTSCH("LINK",ZT1))
- IF 'ZT1
- QUIT
- Begin DoDot:1
- +1 SET ZT2=""
- FOR
- SET ZT2=$ORDER(^%ZTSCH("LINK",ZT1,ZT2))
- IF 'ZT2
- QUIT
- Begin DoDot:2
- +2 SET ZTS=0
- FOR
- SET ZTS=$ORDER(^%ZTSCH("LINK",ZT1,ZT2,ZTS))
- IF 'ZTS
- QUIT
- Begin DoDot:3
- +3 ;S ^TMP($J,99999-ZT2,99999-$P(ZT2,",",2),ZTS)=""
- DO SORT(ZT2,ZTS)
- End DoDot:3
- End DoDot:2
- +4 QUIT
- End DoDot:1
- +5 WRITE "finished!"
- +6 ;
- F5 ;
- +1 IF $ORDER(^TMP($JOB,0))=""
- GOTO F6
- +2 SET ZTSAVE("^TMP($J,")=""
- DO EN^XUTMDEVQ("LIST^XUTMQ","TASK LIST",.ZTSAVE)
- +3 KILL ^TMP($JOB)
- +4 QUIT
- +5 SET ZT1=""
- FOR
- SET ZT1=$ORDER(^TMP($JOB,ZT1),-1)
- IF ZT1=""
- QUIT
- Begin DoDot:1
- +6 SET ZTS=0
- FOR
- SET ZTS=$ORDER(^TMP($JOB,ZT1,ZTS))
- IF 'ZTS
- QUIT
- DO PRINT
- IF X
- QUIT
- +7 QUIT
- End DoDot:1
- IF X
- QUIT
- +8 IF X
- KILL ^TMP($JOB)
- QUIT
- +9 ;
- F6 IF 'ZTC
- WRITE !!,"There are no future tasks on this volume set."
- +1 WRITE !
- SET DIR(0)="E"
- SET DIR("A")="Press RETURN to continue"
- Begin DoDot:1
- +2 IF ZTC
- SET DIR("A")="End of listing. "_DIR("A")
- End DoDot:1
- +3 DO ^DIR
- KILL ^TMP($JOB)
- QUIT
- +4 ;
- SORT(ZTDTH,ZTSK) ;
- +1 IF ZTDTH[","
- SET ZTDTH=$$H3^%ZTM(ZTDTH)
- +2 SET ^TMP($JOB,ZTDTH,ZTSK)=""
- +3 QUIT
