Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBY521PO

IBY521PO.m

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