IBQYPRE ;ALB/CPM - ENVIRONMENT CHECK FOR PATCH IBQ*1*1 ; 04-DEC-95
;;1.0;UTILIZATION MGMT ROLLUP LOCAL;**1**;Oct 01, 1995
;
D NOW^%DTC S IBQBDT=$H,Y=%
W !!,"Initialization Started: " D DT^DIQ W !!
;
D DUZ,ENV:$D(DIFQ)
;
I '$D(DIFQ) W !!,"PATCH IBQ*1*1 INITIALIZATION ABORTED..." K IBQBDT
Q
;
;
DUZ ; Check to see if a valid user is defined and that DUZ(0)="@"
N X S X=$O(^VA(200,+$G(DUZ),0))
I X']""!($G(DUZ(0))'="@") W !!?3,"The variable DUZ must be set to a valid entry in the NEW PERSON file",!?3,"and the variable DUZ(0) must equal ""@"" before you continue!" K DIFQ
Q
;
ENV ; Make sure UM Rollup v1.0 is installed.
N X
S X="IBQLLD" X ^%ZOSF("TEST") E K DIFQ W !?3,"You must install the QM Rollup package before installing this patch!"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBQYPRE 782 printed Dec 13, 2024@02:41:38 Page 2
IBQYPRE ;ALB/CPM - ENVIRONMENT CHECK FOR PATCH IBQ*1*1 ; 04-DEC-95
+1 ;;1.0;UTILIZATION MGMT ROLLUP LOCAL;**1**;Oct 01, 1995
+2 ;
+3 DO NOW^%DTC
SET IBQBDT=$HOROLOG
SET Y=%
+4 WRITE !!,"Initialization Started: "
DO DT^DIQ
WRITE !!
+5 ;
+6 DO DUZ
if $DATA(DIFQ)
DO ENV
+7 ;
+8 IF '$DATA(DIFQ)
WRITE !!,"PATCH IBQ*1*1 INITIALIZATION ABORTED..."
KILL IBQBDT
+9 QUIT
+10 ;
+11 ;
DUZ ; Check to see if a valid user is defined and that DUZ(0)="@"
+1 NEW X
SET X=$ORDER(^VA(200,+$GET(DUZ),0))
+2 IF X']""!($GET(DUZ(0))'="@")
WRITE !!?3,"The variable DUZ must be set to a valid entry in the NEW PERSON file",!?3,"and the variable DUZ(0) must equal ""@"" before you continue!"
KILL DIFQ
+3 QUIT
+4 ;
ENV ; Make sure UM Rollup v1.0 is installed.
+1 NEW X
+2 SET X="IBQLLD"
XECUTE ^%ZOSF("TEST")
IF '$TEST
KILL DIFQ
WRITE !?3,"You must install the QM Rollup package before installing this patch!"
+3 QUIT
