|
Last change
on this file since 1000 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
598 bytes
|
| Line | |
|---|
| 1 | IBQLT5A ;LEB/MRY - TRANSMIT PREVIOUS ROLLUPS;; Oct 5, 1995
|
|---|
| 2 | ;;1.0;UTILIZATION MGMT ROLLUP LOCAL;;Oct 01, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | Q
|
|---|
| 5 | ASK ;
|
|---|
| 6 | S IBQUIT=0
|
|---|
| 7 | S DIR(0)="Y",DIR("A")="Do you wish to submit a previous rollup from the one above",DIR("B")="No"
|
|---|
| 8 | W ! D ^DIR G:$D(DUOUT)!($D(DTOUT)) END Q:Y<1
|
|---|
| 9 | K DIR
|
|---|
| 10 | ;
|
|---|
| 11 | S DIR(0)="S^1:4/1/94 to 9/30/94;2:10/1/94 to 3/31/95;3:4/1/95 to 9/30/95",DIR("A")="Select number"
|
|---|
| 12 | D ^DIR G:$D(DUOUT)!($D(DTOUT)) END
|
|---|
| 13 | ;
|
|---|
| 14 | I Y=1 S IBBDT=2940401,IBEDT=2940930
|
|---|
| 15 | I Y=2 S IBBDT=2941001,IBEDT=2950331
|
|---|
| 16 | I Y=3 S IBBDT=2950401,IBEDT=2950930
|
|---|
| 17 | Q
|
|---|
| 18 | END ; -- Quit, if this request is aborted.
|
|---|
| 19 | S IBQUIT=1 Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
