HLOPRE.m

HLOPRE ;ALB/CJM-Pre-install check for HLO patches ;07/17/2007

 ;;1.6;HEALTH LEVEL SEVEN;**134,136,137,138**;Oct 13, 1995;Build 34

 ;Per VHA Directive 2004-038, this routine should not be modified.

 ;

CHECK ;

 ;

 N WORK

 L +^HLTMP("PROCESS MANAGER"):0

 I '$T D ABORT Q

 D CHKDEAD^HLOPROC1(.WORK)

 I $O(^HLTMP("HL7 RUNNING PROCESSES",""))'="" D ABORT

 L -^HLTMP("PROCESS MANAGER")

 Q

ABORT ;

 S XPDABORT=1

 D BMES^XPDUTL("HLO processes are still running and prevent this installation from completing")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---HLOPRE   520     printed  Mar 13, 2025@21:03:50                                                                                                                                                                                                       Page 2

HLOPRE    ;ALB/CJM-Pre-install check for HLO patches ;07/17/2007

 +1       ;;1.6;HEALTH LEVEL SEVEN;**134,136,137,138**;Oct 13, 1995;Build 34

 +2       ;Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;

CHECK     ;

 +1       ;

 +2        NEW WORK

 +3        LOCK +^HLTMP("PROCESS MANAGER"):0

 +4        IF '$TEST

               DO ABORT

               QUIT 

 +5        DO CHKDEAD^HLOPROC1(.WORK)

 +6        IF $ORDER(^HLTMP("HL7 RUNNING PROCESSES",""))'=""

               DO ABORT

 +7        LOCK -^HLTMP("PROCESS MANAGER")

 +8        QUIT 

ABORT     ;

 +1        SET XPDABORT=1

 +2        DO BMES^XPDUTL("HLO processes are still running and prevent this installation from completing")

 +3        QUIT