source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCOENA.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: 802 bytes
Line 
1ONCOENA ;WISC/MLH-ONCOLOGY INSTALL-ENVIRONMENT CHECK HELPER
2 ;;2.11;ONCOLOGY;;Mar 07, 1995
3 ;
4 ; 8/12/94 MLH ADDED this routine to bring ONCOENV into
5 ; compliance with SACC limit of 5000 bytes
6 ;
7QNORSTG ; does user want to proceed w/o restaging?
8 W !!,"No restaging will be performed.",!
9 I 'OFST D ; on non-virgin install, make sure they want to skip restaging
10 . N DIR,Y
11 . S DIR("A")="Proceed with initialization",DIR(0)="Y"
12 . S DIR("?",1)="If you enter Y here, initialization will proceed without restaging."
13 . S DIR("?",2)=" "
14 . S DIR("?",3)="If you enter N here, initialization will cease. You may D ^ONCOINIT"
15 . S DIR("?",4)="to restart initialization at any time.",DIR("?")=" "
16 . D ^DIR
17 . I 'Y K DIFQ W !!,"Initialization aborted.",!!
18 . Q
19 ;END IF
20 ;
21 Q
Note: See TracBrowser for help on using the repository browser.