- 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 Jan 18, 2025@03:17:08 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 ;