- DI149ENV ;IRMFO-SF/FM STAFF-ENVIRONMENT CHECK ROUTINE ;6:09 AM 11 Aug 2006
- ;;22.0;VA FileMan;**149**;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
- . ; Make sure exported routines are registered in ROUTINE(#9.8) file
- . ; Edit FOR loop
- . N ROU,ZDATE,%,%H,%I,X
- . D NOW^%DTC
- . S ZDATE=%
- . F ROU="DICM","DICRW","DIQG" D
- .. N IEN S IEN=$O(^DIC(9.8,"B",ROU,0))
- .. I 'IEN D
- ... N FDA,DIERR,ZERR,IEN
- ... S IEN="+1,"
- ... S FDA(9.8,IEN,.01)=ROU
- ... S FDA(9.8,IEN,1)="R"
- ... S FDA(9.8,IEN,7.4)=ZDATE
- ... D UPDATE^DIE("","FDA","IEN")
- ... Q
- .. Q
- . D CLEAN^DILF
- . 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDI149ENV 1736 printed Feb 19, 2025@00:10:34 Page 2
- DI149ENV ;IRMFO-SF/FM STAFF-ENVIRONMENT CHECK ROUTINE ;6:09 AM 11 Aug 2006
- +1 ;;22.0;VA FileMan;**149**;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 ; Make sure exported routines are registered in ROUTINE(#9.8) file
- +7 ; Edit FOR loop
- +8 NEW ROU,ZDATE,%,%H,%I,X
- +9 DO NOW^%DTC
- +10 SET ZDATE=%
- +11 FOR ROU="DICM","DICRW","DIQG"
- Begin DoDot:2
- +12 NEW IEN
- SET IEN=$ORDER(^DIC(9.8,"B",ROU,0))
- +13 IF 'IEN
- Begin DoDot:3
- +14 NEW FDA,DIERR,ZERR,IEN
- +15 SET IEN="+1,"
- +16 SET FDA(9.8,IEN,.01)=ROU
- +17 SET FDA(9.8,IEN,1)="R"
- +18 SET FDA(9.8,IEN,7.4)=ZDATE
- +19 DO UPDATE^DIE("","FDA","IEN")
- +20 QUIT
- End DoDot:3
- +21 QUIT
- End DoDot:2
- +22 DO CLEAN^DILF
- +23 QUIT
- End DoDot:1
- QUIT
- +24 ;
- 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