- %ZISG ;Device Handler prototype ;2/18/93 16:30
- ;;8.0T3
- S $ZT="ERR^%ZISG"
- D LOAD^%ZISG2
- D INIT
- K TMP("ZISGDEV","PARENT")
- I $D(%PARENT) S TMP("ZISGDEV","PARENT")=%PARENT("PARENT")
- S TMP("ZISGDEV","G","QFRAME","VISIBLE")=1
- M ^$WINDOW("ZISGDEV")=TMP("ZISGDEV")
- ;D M^XG("ZISGDEV",$NA(TMP("ZISGDEV")))
- ;I $G(^%ZOSF("OS"))["VAX DSM" ESTART 0 ;NEEDED FOR VAX DSM
- ;D ESTA^XG(0)
- D B1
- ESTART
- W !,"THIS IS THE LINE AFTER ESTART COMMAND IN ^%ZISG"
- ;D ESTA^XG()
- ERR ;K ^$W("ZISGDEV")
- ;D K^XG("ZISGTRM")
- ;D K^XG("ZISGDEV")
- W !,"$ZE="_$ZE
- W !,"$EC="_$EC
- W !,"$EREF="_$EREF
- K:$D(^$W("ZISGMT")) ^$W("ZISGMT")
- K:$D(^$W("ZISGHFS")) ^$W("ZISGHFS")
- K:$D(^$W("ZISGSDP")) ^$W("ZISGSDP")
- K:$D(^$W("ZISGSPL")) ^$W("ZISGSPL")
- K:$D(^$W("ZISGTRM")) ^$W("ZISGTRM")
- K:$D(^$W("ZISGDEV")) ^$W("ZISGDEV")
- W !,"$D(%PARENT)="_$D(%PARENT)
- ;I '$D(%PARENT) D CLEAN^XG
- Q
- B1 ;***VADIMS MWAPI/KWAPI INTERFACE***
- I '@XGWIN@("ZISGDEV","G","PROMPT","VISIBLE") D
- .;D S^XG("ZISGDEV","G","PROMPT","VALUE",@XGWIN@("ZISGDEV","G","DEV","VALUE"))
- .S DEV=@XGWIN@("ZISGDEV","G","DEV","VALUE")
- .I DEV]"" D
- ..S ITEM=$$DEVITEM(DEV)
- ..I ITEM]"" D
- ...D S^XG("ZISGDEV","G","PROMPT","VALUE",ITEM,"")
- ...D S^XG("ZISGDEV","G","PROMPT","TOPSHOW",ITEM)
- .D S^XG("ZISGDEV","G","PROMPT","VISIBLE",1)
- .;S ^$W("ZISGDEV","G","QFRAME","VISIBLE")=0
- E D
- .D S^XG("ZISGDEV","G","PROMPT","VISIBLE",0)
- .;S ^$W("ZISGDEV","G","QFRAME","VISIBLE")=1
- .S ITEM=$O(@XGWIN@("ZISGDEV","G","PROMPT","VALUE",""))
- .I ITEM D
- ..D S^XG("ZISGDEV","G","DEV","VALUE",@XGWIN@("ZISGDEV","G","PROMPT","CHOICE",ITEM))
- ..S XGION=@XGWIN@("ZISGDEV","G","PROMPT","CHOICE",ITEM)
- Q
- PROMPT ;PROMPT CALLBACK
- D B1
- N ITEM,VALUE
- S ITEM=$O(^$W("ZISGDEV","G","PROMPT","VALUE",""))
- S VALUE=^$W("ZISGDEV","G","PROMPT","CHOICE",ITEM)
- W !,"ION==>>"_VALUE
- S DA=$O(^%ZIS(1,"B",VALUE,0))
- Q:'DA
- S XGIOST=$P($G(^%ZIS(2,+$G(^%ZIS(1,+DA,"SUBTYPE")),0)),"^")
- S XGIOM=+$G(^%ZIS(1,+DA,91)),XGIOSL=$P($G(^(91)),"^",3)
- Q
- SELQ ;SELECT/DESELECT QUEUING
- D S^XG("ZISGDEV","G","QTIME","ACTIVE",1)
- Q
- DSELQ D S^XG("ZISGDEV","G","QTIME","ACTIVE",0)
- Q
- DEV ; Callback for DEV item.
- N REF,ITEM
- S REF="^$W("""_^$EVENT("WINDOW")_""",""G"")"
- W !,^$W("ZISGDEV","G","DEV","VALUE")
- S DEV=^$W("ZISGDEV","G","DEV","VALUE")
- I DEV]"" D
- .N %,%1
- .K ^$W("ZISGDEV","G","PROMPT","VALUE")
- .F %=1:1 Q:'$D(^$W("ZISGDEV","G","PROMPT","CHOICE",%))!(DEV="") D
- ..S %1=^$W("ZISGDEV","G","PROMPT","CHOICE",%)
- ..I %1=DEV S ^$W("ZISGDEV","G","PROMPT","VALUE",%)="" S DEV="" Q
- ..I %1]DEV S ^$W("ZISGDEV","G","PROMPT","TOPSHOW")=% S DEV="" Q
- S XGION=$S($D(@REF@("DEV","VALUE")):@REF@("DEV","VALUE"),1:"")
- Q
- DEVITEM(X) ;
- N %,%1,Y S Y=""
- K ^$W("ZISGDEV","G","PROMPT","VALUE")
- F %=1:1 Q:'$D(^$W("ZISGDEV","G","PROMPT","CHOICE",%))!(X="") D
- .S %1=^$W("ZISGDEV","G","PROMPT","CHOICE",%)
- .I %1=X!(%1]X) S Y=% S X="" Q
- Q Y
- SETST ;Set subtype
- Q
- SUB ; Callback for SUB item
- Q
- OK ;Callbak for OK button.
- G OK^%ZISG2
- MSGOK ;
- K ^$W("MESSAGE")
- ESTOP
- Q
- MORE ; Callback for advanced setup.
- Q
- HELP ;Callback for help.
- D ^XGLMSG("I","Help is not available at this time.")
- Q
- EXIT ; Callback for exit item in menu
- S IOP="^" D ^%ZIS
- ;ESTOP
- D ESTO^XG
- QUIT
- INIT ;create names of devices into ACDEV
- N %,%1,%2
- K TMP("ZISGDEV","G","PROMPT","CHOICE")
- S %1="" F %=1:1 S %1=$O(^%ZIS(1,"B",%1)) Q:%1']"" F %2=0:0 S %2=$O(^%ZIS(1,"B",%1,%2)) Q:%2'>0 S TMP("ZISGDEV","G","PROMPT","CHOICE",%)=%1
- Q
- ;
- QTIME ;
- G QTIME^%ZISG2
