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

MHV1P1.m

Go to the documentation of this file.
  1. MHV1P1 ;WAS/GPM - My HealtheVet Install Utility Routine ; [3/28/06 4:55pm]
  1. ;;1.0;My HealtheVet;**1**;Aug 23, 2005
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. ; Integration Agreements:
  1. ; 10141 : BMES^XPDUTL
  1. ;
  1. ENV ;
  1. Q
  1. ;
  1. POST ;
  1. D CLEANLOG
  1. D NOTIFY
  1. Q
  1. ;
  1. CLEANLOG ; Cleanup log entries
  1. D BMES^XPDUTL(" *** Cleaning up MHV application log. ***")
  1. K ^TMP("MHV7LOG")
  1. Q
  1. ;
  1. NOTIFY ; Send notification message
  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. ;