DIPR167 ;O-OIFO/GMB-Envirocheck and Post Init ;1NOV2012
;;22.0;VA FileMan;**167**;Mar 30, 1999;Build 18
;Per VHA Directive 2004-038, this routine should not be modified.
ENV ; Environmental Check
D BMES^XPDUTL("Perform Environment Check...")
D CHKSTOP
D BMES^XPDUTL("Finished Environment Check.")
Q
CHKSTOP ;
; Check XPDENV 0 = Loading; 1 = Installing
Q:'XPDENV ; Loading Distribution - No Check
;
;
INSCHK ; Do Checks During Install Only
W $C(7)
D MES^XPDUTL(" Queuing is NOT allowed. It is HIGHLY recommended that")
D MES^XPDUTL(" ALL Users be OFF the system and")
D MES^XPDUTL(" VistA Background jobs be STOPPED before installation of this patch.")
D MES^XPDUTL(" TaskMan should be STOPPED or placed in a WAIT state.")
D MES^XPDUTL(" Failure to do so may result in 'source routine edited' error(s).")
D MES^XPDUTL(" Edits may be lost and record(s) may be left in an inconsistent state.")
D MES^XPDUTL(" For example, not all Cross-Referencing completed; which in turn may cause")
D MES^XPDUTL(" FUTURE VistA/FileMan Hard Errors or corrupted Data.")
;
TMCHK ; Check to see if TaskMan is still running
S X=$$TM^%ZTLOAD
I X,'$D(^%ZTSCH("WAIT")) D
. W $C(7)
. D BMES^XPDUTL("* Warning TaskMan Has NOT Been Stopped or Placed in a WAIT State!")
;
LINH ; Check to see if Logons are Inhibited
D GETENV^%ZOSV ; $P(Y,"^",2) = Installing Volume
Q:$G(^%ZIS(14.5,"LOGON",$P(Y,"^",2)))
W $C(7)
D BMES^XPDUTL("* Warning Logons are NOT Inhibited!")
Q
POST ; Post-Init
W $C(7)
D BMES^XPDUTL(" DON'T FORGET! GO TO THE PROGRAMMER PROMPT AND ENTER:")
D MES^XPDUTL(" > D ^DINIT")
D MES^XPDUTL(" Accept all defaults when answering the questions.")
D MES^XPDUTL(" It should take less than 10 seconds.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIPR167 1878 printed Nov 22, 2024@18:03:17 Page 2
DIPR167 ;O-OIFO/GMB-Envirocheck and Post Init ;1NOV2012
+1 ;;22.0;VA FileMan;**167**;Mar 30, 1999;Build 18
+2 ;Per VHA Directive 2004-038, this routine should not be modified.
ENV ; Environmental Check
+1 DO BMES^XPDUTL("Perform Environment Check...")
+2 DO CHKSTOP
+3 DO BMES^XPDUTL("Finished Environment Check.")
+4 QUIT
CHKSTOP ;
+1 ; Check XPDENV 0 = Loading; 1 = Installing
+2 ; Loading Distribution - No Check
if 'XPDENV
QUIT
+3 ;
+4 ;
INSCHK ; Do Checks During Install Only
+1 WRITE $CHAR(7)
+2 DO MES^XPDUTL(" Queuing is NOT allowed. It is HIGHLY recommended that")
+3 DO MES^XPDUTL(" ALL Users be OFF the system and")
+4 DO MES^XPDUTL(" VistA Background jobs be STOPPED before installation of this patch.")
+5 DO MES^XPDUTL(" TaskMan should be STOPPED or placed in a WAIT state.")
+6 DO MES^XPDUTL(" Failure to do so may result in 'source routine edited' error(s).")
+7 DO MES^XPDUTL(" Edits may be lost and record(s) may be left in an inconsistent state.")
+8 DO MES^XPDUTL(" For example, not all Cross-Referencing completed; which in turn may cause")
+9 DO MES^XPDUTL(" FUTURE VistA/FileMan Hard Errors or corrupted Data.")
+10 ;
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 BMES^XPDUTL("* Warning TaskMan Has NOT Been Stopped or Placed in a WAIT State!")
End DoDot:1
+5 ;
LINH ; Check to see if Logons are Inhibited
+1 ; $P(Y,"^",2) = Installing Volume
DO GETENV^%ZOSV
+2 if $GET(^%ZIS(14.5,"LOGON",$PIECE(Y,"^",2)))
QUIT
+3 WRITE $CHAR(7)
+4 DO BMES^XPDUTL("* Warning Logons are NOT Inhibited!")
+5 QUIT
POST ; Post-Init
+1 WRITE $CHAR(7)
+2 DO BMES^XPDUTL(" DON'T FORGET! GO TO THE PROGRAMMER PROMPT AND ENTER:")
+3 DO MES^XPDUTL(" > D ^DINIT")
+4 DO MES^XPDUTL(" Accept all defaults when answering the questions.")
+5 DO MES^XPDUTL(" It should take less than 10 seconds.")
+6 QUIT
