Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: TIUENV

TIUENV.m

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