DIPR160.m

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 ---DIPR160   2402     printed  Feb 19, 2025@00:19:29                                                                                                                                                                                                     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