%ZISG1 ;Device Handler prototype
;;8.0T3
;W !,$D(^$DI) K (%BUG) ;S:'$D(%BUG) %BUG=0 K:%BUG="NO" %BUG
S XGDA=""
I '$D(XGION) D
.S XGION=$S($D(^$W("ZISGDEV","G","DEV","VALUE")):^$W("ZISGDEV","G","DEV","VALUE"),1:"")
S:$G(XGION)]"" XGDA=$O(^%ZIS(1,"B",XGION,0))
S XGIOT=$G(^%ZIS(1,+XGDA,"TYPE"))
I XGIOT']""!('XGDA) D ^XGLMSG("E","No Device has been selected.") q
I XGIOT'="TRM" G @XGIOT
D INIT
I $D(^$W("ZISGTRM")) S ^$W("ZISGTRM","VISIBLE")=1 ;K ^$W("ZISGTRM")
E M ^$W("ZISGTRM")=TMP("ZISGTRM")
S ^$DI($PD,"FOCUS")="ZISGTRM"
I $G(^%ZOSF("OS"))["VAX DSM" ESTART 0
;D ESTA^XG(0)
;;I $D(XGIOST) D
;;.S ^$W("ZISGTRM","G","SUB","VALUE")=XGIOST
;;.ETRIGGER ^$W("ZISGTRM","G","SUB","EVENT","CHANGE")
S ^$W("ZISGTRM","VISIBLE")=1
;D S^XG("ZISGTRM","VISIBLE",1)
D B2
ESTART
;D ESTA^XG()
ERR ;K ^$W("ZISGTRM")
;D K^XG("ZISGTRM")
;D S^XG("ZISGTRM","VISIBLE",0)
Q
SUBTYPE ;
D B2^%ZISG3
Q
B2 G B2^%ZISG3
DEV ; Callback for DEV item.
Q
SUB ; Callback for SUB item
G SUB^%ZISG3
CHGRAD ;CHANGE IN MARGIN
G CHGRAD^%ZISG3
OK ; Callback for exit item in menu
W !,"EXIT^%ZISG1 CALLED UPON CANCEL OF MORE"
;D S^XG("ZISGTRM","VISIBLE",0)
S ^$W("ZISGTRM","VISIBLE")=0
W !,"JUST BEFORE ESTOP OF TAG EXIT^%ZISG1"
ESTOP
;D ESTO^XG
QUIT
CANCEL K ^$W("ZISGTRM")
ESTOP
;D ESTO^XG
QUIT
HELP ;Callback for help.
D ^XGLMSG("I","Help is not available at this time.")
Q
INIT ;create names of devices into ACDEV
N %,%1,%2
K TMP("ZISGTRM","G","SUBTYPE","CHOICE")
S %1="" F %=1:1 S %1=$O(^%ZIS(2,"B",%1)) Q:%1']"" F %2=0:0 S %2=$O(^%ZIS(2,"B",%1,%2)) Q:%2'>0 S TMP("ZISGTRM","G","SUBTYPE","CHOICE",%)=%1
Q
;
SPL ;Entry point for SPOOL devices.
I '$D(DUZ) D ^XGLMSG("E","Your DUZ is not defined!") Q
I $S($D(^VA(200,DUZ,"SPL")):$E(^("SPL"),1),1:"N")'["y" D Q
.D ^XGLMSG("E","You aren't an authorized SPOOLER user.") Q
.; W:'$D(IOP) !?5,"You aren't an authorized SPOOLER user." Q
I '$D(^$W("ZISGSPL")) D
.M ^$W("ZISGSPL")=TMP("ZISGSPL")
.M TMP("OLD","G","ZISGSPL","CHOICE")=^XMB(3.51,"B")
.S X="",Y=""
.S XGDIC("S")="I '$P(^XMB(3.51,Y,0),U,10)"
.F S X=$O(TMP("OLD","G","ZISGSPL","CHOICE",X)) Q:X="" D
..S Y="" F S Y=$O(TMP("OLD","G","ZISGSPL","CHOICE",X,Y)) Q:Y="" D
...I 0
...X:$D(^DD(3.51,0,"SCR")) ^("SCR") I $T X XGDIC("S") I $T S TMP("NEW","G","ZISGSPL","CHOICE",X_"^"_Y)=X
.M ^$W("ZISGSPL","G","DOC","CHOICE")=TMP("NEW","G","ZISGSPL","CHOICE")
E S ^$W("ZISGSPL","VISIBLE")=1
S ^$DI($PD,"FOCUS")="ZISGSPL"
ESTART
Q
SPLOK ; Callback for exit item in menu
W !,"OK BUTTON CALLED IN SPOOL SETUP"
S XGDOC=^$W("ZISGSPL","G","DOC","VALUE")
;D S^XG("ZISGSPL","VISIBLE",0)
S ^$W("ZISGSPL","VISIBLE")=0
ESTOP
;D ESTO^XG
QUIT
SPLNOK K ^$W("ZISGSPL")
ESTOP
;D ESTO^XG
QUIT
;
MT ;Magtape device setup
S XGDA=""
I '$D(XGION) D
.S XGION=$S($D(^$W("ZISGDEV","G","DEV","VALUE")):^$W("ZISGDEV","G","DEV","VALUE"),1:"")
S:$G(XGION)]"" XGDA=$O(^%ZIS(1,"B",XGION,0))
M ^$W("ZISGMT")=TMP("ZISGMT")
S ^$W("ZISGMT","G","OPENPARAM","VALUE")=$G(^%ZIS(1,+XGDA,"IOPAR"))
S ^$DI($PD,"FOCUS")="ZISGMT"
ESTART
Q
MTOK ; Callback for exit item in menu
W !,"OK BUTTON CALLED IN SPOOL SETUP"
S XGPAR=^$W("ZISGMT","G","OPENPARAM","VALUE")
;D S^XG("ZISGMT","VISIBLE",0)
S ^$W("ZISGMT","VISIBLE")=0
W !,"JUST BEFORE ESTOP OF TAG MTOK^%ZISG1"
ESTOP
;D ESTO^XG
QUIT
MTNOK K ^$W("ZISGMT")
ESTOP
;D ESTO^XG
QUIT
SDP ;SDP device setup
S XGDA=""
I '$D(XGION) D
.S XGION=$S($D(^$W("ZISGDEV","G","DEV","VALUE")):^$W("ZISGDEV","G","DEV","VALUE"),1:"")
S:$G(XGION)]"" XGDA=$O(^%ZIS(1,"B",XGION,0))
M ^$W("ZISGSDP")=TMP("ZISGSDP")
S ^$W("ZISGSDP","G","OPENPARAM","VALUE")=$G(^%ZIS(1,+XGDA,"IOPAR"))
S ^$DI($PD,"FOCUS")="ZISGSDP"
ESTART
Q
SDPOK ; Callback for exit item in menu
W !,"OK BUTTON CALLED IN SPOOL SETUP"
S XGPAR=^$W("ZISGSDP","G","OPENPARAM","VALUE")
;D S^XG("ZISGSDP","VISIBLE",0)
S ^$W("ZISGSDP","VISIBLE")=0
W !,"JUST BEFORE ESTOP OF TAG SDPOK^%ZISG1"
ESTOP
;D ESTO^XG
QUIT
SDPNOK K ^$W("ZISGSDP")
ESTOP
;D ESTO^XG
QUIT
HFS ;HOST FILE device setup
S XGDA=""
I '$D(XGION) D
.S XGION=$S($D(^$W("ZISGDEV","G","DEV","VALUE")):^$W("ZISGDEV","G","DEV","VALUE"),1:"")
S:$G(XGION)]"" XGDA=$O(^%ZIS(1,"B",XGION,0))
M ^$W("ZISGHFS")=TMP("ZISGHFS")
S ^$W("ZISGHFS","G","OPENPARAM")=$G(^%ZIS(1,+XGDA,"IOPAR"))
S ^$DI($PD,"FOCUS")="ZISGHFS"
ESTART
Q
HFSOK ; Callback for exit item in menu
W !,"OK BUTTON CALLED IN SPOOL SETUP"
S XGPAR=^$W("ZISGHFS","G","OPENPARAM","VALUE")
;D S^XG("ZISGHFS","VISIBLE",0)
S ^$W("ZISGHFS","VISIBLE")=0
W !,"JUST BEFORE ESTOP OF TAG HFSOK^%ZISG1"
ESTOP
;D ESTO^XG
QUIT
HFSNOK K ^$W("ZISGHFS")
ESTOP
;D ESTO^XG
QUIT
