IBQLT5A.m

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 ---IBQLT5A   617     printed  Apr 09, 2024@21:43:11                                                                                                                                                                                                      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