source: WorldVistAEHR/trunk/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGMSENV.m@ 724

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1RGMSENV ;B'HAM/PTD-CIRN MESSAGING SUPPORT build environment check routine ;4/6/99
2 ;;1.0; CLINICAL INFO RESOURCE NETWORK ;;30 Apr 99
3 ;If this is a production account, ensure that HL*1.6*39 is installed.
4 Q:XPDENV=1 ;do not run environment check at install time
5 ;run environment check only during Load a Distribution
6 ;Determine if this is a production account. If NOT, quit.
7DIR K DIR S DIR(0)="SAM^P:Production;T:Test;"
8 S DIR("A",1)="Identify this account as 'Production' or 'Test'."
9 S DIR("A")="This installation is taking place in which account? "
10 S DIR("B")="TEST"
11 S DIR("?")="Enter 'P' for Production or 'T' for Test"
12 S DIR("??")="^D HLP^RGMSENV"
13 D ^DIR G:$D(DIRUT) ABORT S RGANS=Y
14 I RGANS="T" G END
15 ;For production account, check for patch HL*1.6*39.
16 S RGPCH=$$PATCH^XPDUTL("HL*1.6*39") I RGPCH=1 G END
17 ;
18ABORT ;Patch HL*1.6*39 missing; abort install; leave transport global.
19 W !!,"You must have patch HL*1.6*39 installed."
20 S XPDQUIT=2
21 ;
22END I '$D(XPDQUIT) W !!,"Environment check is ok.",!
23 K DIR,DIRUT,DTOUT,DUOUT,RGANS,RGPCH,X,Y
24 Q
25 ;
26HLP ;Help text.
27 W !!,"Enter 'P' if this installation is taking place in your"
28 W !,"PRODUCTION account. This will require patch HL*1.6*39."
29 W !,"Enter 'T' if this installation is taking place in your"
30 W !,"TEST account. HL*1.6*39 should NOT be installed in any"
31 W !,"test account.",!
32 Q
33 ;
Note: See TracBrowser for help on using the repository browser.