XUTMTEIO.m

XUTMTEIO ;SEA/RDS - TaskMan: Toolkit, Edit I/O Device ; ; [ 04/02/2003   8:29 AM ]

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

 ;;8.0;KERNEL;;Jul 10, 1995

 ;

ASK ;determine whether task should have an io device

 S DIR(0)="YO"

 S DIR("A")="Do you wish to requeue this task to a device"

 S DIR("B")=$S($P(ZTSK(2),U)="":"NO",1:"YES")

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

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

 D ^DIR

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

 I $D(DIRUT) Q

 I 'Y S ZTSK(2)="",ZTSK(25)="" Q

 S XUTMUCI="",ZTCPU="",ZTIO=""

 ;

EDIT ;edit task's io device

 S %ZIS="NZ"

 S %ZIS("A")="IO DEVICE: "

 S %ZIS("B")=$S($P(ZTSK(2),U)]"":$P(ZTSK(2),U),1:"")

 D ^%ZIS

 S ZTIO=$S($D(IOS)[0:"",POP:"",$D(ION)[0:"",ION]"":ION,IOS="":"",$D(^%ZIS(1,IOS,0))[0:"",1:$P(^(0),U))

 I ZTIO="" S DIRUT=1 Q

 I IOT="VTRM" D HOME^%ZIS W !,"Tasks can not open virtual terminals.",$C(7),! G EDIT

 S $P(ZTSK(2),U)=ZTIO_$S($D(IOST)[0:"",1:";"_IOST)_$S($D(IO("DOC"))[0:$S($D(IOM)[0:"",1:";"_IOM_$S($D(IOSL)[0:"",1:";"_IOSL)),1:";"_IO("DOC"))

 S $P(ZTSK(2),U,6)="",ZTSK(25)=""

 I $D(IO("HFSIO"))#2 S $P(ZTSK(2),U,6)=IO("HFSIO")

 I $D(IOPAR)#2 S ZTSK(25)=IOPAR

 I $D(IOCPU)#2 S ZTCPU=IOCPU

 I ZTCPU]"",$P(ZTSK(0),U,14)]"",ZTCPU'=$P(ZTSK(0),U,14) S X=$P(XUTMUCI,","),Y=$O(^%ZIS(14.6,"AT",X,$P(ZTSK(0),U,14),ZTCPU,"")) S:Y="" Y=X S XUTMUCI=Y_","_ZTCPU

 ;

HELP ;EDIT--?-help for first prompt

 W !!?5,"Answer must be YES or NO."

 Q

 ;

HELP2 ;EDIT--??-help for first prompt

 W !!?5,"Answer whether this task requires an io device."

 Q

 ;

XUTMTEIO  ;SEA/RDS - TaskMan: Toolkit, Edit I/O Device ; ; [ 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       ;

ASK       ;determine whether task should have an io device

 +1        SET DIR(0)="YO"

 +2        SET DIR("A")="Do you wish to requeue this task to a device"

 +3        SET DIR("B")=$SELECT($PIECE(ZTSK(2),U)="":"NO",1:"YES")

 +4        SET DIR("?")="^D HELP^XUTMTEIO"

 +5        SET DIR("??")="^D HELP2^ZTMEIO"

 +6        DO ^DIR

 +7        IF $DATA(DTOUT)

               WRITE $CHAR(7)

 +8        IF $DATA(DIRUT)

               QUIT 

 +9        IF 'Y

               SET ZTSK(2)=""

               SET ZTSK(25)=""

               QUIT 

 +10       SET XUTMUCI=""

           SET ZTCPU=""

           SET ZTIO=""

 +11      ;

EDIT      ;edit task's io device

 +1        SET %ZIS="NZ"

 +2        SET %ZIS("A")="IO DEVICE: "

 +3        SET %ZIS("B")=$SELECT($PIECE(ZTSK(2),U)]"":$PIECE(ZTSK(2),U),1:"")

 +4        DO ^%ZIS

 +5        SET ZTIO=$SELECT($DATA(IOS)[0:"",POP:"",$DATA(ION)[0:"",ION]"":ION,IOS="":"",$DATA(^%ZIS(1,IOS,0))[0:"",1:$PIECE(^(0),U))

 +6        IF ZTIO=""

               SET DIRUT=1

               QUIT 

 +7        IF IOT="VTRM"

               DO HOME^%ZIS

               WRITE !,"Tasks can not open virtual terminals.",$CHAR(7),!

               GOTO EDIT

 +8        SET $PIECE(ZTSK(2),U)=ZTIO_$SELECT($DATA(IOST)[0:"",1:";"_IOST)_$SELECT($DATA(IO("DOC"))[0:$SELECT($DATA(IOM)[0:"",1:";"_IOM_$SELECT($DATA(IOSL)[0:"",1:";"_IOSL)),1:";"_IO("DOC"))

 +9        SET $PIECE(ZTSK(2),U,6)=""

           SET ZTSK(25)=""

 +10       IF $DATA(IO("HFSIO"))#2

               SET $PIECE(ZTSK(2),U,6)=IO("HFSIO")

 +11       IF $DATA(IOPAR)#2

               SET ZTSK(25)=IOPAR

 +12       IF $DATA(IOCPU)#2

               SET ZTCPU=IOCPU

 +13       IF ZTCPU]""

               IF $PIECE(ZTSK(0),U,14)]""

                   IF ZTCPU'=$PIECE(ZTSK(0),U,14)

                       SET X=$PIECE(XUTMUCI,",")

                       SET Y=$ORDER(^%ZIS(14.6,"AT",X,$PIECE(ZTSK(0),U,14),ZTCPU,""))

                       IF Y=""

                           SET Y=X

                       SET XUTMUCI=Y_","_ZTCPU

 +14      ;

HELP      ;EDIT--?-help for first prompt

 +1        WRITE !!?5,"Answer must be YES or NO."

 +2        QUIT 

 +3       ;

HELP2     ;EDIT--??-help for first prompt

 +1        WRITE !!?5,"Answer whether this task requires an io device."

 +2        QUIT 

 +3       ;