20 lines
598 B
Mathematica
20 lines
598 B
Mathematica
IBQLT5A ;LEB/MRY - TRANSMIT PREVIOUS ROLLUPS;; Oct 5, 1995
|
|
;;1.0;UTILIZATION MGMT ROLLUP LOCAL;;Oct 01, 1995
|
|
;
|
|
Q
|
|
ASK ;
|
|
S IBQUIT=0
|
|
S DIR(0)="Y",DIR("A")="Do you wish to submit a previous rollup from the one above",DIR("B")="No"
|
|
W ! D ^DIR G:$D(DUOUT)!($D(DTOUT)) END Q:Y<1
|
|
K DIR
|
|
;
|
|
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"
|
|
D ^DIR G:$D(DUOUT)!($D(DTOUT)) END
|
|
;
|
|
I Y=1 S IBBDT=2940401,IBEDT=2940930
|
|
I Y=2 S IBBDT=2941001,IBEDT=2950331
|
|
I Y=3 S IBBDT=2950401,IBEDT=2950930
|
|
Q
|
|
END ; -- Quit, if this request is aborted.
|
|
S IBQUIT=1 Q
|