- 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 Mar 13, 2025@21:57:58 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
