IBJDF811 ;ALB/RRG - AR PRODUCTIVITY REPORT (COMPILE-cont.) ;28-DEC-00
;;2.0;INTEGRATED BILLING;**123,159,192**;21-MAR-94
;
1 ; increase adjustment
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="INCREASE ADJUSTMENT"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
2 ; payment (in part)
S TRXCAT=3,TRXCATN="PAYMENT",TRXTYPN="PAYMENT (IN PART)"
S IB(3)=($P(IB(3),"^",1)+1)_"^"_($P(IB(3),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
3 ; refer to RC
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="REFER TO RC"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
4 ; refer to DOJ
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="REFER TO DOJ"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
5 ; reestablish to RC
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="REESTABLISH TO RC"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
6 ; returned by RC
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="RETURNED BY RC"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
7 ; cash collection by RC
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="CASH COLLECTION BY RC"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
8 ; terminate by fiscal officer
S TRXCAT=7,TRXCATN="WRITE-OFF",TRXTYPN="TERMINATE BY FISCAL OFFICER"
S IB(7)=($P(IB(7),"^",1)+1)_"^"_($P(IB(7),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
9 ; terminate by compromise
S TRXCAT=10,TRXCATN="COMPROMISED",TRXTYPN="TERMINATE BY COMPROMISE"
S IB(10)=($P(IB(10),"^",1)+1)_"^"_($P(IB(10),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
10 ; waived in full
S TRXCAT=8,TRXCATN="WAIVED",TRXTYPN="WAIVED IN FULL"
S IB(8)=($P(IB(8),"^",1)+1)_"^"_($P(IB(8),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
11 ; waived in part
S TRXCAT=8,TRXCATN="WAIVED",TRXTYPN="WAIVED IN PART"
S IB(8)=($P(IB(8),"^",1)+1)_"^"_($P(IB(8),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
12 ; admin cost charge
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="ADMIN COST CHARGE"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
13 ; interest/admin charge
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="INTEREST/ADMIN CHARGE"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
14 ; exempt interest/admin cost
S TRXCAT=12,TRXCATN="EXEMPTION",TRXTYPN="EXEMPT INTEREST/ADMIN COST"
S IB(12)=($P(IB(12),"^",1)+1)_"^"_($P(IB(12),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
15 ; incomplete
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="INCOMPLETE"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
16 ; active
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="ACTIVE"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
17 ; in-active
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="IN-ACTIVE"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
18 ; new bill
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="NEW BILL"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
19 ; suspense
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="SUSPENSE"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
20 ; pending approval
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="PENDING APPROVAL"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
21 ; pending calm code
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="PENDING CALM CODE"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
22 ; collected/closed
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="COLLECTED/CLOSED"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
23 ; write-off
S TRXCAT=7,TRXCATN="WRITE-OFF",TRXTYPN="WRITE-OFF"
S IB(7)=($P(IB(7),"^",1)+1)_"^"_($P(IB(7),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
24 ; marshal/court cost
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="MARSHAL/COURT COST"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
25 ; repayment plan
S TRXCAT=11,(TRXCATN,TRXTYPN)="REPAYMENT PLAN"
S IB(11)=($P(IB(11),"^",1)+1)_"^"_($P(IB(11),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
26 ; cancelled bill
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="CANCELLED BILL"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
27 ; bill incomplete
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="BILL INCOMPLETE"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
28 ; old bill
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="OLD BILL"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
29 ; terminate by RC
S TRXCAT=10,TRXCATN="COMPROMISED",TRXTYPN="TERMINATE BY RC"
S IB(10)=($P(IB(10),"^",1)+1)_"^"_($P(IB(10),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
30 ; debit voucher (sf 5515)
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="DEBIT VOUCHER (SF 5515)"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
31 ; returned from ar (new)
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="RETURNED FROM AR (NEW)"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
32 ; returned for amendment
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="RETURNED FOR AMENDMENT"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
33 ; amended bill
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="AMENDED BILL"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
34 ; payment (in full)
S TRXCAT=3,TRXCATN="PAYMENT",TRXTYPN="PAYMENT (IN FULL)"
S IB(3)=($P(IB(3),"^",1)+1)_"^"_($P(IB(3),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
35 ; decrease adjustment
I +IBCONT D
. S TRXCAT=5,TRXCATN="DEC.ADJ./CONTR",TRXTYPN="DEC.ADJ./CONTR"
. S IB(5)=($P(IB(5),"^",1)+1)_"^"_($P(IB(5),"^",2)+IBTRAMT)_"^"_TRXCATN
I '+IBCONT D
. S TRXCAT=6,TRXCATN="DEC.ADJ./NON-CONTR",TRXTYPN="DEC.ADJ./NON-CONTR"
. S IB(6)=($P(IB(6),"^",1)+1)_"^"_($P(IB(6),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
36 ; delete (amend)
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="DELETE (AMEND)"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
37 ; add (amend)
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="ADD (AMEND)"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
38 ; amend
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="AMEND"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
39 ; cancellation
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="CANCELLATION"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
40 ; suspended
S TRXCAT=9,(TRXCATN,TRXTYPN)="SUSPENDED"
S IB(9)=($P(IB(9),"^",1)+1)_"^"_($P(IB(9),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
41 ; refunded
S TRXCAT=4,TRXCATN="REFUND",TRXTYPN="REFUNDED"
S IB(4)=($P(IB(4),"^",1)+1)_"^"_($P(IB(4),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
42 ; open
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="OPEN"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
43 ; re-establish
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="RE-ESTABLISH"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
44 ; refund review
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="REFUND REVIEW"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
45 ; comment
S TRXCAT=1,(TRXCATN,TRXTYPN)="COMMENT"
S IB(1)=($P(IB(1),"^",1)+1)_"^"_($P(IB(1),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
46 ; unsuspended
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="UNSUSPENDED"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
47 ; charge suspended
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="CHARGE SUSPENDED"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
48 ; pending archive
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="PENDING ARCHIVE"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
49 ; archived
S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="ARCHIVED"
S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBJDF811 8087 printed Apr 09, 2024@21:36:09 Page 2
IBJDF811 ;ALB/RRG - AR PRODUCTIVITY REPORT (COMPILE-cont.) ;28-DEC-00
+1 ;;2.0;INTEGRATED BILLING;**123,159,192**;21-MAR-94
+2 ;
1 ; increase adjustment
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="INCREASE ADJUSTMENT"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
2 ; payment (in part)
+1 SET TRXCAT=3
SET TRXCATN="PAYMENT"
SET TRXTYPN="PAYMENT (IN PART)"
+2 SET IB(3)=($PIECE(IB(3),"^",1)+1)_"^"_($PIECE(IB(3),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
3 ; refer to RC
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="REFER TO RC"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
4 ; refer to DOJ
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="REFER TO DOJ"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
5 ; reestablish to RC
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="REESTABLISH TO RC"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
6 ; returned by RC
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="RETURNED BY RC"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
7 ; cash collection by RC
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="CASH COLLECTION BY RC"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
8 ; terminate by fiscal officer
+1 SET TRXCAT=7
SET TRXCATN="WRITE-OFF"
SET TRXTYPN="TERMINATE BY FISCAL OFFICER"
+2 SET IB(7)=($PIECE(IB(7),"^",1)+1)_"^"_($PIECE(IB(7),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
9 ; terminate by compromise
+1 SET TRXCAT=10
SET TRXCATN="COMPROMISED"
SET TRXTYPN="TERMINATE BY COMPROMISE"
+2 SET IB(10)=($PIECE(IB(10),"^",1)+1)_"^"_($PIECE(IB(10),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
10 ; waived in full
+1 SET TRXCAT=8
SET TRXCATN="WAIVED"
SET TRXTYPN="WAIVED IN FULL"
+2 SET IB(8)=($PIECE(IB(8),"^",1)+1)_"^"_($PIECE(IB(8),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
11 ; waived in part
+1 SET TRXCAT=8
SET TRXCATN="WAIVED"
SET TRXTYPN="WAIVED IN PART"
+2 SET IB(8)=($PIECE(IB(8),"^",1)+1)_"^"_($PIECE(IB(8),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
12 ; admin cost charge
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="ADMIN COST CHARGE"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
13 ; interest/admin charge
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="INTEREST/ADMIN CHARGE"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
14 ; exempt interest/admin cost
+1 SET TRXCAT=12
SET TRXCATN="EXEMPTION"
SET TRXTYPN="EXEMPT INTEREST/ADMIN COST"
+2 SET IB(12)=($PIECE(IB(12),"^",1)+1)_"^"_($PIECE(IB(12),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
15 ; incomplete
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="INCOMPLETE"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
16 ; active
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="ACTIVE"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
17 ; in-active
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="IN-ACTIVE"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
18 ; new bill
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="NEW BILL"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
19 ; suspense
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="SUSPENSE"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
20 ; pending approval
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="PENDING APPROVAL"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
21 ; pending calm code
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="PENDING CALM CODE"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
22 ; collected/closed
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="COLLECTED/CLOSED"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
23 ; write-off
+1 SET TRXCAT=7
SET TRXCATN="WRITE-OFF"
SET TRXTYPN="WRITE-OFF"
+2 SET IB(7)=($PIECE(IB(7),"^",1)+1)_"^"_($PIECE(IB(7),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
24 ; marshal/court cost
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="MARSHAL/COURT COST"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
25 ; repayment plan
+1 SET TRXCAT=11
SET (TRXCATN,TRXTYPN)="REPAYMENT PLAN"
+2 SET IB(11)=($PIECE(IB(11),"^",1)+1)_"^"_($PIECE(IB(11),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
26 ; cancelled bill
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="CANCELLED BILL"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
27 ; bill incomplete
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="BILL INCOMPLETE"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
28 ; old bill
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="OLD BILL"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
29 ; terminate by RC
+1 SET TRXCAT=10
SET TRXCATN="COMPROMISED"
SET TRXTYPN="TERMINATE BY RC"
+2 SET IB(10)=($PIECE(IB(10),"^",1)+1)_"^"_($PIECE(IB(10),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
30 ; debit voucher (sf 5515)
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="DEBIT VOUCHER (SF 5515)"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
31 ; returned from ar (new)
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="RETURNED FROM AR (NEW)"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
32 ; returned for amendment
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="RETURNED FOR AMENDMENT"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
33 ; amended bill
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="AMENDED BILL"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
34 ; payment (in full)
+1 SET TRXCAT=3
SET TRXCATN="PAYMENT"
SET TRXTYPN="PAYMENT (IN FULL)"
+2 SET IB(3)=($PIECE(IB(3),"^",1)+1)_"^"_($PIECE(IB(3),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
35 ; decrease adjustment
+1 IF +IBCONT
Begin DoDot:1
+2 SET TRXCAT=5
SET TRXCATN="DEC.ADJ./CONTR"
SET TRXTYPN="DEC.ADJ./CONTR"
+3 SET IB(5)=($PIECE(IB(5),"^",1)+1)_"^"_($PIECE(IB(5),"^",2)+IBTRAMT)_"^"_TRXCATN
End DoDot:1
+4 IF '+IBCONT
Begin DoDot:1
+5 SET TRXCAT=6
SET TRXCATN="DEC.ADJ./NON-CONTR"
SET TRXTYPN="DEC.ADJ./NON-CONTR"
+6 SET IB(6)=($PIECE(IB(6),"^",1)+1)_"^"_($PIECE(IB(6),"^",2)+IBTRAMT)_"^"_TRXCATN
End DoDot:1
+7 QUIT
+8 ;
36 ; delete (amend)
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="DELETE (AMEND)"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
37 ; add (amend)
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="ADD (AMEND)"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
38 ; amend
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="AMEND"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
39 ; cancellation
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="CANCELLATION"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
40 ; suspended
+1 SET TRXCAT=9
SET (TRXCATN,TRXTYPN)="SUSPENDED"
+2 SET IB(9)=($PIECE(IB(9),"^",1)+1)_"^"_($PIECE(IB(9),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
41 ; refunded
+1 SET TRXCAT=4
SET TRXCATN="REFUND"
SET TRXTYPN="REFUNDED"
+2 SET IB(4)=($PIECE(IB(4),"^",1)+1)_"^"_($PIECE(IB(4),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
42 ; open
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="OPEN"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
43 ; re-establish
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="RE-ESTABLISH"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
44 ; refund review
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="REFUND REVIEW"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
45 ; comment
+1 SET TRXCAT=1
SET (TRXCATN,TRXTYPN)="COMMENT"
+2 SET IB(1)=($PIECE(IB(1),"^",1)+1)_"^"_($PIECE(IB(1),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
46 ; unsuspended
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="UNSUSPENDED"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
47 ; charge suspended
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="CHARGE SUSPENDED"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
48 ; pending archive
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="PENDING ARCHIVE"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
49 ; archived
+1 SET TRXCAT=13
SET TRXCATN="OTHER"
SET TRXTYPN="ARCHIVED"
+2 SET IB(13)=($PIECE(IB(13),"^",1)+1)_"^"_($PIECE(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN
+3 QUIT
+4 ;
