XU8P580.m

XU8P580 ;O-OIFO/GMB-Delete OBJECT multiple from HELP FRAME file ;06/05/2012

 ;;8.0;KERNEL;**580**;Jul 10, 1995;Build 47

 ;

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

XU8P580   ;O-OIFO/GMB-Delete OBJECT multiple from HELP FRAME file ;06/05/2012

 +1       ;;8.0;KERNEL;**580**;Jul 10, 1995;Build 47

 +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).