source: WorldVistAEHR/trunk/r/INCOME_VERIFICATION_MATCH-IVM/IVMRUTL.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 885 bytes
Line 
1IVMRUTL ;ALB/ESD,KCL - IVM Report Utility Routines; 01-JUN-93
2 ;;Version 2.0 ; INCOME VERIFICATION MATCH ;; 21-OCT-94
3 ;
4 ;
5RANGE ; Read starting and ending dates for a report
6 ; Input - None.
7 ; Output - IVMBEG is the starting date
8 ; IVMEND is the ending date
9 ;
10 S (IVMBEG,IVMEND)=""
11SDT ; Select starting date for report
12 S DIR(0)="DO^::EX",DIR("A")="Enter BEGINNING DATE",DIR("?")="^D HELP^%DTC" D ^DIR K DIR G:'Y RANGEQ S IVMBEG=+Y G:$D(DIRUT) RANGEQ
13 I IVMBEG>DT W !,?5,"Future dates are not allowed.",*7 K IVMBEG G SDT
14EDT ; Select ending date for report
15 S DIR(0)="D^"_IVMBEG_":NOW:EX",DIR("A")="Enter ENDING DATE",DIR("?")="^D HELP^%DTC" D ^DIR K DIR G:'Y RANGEQ S IVMEND=+Y G:$D(DIRUT) RANGEQ
16RANGEQ ;
17 K DIRUT,Y
18 Q
19 ;
20PAUSE ;
21 Q:$E(IOST,1,2)'["C-"
22 F IVMI=$Y:1:(IOSL-4) W !
23 S DIR(0)="E" D ^DIR K DIR I $D(DIRUT)!($D(DUOUT)) S IVMQUIT=1 K DIRUT,DTOUT,DUOUT
24 Q
Note: See TracBrowser for help on using the repository browser.