ZISEDIT ;ISF/AC - DEVICE EDIT ;10/26/2011
;;8.0;KERNEL;**440,585**;Jul 10, 1995;Build 22
;
TRM ;TRM or VTRM
D EDIT("TRM",,"Select Terminal/Printer Device: ")
Q
;
LPD ;LPD fields of a TRM device
D EDIT("LPD","TRM","Select LPD (Terminal/Printer) Device: ")
Q
;
MT ;Mag Tape
D EDIT("MT",,"Select Magtape Device: ")
Q
;
SDP ;
D EDIT("SDP",,"Select SDP Device: ")
Q
;
SPL ;Spool
D EDIT("SPL",,"Select Spool Device: ")
Q
;
HFS ;Host file
D EDIT("HFS",,"Select Host File Device: ")
Q
;**P 585 START CJM
PQ ;Print Queue
D EDIT("PQ","PQ","Select Print Queue Device: ")
Q
;**P 585 END CJM
;
CHAN ;Network
D EDIT("CHAN",,"Select Network Channel: ")
Q
;
RES ;Resource
D EDIT("RES",,"Select Resource Device: ")
Q
;
EDIT(ZISTYPE,ZISSCR,DICA) ;
N Y,DA,DIC,DIE,DR,DDSFILE
ED2 S DIC("A")=DICA,ZISSCR=$G(ZISSCR,ZISTYPE)
S DIC=3.5,DIC(0)="AEMQZL",DIC("S")="I $G(^(""TYPE""))["_""""_ZISSCR_"""" D ^DIC
Q:Y'>0
S DA=+Y
I $P(Y,"^",3) D
. N DIE,DR
. S DIE=DIC,DR="2///"_ZISTYPE_$S(ZISTYPE["TRM":"",1:";1.95///N")
. D ^DIE
. Q
S DR="[XUDEVICE "_ZISTYPE_"]",DDSFILE=3.5 D ^DDS
G ED2
Q
;
;
;
;
;
;
;
;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HZISEDIT 1191 printed Nov 22, 2024@17:24:44 Page 2
ZISEDIT ;ISF/AC - DEVICE EDIT ;10/26/2011
+1 ;;8.0;KERNEL;**440,585**;Jul 10, 1995;Build 22
+2 ;
TRM ;TRM or VTRM
+1 DO EDIT("TRM",,"Select Terminal/Printer Device: ")
+2 QUIT
+3 ;
LPD ;LPD fields of a TRM device
+1 DO EDIT("LPD","TRM","Select LPD (Terminal/Printer) Device: ")
+2 QUIT
+3 ;
MT ;Mag Tape
+1 DO EDIT("MT",,"Select Magtape Device: ")
+2 QUIT
+3 ;
SDP ;
+1 DO EDIT("SDP",,"Select SDP Device: ")
+2 QUIT
+3 ;
SPL ;Spool
+1 DO EDIT("SPL",,"Select Spool Device: ")
+2 QUIT
+3 ;
HFS ;Host file
+1 DO EDIT("HFS",,"Select Host File Device: ")
+2 QUIT
+3 ;**P 585 START CJM
PQ ;Print Queue
+1 DO EDIT("PQ","PQ","Select Print Queue Device: ")
+2 QUIT
+3 ;**P 585 END CJM
+4 ;
CHAN ;Network
+1 DO EDIT("CHAN",,"Select Network Channel: ")
+2 QUIT
+3 ;
RES ;Resource
+1 DO EDIT("RES",,"Select Resource Device: ")
+2 QUIT
+3 ;
EDIT(ZISTYPE,ZISSCR,DICA) ;
+1 NEW Y,DA,DIC,DIE,DR,DDSFILE
ED2 SET DIC("A")=DICA
SET ZISSCR=$GET(ZISSCR,ZISTYPE)
+1 SET DIC=3.5
SET DIC(0)="AEMQZL"
SET DIC("S")="I $G(^(""TYPE""))["_""""_ZISSCR_""""
DO ^DIC
+2 if Y'>0
QUIT
+3 SET DA=+Y
+4 IF $PIECE(Y,"^",3)
Begin DoDot:1
+5 NEW DIE,DR
+6 SET DIE=DIC
SET DR="2///"_ZISTYPE_$SELECT(ZISTYPE["TRM":"",1:";1.95///N")
+7 DO ^DIE
+8 QUIT
End DoDot:1
+9 SET DR="[XUDEVICE "_ZISTYPE_"]"
SET DDSFILE=3.5
DO ^DDS
+10 GOTO ED2
+11 QUIT
+12 ;
+13 ;
+14 ;
+15 ;
+16 ;
+17 ;
+18 ;
+19 ;
+20 ;
