- 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 Feb 18, 2025@23:25:51 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 ;