source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBJDF811.m@ 794

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

initial load of WorldVistAEHR
File size: 7.7 KB
Line 
1IBJDF811 ;ALB/RRG - AR PRODUCTIVITY REPORT (COMPILE-cont.) ;28-DEC-00
2 ;;2.0;INTEGRATED BILLING;**123,159,192**;21-MAR-94
3 ;
41 ; increase adjustment
5 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="INCREASE ADJUSTMENT"
6 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
7 Q
8 ;
92 ; payment (in part)
10 S TRXCAT=3,TRXCATN="PAYMENT",TRXTYPN="PAYMENT (IN PART)"
11 S IB(3)=($P(IB(3),"^",1)+1)_"^"_($P(IB(3),"^",2)+IBTRAMT)_"^"_TRXCATN
12 Q
13 ;
143 ; refer to RC
15 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="REFER TO RC"
16 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
17 Q
18 ;
194 ; refer to DOJ
20 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="REFER TO DOJ"
21 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
22 Q
23 ;
245 ; reestablish to RC
25 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="REESTABLISH TO RC"
26 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
27 Q
28 ;
296 ; returned by RC
30 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="RETURNED BY RC"
31 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
32 Q
33 ;
347 ; cash collection by RC
35 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="CASH COLLECTION BY RC"
36 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
37 Q
38 ;
398 ; terminate by fiscal officer
40 S TRXCAT=7,TRXCATN="WRITE-OFF",TRXTYPN="TERMINATE BY FISCAL OFFICER"
41 S IB(7)=($P(IB(7),"^",1)+1)_"^"_($P(IB(7),"^",2)+IBTRAMT)_"^"_TRXCATN
42 Q
43 ;
449 ; terminate by compromise
45 S TRXCAT=10,TRXCATN="COMPROMISED",TRXTYPN="TERMINATE BY COMPROMISE"
46 S IB(10)=($P(IB(10),"^",1)+1)_"^"_($P(IB(10),"^",2)+IBTRAMT)_"^"_TRXCATN
47 Q
48 ;
4910 ; waived in full
50 S TRXCAT=8,TRXCATN="WAIVED",TRXTYPN="WAIVED IN FULL"
51 S IB(8)=($P(IB(8),"^",1)+1)_"^"_($P(IB(8),"^",2)+IBTRAMT)_"^"_TRXCATN
52 Q
53 ;
5411 ; waived in part
55 S TRXCAT=8,TRXCATN="WAIVED",TRXTYPN="WAIVED IN PART"
56 S IB(8)=($P(IB(8),"^",1)+1)_"^"_($P(IB(8),"^",2)+IBTRAMT)_"^"_TRXCATN
57 Q
58 ;
5912 ; admin cost charge
60 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="ADMIN COST CHARGE"
61 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
62 Q
63 ;
6413 ; interest/admin charge
65 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="INTEREST/ADMIN CHARGE"
66 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
67 Q
68 ;
6914 ; exempt interest/admin cost
70 S TRXCAT=12,TRXCATN="EXEMPTION",TRXTYPN="EXEMPT INTEREST/ADMIN COST"
71 S IB(12)=($P(IB(12),"^",1)+1)_"^"_($P(IB(12),"^",2)+IBTRAMT)_"^"_TRXCATN
72 Q
73 ;
7415 ; incomplete
75 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="INCOMPLETE"
76 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
77 Q
78 ;
7916 ; active
80 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="ACTIVE"
81 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
82 Q
83 ;
8417 ; in-active
85 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="IN-ACTIVE"
86 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
87 Q
88 ;
8918 ; new bill
90 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="NEW BILL"
91 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
92 Q
93 ;
9419 ; suspense
95 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="SUSPENSE"
96 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
97 Q
98 ;
9920 ; pending approval
100 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="PENDING APPROVAL"
101 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
102 Q
103 ;
10421 ; pending calm code
105 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="PENDING CALM CODE"
106 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
107 Q
108 ;
10922 ; collected/closed
110 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="COLLECTED/CLOSED"
111 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
112 Q
113 ;
11423 ; write-off
115 S TRXCAT=7,TRXCATN="WRITE-OFF",TRXTYPN="WRITE-OFF"
116 S IB(7)=($P(IB(7),"^",1)+1)_"^"_($P(IB(7),"^",2)+IBTRAMT)_"^"_TRXCATN
117 Q
118 ;
11924 ; marshal/court cost
120 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="MARSHAL/COURT COST"
121 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
122 Q
123 ;
12425 ; repayment plan
125 S TRXCAT=11,(TRXCATN,TRXTYPN)="REPAYMENT PLAN"
126 S IB(11)=($P(IB(11),"^",1)+1)_"^"_($P(IB(11),"^",2)+IBTRAMT)_"^"_TRXCATN
127 Q
128 ;
12926 ; cancelled bill
130 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="CANCELLED BILL"
131 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
132 Q
133 ;
13427 ; bill incomplete
135 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="BILL INCOMPLETE"
136 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
137 Q
138 ;
13928 ; old bill
140 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="OLD BILL"
141 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
142 Q
143 ;
14429 ; terminate by RC
145 S TRXCAT=10,TRXCATN="COMPROMISED",TRXTYPN="TERMINATE BY RC"
146 S IB(10)=($P(IB(10),"^",1)+1)_"^"_($P(IB(10),"^",2)+IBTRAMT)_"^"_TRXCATN
147 Q
148 ;
14930 ; debit voucher (sf 5515)
150 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="DEBIT VOUCHER (SF 5515)"
151 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
152 Q
153 ;
15431 ; returned from ar (new)
155 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="RETURNED FROM AR (NEW)"
156 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
157 Q
158 ;
15932 ; returned for amendment
160 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="RETURNED FOR AMENDMENT"
161 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
162 Q
163 ;
16433 ; amended bill
165 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="AMENDED BILL"
166 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
167 Q
168 ;
16934 ; payment (in full)
170 S TRXCAT=3,TRXCATN="PAYMENT",TRXTYPN="PAYMENT (IN FULL)"
171 S IB(3)=($P(IB(3),"^",1)+1)_"^"_($P(IB(3),"^",2)+IBTRAMT)_"^"_TRXCATN
172 Q
173 ;
17435 ; decrease adjustment
175 I +IBCONT D
176 . S TRXCAT=5,TRXCATN="DEC.ADJ./CONTR",TRXTYPN="DEC.ADJ./CONTR"
177 . S IB(5)=($P(IB(5),"^",1)+1)_"^"_($P(IB(5),"^",2)+IBTRAMT)_"^"_TRXCATN
178 I '+IBCONT D
179 . S TRXCAT=6,TRXCATN="DEC.ADJ./NON-CONTR",TRXTYPN="DEC.ADJ./NON-CONTR"
180 . S IB(6)=($P(IB(6),"^",1)+1)_"^"_($P(IB(6),"^",2)+IBTRAMT)_"^"_TRXCATN
181 Q
182 ;
18336 ; delete (amend)
184 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="DELETE (AMEND)"
185 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
186 Q
187 ;
18837 ; add (amend)
189 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="ADD (AMEND)"
190 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
191 Q
192 ;
19338 ; amend
194 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="AMEND"
195 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
196 Q
197 ;
19839 ; cancellation
199 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="CANCELLATION"
200 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
201 Q
202 ;
20340 ; suspended
204 S TRXCAT=9,(TRXCATN,TRXTYPN)="SUSPENDED"
205 S IB(9)=($P(IB(9),"^",1)+1)_"^"_($P(IB(9),"^",2)+IBTRAMT)_"^"_TRXCATN
206 Q
207 ;
20841 ; refunded
209 S TRXCAT=4,TRXCATN="REFUND",TRXTYPN="REFUNDED"
210 S IB(4)=($P(IB(4),"^",1)+1)_"^"_($P(IB(4),"^",2)+IBTRAMT)_"^"_TRXCATN
211 Q
212 ;
21342 ; open
214 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="OPEN"
215 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
216 Q
217 ;
21843 ; re-establish
219 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="RE-ESTABLISH"
220 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
221 Q
222 ;
22344 ; refund review
224 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="REFUND REVIEW"
225 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
226 Q
227 ;
22845 ; comment
229 S TRXCAT=1,(TRXCATN,TRXTYPN)="COMMENT"
230 S IB(1)=($P(IB(1),"^",1)+1)_"^"_($P(IB(1),"^",2)+IBTRAMT)_"^"_TRXCATN
231 Q
232 ;
23346 ; unsuspended
234 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="UNSUSPENDED"
235 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
236 Q
237 ;
23847 ; charge suspended
239 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="CHARGE SUSPENDED"
240 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
241 Q
242 ;
24348 ; pending archive
244 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="PENDING ARCHIVE"
245 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
246 Q
247 ;
24849 ; archived
249 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="ARCHIVED"
250 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
251 Q
252 ;
Note: See TracBrowser for help on using the repository browser.