DI149ENV.m

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 ---DI149ENV   1736     printed  Apr 09, 2024@21:45:51                                                                                                                                                                                                    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