XUTMTEP ;SEA/RDS - TaskMan: Toolkit, Edit Priority ; ;
;;8.0;KERNEL;;Jul 10, 1995
;
EDIT ;Edit task's priority
N DIR
S DIR(0)="NO^1:10"
S DIR("A")="PRIORITY"
I $P(ZTSK(0),U,15) S DIR("B")=$P(ZTSK(0),U,15)
S DIR("?")="^D HELP^XUTMTEP"
S DIR("??")="^D HELP2^XUTMTEP"
D ^DIR K DIR
I $D(DTOUT) W $C(7)
I $D(DIRUT) Q
S $P(ZTSK(0),U,15)=X
Q
;
HELP ;EDIT--? help for prompt
W !!?5,"Answer must be an integer between 1 and 10."
Q
;
HELP2 ;EDIT--?? help for prompt
W !!?5,"Answer will set the starting priority for the task."
W !?5,"Answer 10 to specify high priority, 1 for low, etc."
W !?5,"If no priority is specified, site default will be used."
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUTMTEP 693 printed Dec 13, 2024@02:13:47 Page 2
XUTMTEP ;SEA/RDS - TaskMan: Toolkit, Edit Priority ; ;
+1 ;;8.0;KERNEL;;Jul 10, 1995
+2 ;
EDIT ;Edit task's priority
+1 NEW DIR
+2 SET DIR(0)="NO^1:10"
+3 SET DIR("A")="PRIORITY"
+4 IF $PIECE(ZTSK(0),U,15)
SET DIR("B")=$PIECE(ZTSK(0),U,15)
+5 SET DIR("?")="^D HELP^XUTMTEP"
+6 SET DIR("??")="^D HELP2^XUTMTEP"
+7 DO ^DIR
KILL DIR
+8 IF $DATA(DTOUT)
WRITE $CHAR(7)
+9 IF $DATA(DIRUT)
QUIT
+10 SET $PIECE(ZTSK(0),U,15)=X
+11 QUIT
+12 ;
HELP ;EDIT--? help for prompt
+1 WRITE !!?5,"Answer must be an integer between 1 and 10."
+2 QUIT
+3 ;
HELP2 ;EDIT--?? help for prompt
+1 WRITE !!?5,"Answer will set the starting priority for the task."
+2 WRITE !?5,"Answer 10 to specify high priority, 1 for low, etc."
+3 WRITE !?5,"If no priority is specified, site default will be used."
+4 QUIT
+5 ;