XUTMTED.m

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

 ;

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