Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
667 bytes
|
Rev | Line | |
---|
[628] | 1 | XUTMTEP ;SEA/RDS - TaskMan: Toolkit, Edit Priority ; ;
|
---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
---|
| 3 | ;
|
---|
| 4 | EDIT ;Edit task's priority
|
---|
| 5 | N DIR
|
---|
| 6 | S DIR(0)="NO^1:10"
|
---|
| 7 | S DIR("A")="PRIORITY"
|
---|
| 8 | I $P(ZTSK(0),U,15) S DIR("B")=$P(ZTSK(0),U,15)
|
---|
| 9 | S DIR("?")="^D HELP^XUTMTEP"
|
---|
| 10 | S DIR("??")="^D HELP2^XUTMTEP"
|
---|
| 11 | D ^DIR K DIR
|
---|
| 12 | I $D(DTOUT) W $C(7)
|
---|
| 13 | I $D(DIRUT) Q
|
---|
| 14 | S $P(ZTSK(0),U,15)=X
|
---|
| 15 | Q
|
---|
| 16 | ;
|
---|
| 17 | HELP ;EDIT--? help for prompt
|
---|
| 18 | W !!?5,"Answer must be an integer between 1 and 10."
|
---|
| 19 | Q
|
---|
| 20 | ;
|
---|
| 21 | HELP2 ;EDIT--?? help for prompt
|
---|
| 22 | W !!?5,"Answer will set the starting priority for the task."
|
---|
| 23 | W !?5,"Answer 10 to specify high priority, 1 for low, etc."
|
---|
| 24 | W !?5,"If no priority is specified, site default will be used."
|
---|
| 25 | Q
|
---|
| 26 | ;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.