- 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