source: FOIAVistA/trunk/r/UTILIZATION_MGMT_ROLLUP_LOCAL-IBQ/IBQLPRE.m@ 1423

Last change on this file since 1423 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 960 bytes
Line 
1IBQLPRE ;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.