Last change
on this file since 794 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
1012 bytes
|
Line | |
---|
1 | DIPR129 ;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))
|
---|
10 | DEQUE ;
|
---|
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 | ;
|
---|
28 | TIME ; 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.