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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMHV1P1 638 printed Dec 13, 2024@02:15:26 Page 2
MHV1P1 ;WAS/GPM - My HealtheVet Install Utility Routine ; [3/28/06 4:55pm]
+1 ;;1.0;My HealtheVet;**1**;Aug 23, 2005
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
+4 ; Integration Agreements:
+5 ; 10141 : BMES^XPDUTL
+6 ;
ENV ;
+1 QUIT
+2 ;
POST ;
+1 DO CLEANLOG
+2 DO NOTIFY
+3 QUIT
+4 ;
CLEANLOG ; Cleanup log entries
+1 DO BMES^XPDUTL(" *** Cleaning up MHV application log. ***")
+2 KILL ^TMP("MHV7LOG")
+3 QUIT
+4 ;
NOTIFY ; Send notification message
+1 NEW ADM
+2 DO SETADM^MHVU1(.ADM)
+3 IF ADM("SYSTEM TYPE")'="P"
QUIT
+4 DO NOTIFY^MHVU1(.ADM)
+5 DO BMES^XPDUTL(" *** Installation message sent to My HealtheVet Server ***")
+6 QUIT
+7 ;
