Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DG53705I

DG53705I.m

Go to the documentation of this file.
  1. DG53705I ;ALB/TMK - DG*5.3*705 Pre-Install Routine ; 05-APR-2006
  1. ;;5.3;Registration;**705**;Aug 13, 1993
  1. ;
  1. EN ; Description: This entry point will be used as a driver for
  1. ; pre-installation updates.
  1. ; DBIA: 4542 for direct DD global access/kills and for one-time
  1. ; call to Fileman PT node cleanup (PT^DDUCHK1)
  1. ;
  1. ; If the patch DVB*4*54 was not installed, skip the cleanup
  1. N %
  1. K ^TMP("DG*5.3*705",$J)
  1. S %=$$CKUPD^DG53705E()
  1. I '% D Q
  1. . N ZMES,I
  1. . F I=1,2 S ZMES(I)=" "
  1. . S ZMES(3)="**** PATCH IS BEING INSTALLED IN NON-UPDATE MODE ****"
  1. . S ZMES(4)=" "
  1. . S ZMES(5)="NOTE: THE SYSTEM HAS DETERMINED THAT YOUR PATIENT FILE DOES NOT HAVE BAD"
  1. . S ZMES(6)=" DATA FROM PATCH DVB*4*54. THEREFORE, THE STATUS OF PATCH DG*5.3*705"
  1. . S ZMES(7)=" WILL BE 'INSTALLED', HOWEVER NO UPDATES TO YOUR SYSTEM WILL BE MADE."
  1. . D MES^XPDUTL(.ZMES)
  1. ;
  1. D BMES^XPDUTL("**** PATCH IS BEING INSTALLED IN UPDATE MODE ****")
  1. D DELMISC
  1. D DELPTR
  1. D DELXREF
  1. D DELID
  1. D DELDESCR
  1. D DONE
  1. Q
  1. ;
  1. DELMISC ; Delete various miscellaneous nodes:
  1. ; write access, help, executable help, audit, etc
  1. D BMES^XPDUTL(">>> Deleting bad write access, help, audit, other miscellaneous nodes")
  1. K ^DD(2,.12113,9),^DD(2,.14112,9)
  1. K ^DD(2,.108,3)
  1. K ^DD(2,.391,4)
  1. F Z=.01,.2924,.3111,.3192,991.07 K ^DD(2,Z,"AUDIT")
  1. K ^DD(2.312,.18,"AUDIT")
  1. K ^DIC(2,0,"AUDIT")
  1. K ^DD(2,0,"VR")
  1. K ^DD(2,0,"VRPK")
  1. K ^DIC(2,"%",7,0)
  1. K ^DIC(2,"%","B","QAM",7)
  1. D STEP
  1. Q
  1. ;
  1. DELPTR ; Delete bad pointer nodes
  1. N Z,Z0
  1. D BMES^XPDUTL(">>> Deleting bad pointer nodes")
  1. S DDUCFI=2,DDUCFIX=1 D PT^DDUCHK1 ; IA
  1. D STEP
  1. Q
  1. ;
  1. DELID ; Delete bad identifier nodes
  1. N Z
  1. D BMES^XPDUTL(">>> Deleting bad identifier nodes")
  1. F Z=.2924,.302,.351,"GARB","WARD","WR","ZREW" K ^DD(2,0,"ID",Z)
  1. D STEP
  1. Q
  1. ;
  1. DELDESCR ;Delete excess description nodes
  1. N Z
  1. D BMES^XPDUTL(">>> Deleting bad field description nodes")
  1. S Z=1 F S Z=$O(^DD(2,.107,21,Z)) Q:'Z K ^DD(2,.107,21,Z,0)
  1. D STEP
  1. Q
  1. ;
  1. DELXREF ; Delete cross references and indexes
  1. N DGZ,DGZF,DGZFLD,DGZN,DGDEL,DGXREF,X,Z
  1. D BMES^XPDUTL(">>> Deleting bad cross references and indexes")
  1. ;
  1. ; Delete indexes 'ADGFM01', 'ADGFM03', 'ADGFM09', 'ADGFM351'
  1. F DGZ="ADGFM01","ADGFM03","ADGFM09","ADGFM351" D DELIXN^DDMOD(2,DGZ)
  1. ; Delete a trigger xref for file 2.01, field 100.03
  1. S Z=0 F S Z=$O(^DD(2.01,100.03,1,Z)) Q:'Z I $P($G(^DD(2.01,100.03,1,Z,0)),U,3,5)="TRIGGER^20^.01" D DELIX^DDMOD(2.01,100.03,Z) Q
  1. ;
  1. F Z=2:1 S X=$P($T(@("XREF+"_Z)),";;",2) Q:X="" S DGZ(+X,+$P(X,U,2),$P(X,U,4))=$P(X,U,3) ;Extracts xrefs to delete
  1. ;
  1. S DGZF=0
  1. F S DGZF=$O(DGZ(DGZF)) Q:'DGZF S DGZFLD=0 F S DGZFLD=$O(DGZ(DGZF,DGZFLD)) Q:'DGZFLD S DGZN="" F S DGZN=$O(DGZ(DGZF,DGZFLD,DGZN)) Q:DGZN="" D
  1. . S DGZ=$G(DGZ(DGZF,DGZFLD,DGZN))
  1. . I 'DGZ,'$$CHK1(DGZF,DGZFLD,DGZN) K ^DD(DGZF,0,"IX",DGZN,DGZF,DGZFLD)
  1. . I DGZ S Z=$$CHK2(DGZF,DGZFLD,DGZN,DGZ) I Z D DELIX^DDMOD(DGZF,DGZFLD,Z)
  1. K ^TMP("DIERR",$J)
  1. D STEP
  1. Q
  1. ;
  1. CHK1(FILE,FLD,XREFNM) ; Check if xref exists
  1. ; Functon returns 1 if it exists, 0 if it doesn't
  1. N Z,OK
  1. S (OK,Z)=0
  1. F S Z=$O(^DD(FILE,FLD,1,Z)) Q:'Z I $P($G(^(Z,0)),U,2)=XREFNM S OK=1 Q
  1. Q OK
  1. ;
  1. CHK2(FILE,FLD,XREFNM,XREFNO) ; Returns ien of xref
  1. N Z,NUM
  1. S Z=0
  1. S NUM=$S($P($G(^DD(FILE,FLD,1,XREFNO,0)),U,2)=XREFNM:XREFNO,1:0)
  1. I 'NUM F S Z=$O(^DD(FILE,FLD,1,Z)) Q:'Z I $P($G(^DD(FILE,FLD,1,Z,0)),U,2)=XREFNM S NUM=Z Q
  1. Q NUM
  1. ;
  1. STEP D BMES^XPDUTL(">>> Step Completed.")
  1. Q
  1. ;
  1. DONE D BMES^XPDUTL(">>> Pre-install Cleanup Completed.")
  1. S ^TMP("DG*5.3*705",$J)="1^PATCH DVB*4*54 INSTALLED"
  1. Q
  1. ;
  1. CLEAN ; Erase TMP global used to screen DD update
  1. K ^TMP("DG*5.3*705",$J)
  1. Q
  1. ;
  1. XREF ; Xrefs that must be deleted
  1. ;; Pieces are: File #^Fld #^xref default #or null^xref name
  1. ;;2^.01^^AHL
  1. ;;2^.02^^AHL2
  1. ;;2^.03^^AHL3
  1. ;;2^.03^5^DGFCMON
  1. ;;2^.05^993^AENR05
  1. ;;2^.06^^AHL5
  1. ;;2^.09^^AHL4
  1. ;;2^.102^^A4EC
  1. ;;2^.118^3^AENR118
  1. ;;2^.121^1^AENR121
  1. ;;2^.12111^1^AENR12111
  1. ;;2^.1219^1^AENR1219
  1. ;;2^.14111^1^AENR14111
  1. ;;2^.152^4^AU
  1. ;;2^.1656^1^AENR1656
  1. ;;2^.293^1^AENR293
  1. ;;2^.302^^ACP
  1. ;;2^.302^^AP
  1. ;;2^.3025^3^AENR3025
  1. ;;2^.3025^^CHK4
  1. ;;2^.304^1^AENR304
  1. ;;2^.307^1^AENR307
  1. ;;2^.3111^2^AENR3111
  1. ;;2^.31115^^AEMP
  1. ;;2^.31115^992^AENR31115
  1. ;;2^.31115^^MAC
  1. ;;2^.312^2^AENR312
  1. ;;2^.313^992^AENR313
  1. ;;2^.3192^1^AENR3192
  1. ;;2^.32102^^AI
  1. ;;2^.32103^^AK
  1. ;;2^.323^992^AENR323
  1. ;;2^.351^^AEXP
  1. ;;2^.351^^AHL6
  1. ;;2^.351^^AT
  1. ;;2^.353^1^AENR353
  1. ;;2^.354^1^AENR354
  1. ;;2^.361^^AR
  1. ;;2^.3611^3^AENR3611
  1. ;;2^.3612^2^AENR3612
  1. ;;2^.3615^1^AENR3615
  1. ;;2^.3617^1^AENR3617
  1. ;;2^.3618^1^AENR3618
  1. ;;2^.36205^^BEN
  1. ;;2^.36205^^CHK1
  1. ;;2^.36215^^CHK2
  1. ;;2^.36235^^CHK3
  1. ;;2^.381^^AT
  1. ;;2^.382^1^AENR382
  1. ;;2^.391^1^AENR391
  1. ;;2^.392^1^AENR392
  1. ;;2^.393^1^AENR393
  1. ;;2^.394^1^AENR394
  1. ;;2^.395^1^AENR395
  1. ;;2^.532^2^AENR532
  1. ;;2^.533^1^AENR533
  1. ;;2^1010.1511^1^AENR10101511
  1. ;;2^1010.159^1^AENR1010159
  1. ;;2^1901^2^AN
  1. ;;2.04^.01^1^AENR01
  1. ;;2.04^2^1^AENR2
  1. ;;2.04^3^1^AENR3
  1. ;;2.312^.01^6^AENR01
  1. ;;2.312^.18^2^AENR18
  1. ;;2.312^1^2^AENR1
  1. ;;2.312^2^1^AENR2
  1. ;;2.312^3^2^AENR3
  1. ;;2.312^6^1^AENR6
  1. ;;2.312^8^2^AENR8
  1. ;;2.312^17^1^AENR17
  1. ;;2.396^.01^2^AENR01
  1. ;;2.397^.01^2^AENR01
  1. ;;2.397^1^1^AENR1
  1. ;;2.398^.01^2^AENR01
  1. ;;2.398^1^1^AENR1
  1. ;;2.398^2^1^AENR2