| [613] | 1 | PXIPENV ;ISL/dee - Environment Check rtn ;8/9/96
|
|---|
| 2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
|
|---|
| 3 | EN ; 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
|
|---|
