XUINENV.m

XUINENV ;ISCSF/RWF - KERNEL ENVIRONMENT CHECK ROUTINE  ;09/15/97  15:59

 ;;8.0;KERNEL;**59**;Jul 10, 1995

 Q:'$D(XPDNM)  ;Check that in a KIDS install.

 I XPDNM["XU*8.0*59" G ENV59

 Q

 ;

ENV59 ;Patch XU*8.0*59

 I $D(^DIC(8994,0))[0 D  Q

 . S XPDQUIT=2 D BMES^XPDUTL("BROKER 1.1 must be installed first to load the REMOTE PROCEDURE file.")

 D BMES^XPDUTL("Environment OK")

 Q

POST59 ;Do the post install work for patch 59

 Q:$G(^XTV(8989.3,1,0))=""

 I $P($G(^XTV(8989.3,1,"XUS")),U,18)="" S $P(^("XUS"),U,18)="d"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XUINENV   530     printed  Dec 13, 2024@02:09:41                                                                                                                                                                                                      Page 2

XUINENV   ;ISCSF/RWF - KERNEL ENVIRONMENT CHECK ROUTINE  ;09/15/97  15:59

 +1       ;;8.0;KERNEL;**59**;Jul 10, 1995

 +2       ;Check that in a KIDS install.

           if '$DATA(XPDNM)

               QUIT 

 +3        IF XPDNM["XU*8.0*59"

               GOTO ENV59

 +4        QUIT 

 +5       ;

ENV59     ;Patch XU*8.0*59

 +1        IF $DATA(^DIC(8994,0))[0

               Begin DoDot:1

 +2                SET XPDQUIT=2

                   DO BMES^XPDUTL("BROKER 1.1 must be installed first to load the REMOTE PROCEDURE file.")

               End DoDot:1

               QUIT 

 +3        DO BMES^XPDUTL("Environment OK")

 +4        QUIT 

POST59    ;Do the post install work for patch 59

 +1        if $GET(^XTV(8989.3,1,0))=""

               QUIT 

 +2        IF $PIECE($GET(^XTV(8989.3,1,"XUS")),U,18)=""

               SET $PIECE(^("XUS"),U,18)="d"

 +3        QUIT