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

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

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1VSITIENV ;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
9EN ; 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
Note: See TracBrowser for help on using the repository browser.