- 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 Jan 18, 2025@03:35:37 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