source: FOIAVistA/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCDPLPL2.m@ 1796

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

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1RCDPLPL2 ;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 ;
7SHOWPAY ; 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
Note: See TracBrowser for help on using the repository browser.