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