Last change
on this file since 794 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
718 bytes
|
Line | |
---|
1 | IBYAPRE ;ALB/CPM - PATCH IB*2*28 ENVIRONMENT CHECK ; 25-JAN-95
|
---|
2 | ;;Version 2.0 ; INTEGRATED BILLING ;**28**; 21-MAR-94
|
---|
3 | ;
|
---|
4 | D DUZ,AR:$D(DIFQ)
|
---|
5 | Q
|
---|
6 | ;
|
---|
7 | ;
|
---|
8 | DUZ ; Check to see if a valid user is defined and that DUZ(0)="@"
|
---|
9 | N X S X=$O(^VA(200,+$G(DUZ),0)) W !
|
---|
10 | I X']""!($G(DUZ(0))'="@") D
|
---|
11 | .W !!?3,"The variable DUZ must be set to a valid entry in the NEW PERSON file"
|
---|
12 | .W !?3,"and the variable DUZ(0) must equal ""@"" before you continue!"
|
---|
13 | .K DIFQ
|
---|
14 | Q
|
---|
15 | ;
|
---|
16 | AR ; Make sure an appropriate AR patch is installed.
|
---|
17 | N X
|
---|
18 | S X="RCAMINS" X ^%ZOSF("TEST")
|
---|
19 | I '$T D
|
---|
20 | .W !!?3,"Patch PRCA*4*24 or PRCA*4.5*6 does not appear to be installed! Please"
|
---|
21 | .W !?3,"install the appropriate patch and then re-run this initialization."
|
---|
22 | .K DIFQ
|
---|
23 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.