Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: MHVU1

MHVU1.m

Go to the documentation of this file.
  1. 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
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. Q
  1. ;
  1. NOTIFY(ADM) ; Notify MHV server of patch installation, and configuration data
  1. ; Sends the current version and last patch installed for the
  1. ; My HealtheVet package. This is called by post install routines to
  1. ; notify the MHV server of patch installation.
  1. ; Configuration data passed in ADM will also be sent.
  1. ;
  1. ; Input:
  1. ; ADM - Array of administrative data
  1. ; SITE NUMBER - From Institution file
  1. ; SITE NAME - Descriptive Site Name
  1. ; DOMAIN - System Domain Name
  1. ; SYSTEM TYPE - Production or Test
  1. ; VERSION - MHV version
  1. ; PATCH NUMBER - Last MHV patch loaded
  1. ; RPC BROKER PORT - Broker port MHV Server should use
  1. ; IP ADDRESS - System IP address
  1. ; HL7 LISTENER PORT - For HL7 listener
  1. ;
  1. ; Output:
  1. ; MFN^Z01 Message is sent to the MHV server
  1. ;
  1. ;
  1. N XMT
  1. D LOG^MHVUL2("MFN-Z01 UPDATE","BEGIN","S","TRACE")
  1. D LOG^MHVUL2("ADM",.ADM,"M","TRACE")
  1. S XMT("BUILDER")="MFNZ01^MHV7B0"
  1. S XMT("PROTOCOL")="MHV MFN-Z01 Event Driver"
  1. S XMT("MODE")="A"
  1. D XMIT^MHV7T(.ADM,.XMT,"","","")
  1. ;
  1. ; code to use Email transmitter
  1. ;S XMT("SAF")=ADM("SITE NUMBER")
  1. ;S XMT("EMAIL")="VHAMHVSITECOMMCONFIG@DOMAIN.EXT"
  1. ;D EMAIL^MHV7T(.ADM,.XMT,"","","")
  1. ;
  1. D LOG^MHVUL2("MFN-Z01 UPDATE","END","S","TRACE")
  1. ;
  1. Q
  1. ;
  1. SETADM(ADM) ; Set up ADM array of site information
  1. ;
  1. ; Integration Agreements:
  1. ; 10141 : $$LAST^XPDUTL,$$VERSION^XPDUTL
  1. ; 3552 : $$PARAM^HLCS2
  1. ; 4440 : $$PROD^XUPROD
  1. ;
  1. ; Input: None
  1. ;
  1. ; Output:
  1. ; ADM - Array of administrative data
  1. ; SITE NUMBER - From Institution file
  1. ; SITE NAME - Descriptive Site Name
  1. ; DOMAIN - System Domain Name
  1. ; SYSTEM TYPE - Production or Test
  1. ; VERSION - MHV version
  1. ; PATCH NUMBER - Last MHV patch loaded
  1. ; RPC BROKER PORT - Broker port MHV Server should use
  1. ; IP ADDRESS - System IP address
  1. ; HL7 LISTENER PORT - For HL7 listener
  1. ;
  1. N PARAM,VERSION,PATCH
  1. S PARAM=$$PARAM^HLCS2
  1. S VERSION=$$VERSION^XPDUTL("My HealtheVet")
  1. S PATCH=$P($$LAST^XPDUTL("My HealtheVet",.VERSION),"^")
  1. I PATCH<1 S PATCH=""
  1. ;
  1. S ADM("SITE NUMBER")=$P(PARAM,"^",6)
  1. S ADM("SITE NAME")=$P(PARAM,"^",5)
  1. S ADM("DOMAIN")=$P(PARAM,"^",2)
  1. S ADM("SYSTEM TYPE")=$S($$PROD^XUPROD(1):"P",1:"T")
  1. S ADM("VERSION")=VERSION
  1. S ADM("PATCH NUMBER")=PATCH
  1. S ADM("RPC BROKER PORT")=""
  1. S ADM("IP ADDRESS")=""
  1. S ADM("HL7 LISTENER PORT")=5000
  1. Q
  1. ;