Last change
on this file since 700 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.