|
Last change
on this file since 677 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.
