SDOQMPEN ;ALB/SCK - Environment checked for the PM Extract ; 08/02/96
;;5.3;Scheduling;**47**;AUG 13, 1993
;
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDOQMPEN 685 printed Nov 22, 2024@18:09:09 Page 2
SDOQMPEN ;ALB/SCK - Environment checked for the PM Extract ; 08/02/96
+1 ;;5.3;Scheduling;**47**;AUG 13, 1993
+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
