- 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 Feb 19, 2025@00:07:52 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