MHV1P0.m

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 ---MHV1P0   756     printed  Apr 09, 2024@21:18:10                                                                                                                                                                                                       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       ;