| 1 | XUTMTEIO ;SEA/RDS - TaskMan: Toolkit, Edit I/O Device ; ;
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | ASK ;determine whether task should have an io device
|
|---|
| 5 | S DIR(0)="YO"
|
|---|
| 6 | S DIR("A")="Do you wish to requeue this task to a device"
|
|---|
| 7 | S DIR("B")=$S($P(ZTSK(2),U)="":"NO",1:"YES")
|
|---|
| 8 | S DIR("?")="^D HELP^XUTMTEIO"
|
|---|
| 9 | S DIR("??")="^D HELP2^ZTMEIO"
|
|---|
| 10 | D ^DIR
|
|---|
| 11 | I $D(DTOUT) W $C(7)
|
|---|
| 12 | I $D(DIRUT) Q
|
|---|
| 13 | I 'Y S ZTSK(2)="",ZTSK(25)="" Q
|
|---|
| 14 | S XUTMUCI="",ZTCPU="",ZTIO=""
|
|---|
| 15 | ;
|
|---|
| 16 | EDIT ;edit task's io device
|
|---|
| 17 | S %ZIS="NZ"
|
|---|
| 18 | S %ZIS("A")="IO DEVICE: "
|
|---|
| 19 | S %ZIS("B")=$S($P(ZTSK(2),U)]"":$P(ZTSK(2),U),1:"")
|
|---|
| 20 | D ^%ZIS
|
|---|
| 21 | S ZTIO=$S($D(IOS)[0:"",POP:"",$D(ION)[0:"",ION]"":ION,IOS="":"",$D(^%ZIS(1,IOS,0))[0:"",1:$P(^(0),U))
|
|---|
| 22 | I ZTIO="" S DIRUT=1 Q
|
|---|
| 23 | I IOT="VTRM" D HOME^%ZIS W !,"Tasks can not open virtual terminals.",$C(7),! G EDIT
|
|---|
| 24 | 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"))
|
|---|
| 25 | S $P(ZTSK(2),U,6)="",ZTSK(25)=""
|
|---|
| 26 | I $D(IO("HFSIO"))#2 S $P(ZTSK(2),U,6)=IO("HFSIO")
|
|---|
| 27 | I $D(IOPAR)#2 S ZTSK(25)=IOPAR
|
|---|
| 28 | I $D(IOCPU)#2 S ZTCPU=IOCPU
|
|---|
| 29 | 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
|
|---|
| 30 | ;
|
|---|
| 31 | HELP ;EDIT--?-help for first prompt
|
|---|
| 32 | W !!?5,"Answer must be YES or NO."
|
|---|
| 33 | Q
|
|---|
| 34 | ;
|
|---|
| 35 | HELP2 ;EDIT--??-help for first prompt
|
|---|
| 36 | W !!?5,"Answer whether this task requires an io device."
|
|---|
| 37 | Q
|
|---|
| 38 | ;
|
|---|
