IBQLPRE ;LEB/MRY - PRE INSTALL INIT ; 7-JUL-95
;;1.0;UTILIZATION MGMT ROLLUP LOCAL;;Oct 01, 1995
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
;Check DUZ and DUZ(0)
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
I DUZ(0)'="@" W *7,!!,"You must have programmer access (DUZ(0)='@') before running IBQLINIT.",!! K DIFQ Q
;
;Check for version of Integrated Billing. If IB is installed, must be version 2.0.
S X=+$$VERSION^XPDUTL("IB") I X<2 D Q
.W *7,!,"You must have Integrated Billing Version 2.0 installed prior to installing Utilization Management Rollup version 1.0T.",! K DIFQ
;
;Check for version of Mailman, If XM is installed, must be version 7.1.
S X=+$$VERSION^XPDUTL("XM") I X<7.1 D
.W *7,!,"You must have Mailman Version 7.1 installed prior to installing Utilization Management Rollup version 1.0T.",! K DIFQ
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBQLPRE 976 printed Nov 22, 2024@17:51:20 Page 2
IBQLPRE ;LEB/MRY - PRE INSTALL INIT ; 7-JUL-95
+1 ;;1.0;UTILIZATION MGMT ROLLUP LOCAL;;Oct 01, 1995
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
+4 ;Check DUZ and DUZ(0)
+5 IF $SELECT('($DATA(DUZ)#2):1,'($DATA(DUZ(0))#2):1,'DUZ:1,1:0)
WRITE *7,!!,"*** DUZ and DUZ(0) must be defined as a valid user to initialize. ***",!!
KILL DIFQ
QUIT
+6 IF DUZ(0)'="@"
WRITE *7,!!,"You must have programmer access (DUZ(0)='@') before running IBQLINIT.",!!
KILL DIFQ
QUIT
+7 ;
+8 ;Check for version of Integrated Billing. If IB is installed, must be version 2.0.
+9 SET X=+$$VERSION^XPDUTL("IB")
IF X<2
Begin DoDot:1
+10 WRITE *7,!,"You must have Integrated Billing Version 2.0 installed prior to installing Utilization Management Rollup version 1.0T.",!
KILL DIFQ
End DoDot:1
QUIT
+11 ;
+12 ;Check for version of Mailman, If XM is installed, must be version 7.1.
+13 SET X=+$$VERSION^XPDUTL("XM")
IF X<7.1
Begin DoDot:1
+14 WRITE *7,!,"You must have Mailman Version 7.1 installed prior to installing Utilization Management Rollup version 1.0T.",!
KILL DIFQ
End DoDot:1
+15 QUIT
