IBY521PR ;ALB/GEF - Pre install routine for patch 521 ; 10-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"
;
; INDXDD^IBY521PR will run in the pre-install to delete old x-refs
; POINDX^IBY521PO will run post-install to set in new format
;
INDXDD ; PRE-INSTALL comes here
; DELETE old cross-references for fields 8.01 & 8.04 (HOD & NIF) from DD and file
D MES^XPDUTL("Removing old HPID & NIF ID cross-references in INSURANCE COMPANY file ")
N IBFLD
F IBFLD=8.01,8.04 D DELIX^DDMOD(36,IBFLD,1,"KW")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY521PR 976 printed Dec 13, 2024@02:34:27 Page 2
IBY521PR ;ALB/GEF - Pre install routine for patch 521 ; 10-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 ; INDXDD^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 ;
INDXDD ; PRE-INSTALL comes here
+1 ; DELETE old cross-references for fields 8.01 & 8.04 (HOD & NIF) from DD and file
+2 DO MES^XPDUTL("Removing old HPID & NIF ID cross-references in INSURANCE COMPANY file ")
+3 NEW IBFLD
+4 FOR IBFLD=8.01,8.04
DO DELIX^DDMOD(36,IBFLD,1,"KW")
+5 QUIT
