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