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

HDI1011A.m

Go to the documentation of this file.
  1. HDI1011A ;HRN/ART - PATCH 11 POST INSTALL;2/11/2008
  1. ;;1.0;HEALTH DATA & INFORMATICS;**11**;Feb 22, 2005;Build 6
  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="PROBLEM LIST"
  1. ;No files for this patch - setting of HDISDFFS is not required
  1. ;S HDISDFFS(999999)=""
  1. S HDISERR=0
  1. S HDIMSG(1)=" "
  1. S HDIMSG(2)="~~~~~~~~~~~~~~~~~~~~"
  1. S HDIMSG(3)="Post-Installation (POST^HDI1011A) 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. I '$$UPDTDOM^HDISVCUT(HDDOM) D PSTHALT Q ;<< No files
  1. ;Updates Sets of Codes
  1. ; I '$$VUID^HDISVCUT("PROBLIST","HDI1011B") D PSTHALT Q -- SET OF CODES NOT BEING SET
  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