Routine: USRPRE

USRPRE ; SLC/JER - Pre-init routine ;4/8/93  10:15

 ;;1.0;AUTHORIZATION/SUBSCRIPTION;;Jun 20, 1997

MAIN ; Controls branching

 W !,"** CHECKING DHCP ENVIRONMENT **",!!

 I +$G(DUZ)'>0!($G(DUZ(0))'="@") D  Q

 . S XPDQUIT=2

 . W !,"You must first initialize Programmer Environment by running ^XUP",!

 I $L($T(^VALM1)) D  Q

 . W "Everything looks fine!",!

 W "You MUST first install the MAS v5.3 and VA ListManager v1.0 (VALM* w/INITS)...",!!

 W "Authorization/Subscription Utilities Installation ABORTED.",!!

 S XPDQUIT=2

USRPRE    ; SLC/JER - Pre-init routine ;4/8/93  10:15

 +1       ;;1.0;AUTHORIZATION/SUBSCRIPTION;;Jun 20, 1997

MAIN      ; Controls branching

 +1        WRITE !,"** CHECKING DHCP ENVIRONMENT **",!!

 +2        IF +$GET(DUZ)'>0!($GET(DUZ(0))'="@")

               Begin DoDot:1

 +3                SET XPDQUIT=2

 +4                WRITE !,"You must first initialize Programmer Environment by running ^XUP",!

               End DoDot:1

               QUIT

 +5        IF $LENGTH($TEXT(^VALM1))

               Begin DoDot:1

 +6                WRITE "Everything looks fine!",!

               End DoDot:1

               QUIT

 +7        WRITE "You MUST first install the MAS v5.3 and VA ListManager v1.0 (VALM* w/INITS)...",!!

 +8        WRITE "Authorization/Subscription Utilities Installation ABORTED.",!!

 +9        SET XPDQUIT=2

 +10       QUIT

USRPRE.m