source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDOQMPEN.m@ 1078

Last change on this file since 1078 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 660 bytes
Line 
1SDOQMPEN ;ALB/SCK - Environment checked for the PM Extract ; 08/02/96
2 ;;5.3;Scheduling;**47**;AUG 13, 1993
3 ;
4EN ; Entry point
5 W !!,">>> Beginning the environment check",!!
6 D CHKDUZ
7 W !!,">>> Environment check completed.",!!
8 Q
9 ;
10CHKDUZ ;
11 N X
12 ;
13 W !!,"Checking for valid user..."
14 ;
15 I +$G(DUZ)'>0 D Q
16 . S XPDABORT=1
17 . W !!," User's DUZ is not defined, Please ensure you are logged on"
18 . W !," correctly, and try again."
19 ;
20 S X=$O(^VA(200,+$G(DUZ),0))
21 I X']""!($G(DUZ(0))'="@") D Q
22 . W !!," Installation requires that your DUZ be defined as an active user"
23 . W !," and that your DUZ(0) be set for programmer access."
24 . S XPDABORT=1
25 Q
Note: See TracBrowser for help on using the repository browser.