IBY521PO ;ALB/GEF - Post install routine for patch 521 ; 7-NOV-14
;;2.0;INTEGRATED BILLING;**521**;21-MAR-94;Build 33
;;Per VA Directive 6402, this routine should not be modified.
;
; XPDUTL calls are DBIA#10141
;
DOC ;
; HPID Build 1 created 4 new fields in file 36.
; 2 had cross-references which were set up to allow as look-ups.
; Build 2 changes those cross-references to be non-lookup.
; This change requires they now start with "A":
; 8.01 - HPID/OEID - was "HOD", now will be "AHOD"
; 8.04 - NID IF - was "NIF", now will be "ANIF"
;
; PRINDX^IBY521PR will run in the pre-install to delete old x-refs
; POINDX^IBY521PO will run post-install to set in new format
;
POINDX ; POST-INSTALL comes here
; run triggers on new cross-refs for fields 8.01 & 8.04 (AHOD & ANIF)
D MES^XPDUTL("Re-index of HPID & NIF ID cross-references in INSURANCE COMPANY file ")
N DIK,FLD
; file 36, top level
S DIK="^DIC(36,"
F FLD=8.01,8.04 S DIK(1)=FLD D ENALL^DIK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY521PO 1000 printed Sep 23, 2025@20:10:49 Page 2
IBY521PO ;ALB/GEF - Post install routine for patch 521 ; 7-NOV-14
+1 ;;2.0;INTEGRATED BILLING;**521**;21-MAR-94;Build 33
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ; XPDUTL calls are DBIA#10141
+5 ;
DOC ;
+1 ; HPID Build 1 created 4 new fields in file 36.
+2 ; 2 had cross-references which were set up to allow as look-ups.
+3 ; Build 2 changes those cross-references to be non-lookup.
+4 ; This change requires they now start with "A":
+5 ; 8.01 - HPID/OEID - was "HOD", now will be "AHOD"
+6 ; 8.04 - NID IF - was "NIF", now will be "ANIF"
+7 ;
+8 ; PRINDX^IBY521PR will run in the pre-install to delete old x-refs
+9 ; POINDX^IBY521PO will run post-install to set in new format
+10 ;
POINDX ; POST-INSTALL comes here
+1 ; run triggers on new cross-refs for fields 8.01 & 8.04 (AHOD & ANIF)
+2 DO MES^XPDUTL("Re-index of HPID & NIF ID cross-references in INSURANCE COMPANY file ")
+3 NEW DIK,FLD
+4 ; file 36, top level
+5 SET DIK="^DIC(36,"
+6 FOR FLD=8.01,8.04
SET DIK(1)=FLD
DO ENALL^DIK
+7 QUIT
