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

SCMSPEN.m

Go to the documentation of this file. 
  1. SCMSPEN ;ALB/JRP - AMB CARE ENVIRONMENT CHECKER;04-JUN-96
  1.  ;;5.3;Scheduling;**44**;AUG 13, 1993
  1. CHKENV ;Main entry point for environment checker
  1.  ;Input  : All variables set by KIDS
  1.  ;Output : Variables required by KIDS to denote success or failure
  1.  ;         of environment check (XPDQUIT and XPDABORT)
  1.  ;
  1.  ;Declare variables
  1.  N VERSION,PATCHED,NODE,PTR,NAME
  1.  W !!,">>> Beginning environment check",!!
  1.  ;Check for installation of PCE version 1.0 - required for install
  1.  W !!,"  Checking for installation of PCE version 1.0 ..."
  1.  S VERSION=$$VERSION^XPDUTL("PX")
  1.  I ((+VERSION)<1) D
  1.  .W !!,"    *** Required element missing ***",!
  1.  .W !,"    Installation of Ambulatory Care requires that PCE version"
  1.  .W !,"    1.0 be installed - you have version ",VERSION," installed."
  1.  .W !,"    Installation will be aborted at end of environment check."
  1.  .W !
  1.  .S XPDABORT=2
  1.  ;Check for installation of HL7 version 1.6 - required for install
  1.  W !!,"  Checking for installation of HL7 version 1.6 ..."
  1.  S VERSION=+$$VERSION^XPDUTL("HL")
  1.  I (VERSION<1.6) D
  1.  .W !!,"    *** Required element missing ***",!
  1.  .W !,"    Installation of Ambulatory Care requires that HL7 version"
  1.  .W !,"    1.6 be installed - you have version ",VERSION," installed."
  1.  .W !,"    Installation will be aborted at end of environment check."
  1.  .W !
  1.  .S XPDABORT=2
  1.  ;Check for installation of XU*8.0*27 - required for install
  1.  W !!,"  Checking for installation of patch XU*8.0*27 ..."
  1.  S PATCHED=$$PATCH^XPDUTL("XU*8.0*27")
  1.  I ('PATCHED) D
  1.  .W !!,"    *** Required element missing ***",!
  1.  .W !,"    Installation of Ambulatory Care requires that Kernel patch"
  1.  .W !,"    XU*8.0*27 be installed.  Install will be aborted at end of"
  1.  .W !,"    environment check."
  1.  .W !
  1.  .S XPDABORT=2
  1.  ;Check for installation of HL*1.6*8 - required for install
  1.  W !!,"  Checking for installation of patch HL*1.6*8 ..."
  1.  S PATCHED=$$PATCH^XPDUTL("HL*1.6*8")
  1.  I ('PATCHED) D
  1.  .W !!,"    *** Required element missing ***",!
  1.  .W !,"    Installation of Ambulatory Care requires that HL7 patch"
  1.  .W !,"    HL*1.6*8 be installed.  Install will be aborted at end of"
  1.  .W !,"    environment check."
  1.  .W !
  1.  .S XPDABORT=2
  1.  ;Check for installation of IB*2.0*60 - required for install
  1.  W !!,"  Checking for installation of patch IB*2.0*60 ..."
  1.  S PATCHED=$$PATCH^XPDUTL("IB*2.0*60")
  1.  I ('PATCHED) D
  1.  .W !!,"    *** Required element missing ***",!
  1.  .W !,"    Installation of Ambulatory Care requires that Integrated"
  1.  .W !,"    Billing patch IB*2.O*60 be installed.  Install will be aborted"
  1.  .W !,"    at end of environment check."
  1.  .W !
  1.  .S XPDABORT=2
  1.  ;Check for existance of Q-ACS.DOMAIN.EXT domain - required for install
  1.  W !!,"  Checking for existance of Q-ACS.DOMAIN.EXT domain ..."
  1.  I ('$O(^DIC(4.2,"B","Q-ACS.DOMAIN.EXT",0))) D
  1.  .W !!,"    *** Required element missing ***",!
  1.  .W !,"    Installation of Ambulatory Care requires that the domain"
  1.  .W !,"    Q-ACS.DOMAIN.EXT be defined.  Install will be aborted at end"
  1.  .W !,"    of environment check."
  1.  .W !
  1.  .S XPDABORT=2
  1.  ;Check for installation of PCMM - not required for install but
  1.  ; causes a problem if installed after Amb Care
  1.  W !!,"  Checking for installation of patch SD*5.3*41 (PCMM) ..."
  1.  S PATCHED=$$PATCH^XPDUTL("SD*5.3*41")
  1.  I ('PATCHED) D
  1.  .W !!,"    *** Warning ***",!
  1.  .W !,"    Primary Care Management Module (SD*5.3*41) has not been"
  1.  .W !,"    installed.  After installing PCMM, call the routine SCMSP"
  1.  .W !,"    at the line tag SDM (i.e. D SDM^SCMSP) in order to install"
  1.  .W !,"    a version of routine SDM with the ACRP & PCMM changes"
  1.  .W !,"    applied to it."
  1.  .W !
  1.  ;Check for installation of RA*4.5*4 - not required for install but
  1.  ; loose workload credit if not installed
  1.  W !!,"  Checking for installation of patch RA*4.5*4 ..."
  1.  S PATCHED=$$PATCH^XPDUTL("RA*4.5*4")
  1.  I ('PATCHED) D
  1.  .W !!,"    *** Warning ***",!
  1.  .W !,"    Radiology patch RA*4.5*4 has not been installed.  This patch"
  1.  .W !,"    must be installed in order for all workload credit to be"
  1.  .W !,"    reported."
  1.  .W !
  1.  ;Check for installation of LR*5.2*127 - not required for install but
  1.  ; loose workload credit if not installed
  1.  W !!,"  Checking for installation of patch LR*5.2*127 ..."
  1.  S PATCHED=$$PATCH^XPDUTL("LR*5.2*127")
  1.  I ('PATCHED) D
  1.  .W !!,"    *** Warning ***",!
  1.  .W !,"    Lab patch LR*5.2*127 has not been installed.  This patch must"
  1.  .W !,"    be installed in order for all workload credit to be reported."
  1.  .W !
  1.  ;Check for installation of SOW*3*42 - not required for install but
  1.  ; loose ability to correctly transmit homeless indicator
  1.  W !!,"  Checking for installation of patch SOW*3*42 ..."
  1.  S PATCHED=$$PATCH^XPDUTL("SOW*3*42")
  1.  I ('PATCHED) D
  1.  .;Don't have it listed in patch history (pre KIDS patch) - check for
  1.  .; existance of line tag used by VAFHLZPD
  1.  .Q:($T(HOMELESS^SOWKHIRM)'="")
  1.  .W !!,"    *** Warning ***",!
  1.  .W !,"    Social Work patch SOW*3*42 has not been installed.  This"
  1.  .W !,"    patch must be installed in order to correctly report whether"
  1.  .W !,"    a patient is homeless or not."
  1.  .W !
  1.  ;Check for entry in OPC GENERATE MAIL GROUP field (#216) of the
  1.  ; MAS PARAMETERS file (#43) - not required for install but is used
  1.  ; during pre/post-init
  1.  W !!,"  Checking MAS PARAMETER file for OPC mail group ..."
  1.  ;Get node value is stored on
  1.  S NODE=$G(^DG(43,1,"SCLR"))
  1.  ;Get pointer
  1.  S PTR=+$P(NODE,"^",16)
  1.  ;Get name of Mail Group
  1.  S NODE=$G(^XMB(3.8,PTR,0))
  1.  S NAME=$P(NODE,"^",1)
  1.  I (NAME="") D
  1.  .W !!,"    *** Warning ***",!
  1.  .W !,"    The OPC GENERATE MAIL GROUP field (#216) of the MAS PARAMETERS"
  1.  .W !,"    file (#43) does not contain a valid mail group.  The mail group"
  1.  .W !,"    stored in this field is attached to entries that will be created"
  1.  .W !,"    in the HL APPLICATION file (#771) and BULLETIN file (#3.8)."
  1.  .W !
  1.  ;End of environment check
  1.  W !!!,">>> Environment check completed"
  1.  ;Write abort message (if appropriate)
  1.  I (+$G(XPDABORT)) D
  1.  .W !!,"*** Element(s) critical to installation of Ambulatory Care are missing"
  1.  .W !,"*** Installation will be aborted"
  1.  .W !
  1.  ;Write A-OK message (if appropriate)
  1.  W:('$G(XPDABORT)) !!,"Installation will proceed as planned",!!
  1.  ;Done
  1.  Q