|
Last change
on this file since 841 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
761 bytes
|
| Line | |
|---|
| 1 | IBQYPRE ;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 | ;
|
|---|
| 13 | DUZ ; 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 | ;
|
|---|
| 18 | ENV ; 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.
