- 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 Jan 18, 2025@03:16:28 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 ;