Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBQLT5A

IBQLT5A.m

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