source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCBP1.m@ 1582

Last change on this file since 1582 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1PRCBP1 ;WISC/CTB-PRINT OPTIONS FOR RD 2-285 REPORTS ;5/3/93 9:39 AM
2V ;;5.1;IFCAP;;Oct 20, 2000
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4OUT K %,%X,DP,IOX,IOY,PRCF Q
5EN1 ;FIRST QUARTER
6 S FLDS="[PRCB 285 1ST QTR]" D ALL,OUT Q
7 ;
8EN2 ;SECOND QUARTER
9 S FLDS="[PRCB 285 2ND QTR]" D ALL,OUT Q
10EN3 ;THIRD QUARTER
11 S FLDS="[PRCB 285 3RD QTR]" D ALL,OUT Q
12EN4 ;FOURTH QUARTER
13 S FLDS="[PRCB 285 4TH QTR]" D ALL,OUT Q
14EN5 ;OCTOBER - DECEMBER
15 S FLDS="[PRCB 285 OCT-MAR]" D ALL,OUT Q
16EN6 ;APRIL - SEPTEMBER
17 S FLDS="[PRCB 285 APR-SEP]" D ALL,OUT Q
18EN7 ;COMPLETE FISCAL YEAR
19 S FLDS="[PRCB 285 FISCAL YEAR]" D ALL,OUT Q
20ALL 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
24WAIT ;
25 W !,"..."
26 W $P("Whoops^Hmmm^Excuse me^Sorry","^",$R(4)+1),", "
27 W $P($T(LIST+$R(6)),";",3)_"..."
28LIST ;;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 ;
Note: See TracBrowser for help on using the repository browser.