source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCJIBFN1.m@ 1710

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

initial load of WorldVistAEHR

File size: 3.9 KB
RevLine 
[613]1RCJIBFN1 ;WASH-ISC@ALTOONA,PA/NYB-FUNC. CALLS FOR JOINT IB/AR ;10/5/95 8:19 AM ;8/8/95 12:18 PM
2V ;;4.5;Accounts Receivable;**15**;Mar 20, 1995
3N0(RCTRNO) ;Pass IFN for 433 - Returns Pieces of 0 node of 433 where pieces are
4 ;$P1=Transaction Number,$P2=Date Calm Done,$P3=Processed By (pointer
5 ;value to 200),$P4=Incomplete Transaction Flag
6 N IFLG,N0,PBY,STRG
7 I '$G(RCTRNO) S STRG="" G N0Q
8 S N0=$G(^PRCA(433,RCTRNO,0)) I $G(N0)']"" S STRG="" G N0Q
9 S PBY=$P($G(N0),"^",9)
10 S IFLG=$P($G(N0),"^",10)
11 S IFLG=$S(IFLG="":"N/A",IFLG=0:"TRANSACTION COMPLETE",1:"INCOMPLETE TRANSACTION")
12 S STRG=$P($G(N0),"^")_"^"_$P($G(N0),"^",5)_"^"_PBY_"^"_IFLG
13N0Q Q STRG
14N1(RCTRNO) ;Pass IFN for 433 - Returns Pieces of 1 node of 433 where pieces are
15 ;$P1=Transaction Date,$P2=Transaction Type(pointer to value to 430.3)
16 ;$P3=Receipt #,$P4=Adjustment Number,$P5=Transaction Amount
17 ;$P6=Termination Reason,$P7=Date Entered
18 N N1,STRG,TREA,TRTY
19 I '$G(RCTRNO) S STRG="" G N1Q
20 S N1=$G(^PRCA(433,RCTRNO,1)) I $G(N1)']"" S STRG="" G N1Q
21 S TRTY=$P($G(N1),"^",2),TREA=$P($G(N1),"^",7)
22 S TREA=$S(TREA=9:"OTHERS",TREA=8:"INCORRECT BILLING",TREA=7:"INABILITY TO COLLECT",TREA=6:"DEBT UNDER $25",TREA=5:"COMPROMISED",TREA=4:"WAIVED",TREA=3:"INABILITY TO LOCATE",TREA=2:"BANKRUPCY",TREA=1:"DEBTOR'S DEATH",1:"")
23 S STRG=$P($G(N1),"^")_"^"_TRTY_"^"_$P($G(N1),"^",3)_"^"_$P($G(N1),"^",4)_"^"_$P($G(N1),"^",5)_"^"_TREA_"^"_$P($G(N1),"^",9)
24N1Q Q STRG
25N2(RCTRNO) ;Pass IFN for 433 - Returns Pieces of 2 node of 433 where pieces are
26 ;$P1=IRS Loc.Cost,$P2=Credit Rep. Cost,$P3=DMV Loc. Cost
27 ;$P4=Consumer Rep. Agency Cost,$P5=Marsharll Fee,$P6=Court Cost
28 ;$P7=Interest Cost,$P8=Administrative Cost
29 N N2,STRG
30 I '$G(RCTRNO) S STRG="" G N2Q
31 S N2=$G(^PRCA(433,RCTRNO,2)) I $G(N2)']"" S STRG="" G N2Q
32 S STRG=$P(N2,"^")_"^"_$P(N2,"^",2)_"^"_$P(N2,"^",3)_"^"_$P(N2,"^",4)_"^"_$P(N2,"^",5)_"^"_$P(N2,"^",6)_"^"_$P(N2,"^",7)_"^"_$P(N2,"^",8)
33N2Q Q STRG
34N3(RCTRNO) ;Pass IFN for 433 - Returns Pieces of 3 node of 433 where pieces are
35 ;$P1=Principal Collected,$P2=Interest Collected,$P3=Admin. Collected
36 ;$P4=Marshall Fee Collected,$P5=Court Cost Collected,$P6=Total Collected for this transaction number
37 N I,N3,STRG,TCOL
38 I '$G(RCTRNO) S STRG="" G N3Q
39 S TCOL=0,N3=$G(^PRCA(433,RCTRNO,3)) I $G(N3)']"" S STRG="" G N3Q
40 F I=1:1:5 S TCOL=TCOL+$P($G(N3),"^",I)
41 S STRG=+$P($G(N3),"^")_"^"_+$P($G(N3),"^",2)_"^"_+$P($G(N3),"^",3)_"^"_+$P($G(N3),"^",4)_"^"_+$P($G(N3),"^",5)_"^"_TCOL
42N3Q Q STRG
43N4(RCTRNO) ;Returns Pieces of 4 node multiple of 433 where pieces are
44 ;Caller must kill array - Fiscal Year Multiple
45 ;$P1=Fiscal Year,$P2=Principal Amount,$P3=Pat Reference #
46 ;$P4=Transaction Amount
47 N I,N4,PAT
48 I '$G(RCTRNO) S STRG="" G N4Q
49 S I=0 F S I=$O(^PRCA(433,RCTRNO,4,I)) Q:I'>0 D
50 .S N4=$G(^PRCA(433,RCTRNO,4,I,0)) I $G(N4)']"" Q
51 .S PAT=$P($G(^PRCA(433,RCTRNO,0)),"^",2)
52 .S PAT=$P($G(^PRCA(430,PAT,0)),"^")
53 .S STRG(I)=$P($G(N4),"^")_"^"_+$P(N4,"^",2)_"^"_$G(PAT)_"^"_+$P(N4,"^",5)
54 .Q
55N4Q Q
56N5(RCTRNO) ;Pass IFN for 433 - Returns Pieces of 5 node of 433 where pieces are
57 ;$P1=Breif Comment,$P2=Follow-up Date
58 N N5,STRG
59 I '$G(RCTRNO) S STRG="" G N5Q
60 S N5=$G(^PRCA(433,RCTRNO,5)) I $G(N5)']"" S STRG="" G N5Q
61 S STRG=$P($G(N5),"^",2)_"^"_$P($G(N5),"^",3)
62N5Q Q STRG
63N7(RCTRNO) ;Pass IFN for 433-Returns 7 node multiple for comments in COM array
64 ;Caller must kill local array
65 N I
66 I '$G(RCTRNO) G N7Q
67 S I=0 F S I=$O(^PRCA(433,RCTRNO,7,I)) Q:I'>0 D
68 .S COM(I)=$G(^PRCA(433,RCTRNO,7,I,0))
69 .Q
70N7Q Q
71N8(RCTRNO) ;Pass IFN for 433 - Returns Pieces of 8 node of 433 where pieces are
72 ;$P1=Principle Balance,$P2=Interest Balance,$P3=Admin. Balance
73 ;$P4=Marshal Fee,$P5=Court Cost,$P6=Total Balance after transaction
74 ;$P7=Transaction Comment
75 N I,N8,STRG,TBAL
76 I '$G(RCTRNO) S STRG="" G N8Q
77 S TBAL=0,N8=$G(^PRCA(433,RCTRNO,8)) I $G(N8)']"" S STRG="" G N8Q
78 F I=1:1:5 S TBAL=TBAL+$P($G(N8),"^",I)
79 S STRG=+$P(N8,"^")_"^"_+$P(N8,"^",2)_"^"_+$P(N8,"^",3)_"^"_+$P(N8,"^",4)_"^"_+$P(N8,"^",5)_"^"_+TBAL_"^"_$P($G(N8),"^",6)
80N8Q Q STRG
Note: See TracBrowser for help on using the repository browser.