source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUENV.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: 1.7 KB
Line 
1TIUENV ; SLC/JER - Environment check routine ;2/17/95 11:14
2 ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
3MAIN ; Controls branching
4 W !,"** CHECKING DHCP ENVIRONMENT **",!!
5 I +$G(DUZ)'>0!($G(DUZ(0))'="@") D Q
6 . S XPDQUIT=2
7 . W !,"You must first initialize Programmer Environment by running ^XUP",!
8 I $S('$D(^AUPNPAT):1,'$L($T(PXXDPT^PXXDPT)):1,1:0) D Q
9 . S XPDQUIT=2
10 . W !,"You must first install the IHS Patient File.",!
11 I $S('$D(^AUPNVSIT):1,'$L($T(VSIT^VSIT)):1,1:0) D Q
12 . S XPDQUIT=2
13 . W !,"You must first install Visit Tracking.",!
14 I $$VERSION^XPDUTL("VSIT")'="2.0" D Q
15 . S XPDQUIT=2
16 . W !,"You must first install PCE v1.0 & Visit Tracking v2.0.",!
17 ; Evaluate whether ASU v1.0 has been installed
18 I $$VERSION^XPDUTL("USR")'="1.0" D Q
19 . S XPDQUIT=2
20 . W !,"You must first install Authorization/Subscription Utilites (ASU) v1.0.",!
21 ; Evaluate whether patch to ORU1 has been applied
22 I $T(PATIENT^ORU1)'[",ORPGSUPP" D Q
23 . S XPDQUIT=2
24 . W !,"You must first install patch OR*2.5*51.",!
25 ; Evaluate whether patch to XQOR has been applied
26 I +$$PATCH^XPDUTL("XU*8.0*56")'>0 D Q
27 . S XPDQUIT=2
28 . W !,"You must first install patch XU*8.0*56.",!
29 I +$G(^DD(409.61,0,"VR"))'<1,$L($T(^VALM1)) D Q
30 . W "Everything looks fine!",!
31 W "You MUST first install the MAS v5.3 and VA ListManager v1.0 (VALM* w/INITS)...",!!
32 W "Text Integration Utilities Initialization aborted.",!!
33 S XPDQUIT=2
34 Q
35READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN) ; Calls reader, returns response
36 N DIR,X,Y
37 S DIR(0)=TYPE
38 I $D(SCREEN) S DIR("S")=SCREEN
39 I $G(PROMPT)]"" S DIR("A")=PROMPT
40 I $D(DEFAULT) S DIR("B")=DEFAULT
41 I $D(HELP) S DIR("?")=HELP
42 D ^DIR
43 I $G(X)="@" S Y="@" G READX
44 I Y]"",($L($G(Y),U)'=2) S Y=Y_U_$G(Y(0),Y)
45READX Q Y
Note: See TracBrowser for help on using the repository browser.