MHV1P0 ;WAS/GPM - My HealtheVet Install Utility Routine ; [8/23/05 2:31pm]
;;1.0;My HealtheVet;;Aug 23, 2005
;;Per VHA Directive 2004-038, this routine should not be modified.
;
; Integration Agreements:
; 3779 : Direct read of "B" x-ref of file 4.2 (DOMAIN)
; 10141 : BMES^XPDUTL, XPDQUIT
;
ENV ;
N EVAULT
; Check for the proper domain entry before proceeding
S EVAULT=$$FIND1^DIC(4.2,,"QX","VAMHVWEB1.AAC.DOMAIN.EXT","B")
I EVAULT<1 D BMES^XPDUTL(" *** Patch: XM*DBA*159 is required for this package ***") S XPDQUIT=1 Q
Q
;
POST ;
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[HMHV1P0 756 printed Dec 13, 2024@02:15:26 Page 2
MHV1P0 ;WAS/GPM - My HealtheVet Install Utility Routine ; [8/23/05 2:31pm]
+1 ;;1.0;My HealtheVet;;Aug 23, 2005
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
+4 ; Integration Agreements:
+5 ; 3779 : Direct read of "B" x-ref of file 4.2 (DOMAIN)
+6 ; 10141 : BMES^XPDUTL, XPDQUIT
+7 ;
ENV ;
+1 NEW EVAULT
+2 ; Check for the proper domain entry before proceeding
+3 SET EVAULT=$$FIND1^DIC(4.2,,"QX","VAMHVWEB1.AAC.DOMAIN.EXT","B")
+4 IF EVAULT<1
DO BMES^XPDUTL(" *** Patch: XM*DBA*159 is required for this package ***")
SET XPDQUIT=1
QUIT
+5 QUIT
+6 ;
POST ;
+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 ;
