Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RCDPLPL2

RCDPLPL2.m

Go to the documentation of this file.
  1. RCDPLPL2 ;WISC/RFJ-link payments listmanager options ;1 Jun 99
  1. ;;4.5;Accounts Receivable;**114,148**;Mar 20, 1995
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. Q
  1. ;
  1. ;
  1. SHOWPAY ; this will show how a payment was applied to an account
  1. D FULL^VALM1
  1. S VALMBCK="R"
  1. ;
  1. N %,ACCOUNT,BILLDA,DATA,RCRECTDA,RCTRANDA,RECEIPT,TRANDA
  1. ;
  1. F W ! S RCRECTDA=+$$SELRECT^RCDPUREC(0,0) Q:RCRECTDA<1 D
  1. . S RCTRANDA=+$$SELTRAN^RCDPURET(RCRECTDA) Q:RCTRANDA<1
  1. . ;
  1. . S ACCOUNT=$P(^RCY(344,RCRECTDA,1,RCTRANDA,0),"^",3)
  1. . I 'ACCOUNT W !,"This payment is not linked, there is no account." Q
  1. . ;
  1. . S RECEIPT=$P(^RCY(344,RCRECTDA,0),"^")
  1. . W !!," Receipt: ",RECEIPT
  1. . W !," Transaction: ",RCTRANDA
  1. . W !," Unapplied Deposit Number: ",$P($G(^RCY(344,RCRECTDA,1,RCTRANDA,2)),"^",5)
  1. . W !," Total Paid Amount: ",$J($P($G(^RCY(344,RCRECTDA,1,RCTRANDA,0)),"^",4),10,2)
  1. . W !,"<searching>"
  1. . ;
  1. . S TRANDA=0
  1. . F S TRANDA=$O(^PRCA(433,"AF",RECEIPT,TRANDA)) Q:'TRANDA D
  1. . . S BILLDA=+$P($G(^PRCA(433,TRANDA,0)),"^",2)
  1. . . I $P($G(^RCD(340,+$P($G(^PRCA(430,BILLDA,0)),"^",9),0)),"^")=ACCOUNT D
  1. . . . S DATA=$G(^PRCA(433,TRANDA,3))
  1. . . . F %=1:1:11 W $C(8) ;backspace
  1. . . . W " "
  1. . . . W !?5,"Transaction: ",TRANDA
  1. . . . W !?9," Principal Collected: ",$J($P(DATA,"^"),10,2)
  1. . . . W !?9," Interest Collected: ",$J($P(DATA,"^",2),10,2)
  1. . . . W !?9," Admin Collected: ",$J($P(DATA,"^",3),10,2)
  1. . . . W !?9,"Marshal Fee Collected: ",$J($P(DATA,"^",4),10,2)
  1. . . . W !?9," Court Cost Collected: ",$J($P(DATA,"^",5),10,2)
  1. . . . W !,"<searching>"
  1. . ;
  1. . F %=1:1:11 W $C(8) ;backspace
  1. . W " "
  1. ;
  1. S VALMBCK="R"
  1. Q