ZISEDIT.m

ZISEDIT ;ISF/AC - DEVICE EDIT ;10/26/2011

 ;;8.0;KERNEL;**440,585**;Jul 10, 1995;Build 23

 ;

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

 ;

 ;

 ;

 ;

 ;

 ;

 ;

 ;

 ;

ZISEDIT   ;ISF/AC - DEVICE EDIT ;10/26/2011

 +1       ;;8.0;KERNEL;**440,585**;Jul 10, 1995;Build 23

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