VSITIENV ;ISL/dee - Environment Check rtn ;8/9/96
;;1.0;PCE PATIENT CARE ENCOUNTER;**76**;Aug 12, 1996
; Patch PX*1*76 changes the 2nd line of all VSIT* routines to reflect
; the incorporation of the module into PCE. For historical reference,
; the old (VISIT TRACKING) 2nd line is included below to reference VSIT
; patches.
;IHS/ITSC/LJF 5/30/2003 some sites may have partial PX entry with VSIT
; listed as additional prefix; this prevents
; adding VSIT as a separate package
; 4/08/2004 added check for PIMS v5.3
;
;;2.0;VISIT TRACKING;;Aug 12, 1996
EN ; entry point
;
;IHS/ITSC/LJF 5/30/2003 check if VSIT is additional prefix
; for PX entry; if so stop install
NEW IEN
S IEN=$O(^DIC(9.4,"C","VSIT",0)) Q:'IEN
I $P(^DIC(9.4,IEN,0),U,2)="PX" D
. W !,!,"You must remove the VSIT prefix from the PX package entry first!"
. S XPDABORT=1
;
;IHS/ITSC/LJF 4/8/2004
I '$$VERSION^XPDUTL("PIMS") D
. W !!,"Sorry, you must have PIMS v5.3 installed"
. S XPDQUIT=1
;IHS/ITSC/LJF 4/8/2004
;
Q ; don't execute rest of environment check; only useful for VA sites
;IHS/ITSC/LJF 5/30/2003 end of code
;
;
N PXINSTAL,AICSINST,PXPTINST
S AICSINST=$$VERSION^XPDUTL("IBD")
S GMTSINST=$$VERSION^XPDUTL("GMTS")
S VSITINST=$$VERSION^XPDUTL("VSIT")
S PXPTINST=$$VERSION^XPDUTL("PXPT")
S PXINSTAL=$$VERSION^XPDUTL("PX")
I +AICSINST<2.1 D
. W !!,"You can only install this version in an account that has"
. W !,"AUTOMATED INFO COLLECTION SYS (IBD) version 2.1 installed."
. W !,"You must install this before installing PCE."
. S XPDQUIT=1
I PXINSTAL]"",PXINSTAL'="1.0",$P(PXINSTAL,"T",2)<31 D
. W !!,"You can only install this version in an account that has the"
. W !," released version 1.0 or test version 1.0T31 or greater of "
. W !," PCE. Or an account that does not have PCE installed yet."
. W !,"You must install T32 of PCE and Visit Tracking before installing"
. W !," this version."
. W !,"T32 has database clean up that is not included in this version."
. S XPDQUIT=1
E I VSITINST]"",VSITINST'="2.0",$P(VSITINST,"T",2)<31 D
. W !!,"You can only install this version in an account that has the"
. W !," released version 2.0 or test version 2.0T31 or greater of"
. W !," Visit Tracking. Or an account that does not have"
. W !,"Visit Tracking installed yet."
. W !,"You must install T32 of Visit Tracking before installing"
. W !,"this version."
. W !,"T32 has database clean up that is not included in this version."
. S XPDQUIT=1
I $G(XPDQUIT)=1 Q
I '$G(XPDENV) Q
I $S('($D(DUZ)#2):1,'($D(DUZ(0))#2):1,'DUZ:1,'(+$G(DUZ(2))):1,1:0) D Q
. W !!,$C(7),"DUZ, DUZ(0), and DUZ(2) must be defined as an active user."
. W !,"Please sign-on before installing."
. K DIFQ
. S XPDQUIT=2
I DUZ(0)'="@" D Q
. W !!,$C(7),"You must have programmer access <DUZ(0)=""@""> "
. W !,"to do this install."
. K DIFQ
. S XPDQUIT=2
Q
VSITIENV ;ISL/dee - Environment Check rtn ;8/9/96
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**76**;Aug 12, 1996
+2 ; Patch PX*1*76 changes the 2nd line of all VSIT* routines to reflect
+3 ; the incorporation of the module into PCE. For historical reference,
+4 ; the old (VISIT TRACKING) 2nd line is included below to reference VSIT
+5 ; patches.
+6 ;IHS/ITSC/LJF 5/30/2003 some sites may have partial PX entry with VSIT
+7 ; listed as additional prefix; this prevents
+8 ; adding VSIT as a separate package
+9 ; 4/08/2004 added check for PIMS v5.3
+10 ;
+11 ;;2.0;VISIT TRACKING;;Aug 12, 1996
EN ; entry point
+1 ;
+2 ;IHS/ITSC/LJF 5/30/2003 check if VSIT is additional prefix
+3 ; for PX entry; if so stop install
+4 NEW IEN
+5 SET IEN=$ORDER(^DIC(9.4,"C","VSIT",0))
IF 'IEN
QUIT
+6 IF $PIECE(^DIC(9.4,IEN,0),U,2)="PX"
Begin DoDot:1
+7 WRITE !,!,"You must remove the VSIT prefix from the PX package entry first!"
+8 SET XPDABORT=1
End DoDot:1
+9 ;
+10 ;IHS/ITSC/LJF 4/8/2004
+11 IF '$$VERSION^XPDUTL("PIMS")
Begin DoDot:1
+12 WRITE !!,"Sorry, you must have PIMS v5.3 installed"
+13 SET XPDQUIT=1
End DoDot:1
+14 ;IHS/ITSC/LJF 4/8/2004
+15 ;
+16 ; don't execute rest of environment check; only useful for VA sites
QUIT
+17 ;IHS/ITSC/LJF 5/30/2003 end of code
+18 ;
+19 ;
+20 NEW PXINSTAL,AICSINST,PXPTINST
+21 SET AICSINST=$$VERSION^XPDUTL("IBD")
+22 SET GMTSINST=$$VERSION^XPDUTL("GMTS")
+23 SET VSITINST=$$VERSION^XPDUTL("VSIT")
+24 SET PXPTINST=$$VERSION^XPDUTL("PXPT")
+25 SET PXINSTAL=$$VERSION^XPDUTL("PX")
+26 IF +AICSINST<2.1
Begin DoDot:1
+27 WRITE !!,"You can only install this version in an account that has"
+28 WRITE !,"AUTOMATED INFO COLLECTION SYS (IBD) version 2.1 installed."
+29 WRITE !,"You must install this before installing PCE."
+30 SET XPDQUIT=1
End DoDot:1
+31 IF PXINSTAL]""
IF PXINSTAL'="1.0"
IF $PIECE(PXINSTAL,"T",2)<31
Begin DoDot:1
+32 WRITE !!,"You can only install this version in an account that has the"
+33 WRITE !," released version 1.0 or test version 1.0T31 or greater of "
+34 WRITE !," PCE. Or an account that does not have PCE installed yet."
+35 WRITE !,"You must install T32 of PCE and Visit Tracking before installing"
+36 WRITE !," this version."
+37 WRITE !,"T32 has database clean up that is not included in this version."
+38 SET XPDQUIT=1
End DoDot:1
+39 IF '$TEST
IF VSITINST]""
IF VSITINST'="2.0"
IF $PIECE(VSITINST,"T",2)<31
Begin DoDot:1
+40 WRITE !!,"You can only install this version in an account that has the"
+41 WRITE !," released version 2.0 or test version 2.0T31 or greater of"
+42 WRITE !," Visit Tracking. Or an account that does not have"
+43 WRITE !,"Visit Tracking installed yet."
+44 WRITE !,"You must install T32 of Visit Tracking before installing"
+45 WRITE !,"this version."
+46 WRITE !,"T32 has database clean up that is not included in this version."
+47 SET XPDQUIT=1
End DoDot:1
+48 IF $GET(XPDQUIT)=1
QUIT
+49 IF '$GET(XPDENV)
QUIT
+50 IF $SELECT('($DATA(DUZ)#2):1,'($DATA(DUZ(0))#2):1,'DUZ:1,'(+$GET(DUZ(2))):1,1:0)
Begin DoDot:1
+51 WRITE !!,$CHAR(7),"DUZ, DUZ(0), and DUZ(2) must be defined as an active user."
+52 WRITE !,"Please sign-on before installing."
+53 KILL DIFQ
+54 SET XPDQUIT=2
End DoDot:1
QUIT
+55 IF DUZ(0)'="@"
Begin DoDot:1
+56 WRITE !!,$CHAR(7),"You must have programmer access <DUZ(0)=""@""> "
+57 WRITE !,"to do this install."
+58 KILL DIFQ
+59 SET XPDQUIT=2
End DoDot:1
QUIT
+60 QUIT
