source: WorldVistAEHR/trunk/r/UTILIZATION_MGMT_ROLLUP_LOCAL-IBQ/IBQYPRE.m@ 1006

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

initial load of WorldVistAEHR

File size: 761 bytes
Line 
1IBQYPRE ;ALB/CPM - ENVIRONMENT CHECK FOR PATCH IBQ*1*1 ; 04-DEC-95
2 ;;1.0;UTILIZATION MGMT ROLLUP LOCAL;**1**;Oct 01, 1995
3 ;
4 D NOW^%DTC S IBQBDT=$H,Y=%
5 W !!,"Initialization Started: " D DT^DIQ W !!
6 ;
7 D DUZ,ENV:$D(DIFQ)
8 ;
9 I '$D(DIFQ) W !!,"PATCH IBQ*1*1 INITIALIZATION ABORTED..." K IBQBDT
10 Q
11 ;
12 ;
13DUZ ; Check to see if a valid user is defined and that DUZ(0)="@"
14 N X S X=$O(^VA(200,+$G(DUZ),0))
15 I X']""!($G(DUZ(0))'="@") W !!?3,"The variable DUZ must be set to a valid entry in the NEW PERSON file",!?3,"and the variable DUZ(0) must equal ""@"" before you continue!" K DIFQ
16 Q
17 ;
18ENV ; Make sure UM Rollup v1.0 is installed.
19 N X
20 S X="IBQLLD" X ^%ZOSF("TEST") E K DIFQ W !?3,"You must install the QM Rollup package before installing this patch!"
21 Q
Note: See TracBrowser for help on using the repository browser.