DIPOS140.m

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

 ;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

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

 +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