TIUENV ; SLC/JER - Environment check routine ;2/17/95 11:14
;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
;IHS/ITSC/LJF 7/10/2003 removed check for OR v2.5 patch 51
; modified routine TIURC1 to use older software
;
MAIN ; Controls branching
W !,"** CHECKING DHCP ENVIRONMENT **",!!
I +$G(DUZ)'>0!($G(DUZ(0))'="@") D Q
. S XPDQUIT=2
. W !,"You must first initialize Programmer Environment by running ^XUP",!
I $S('$D(^AUPNPAT):1,'$L($T(PXXDPT^PXXDPT)):1,1:0) D Q
. S XPDQUIT=2
. W !,"You must first install the IHS Patient File.",!
I $S('$D(^AUPNVSIT):1,'$L($T(VSIT^VSIT)):1,1:0) D Q
. S XPDQUIT=2
. W !,"You must first install Visit Tracking.",!
I $$VERSION^XPDUTL("VSIT")'="2.0" D Q
. S XPDQUIT=2
. W !,"You must first install PCE v1.0 & Visit Tracking v2.0.",!
; Evaluate whether ASU v1.0 has been installed
I $$VERSION^XPDUTL("USR")'="1.0" D Q
. S XPDQUIT=2
. W !,"You must first install Authorization/Subscription Utilites (ASU) v1.0.",!
; Evaluate whether patch to ORU1 has been applied
;I $T(PATIENT^ORU1)'[",ORPGSUPP" D Q ;IHS/ITSC/LJF 7/10/2003
;. S XPDQUIT=2 ;IHS/ITSC/LJF 7/10/2003
;. W !,"You must first install patch OR*2.5*51.",! ;IHS/ITSC/LJF 7/10/2003
; Evaluate whether patch to XQOR has been applied
I +$$PATCH^XPDUTL("XU*8.0*56")'>0 D Q
. S XPDQUIT=2
. W !,"You must first install patch XU*8.0*56.",!
I +$G(^DD(409.61,0,"VR"))'<1,$L($T(^VALM1)) D Q
. W "Everything looks fine!",!
W "You MUST first install the MAS v5.3 and VA ListManager v1.0 (VALM* w/INITS)...",!!
W "Text Integration Utilities Initialization aborted.",!!
S XPDQUIT=2
Q
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN) ; Calls reader, returns response
N DIR,X,Y
S DIR(0)=TYPE
I $D(SCREEN) S DIR("S")=SCREEN
I $G(PROMPT)]"" S DIR("A")=PROMPT
I $D(DEFAULT) S DIR("B")=DEFAULT
I $D(HELP) S DIR("?")=HELP
D ^DIR
I $G(X)="@" S Y="@" G READX
I Y]"",($L($G(Y),U)'=2) S Y=Y_U_$G(Y(0),Y)
READX Q Y
TIUENV ; SLC/JER - Environment check routine ;2/17/95 11:14
+1 ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
+2 ;IHS/ITSC/LJF 7/10/2003 removed check for OR v2.5 patch 51
+3 ; modified routine TIURC1 to use older software
+4 ;
MAIN ; Controls branching
+1 WRITE !,"** CHECKING DHCP ENVIRONMENT **",!!
+2 IF +$GET(DUZ)'>0!($GET(DUZ(0))'="@")
Begin DoDot:1
+3 SET XPDQUIT=2
+4 WRITE !,"You must first initialize Programmer Environment by running ^XUP",!
End DoDot:1
QUIT
+5 IF $SELECT('$DATA(^AUPNPAT):1,'$LENGTH($TEXT(PXXDPT^PXXDPT)):1,1:0)
Begin DoDot:1
+6 SET XPDQUIT=2
+7 WRITE !,"You must first install the IHS Patient File.",!
End DoDot:1
QUIT
+8 IF $SELECT('$DATA(^AUPNVSIT):1,'$LENGTH($TEXT(VSIT^VSIT)):1,1:0)
Begin DoDot:1
+9 SET XPDQUIT=2
+10 WRITE !,"You must first install Visit Tracking.",!
End DoDot:1
QUIT
+11 IF $$VERSION^XPDUTL("VSIT")'="2.0"
Begin DoDot:1
+12 SET XPDQUIT=2
+13 WRITE !,"You must first install PCE v1.0 & Visit Tracking v2.0.",!
End DoDot:1
QUIT
+14 ; Evaluate whether ASU v1.0 has been installed
+15 IF $$VERSION^XPDUTL("USR")'="1.0"
Begin DoDot:1
+16 SET XPDQUIT=2
+17 WRITE !,"You must first install Authorization/Subscription Utilites (ASU) v1.0.",!
End DoDot:1
QUIT
+18 ; Evaluate whether patch to ORU1 has been applied
+19 ;I $T(PATIENT^ORU1)'[",ORPGSUPP" D Q ;IHS/ITSC/LJF 7/10/2003
+20 ;. S XPDQUIT=2 ;IHS/ITSC/LJF 7/10/2003
+21 ;. W !,"You must first install patch OR*2.5*51.",! ;IHS/ITSC/LJF 7/10/2003
+22 ; Evaluate whether patch to XQOR has been applied
+23 IF +$$PATCH^XPDUTL("XU*8.0*56")'>0
Begin DoDot:1
+24 SET XPDQUIT=2
+25 WRITE !,"You must first install patch XU*8.0*56.",!
End DoDot:1
QUIT
+26 IF +$GET(^DD(409.61,0,"VR"))'<1
IF $LENGTH($TEXT(^VALM1))
Begin DoDot:1
+27 WRITE "Everything looks fine!",!
End DoDot:1
QUIT
+28 WRITE "You MUST first install the MAS v5.3 and VA ListManager v1.0 (VALM* w/INITS)...",!!
+29 WRITE "Text Integration Utilities Initialization aborted.",!!
+30 SET XPDQUIT=2
+31 QUIT
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN) ; Calls reader, returns response
+1 NEW DIR,X,Y
+2 SET DIR(0)=TYPE
+3 IF $DATA(SCREEN)
SET DIR("S")=SCREEN
+4 IF $GET(PROMPT)]""
SET DIR("A")=PROMPT
+5 IF $DATA(DEFAULT)
SET DIR("B")=DEFAULT
+6 IF $DATA(HELP)
SET DIR("?")=HELP
+7 DO ^DIR
+8 IF $GET(X)="@"
SET Y="@"
GOTO READX
+9 IF Y]""
IF ($LENGTH($GET(Y),U)'=2)
SET Y=Y_U_$GET(Y(0),Y)
READX QUIT Y
