HLP109EN ;OIFO-O/RJH - HL*1.6*109 ENVIRONMENTT CHECK ROUTINE ;12/11/2003
;;1.6;HEALTH LEVEL SEVEN;**109**;OCT 13, 1995
;
EN ; Check environment...
N ACTION
;
; If no AC,I xrefs...
I $O(^HLMA("AC","I",0))'>0 D QUIT ;->
. W !!,"Environment check OK..."
. W !
;
; AC,I xrefs exist. So, if loading, just warn. Otherwise, stop!
;
; Set ACTION=1 if loading, and ACTION=2 if installing...
S ACTION=$$UP^XLFSTR($G(XQY0)),ACTION=$S(ACTION["LOAD":1,1:2)
;
S X="IOINHI;IOINORM" D ENDR^%ZISS
S X=$$REPEAT^XLFSTR("=",35) W !!,X," ",IOINHI,"Warning",IOINORM," ",X
D @("INFORM"_ACTION)
;
I ACTION=2 S XPDABORT=2 ; Stop, but don't unload...
;
W !
S X=$$BTE("Press RETURN to "_$S(ACTION=1:"continue",1:"exit")_"...")
;
Q
;
BTE(PMT) ;
N DIR,DIRUT,DTOUT,DUOUT,X,Y
S DIR(0)="EA",DIR("A")=PMT
D ^DIR
Q $S(+Y=1:1,1:"")
;
INFORM1 ; General information when AC,Is exist and LOADing...
W !,"There are inbound queues with un-processed messages. Before patch HL*1.6*109"
W !,"can be installed, the inbound queues must be empty. You may continue loading"
W !,"these patches. But, remember to clear the inbound queues before loading."
W !!,"(To clear the queues, start one or more incoming filer(s) to process the"
W !,"messages until there are no messages in the queue.)"
Q
;
INFORM2 ; General information when AC,Is exist and INSTALLing...
W !,"There are inbound queues with un-processed messages. Before patch HL*1.6*109"
W !,"can be installed, the inbound queues must be empty. Start one or more"
W !,"incoming filer(s) to process the messages until there are no messages in the"
W !,"queue. Then, try to install patch HL*1.6*109 again."
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLP109EN 1721 printed Dec 13, 2024@01:59:27 Page 2
HLP109EN ;OIFO-O/RJH - HL*1.6*109 ENVIRONMENTT CHECK ROUTINE ;12/11/2003
+1 ;;1.6;HEALTH LEVEL SEVEN;**109**;OCT 13, 1995
+2 ;
EN ; Check environment...
+1 NEW ACTION
+2 ;
+3 ; If no AC,I xrefs...
+4 ;->
IF $ORDER(^HLMA("AC","I",0))'>0
Begin DoDot:1
+5 WRITE !!,"Environment check OK..."
+6 WRITE !
End DoDot:1
QUIT
+7 ;
+8 ; AC,I xrefs exist. So, if loading, just warn. Otherwise, stop!
+9 ;
+10 ; Set ACTION=1 if loading, and ACTION=2 if installing...
+11 SET ACTION=$$UP^XLFSTR($GET(XQY0))
SET ACTION=$SELECT(ACTION["LOAD":1,1:2)
+12 ;
+13 SET X="IOINHI;IOINORM"
DO ENDR^%ZISS
+14 SET X=$$REPEAT^XLFSTR("=",35)
WRITE !!,X," ",IOINHI,"Warning",IOINORM," ",X
+15 DO @("INFORM"_ACTION)
+16 ;
+17 ; Stop, but don't unload...
IF ACTION=2
SET XPDABORT=2
+18 ;
+19 WRITE !
+20 SET X=$$BTE("Press RETURN to "_$SELECT(ACTION=1:"continue",1:"exit")_"...")
+21 ;
+22 QUIT
+23 ;
BTE(PMT) ;
+1 NEW DIR,DIRUT,DTOUT,DUOUT,X,Y
+2 SET DIR(0)="EA"
SET DIR("A")=PMT
+3 DO ^DIR
+4 QUIT $SELECT(+Y=1:1,1:"")
+5 ;
INFORM1 ; General information when AC,Is exist and LOADing...
+1 WRITE !,"There are inbound queues with un-processed messages. Before patch HL*1.6*109"
+2 WRITE !,"can be installed, the inbound queues must be empty. You may continue loading"
+3 WRITE !,"these patches. But, remember to clear the inbound queues before loading."
+4 WRITE !!,"(To clear the queues, start one or more incoming filer(s) to process the"
+5 WRITE !,"messages until there are no messages in the queue.)"
+6 QUIT
+7 ;
INFORM2 ; General information when AC,Is exist and INSTALLing...
+1 WRITE !,"There are inbound queues with un-processed messages. Before patch HL*1.6*109"
+2 WRITE !,"can be installed, the inbound queues must be empty. Start one or more"
+3 WRITE !,"incoming filer(s) to process the messages until there are no messages in the"
+4 WRITE !,"queue. Then, try to install patch HL*1.6*109 again."
+5 QUIT
+6 ;
