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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBQLT5A 617 printed Dec 13, 2024@02:41:37 Page 2
IBQLT5A ;LEB/MRY - TRANSMIT PREVIOUS ROLLUPS;; Oct 5, 1995
+1 ;;1.0;UTILIZATION MGMT ROLLUP LOCAL;;Oct 01, 1995
+2 ;
+3 QUIT
ASK ;
+1 SET IBQUIT=0
+2 SET DIR(0)="Y"
SET DIR("A")="Do you wish to submit a previous rollup from the one above"
SET DIR("B")="No"
+3 WRITE !
DO ^DIR
if $DATA(DUOUT)!($DATA(DTOUT))
GOTO END
if Y<1
QUIT
+4 KILL DIR
+5 ;
+6 SET 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"
SET DIR("A")="Select number"
+7 DO ^DIR
if $DATA(DUOUT)!($DATA(DTOUT))
GOTO END
+8 ;
+9 IF Y=1
SET IBBDT=2940401
SET IBEDT=2940930
+10 IF Y=2
SET IBBDT=2941001
SET IBEDT=2950331
+11 IF Y=3
SET IBBDT=2950401
SET IBEDT=2950930
+12 QUIT
END ; -- Quit, if this request is aborted.
+1 SET IBQUIT=1
QUIT
