XUTMTEP.m

XUTMTEP ;SEA/RDS - TaskMan: Toolkit, Edit Priority ; ; [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

 ;;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

 ;

XUTMTEP   ;SEA/RDS - TaskMan: Toolkit, Edit Priority ; ; [ 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       ;

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       ;