| 1 | PRCARPS1 ;SF-ISC/YJK-REPAYMENT PAYMENT STATEMENT ;5/21/93 10:02 PM
|
|---|
| 2 | V ;;4.5;Accounts Receivable;**190**;Mar 20, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;PRINT THE PAYMENT STATEMENT FOR REPAYMENT PLAN,CALLED BY ^PRCARPS.
|
|---|
| 5 | HEADER NEW ADD
|
|---|
| 6 | S ADD=$$DADD^RCAMADD(PRCA("DEBTOR"),1) ;confidential address if applicable
|
|---|
| 7 | W:$D(IOF) @IOF W !,?PRCALN(0),"STATEMENT OF ACCOUNTS RECEIVABLE",!
|
|---|
| 8 | I $D(DT) S Y=DT X ^DD("DD") W !!!,?PRCALN,Y
|
|---|
| 9 | W !!,?PRCALN,$$NAM^RCFN01(PRCA("DEBTOR")),!,?PRCALN,$P(ADD,"^"),!
|
|---|
| 10 | W ?PRCALN,$P(ADD,"^",4),", ",$P(ADD,"^",5)," ",$P(ADD,"^",6),!! Q
|
|---|
| 11 | WRST D HEADER,LINE W ?PRCALN,"|",?PRCALN(0),"DISTRIBUTION OF PAYMENT",?PRCALL(11),"|" D LINE
|
|---|
| 12 | W ?PRCALN,"| FILE NO./SSN",?PRCALL(1),"|",?PRCALL(2),"NAME OF PERSON ENTITLED",?PRCALN(1),"|",?PRCALN(2),"PAYMENT",?PRCALN(3),"|",?PRCALN(4),"DATE OF",?PRCALL(11),"|"
|
|---|
| 13 | W !,?PRCALN,"| ",PRCA("BILLN"),?PRCALL(1),"|",?PRCALN(1),"|",?PRCALN(2),"AMOUNT",?PRCALN(3),"|",?PRCALN(4),"PAYMENT",?PRCALL(11),"|"
|
|---|
| 14 | W !,?PRCALN,"| ",$$SSN^RCFN01(PRCA("DEBTOR")),?PRCALL(1),"|",?PRCALL(2),$$NAM^RCFN01(PRCA("DEBTOR")),?PRCALN(1),"|",?PRCALN(2),"$",$J(PRCAMT,0,2),?PRCALN(3),"|",?PRCALN(4),PRCADT,?PRCALL(11),"|" D LINE
|
|---|
| 15 | W ?PRCALN,"|",?PRCALL(1),"|",?PRCALL(3),"|",?PRCALL(5),"|",?PRCALL(6),"ADMIN.",?PRCALL(7),"|",?PRCALL(9),"|",?PRCALL(11),"|"
|
|---|
| 16 | W !,?PRCALN,"|",?PRCALL(1),"|",?PRCALL(3),"|",?PRCALL(5),"|",?PRCALL(6),"COLLECT.",?PRCALL(7),"|",?PRCALL(8),"COURT",?PRCALL(9),"|",?PRCALL(10),"MARSHAL",?PRCALL(11),"|"
|
|---|
| 17 | W !,?PRCALN,"|",?PRCALL(1),"|",?PRCALL(2),"PRINCIPAL",?PRCALL(3),"|",?PRCALL(4),"INTEREST",?PRCALL(5),"|",?PRCALL(6),"COSTS",?PRCALL(7),"|",?PRCALL(8),"COSTS",?PRCALL(9),"|",?PRCALL(10),"FEES",?PRCALL(11),"|" D LINE
|
|---|
| 18 | W ?PRCALN,"| DISTRIBUTION",?PRCALL(1),"|",?PRCALL(3),"|",?PRCALL(5),"|",?PRCALL(7),"|",?PRCALL(9),"|",?PRCALL(11),"|"
|
|---|
| 19 | W !,?PRCALN,"| OF PAYMENT",?PRCALL(1),"|",?PRCALL(2),"$",$J(PRCAPP(1),0,2),?PRCALL(3)
|
|---|
| 20 | W "|",?PRCALL(4),"$",$J(PRCAPP(2),0,2),?PRCALL(5),"|",?PRCALL(6),"$",$J(PRCAPP(3),0,2),?PRCALL(7)
|
|---|
| 21 | W "|",?PRCALL(8),"$",$J(PRCAPP(5),0,2),?PRCALL(9),"|",?PRCALL(10),"$",$J(PRCAPP(4),0,2),?PRCALL(11),"|" D LINE
|
|---|
| 22 | W ?PRCALN,"| BALANCE DUE",?PRCALL(1),"|",?PRCALL(3),"|",?PRCALL(5),"|",?PRCALL(7),"|",?PRCALL(9),"|",?PRCALL(11),"|"
|
|---|
| 23 | W !,?PRCALN,"| AFTER PAYMENT",?PRCALL(1),"|",?PRCALL(2),"$",$J(PRCAPB(1),0,2),?PRCALL(3),"|",?PRCALL(4),"$",$J(PRCAPB(2),0,2),?PRCALL(5),"|",?PRCALL(6),"$",$J(PRCAPB(3),0,2),?PRCALL(7),"|"
|
|---|
| 24 | W ?PRCALL(8),"$",$J(PRCAPB(5),0,2),?PRCALL(9),"|",?PRCALL(10),"$",$J(PRCAPB(4),0,2),?PRCALL(11),"|" D LINE
|
|---|
| 25 | D WORD1,WORD2,WORD3,REMIT,EXIT Q
|
|---|
| 26 | WORD1 Q:+PRCADUE'>0 S Y=PRCADUE X ^DD("DD") S PRCADUE=Y
|
|---|
| 27 | W !,?PRCALN(5),"BALANCE DUE SHOULD BE PAID IN FULL BY ",PRCADUE,!,?PRCALN(5),"TO AVOID ADDITIONAL CHARGES.",!! Q
|
|---|
| 28 | WORD2 S Z0=0
|
|---|
| 29 | F Z1=0:0 S Z0=$O(^RC(343,31,1,Z0)) Q:Z0="" W !,?PRCALN,^(Z0,0)
|
|---|
| 30 | W ! K Z0,Z1 Q
|
|---|
| 31 | WORD3 S PRCAGL5=$$SADD^RCFN01(1) Q:PRCAGL5=""
|
|---|
| 32 | W !,?PRCALN,"* Detach and return with your next payment to:",!,?PRCALN(6),"VA MEDICAL CENTER"
|
|---|
| 33 | W !,?PRCALN(6),"c/o Agent Cashier",!,?PRCALN(6),$P(PRCAGL5,U) W:$P(PRCAGL5,"^",2)]"" !?PRCALN(6),$P(PRCAGL5,"^",2) W:$P(PRCAGL5,"^",3)]"" !?PRCALN(6),$P(PRCAGL5,"^",3)
|
|---|
| 34 | W !?PRCALN(6),$P(PRCAGL5,U,4),", ",$P(PRCAGL5,U,5)," ",$P(PRCAGL5,U,6),!
|
|---|
| 35 | K PRCAGL5,Z0 Q
|
|---|
| 36 | REMIT ;
|
|---|
| 37 | W !," FOR PROPER CREDIT TO YOUR ACCOUNT, PLEASE DETACH AND RETURN WITH YOUR PAYMENT"
|
|---|
| 38 | W !," ============================================================================="
|
|---|
| 39 | W !," | PAYMENT REMITTANCE |"
|
|---|
| 40 | W !," |---------------------------------------------------------------------------|"
|
|---|
| 41 | W !," | *FILE NO/SSAN | NAME OF DEBTOR | AMOUNT ENCLOSED |TEL.NO |"
|
|---|
| 42 | W !,?PRCALN," | ",PRCA("BILLN"),?17+PRCALN,"|",?48+PRCALN,"|",?68+PRCALN,"|( )",?77+PRCALN,"|"
|
|---|
| 43 | W !,?PRCALN," | ",$$SSN^RCFN01(PRCA("DEBTOR")),?17+PRCALN,"|",?20+PRCALN,$$NAM^RCFN01(PRCA("DEBTOR")),?48+PRCALN,"|",?68+PRCALN,"|",?77+PRCALN,"|"
|
|---|
| 44 | W !," |---------------------------------------------------------------------------|"
|
|---|
| 45 | W !," | ENTER YOUR CURRENT ADDRESS BELOW ONLY IF THE ONE ABOVE IS INCORRECT. |"
|
|---|
| 46 | W !," | PLEASE INCLUDE YOUR ZIP CODE. |"
|
|---|
| 47 | W !," | |"
|
|---|
| 48 | W !," | |"
|
|---|
| 49 | W !," | |"
|
|---|
| 50 | W !," | |"
|
|---|
| 51 | W !," |---------------------------------------------------------------------------|"
|
|---|
| 52 | W !," | *PLEASE INCLUDE THIS NUMBER ON YOUR CHECK OR MONEY ORDER |"
|
|---|
| 53 | W !," |===========================================================================|"
|
|---|
| 54 | K % Q
|
|---|
| 55 | LINE W !,?PRCALN,"|" F I=1:1:77 W "-"
|
|---|
| 56 | W "|",! K I Q
|
|---|
| 57 | EXIT K PRCAN1,PRCA("DEBTNAM"),PRCALL,PRCALN,PRCADT,PRCADUE,PRCAMT,PRCAPP Q
|
|---|
