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

AMERENV1.m

Go to the documentation of this file. 
  1. AMERENV1 ; IHS/OIT/SCR - ERS V3.0 ENVIRONMENT CHECK ROUTINE ;
  1.  ;;3.0;ER VISIT SYSTEM;**1,2,3**;DEC 07, 2011;Build 11
  1.  ;
  1.  ;
  1. PRECHK ; EP
  1.  D BMES^XPDUTL("Beginning of Pre Check.")
  1.  NEW STR      ; String variable -- used for messages.
  1.  ;
  1.  S $P(LINE,"*",81)=""
  1.  S XPDNOQUE="NO QUE"  ;NO QUEUING ALLOWED
  1.  ;
  1.  ; DISABLE THE "Disable options..." and "Move routines..."
  1.  ; questions from being asked during install
  1.  S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
  1.  ;
  1.  S XPDDIQ("XPO1")=0  ;DISABLE "Rebuild Menu Tree" question
  1.  S XPDABORT=0
  1.  ;
  1. USERID ; CHECK FOR USER ID
  1.  I '$G(DUZ) D SORRY("DUZ UNDEFINED OR 0!")  Q
  1.  ;
  1.  I '$L($G(DUZ(0))) D SORRY("DUZ(0) UNDEFINED OR NULL!")  Q
  1.  ;
  1.  D HOME^%ZIS,DT^DICRW
  1.  S X=$P($G(^VA(200,DUZ,0)),U)
  1.  I $G(X) D SORRY("Installer cannot be identified!")  Q
  1.  ;
  1. LETSGO ; USER IDENTIFIED -- LET'S GO
  1.  D MES^XPDUTL("Hello, "_$P(X,",",2)_" "_$P(X,","))
  1.  ; 
  1. AMER ; CHECK FOR AMER PATCH 2 ;IHS/OIT/GIS 8/23/11 patch 3
  1.  D BMES^XPDUTL("Need AMER 3.0, Patch 2")
  1.  I $T(+2^AMER0)'["2**;" D SORRY("AMER 3.0, Patch 2 NOT installed!") Q
  1.  D OKAY("AMER 3.0, Patch 2 has been installed!")
  1.  ; 
  1. FILEMAN ; CHECK FOR FILEMAN 22.0
  1.  S X=$G(^DD("VERSION"))
  1.  D BMES^XPDUTL("Need at least FileMan 22.0")
  1.  I X<22 D SORRY("Need FileMan 22.0 & FileMan "_X_" found!")  Q
  1.  D OKAY("FileMan "_X_" found.")
  1.  ;
  1. KERNEL ; CHECK FOR KERNEL 8.0
  1.  S X=$G(^DIC(9.4,$O(^DIC(9.4,"C","XU",0)),"VERSION"))
  1.  D BMES^XPDUTL("Need at least Kernel 8.0.")
  1.  I X<8.0 D SORRY("Need Kernel 8.0 & Kernel "_X_" found!")  Q
  1.  D OKAY("Kernel "_X_" found.")
  1.  ;
  1. PIMS ; CHECK FOR PIMS 5.3
  1.  ;first check for PIMS
  1.  S X=$$VERSION^XPDUTL("PIMS")
  1.  D BMES^XPDUTL("Need at least PIMS 5.3.")
  1.  I X="" D SORRY("Please install PIMS 5.3 before loading this version")  Q
  1.  I X<5.3 D SORRY("Need PIMS 5.3 & PIMS "_X_" found!") Q
  1.  D OKAY("PIMS "_X_" found.")
  1.  ;
  1. MM1006 ; CHECK FOR MAILMAN patch 1006
  1.  ;IHS/OIT/SCR 050409 modied to allow v 8.0 OR required 7.1 patch
  1.  S VERSION=$$XMV8()
  1.  I VERSION="8.0" D OKAY("MailMan version 8.0 found")
  1.  I VERSION="7.1" D
  1.  .D OKAY("MailMan version 7.1 found")
  1.  .D BMES^XPDUTL("Need XM patch 1006.")
  1.  .I $$XMPATCH(50)'["Y" D SORRY("MailMan v7.1 Patch 1006 IS NOT installed!")  Q
  1.  .D OKAY("MailMan v7.1 Patch 1006 found")
  1.  .Q
  1.  I (VERSION'="8.0")&&(VERSION'="7.1") D SORRY("Unsupported MailMan Version Found") Q
  1.  ;
  1. AICD7 ; CHECK FOR AICD 3.51 patch 7
  1.  S X=$$VERSION^XPDUTL("AICD")
  1.  N Y S Y=+$$LAST^XPDUTL("IHS ICD/CPT LOOKUP & GROUPER",X)
  1.  D BMES^XPDUTL("Need AICD 3.51 patch 7.")
  1.  I X<3.51!((X=3.51)&(Y<7)) D  Q
  1.  . D:Y=-1 SORRY("Need AICD 3.51 patch 7 & AICD "_X_" found!")
  1.  . D:Y'=-1 SORRY("Need AICD 3.51 patch 7 & AICD "_X_" patch "_Y_" found!")
  1.  D OKAY("AICD 3.51 Patch 7 found")
  1.  ;
  1. AG ; CHECK FOR AG 7.1 PATCH 2
  1.  S X=$$VERSION^XPDUTL("IHS PATIENT REGISTRATION")
  1.  N Y S Y=+$$LAST^XPDUTL("IHS PATIENT REGISTRATION",X)
  1.  D BMES^XPDUTL("Need IHS PATIENT REGISTRATION 7.1 patch 2.")
  1.  I X<7.1!((X=7.1)&(Y<2)) D  Q
  1.  . D:Y=-1 SORRY("Need IHS PATIENT REGISTRATION 7.1 patch 2 & IHS PATIENT REGISTRATION "_X_" found!")
  1.  . D:Y'=-1 SORRY("Need IHS PATIENT REGISTRATION 7.1 patch 2 & IHS PATIENT REGISTRATION "_X_" patch "_Y_" found!")
  1.  D OKAY("IHS PATIENT REGISTRATION 7.1 Patch 2 found")
  1.  ;
  1. PCC ; CHECK FOR PCC DATA ENTRY 2.0
  1.  S X=$$VERSION^XPDUTL("APCD")
  1.  D BMES^XPDUTL("Need PCC DATA ENTRY 2.0.")
  1.  I X<2.0 D SORRY("Need PCC DATA ENTRY 2.0 to install this version")  Q
  1.  D OKAY("PCC DATA ENTRY 2.0 found.")
  1.  ;
  1. AMER ; CHECK FOR AMER 3.0 PATCH 1
  1.  D BMES^XPDUTL("Need ER VISIT SYSTEM v3.0 patch 1")
  1.  S X=$$VERSION^XPDUTL("ER VISIT SYSTEM")
  1.  S Y=+$$LAST^XPDUTL("ER VISIT SYSTEM",X)
  1.  I X<1 D SORRY("NEED ERS PATCH 1 before installing this patch") Q
  1.  D OKAY("ERS v3.0 patch 1 found")
  1.  ;
  1. ENVOK ; ENVIRONMENT OK
  1.  D BMES^XPDUTL("ENVIRONMENT OK.")
  1.  ;
  1. BACKUPS ; CHECK TO CONFIRM BACKUPS HAVE BEEN DONE
  1.  D BMES^XPDUTL("SYSTEM BACKUP Check.")
  1.  W !!
  1.  S DIR(0)="Y"
  1.  S DIR("B")="NO"
  1.  S DIR("A")="Has a SUCCESSFUL system backup been performed"
  1.  D ^DIR
  1.  I $D(DIRUT)!($G(Y)=0) D  Q
  1.  . D SORRY("Please perform a successful backup before continuing!!")
  1.  S %DT="R",X="NOW" D ^%DT X ^DD("DD")
  1.  S STR="BACKUPS CONFIRMED BY "_$P($G(^VA(200,DUZ,0)),U)_" ON "
  1.  S STR=STR_$P(Y,"@")_" AT "_$P(Y,"@",2)
  1.  D BMES^XPDUTL(STR)
  1.  D MES^XPDUTL(" ")
  1.  Q  ;END OF MAIN ROUTINE
  1.  ;
  1. SORRY(MSG,MODE) ; MESSAGE TO DISPLAY WHEN SOMETHING GOES WRONG
  1.  NEW MESSAGE
  1.  I $G(MODE)'["NONFATAL" D
  1.  . S MESSAGE="Install Aborting due to the following Systems Environment issue:"
  1.  . S XPDABORT=1
  1.  ;
  1.  I $G(MODE)["NONFATAL" S MESSAGE="*** WARNING *** WARNING *** WARNING ***"
  1.  ;
  1.  K DIFQ
  1.  ;
  1.  NEW STR
  1.  S STR(1)=""
  1.  S STR(2)=$TR($J("",65)," ","*")    ; Row of asterisks
  1.  S STR(3)=" "
  1.  S STR(4)=$$CJ^XLFSTR("Site: "_$$LOC^XBFUNC,65)
  1.  S STR(5)=" "
  1.  S STR(6)=$$CJ^XLFSTR(MESSAGE,65)
  1.  S STR(7)=" "
  1.  S STR(8)=$$CJ^XLFSTR(">>> "_MSG_" <<<",65)
  1.  S STR(9)=" "
  1.  S STR(10)=$$CJ^XLFSTR("Please print/capture this screen and",65)
  1.  S STR(11)=$$CJ^XLFSTR("notify the Support Center at",65)
  1.  S STR(12)=""
  1.  S STR(13)=$$CJ^XLFSTR("1-888-830-7280.",65)
  1.  S STR(14)=" "
  1.  S STR(15)=$G(STR(2))               ; Row of asterisks
  1.  S STR(16)=""
  1.  D BMES^XPDUTL(.STR)
  1.  Q
  1.  ;
  1. OKAY(MSG,TAB) ; MESSAGE WITH "OK" AT THE END
  1.  NEW MESSAGE
  1.  I $G(TAB)="" S TAB=5
  1.  S MESSAGE=$J("",TAB)_MSG_" OK."
  1.  D MES^XPDUTL(MESSAGE)
  1.  Q
  1.  ;
  1. XMV8() ; CHECK FOR MAILMAN v8.0
  1.  ;IHS/OIT/SCR 050409
  1.  S X=$$VERSION^XPDUTL("XM")
  1.  D BMES^XPDUTL("Checking MailMan Version")
  1.  S MESSAGE="MAIL MAN v"_X_" found"
  1.  D OKAY(MESSAGE)
  1.  Q X
  1.  ;
  1. XMPATCH(CHK)  ; Check for mail-man patch
  1.  NEW PAT,PATCH,XMPTR,OKGIS,OKPATCH
  1.  S XMPTR=$O(^DIC(9.4,"C","XM",0))
  1.  S PAT="",OKPATCH="NO"
  1.  F  S PAT=$O(^DIC(9.4,XMPTR,22,PAT))  Q:PAT=""!(OKPATCH["Y")  D
  1.  . S PATCH=""
  1.  . F  S PATCH=$O(^DIC(9.4,XMPTR,22,PAT,"PAH",PATCH))  Q:PATCH=""!(OKPATCH["Y")  D
  1.  .. I +$G(^DIC(9.4,XMPTR,22,PAT,"PAH",PATCH,0))[CHK S OKPATCH="YES"
  1.  Q OKPATCH
  1.  ;
  1. TABMENU(MSG,TAB,TAIL) ; GENERIC MESSAGE OUTPUT
  1.  NEW MESSAGE
  1.  I $G(TAB)="" S TAB=5
  1.  S MESSAGE=$J("",TAB)_MSG
  1.  I $G(TAIL)'="" S MESSAGE=MESSAGE_" "_TAIL
  1.  D MES^XPDUTL(MESSAGE)
  1.  Q