- 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 Feb 18, 2025@23:41:36 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 ;