- 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 Mar 13, 2025@21:03:43 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
