50 lines
3.4 KiB
Mathematica
50 lines
3.4 KiB
Mathematica
PRCADR2 ;SF-ISC/YJK-PRINT ADDRESS,TRANS.,BALANCE ;3/19/97 3:19 PM
|
|
V ;;4.5;Accounts Receivable;**45,104,108,149,141,172,241**;Mar 20, 1995
|
|
;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|
;print debtor's /3rd party address,transaction,balances.
|
|
N RCDMC,RCTOP
|
|
WR1 W !!,$P(PRCAGL,U,1),?39,"SOC.SEC.NO.: ",?55,PRCASSN
|
|
W:$P(PRCAGL,U,2)'="" !,$P(PRCAGL,U,2)
|
|
W !,$P(PRCAGL,U,4),", ",PRCASTE," ",$P(PRCAGL,U,6),?39,"DATE OF BIRTH: ",?55,PRCADOB,!,"PHONE NO.: ",$P(PRCAGL,U,9),?39,"DATE POSTED: " S Y=$P($G(^PRCA(430,D0,6)),"^",21) W:'Y "N/A" I Y D DD^%DT W $P(Y,"@")," ",$P(Y,"@",2)
|
|
I $G(RCKAT) W !,"EMERGENCY RESPONSE INDICATOR: HURRICANE KATRINA"
|
|
I $G(RCDMC) W !,"****Debtor's Account Forwarded To DMC****"
|
|
I $G(RCTOP) W !,"****Debtor's Account Forwarded To TOP****"
|
|
END1 K %,PRCADOB,PRCASSN,PRCASTE,PRCAGL,Z1,Z2,Z0
|
|
Q
|
|
;
|
|
;
|
|
WR2 ;called by EN2^PRCADR
|
|
W ! S PRCAGL0=$S($D(^PRCA(433,PRCAEN,0)):^(0),1:""),PRCAG=$S($D(^PRCA(433,PRCAEN,1)):^(1),1:"") Q:(PRCAG="")!(PRCAGL0="")
|
|
S PRCATD=$P(PRCAG,U,1),PRCATY=$P(PRCAG,U,2) Q:'$D(^PRCA(430.3,+PRCATY,0)) S PRCATYPE=$P(^(0),U,3) W ?1,$S($P(PRCAGL0,U,10):"*",1:""),?2,+PRCAGL0
|
|
I $P(PRCAG,U,3)="" D
|
|
.W:PRCATYPE=17 ?10,$P($G(^PRCA(433,PRCAEN,5)),"^",2)
|
|
.W:(PRCATYPE=1)!(PRCATYPE=21) ?10,$P(PRCAG,U,4)
|
|
I $P(PRCAG,U,3)'="" W ?10,$P(PRCAG,U,3)
|
|
S:(PRCATYPE=8)!((PRCATYPE=9)!(PRCATYPE=10)) PRCA("WROFF")=PRCAEN
|
|
W:PRCATY?1N.N&(PRCATYPE'=17) ?20,$P(^PRCA(430.3,PRCATY,0),U,1) I (PRCATYPE=2)!(PRCATYPE=20),$P(^PRCA(433,PRCAEN,0),U,7)]"" W "(",$P(^(0),U,7),")"
|
|
S Y=PRCATD D DD^%DT S Y(1)=$P(Y,", ",2)
|
|
S PRCATD=$E(PRCATD,4,5)_"/"_$E(PRCATD,6,7)_"/"_Y(1)
|
|
; if a decrease adjustment, show as negative (patch 4.5*172)
|
|
I $P(PRCAG,"^",2)=35,$P(PRCAG,"^",5)>0 S $P(PRCAG,"^",5)=-$P(PRCAG,"^",5)
|
|
W ?42,PRCATD,?53,$J($P(PRCAG,U,5),9,2) W:+$P(PRCAGL0,U,4)<2 ?67,"INCOMPLETE"
|
|
END2 K PRCAG,PRCATD,PRCATY,PRCATYPE,PRCAGL0
|
|
Q ;end of WR2
|
|
;
|
|
;
|
|
WR3 W !,?17,"BALANCES",?31,"PAID"
|
|
W !,?44,"LETTER1/ICD:",?58,PRCAL(1)
|
|
W !,"PRINCIPAL:",?16,$J(PRCAK("PB"),9,2),?26,$J(PRCAK("PP"),9,2),?44,"LETTER2:",?58,PRCAL(2)
|
|
W !,"INTEREST:",?16,$J(PRCAK("IB"),9,2),?26,$J(PRCAK("IP"),9,2),?44,"LETTER3:",?58,PRCAL(3)
|
|
W !,"ADMINISTRATIVE:",?16,$J(PRCAK("AB"),9,2),?26,$J(PRCAK("AP"),9,2),?44,"IRS LETTER:",?58,PRCAL(6)
|
|
W ! W:PRCAK("MF")>0 "MARSHAL FEE:",?16,$J(PRCAK("MF"),9,2),?26,$J(0,9,2) W ?44,PRCACODE_" REF.DATE:",?62,PRCAL(4)
|
|
W:PRCAK("CC")>0 !,"COURT COST:",?16,$J(PRCAK("CC"),9,2),?26,$J(0,9,2)
|
|
W !,"CURRENT:",?16,$J(PRCAK("PB")+PRCAK("IB")+PRCAK("AB")+PRCAK("MF")+PRCAK("CC"),9,2),?26,$J(PRCAK("PP")+PRCAK("AP")+PRCAK("IP"),9,2)
|
|
K PRCAL I $D(^PRCA(430,D0,6)) S PRCAL=^(6) I $P(PRCAL,"^",15)]"" W !!," Date forwarded to IRS: " S Y=$P(PRCAL,"^",15) D DD^%DT W Y
|
|
I $D(PRCAL),$P(PRCAL,"^",16)]"" W !,"Prin/Int/Admin IRS balance: " F X=16:1:18 W +$P(PRCAL,"^",X),"/"
|
|
K PRCAL I $G(^PRCA(430,D0,12)) S PRCAL=^(12) I $P(PRCAL,U)]"" W !!," Date forwarded to DMC: " S Y=$P(PRCAL,U) D DD^%DT W Y
|
|
I $D(PRCAL),$P(PRCAL,U,2)]"" W !,"Prin/Int/Admin DMC balance: " F X=2:1:4 W +$P(PRCAL,U,X),"/"
|
|
I $D(PRCAL),$P($G(^RCD(340,(+$P(^PRCA(430,D0,0),"^",9)),3)),"^",9)'="" W !,"Lesser Withhold Amt to DMC: ",$J($P(^(3),"^",9),0,2)
|
|
K PRCAL I $G(^PRCA(430,D0,14)) S PRCAL=^(14) I $P(PRCAL,U)]"" W !!,"Date forwarded to TOP: " S Y=$P(PRCAL,U) D DD^%DT W Y
|
|
I $D(PRCAL),$P($G(^RCD(340,(+$P(^PRCA(430,D0,0),"^",9)),6)),"^",6)'="" W !,"TOP Hold Date: " S Y=$P(^(6),"^",6) D DD^%DT W Y
|
|
END3 K PRCAL,PRCACODE,PRCALT,PRCAK,PRCAGL6,PRCAGL7 Q
|