IB20P529.m

IB20P529 ;ALB/SAB - POST-INSTALL IB*2.0*529 ;15-JUL-15

 ;;2.0;INTEGRATED BILLING;**529**;21-MAR-94;Build 49

 ;Per VA Directive 6402, this routine should not be modified.

 ;

 Q

 ;

POST ;This will reindex 364.1 for the updated indexes

 ;

 D BMES^XPDUTL(" Post-install for IB*2.0*529 Starting.")

 ;

 D REINDX   ; Re-index the new FDATE array for 364.1,1.01

 ;

 D BMES^XPDUTL(" Post-install for IB*2.0*529 Complete.")

 ;

 Q

 ;

REINDX ;

 ;

 N DIK,DA

 ; index DATE FIRST SENT field in the EDI TRANSMISSION BATCH file

 D MES^XPDUTL("      >> Removing old ""FDATE"" xref for file 364.1 ...")

 K ^IBA(364.1,"FDATE") ; clear old index if it exists

 D MES^XPDUTL("      >> Rebuilding ""FDATE"" xref for file 364.1 ...")

 S DIK(1)="1.01^FDATE",DIK="^IBA(364.1," D ENALL^DIK

 D MES^XPDUTL("      >> Completed Rebuilding ""FDATE"" xref for file 364.1 ...")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IB20P529   876     printed  Mar 13, 2025@21:08:14                                                                                                                                                                                                     Page 2

IB20P529  ;ALB/SAB - POST-INSTALL IB*2.0*529 ;15-JUL-15

 +1       ;;2.0;INTEGRATED BILLING;**529**;21-MAR-94;Build 49

 +2       ;Per VA Directive 6402, this routine should not be modified.

 +3       ;

 +4        QUIT 

 +5       ;

POST      ;This will reindex 364.1 for the updated indexes

 +1       ;

 +2        DO BMES^XPDUTL(" Post-install for IB*2.0*529 Starting.")

 +3       ;

 +4       ; Re-index the new FDATE array for 364.1,1.01

           DO REINDX

 +5       ;

 +6        DO BMES^XPDUTL(" Post-install for IB*2.0*529 Complete.")

 +7       ;

 +8        QUIT 

 +9       ;

REINDX    ;

 +1       ;

 +2        NEW DIK,DA

 +3       ; index DATE FIRST SENT field in the EDI TRANSMISSION BATCH file

 +4        DO MES^XPDUTL("      >> Removing old ""FDATE"" xref for file 364.1 ...")

 +5       ; clear old index if it exists

           KILL ^IBA(364.1,"FDATE")

 +6        DO MES^XPDUTL("      >> Rebuilding ""FDATE"" xref for file 364.1 ...")

 +7        SET DIK(1)="1.01^FDATE"

           SET DIK="^IBA(364.1,"

           DO ENALL^DIK

 +8        DO MES^XPDUTL("      >> Completed Rebuilding ""FDATE"" xref for file 364.1 ...")

 +9        QUIT 

 +10      ;