| [613] | 1 | IBQLT5 ;LEB/MRY - TRANSMIT PREVIOUS ROLLUPS;; Oct 5, 1995
|
|---|
| 2 | ;;1.0;UTILIZATION MGMT ROLLUP LOCAL;**2,3**;Oct 01, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | Q
|
|---|
| 5 | ASK ;
|
|---|
| 6 | S IBQUIT=0
|
|---|
| 7 | S DIR(0)="Y",DIR("A")="Do you wish to submit a previous rollup from the one above",DIR("B")="No"
|
|---|
| 8 | W ! D ^DIR G:$D(DUOUT)!($D(DTOUT)) END Q:Y<1
|
|---|
| 9 | K DIR
|
|---|
| 10 | ;
|
|---|
| 11 | S DIR(0)="S^1:4/1/94 to 9/30/94;2:10/1/94 to 3/31/95",DIR("A")="Select number"
|
|---|
| 12 | D ^DIR G:$D(DUOUT)!($D(DTOUT)) END
|
|---|
| 13 | ;
|
|---|
| 14 | I Y=1 S IBBDT=2940401,IBEDT=2940930
|
|---|
| 15 | I Y=2 S IBBDT=2941001,IBEDT=2950331
|
|---|
| 16 | Q
|
|---|
| 17 | END ; -- Quit, if this request is aborted.
|
|---|
| 18 | S IBQUIT=1 Q
|
|---|
| 19 | ;
|
|---|
| 20 | ;
|
|---|
| 21 | ;
|
|---|
| 22 | ;
|
|---|
| 23 | ;
|
|---|
| 24 | RANGE ; Ask user to select a rollup date range.
|
|---|
| 25 | S IBQUIT=0 K IBY
|
|---|
| 26 | D BLD I IBQUIT G QUIT
|
|---|
| 27 | S DIR("A")="Select a roll-up period (by number)",DIR("?")="^D HELP^IBQLT5"
|
|---|
| 28 | D ^DIR K DIR
|
|---|
| 29 | I '$D(IBY(+Y)) S IBQUIT=1 G QUIT
|
|---|
| 30 | ;
|
|---|
| 31 | S IBBDT=$P(IBY(+Y),"^",2),IBEDT=$P(IBY(+Y),"^",3)
|
|---|
| 32 | ;
|
|---|
| 33 | QUIT K IBY,Y
|
|---|
| 34 | Q
|
|---|
| 35 | ;
|
|---|
| 36 | HELP ; Help text for the rollup period prompt.
|
|---|
| 37 | W !!,"You must transmit your data to the national database for a specific"
|
|---|
| 38 | W !,"rollup period. Please select a roll-up period by number, or type '^'"
|
|---|
| 39 | W !,"to quit this option."
|
|---|
| 40 | Q
|
|---|
| 41 | ;
|
|---|
| 42 | ;
|
|---|
| 43 | BLD ; Build IBY array and DIR(0).
|
|---|
| 44 | N I,X,X1,X2
|
|---|
| 45 | S X=DT F I=1:1:2 D BLD1(X) Q:X2<2940401 S IBY(I)=$$DAT(X1)_" to "_$$DAT(X2)_"^"_X1_"^"_X2,X=X1
|
|---|
| 46 | I '$O(IBY(0)) W !!,"There are no Rollup Periods that can be selected for transmission!" S IBQUIT=1 G BLDQ
|
|---|
| 47 | ;
|
|---|
| 48 | S DIR(0)="S^" S I=0 F S I=$O(IBY(I)) Q:'I S DIR(0)=DIR(0)_I_":"_$P(IBY(I),"^")_";"
|
|---|
| 49 | S DIR(0)=$E(DIR(0),1,$L(DIR(0))-1)
|
|---|
| 50 | BLDQ Q
|
|---|
| 51 | ;
|
|---|
| 52 | ;
|
|---|
| 53 | BLD1(X) ; Create Rollup Begin and End Dates.
|
|---|
| 54 | I +$E(X,4,7)'<930 S X2=$E(X,1,3)_"0930",X1=$E(X,1,3)_"0401" Q
|
|---|
| 55 | I +$E(X,4,7)'<331 S X2=$E(X,1,3)_"0331",X1=$E(X,1,3)-1_"1001" Q
|
|---|
| 56 | S X2=$E(X,1,3)-1_"0930",X1=$E(X,1,3)-1_"0401"
|
|---|
| 57 | Q
|
|---|
| 58 | ;
|
|---|
| 59 | DAT(X) ; Format FileMan dates.
|
|---|
| 60 | Q $S(X:+$E(X,4,5)_"/"_+$E(X,6,7)_"/"_$E(X,2,3),1:"")
|
|---|
