DIPOS140 ;SFISC/SO- POST INSTAL DI*22*140 RE-COMPILE XREF;8:50 AM 18 Aug 2004
;;22.0;VA FileMan;*140*;Mar 30, 1999;Build 1
;Per VHA Directive 10-93-142, this routine should not be modified.
D MES^XPDUTL("Begin re-compile of cross references...")
N FILE S FILE=1.99999
F S FILE=$O(^DIC(FILE)) Q:'FILE D
. I '$D(^DD(FILE,0,"DIK")) Q ;File does not have compiled xref
. N GL,X,Y,DMAX,DIQUITE
. I '$D(^DIC(FILE,0,"GL")) Q ;Missing global location
. S GL=^("GL")_"0)" ;Naked set in previous line
. I '$D(@GL) Q ;No file header node
. I +$P(@GL,U,2)'=FILE Q ;File node number not correct
. D MES^XPDUTL("Re-compiling cross reference for: "_$$GET1^DIQ(1,FILE_",",.01)_"(#"_FILE_")")
. S DMAX=^DD("ROU")
. S X=^DD(FILE,0,"DIK")
. S Y=FILE
. D EN^DIKZ
. Q
D MES^XPDUTL("Finished re-compile of cross refereneces.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIPOS140 853 printed Dec 13, 2024@02:53:07 Page 2
DIPOS140 ;SFISC/SO- POST INSTAL DI*22*140 RE-COMPILE XREF;8:50 AM 18 Aug 2004
+1 ;;22.0;VA FileMan;*140*;Mar 30, 1999;Build 1
+2 ;Per VHA Directive 10-93-142, this routine should not be modified.
+3 DO MES^XPDUTL("Begin re-compile of cross references...")
+4 NEW FILE
SET FILE=1.99999
+5 FOR
SET FILE=$ORDER(^DIC(FILE))
if 'FILE
QUIT
Begin DoDot:1
+6 ;File does not have compiled xref
IF '$DATA(^DD(FILE,0,"DIK"))
QUIT
+7 NEW GL,X,Y,DMAX,DIQUITE
+8 ;Missing global location
IF '$DATA(^DIC(FILE,0,"GL"))
QUIT
+9 ;Naked set in previous line
SET GL=^("GL")_"0)"
+10 ;No file header node
IF '$DATA(@GL)
QUIT
+11 ;File node number not correct
IF +$PIECE(@GL,U,2)'=FILE
QUIT
+12 DO MES^XPDUTL("Re-compiling cross reference for: "_$$GET1^DIQ(1,FILE_",",.01)_"(#"_FILE_")")
+13 SET DMAX=^DD("ROU")
+14 SET X=^DD(FILE,0,"DIK")
+15 SET Y=FILE
+16 DO EN^DIKZ
+17 QUIT
End DoDot:1
+18 DO MES^XPDUTL("Finished re-compile of cross refereneces.")
+19 QUIT
