|
Last change
on this file since 645 was 613, checked in by George Lilly, 16 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
885 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | IVMRUTL ;ALB/ESD,KCL - IVM Report Utility Routines; 01-JUN-93
|
|---|
| 2 | ;;Version 2.0 ; INCOME VERIFICATION MATCH ;; 21-OCT-94
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | RANGE ; 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)=""
|
|---|
| 11 | SDT ; 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
|
|---|
| 14 | EDT ; 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
|
|---|
| 16 | RANGEQ ;
|
|---|
| 17 | K DIRUT,Y
|
|---|
| 18 | Q
|
|---|
| 19 | ;
|
|---|
| 20 | PAUSE ;
|
|---|
| 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.
