| 1 | RCDPLPL2 ;WISC/RFJ-link payments listmanager options ;1 Jun 99
|
|---|
| 2 | ;;4.5;Accounts Receivable;**114,148**;Mar 20, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | Q
|
|---|
| 5 | ;
|
|---|
| 6 | ;
|
|---|
| 7 | SHOWPAY ; this will show how a payment was applied to an account
|
|---|
| 8 | D FULL^VALM1
|
|---|
| 9 | S VALMBCK="R"
|
|---|
| 10 | ;
|
|---|
| 11 | N %,ACCOUNT,BILLDA,DATA,RCRECTDA,RCTRANDA,RECEIPT,TRANDA
|
|---|
| 12 | ;
|
|---|
| 13 | F W ! S RCRECTDA=+$$SELRECT^RCDPUREC(0,0) Q:RCRECTDA<1 D
|
|---|
| 14 | . S RCTRANDA=+$$SELTRAN^RCDPURET(RCRECTDA) Q:RCTRANDA<1
|
|---|
| 15 | . ;
|
|---|
| 16 | . S ACCOUNT=$P(^RCY(344,RCRECTDA,1,RCTRANDA,0),"^",3)
|
|---|
| 17 | . I 'ACCOUNT W !,"This payment is not linked, there is no account." Q
|
|---|
| 18 | . ;
|
|---|
| 19 | . S RECEIPT=$P(^RCY(344,RCRECTDA,0),"^")
|
|---|
| 20 | . W !!," Receipt: ",RECEIPT
|
|---|
| 21 | . W !," Transaction: ",RCTRANDA
|
|---|
| 22 | . W !," Unapplied Deposit Number: ",$P($G(^RCY(344,RCRECTDA,1,RCTRANDA,2)),"^",5)
|
|---|
| 23 | . W !," Total Paid Amount: ",$J($P($G(^RCY(344,RCRECTDA,1,RCTRANDA,0)),"^",4),10,2)
|
|---|
| 24 | . W !,"<searching>"
|
|---|
| 25 | . ;
|
|---|
| 26 | . S TRANDA=0
|
|---|
| 27 | . F S TRANDA=$O(^PRCA(433,"AF",RECEIPT,TRANDA)) Q:'TRANDA D
|
|---|
| 28 | . . S BILLDA=+$P($G(^PRCA(433,TRANDA,0)),"^",2)
|
|---|
| 29 | . . I $P($G(^RCD(340,+$P($G(^PRCA(430,BILLDA,0)),"^",9),0)),"^")=ACCOUNT D
|
|---|
| 30 | . . . S DATA=$G(^PRCA(433,TRANDA,3))
|
|---|
| 31 | . . . F %=1:1:11 W $C(8) ;backspace
|
|---|
| 32 | . . . W " "
|
|---|
| 33 | . . . W !?5,"Transaction: ",TRANDA
|
|---|
| 34 | . . . W !?9," Principal Collected: ",$J($P(DATA,"^"),10,2)
|
|---|
| 35 | . . . W !?9," Interest Collected: ",$J($P(DATA,"^",2),10,2)
|
|---|
| 36 | . . . W !?9," Admin Collected: ",$J($P(DATA,"^",3),10,2)
|
|---|
| 37 | . . . W !?9,"Marshal Fee Collected: ",$J($P(DATA,"^",4),10,2)
|
|---|
| 38 | . . . W !?9," Court Cost Collected: ",$J($P(DATA,"^",5),10,2)
|
|---|
| 39 | . . . W !,"<searching>"
|
|---|
| 40 | . ;
|
|---|
| 41 | . F %=1:1:11 W $C(8) ;backspace
|
|---|
| 42 | . W " "
|
|---|
| 43 | ;
|
|---|
| 44 | S VALMBCK="R"
|
|---|
| 45 | Q
|
|---|
