source: FOIAVistA/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DIPR129.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1012 bytes
Line 
1DIPR129 ;OOIFO/SO- REMOVE DANGLING AUDIT XREFS ;8:09 AM 24 Nov 2003
2 ;;22.0;VA FileMan;**129**;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 I $$TM^%ZTLOAD,$G(XPDNM)]"" D Q
5 . N ZTSAVE,ZTRTN,ZTDTH,ZTDESC,ZTIO
6 . S ZTSAVE("XPD*")="",ZTRTN="DEQUE^DIPR129",ZTDTH=$H,ZTIO=""
7 . S ZTDESC="DI*22*129 Post Installation"
8 . D ^%ZTLOAD
9 . D MES^XPDUTL("Post Install Task Number is: "_$G(ZTSK))
10DEQUE ;
11 N ZZ
12 D MES^XPDUTL(" ")
13 I $G(ZTSK)]"" D MES^XPDUTL("Queued Post Install Dialog, Task#: "_$G(ZTSK))
14 D TIME
15 D MES^XPDUTL("Began checking Audit cross reference: "_ZZ_"...")
16 N FILE
17 S FILE=1.99999 ;Begin after Fileman Files
18 F S FILE=$O(^DIC(FILE)) Q:'FILE D
19 . I '$D(^DIA(FILE)) Q
20 . N I
21 . S I=$$DANGLE^DIAU(FILE)
22 . I I D MES^XPDUTL("File: "_FILE_" had a total of:"_I_" dangling cross references removed.")
23 . Q
24 D TIME
25 D MES^XPDUTL("Finished checking Audit cross references: "_ZZ_".")
26 Q
27 ;
28TIME ; GET CURRENT DATE/TIME
29 N %,%H,%I,Y
30 D NOW^%DTC
31 S Y=%
32 D DD^%DT
33 S ZZ=Y
34 Q
Note: See TracBrowser for help on using the repository browser.