source: FOIAVistA/tag/r/INCOME_VERIFICATION_MATCH-IVM/IVM20E.m@ 628

Last change on this file since 628 was 628, checked in by George Lilly, 14 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.5 KB
Line 
1IVM20E ;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
16Q Q
17 ;
18 ;
19 ;
20DUZ ; 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 ;
27ENV ; 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 ;
38TYPE ; 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 ;
50TEXT ; 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
Note: See TracBrowser for help on using the repository browser.