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

MHV1P0.m

Go to the documentation of this file.
  1. MHV1P0 ;WAS/GPM - My HealtheVet Install Utility Routine ; [8/23/05 2:31pm]
  1. ;;1.0;My HealtheVet;;Aug 23, 2005
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. ; Integration Agreements:
  1. ; 3779 : Direct read of "B" x-ref of file 4.2 (DOMAIN)
  1. ; 10141 : BMES^XPDUTL, XPDQUIT
  1. ;
  1. ENV ;
  1. N EVAULT
  1. ; Check for the proper domain entry before proceeding
  1. S EVAULT=$$FIND1^DIC(4.2,,"QX","VAMHVWEB1.AAC.DOMAIN.EXT","B")
  1. I EVAULT<1 D BMES^XPDUTL(" *** Patch: XM*DBA*159 is required for this package ***") S XPDQUIT=1 Q
  1. Q
  1. ;
  1. POST ;
  1. N ADM
  1. D SETADM^MHVU1(.ADM)
  1. I ADM("SYSTEM TYPE")'="P" Q
  1. D NOTIFY^MHVU1(.ADM)
  1. D BMES^XPDUTL(" *** Installation message sent to My HealtheVet Server")
  1. Q
  1. ;