Last change
on this file since 1046 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
598 bytes
|
Rev | Line | |
---|
[613] | 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.