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

VSITIENV.m

Go to the documentation of this file. 
  1. VSITIENV ;ISL/dee - Environment Check rtn ;8/9/96
  1.  ;;1.0;PCE PATIENT CARE ENCOUNTER;**76**;Aug 12, 1996
  1.  ; Patch PX*1*76 changes the 2nd line of all VSIT* routines to reflect
  1.  ; the incorporation of the module into PCE.  For historical reference,
  1.  ; the old (VISIT TRACKING) 2nd line is included below to reference VSIT
  1.  ; patches.
  1.  ;IHS/ITSC/LJF 5/30/2003 some sites may have partial PX entry with VSIT
  1.  ;                         listed as additional prefix; this prevents
  1.  ;                         adding VSIT as a separate package
  1.  ;             4/08/2004 added check for PIMS v5.3
  1.  ;
  1.  ;;2.0;VISIT TRACKING;;Aug 12, 1996
  1. EN ; entry point
  1.  ;
  1.  ;IHS/ITSC/LJF 5/30/2003 check if VSIT is additional prefix
  1.  ; for PX entry; if so stop install
  1.  NEW IEN
  1.  S IEN=$O(^DIC(9.4,"C","VSIT",0)) Q:'IEN
  1.  I $P(^DIC(9.4,IEN,0),U,2)="PX" D
  1.  . W !,!,"You must remove the VSIT prefix from the PX package entry first!"
  1.  . S XPDABORT=1
  1.  ;
  1.  ;IHS/ITSC/LJF 4/8/2004
  1.  I '$$VERSION^XPDUTL("PIMS") D
  1.  . W !!,"Sorry, you must have PIMS v5.3 installed"
  1.  . S XPDQUIT=1
  1.  ;IHS/ITSC/LJF 4/8/2004
  1.  ;
  1.  Q    ; don't execute rest of environment check; only useful for VA sites
  1.  ;IHS/ITSC/LJF 5/30/2003 end of code
  1.  ;
  1.  ;
  1.  N PXINSTAL,AICSINST,PXPTINST
  1.  S AICSINST=$$VERSION^XPDUTL("IBD")
  1.  S GMTSINST=$$VERSION^XPDUTL("GMTS")
  1.  S VSITINST=$$VERSION^XPDUTL("VSIT")
  1.  S PXPTINST=$$VERSION^XPDUTL("PXPT")
  1.  S PXINSTAL=$$VERSION^XPDUTL("PX")
  1.  I +AICSINST<2.1 D
  1.  . W !!,"You can only install this version in an account that has"
  1.  . W !,"AUTOMATED INFO COLLECTION SYS (IBD) version 2.1 installed."
  1.  . W !,"You must install this before installing PCE."
  1.  . S XPDQUIT=1
  1.  I PXINSTAL]"",PXINSTAL'="1.0",$P(PXINSTAL,"T",2)<31 D
  1.  . W !!,"You can only install this version in an account that has the"
  1.  . W !,"  released version 1.0 or test version 1.0T31 or greater of "
  1.  . W !,"  PCE.  Or an account that does not have PCE installed yet."
  1.  . W !,"You must install T32 of PCE and Visit Tracking before installing"
  1.  . W !,"  this version."
  1.  . W !,"T32 has database clean up that is not included in this version."
  1.  . S XPDQUIT=1
  1.  E  I VSITINST]"",VSITINST'="2.0",$P(VSITINST,"T",2)<31 D
  1.  . W !!,"You can only install this version in an account that has the"
  1.  . W !,"  released version 2.0 or test version 2.0T31 or greater of"
  1.  . W !,"  Visit Tracking.  Or an account that does not have"
  1.  . W !,"Visit Tracking installed yet."
  1.  . W !,"You must install T32 of Visit Tracking before installing"
  1.  . W !,"this version."
  1.  . W !,"T32 has database clean up that is not included in this version."
  1.  . S XPDQUIT=1
  1.  I $G(XPDQUIT)=1 Q
  1.  I '$G(XPDENV) Q
  1.  I $S('($D(DUZ)#2):1,'($D(DUZ(0))#2):1,'DUZ:1,'(+$G(DUZ(2))):1,1:0) D  Q
  1.  . W !!,$C(7),"DUZ, DUZ(0), and DUZ(2) must be defined as an active user."
  1.  . W !,"Please sign-on before installing."
  1.  . K DIFQ
  1.  . S XPDQUIT=2
  1.  I DUZ(0)'="@" D  Q
  1.  . W !!,$C(7),"You must have programmer access <DUZ(0)=""@""> "
  1.  . W !,"to do this install."
  1.  . K DIFQ
  1.  . S XPDQUIT=2
  1.  Q