Routine: IBJDF811

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

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

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

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

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

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

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

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

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

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

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

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

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

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

15 ; incomplete

 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="INCOMPLETE"

 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN

16 ; active

 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="ACTIVE"

 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN

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

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

19 ; suspense

 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="SUSPENSE"

 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN

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

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

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

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

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

25 ; repayment plan

 S TRXCAT=11,(TRXCATN,TRXTYPN)="REPAYMENT PLAN"

 S IB(11)=($P(IB(11),"^",1)+1)_"^"_($P(IB(11),"^",2)+IBTRAMT)_"^"_TRXCATN

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

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

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

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

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

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

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

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

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

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

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

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

38 ; amend

 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="AMEND"

 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN

39 ; cancellation

 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="CANCELLATION"

 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN

40 ; suspended

 S TRXCAT=9,(TRXCATN,TRXTYPN)="SUSPENDED"

 S IB(9)=($P(IB(9),"^",1)+1)_"^"_($P(IB(9),"^",2)+IBTRAMT)_"^"_TRXCATN

41 ; refunded

 S TRXCAT=4,TRXCATN="REFUND",TRXTYPN="REFUNDED"

 S IB(4)=($P(IB(4),"^",1)+1)_"^"_($P(IB(4),"^",2)+IBTRAMT)_"^"_TRXCATN

42 ; open

 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="OPEN"

 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN

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

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

45 ; comment

 S TRXCAT=1,(TRXCATN,TRXTYPN)="COMMENT"

 S IB(1)=($P(IB(1),"^",1)+1)_"^"_($P(IB(1),"^",2)+IBTRAMT)_"^"_TRXCATN

46 ; unsuspended

 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="UNSUSPENDED"

 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN

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

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

49 ; archived

 S TRXCAT=13,TRXCATN="OTHER",TRXTYPN="ARCHIVED"

 S IB(13)=($P(IB(13),"^",1)+1)_"^"_($P(IB(13),"^",2)+IBTRAMT)_"^"_TRXCATN

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBJDF811   8087     printed  Mar 13, 2025@21:28:06                                                                                                                                                                                                    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       ;

IBJDF811.m