HLOP146 ;ALB/CJM-Pre & Post install ;06/04/2009
;;1.6;HEALTH LEVEL SEVEN;**146**;Oct 13, 1995;Build 16
;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 ;post-install
N OPTION
F OPTION="HLO OUTBOUND DELETE","HLO SEQUENCE DELETE" D DELSYN(OPTION)
Q
DELSYN(OPTION) ;delete options QD synonym
S DA(1)=$O(^ORD(101,"B",OPTION,0))
Q:'DA(1)
S DA=$O(^ORD(101,DA(1),2,"B","QD",0))
Q:'DA
I $$DELETE^HLOASUB1(101.02,.DA)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLOP146 776 printed Nov 22, 2024@17:08:57 Page 2
HLOP146 ;ALB/CJM-Pre & Post install ;06/04/2009
+1 ;;1.6;HEALTH LEVEL SEVEN;**146**;Oct 13, 1995;Build 16
+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
POST ;post-install
+1 NEW OPTION
+2 FOR OPTION="HLO OUTBOUND DELETE","HLO SEQUENCE DELETE"
DO DELSYN(OPTION)
+3 QUIT
DELSYN(OPTION) ;delete options QD synonym
+1 SET DA(1)=$ORDER(^ORD(101,"B",OPTION,0))
+2 if 'DA(1)
QUIT
+3 SET DA=$ORDER(^ORD(101,DA(1),2,"B","QD",0))
+4 if 'DA
QUIT
+5 IF $$DELETE^HLOASUB1(101.02,.DA)
+6 QUIT
