- 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 ;
