IB20P798 ;ALB/CNF - POST INIT;11/14/2024
;;2.0;INTEGRATED BILLING;**798**;21-MAR-94;Build 25
;;Per VHA Directive 2004-038, this routine should not be modified.
;
Q ; Call from tag
;
POST ; Post Executable for IB*2.0*798
N IBA
S IBA(1)="",IBA(2)=" IB*2*798 Post-Install .....",IBA(3)="" D MES^XPDUTL(.IBA) K IBA
D AECME
S IBA(1)="",IBA(2)=" IB*2*798 Post-Install Complete",IBA(3)="" D MES^XPDUTL(.IBA) K IBA
Q
;
AECME ; Create index AECME from index AG
D MES^XPDUTL(" - Creating AECME index in file BILL/CLAIMS #399")
M ^DGCR(399,"AECME")=^DGCR(399,"AG") ; Merge AG index into AECME index, Initially both will be the same
D MES^XPDUTL(" - AECME index in file BILL/CLAIMS #399 is created")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20P798 738 printed Sep 23, 2025@19:41:08 Page 2
IB20P798 ;ALB/CNF - POST INIT;11/14/2024
+1 ;;2.0;INTEGRATED BILLING;**798**;21-MAR-94;Build 25
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
+4 ; Call from tag
QUIT
+5 ;
POST ; Post Executable for IB*2.0*798
+1 NEW IBA
+2 SET IBA(1)=""
SET IBA(2)=" IB*2*798 Post-Install ....."
SET IBA(3)=""
DO MES^XPDUTL(.IBA)
KILL IBA
+3 DO AECME
+4 SET IBA(1)=""
SET IBA(2)=" IB*2*798 Post-Install Complete"
SET IBA(3)=""
DO MES^XPDUTL(.IBA)
KILL IBA
+5 QUIT
+6 ;
AECME ; Create index AECME from index AG
+1 DO MES^XPDUTL(" - Creating AECME index in file BILL/CLAIMS #399")
+2 ; Merge AG index into AECME index, Initially both will be the same
MERGE ^DGCR(399,"AECME")=^DGCR(399,"AG")
+3 DO MES^XPDUTL(" - AECME index in file BILL/CLAIMS #399 is created")
+4 QUIT
+5 ;
