SDOQMPEN.m

SDOQMPEN ;ALB/SCK - Environment checked for the PM Extract ; 08/02/96

 ;;5.3;Scheduling;**47,1015**;AUG 13, 1993;Build 21

 ;

EN ;  Entry point

 W !!,">>> Beginning the environment check",!!

 D CHKDUZ

 W !!,">>> Environment check completed.",!!

 Q

 ;

CHKDUZ ;

 N X

 ;

 W !!,"Checking for valid user..."

 ; 

 I +$G(DUZ)'>0 D  Q

 . S XPDABORT=1

 . W !!,"   User's DUZ is not defined, Please ensure you are logged on"

 . W !,"   correctly, and try again."

 ;

 S X=$O(^VA(200,+$G(DUZ),0))

 I X']""!($G(DUZ(0))'="@") D  Q

 . W !!,"  Installation requires that your DUZ be defined as an active user"

 . W !,"  and that your DUZ(0) be set for programmer access."

 . S XPDABORT=1

 Q

SDOQMPEN  ;ALB/SCK - Environment checked for the PM Extract ; 08/02/96

 +1       ;;5.3;Scheduling;**47,1015**;AUG 13, 1993;Build 21

 +2       ;

EN        ;  Entry point

 +1        WRITE !!,">>> Beginning the environment check",!!

 +2        DO CHKDUZ

 +3        WRITE !!,">>> Environment check completed.",!!

 +4        QUIT 

 +5       ;

CHKDUZ    ;

 +1        NEW X

 +2       ;

 +3        WRITE !!,"Checking for valid user..."

 +4       ; 

 +5        IF +$GET(DUZ)'>0

               Begin DoDot:1

 +6                SET XPDABORT=1

 +7                WRITE !!,"   User's DUZ is not defined, Please ensure you are logged on"

 +8                WRITE !,"   correctly, and try again."

               End DoDot:1

               QUIT 

 +9       ;

 +10       SET X=$ORDER(^VA(200,+$GET(DUZ),0))

 +11       IF X']""!($GET(DUZ(0))'="@")

               Begin DoDot:1

 +12               WRITE !!,"  Installation requires that your DUZ be defined as an active user"

 +13               WRITE !,"  and that your DUZ(0) be set for programmer access."

 +14               SET XPDABORT=1

               End DoDot:1

               QUIT 

 +15       QUIT