DIENVSTP ;IRMFO-SF/FM STAFF-ENVIRONMENT CHECK ROUTINE ;11/6/98 12:53
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
;
; Check XPDENV 0 = Loading; 1 = Installing
I 'XPDENV Q ; Loading Distribution - No Check
;
INSCHK ; Do Checks During Install Only
S XPDNOQUE=1 ;prevents QUEUEING of a FM patch install
;
TMCHK ; Check to see if TaskMan is still running
S X=$$TM^%ZTLOAD
I X,'$D(^%ZTSCH("WAIT")) D
. W $C(7)
. D MES^XPDUTL("* Install Stopped Because TaskMan Has NOT Been Stopped!")
. D MES^XPDUTL(" Transport Global Was NOT Unloaded!")
. S XPDQUIT=2
;
LINH ; Check to see if Logons are Inhibited
D GETENV^%ZOSV ; $P(Y,"^",2) = Installing Volume
S X=+$G(^%ZIS(14.5,"LOGON",$P(Y,"^",2)))
I 'X D Q ; Bail Out of Install
. W $C(7)
. D BMES^XPDUTL("* Install Stopped Because Logon Were NOT Inhibited.")
. D MES^XPDUTL(" Transport Global Was NOT Unloaded!")
. S XPDQUIT=2
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIENVSTP 1185 printed Nov 22, 2024@17:57:09 Page 2
DIENVSTP ;IRMFO-SF/FM STAFF-ENVIRONMENT CHECK ROUTINE ;11/6/98 12:53
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
+7 ; Check XPDENV 0 = Loading; 1 = Installing
+8 ; Loading Distribution - No Check
IF 'XPDENV
QUIT
+9 ;
INSCHK ; Do Checks During Install Only
+1 ;prevents QUEUEING of a FM patch install
SET XPDNOQUE=1
+2 ;
TMCHK ; Check to see if TaskMan is still running
+1 SET X=$$TM^%ZTLOAD
+2 IF X
IF '$DATA(^%ZTSCH("WAIT"))
Begin DoDot:1
+3 WRITE $CHAR(7)
+4 DO MES^XPDUTL("* Install Stopped Because TaskMan Has NOT Been Stopped!")
+5 DO MES^XPDUTL(" Transport Global Was NOT Unloaded!")
+6 SET XPDQUIT=2
End DoDot:1
+7 ;
LINH ; Check to see if Logons are Inhibited
+1 ; $P(Y,"^",2) = Installing Volume
DO GETENV^%ZOSV
+2 SET X=+$GET(^%ZIS(14.5,"LOGON",$PIECE(Y,"^",2)))
+3 ; Bail Out of Install
IF 'X
Begin DoDot:1
+4 WRITE $CHAR(7)
+5 DO BMES^XPDUTL("* Install Stopped Because Logon Were NOT Inhibited.")
+6 DO MES^XPDUTL(" Transport Global Was NOT Unloaded!")
+7 SET XPDQUIT=2
End DoDot:1
QUIT
+8 QUIT
