|
Last change
on this file since 1404 was 613, checked in by George Lilly, 16 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
936 bytes
|
| Line | |
|---|
| 1 | FBXIP77E ;AISC/SS - PATCH FB*3.5*77 ENVIRONMENT CHECK ;03/29/04
|
|---|
| 2 | ;;3.5;Fee Basis;**77**;JAN 30, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ENV ;
|
|---|
| 5 | ;this is the environment check pre-init routine
|
|---|
| 6 | I $$PATCH^XPDUTL("FB*3.5*42") D
|
|---|
| 7 | .N X,Y,DUOUT,DTOUT
|
|---|
| 8 | .W !,"You are a test site for a CoreFLS version (patch FB*3.5*42) of Fee Basis"
|
|---|
| 9 | .W !,"This patch has a conflict with the FB-CoreFLS test software."
|
|---|
| 10 | .W !,"It must NOT be installed unless an accompanying update is made to the"
|
|---|
| 11 | .W !,"FB-CoreFLS software immediately after installation of this patch."
|
|---|
| 12 | .W !
|
|---|
| 13 | .K DIR S DIR(0)="YA"
|
|---|
| 14 | .S DIR("A")="Do you have the corresponding update to the FB-CoreFLS software that is associated with this patch? (Note: Entering ""No"" here will stop the installation of this patch) Y/N//"
|
|---|
| 15 | .D ^DIR K DIR
|
|---|
| 16 | .I $D(DTOUT)!$D(DUOUT)!(Y'=1) W !,"Installation of this patch has been stopped!" S XPDQUIT=2 Q
|
|---|
| 17 | .W !,"OK to install!"
|
|---|
| 18 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
