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

MPIFP61.m

Go to the documentation of this file.
  1. MPIFP61 ;OAK/ELZ - MPIF PATCH 61 ROUTINE ;07 MAY 2015
  1. ;;1.0;MASTER PATIENT INDEX VISTA;**61**;30 Apr 99;Build 3
  1. ;
  1. ENV ; - environment check for patch (needs to stay on top of routine)
  1. ; This is to double check the site correctly setup the WSDL
  1. ; when patch MPIF*1*56 was released. This may cause a hard
  1. ; M error when executing but it is better we catch this during
  1. ; the patch load process than after the patch is installed and
  1. ; registration users are getting errors.
  1. ;
  1. N RETURN
  1. ; - check for production system, these checks can only be done there
  1. I '$$PROD^XUPROD Q
  1. ;
  1. ; - call to MVI HWSC query for a production test patient
  1. D PATIENT^MPIFXMLS(.RETURN,"1011478921V055178^NI^200M^USVHA")
  1. ;
  1. ; - if return <1 patch can not be installed be installed
  1. ; they need to setup the MVI HWSC with the WSDL released.
  1. I $G(RETURN)<1 D S XPDQUIT=1
  1. . W !!,"The setup that was to be done with prior patch MPIF*1.0*56"
  1. . W !,"was NOT completed. Review the install guide from that patch"
  1. . W !,"to make sure everything is done prior to installing this patch."
  1. ;
  1. Q