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 ---[H[J[2J[HIB20P529 876 printed Nov 22, 2024@17:13:34 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 ;
