source: WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLP109EN.m@ 619

Last change on this file since 619 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1HLP109EN ;OIFO-O/RJH - HL*1.6*109 ENVIRONMENTT CHECK ROUTINE ;12/11/2003
2 ;;1.6;HEALTH LEVEL SEVEN;**109**;OCT 13, 1995
3 ;
4EN ; Check environment...
5 N ACTION
6 ;
7 ; If no AC,I xrefs...
8 I $O(^HLMA("AC","I",0))'>0 D QUIT ;->
9 . W !!,"Environment check OK..."
10 . W !
11 ;
12 ; AC,I xrefs exist. So, if loading, just warn. Otherwise, stop!
13 ;
14 ; Set ACTION=1 if loading, and ACTION=2 if installing...
15 S ACTION=$$UP^XLFSTR($G(XQY0)),ACTION=$S(ACTION["LOAD":1,1:2)
16 ;
17 S X="IOINHI;IOINORM" D ENDR^%ZISS
18 S X=$$REPEAT^XLFSTR("=",35) W !!,X," ",IOINHI,"Warning",IOINORM," ",X
19 D @("INFORM"_ACTION)
20 ;
21 I ACTION=2 S XPDABORT=2 ; Stop, but don't unload...
22 ;
23 W !
24 S X=$$BTE("Press RETURN to "_$S(ACTION=1:"continue",1:"exit")_"...")
25 ;
26 Q
27 ;
28BTE(PMT) ;
29 N DIR,DIRUT,DTOUT,DUOUT,X,Y
30 S DIR(0)="EA",DIR("A")=PMT
31 D ^DIR
32 Q $S(+Y=1:1,1:"")
33 ;
34INFORM1 ; General information when AC,Is exist and LOADing...
35 W !,"There are inbound queues with un-processed messages. Before patch HL*1.6*109"
36 W !,"can be installed, the inbound queues must be empty. You may continue loading"
37 W !,"these patches. But, remember to clear the inbound queues before loading."
38 W !!,"(To clear the queues, start one or more incoming filer(s) to process the"
39 W !,"messages until there are no messages in the queue.)"
40 Q
41 ;
42INFORM2 ; General information when AC,Is exist and INSTALLing...
43 W !,"There are inbound queues with un-processed messages. Before patch HL*1.6*109"
44 W !,"can be installed, the inbound queues must be empty. Start one or more"
45 W !,"incoming filer(s) to process the messages until there are no messages in the"
46 W !,"queue. Then, try to install patch HL*1.6*109 again."
47 Q
48 ;
Note: See TracBrowser for help on using the repository browser.