HLOP139 ;ALB/CJM-Pre & Post install ;10/27/2008
;;1.6;HEALTH LEVEL SEVEN;**139**;Oct 13, 1995;Build 11
;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
;
POST ;
N PROC,IEN
F PROC="CLIENT MESSAGE UPDATES","SET SEARCH X-REF" D
.S IEN=$O(^HLD(779.3,"B",PROC,0)) Q:'IEN I $P(^HLD(779.3,IEN,0),"^",3)<1 S $P(^HLD(779.3,IEN,0),"^",3)=1 W !,"CHANGED:",PROC
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLOP139 704 printed Dec 13, 2024@01:58:48 Page 2
HLOP139 ;ALB/CJM-Pre & Post install ;10/27/2008
+1 ;;1.6;HEALTH LEVEL SEVEN;**139**;Oct 13, 1995;Build 11
+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
+4 ;
POST ;
+1 NEW PROC,IEN
+2 FOR PROC="CLIENT MESSAGE UPDATES","SET SEARCH X-REF"
Begin DoDot:1
+3 SET IEN=$ORDER(^HLD(779.3,"B",PROC,0))
if 'IEN
QUIT
IF $PIECE(^HLD(779.3,IEN,0),"^",3)<1
SET $PIECE(^HLD(779.3,IEN,0),"^",3)=1
WRITE !,"CHANGED:",PROC
End DoDot:1
+4 QUIT
