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.
;
;;2.0;VISIT TRACKING;;Aug 12, 1996
EN ; entry point
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVSITIENV 2193 printed Nov 22, 2024@17:42:34 Page 2
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 ;
+7 ;;2.0;VISIT TRACKING;;Aug 12, 1996
EN ; entry point
+1 NEW PXINSTAL,AICSINST,PXPTINST
+2 SET AICSINST=$$VERSION^XPDUTL("IBD")
+3 SET GMTSINST=$$VERSION^XPDUTL("GMTS")
+4 SET VSITINST=$$VERSION^XPDUTL("VSIT")
+5 SET PXPTINST=$$VERSION^XPDUTL("PXPT")
+6 SET PXINSTAL=$$VERSION^XPDUTL("PX")
+7 IF +AICSINST<2.1
Begin DoDot:1
+8 WRITE !!,"You can only install this version in an account that has"
+9 WRITE !,"AUTOMATED INFO COLLECTION SYS (IBD) version 2.1 installed."
+10 WRITE !,"You must install this before installing PCE."
+11 SET XPDQUIT=1
End DoDot:1
+12 IF PXINSTAL]""
IF PXINSTAL'="1.0"
IF $PIECE(PXINSTAL,"T",2)<31
Begin DoDot:1
+13 WRITE !!,"You can only install this version in an account that has the"
+14 WRITE !," released version 1.0 or test version 1.0T31 or greater of "
+15 WRITE !," PCE. Or an account that does not have PCE installed yet."
+16 WRITE !,"You must install T32 of PCE and Visit Tracking before installing"
+17 WRITE !," this version."
+18 WRITE !,"T32 has database clean up that is not included in this version."
+19 SET XPDQUIT=1
End DoDot:1
+20 IF '$TEST
IF VSITINST]""
IF VSITINST'="2.0"
IF $PIECE(VSITINST,"T",2)<31
Begin DoDot:1
+21 WRITE !!,"You can only install this version in an account that has the"
+22 WRITE !," released version 2.0 or test version 2.0T31 or greater of"
+23 WRITE !," Visit Tracking. Or an account that does not have"
+24 WRITE !,"Visit Tracking installed yet."
+25 WRITE !,"You must install T32 of Visit Tracking before installing"
+26 WRITE !,"this version."
+27 WRITE !,"T32 has database clean up that is not included in this version."
+28 SET XPDQUIT=1
End DoDot:1
+29 IF $GET(XPDQUIT)=1
QUIT
+30 IF '$GET(XPDENV)
QUIT
+31 IF $SELECT('($DATA(DUZ)#2):1,'($DATA(DUZ(0))#2):1,'DUZ:1,'(+$GET(DUZ(2))):1,1:0)
Begin DoDot:1
+32 WRITE !!,$CHAR(7),"DUZ, DUZ(0), and DUZ(2) must be defined as an active user."
+33 WRITE !,"Please sign-on before installing."
+34 KILL DIFQ
+35 SET XPDQUIT=2
End DoDot:1
QUIT
+36 IF DUZ(0)'="@"
Begin DoDot:1
+37 WRITE !!,$CHAR(7),"You must have programmer access <DUZ(0)=""@""> "
+38 WRITE !,"to do this install."
+39 KILL DIFQ
+40 SET XPDQUIT=2
End DoDot:1
QUIT
+41 QUIT
