IVM20E ;ALB/CPM - IVM V2.0 ENVIRONMENT CHECK ROUTINE ; 16-MAY-94
;;Version 2.0 ; INCOME VERIFICATION MATCH ;; 21-OCT-94
;
; This routine contains environmental checks which get executed
; before the initialization is allowed to run. DIFQ is killed
; if a problem is encountered.
;
;
D NOW^%DTC S IVMBDT=$H,DT=X,Y=%
W !!,"Initialization Started: " D DT^DIQ W !!
;
S IOP="HOME" D ^%ZIS
D DUZ,ENV:$D(DIFQ),TYPE:$D(DIFQ)
;
I '$D(DIFQ) W !,"IVM V2.0 INITIALIZATION ABORTED..." K IVMBDT
Q 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 required packages/patches are installed.
N X
I $G(^DG(43,1,"VERSION"))<5.3 K DIFQ W !,?3,"PIMS Version 5.3 must be installed first!"
I +$G(^DD(350,0,"VR"))<2 K DIFQ W !?3,"Integrated Billing Version 2.0 must be installed first!"
S X="IBCOIVM1" X ^%ZOSF("TEST") E K DIFQ W !?3,"Integrated Billing patch IB*2*6 must be installed first!"
I '$O(^DIC(4.2,"B","IVM.DOMAIN.EXT",0)) W !?3,*7,"Patches XM*DBA*51 and XM*DBA*52 are needed!" K DIFQ
I '$D(^ORD(100.99)) W !?3,*7,"You must install ORDER ENTRY/RESULTS REPORTING before continuing!" K DIFQ
I $G(^DD(770,0,"VR"))<1.5 W !?3,*7,"You must be running version 1.5 or higher of the DHCP HL7 package",!?6,"prior to running this installation!" K DIFQ
Q
;
;
TYPE ; Ask user if this installation is for a test account or live account.
S DIR(0)="SM^1:PRODUCTION;0:TEST"
S DIR("A")="Enter type of account you are installing in"
S DIR("?")="Enter P for production account or T for test account"
F I=1:1 S X=$P($T(TEXT+I),";;",2) Q:X="QUIT" S DIR("?",I)=X
D ^DIR
I Y=""!(Y["^") W:Y="" !!,*7,"User Timed Out..." K DIFQ
S IVMPROD=Y
K DIR,DTOUT,DUOUT,DIRUT,DIROUT,X,Y
Q
;
;
TEXT ; Text for help for production/test question
;;If you are currently installing this IVM package in a production
;;account, you must answer P. If you are installing in a test account
;;you must answer T.
;;
;;The answer to this question is extremely important as it determines
;;where income data for patients gets transmitted. Test data must not
;;be transmitted to the IVM Center's production account. Production
;;data, likewise, will not be evaluated properly if it is not sent to
;;the IVM Center's production account.
;;
;;Enter '^' to abort this installation.
;;
;;QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIVM20E 2604 printed Apr 09, 2024@21:02:17 Page 2
IVM20E ;ALB/CPM - IVM V2.0 ENVIRONMENT CHECK ROUTINE ; 16-MAY-94
+1 ;;Version 2.0 ; INCOME VERIFICATION MATCH ;; 21-OCT-94
+2 ;
+3 ; This routine contains environmental checks which get executed
+4 ; before the initialization is allowed to run. DIFQ is killed
+5 ; if a problem is encountered.
+6 ;
+7 ;
+8 DO NOW^%DTC
SET IVMBDT=$HOROLOG
SET DT=X
SET Y=%
+9 WRITE !!,"Initialization Started: "
DO DT^DIQ
WRITE !!
+10 ;
+11 SET IOP="HOME"
DO ^%ZIS
+12 DO DUZ
if $DATA(DIFQ)
DO ENV
if $DATA(DIFQ)
DO TYPE
+13 ;
+14 IF '$DATA(DIFQ)
WRITE !,"IVM V2.0 INITIALIZATION ABORTED..."
KILL IVMBDT
Q QUIT
+1 ;
+2 ;
+3 ;
DUZ ; Check to see if a valid user is defined and that DUZ(0)="@"
+1 NEW X
+2 SET X=$ORDER(^VA(200,+$GET(DUZ),0))
+3 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
+4 QUIT
+5 ;
+6 ;
ENV ; Make sure required packages/patches are installed.
+1 NEW X
+2 IF $GET(^DG(43,1,"VERSION"))<5.3
KILL DIFQ
WRITE !,?3,"PIMS Version 5.3 must be installed first!"
+3 IF +$GET(^DD(350,0,"VR"))<2
KILL DIFQ
WRITE !?3,"Integrated Billing Version 2.0 must be installed first!"
+4 SET X="IBCOIVM1"
XECUTE ^%ZOSF("TEST")
IF '$TEST
KILL DIFQ
WRITE !?3,"Integrated Billing patch IB*2*6 must be installed first!"
+5 IF '$ORDER(^DIC(4.2,"B","IVM.DOMAIN.EXT",0))
WRITE !?3,*7,"Patches XM*DBA*51 and XM*DBA*52 are needed!"
KILL DIFQ
+6 IF '$DATA(^ORD(100.99))
WRITE !?3,*7,"You must install ORDER ENTRY/RESULTS REPORTING before continuing!"
KILL DIFQ
+7 IF $GET(^DD(770,0,"VR"))<1.5
WRITE !?3,*7,"You must be running version 1.5 or higher of the DHCP HL7 package",!?6,"prior to running this installation!"
KILL DIFQ
+8 QUIT
+9 ;
+10 ;
TYPE ; Ask user if this installation is for a test account or live account.
+1 SET DIR(0)="SM^1:PRODUCTION;0:TEST"
+2 SET DIR("A")="Enter type of account you are installing in"
+3 SET DIR("?")="Enter P for production account or T for test account"
+4 FOR I=1:1
SET X=$PIECE($TEXT(TEXT+I),";;",2)
if X="QUIT"
QUIT
SET DIR("?",I)=X
+5 DO ^DIR
+6 IF Y=""!(Y["^")
if Y=""
WRITE !!,*7,"User Timed Out..."
KILL DIFQ
+7 SET IVMPROD=Y
+8 KILL DIR,DTOUT,DUOUT,DIRUT,DIROUT,X,Y
+9 QUIT
+10 ;
+11 ;
TEXT ; Text for help for production/test question
+1 ;;If you are currently installing this IVM package in a production
+2 ;;account, you must answer P. If you are installing in a test account
+3 ;;you must answer T.
+4 ;;
+5 ;;The answer to this question is extremely important as it determines
+6 ;;where income data for patients gets transmitted. Test data must not
+7 ;;be transmitted to the IVM Center's production account. Production
+8 ;;data, likewise, will not be evaluated properly if it is not sent to
+9 ;;the IVM Center's production account.
+10 ;;
+11 ;;Enter '^' to abort this installation.
+12 ;;
+13 ;;QUIT
