- IVMRMCR ;ALB/ESD - IVM Means Test Comparison Report ; 3 May 93
- ;;Version 2.0 ; INCOME VERIFICATION MATCH ;; 21-OCT-94
- ;
- ; Reports IVMRMCR and IVMRMCR1 will print patient data (if requested
- ; by user), and summary statistics of Cat A and Cat C patients for
- ; 2 selected years.
- ;
- EN ; Get current year to display as part of user prompt.
- D NOW^%DTC S IVMCURDT=X,IVMCURYR=1700+$E(X,1,3)
- ;
- W !!!?24,"IVM MEANS TEST COMPARISON REPORT"
- 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.",!
- ;
- BEGYR ; Ask user for year 1 of report.
- 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
- I $E(Y,1,3)'<($E(IVMCURDT,1,3)) W !,"Invalid year entered. Enter a year less than the current year.",*7 G BEGYR
- ;
- ; Compute year 2 of report.
- S IVMBEGYR=$E(Y,1,3),IVMENDYR=IVMBEGYR+1
- W !?3,"Means Test YEAR 1: ",1700+IVMBEGYR,!?3,"Means Test YEAR 2: ",1700+IVMENDYR,!!
- ;
- ; Ask user if printing of patient information is desired.
- ; IVMOUT = 1 for '^', 2 for time-out, 0 otherwise
- 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
- S IVMPFLAG=Y
- ;
- ; Select an output device.
- W !?3,"NOTE: The output is designed to use 80 columns."
- S IVMRTN="^IVMRMCR1",ZTDESC="IVM MEANS TEST COMPARISON REPORT"
- S (ZTSAVE("IVMBEGYR"),ZTSAVE("IVMCURDT"),ZTSAVE("IVMCURYR"),ZTSAVE("IVMENDYR"),ZTSAVE("IVMPFLAG"))=""
- D EN^IVMUTQ
- ;
- ENQ K DIRUT,DTOUT,DUOUT,IVMBEGYR,IVMCURDT,IVMCURYR,IVMENDYR,IVMOUT,IVMPFLAG,X,Y
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIVMRMCR 1762 printed Feb 18, 2025@23:28:10 Page 2
- IVMRMCR ;ALB/ESD - IVM Means Test Comparison Report ; 3 May 93
- +1 ;;Version 2.0 ; INCOME VERIFICATION MATCH ;; 21-OCT-94
- +2 ;
- +3 ; Reports IVMRMCR and IVMRMCR1 will print patient data (if requested
- +4 ; by user), and summary statistics of Cat A and Cat C patients for
- +5 ; 2 selected years.
- +6 ;
- EN ; Get current year to display as part of user prompt.
- +1 DO NOW^%DTC
- SET IVMCURDT=X
- SET IVMCURYR=1700+$EXTRACT(X,1,3)
- +2 ;
- +3 WRITE !!!?24,"IVM MEANS TEST COMPARISON REPORT"
- +4 WRITE !!?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.",!
- +5 ;
- BEGYR ; Ask user for year 1 of report.
- +1 SET %DT("A")="Enter first means test YEAR (1986 - "_(IVMCURYR-1)_"): "
- SET %DT(0)=2860000
- SET %DT="AE"
- DO ^%DT
- KILL %DT
- if $DATA(DTOUT)!(Y<0)
- GOTO ENQ
- +2 IF $EXTRACT(Y,1,3)'<($EXTRACT(IVMCURDT,1,3))
- WRITE !,"Invalid year entered. Enter a year less than the current year.",*7
- GOTO BEGYR
- +3 ;
- +4 ; Compute year 2 of report.
- +5 SET IVMBEGYR=$EXTRACT(Y,1,3)
- SET IVMENDYR=IVMBEGYR+1
- +6 WRITE !?3,"Means Test YEAR 1: ",1700+IVMBEGYR,!?3,"Means Test YEAR 2: ",1700+IVMENDYR,!!
- +7 ;
- +8 ; Ask user if printing of patient information is desired.
- +9 ; IVMOUT = 1 for '^', 2 for time-out, 0 otherwise
- +10 SET IVMOUT=0
- SET DIR(0)="YO"
- SET DIR("A")="Would you like to print patient data"
- SET DIR("B")="NO"
- DO ^DIR
- KILL DIR
- SET IVMOUT=$SELECT($DATA(DTOUT):2,$DATA(DUOUT):1,$DATA(DIRUT):1,1:0)
- if IVMOUT
- GOTO ENQ
- +11 SET IVMPFLAG=Y
- +12 ;
- +13 ; Select an output device.
- +14 WRITE !?3,"NOTE: The output is designed to use 80 columns."
- +15 SET IVMRTN="^IVMRMCR1"
- SET ZTDESC="IVM MEANS TEST COMPARISON REPORT"
- +16 SET (ZTSAVE("IVMBEGYR"),ZTSAVE("IVMCURDT"),ZTSAVE("IVMCURYR"),ZTSAVE("IVMENDYR"),ZTSAVE("IVMPFLAG"))=""
- +17 DO EN^IVMUTQ
- +18 ;
- ENQ KILL DIRUT,DTOUT,DUOUT,IVMBEGYR,IVMCURDT,IVMCURYR,IVMENDYR,IVMOUT,IVMPFLAG,X,Y
- +1 QUIT
