| [613] | 1 | RGMSENV ;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.
|
|---|
| 7 | DIR 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 | ;
|
|---|
| 18 | ABORT ;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 | ;
|
|---|
| 22 | END I '$D(XPDQUIT) W !!,"Environment check is ok.",!
|
|---|
| 23 | K DIR,DIRUT,DTOUT,DUOUT,RGANS,RGPCH,X,Y
|
|---|
| 24 | Q
|
|---|
| 25 | ;
|
|---|
| 26 | HLP ;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 | ;
|
|---|
