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

BCERENCK.m

Go to the documentation of this file. 
  1. BCERENCK ;IHS/SD/TPF - BCER ENVIRONMENT CHECKER FOR EHR
  1.  ;;1.0;BCER EHR CERT;;SEP 29, 2011;Build 23
  1.  ;
  1.  I '$G(DUZ) W !,"DUZ UNDEFINED OR 0." D SORRY(2) Q
  1.  I '$L($G(DUZ(0))) W !,"DUZ(0) UNDEFINED OR NULL." D SORRY(2) Q
  1.  S X=$P(^VA(200,DUZ,0),U)
  1.  W !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
  1.  W !!,$$CJ^XLFSTR("Checking Environment for EHR Software",IOM),!
  1.  W !,$$CJ^XLFSTR("At Facility "_$P($G(^DIC(4,DUZ(2),0)),U),IOM),!
  1.  N BCERQUIT
  1.  S BCERQUIT=0
  1.  ;Write $system.Version.Format(5)
  1.  ;2010.2.3 (Build 702)
  1.  S ENSEMBLE=$system.Version.GetVersion()
  1.  I ENSEMBLE'[("2009.1.6"),(ENSEMBLE'[("2010.2.3")) W !,$$CJ^XLFSTR("Need Ensemble version 2009.1.6 or version 2010.2.3  ....neither was found",IOM) S BCERQUIT=2
  1.  E  W !,$$CJ^XLFSTR("Need Ensemble version 2009.1.6 or version 2010.2.3 ....."_ENSEMBLE_" was found",IOM)
  1.  ;
  1.  ;"IHS PATIENT REGISTRATION"
  1.  ;W $$LAST^BCERENCK("IHS PATIENT REGISTRATION","7.1")
  1.  ;3^3110927
  1.  ;I '$$PATCH("AG*7.1*9")
  1.  ;DON'T CHECK FOR VERSION HERE BECAUSE AG7.2 IS MPI AND A SEPARATE DEVELOPMENT LINE
  1.  S X=$$LAST^BCERENCK("IHS PATIENT REGISTRATION","7.1")
  1.  I $P(X,U)<9 W !,$$CJ^XLFSTR("Need at least AG V7.1 patch 9....patch 9 NOT INSTALLED",IOM) S BCERQUIT=2
  1.  E  W !,$$CJ^XLFSTR("Need at least AG V7.1 patch 9....patch 9 Present",IOM)
  1.  ;
  1.  ;"IHS PCC REPORTS"
  1.  ;I '$$PATCH("APCL*3.0*27")
  1.  S X=$$LAST^BCERENCK("IHS PCC REPORTS","3.0")
  1.  I $P(X,U,4)>$P(X,U,3) D
  1.  .W !,$$CJ^XLFSTR("Version "_$P(X,U,4)_" of APCL was found present. This is greater than the version required.",IOM)
  1.  E  I $P(X,U)<27 W !,$$CJ^XLFSTR("Need at least APCL V3.0 patch 27....patch 27 NOT INSTALLED",IOM) S BCERQUIT=2
  1.  E  W !,$$CJ^XLFSTR("Need at least APCL V3.0 patch 27....patch 27 Present",IOM)
  1.  ;
  1.  ;IHS PHARMACY MODIFICATIONS
  1.  ;I '$$PATCH("APSP*7.0*1010")
  1.  S X=$$LAST^BCERENCK("IHS PHARMACY MODIFICATIONS","7.0")
  1.  I $P(X,U,4)>$P(X,U,3) D
  1.  .W !,$$CJ^XLFSTR("Version "_$P(X,U,4)_" of APSP was found present. This is greater than the version required.",IOM)
  1.  E  I $P(X,U)<1010 W !,$$CJ^XLFSTR("Need at least APSP V7.0 patch 1010....patch 1010 NOT INSTALLED",IOM) S BCERQUIT=2
  1.  E  W !,$$CJ^XLFSTR("Need at least APSP V7.0 patch 1010....patch 1010 Present",IOM)
  1.  ;
  1.  ;IHS CLINICAL REPORTING
  1.  ;I '$$PATCH("BGP*11.0*3")
  1.  S X=$$LAST^BCERENCK("IHS CLINICAL REPORTING","11.0")
  1.  I $P(X,U,4)>$P(X,U,3) D
  1.  .W !,$$CJ^XLFSTR("Version "_$P(X,U,4)_" of BGP was found present. This is greater than the version required.",IOM)
  1.  E  I $P(X,U)<3 W !,$$CJ^XLFSTR("Need at least BGP V11.0 Patch 3 installed... at least Patch 3 not installed",IOM) S BCERQUIT=2
  1.  E  W !,$$CJ^XLFSTR("Need at least patch 3 BGP v11.0 Patch "_$P(X,U)_" installed",IOM)
  1.  ;
  1.  ;
  1.  ;C32/CCD Clinical Summary
  1.  ;I '$$PATCH("BJMD*1.0*1")
  1.  S X=$$LAST^BCERENCK("CDA/C32","1.0")
  1.  I $P(X,U,4)>$P(X,U,3) D
  1.  .W !,$$CJ^XLFSTR("Version "_$P(X,U,4)_" of BJMD was found present. This is greater than the version required.",IOM)
  1.  E  I $P(X,U)<1 W !,$$CJ^XLFSTR("Need at least BJMD V1.0 patch 1....patch 1 NOT INSTALLED",IOM) S BCERQUIT=2
  1.  E  W !,$$CJ^XLFSTR("Need at least BJMD V1.0 patch 1....patch 1 Present",IOM)
  1.  ;
  1.  ;IHS PCC SUITE
  1.  ;I '$$PATCH("BJPC*2.0*6")
  1.  S X=$$LAST^BCERENCK("IHS PCC SUITE","2.0")
  1.  I $P(X,U,4)>$P(X,U,3) D
  1.  .W !,$$CJ^XLFSTR("Version "_$P(X,U,4)_" of BGPC was found present. This is greater than the version required.",IOM)
  1.  E  I $P(X,U)<6 W !,$$CJ^XLFSTR("Need at least BJPC V2.0 patch 6....patch 6 NOT INSTALLED",IOM) S BCERQUIT=2
  1.  E  W !,$$CJ^XLFSTR("Need at least BJPC V2.0 patch 6....patch 6 Present",IOM)
  1.  ;
  1.  ;REFERRED CARE INFO SYSTEM
  1.  ;I '$$PATCH("BMC*4.0*7")
  1.  S X=$$LAST^BCERENCK("REFERRED CARE INFO SYSTEM","4.0")
  1.  I $P(X,U,4)>$P(X,U,3) D
  1.  .W !,$$CJ^XLFSTR("Version "_$P(X,U,4)_" of BMC was found present. This is greater than the version required.",IOM)
  1.  E  I $P(X,U)<7 W !,$$CJ^XLFSTR("Need at least BMC V4.0 patch 7....patch 7 NOT INSTALLED",IOM) S BCERQUIT=2
  1.  E  W !,$$CJ^XLFSTR("Need at least BMC V4.0 patch 7....patch 7 Present",IOM)
  1.  ;
  1.  ;ICARE MANAGEMENT SYSTEM
  1.  ;I '$$VCHK("BQI","2.1",2)
  1.  S X=$$LAST^BCERENCK("ICARE MANAGEMENT SYSTEM","2.1")
  1.  I $P(X,U,4)>$P(X,U,3) D
  1.  .W !,$$CJ^XLFSTR("Version "_$P(X,U,4)_" of BQI was found present. This is greater than the version required.",IOM)
  1.  E  I $P(X,U,3)<2.1 W !,$$CJ^XLFSTR("Need at least BQI V2.1....BQI V2.1 NOT INSTALLED",IOM) S BCERQUIT=2
  1.  E  W !,$$CJ^XLFSTR("Need at least BQI V2.1....BQI V2.1 Present",IOM)
  1.  ;
  1.  ;IHS RELEASE OF INFORMATION
  1.  ;I '$$PATCH("BRN*2.0*3")
  1.  S X=$$LAST^BCERENCK("IHS RELEASE OF INFORMATION","2.0")
  1.  I $P(X,U,4)>$P(X,U,3) D
  1.  .W !,$$CJ^XLFSTR("Version "_$P(X,U,4)_" of BRN was found present. This is greater than the version required.",IOM)
  1.  E  I $P(X,U)<3 W !,$$CJ^XLFSTR("Need at least BRN V2.0 patch 3....patch 3 NOT INSTALLED",IOM) S BCERQUIT=2
  1.  E  W !,$$CJ^XLFSTR("Need at least BRN V2.0 patch 3....patch 3 Present",IOM)
  1.  ;
  1.  ;BYIM IMMUNIZATION INTERFACE
  1.  ;I '$$PATCH("BYIM*2.0*1")
  1.  S X=$$LAST^BCERENCK("BYIM IMMUNIZATION INTERFACE","2.0")
  1.  I $P(X,U,4)>$P(X,U,3) D
  1.  .W !,$$CJ^XLFSTR("Version "_$P(X,U,4)_" of BYIM was found present. This is greater than the version required.",IOM)
  1.  E  I $P(X,U)<1 W !,$$CJ^XLFSTR("Need at least BYIM V2.0 patch 1....patch 1 NOT INSTALLED",IOM) S BCERQUIT=2
  1.  E  W !,$$CJ^XLFSTR("Need at least BYIM V2.0 patch 1....patch 1 Present",IOM)
  1.  ;
  1.  ;BGO COMPONENTS
  1.  ;I '$$PATCH("BGO*1.1*8")
  1.  S X=$$LAST^BCERENCK("BGO COMPONENTS","1.1")
  1.  I $P(X,U,4)>$P(X,U,3) D
  1.  .W !,$$CJ^XLFSTR("Version "_$P(X,U,4)_" of BGO was found present. This is greater than the version required.",IOM)
  1.  E  I $P(X,U)<8 W !,$$CJ^XLFSTR("Need at least BGO V1.1 patch 8....patch 8 NOT INSTALLED",IOM) S BCERQUIT=2
  1.  E  W !,$$CJ^XLFSTR("Need at least BGO V1.1 patch 8....patch 8 Present",IOM)
  1.  ;
  1.  ;LAB SERVICE
  1.  ;I '$$PATCH("LR*5.2*1027")
  1.  ;DO NOT CHECK VERSION THE VA HAS RESOLVED NOT TO UPGRADE THE LR VERSION
  1.  ;S X=$$LAST^BCERENCK("LAB SERVICE","5.2")
  1.  S X=$O(^XPD(9.7,"B","LR*5.2*1099"),-1)
  1.  I $P(X,"*",3)<1027 W !,$$CJ^XLFSTR("Need at least LR V5.2 patch 1027....patch 1027 NOT INSTALLED",IOM) S BCERQUIT=2
  1.  E  W !,$$CJ^XLFSTR("Need at least LR V5.2 patch 1027....patch 1027 Present",IOM)
  1.  ;
  1.  ;CLINICAL REMINDERS - IHS 1.5
  1.  ;I '$$PATCH("PXRM*1.5*1007")
  1.  S X=$$LAST^BCERENCK("CLINICAL REMINDERS - IHS 1.5","1.5")
  1.  I X=-1 S X=$$LAST^BCERENCK("CLINICAL REMINDERS","1.5")
  1.  I $P(X,U,4)>$P(X,U,3) D
  1.  .W !,$$CJ^XLFSTR("Version "_$P(X,U,4)_" of PXRM was found present. This is greater than the version required.",IOM)
  1.  E  I $P(X,U)<1007 W !,$$CJ^XLFSTR("Need at least PXRM V1.5 patch 1007....patch 1007 NOT INSTALLED",IOM) S BCERQUIT=2
  1.  E  W !,$$CJ^XLFSTR("Need at least PXRM V1.5 patch 1007....patch 1007 Present",IOM)
  1.  ;
  1.  I BCERQUIT D SORRY(2) Q
  1.  ;
  1.  Q
  1. SORRY(X) ;
  1.  KILL DIFQ
  1.  S XPDQUIT=X
  1.  W:'$D(ZTQUEUED) *7,!,$$CJ^XLFSTR("Sorry....",IOM),$$DIR^XBDIR("E","Press RETURN")
  1.  Q
  1.  ;
  1. LAST(PKG,VER) ;EP - returns last patch applied for a Package, PATCH^DATE^VERSION
  1.  ;        Patch includes Seq # if Released
  1.  N PKGIEN,VERIEN,LATEST,PATCH,SUBIEN
  1.  I $G(VER)="" S VER=$$VERSION^XPDUTL(PKG) Q:'VER -1
  1.  E  S CURVER=$$VERSION^XPDUTL(PKG)
  1.  S PKGIEN=$O(^DIC(9.4,"B",PKG,"")) Q:'PKGIEN -1
  1.  S VERIEN=$O(^DIC(9.4,PKGIEN,22,"B",VER,"")) Q:'VERIEN -1
  1.  S LATEST=-1,PATCH=-1,SUBIEN=0
  1.  F  S SUBIEN=$O(^DIC(9.4,PKGIEN,22,VERIEN,"PAH",SUBIEN)) Q:SUBIEN'>0  D
  1.  . I $P(^DIC(9.4,PKGIEN,22,VERIEN,"PAH",SUBIEN,0),U,2)>LATEST S LATEST=$P(^(0),U,2),PATCH=$P(^(0),U)
  1.  . I $P(^DIC(9.4,PKGIEN,22,VERIEN,"PAH",SUBIEN,0),U,2)=LATEST,$P(^(0),U)>PATCH S PATCH=$P(^(0),U)
  1.  Q PATCH_U_LATEST_U_VER_U_CURVER