source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUTMTED.m@ 1073

Last change on this file since 1073 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 686 bytes
RevLine 
[613]1XUTMTED ;SEA/RDS - TaskMan: Toolkit, Edit Description ; ;
2 ;;8.0;KERNEL;;Jul 10, 1995
3 ;
4EDIT ;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 ;
16XFORM ;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 ;
22HELP ;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.