DVB4P66E ;ALB/RC - DISABILITY FILE UPDATE - Environment Check ; 11/1/10 5:28pm
;;4.0;HINQ;**66**;03/25/92;Build 14
;Checks environment to make sure that it is ok to install patch
W !,"Running Environment Check."
ENV ;Check programmer variables
I ($G(DUZ))&($G(DUZ(0))="@")&($G(DT))&($G(U)="^") D Q
.W !,"Environment Check completed successfully.",!
W !!,"Your programming variables are not set up properly.",!
I '$G(DUZ) W !,"DUZ is not set properly."
I $G(DUZ(0))'="@" W !,"DUZ(0) is not set to @."
I '$G(DT) W !,"DT is not set."
I $G(U)'="^" W !,"U is not set properly."
W !!,"Installation aborted.",!
S XPDABORT="2"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVB4P66E 651 printed Dec 13, 2024@01:57:52 Page 2
DVB4P66E ;ALB/RC - DISABILITY FILE UPDATE - Environment Check ; 11/1/10 5:28pm
+1 ;;4.0;HINQ;**66**;03/25/92;Build 14
+2 ;Checks environment to make sure that it is ok to install patch
+3 WRITE !,"Running Environment Check."
ENV ;Check programmer variables
+1 IF ($GET(DUZ))&($GET(DUZ(0))="@")&($GET(DT))&($GET(U)="^")
Begin DoDot:1
+2 WRITE !,"Environment Check completed successfully.",!
End DoDot:1
QUIT
+3 WRITE !!,"Your programming variables are not set up properly.",!
+4 IF '$GET(DUZ)
WRITE !,"DUZ is not set properly."
+5 IF $GET(DUZ(0))'="@"
WRITE !,"DUZ(0) is not set to @."
+6 IF '$GET(DT)
WRITE !,"DT is not set."
+7 IF $GET(U)'="^"
WRITE !,"U is not set properly."
+8 WRITE !!,"Installation aborted.",!
+9 SET XPDABORT="2"
+10 QUIT
