MHVU1 ;WAS/GPM - UTILITIES ; 7/25/05 3:48pm [12/13/07 12:06am]
;;1.0;My HealtheVet;**2**;Aug 23, 2005;Build 22
;;Per VHA Directive 2004-038, this routine should not be modified.
;
Q
;
NOTIFY(ADM) ; Notify MHV server of patch installation, and configuration data
; Sends the current version and last patch installed for the
; My HealtheVet package. This is called by post install routines to
; notify the MHV server of patch installation.
; Configuration data passed in ADM will also be sent.
;
; Input:
; ADM - Array of administrative data
; SITE NUMBER - From Institution file
; SITE NAME - Descriptive Site Name
; DOMAIN - System Domain Name
; SYSTEM TYPE - Production or Test
; VERSION - MHV version
; PATCH NUMBER - Last MHV patch loaded
; RPC BROKER PORT - Broker port MHV Server should use
; IP ADDRESS - System IP address
; HL7 LISTENER PORT - For HL7 listener
;
; Output:
; MFN^Z01 Message is sent to the MHV server
;
;
N XMT
D LOG^MHVUL2("MFN-Z01 UPDATE","BEGIN","S","TRACE")
D LOG^MHVUL2("ADM",.ADM,"M","TRACE")
S XMT("BUILDER")="MFNZ01^MHV7B0"
S XMT("PROTOCOL")="MHV MFN-Z01 Event Driver"
S XMT("MODE")="A"
D XMIT^MHV7T(.ADM,.XMT,"","","")
;
; code to use Email transmitter
;S XMT("SAF")=ADM("SITE NUMBER")
;S XMT("EMAIL")="VHAMHVSITECOMMCONFIG@DOMAIN.EXT"
;D EMAIL^MHV7T(.ADM,.XMT,"","","")
;
D LOG^MHVUL2("MFN-Z01 UPDATE","END","S","TRACE")
;
Q
;
SETADM(ADM) ; Set up ADM array of site information
;
; Integration Agreements:
; 10141 : $$LAST^XPDUTL,$$VERSION^XPDUTL
; 3552 : $$PARAM^HLCS2
; 4440 : $$PROD^XUPROD
;
; Input: None
;
; Output:
; ADM - Array of administrative data
; SITE NUMBER - From Institution file
; SITE NAME - Descriptive Site Name
; DOMAIN - System Domain Name
; SYSTEM TYPE - Production or Test
; VERSION - MHV version
; PATCH NUMBER - Last MHV patch loaded
; RPC BROKER PORT - Broker port MHV Server should use
; IP ADDRESS - System IP address
; HL7 LISTENER PORT - For HL7 listener
;
N PARAM,VERSION,PATCH
S PARAM=$$PARAM^HLCS2
S VERSION=$$VERSION^XPDUTL("My HealtheVet")
S PATCH=$P($$LAST^XPDUTL("My HealtheVet",.VERSION),"^")
I PATCH<1 S PATCH=""
;
S ADM("SITE NUMBER")=$P(PARAM,"^",6)
S ADM("SITE NAME")=$P(PARAM,"^",5)
S ADM("DOMAIN")=$P(PARAM,"^",2)
S ADM("SYSTEM TYPE")=$S($$PROD^XUPROD(1):"P",1:"T")
S ADM("VERSION")=VERSION
S ADM("PATCH NUMBER")=PATCH
S ADM("RPC BROKER PORT")=""
S ADM("IP ADDRESS")=""
S ADM("HL7 LISTENER PORT")=5000
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMHVU1 2864 printed Nov 22, 2024@17:26:11 Page 2
MHVU1 ;WAS/GPM - UTILITIES ; 7/25/05 3:48pm [12/13/07 12:06am]
+1 ;;1.0;My HealtheVet;**2**;Aug 23, 2005;Build 22
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
+4 QUIT
+5 ;
NOTIFY(ADM) ; Notify MHV server of patch installation, and configuration data
+1 ; Sends the current version and last patch installed for the
+2 ; My HealtheVet package. This is called by post install routines to
+3 ; notify the MHV server of patch installation.
+4 ; Configuration data passed in ADM will also be sent.
+5 ;
+6 ; Input:
+7 ; ADM - Array of administrative data
+8 ; SITE NUMBER - From Institution file
+9 ; SITE NAME - Descriptive Site Name
+10 ; DOMAIN - System Domain Name
+11 ; SYSTEM TYPE - Production or Test
+12 ; VERSION - MHV version
+13 ; PATCH NUMBER - Last MHV patch loaded
+14 ; RPC BROKER PORT - Broker port MHV Server should use
+15 ; IP ADDRESS - System IP address
+16 ; HL7 LISTENER PORT - For HL7 listener
+17 ;
+18 ; Output:
+19 ; MFN^Z01 Message is sent to the MHV server
+20 ;
+21 ;
+22 NEW XMT
+23 DO LOG^MHVUL2("MFN-Z01 UPDATE","BEGIN","S","TRACE")
+24 DO LOG^MHVUL2("ADM",.ADM,"M","TRACE")
+25 SET XMT("BUILDER")="MFNZ01^MHV7B0"
+26 SET XMT("PROTOCOL")="MHV MFN-Z01 Event Driver"
+27 SET XMT("MODE")="A"
+28 DO XMIT^MHV7T(.ADM,.XMT,"","","")
+29 ;
+30 ; code to use Email transmitter
+31 ;S XMT("SAF")=ADM("SITE NUMBER")
+32 ;S XMT("EMAIL")="VHAMHVSITECOMMCONFIG@DOMAIN.EXT"
+33 ;D EMAIL^MHV7T(.ADM,.XMT,"","","")
+34 ;
+35 DO LOG^MHVUL2("MFN-Z01 UPDATE","END","S","TRACE")
+36 ;
+37 QUIT
+38 ;
SETADM(ADM) ; Set up ADM array of site information
+1 ;
+2 ; Integration Agreements:
+3 ; 10141 : $$LAST^XPDUTL,$$VERSION^XPDUTL
+4 ; 3552 : $$PARAM^HLCS2
+5 ; 4440 : $$PROD^XUPROD
+6 ;
+7 ; Input: None
+8 ;
+9 ; Output:
+10 ; ADM - Array of administrative data
+11 ; SITE NUMBER - From Institution file
+12 ; SITE NAME - Descriptive Site Name
+13 ; DOMAIN - System Domain Name
+14 ; SYSTEM TYPE - Production or Test
+15 ; VERSION - MHV version
+16 ; PATCH NUMBER - Last MHV patch loaded
+17 ; RPC BROKER PORT - Broker port MHV Server should use
+18 ; IP ADDRESS - System IP address
+19 ; HL7 LISTENER PORT - For HL7 listener
+20 ;
+21 NEW PARAM,VERSION,PATCH
+22 SET PARAM=$$PARAM^HLCS2
+23 SET VERSION=$$VERSION^XPDUTL("My HealtheVet")
+24 SET PATCH=$PIECE($$LAST^XPDUTL("My HealtheVet",.VERSION),"^")
+25 IF PATCH<1
SET PATCH=""
+26 ;
+27 SET ADM("SITE NUMBER")=$PIECE(PARAM,"^",6)
+28 SET ADM("SITE NAME")=$PIECE(PARAM,"^",5)
+29 SET ADM("DOMAIN")=$PIECE(PARAM,"^",2)
+30 SET ADM("SYSTEM TYPE")=$SELECT($$PROD^XUPROD(1):"P",1:"T")
+31 SET ADM("VERSION")=VERSION
+32 SET ADM("PATCH NUMBER")=PATCH
+33 SET ADM("RPC BROKER PORT")=""
+34 SET ADM("IP ADDRESS")=""
+35 SET ADM("HL7 LISTENER PORT")=5000
+36 QUIT
+37 ;
