- 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 ---[H[J[2J[HXUINENV 530 printed Jan 18, 2025@03:10:53 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