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

BEDD2ENV.m

Go to the documentation of this file.
  1. BEDD2ENV ;GDIT/HS/BEE-BEDD VERSION 2.0 ENV CHECK ROUTINE ; 08 Nov 2011 12:00 PM
  1. ;;2.0;BEDD DASHBOARD;;Jun 04, 2014;Build 13
  1. ;
  1. NEW VERSION,X
  1. ;
  1. ;Add code to check for Ensemble version greater or equal to 2012
  1. S VERSION=$$VERSION^%ZOSV
  1. I VERSION<2012 D BMES^XPDUTL("Ensemble 2012 or later is required!") S XPDQUIT=2 Q
  1. ;
  1. ;Check for AMER*3.0*6
  1. I '$$INSTALLD("AMER*3.0*6") D FIX(2)
  1. ;
  1. I $T(XML^BEDD2XML)="" D BMES^XPDUTL("The BEDD XML build bedd0200.xml must first be installed!") S XPDQUIT=2 Q
  1. ;
  1. Q
  1. INSTALLD(BEDDSTAL) ;EP - Determine if patch BEDDSTAL was installed, where
  1. ; BEDDSTAL is the name of the INSTALL. E.g "AG*6.0*11".
  1. ;
  1. NEW BEDDY,INST
  1. ;
  1. S BEDDY=$O(^XPD(9.7,"B",BEDDSTAL,""))
  1. S INST=$S(BEDDY>0:1,1:0)
  1. D IMES(BEDDSTAL,INST)
  1. Q INST
  1. ;
  1. IMES(BEDDSTAL,Y) ;Display message to screen
  1. D MES^XPDUTL($$CJ^XLFSTR("Patch """_BEDDSTAL_""" is"_$S(Y<1:" *NOT*",1:"")_" installed.",IOM))
  1. Q
  1. ;
  1. FIX(X) ;
  1. KILL DIFQ
  1. I X=3 S XPDQUIT=2 Q
  1. S XPDQUIT=X
  1. W *7,!,$$CJ^XLFSTR("This patch must be installed prior to the installation of BEDD V2.0",IOM)
  1. Q