MHV1P1.m

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 ---MHV1P1   638     printed  Apr 09, 2024@21:17:23                                                                                                                                                                                                       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       ;