XUTMR1.m

XUTMR1 ;SEA/RDS - Taskman: Requeue Interface, Part Two ;06/06/95  14:59 [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

 ;;8.0;KERNEL;;Jul 10, 1995

 ;

 ;Continued From XUTMR

 ;

 S ZTPRI="" G:'ZTKEY REQ

PROG ;Programmer Parameters Edit:  Partition Size And Priority

 K DIR

 S DIR(0)="NO^1:10:0",DIR("A")="Task priority: ",DIR("?",1)="Please enter an integer between 1 (low) and 10 (high) to specify the task's",DIR("?")="priority.  (Optional)"

 S:$P(ZTREC,U,15)]"" DIR("B")=$P(ZTREC,U,15)

 D ^DIR K DIR I $L(Y) G NEXT:$D(DIRUT) S:Y>0 ZTPRI=Y

 ;

REQ ;Dequeue, Modify, And Requeue Task

 ;

 D DQ^%ZTLOAD

 S $P(ZTREC,U,3)=DUZ,$P(ZTREC,U,5)=$H,$P(ZTREC,U,6)=ZTDTH,$P(ZTREC,U,15)="",ZTREC2=ZTIO_"^^^^"_$P(ZTREC2,U,5)_"^"

 S:ZTCPU]"" $P(ZTREC,U,14)=ZTCPU I ZTKEY,ZTPRI]"" S $P(ZTREC,U,15)=ZTPRI

 S ^%ZTSK(ZTSK,0)=ZTREC

 K ^%ZTSK(ZTSK,.25),^(.21),^(.26) S:$D(ZTIO("H"))#2 $P(ZTREC2,U,6)=ZTIO("H"),^%ZTSK(ZTSK,.25)=ZTIO("P") S ^%ZTSK(ZTSK,.2)=ZTREC2

 K ZTRTN,ZTIO,ZTREC,ZTREC2,ZTREC25

 D REQ^%ZTLOAD

 W !!!,"Task requeued!" H 1

NEXT L -^%ZTSK(ZTSK)

 G LKUP^XUTMR

 ;

Q ;Cleanup And End Of Taskman Requeue Interface

 K %,%DT,%H,%T,%ZTD,%ZTDTH,%ZTI,%ZTIO,%ZTN,%ZTO,%ZTOS,%ZTU,XUTMUCI,%ZTYN,%ZTYND,X,Y,ZTCPU,ZTDTH,ZTIO,ZTKEY,ZTPAR,ZTPRI,ZTREC,ZTREC2,ZTSK

 D HOME^%ZIS Q

 ;

XUTMR1    ;SEA/RDS - Taskman: Requeue Interface, Part Two ;06/06/95  14:59 [ 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       ;

 +4       ;Continued From XUTMR

 +5       ;

 +6        SET ZTPRI=""

           IF 'ZTKEY

               GOTO REQ

PROG      ;Programmer Parameters Edit:  Partition Size And Priority

 +1        KILL DIR

 +2        SET DIR(0)="NO^1:10:0"

           SET DIR("A")="Task priority: "

           SET DIR("?",1)="Please enter an integer between 1 (low) and 10 (high) to specify the task's"

           SET DIR("?")="priority.  (Optional)"

 +3        IF $PIECE(ZTREC,U,15)]""

               SET DIR("B")=$PIECE(ZTREC,U,15)

 +4        DO ^DIR

           KILL DIR

           IF $LENGTH(Y)

               IF $DATA(DIRUT)

                   GOTO NEXT

               IF Y>0

                   SET ZTPRI=Y

 +5       ;

REQ       ;Dequeue, Modify, And Requeue Task

 +1       ;

 +2        DO DQ^%ZTLOAD

 +3        SET $PIECE(ZTREC,U,3)=DUZ

           SET $PIECE(ZTREC,U,5)=$HOROLOG

           SET $PIECE(ZTREC,U,6)=ZTDTH

           SET $PIECE(ZTREC,U,15)=""

           SET ZTREC2=ZTIO_"^^^^"_$PIECE(ZTREC2,U,5)_"^"

 +4        IF ZTCPU]""

               SET $PIECE(ZTREC,U,14)=ZTCPU

           IF ZTKEY

               IF ZTPRI]""

                   SET $PIECE(ZTREC,U,15)=ZTPRI

 +5        SET ^%ZTSK(ZTSK,0)=ZTREC

 +6        KILL ^%ZTSK(ZTSK,.25),^(.21),^(.26)

           IF $DATA(ZTIO("H"))#2

               SET $PIECE(ZTREC2,U,6)=ZTIO("H")

               SET ^%ZTSK(ZTSK,.25)=ZTIO("P")

           SET ^%ZTSK(ZTSK,.2)=ZTREC2

 +7        KILL ZTRTN,ZTIO,ZTREC,ZTREC2,ZTREC25

 +8        DO REQ^%ZTLOAD

 +9        WRITE !!!,"Task requeued!"

           HANG 1

NEXT       LOCK -^%ZTSK(ZTSK)

 +1        GOTO LKUP^XUTMR

 +2       ;

Q         ;Cleanup And End Of Taskman Requeue Interface

 +1        KILL %,%DT,%H,%T,%ZTD,%ZTDTH,%ZTI,%ZTIO,%ZTN,%ZTO,%ZTOS,%ZTU,XUTMUCI,%ZTYN,%ZTYND,X,Y,ZTCPU,ZTDTH,ZTIO,ZTKEY,ZTPAR,ZTPRI,ZTREC,ZTREC2,ZTSK

 +2        DO HOME^%ZIS

           QUIT 

 +3       ;