MHV1P1 ;WAS/GPM - My HealtheVet Install Utility Routine ; [3/28/06 4:55pm]
 ;;1.0;My HealtheVet;**1**;Aug 23, 2005
 ;;Per VHA Directive 2004-038, this routine should not be modified.
 ;
 ;  Integration Agreements:
 ;        10141 : BMES^XPDUTL
 ;
ENV ;
 Q
 ;
POST ;
 D CLEANLOG
 D NOTIFY
 Q
 ;
CLEANLOG ; Cleanup log entries
 D BMES^XPDUTL("  *** Cleaning up MHV application log. ***")
 K ^TMP("MHV7LOG")
 Q
 ;
NOTIFY ; Send notification message
 N ADM
 D SETADM^MHVU1(.ADM)
 I ADM("SYSTEM TYPE")'="P" Q
 D NOTIFY^MHVU1(.ADM)
 D BMES^XPDUTL("  *** Installation message sent to My HealtheVet Server ***")
 Q
 ;