MHVU1.m

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 ---MHVU1   2864     printed  Apr 09, 2024@21:17:57                                                                                                                                                                                                       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      ;