source: FOIAVistA/tag/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUTMTEIO.m@ 1569

Last change on this file since 1569 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.4 KB
Line 
1XUTMTEIO ;SEA/RDS - TaskMan: Toolkit, Edit I/O Device ; ;
2 ;;8.0;KERNEL;;Jul 10, 1995
3 ;
4ASK ;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 ;
16EDIT ;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 ;
31HELP ;EDIT--?-help for first prompt
32 W !!?5,"Answer must be YES or NO."
33 Q
34 ;
35HELP2 ;EDIT--??-help for first prompt
36 W !!?5,"Answer whether this task requires an io device."
37 Q
38 ;
Note: See TracBrowser for help on using the repository browser.