| [613] | 1 | PRCAPTR ;WASH-ISC@ALTOONA,PA/RGY-Print PENDING TRANSACTION ;8/25/93 9:11 AM
|
|---|
| 2 | V ;;4.5;Accounts Receivable;;Mar 20, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | NEW PRCAE,X0,X1,CNT,TOTAL
|
|---|
| 5 | S (CNT,TOTAL)=0
|
|---|
| 6 | W:$E(IOST)="C" @IOF D HDR
|
|---|
| 7 | F PRCAE=0:0 S PRCAE=$O(^PRCA(433,"AE",1,PRCAE)),X="" Q:'PRCAE D TOP:$Y+5>IOSL Q:X="^" D:$P(^PRCA(433,PRCAE,0),"^",4)=2 PRNTL
|
|---|
| 8 | I X'="^" W:$Y+5>IOSL @IOF W !?69,"----------",!?60,"TOTAL:",?69,$J(TOTAL,10,2),!?60,"COUNT:",?69,$J(CNT,10,2) W:CNT !?60,"MEAN:",?69,$J(TOTAL/CNT,10,2)
|
|---|
| 9 | W:$E(IOST)="P" @IOF Q
|
|---|
| 10 | TOP ;
|
|---|
| 11 | I $E(IOST)="C" S X="" R !,"Press return to continue: ",X:DTIME S:'$T X="^" G:X="^" Q2
|
|---|
| 12 | W @IOF D HDR
|
|---|
| 13 | Q2 Q
|
|---|
| 14 | PRNTL ;
|
|---|
| 15 | S X0=$G(^PRCA(433,PRCAE,0)),X1=$G(^(1)) W !,+X0,?9,$P($G(^PRCA(430,+$P(X0,"^",2),0)),"^")
|
|---|
| 16 | W ?22 S Y=+X1 D DT W ?37,$E($P($G(^PRCA(430.2,+$P($G(^PRCA(430,+$P(X0,"^",2),0)),"^",2),0)),"^"),1,15),?55,$E($P($G(^PRCA(430.3,+$P(X1,"^",2),0)),"^"),1,10),?69,$J($P(X1,"^",5),10,2)
|
|---|
| 17 | S CNT=CNT+1,TOTAL=TOTAL+$P(X1,"^",5)
|
|---|
| 18 | Q
|
|---|
| 19 | HDR ;
|
|---|
| 20 | W !,"Pending Transaction List",!,"Date Printed: " S Y=DT D DT
|
|---|
| 21 | W !!,"Tran. #",?9,"Bill #",?22,"Tran. Date",?37,"Category",?55,"Type",?73,"Amount",!
|
|---|
| 22 | S X="",$P(X,"-",IOM)="" W X,!
|
|---|
| 23 | Q
|
|---|
| 24 | DT I Y W $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$E(Y,4,5))_" " W:Y#100 $J(Y#100\1,2)_"," W Y\10000+1700 W:Y#1 " "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12) Q
|
|---|
| 25 | Q
|
|---|
| 26 | TSK ;
|
|---|
| 27 | NEW ZTSK
|
|---|
| 28 | S %ZIS="MQ" D ^%ZIS G:POP Q1
|
|---|
| 29 | I '$D(IO("Q")) U IO D PRCAPTR U IO(0) G Q1
|
|---|
| 30 | S ZTRTN="^PRCAPTR",ZTDESC="Print Pending Transaction List" D ^%ZTLOAD
|
|---|
| 31 | Q1 D ^%ZISC K POP Q
|
|---|
