| 1 | PRCBP1 ;WISC/CTB-PRINT OPTIONS FOR RD 2-285 REPORTS ;5/3/93 9:39 AM
|
|---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | OUT K %,%X,DP,IOX,IOY,PRCF Q
|
|---|
| 5 | EN1 ;FIRST QUARTER
|
|---|
| 6 | S FLDS="[PRCB 285 1ST QTR]" D ALL,OUT Q
|
|---|
| 7 | ;
|
|---|
| 8 | EN2 ;SECOND QUARTER
|
|---|
| 9 | S FLDS="[PRCB 285 2ND QTR]" D ALL,OUT Q
|
|---|
| 10 | EN3 ;THIRD QUARTER
|
|---|
| 11 | S FLDS="[PRCB 285 3RD QTR]" D ALL,OUT Q
|
|---|
| 12 | EN4 ;FOURTH QUARTER
|
|---|
| 13 | S FLDS="[PRCB 285 4TH QTR]" D ALL,OUT Q
|
|---|
| 14 | EN5 ;OCTOBER - DECEMBER
|
|---|
| 15 | S FLDS="[PRCB 285 OCT-MAR]" D ALL,OUT Q
|
|---|
| 16 | EN6 ;APRIL - SEPTEMBER
|
|---|
| 17 | S FLDS="[PRCB 285 APR-SEP]" D ALL,OUT Q
|
|---|
| 18 | EN7 ;COMPLETE FISCAL YEAR
|
|---|
| 19 | S FLDS="[PRCB 285 FISCAL YEAR]" D ALL,OUT Q
|
|---|
| 20 | ALL S PRCF("X")="ABFS" D ^PRCFSITE Q:'%
|
|---|
| 21 | D WAIT S FR=$O(^PRCF(421,"AJ",PRCF("SIFY"),0)) I FR="" W !,"NO TRANSACTIONS IN FY ",PRC("FY") Q
|
|---|
| 22 | S BY="[PRCB SORT BY SIFY/TDA]",FR=PRCF("SIFY"),TO=PRCF("SIFY"),DIC="^PRCF(421," D EN1^DIP Q
|
|---|
| 23 | Q
|
|---|
| 24 | WAIT ;
|
|---|
| 25 | W !,"..."
|
|---|
| 26 | W $P("Whoops^Hmmm^Excuse me^Sorry","^",$R(4)+1),", "
|
|---|
| 27 | W $P($T(LIST+$R(6)),";",3)_"..."
|
|---|
| 28 | LIST ;;This may take a few moments
|
|---|
| 29 | ;;Let me put you on 'HOLD' for a second
|
|---|
| 30 | ;;Hold on
|
|---|
| 31 | ;;Just a moment, please
|
|---|
| 32 | ;;I'm working as fast as I can
|
|---|
| 33 | ;;Let me think about this for a moment
|
|---|
| 34 | ;
|
|---|
