- DI156ENV ;IRMFO-SF/FM STAFF-ENVIRONMENT CHECK ROUTINE ;12:08 PM 8 Jun 2007
- ;;22.0;VA FileMan;**156**;Mar 30, 1999;Build 1
- ;Per VHA Directive 10-93-142, this routine should not be modified.
- ;
- ; Check XPDENV 0 = Loading; 1 = Installing
- I 'XPDENV D Q ; Loading Distribution - No Check
- . Q
- ;
- 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
- DI156ENV ;IRMFO-SF/FM STAFF-ENVIRONMENT CHECK ROUTINE ;12:08 PM 8 Jun 2007
- +1 ;;22.0;VA FileMan;**156**;Mar 30, 1999;Build 1
- +2 ;Per VHA Directive 10-93-142, this routine should not be modified.
- +3 ;
- +4 ; Check XPDENV 0 = Loading; 1 = Installing
- +5 ; Loading Distribution - No Check
- IF 'XPDENV
- Begin DoDot:1
- +6 QUIT
- End DoDot:1
- QUIT
- +7 ;
- 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