XUTMTED ;SEA/RDS - TaskMan: Toolkit, Edit Description ; ;
;;8.0;KERNEL;;Jul 10, 1995
;
EDIT ;Edit the description field of the task
N DIR
S DIR(0)="F^3:70^D XFORM^XUTMTED"
S DIR("A")="DESCRIPTION"
I $P(ZTSK(0),U,13)]"" S DIR("B")=$P(ZTSK(0),U,13)
S DIR("?")="^D HELP^XUTMTED"
D ^DIR K DIR
I $D(DTOUT) W $C(7)
I $D(DIRUT) Q
S $P(ZTSK(0),U,13)=X
Q
;
XFORM ;EDIT--Input transform for description
I X=U Q
N ZT
F ZT=0:0 Q:X'[U S X=$P(X,U)_"~"_$P(X,U,2,999)
Q
;
HELP ;EDIT--? help for prompt
W !!?5,"Answer must be free text from 3 to 70 characters in length."
W !?5,"Answer with a description of the task."
W !?5,"Answer should begin with the package of origin."
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUTMTED 713 printed Nov 22, 2024@17:23:53 Page 2
XUTMTED ;SEA/RDS - TaskMan: Toolkit, Edit Description ; ;
+1 ;;8.0;KERNEL;;Jul 10, 1995
+2 ;
EDIT ;Edit the description field of the task
+1 NEW DIR
+2 SET DIR(0)="F^3:70^D XFORM^XUTMTED"
+3 SET DIR("A")="DESCRIPTION"
+4 IF $PIECE(ZTSK(0),U,13)]""
SET DIR("B")=$PIECE(ZTSK(0),U,13)
+5 SET DIR("?")="^D HELP^XUTMTED"
+6 DO ^DIR
KILL DIR
+7 IF $DATA(DTOUT)
WRITE $CHAR(7)
+8 IF $DATA(DIRUT)
QUIT
+9 SET $PIECE(ZTSK(0),U,13)=X
+10 QUIT
+11 ;
XFORM ;EDIT--Input transform for description
+1 IF X=U
QUIT
+2 NEW ZT
+3 FOR ZT=0:0
if X'[U
QUIT
SET X=$PIECE(X,U)_"~"_$PIECE(X,U,2,999)
+4 QUIT
+5 ;
HELP ;EDIT--? help for prompt
+1 WRITE !!?5,"Answer must be free text from 3 to 70 characters in length."
+2 WRITE !?5,"Answer with a description of the task."
+3 WRITE !?5,"Answer should begin with the package of origin."
+4 QUIT
+5 ;
