Routine: HLOP139

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")

ABORT ;

 S XPDABORT=1

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

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLOP139   704     printed  Apr 23, 2025@18:13:17                                                                                                                                                                                                      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

HLOP139.m