CIAVUTIL ;MSC/IND/DKM - VueCentric Manager Utilities ;27-Feb-2007 00:33;DKM
;;1.1V2;VUECENTRIC FRAMEWORK;;Mar 20, 2007
;;Copyright 2000-2006, Medsphere Systems Corporation
;=================================================================
; Initiate shutdown sequence for applications
SHUTDOWN N DELAY,MSG
W !,"Initiate VueCentric Shutdown Sequence",!!
D SHOWSESS()
W:$$GETLOGIN'="" "Note: shutdown has already been initiated.",!!
F D Q:$D(DELAY)
.R !,"# of seconds till shutdown (30 minimum): ",DELAY:DTIME,!
.E S DELAY=U
.S DELAY=$TR(DELAY," ")
.Q:DELAY[U
.I DELAY["?" D Q
..K DELAY
..W "Enter number of seconds before shutdown.",!
..W "To specify time in minutes, follow number with letter M.",!
.S:DELAY?1.N1(1"M",1"m") DELAY=DELAY*60
.S DELAY=DELAY\1
.K:DELAY<30 DELAY
Q:DELAY[U
Q:'$$ASK^CIAU("Do you really want to shut down VueCentric in "_DELAY_" seconds")
D SDINIT(.MSG,DELAY,1)
W !!,MSG,!!
Q
; Abort a shutdown sequence in progress
ABORTSD N MSG
W !,"Abort VueCentric Shutdown and Enable Logins",!!
D SHOWSESS()
W:$$GETLOGIN="" "Note: a shutdown does not appear to be in progress.",!!
Q:'$$ASK^CIAU("Do you really want to abort any shutdowns in progress and enable logins")
D SDABORT(.MSG,1)
W !!,MSG,!!
Q
; RPC: Initiate shutdown
SDINIT(DATA,DELAY,LOCK,USR) ;
N MSG
S MSG=$P(DELAY,U,2),DELAY=DELAY\1
I DELAY<30 S DATA="Invalid value for shutdown delay." Q
D:$G(LOCK) SETLOGIN("Application is currently offline. Please try later.")
S:'$L(MSG) MSG="Application is shutting down in "_DELAY_" seconds. Please log off."
D BRDCAST^CIANBEVT("SHUTDOWN",DELAY_U_MSG,.USR)
S DATA="Shutdown sequence initiated. "_$$SDMSG
Q
; RPC: Abort shutdown
SDABORT(DATA,UNLOCK,USR) ;
D BRDCAST^CIANBEVT("SHUTDOWN","-1^Application shutdown has been aborted. You may continue.",.USR)
D:$G(UNLOCK) SETLOGIN()
S DATA="Shutdown sequence aborted. "_$$SDMSG
Q
; Login status message
SDMSG() Q "Logins are "_$S($L($$GETLOGIN):"disabled.",1:"enabled.")
; Get inhibit login message
GETLOGIN() ;
Q $$OPTMSG^CIANBUTL("CIAV VUECENTRIC")
; Set inhibit login message
SETLOGIN(MSG) ;
D OPTMSG^CIANBUTL("CIAV VUECENTRIC",$G(MSG))
Q
; RPC: Get/set inhibit login message
MSGLOGIN(DATA,MSG) ;
I '$D(MSG) S DATA=$$GETLOGIN
E D SETLOGIN(MSG)
Q
; Cleanup user data upon user termination
USRTRM(USR) ;
D TMPLDEL^CIAVMCFG("$"_USR)
Q
; Show active VueCentric sessions
SHOWSESS() ;
N X
S X=$$SHOWSESS^CIANBUTL("CIAV VUECENTRIC")
Q:$Q X
Q
CIAVUTIL ;MSC/IND/DKM - VueCentric Manager Utilities ;27-Feb-2007 00:33;DKM
+1 ;;1.1V2;VUECENTRIC FRAMEWORK;;Mar 20, 2007
+2 ;;Copyright 2000-2006, Medsphere Systems Corporation
+3 ;=================================================================
+4 ; Initiate shutdown sequence for applications
SHUTDOWN NEW DELAY,MSG
+1 WRITE !,"Initiate VueCentric Shutdown Sequence",!!
+2 DO SHOWSESS()
+3 IF $$GETLOGIN'=""
WRITE "Note: shutdown has already been initiated.",!!
+4 FOR
Begin DoDot:1
+5 READ !,"# of seconds till shutdown (30 minimum): ",DELAY:DTIME,!
+6 IF '$TEST
SET DELAY=U
+7 SET DELAY=$TRANSLATE(DELAY," ")
+8 IF DELAY[U
QUIT
+9 IF DELAY["?"
Begin DoDot:2
+10 KILL DELAY
+11 WRITE "Enter number of seconds before shutdown.",!
+12 WRITE "To specify time in minutes, follow number with letter M.",!
End DoDot:2
QUIT
+13 IF DELAY?1.N1(1"M",1"m")
SET DELAY=DELAY*60
+14 SET DELAY=DELAY\1
+15 IF DELAY<30
KILL DELAY
End DoDot:1
IF $DATA(DELAY)
QUIT
+16 IF DELAY[U
QUIT
+17 IF '$$ASK^CIAU("Do you really want to shut down VueCentric in "_DELAY_" seconds")
QUIT
+18 DO SDINIT(.MSG,DELAY,1)
+19 WRITE !!,MSG,!!
+20 QUIT
+21 ; Abort a shutdown sequence in progress
ABORTSD NEW MSG
+1 WRITE !,"Abort VueCentric Shutdown and Enable Logins",!!
+2 DO SHOWSESS()
+3 IF $$GETLOGIN=""
WRITE "Note: a shutdown does not appear to be in progress.",!!
+4 IF '$$ASK^CIAU("Do you really want to abort any shutdowns in progress and enable logins")
QUIT
+5 DO SDABORT(.MSG,1)
+6 WRITE !!,MSG,!!
+7 QUIT
+8 ; RPC: Initiate shutdown
SDINIT(DATA,DELAY,LOCK,USR) ;
+1 NEW MSG
+2 SET MSG=$PIECE(DELAY,U,2)
SET DELAY=DELAY\1
+3 IF DELAY<30
SET DATA="Invalid value for shutdown delay."
QUIT
+4 IF $GET(LOCK)
DO SETLOGIN("Application is currently offline. Please try later.")
+5 IF '$LENGTH(MSG)
SET MSG="Application is shutting down in "_DELAY_" seconds. Please log off."
+6 DO BRDCAST^CIANBEVT("SHUTDOWN",DELAY_U_MSG,.USR)
+7 SET DATA="Shutdown sequence initiated. "_$$SDMSG
+8 QUIT
+9 ; RPC: Abort shutdown
SDABORT(DATA,UNLOCK,USR) ;
+1 DO BRDCAST^CIANBEVT("SHUTDOWN","-1^Application shutdown has been aborted. You may continue.",.USR)
+2 IF $GET(UNLOCK)
DO SETLOGIN()
+3 SET DATA="Shutdown sequence aborted. "_$$SDMSG
+4 QUIT
+5 ; Login status message
SDMSG() QUIT "Logins are "_$SELECT($LENGTH($$GETLOGIN):"disabled.",1:"enabled.")
+1 ; Get inhibit login message
GETLOGIN() ;
+1 QUIT $$OPTMSG^CIANBUTL("CIAV VUECENTRIC")
+2 ; Set inhibit login message
SETLOGIN(MSG) ;
+1 DO OPTMSG^CIANBUTL("CIAV VUECENTRIC",$GET(MSG))
+2 QUIT
+3 ; RPC: Get/set inhibit login message
MSGLOGIN(DATA,MSG) ;
+1 IF '$DATA(MSG)
SET DATA=$$GETLOGIN
+2 IF '$TEST
DO SETLOGIN(MSG)
+3 QUIT
+4 ; Cleanup user data upon user termination
USRTRM(USR) ;
+1 DO TMPLDEL^CIAVMCFG("$"_USR)
+2 QUIT
+3 ; Show active VueCentric sessions
SHOWSESS() ;
+1 NEW X
+2 SET X=$$SHOWSESS^CIANBUTL("CIAV VUECENTRIC")
+3 IF $QUIT
QUIT X
+4 QUIT
