DVB4P66E.m

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 ---DVB4P66E   651     printed  Mar 13, 2025@21:02:33                                                                                                                                                                                                     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