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

HDI1004A.m

Go to the documentation of this file.
  1. HDI1004A ;BPFO/GRR,ALB/RMO - PATCH 4 POST INSTALL;2/08/2006
  1. ;;1.0;HEALTH DATA & INFORMATICS;**4**;Feb 22, 2005
  1. ;
  1. POST ;Main entry point for post-install routine
  1. ; Input: None
  1. ; All variables set by Kernel for KIDS post-installs
  1. ;Output: None
  1. N HDIMSG,HDISERR,HDDOM,HDISDFFS
  1. S HDDOM="TIU"
  1. S HDISDFFS(8925.6)=""
  1. S HDISDFFS(8926.1)=""
  1. S HDISDFFS(8926.2)=""
  1. S HDISDFFS(8926.3)=""
  1. S HDISDFFS(8926.4)=""
  1. S HDISDFFS(8926.5)=""
  1. S HDISDFFS(8926.6)=""
  1. S HDISERR=0
  1. S HDIMSG(1)=" "
  1. S HDIMSG(2)="~~~~~~~~~~~~~~~~~~~~"
  1. S HDIMSG(3)="Post-Installation (POST^HDI1004A) will now be run"
  1. S HDIMSG(4)=" "
  1. D MES^XPDUTL(.HDIMSG) K HDIMSG
  1. ;Updates HDIS DOMAIN file and HDIS FILE/FIELD file
  1. I '$$UPDTDOM^HDISVCUT(HDDOM,.HDISDFFS) D PSTHALT Q
  1. ;Updates Sets of Codes
  1. I '$$VUID^HDISVCUT(HDDOM,"HDI1004B") D PSTHALT Q
  1. S HDIMSG(1)=" "
  1. S HDIMSG(2)="Post-Installation ran to completion"
  1. S HDIMSG(3)="~~~~~~~~~~~~~~~~~~~~"
  1. S HDIMSG(4)=" "
  1. D MES^XPDUTL(.HDIMSG) K HDIMSG
  1. Q
  1. ;
  1. PSTHALT ;Print post-install halted text
  1. N HDIMSG
  1. S HDIMSG(1)=" "
  1. S HDIMSG(2)="*****"
  1. S HDIMSG(3)="***** Post-installation has been halted"
  1. S HDIMSG(4)="***** Please contact Enterprise VistA Support"
  1. S HDIMSG(5)="*****"
  1. S HDIMSG(6)=" "
  1. D MES^XPDUTL(.HDIMSG)
  1. Q