Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
703 bytes
|
Line | |
---|
1 | DIPOS104 ;SFISC/SO,GFT-POST INSTALL ROUTINE FOR PATCH DI*22.0*104 ;5:37 AM 5 Jun 2002
|
---|
2 | ;;22.0;VA FileMan;**104**;Mar 30, 1999
|
---|
3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
4 | BEGIN ;
|
---|
5 | S X="Checking Audit File for bad dates..."
|
---|
6 | N DATE,CDATE,IEN,DIA
|
---|
7 | D MES^XPDUTL(X)
|
---|
8 | F DIA=0:0 S DIA=$O(^DIA(DIA)) Q:'DIA D
|
---|
9 | .S DATE=2700000 F S DATE=$O(^DIA(DIA,"C",DATE)) Q:'DATE I DATE?8N D
|
---|
10 | ..F IEN=0:0 S IEN=$O(^DIA(DIA,"C",DATE,IEN)) Q:'IEN K ^(IEN) D
|
---|
11 | ...I $P($G(^DIA(DIA,IEN,0)),"^",2)=DATE D
|
---|
12 | ....N X,X1,X2
|
---|
13 | ....S X1=$E(DATE,1,7),X2=1
|
---|
14 | ....D C^%DTC
|
---|
15 | ....S CDATE=X
|
---|
16 | ...S $P(^DIA(DIA,IEN,0),"^",2)=CDATE,^DIA(DIA,"C",CDATE,IEN)=""
|
---|
17 | S X="Finished checking for bad dates."
|
---|
18 | D MES^XPDUTL(X)
|
---|
19 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.