MHV1P6 ;WAS/DLF - My HealtheVet Install Utility Routine ; 9/25/08 4:06pm
;;1.0;My HealtheVet;**6**;Aug 23, 2005;Build 82
;;Per VHA Directive 2004-038, this routine should not be modified.
;
; Integration Agreements:
; 10141 : BMES^XPDUTL
; : MES^XPDUTL
; 10103 : $$HTFM^XLFDT
;
ENV ;
Q
;
PRE ; turn on logging
D LOGON
D LOG^MHVUL2("MHV1P6","PRE-INIT","S","TRACE")
Q
;
POST ; Post-init
N ERR
D LOG^MHVUL2("MHV1P6","POST-INIT BEGIN","S","TRACE")
;
; Set up the secure messaging Admin queries
;
D QRYSETUP^MHV1P6B
;
; Add the HL7 protocols for Secure Messaging
;
D HL7
;
D LOG^MHVUL2("MHV1P6","POST-INIT END","S","TRACE")
D LOGOFF
D RESET^MHVUL2
Q
;
LOGON ; Turn on logging
N UPDATE,SUCCESS
D BMES^XPDUTL(" Turning on MHV Application Logging")
S UPDATE("STATE")=1
S UPDATE("DELETE")=$$HTFM^XLFDT($H+60)
S UPDATE("LEVEL")="DEBUG"
D LOGSET^MHVUL1(.SUCCESS,.UPDATE)
Q
;
LOGOFF ; Turn off logging
N SUCCESS
D BMES^XPDUTL(" Turning off MHV Application Logging")
D LOGOFF^MHVUL1(.SUCCESS)
Q
;
HL7 ; Set up HL7 protocols
N FLDS,ERR
K FLDS
S ERR=""
S FLDS("SUBSCRIBER")="MHVSM QBP-Q11 Subscriber"
S FLDS("PROTOCOL")="MHVSM QBP-Q11 Event Driver"
S FLDS("BUILDER")="RSPK11~MHV7B9"
S FLDS("SEGMENT")="PID"
D LOG^MHVUL2("UPDATE RESPONSE MAP",.FLDS,"M","DEBUG")
D UPDMAP^MHVU2(.FLDS,1,.ERR)
I ERR'="" D
. D LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")
. D BMES^XPDUTL(" *** An Error occurred during installation.")
. D MES^XPDUTL(" Please log a remedy ticket.")
. Q
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMHV1P6 1622 printed Nov 22, 2024@17:25:37 Page 2
MHV1P6 ;WAS/DLF - My HealtheVet Install Utility Routine ; 9/25/08 4:06pm
+1 ;;1.0;My HealtheVet;**6**;Aug 23, 2005;Build 82
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
+4 ; Integration Agreements:
+5 ; 10141 : BMES^XPDUTL
+6 ; : MES^XPDUTL
+7 ; 10103 : $$HTFM^XLFDT
+8 ;
ENV ;
+1 QUIT
+2 ;
PRE ; turn on logging
+1 DO LOGON
+2 DO LOG^MHVUL2("MHV1P6","PRE-INIT","S","TRACE")
+3 QUIT
+4 ;
POST ; Post-init
+1 NEW ERR
+2 DO LOG^MHVUL2("MHV1P6","POST-INIT BEGIN","S","TRACE")
+3 ;
+4 ; Set up the secure messaging Admin queries
+5 ;
+6 DO QRYSETUP^MHV1P6B
+7 ;
+8 ; Add the HL7 protocols for Secure Messaging
+9 ;
+10 DO HL7
+11 ;
+12 DO LOG^MHVUL2("MHV1P6","POST-INIT END","S","TRACE")
+13 DO LOGOFF
+14 DO RESET^MHVUL2
+15 QUIT
+16 ;
LOGON ; Turn on logging
+1 NEW UPDATE,SUCCESS
+2 DO BMES^XPDUTL(" Turning on MHV Application Logging")
+3 SET UPDATE("STATE")=1
+4 SET UPDATE("DELETE")=$$HTFM^XLFDT($HOROLOG+60)
+5 SET UPDATE("LEVEL")="DEBUG"
+6 DO LOGSET^MHVUL1(.SUCCESS,.UPDATE)
+7 QUIT
+8 ;
LOGOFF ; Turn off logging
+1 NEW SUCCESS
+2 DO BMES^XPDUTL(" Turning off MHV Application Logging")
+3 DO LOGOFF^MHVUL1(.SUCCESS)
+4 QUIT
+5 ;
HL7 ; Set up HL7 protocols
+1 NEW FLDS,ERR
+2 KILL FLDS
+3 SET ERR=""
+4 SET FLDS("SUBSCRIBER")="MHVSM QBP-Q11 Subscriber"
+5 SET FLDS("PROTOCOL")="MHVSM QBP-Q11 Event Driver"
+6 SET FLDS("BUILDER")="RSPK11~MHV7B9"
+7 SET FLDS("SEGMENT")="PID"
+8 DO LOG^MHVUL2("UPDATE RESPONSE MAP",.FLDS,"M","DEBUG")
+9 DO UPDMAP^MHVU2(.FLDS,1,.ERR)
+10 IF ERR'=""
Begin DoDot:1
+11 DO LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")
+12 DO BMES^XPDUTL(" *** An Error occurred during installation.")
+13 DO MES^XPDUTL(" Please log a remedy ticket.")
+14 QUIT
End DoDot:1
+15 ;
+16 QUIT
