XU8P580 ;O-OIFO/GMB-Delete OBJECT multiple from HELP FRAME file ;06/05/2012
;;8.0;KERNEL;**580**;Jul 10, 1995;Build 46
;
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("** 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
Q:$G(^%ZIS(14.5,"LOGON",$P(Y,"^",2)))
W $C(7)
D BMES^XPDUTL("* Warning Logons are NOT Inhibited!")
Q
;
PRE ;Pre-Init
D BMES^XPDUTL("Beginning Pre-Installation...")
D BMES^XPDUTL(" I am deleting the cross-reference ""SAN"" for field #501.2 file #200.")
K ^VA(200,"SAN")
D BMES^XPDUTL("Finished Pre-Installation.")
Q
;
POST ; Post-Init
D BMES^XPDUTL("Beginning Post-Installation...")
D BMES^XPDUTL(" I am deleting the OBJECT (#9.201) multiple from the HELP FRAME (#9.2) file.")
D BMES^XPDUTL(" I am re-indexing ""ASAN"" cross-reference for field #501.2 file #200. ")
N DIU
S DIU=9.201,DIU(0)="DS" D EN^DIU2
D REINDEX
D BMES^XPDUTL("Finished Post-Installation.")
Q
;
REINDEX ;Re-index xfer "ASAN"
N DIK,DA
S DIK="^VA(200,"
S DIK(1)="501.2^ASAN"
D ENALL^DIK
Q
;
;END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P580 2071 printed Dec 13, 2024@02:08:13 Page 2
XU8P580 ;O-OIFO/GMB-Delete OBJECT multiple from HELP FRAME file ;06/05/2012
+1 ;;8.0;KERNEL;**580**;Jul 10, 1995;Build 46
+2 ;
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 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
+6 ;
PRE ;Pre-Init
+1 DO BMES^XPDUTL("Beginning Pre-Installation...")
+2 DO BMES^XPDUTL(" I am deleting the cross-reference ""SAN"" for field #501.2 file #200.")
+3 KILL ^VA(200,"SAN")
+4 DO BMES^XPDUTL("Finished Pre-Installation.")
+5 QUIT
+6 ;
POST ; Post-Init
+1 DO BMES^XPDUTL("Beginning Post-Installation...")
+2 DO BMES^XPDUTL(" I am deleting the OBJECT (#9.201) multiple from the HELP FRAME (#9.2) file.")
+3 DO BMES^XPDUTL(" I am re-indexing ""ASAN"" cross-reference for field #501.2 file #200. ")
+4 NEW DIU
+5 SET DIU=9.201
SET DIU(0)="DS"
DO EN^DIU2
+6 DO REINDEX
+7 DO BMES^XPDUTL("Finished Post-Installation.")
+8 QUIT
+9 ;
REINDEX ;Re-index xfer "ASAN"
+1 NEW DIK,DA
+2 SET DIK="^VA(200,"
+3 SET DIK(1)="501.2^ASAN"
+4 DO ENALL^DIK
+5 QUIT
+6 ;
+7 ;END
+8
***** ERRORS & WARNINGS IN XU8P580 *****
REINDEX+8 W - Null line (no commands or comment).
