IBQYPRE.m

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 ---IBQYPRE   782     printed  Mar 13, 2025@21:46:22                                                                                                                                                                                                      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