source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXIPENV.m@ 949

Last change on this file since 949 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1PXIPENV ;ISL/dee - Environment Check rtn ;8/9/96
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
3EN ; entry point
4 N PXINSTAL,AICSINST,PXPTINST
5 S AICSINST=$$VERSION^XPDUTL("IBD")
6 S GMTSINST=$$VERSION^XPDUTL("GMTS")
7 S VSITINST=$$VERSION^XPDUTL("VSIT")
8 S PXPTINST=$$VERSION^XPDUTL("PXPT")
9 S PXINSTAL=$$VERSION^XPDUTL("PX")
10 I +AICSINST<2.1 D
11 . W !!,"You can only install this version in an account that has"
12 . W !,"AUTOMATED INFO COLLECTION SYS (IBD) version 2.1 installed."
13 . W !,"You must install this before installing PCE."
14 . S XPDQUIT=1
15 I PXINSTAL]"",PXINSTAL'="1.0",$P(PXINSTAL,"T",2)<31 D
16 . W !!,"You can only install this version in an account that has the"
17 . W !," released version 1.0 or test version 1.0T31"
18 . W !," or greater of PCE. Or an account that does not have PCE installed yet."
19 . W !,"You must install T32 of PCE and Visit Tracking before installing"
20 . W !," this version."
21 . W !,"T32 has database clean up that is not included in this version."
22 . S XPDQUIT=1
23 E I VSITINST]"",VSITINST'="2.0",$P(VSITINST,"T",2)<31 D
24 . W !!,"You can only install this version in an account that has the"
25 . W !," released version 2.0 or test version 2.0T31 or greater of"
26 . W !," Visit Tracking. Or an account that does not have"
27 . W !," Visit Tracking installed yet."
28 . W !,"You must install T32 of Visit Tracking before installing"
29 . W !," this version."
30 . W !,"T32 has database clean up that is not included in this version."
31 . S XPDQUIT=1
32 I GMTSINST]"",GMTSINST'="2.7" D
33 . W !!,"You can only install this version in an account that has"
34 . W !,"Health Summary version 2.7 or greater installed."
35 . W !,"Or an account that does not have Health Summary installed at all."
36 . W !!,"You must install the released version 2.7 of Health Summary"
37 . W !,"before doing this install."
38 . S XPDQUIT=1
39 I $G(XPDQUIT)=1 Q
40 I '$G(XPDENV) Q
41 I $S('($D(DUZ)#2):1,'($D(DUZ(0))#2):1,'DUZ:1,'(+$G(DUZ(2))):1,1:0) D Q
42 . W !!,$C(7),"DUZ, DUZ(0), and DUZ(2) must be defined as an active user."
43 . W !,"Please sign-on before installing."
44 . K DIFQ
45 . S XPDQUIT=2
46 I DUZ(0)'="@" D Q
47 . W !!,$C(7),"You must have programmer access <DUZ(0)=""@""> "
48 . W !,"to do this install."
49 . K DIFQ
50 . S XPDQUIT=2
51 Q
Note: See TracBrowser for help on using the repository browser.