DIPR160 ;O-OIFO/GMB-Change Routine Size ;2/3/2009
;;22.0;VA FileMan;**160**;Mar 30, 1999;Build 1
;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
I 'XPDENV Q ; Loading Distribution - No Check
;
;
INSCHK ; Do Checks During Install Only
W $C(7)
D MES^XPDUTL("** Although Queuing is allowed - it is HIGHLY recommended that ALL Users and")
D MES^XPDUTL("VISTA Background jobs be STOPPED before installation of this patch. Failure")
D MES^XPDUTL("to do so may result in 'source routine edited' error(s). Edits will be")
D MES^XPDUTL("lost and record(s) may be left in an inconsistent state, for example,")
D MES^XPDUTL("not all Cross-Referencing completed; which in turn may cause FUTURE")
D MES^XPDUTL("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
S X=+$G(^%ZIS(14.5,"LOGON",$P(Y,"^",2)))
I 'X D
. W $C(7)
. D BMES^XPDUTL("* Warning Logons are NOT Inhibited!")
Q
POSTINIT ; Post-Init
D BMES^XPDUTL("Beginning Post-Installation...")
I $$ROUSIZE^DILF=15000 D
. D MES^XPDUTL(" Global ^DD(""ROU"") is already set to 15000. No action taken.")
E D
. D MES^XPDUTL(" I am changing global ^DD(""ROU"") from "_$$ROUSIZE^DILF_"...")
. S ^DD("ROU")=15000
. D MES^XPDUTL(" ...to "_$$ROUSIZE^DILF)
N LINE
S LINE=$G(^DD("OS",19,"ZS"))
I LINE["$P($P($P(",LINE?.E1"ZLINK X""" D
. D BMES^XPDUTL(" The ZSAVE code has already been corrected for UNIX. No action taken.")
E D
. D BMES^XPDUTL(" I am changing ^DD(""OS"",19,""ZS"") to correct the ZSAVE code for UNIX.")
. S LINE="N %I,%F,%S S %I=$I,%F=$P($P($P($ZRO,"")""),""("",2),"" "")_""/""_X_"".m"" O %F:(NEWVERSION) U %F X ""S %S=0 F S %S=$O(^UTILITY($J,0,%S)) "
. S ^DD("OS",19,"ZS")=LINE_"Q:%S="""""""" Q:'$D(^(%S)) S %=^UTILITY($J,0,%S) I $E(%)'="""";"""" W %,!"" C %F U %I X ""ZLINK X"""
D MES^XPDUTL("Finished Post-Installation.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIPR160 2402 printed Sep 23, 2025@20:29:21 Page 2
DIPR160 ;O-OIFO/GMB-Change Routine Size ;2/3/2009
+1 ;;22.0;VA FileMan;**160**;Mar 30, 1999;Build 1
+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("** Although Queuing is allowed - it is HIGHLY recommended that ALL Users and")
+3 DO MES^XPDUTL("VISTA Background jobs be STOPPED before installation of this patch. Failure")
+4 DO MES^XPDUTL("to do so may result in 'source routine edited' error(s). Edits will be")
+5 DO MES^XPDUTL("lost and record(s) may be left in an inconsistent state, for example,")
+6 DO MES^XPDUTL("not all Cross-Referencing completed; which in turn may cause FUTURE")
+7 DO MES^XPDUTL("VistA/FileMan Hard Errors or corrupted Data. **")
+8 ;
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 SET X=+$GET(^%ZIS(14.5,"LOGON",$PIECE(Y,"^",2)))
+3 IF 'X
Begin DoDot:1
+4 WRITE $CHAR(7)
+5 DO BMES^XPDUTL("* Warning Logons are NOT Inhibited!")
End DoDot:1
+6 QUIT
POSTINIT ; Post-Init
+1 DO BMES^XPDUTL("Beginning Post-Installation...")
+2 IF $$ROUSIZE^DILF=15000
Begin DoDot:1
+3 DO MES^XPDUTL(" Global ^DD(""ROU"") is already set to 15000. No action taken.")
End DoDot:1
+4 IF '$TEST
Begin DoDot:1
+5 DO MES^XPDUTL(" I am changing global ^DD(""ROU"") from "_$$ROUSIZE^DILF_"...")
+6 SET ^DD("ROU")=15000
+7 DO MES^XPDUTL(" ...to "_$$ROUSIZE^DILF)
End DoDot:1
+8 NEW LINE
+9 SET LINE=$GET(^DD("OS",19,"ZS"))
+10 IF LINE["$P($P($P("
IF LINE?.E1"ZLINK X"""
Begin DoDot:1
+11 DO BMES^XPDUTL(" The ZSAVE code has already been corrected for UNIX. No action taken.")
End DoDot:1
+12 IF '$TEST
Begin DoDot:1
+13 DO BMES^XPDUTL(" I am changing ^DD(""OS"",19,""ZS"") to correct the ZSAVE code for UNIX.")
+14 SET LINE="N %I,%F,%S S %I=$I,%F=$P($P($P($ZRO,"")""),""("",2),"" "")_""/""_X_"".m"" O %F:(NEWVERSION) U %F X ""S %S=0 F S %S=$O(^UTILITY($J,0,%S)) "
+15 SET ^DD("OS",19,"ZS")=LINE_"Q:%S="""""""" Q:'$D(^(%S)) S %=^UTILITY($J,0,%S) I $E(%)'="""";"""" W %,!"" C %F U %I X ""ZLINK X"""
End DoDot:1
+16 DO MES^XPDUTL("Finished Post-Installation.")
+17 QUIT
