DI222P27 ;OAKFO/REM - Post Install for patch 27 ; FEB 05, 2023@13:20:47
;;22.2;VA FileMan;**27**;Jan 05, 2016;Build 7
;;Per VA Directive 6402, this routine should not be modified.
;
EN ; clean up AUDIT File #1.1
D BMES^XPDUTL(" ** The post routine will check the Audit File (#1.1) for corruption. **")
D MES^XPDUTL(" ** This might take awhile. **")
N X,DA,DIA,DIK
S DIK="^DIA("
S X=0 F S X=$O(^DIA(X)) Q:'X I '$D(^DIC(X,0)) D
.S (DIA,DA)=X D ^DIK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDI222P27 478 printed Dec 13, 2024@02:44:29 Page 2
DI222P27 ;OAKFO/REM - Post Install for patch 27 ; FEB 05, 2023@13:20:47
+1 ;;22.2;VA FileMan;**27**;Jan 05, 2016;Build 7
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
EN ; clean up AUDIT File #1.1
+1 DO BMES^XPDUTL(" ** The post routine will check the Audit File (#1.1) for corruption. **")
+2 DO MES^XPDUTL(" ** This might take awhile. **")
+3 NEW X,DA,DIA,DIK
+4 SET DIK="^DIA("
+5 SET X=0
FOR
SET X=$ORDER(^DIA(X))
if 'X
QUIT
IF '$DATA(^DIC(X,0))
Begin DoDot:1
+6 SET (DIA,DA)=X
DO ^DIK
End DoDot:1
+7 QUIT
