source: WorldVistAEHR/trunk/r/MY_HEALTHEVET-MHV/MHV1P1.m@ 1006

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

initial load of WorldVistAEHR

File size: 610 bytes
Line 
1MHV1P1 ;WAS/GPM - My HealtheVet Install Utility Routine ; [3/28/06 4:55pm]
2 ;;1.0;My HealtheVet;**1**;Aug 23, 2005
3 ;;Per VHA Directive 2004-038, this routine should not be modified.
4 ;
5 ; Integration Agreements:
6 ; 10141 : BMES^XPDUTL
7 ;
8ENV ;
9 Q
10 ;
11POST ;
12 D CLEANLOG
13 D NOTIFY
14 Q
15 ;
16CLEANLOG ; Cleanup log entries
17 D BMES^XPDUTL(" *** Cleaning up MHV application log. ***")
18 K ^TMP("MHV7LOG")
19 Q
20 ;
21NOTIFY ; Send notification message
22 N ADM
23 D SETADM^MHVU1(.ADM)
24 I ADM("SYSTEM TYPE")'="P" Q
25 D NOTIFY^MHVU1(.ADM)
26 D BMES^XPDUTL(" *** Installation message sent to My HealtheVet Server ***")
27 Q
28 ;
Note: See TracBrowser for help on using the repository browser.