XUTMTA.m

XUTMTA ;SEA/RDS - TaskMan: ToolKit, Select ;12/12/94  15:21

 ;;8.0;KERNEL;;Jul 10, 1995

 ;

SELECT ;Main Section--Select Task

 N DDH,DIR,DIRUT,DTOUT,DUOUT,X,Y,ZT

 F  D SETUP,^DIR Q:+Y=Y!$D(DIRUT)

 K XUTMT,ZTSK S ZTSK=$S($D(DIRUT):"",'$D(^%ZTSK(Y,0))&$D(^TMP($J,0,Y)):$G(^TMP($J,0,Y)),1:Y) Q

 ;

 ;

SETUP ;SELECT--Setup Reader Input Parameters

 S DIR(0)="NAO^1:9999999999:0^D XFORM^XUTMTA"

 S DIR("A")=$S($D(XUTMT("A"))#2:XUTMT("A"),1:"Select TASK: ")

 S DIR("?")=$S($D(XUTMT("?"))#2:XUTMT("?"),1:"^D HELP1^XUTMTA")

 S DIR("??")=$S($D(XUTMT("??"))#2:XUTMT("??"),1:"^D HELP2^XUTMTA") I DIR("??")="@" K DIR("??")

 I $D(XUTMT("B"))#2 S DIR("B")=XUTMT("B")

 I $D(DTIME)[0 S DIR("T")=60

 Q

 ;

 ;XFORM--Does task have an intact ^%ZTSK(#,0)

XFORM ;SELECT--Input Transform

 I '$D(%ZTSK(X)),$D(^TMP($J,0,X)) S X=$G(^TMP($J,0,X)) ;Use index to get task number.

 I '$D(^%ZTSK(X)),'$D(^%ZTSCH("TASK",X)) W !!?5,"Task # ",X," is not defined in this volume set's Task File." K X Q

 I $D(^%ZTSK(X,0))[0,'$D(^%ZTSCH("TASK",X)) W !!?5,"While a record does exist for this task, most of the critical data is",!?5,"missing.  Please select a different task." K X Q

 I XUTMT(0)["U",$S($D(^%ZTSK(X,0))[0:0,1:$P(^(0),U,3)'=DUZ)!$S($D(^%ZTSCH("TASK",X))[0:0,$P(^(X),U,9)=DUZ:0,1:$P(^(X),U,9)'=ZTNAME) W !!?5,"You may only select a task that you created.  Please select a different",!?5,"task." K X Q

 W:$D(^%ZTSK(X,0))#2 "  ",$S($G(^(.03))]"":$E(^(.03),1,75),1:$P(^(0),U,1,2))

 W:$D(^%ZTSK(X,0))[0&($D(^%ZTSCH("TASK",X))#2) "  ",$P(^%ZTSCH("TASK",X),U,1,2)

 Q

 ;

HELP1 ;SELECT--Default Help For '?'

 W !!?5,"Select a task by its internal number: an integer between 1 and 999999999."

 I $D(^TMP($J,0)) W !,"Or by the Index number."

 Q

 ;

HELP2 ;SELECT--Default Help For '??'

 D HELP1

 N DIR,DDH,DIRUT,DTOUT,DUOUT,X,Y D ^XUTMQ

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XUTMTA   1841     printed  Apr 09, 2024@21:16:13                                                                                                                                                                                                      Page 2

XUTMTA    ;SEA/RDS - TaskMan: ToolKit, Select ;12/12/94  15:21

 +1       ;;8.0;KERNEL;;Jul 10, 1995

 +2       ;

SELECT    ;Main Section--Select Task

 +1        NEW DDH,DIR,DIRUT,DTOUT,DUOUT,X,Y,ZT

 +2        FOR 

               DO SETUP

               DO ^DIR

               if +Y=Y!$DATA(DIRUT)

                   QUIT 

 +3        KILL XUTMT,ZTSK

           SET ZTSK=$SELECT($DATA(DIRUT):"",'$DATA(^%ZTSK(Y,0))&$DATA(^TMP($JOB,0,Y)):$GET(^TMP($JOB,0,Y)),1:Y)

           QUIT 

 +4       ;

 +5       ;

SETUP     ;SELECT--Setup Reader Input Parameters

 +1        SET DIR(0)="NAO^1:9999999999:0^D XFORM^XUTMTA"

 +2        SET DIR("A")=$SELECT($DATA(XUTMT("A"))#2:XUTMT("A"),1:"Select TASK: ")

 +3        SET DIR("?")=$SELECT($DATA(XUTMT("?"))#2:XUTMT("?"),1:"^D HELP1^XUTMTA")

 +4        SET DIR("??")=$SELECT($DATA(XUTMT("??"))#2:XUTMT("??"),1:"^D HELP2^XUTMTA")

           IF DIR("??")="@"

               KILL DIR("??")

 +5        IF $DATA(XUTMT("B"))#2

               SET DIR("B")=XUTMT("B")

 +6        IF $DATA(DTIME)[0

               SET DIR("T")=60

 +7        QUIT 

 +8       ;

 +9       ;XFORM--Does task have an intact ^%ZTSK(#,0)

XFORM     ;SELECT--Input Transform

 +1       ;Use index to get task number.

           IF '$DATA(%ZTSK(X))

               IF $DATA(^TMP($JOB,0,X))

                   SET X=$GET(^TMP($JOB,0,X))

 +2        IF '$DATA(^%ZTSK(X))

               IF '$DATA(^%ZTSCH("TASK",X))

                   WRITE !!?5,"Task # ",X," is not defined in this volume set's Task File."

                   KILL X

                   QUIT 

 +3        IF $DATA(^%ZTSK(X,0))[0

               IF '$DATA(^%ZTSCH("TASK",X))

                   WRITE !!?5,"While a record does exist for this task, most of the critical data is",!?5,"missing.  Please select a different task."

                   KILL X

                   QUIT 

 +4        IF XUTMT(0)["U"

               IF $SELECT($DATA(^%ZTSK(X,0))[0:0,1:$PIECE(^(0),U,3)'=DUZ)!$SELECT($DATA(^%ZTSCH("TASK",X))[0:0,$PIECE(^(X),U,9)=DUZ:0,1:$PIECE(^(X),U,9)'=ZTNAME)

                   WRITE !!?5,"You may only select a task that you created.  Please select a different",!?5,"task."

                   KILL X

                   QUIT 

 +5        if $DATA(^%ZTSK(X,0))#2

               WRITE "  ",$SELECT($GET(^(.03))]"":$EXTRACT(^(.03),1,75),1:$PIECE(^(0),U,1,2))

 +6        if $DATA(^%ZTSK(X,0))[0&($DATA(^%ZTSCH("TASK",X))#2)

               WRITE "  ",$PIECE(^%ZTSCH("TASK",X),U,1,2)

 +7        QUIT 

 +8       ;

HELP1     ;SELECT--Default Help For '?'

 +1        WRITE !!?5,"Select a task by its internal number: an integer between 1 and 999999999."

 +2        IF $DATA(^TMP($JOB,0))

               WRITE !,"Or by the Index number."

 +3        QUIT 

 +4       ;

HELP2     ;SELECT--Default Help For '??'

 +1        DO HELP1

 +2        NEW DIR,DDH,DIRUT,DTOUT,DUOUT,X,Y

           DO ^XUTMQ

 +3        QUIT 

 +4       ;