ONCOENA ;WISC/MLH-ONCOLOGY INSTALL-ENVIRONMENT CHECK HELPER
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;
; 8/12/94 MLH ADDED this routine to bring ONCOENV into
; compliance with SACC limit of 5000 bytes
;
QNORSTG ; does user want to proceed w/o restaging?
W !!,"No restaging will be performed.",!
I 'OFST D ; on non-virgin install, make sure they want to skip restaging
. N DIR,Y
. S DIR("A")="Proceed with initialization",DIR(0)="Y"
. S DIR("?",1)="If you enter Y here, initialization will proceed without restaging."
. S DIR("?",2)=" "
. S DIR("?",3)="If you enter N here, initialization will cease. You may D ^ONCOINIT"
. S DIR("?",4)="to restart initialization at any time.",DIR("?")=" "
. D ^DIR
. I 'Y K DIFQ W !!,"Initialization aborted.",!!
. Q
;END IF
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCOENA 835 printed Nov 22, 2024@17:35 Page 2
ONCOENA ;WISC/MLH-ONCOLOGY INSTALL-ENVIRONMENT CHECK HELPER
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;
+3 ; 8/12/94 MLH ADDED this routine to bring ONCOENV into
+4 ; compliance with SACC limit of 5000 bytes
+5 ;
QNORSTG ; does user want to proceed w/o restaging?
+1 WRITE !!,"No restaging will be performed.",!
+2 ; on non-virgin install, make sure they want to skip restaging
IF 'OFST
Begin DoDot:1
+3 NEW DIR,Y
+4 SET DIR("A")="Proceed with initialization"
SET DIR(0)="Y"
+5 SET DIR("?",1)="If you enter Y here, initialization will proceed without restaging."
+6 SET DIR("?",2)=" "
+7 SET DIR("?",3)="If you enter N here, initialization will cease. You may D ^ONCOINIT"
+8 SET DIR("?",4)="to restart initialization at any time."
SET DIR("?")=" "
+9 DO ^DIR
+10 IF 'Y
KILL DIFQ
WRITE !!,"Initialization aborted.",!!
+11 QUIT
End DoDot:1
+12 ;END IF
+13 ;
+14 QUIT
