DIPR167.m

DIPR167 ;O-OIFO/GMB-Envirocheck and Post Init ;1NOV2012

 ;;22.0;VA FileMan;**167**;Mar 30, 1999;Build 20

 ;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

DIPR167   ;O-OIFO/GMB-Envirocheck and Post Init ;1NOV2012

 +1       ;;22.0;VA FileMan;**167**;Mar 30, 1999;Build 20

 +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