HLOP147.m

HLOP147 ;ALB/CJM-Pre & Post install ;01/12/2010

 ;;1.6;HEALTH LEVEL SEVEN;**147**;Oct 13, 1995;Build 15

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

 ;

PRE ;

 ;

 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 ---HLOP147   492     printed  Dec 13, 2024@01:58:51                                                                                                                                                                                                      Page 2

HLOP147   ;ALB/CJM-Pre & Post install ;01/12/2010

 +1       ;;1.6;HEALTH LEVEL SEVEN;**147**;Oct 13, 1995;Build 15

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

 +3       ;

PRE       ;

 +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