PXIPENV ;ISL/dee - Environment Check rtn ;8/9/96
;;1.0;PCE PATIENT CARE ENCOUNTER;;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"
. W !," or greater of 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 GMTSINST]"",GMTSINST'="2.7" D
. W !!,"You can only install this version in an account that has"
. W !,"Health Summary version 2.7 or greater installed."
. W !,"Or an account that does not have Health Summary installed at all."
. W !!,"You must install the released version 2.7 of Health Summary"
. W !,"before doing this install."
. 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[HPXIPENV 2277 printed Apr 09, 2024@21:34:09 Page 2
PXIPENV ;ISL/dee - Environment Check rtn ;8/9/96
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;;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"
+15 WRITE !," or greater of 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 GMTSINST]""
IF GMTSINST'="2.7"
Begin DoDot:1
+30 WRITE !!,"You can only install this version in an account that has"
+31 WRITE !,"Health Summary version 2.7 or greater installed."
+32 WRITE !,"Or an account that does not have Health Summary installed at all."
+33 WRITE !!,"You must install the released version 2.7 of Health Summary"
+34 WRITE !,"before doing this install."
+35 SET XPDQUIT=1
End DoDot:1
+36 IF $GET(XPDQUIT)=1
QUIT
+37 IF '$GET(XPDENV)
QUIT
+38 IF $SELECT('($DATA(DUZ)#2):1,'($DATA(DUZ(0))#2):1,'DUZ:1,'(+$GET(DUZ(2))):1,1:0)
Begin DoDot:1
+39 WRITE !!,$CHAR(7),"DUZ, DUZ(0), and DUZ(2) must be defined as an active user."
+40 WRITE !,"Please sign-on before installing."
+41 KILL DIFQ
+42 SET XPDQUIT=2
End DoDot:1
QUIT
+43 IF DUZ(0)'="@"
Begin DoDot:1
+44 WRITE !!,$CHAR(7),"You must have programmer access <DUZ(0)=""@""> "
+45 WRITE !,"to do this install."
+46 KILL DIFQ
+47 SET XPDQUIT=2
End DoDot:1
QUIT
+48 QUIT
