ORY423E ;WAT/ISP env check for OR*3.0*423; ;06/29/16 06:17
;;3.0;ORDER ENTRY/RESULTS REPORTING;**423**;Dec 17, 1997;Build 19
N DIR,ORCONT
S ORCONT=0
S DIR("A")="Continue"
S DIR("A",1)="GMRCOR CONSULT in ORDER DIALOG (#101.41) will be overwritten."
S DIR("?")="Please refer to the OR*3.0*423 patch description for details."
S DIR("?",1)="GMRCOR CONSULT is being updated by this patch. The target system may have"
S DIR("?",2)="local modifications to GMRCOR CONSULT. Installers should coordinate with"
S DIR("?",3)="site personnel to ensure any local modifications have been backed up."
S DIR("?",4)=""
S ORCONT=$$QUES(.DIR)
I $G(ORCONT)=0 D Q
. W !!,"OK - You have opted to abort the installation.",!
. W !,"Transport global will be unloaded.",!
. W !,"Please reload the distribution when you are ready.",!! H 3
. S XPDABORT=1
W !!,"Environment check complete. Install will proceed.",! H 2
Q
QUES(DIR) ;
;ASK A QUESTION
Q:$G(DIR("A"))=""
N DIRUT,Y
F D Q:$D(Y)
.N X,DTOUT,DUOUT,DIROUT
.S DIR(0)="Y"_U,DIR("B")="NO"
.D ^DIR
.I $D(DIRUT) W !,"A response is required.",! K Y
Q $G(Y)
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY423E 1142 printed Sep 23, 2025@20:18:24 Page 2
ORY423E ;WAT/ISP env check for OR*3.0*423; ;06/29/16 06:17
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**423**;Dec 17, 1997;Build 19
+2 NEW DIR,ORCONT
+3 SET ORCONT=0
+4 SET DIR("A")="Continue"
+5 SET DIR("A",1)="GMRCOR CONSULT in ORDER DIALOG (#101.41) will be overwritten."
+6 SET DIR("?")="Please refer to the OR*3.0*423 patch description for details."
+7 SET DIR("?",1)="GMRCOR CONSULT is being updated by this patch. The target system may have"
+8 SET DIR("?",2)="local modifications to GMRCOR CONSULT. Installers should coordinate with"
+9 SET DIR("?",3)="site personnel to ensure any local modifications have been backed up."
+10 SET DIR("?",4)=""
+11 SET ORCONT=$$QUES(.DIR)
+12 IF $GET(ORCONT)=0
Begin DoDot:1
+13 WRITE !!,"OK - You have opted to abort the installation.",!
+14 WRITE !,"Transport global will be unloaded.",!
+15 WRITE !,"Please reload the distribution when you are ready.",!!
HANG 3
+16 SET XPDABORT=1
End DoDot:1
QUIT
+17 WRITE !!,"Environment check complete. Install will proceed.",!
HANG 2
+18 QUIT
QUES(DIR) ;
+1 ;ASK A QUESTION
+2 if $GET(DIR("A"))=""
QUIT
+3 NEW DIRUT,Y
+4 FOR
Begin DoDot:1
+5 NEW X,DTOUT,DUOUT,DIROUT
+6 SET DIR(0)="Y"_U
SET DIR("B")="NO"
+7 DO ^DIR
+8 IF $DATA(DIRUT)
WRITE !,"A response is required.",!
KILL Y
End DoDot:1
if $DATA(Y)
QUIT
+9 QUIT $GET(Y)
+10 ;
