DIPR129.m

DIPR129 ;OOIFO/SO- REMOVE DANGLING AUDIT XREFS ;8:09 AM  24 Nov 2003

 ;;22.0;VA FileMan;**129**;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 I $$TM^%ZTLOAD,$G(XPDNM)]"" D  Q

 . N ZTSAVE,ZTRTN,ZTDTH,ZTDESC,ZTIO

 . S ZTSAVE("XPD*")="",ZTRTN="DEQUE^DIPR129",ZTDTH=$H,ZTIO=""

 . S ZTDESC="DI*22*129 Post Installation"

 . D ^%ZTLOAD

 . D MES^XPDUTL("Post Install Task Number is: "_$G(ZTSK))

DEQUE ;

 N ZZ

 D MES^XPDUTL(" ")

 I $G(ZTSK)]"" D MES^XPDUTL("Queued Post Install Dialog, Task#: "_$G(ZTSK))

 D TIME

 D MES^XPDUTL("Began checking Audit cross reference: "_ZZ_"...")

 N FILE

 S FILE=1.99999 ;Begin after Fileman Files

 F  S FILE=$O(^DIC(FILE)) Q:'FILE  D

 . I '$D(^DIA(FILE)) Q

 . N I

 . S I=$$DANGLE^DIAU(FILE)

 . I I D MES^XPDUTL("File: "_FILE_" had a total of:"_I_" dangling cross references removed.")

 . Q

 D TIME

 D MES^XPDUTL("Finished checking Audit cross references: "_ZZ_".")

 Q

 ;

TIME ; GET CURRENT DATE/TIME

 N %,%H,%I,Y

 D NOW^%DTC

 S Y=%

 D DD^%DT

 S ZZ=Y

 Q

DIPR129   ;OOIFO/SO- REMOVE DANGLING AUDIT XREFS ;8:09 AM  24 Nov 2003

 +1       ;;22.0;VA FileMan;**129**;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +3        IF $$TM^%ZTLOAD

               IF $GET(XPDNM)]""

                   Begin DoDot:1

 +4                    NEW ZTSAVE,ZTRTN,ZTDTH,ZTDESC,ZTIO

 +5                    SET ZTSAVE("XPD*")=""

                       SET ZTRTN="DEQUE^DIPR129"

                       SET ZTDTH=$HOROLOG

                       SET ZTIO=""

 +6                    SET ZTDESC="DI*22*129 Post Installation"

 +7                    DO ^%ZTLOAD

 +8                    DO MES^XPDUTL("Post Install Task Number is: "_$GET(ZTSK))

                   End DoDot:1

                   QUIT 

DEQUE     ;

 +1        NEW ZZ

 +2        DO MES^XPDUTL(" ")

 +3        IF $GET(ZTSK)]""

               DO MES^XPDUTL("Queued Post Install Dialog, Task#: "_$GET(ZTSK))

 +4        DO TIME

 +5        DO MES^XPDUTL("Began checking Audit cross reference: "_ZZ_"...")

 +6        NEW FILE

 +7       ;Begin after Fileman Files

           SET FILE=1.99999

 +8        FOR 

               SET FILE=$ORDER(^DIC(FILE))

               IF 'FILE

                   QUIT 

               Begin DoDot:1

 +9                IF '$DATA(^DIA(FILE))

                       QUIT 

 +10               NEW I

 +11               SET I=$$DANGLE^DIAU(FILE)

 +12               IF I

                       DO MES^XPDUTL("File: "_FILE_" had a total of:"_I_" dangling cross references removed.")

 +13               QUIT 

               End DoDot:1

 +14       DO TIME

 +15       DO MES^XPDUTL("Finished checking Audit cross references: "_ZZ_".")

 +16       QUIT 

 +17      ;

TIME      ; GET CURRENT DATE/TIME

 +1        NEW %,%H,%I,Y

 +2        DO NOW^%DTC

 +3        SET Y=%

 +4        DO DD^%DT

 +5        SET ZZ=Y

 +6        QUIT