PRCARPS1 ;SF-ISC/YJK-REPAYMENT PAYMENT STATEMENT ;5/21/93 10:02 PM
V ;;4.5;Accounts Receivable;**190**;Mar 20, 1995
;;Per VHA Directive 10-93-142, this routine should not be modified.
;PRINT THE PAYMENT STATEMENT FOR REPAYMENT PLAN,CALLED BY ^PRCARPS.
S ADD=$$DADD^RCAMADD(PRCA("DEBTOR"),1) ;confidential address if applicable
W:$D(IOF) @IOF W !,?PRCALN(0),"STATEMENT OF ACCOUNTS RECEIVABLE",!
I $D(DT) S Y=DT X ^DD("DD") W !!!,?PRCALN,Y
W !!,?PRCALN,$$NAM^RCFN01(PRCA("DEBTOR")),!,?PRCALN,$P(ADD,"^"),!
W ?PRCALN,$P(ADD,"^",4),", ",$P(ADD,"^",5)," ",$P(ADD,"^",6),!! Q
WRST D HEADER,LINE W ?PRCALN,"|",?PRCALN(0),"DISTRIBUTION OF PAYMENT",?PRCALL(11),"|" D LINE
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),"|"
W !,?PRCALN,"| ",PRCA("BILLN"),?PRCALL(1),"|",?PRCALN(1),"|",?PRCALN(2),"AMOUNT",?PRCALN(3),"|",?PRCALN(4),"PAYMENT",?PRCALL(11),"|"
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
W ?PRCALN,"|",?PRCALL(1),"|",?PRCALL(3),"|",?PRCALL(5),"|",?PRCALL(6),"ADMIN.",?PRCALL(7),"|",?PRCALL(9),"|",?PRCALL(11),"|"
W !,?PRCALN,"|",?PRCALL(1),"|",?PRCALL(3),"|",?PRCALL(5),"|",?PRCALL(6),"COLLECT.",?PRCALL(7),"|",?PRCALL(8),"COURT",?PRCALL(9),"|",?PRCALL(10),"MARSHAL",?PRCALL(11),"|"
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
W ?PRCALN,"| DISTRIBUTION",?PRCALL(1),"|",?PRCALL(3),"|",?PRCALL(5),"|",?PRCALL(7),"|",?PRCALL(9),"|",?PRCALL(11),"|"
W !,?PRCALN,"| OF PAYMENT",?PRCALL(1),"|",?PRCALL(2),"$",$J(PRCAPP(1),0,2),?PRCALL(3)
W "|",?PRCALL(4),"$",$J(PRCAPP(2),0,2),?PRCALL(5),"|",?PRCALL(6),"$",$J(PRCAPP(3),0,2),?PRCALL(7)
W "|",?PRCALL(8),"$",$J(PRCAPP(5),0,2),?PRCALL(9),"|",?PRCALL(10),"$",$J(PRCAPP(4),0,2),?PRCALL(11),"|" D LINE
W ?PRCALN,"| BALANCE DUE",?PRCALL(1),"|",?PRCALL(3),"|",?PRCALL(5),"|",?PRCALL(7),"|",?PRCALL(9),"|",?PRCALL(11),"|"
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),"|"
W ?PRCALL(8),"$",$J(PRCAPB(5),0,2),?PRCALL(9),"|",?PRCALL(10),"$",$J(PRCAPB(4),0,2),?PRCALL(11),"|" D LINE
D WORD1,WORD2,WORD3,REMIT,EXIT Q
WORD1 Q:+PRCADUE'>0 S Y=PRCADUE X ^DD("DD") S PRCADUE=Y
W !,?PRCALN(5),"BALANCE DUE SHOULD BE PAID IN FULL BY ",PRCADUE,!,?PRCALN(5),"TO AVOID ADDITIONAL CHARGES.",!! Q
WORD2 S Z0=0
F Z1=0:0 S Z0=$O(^RC(343,31,1,Z0)) Q:Z0="" W !,?PRCALN,^(Z0,0)
W ! K Z0,Z1 Q
WORD3 S PRCAGL5=$$SADD^RCFN01(1) Q:PRCAGL5=""
W !,?PRCALN,"* Detach and return with your next payment to:",!,?PRCALN(6),"VA MEDICAL CENTER"
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)
W !?PRCALN(6),$P(PRCAGL5,U,4),", ",$P(PRCAGL5,U,5)," ",$P(PRCAGL5,U,6),!
K PRCAGL5,Z0 Q
REMIT ;
W !," FOR PROPER CREDIT TO YOUR ACCOUNT, PLEASE DETACH AND RETURN WITH YOUR PAYMENT"
W !," ============================================================================="
W !," | PAYMENT REMITTANCE |"
W !," |---------------------------------------------------------------------------|"
W !," | *FILE NO/SSAN | NAME OF DEBTOR | AMOUNT ENCLOSED |TEL.NO |"
W !,?PRCALN," | ",PRCA("BILLN"),?17+PRCALN,"|",?48+PRCALN,"|",?68+PRCALN,"|( )",?77+PRCALN,"|"
W !,?PRCALN," | ",$$SSN^RCFN01(PRCA("DEBTOR")),?17+PRCALN,"|",?20+PRCALN,$$NAM^RCFN01(PRCA("DEBTOR")),?48+PRCALN,"|",?68+PRCALN,"|",?77+PRCALN,"|"
W !," |---------------------------------------------------------------------------|"
W !," | ENTER YOUR CURRENT ADDRESS BELOW ONLY IF THE ONE ABOVE IS INCORRECT. |"
W !," | PLEASE INCLUDE YOUR ZIP CODE. |"
W !," | |"
W !," | |"
W !," | |"
W !," | |"
W !," |---------------------------------------------------------------------------|"
W !," | *PLEASE INCLUDE THIS NUMBER ON YOUR CHECK OR MONEY ORDER |"
W !," |===========================================================================|"
K % Q
LINE W !,?PRCALN,"|" F I=1:1:77 W "-"
W "|",! K I Q
EXIT K PRCAN1,PRCA("DEBTNAM"),PRCALL,PRCALN,PRCADT,PRCADUE,PRCAMT,PRCAPP Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCARPS1 4974 printed Dec 13, 2024@01:41:16 Page 2
PRCARPS1 ;SF-ISC/YJK-REPAYMENT PAYMENT STATEMENT ;5/21/93 10:02 PM
V ;;4.5;Accounts Receivable;**190**;Mar 20, 1995
+1 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+2 ;PRINT THE PAYMENT STATEMENT FOR REPAYMENT PLAN,CALLED BY ^PRCARPS.
+1 ;confidential address if applicable
SET ADD=$$DADD^RCAMADD(PRCA("DEBTOR"),1)
+2 if $DATA(IOF)
WRITE @IOF
WRITE !,?PRCALN(0),"STATEMENT OF ACCOUNTS RECEIVABLE",!
+3 IF $DATA(DT)
SET Y=DT
XECUTE ^DD("DD")
WRITE !!!,?PRCALN,Y
+4 WRITE !!,?PRCALN,$$NAM^RCFN01(PRCA("DEBTOR")),!,?PRCALN,$PIECE(ADD,"^"),!
+5 WRITE ?PRCALN,$PIECE(ADD,"^",4),", ",$PIECE(ADD,"^",5)," ",$PIECE(ADD,"^",6),!!
QUIT
WRST DO HEADER
DO LINE
WRITE ?PRCALN,"|",?PRCALN(0),"DISTRIBUTION OF PAYMENT",?PRCALL(11),"|"
DO LINE
+1 WRITE ?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),"|"
+2 WRITE !,?PRCALN,"| ",PRCA("BILLN"),?PRCALL(1),"|",?PRCALN(1),"|",?PRCALN(2),"AMOUNT",?PRCALN(3),"|",?PRCALN(4),"PAYMENT",?PRCALL(11),"|"
+3 WRITE !,?PRCALN,"| ",$$SSN^RCFN01(PRCA("DEBTOR")),?PRCALL(1),"|",?PRCALL(2),$$NAM^RCFN01(PRCA("DEBTOR")),?PRCALN(1),"|",?PRCALN(2),"$",$JUSTIFY(PRCAMT,0,2),?PRCALN(3),"|",?PRCALN(4),PRCADT,?PRCALL(11),"|"
DO LINE
+4 WRITE ?PRCALN,"|",?PRCALL(1),"|",?PRCALL(3),"|",?PRCALL(5),"|",?PRCALL(6),"ADMIN.",?PRCALL(7),"|",?PRCALL(9),"|",?PRCALL(11),"|"
+5 WRITE !,?PRCALN,"|",?PRCALL(1),"|",?PRCALL(3),"|",?PRCALL(5),"|",?PRCALL(6),"COLLECT.",?PRCALL(7),"|",?PRCALL(8),"COURT",?PRCALL(9),"|",?PRCALL(10),"MARSHAL",?PRCALL(11),"|"
+6 WRITE !,?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),"|"
DO LINE
+7 WRITE ?PRCALN,"| DISTRIBUTION",?PRCALL(1),"|",?PRCALL(3),"|",?PRCALL(5),"|",?PRCALL(7),"|",?PRCALL(9),"|",?PRCALL(11),"|"
+8 WRITE !,?PRCALN,"| OF PAYMENT",?PRCALL(1),"|",?PRCALL(2),"$",$JUSTIFY(PRCAPP(1),0,2),?PRCALL(3)
+9 WRITE "|",?PRCALL(4),"$",$JUSTIFY(PRCAPP(2),0,2),?PRCALL(5),"|",?PRCALL(6),"$",$JUSTIFY(PRCAPP(3),0,2),?PRCALL(7)
+10 WRITE "|",?PRCALL(8),"$",$JUSTIFY(PRCAPP(5),0,2),?PRCALL(9),"|",?PRCALL(10),"$",$JUSTIFY(PRCAPP(4),0,2),?PRCALL(11),"|"
DO LINE
+11 WRITE ?PRCALN,"| BALANCE DUE",?PRCALL(1),"|",?PRCALL(3),"|",?PRCALL(5),"|",?PRCALL(7),"|",?PRCALL(9),"|",?PRCALL(11),"|"
+12 WRITE !,?PRCALN,"| AFTER PAYMENT",?PRCALL(1),"|",?PRCALL(2),"$",$JUSTIFY(PRCAPB(1),0,2),?PRCALL(3),"|",?PRCALL(4),"$",$JUSTIFY(PRCAPB(2),0,2),?PRCALL(5),"|",?PRCALL(6),"$",$JUSTIFY(PRCAPB(3),0,2),?PRCALL(7),"|"
+13 WRITE ?PRCALL(8),"$",$JUSTIFY(PRCAPB(5),0,2),?PRCALL(9),"|",?PRCALL(10),"$",$JUSTIFY(PRCAPB(4),0,2),?PRCALL(11),"|"
DO LINE
+14 DO WORD1
DO WORD2
DO WORD3
DO REMIT
DO EXIT
QUIT
WORD1 if +PRCADUE'>0
QUIT
SET Y=PRCADUE
XECUTE ^DD("DD")
SET PRCADUE=Y
+1 WRITE !,?PRCALN(5),"BALANCE DUE SHOULD BE PAID IN FULL BY ",PRCADUE,!,?PRCALN(5),"TO AVOID ADDITIONAL CHARGES.",!!
QUIT
WORD2 SET Z0=0
+1 FOR Z1=0:0
SET Z0=$ORDER(^RC(343,31,1,Z0))
if Z0=""
QUIT
WRITE !,?PRCALN,^(Z0,0)
+2 WRITE !
KILL Z0,Z1
QUIT
WORD3 SET PRCAGL5=$$SADD^RCFN01(1)
if PRCAGL5=""
QUIT
+1 WRITE !,?PRCALN,"* Detach and return with your next payment to:",!,?PRCALN(6),"VA MEDICAL CENTER"
+2 WRITE !,?PRCALN(6),"c/o Agent Cashier",!,?PRCALN(6),$PIECE(PRCAGL5,U)
if $PIECE(PRCAGL5,"^",2)]""
WRITE !?PRCALN(6),$PIECE(PRCAGL5,"^",2)
if $PIECE(PRCAGL5,"^",3)]""
WRITE !?PRCALN(6),$PIECE(PRCAGL5,"^",3)
+3 WRITE !?PRCALN(6),$PIECE(PRCAGL5,U,4),", ",$PIECE(PRCAGL5,U,5)," ",$PIECE(PRCAGL5,U,6),!
+4 KILL PRCAGL5,Z0
QUIT
REMIT ;
+1 WRITE !," FOR PROPER CREDIT TO YOUR ACCOUNT, PLEASE DETACH AND RETURN WITH YOUR PAYMENT"
+2 WRITE !," ============================================================================="
+3 WRITE !," | PAYMENT REMITTANCE |"
+4 WRITE !," |---------------------------------------------------------------------------|"
+5 WRITE !," | *FILE NO/SSAN | NAME OF DEBTOR | AMOUNT ENCLOSED |TEL.NO |"
+6 WRITE !,?PRCALN," | ",PRCA("BILLN"),?17+PRCALN,"|",?48+PRCALN,"|",?68+PRCALN,"|( )",?77+PRCALN,"|"
+7 WRITE !,?PRCALN," | ",$$SSN^RCFN01(PRCA("DEBTOR")),?17+PRCALN,"|",?20+PRCALN,$$NAM^RCFN01(PRCA("DEBTOR")),?48+PRCALN,"|",?68+PRCALN,"|",?77+PRCALN,"|"
+8 WRITE !," |---------------------------------------------------------------------------|"
+9 WRITE !," | ENTER YOUR CURRENT ADDRESS BELOW ONLY IF THE ONE ABOVE IS INCORRECT. |"
+10 WRITE !," | PLEASE INCLUDE YOUR ZIP CODE. |"
+11 WRITE !," | |"
+12 WRITE !," | |"
+13 WRITE !," | |"
+14 WRITE !," | |"
+15 WRITE !," |---------------------------------------------------------------------------|"
+16 WRITE !," | *PLEASE INCLUDE THIS NUMBER ON YOUR CHECK OR MONEY ORDER |"
+17 WRITE !," |===========================================================================|"
+18 KILL %
QUIT
LINE WRITE !,?PRCALN,"|"
FOR I=1:1:77
WRITE "-"
+1 WRITE "|",!
KILL I
QUIT
EXIT KILL PRCAN1,PRCA("DEBTNAM"),PRCALL,PRCALN,PRCADT,PRCADUE,PRCAMT,PRCAPP
QUIT
