- 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 Feb 18, 2025@23:37:38 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