source: WorldVistAEHR/trunk/r/MY_HEALTHEVET-MHV/MHV1P0.m@ 1123

Last change on this file since 1123 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 729 bytes
Line 
1MHV1P0 ;WAS/GPM - My HealtheVet Install Utility Routine ; [8/23/05 2:31pm]
2 ;;1.0;My HealtheVet;;Aug 23, 2005
3 ;;Per VHA Directive 2004-038, this routine should not be modified.
4 ;
5 ; Integration Agreements:
6 ; 3779 : Direct read of "B" x-ref of file 4.2 (DOMAIN)
7 ; 10141 : BMES^XPDUTL, XPDQUIT
8 ;
9ENV ;
10 N EVAULT
11 ; Check for the proper domain entry before proceeding
12 S EVAULT=$$FIND1^DIC(4.2,,"QX","VAMHVWEB1.AAC.VA.GOV","B")
13 I EVAULT<1 D BMES^XPDUTL(" *** Patch: XM*DBA*159 is required for this package ***") S XPDQUIT=1 Q
14 Q
15 ;
16POST ;
17 N ADM
18 D SETADM^MHVU1(.ADM)
19 I ADM("SYSTEM TYPE")'="P" Q
20 D NOTIFY^MHVU1(.ADM)
21 D BMES^XPDUTL(" *** Installation message sent to My HealtheVet Server")
22 Q
23 ;
Note: See TracBrowser for help on using the repository browser.