|
Last change
on this file since 738 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
686 bytes
|
| Line | |
|---|
| 1 | XUTMTED ;SEA/RDS - TaskMan: Toolkit, Edit Description ; ;
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | EDIT ;Edit the description field of the task
|
|---|
| 5 | N DIR
|
|---|
| 6 | S DIR(0)="F^3:70^D XFORM^XUTMTED"
|
|---|
| 7 | S DIR("A")="DESCRIPTION"
|
|---|
| 8 | I $P(ZTSK(0),U,13)]"" S DIR("B")=$P(ZTSK(0),U,13)
|
|---|
| 9 | S DIR("?")="^D HELP^XUTMTED"
|
|---|
| 10 | D ^DIR K DIR
|
|---|
| 11 | I $D(DTOUT) W $C(7)
|
|---|
| 12 | I $D(DIRUT) Q
|
|---|
| 13 | S $P(ZTSK(0),U,13)=X
|
|---|
| 14 | Q
|
|---|
| 15 | ;
|
|---|
| 16 | XFORM ;EDIT--Input transform for description
|
|---|
| 17 | I X=U Q
|
|---|
| 18 | N ZT
|
|---|
| 19 | F ZT=0:0 Q:X'[U S X=$P(X,U)_"~"_$P(X,U,2,999)
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | HELP ;EDIT--? help for prompt
|
|---|
| 23 | W !!?5,"Answer must be free text from 3 to 70 characters in length."
|
|---|
| 24 | W !?5,"Answer with a description of the task."
|
|---|
| 25 | W !?5,"Answer should begin with the package of origin."
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
