| [613] | 1 | PRCSP1A1 ;WISC/SAW-CONTROL POINT ACTIVITY PRINT OPTIONS CON'T ;7-16-91/12:32
|
|---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | DEV K IO("Q") S IOP="HOME" D ^%ZIS Q
|
|---|
| 5 | DEV1 K IO("Q") S %ZIS("B")="HOME",%ZIS="MQ" D ^%ZIS Q
|
|---|
| 6 | W1 W !!,"Would you like to run another running balances report" S %=2 D YN^DICN G W1:%=0 Q
|
|---|
| 7 | W2 W !!,"You are not an authorized control point user.",!,"Contact your control point official." R X:5 G EXIT
|
|---|
| 8 | W4 W !!,"Enter information for another report or an uparrow to return to the menu.",! Q
|
|---|
| 9 | W I (IO=IO(0))&('$D(ZTQUEUED)) W !!,"Press return to continue: " R X:DTIME
|
|---|
| 10 | I (IO'=IO(0))!($D(ZTQUEUED)) D ^%ZISC U IO
|
|---|
| 11 | EXIT K %,%IS,%DT,BY,C0,C2,C3,D,D0,DA,DHD,DIC,DIE,P,PRCS,FLDS,FR,I,L,N,PRCZZ,T,TO,X,X1,Y,Z,Z1,ZTRTN,ZTSAVE Q
|
|---|
| 12 | OAR ;OUTSTANDING REQUESTS REPORTS
|
|---|
| 13 | D EN6^PRCSUT G W2:'$D(PRC("SITE")),EXIT:Y<0
|
|---|
| 14 | N C1 S C1=$P(PRC("CP")," "),BY="@15,.01,@1,@48,44",FR=C1_" ,"_PRC("SITE")_"-"_"-,O,@",TO=C1_" ZZ,"_PRC("SITE")_"-"_PRC("FY")_"z,O,@,"_DT,FLDS="[PRCSOAR]"
|
|---|
| 15 | S L=0,DIC="^PRCS(410," D EN1^DIP W !,"End of report",! Q
|
|---|
| 16 | SUBTOT ;BOC Detail Totals Report
|
|---|
| 17 | W !,"This report displays item costs from 2237 orders, sorted",!,"by budget object code.",!!
|
|---|
| 18 | D EN1^PRCSUT G W2:'$D(PRC("SITE")),EXIT:Y<0
|
|---|
| 19 | N PRCX S PRCX=PRC("SITE")_"-"_PRC("FY")_"-"_PRC("QTR")_"-"_$P(PRC("CP")," ")
|
|---|
| 20 | S DIS(0)="I $P($G(^PRCS(410,D0,0)),""-"",1,4)=PRCX"
|
|---|
| 21 | S L=0,DIC="^PRCS(410,",BY="[PRCSASRT]",FR=PRCX_"-0001,@",TO=PRCX_"-9999",FLDS="[PRCSSA]"
|
|---|
| 22 | D EN1^DIP
|
|---|
| 23 | N REPORT2 S REPORT2=1 D T2^PRCSAPP1 W !,"End of report",! Q
|
|---|
| 24 | CPT ;STATUS OF OBLIGATION TRANSACTIONS
|
|---|
| 25 | D EN^PRCSUT G W2:'$D(PRC("SITE")),EXIT:Y<0 S PRCSZZ=PRC("SITE")_"-"_PRC("FY")_"-"_PRC("QTR")_"-"_$P(PRC("CP")," ")
|
|---|
| 26 | S FLDS="[PRCSCPT]",DHD="STATUS OF OBLIGATION TRANSACTIONS CP: "_PRC("CP")_" FY: "_PRC("FY"),BY="@.01,@1",FR=PRCSZZ_"-0001,O",TO=PRCSZZ_"-9999,OZ" D S K PRC("CP"),PRCSZZ G CPT
|
|---|
| 27 | S S L=0,DIC="^PRCS(410," D EN1^DIP Q
|
|---|
