Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
960 bytes
|
Line | |
---|
1 | IBQLPRE ;LEB/MRY - PRE INSTALL INIT ; 7-JUL-95
|
---|
2 | ;;1.0;UTILIZATION MGMT ROLLUP LOCAL;;Oct 01, 1995
|
---|
3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
4 | ;
|
---|
5 | ;Check DUZ and DUZ(0)
|
---|
6 | I $S('($D(DUZ)#2):1,'($D(DUZ(0))#2):1,'DUZ:1,1:0) W *7,!!,"*** DUZ and DUZ(0) must be defined as a valid user to initialize. ***",!! K DIFQ Q
|
---|
7 | I DUZ(0)'="@" W *7,!!,"You must have programmer access (DUZ(0)='@') before running IBQLINIT.",!! K DIFQ Q
|
---|
8 | ;
|
---|
9 | ;Check for version of Integrated Billing. If IB is installed, must be version 2.0.
|
---|
10 | S X=+$$VERSION^XPDUTL("IB") I X<2 D Q
|
---|
11 | .W *7,!,"You must have Integrated Billing Version 2.0 installed prior to installing Utilization Management Rollup version 1.0T.",! K DIFQ
|
---|
12 | ;
|
---|
13 | ;Check for version of Mailman, If XM is installed, must be version 7.1.
|
---|
14 | S X=+$$VERSION^XPDUTL("XM") I X<7.1 D
|
---|
15 | .W *7,!,"You must have Mailman Version 7.1 installed prior to installing Utilization Management Rollup version 1.0T.",! K DIFQ
|
---|
16 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.