29 lines
610 B
Mathematica
29 lines
610 B
Mathematica
MHV1P1 ;WAS/GPM - My HealtheVet Install Utility Routine ; [3/28/06 4:55pm]
|
|
;;1.0;My HealtheVet;**1**;Aug 23, 2005
|
|
;;Per VHA Directive 2004-038, this routine should not be modified.
|
|
;
|
|
; Integration Agreements:
|
|
; 10141 : BMES^XPDUTL
|
|
;
|
|
ENV ;
|
|
Q
|
|
;
|
|
POST ;
|
|
D CLEANLOG
|
|
D NOTIFY
|
|
Q
|
|
;
|
|
CLEANLOG ; Cleanup log entries
|
|
D BMES^XPDUTL(" *** Cleaning up MHV application log. ***")
|
|
K ^TMP("MHV7LOG")
|
|
Q
|
|
;
|
|
NOTIFY ; Send notification message
|
|
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
|
|
;
|