MPIFP61 ;OAK/ELZ - MPIF PATCH 61 ROUTINE ;07 MAY 2015
;;1.0;MASTER PATIENT INDEX VISTA;**61**;30 Apr 99;Build 3
;
ENV ; - environment check for patch (needs to stay on top of routine)
; This is to double check the site correctly setup the WSDL
; when patch MPIF*1*56 was released. This may cause a hard
; M error when executing but it is better we catch this during
; the patch load process than after the patch is installed and
; registration users are getting errors.
;
N RETURN
; - check for production system, these checks can only be done there
I '$$PROD^XUPROD Q
;
; - call to MVI HWSC query for a production test patient
D PATIENT^MPIFXMLS(.RETURN,"1011478921V055178^NI^200M^USVHA")
;
; - if return <1 patch can not be installed be installed
; they need to setup the MVI HWSC with the WSDL released.
I $G(RETURN)<1 D S XPDQUIT=1
. W !!,"The setup that was to be done with prior patch MPIF*1.0*56"
. W !,"was NOT completed. Review the install guide from that patch"
. W !,"to make sure everything is done prior to installing this patch."
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMPIFP61 1111 printed Dec 13, 2024@02:11:22 Page 2
MPIFP61 ;OAK/ELZ - MPIF PATCH 61 ROUTINE ;07 MAY 2015
+1 ;;1.0;MASTER PATIENT INDEX VISTA;**61**;30 Apr 99;Build 3
+2 ;
ENV ; - environment check for patch (needs to stay on top of routine)
+1 ; This is to double check the site correctly setup the WSDL
+2 ; when patch MPIF*1*56 was released. This may cause a hard
+3 ; M error when executing but it is better we catch this during
+4 ; the patch load process than after the patch is installed and
+5 ; registration users are getting errors.
+6 ;
+7 NEW RETURN
+8 ; - check for production system, these checks can only be done there
+9 IF '$$PROD^XUPROD
QUIT
+10 ;
+11 ; - call to MVI HWSC query for a production test patient
+12 DO PATIENT^MPIFXMLS(.RETURN,"1011478921V055178^NI^200M^USVHA")
+13 ;
+14 ; - if return <1 patch can not be installed be installed
+15 ; they need to setup the MVI HWSC with the WSDL released.
+16 IF $GET(RETURN)<1
Begin DoDot:1
+17 WRITE !!,"The setup that was to be done with prior patch MPIF*1.0*56"
+18 WRITE !,"was NOT completed. Review the install guide from that patch"
+19 WRITE !,"to make sure everything is done prior to installing this patch."
End DoDot:1
SET XPDQUIT=1
+20 ;
+21 QUIT