| [613] | 1 | TIUENV ; SLC/JER - Environment check routine ;2/17/95 11:14
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
|
|---|
| 3 | MAIN ; 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
|
|---|
| 35 | READ(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)
|
|---|
| 45 | READX Q Y
|
|---|
