XUTMTES.m

XUTMTES ;SEA/RDS - TaskMan: Toolkit, Edit Start Time ; ; [ 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 start time of task

 N DIR

 S DIR(0)="DO^::AERSX"

 S DIR("A")="START TIME"

 I $P(ZTSK(0),U,6)]"" S DIR("B")=$$HTE^XLFDT($P(ZTSK(0),U,6))

 S DIR("?")="^D HELP^XUTMTES"

 S DIR("??")="^D HELP2^XUTMTES"

 D ^DIR K DIR

 I $D(DTOUT) W $C(7)

 I $D(DIRUT) Q

 S $P(ZTSK(0),U,6)=$$FMTH^XLFDT(Y)

 Q

 ;

HELP ;?-help for start time prompt

 W !!?5,"Answer must be a valid date and time."

 Q

 ;

HELP2 ;??-help for start time prompt

 W !!?5,"Answer when the task should start running.",!

 D HELP^%DTC

 Q

 ;

XUTMTES   ;SEA/RDS - TaskMan: Toolkit, Edit Start Time ; ; [ 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 start time of task

 +1        NEW DIR

 +2        SET DIR(0)="DO^::AERSX"

 +3        SET DIR("A")="START TIME"

 +4        IF $PIECE(ZTSK(0),U,6)]""

               SET DIR("B")=$$HTE^XLFDT($PIECE(ZTSK(0),U,6))

 +5        SET DIR("?")="^D HELP^XUTMTES"

 +6        SET DIR("??")="^D HELP2^XUTMTES"

 +7        DO ^DIR

           KILL DIR

 +8        IF $DATA(DTOUT)

               WRITE $CHAR(7)

 +9        IF $DATA(DIRUT)

               QUIT 

 +10       SET $PIECE(ZTSK(0),U,6)=$$FMTH^XLFDT(Y)

 +11       QUIT 

 +12      ;

HELP      ;?-help for start time prompt

 +1        WRITE !!?5,"Answer must be a valid date and time."

 +2        QUIT 

 +3       ;

HELP2     ;??-help for start time prompt

 +1        WRITE !!?5,"Answer when the task should start running.",!

 +2        DO HELP^%DTC

 +3        QUIT 

 +4       ;