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

BEHUENV.m

Go to the documentation of this file.
  1. BEHUENV ;MSC/IND/PLS - Environment Checker ;05-Nov-2012 16:59;PLS
  1. ;;1.2;BEH UTILITIES;**2**;Mar 20, 2007;Build 3
  1. ;=================================================================
  1. ; Patch 2 = EHR v1.1 Patch 11
  1. ENV ;EP - Environment check
  1. N VAL,PAT,X,PATCHK,HDR,LEHR,HDRTXT
  1. S XPDABORT=0
  1. S HDR=0,HDRTXT="The following are missing from the RPMS environment:"
  1. F VAL=0:1 S X=$P($T(ENVDAT+VAL),";;",2) Q:'$L(X) D
  1. .S PATCHK='$$PATCH^XPDUTL(X)
  1. .I PATCHK D
  1. ..I 'HDR D
  1. ...D BMES^XPDUTL(HDRTXT)
  1. ...S HDR=1
  1. ..D BMES^XPDUTL(" "_X)
  1. .S:PATCHK XPDABORT=1
  1. S LEHR=$$FNDEHR("EHR*1.1*10")
  1. I LEHR
  1. .I 'HDR D
  1. ..D BMES^XPDUTL(HDRTXT)
  1. ..S HDR=1
  1. .D BMES^XPDUTL(" EHR*1.1*10")
  1. I 'XPDABORT D
  1. .W !!,"All requirements for installation have been met...",!
  1. E D
  1. .W !!,"Unable to continue with the installation...",!
  1. Q
  1. Q
  1. ;
  1. ; Find last EHR installation
  1. FND() ;EP
  1. N LP,IEN,LSTDT,DAT,DATA,ERR
  1. D FIND^DIC(9.7,"","@;.01;17I","P","EHR",,,"","","DATA","ERR")
  1. S LP=0,IEN=0,LSTDT=0 F S LP=$O(DATA("DILIST",LP)) Q:'LP D
  1. .S DAT=DATA("DILIST",LP,0)
  1. .I $P(DAT,U,3)>LSTDT D
  1. ..S IEN=LP
  1. ..S LSTDT=$P(DAT,U,3)
  1. Q $S(IEN:DATA("DILIST",IEN,0),1:"")
  1. ; Returns flag indicating lack of EHR v1.1 Patch 10
  1. FNDEHR(X) ;
  1. N STAT,INSTDA
  1. S INSTDA=""
  1. Q:'$D(^XPD(9.7,"B",X)) 1
  1. S INSTDA=$O(^XPD(9.7,"B",X,INSTDA),-1)
  1. S STAT=+$P($G(^XPD(9.7,INSTDA,0)),U,9)
  1. Q STAT'=3
  1. ; To add to the list of requirements, add the info specific to the
  1. ; application after the "ENV" label, below in the form:
  1. ; Namespace*Version*Patch
  1. ; E.g., to check for Pt Reg, v 6.1, patch 2:
  1. ; AG*6.1*2
  1. ; If the application has no patches, leave the patch info blank.
  1. ;
  1. ENVDAT ;;XU*8.0*1017
  1. ;;XT*7.3*1017
  1. ;;DI*22.0*1017
  1. ;;XWB*1.1*1017
  1. ;;BJPC*2.0*8
  1. ;;GMRA*4.0*1005
  1. ;;GMPL*2.0*1001
  1. ;;GMRV*5.0*1001
  1. ;;GMRC*3.0*1002
  1. ;;TIU*1.0*1010
  1. ;;PXRM*1.5*1009
  1. ;;APSP*7.0*1014
  1. ;;BRA*5.0*1003
  1. ;;LR*5.2*1031
  1. ;;PIMS*5.3*1015
  1. ;;