| 1 | IVM20E ;ALB/CPM - IVM V2.0 ENVIRONMENT CHECK ROUTINE ; 16-MAY-94
|
|---|
| 2 | ;;Version 2.0 ; INCOME VERIFICATION MATCH ;; 21-OCT-94
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine contains environmental checks which get executed
|
|---|
| 5 | ; before the initialization is allowed to run. DIFQ is killed
|
|---|
| 6 | ; if a problem is encountered.
|
|---|
| 7 | ;
|
|---|
| 8 | ;
|
|---|
| 9 | D NOW^%DTC S IVMBDT=$H,DT=X,Y=%
|
|---|
| 10 | W !!,"Initialization Started: " D DT^DIQ W !!
|
|---|
| 11 | ;
|
|---|
| 12 | S IOP="HOME" D ^%ZIS
|
|---|
| 13 | D DUZ,ENV:$D(DIFQ),TYPE:$D(DIFQ)
|
|---|
| 14 | ;
|
|---|
| 15 | I '$D(DIFQ) W !,"IVM V2.0 INITIALIZATION ABORTED..." K IVMBDT
|
|---|
| 16 | Q Q
|
|---|
| 17 | ;
|
|---|
| 18 | ;
|
|---|
| 19 | ;
|
|---|
| 20 | DUZ ; Check to see if a valid user is defined and that DUZ(0)="@"
|
|---|
| 21 | N X
|
|---|
| 22 | S X=$O(^VA(200,+$G(DUZ),0))
|
|---|
| 23 | 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
|
|---|
| 24 | Q
|
|---|
| 25 | ;
|
|---|
| 26 | ;
|
|---|
| 27 | ENV ; Make sure required packages/patches are installed.
|
|---|
| 28 | N X
|
|---|
| 29 | I $G(^DG(43,1,"VERSION"))<5.3 K DIFQ W !,?3,"PIMS Version 5.3 must be installed first!"
|
|---|
| 30 | I +$G(^DD(350,0,"VR"))<2 K DIFQ W !?3,"Integrated Billing Version 2.0 must be installed first!"
|
|---|
| 31 | S X="IBCOIVM1" X ^%ZOSF("TEST") E K DIFQ W !?3,"Integrated Billing patch IB*2*6 must be installed first!"
|
|---|
| 32 | I '$O(^DIC(4.2,"B","IVM.VA.GOV",0)) W !?3,*7,"Patches XM*DBA*51 and XM*DBA*52 are needed!" K DIFQ
|
|---|
| 33 | I '$D(^ORD(100.99)) W !?3,*7,"You must install ORDER ENTRY/RESULTS REPORTING before continuing!" K DIFQ
|
|---|
| 34 | 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
|
|---|
| 35 | Q
|
|---|
| 36 | ;
|
|---|
| 37 | ;
|
|---|
| 38 | TYPE ; Ask user if this installation is for a test account or live account.
|
|---|
| 39 | S DIR(0)="SM^1:PRODUCTION;0:TEST"
|
|---|
| 40 | S DIR("A")="Enter type of account you are installing in"
|
|---|
| 41 | S DIR("?")="Enter P for production account or T for test account"
|
|---|
| 42 | F I=1:1 S X=$P($T(TEXT+I),";;",2) Q:X="QUIT" S DIR("?",I)=X
|
|---|
| 43 | D ^DIR
|
|---|
| 44 | I Y=""!(Y["^") W:Y="" !!,*7,"User Timed Out..." K DIFQ
|
|---|
| 45 | S IVMPROD=Y
|
|---|
| 46 | K DIR,DTOUT,DUOUT,DIRUT,DIROUT,X,Y
|
|---|
| 47 | Q
|
|---|
| 48 | ;
|
|---|
| 49 | ;
|
|---|
| 50 | TEXT ; Text for help for production/test question
|
|---|
| 51 | ;;If you are currently installing this IVM package in a production
|
|---|
| 52 | ;;account, you must answer P. If you are installing in a test account
|
|---|
| 53 | ;;you must answer T.
|
|---|
| 54 | ;;
|
|---|
| 55 | ;;The answer to this question is extremely important as it determines
|
|---|
| 56 | ;;where income data for patients gets transmitted. Test data must not
|
|---|
| 57 | ;;be transmitted to the IVM Center's production account. Production
|
|---|
| 58 | ;;data, likewise, will not be evaluated properly if it is not sent to
|
|---|
| 59 | ;;the IVM Center's production account.
|
|---|
| 60 | ;;
|
|---|
| 61 | ;;Enter '^' to abort this installation.
|
|---|
| 62 | ;;
|
|---|
| 63 | ;;QUIT
|
|---|
