| 1 | IVMRMCR ;ALB/ESD - IVM Means Test Comparison Report ; 3 May 93
|
|---|
| 2 | ;;Version 2.0 ; INCOME VERIFICATION MATCH ;; 21-OCT-94
|
|---|
| 3 | ;
|
|---|
| 4 | ; Reports IVMRMCR and IVMRMCR1 will print patient data (if requested
|
|---|
| 5 | ; by user), and summary statistics of Cat A and Cat C patients for
|
|---|
| 6 | ; 2 selected years.
|
|---|
| 7 | ;
|
|---|
| 8 | EN ; Get current year to display as part of user prompt.
|
|---|
| 9 | D NOW^%DTC S IVMCURDT=X,IVMCURYR=1700+$E(X,1,3)
|
|---|
| 10 | ;
|
|---|
| 11 | W !!!?24,"IVM MEANS TEST COMPARISON REPORT"
|
|---|
| 12 | W !!?3,"This report will be used to analyze consecutive years' Means Test data",!?3,"(e.g., 1991-1992). Please enter the first year for the two year period",!?3,"which you would like to analyze.",!
|
|---|
| 13 | ;
|
|---|
| 14 | BEGYR ; Ask user for year 1 of report.
|
|---|
| 15 | S %DT("A")="Enter first means test YEAR (1986 - "_(IVMCURYR-1)_"): ",%DT(0)=2860000,%DT="AE" D ^%DT K %DT G:$D(DTOUT)!(Y<0) ENQ
|
|---|
| 16 | I $E(Y,1,3)'<($E(IVMCURDT,1,3)) W !,"Invalid year entered. Enter a year less than the current year.",*7 G BEGYR
|
|---|
| 17 | ;
|
|---|
| 18 | ; Compute year 2 of report.
|
|---|
| 19 | S IVMBEGYR=$E(Y,1,3),IVMENDYR=IVMBEGYR+1
|
|---|
| 20 | W !?3,"Means Test YEAR 1: ",1700+IVMBEGYR,!?3,"Means Test YEAR 2: ",1700+IVMENDYR,!!
|
|---|
| 21 | ;
|
|---|
| 22 | ; Ask user if printing of patient information is desired.
|
|---|
| 23 | ; IVMOUT = 1 for '^', 2 for time-out, 0 otherwise
|
|---|
| 24 | S IVMOUT=0,DIR(0)="YO",DIR("A")="Would you like to print patient data",DIR("B")="NO" D ^DIR K DIR S IVMOUT=$S($D(DTOUT):2,$D(DUOUT):1,$D(DIRUT):1,1:0) G:IVMOUT ENQ
|
|---|
| 25 | S IVMPFLAG=Y
|
|---|
| 26 | ;
|
|---|
| 27 | ; Select an output device.
|
|---|
| 28 | W !?3,"NOTE: The output is designed to use 80 columns."
|
|---|
| 29 | S IVMRTN="^IVMRMCR1",ZTDESC="IVM MEANS TEST COMPARISON REPORT"
|
|---|
| 30 | S (ZTSAVE("IVMBEGYR"),ZTSAVE("IVMCURDT"),ZTSAVE("IVMCURYR"),ZTSAVE("IVMENDYR"),ZTSAVE("IVMPFLAG"))=""
|
|---|
| 31 | D EN^IVMUTQ
|
|---|
| 32 | ;
|
|---|
| 33 | ENQ K DIRUT,DTOUT,DUOUT,IVMBEGYR,IVMCURDT,IVMCURYR,IVMENDYR,IVMOUT,IVMPFLAG,X,Y
|
|---|
| 34 | Q
|
|---|
