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

XUINENV.m

Go to the documentation of this file.
  1. XUINENV ;ISCSF/RWF - KERNEL ENVIRONMENT CHECK ROUTINE ;09/15/97 15:59
  1. ;;8.0;KERNEL;**59**;Jul 10, 1995
  1. Q:'$D(XPDNM) ;Check that in a KIDS install.
  1. I XPDNM["XU*8.0*59" G ENV59
  1. Q
  1. ;
  1. ENV59 ;Patch XU*8.0*59
  1. I $D(^DIC(8994,0))[0 D Q
  1. . S XPDQUIT=2 D BMES^XPDUTL("BROKER 1.1 must be installed first to load the REMOTE PROCEDURE file.")
  1. D BMES^XPDUTL("Environment OK")
  1. Q
  1. POST59 ;Do the post install work for patch 59
  1. Q:$G(^XTV(8989.3,1,0))=""
  1. I $P($G(^XTV(8989.3,1,"XUS")),U,18)="" S $P(^("XUS"),U,18)="d"
  1. Q