DI222P27.m

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 ---DI222P27   478     printed  Apr 09, 2024@21:48:53                                                                                                                                                                                                     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