|
Last change
on this file since 990 was 628, checked in by George Lilly, 16 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
