ONCOENA.m

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 ---ONCOENA   835     printed  Feb 18, 2025@23:51:27                                                                                                                                                                                                      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