source: WorldVistAEHR/trunk/r/FEE_BASIS-FB/FBXIP77E.m@ 1306

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

initial load of WorldVistAEHR

File size: 936 bytes
RevLine 
[613]1FBXIP77E ;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.
4ENV ;
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.