|
Last change
on this file since 975 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
1012 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
