DIPR129 ;OOIFO/SO- REMOVE DANGLING AUDIT XREFS ;8:09 AM 24 Nov 2003
;;22.0;VA FileMan;**129**;Mar 30, 1999;Build 1
;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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIPR129 1054 printed Nov 22, 2024@18:03:09 Page 2
DIPR129 ;OOIFO/SO- REMOVE DANGLING AUDIT XREFS ;8:09 AM 24 Nov 2003
+1 ;;22.0;VA FileMan;**129**;Mar 30, 1999;Build 1
+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
