**********
* TAB#4 - DETERMINE NUMBER OF DEPOSITS SINCE ANNIVESARY DATE
**********
TotDeposits = MVCount(InvestmentRec<LV$DEPOSITS>,VM$)
**********
* LOOP THROUGH DEPOSITS AND PACK DATA ARRAY TO AUTO-FILL TBL_DEPOSIT TAB#4 OF FORM; COL:ROW
**********
for k = 1 to TotDeposits
	DepositArray<1,k> = oconv(InvestmentRec<LV$DEPOSIT_DATE,k>,'D4/')			;* COL#1 - DEPOSIT DATE
	DepositArray<2,k> = 'POSTED'															;* COL#2 - TYPE (POSTED OR REVERSAL)
	**********
	* DETERMINE IF DEPOSIT IS INITIAL DEPOSIT
	**********
	if InvestmentRec<LV$DEPOSIT_DATE,k> = InvestmentRec<LV$ANNIVERSARY_DATE> then
		DepositArray<3,k> = 'INITIAL DEPOSIT'											;* COL#3 - DESCRIPTION	
	end else
		DepositArray<3,k> = 'N/A'															;* COL#3 - DESCRIPTION																												
	end
	DepositArray<4,k> = oconv(InvestmentRec<LV$DEPOSITS,k>,'MD2$,')			;* COL#4 - DEPOSIT AMOUNT
	DepositArray<5,k> = 'N/A'																;* COL#5 - DATE PROCESSED			NEEDS FIXIT ROUTINE
next k
**********
* TAB#4 - DETERMINE NUMBER OF INTEREST DEPOSITS SINCE ANNIVESARY DATE
**********
TotInterest = MVCount(InvestmentRec<LV$INTEREST>,VM$)
**********
* LOOP THROUGH INTEREST DEPOSITS AND PACK DATA ARRAY TO AUTO-FILL TBL_DEPOSIT TAB#4 OF FORM; COL:ROW
**********
for k = 1 to TotInterest
	InterestArray<1,k> = oconv(InvestmentRec<LV$INTEREST_DATE,k>,'D4/')		;* COL#1 - DEPOSIT DATE
	InterestArray<2,k> = 'POSTED'															;* COL#2 - TYPE (POSTED OR REVERSAL)
	InterestArray<3,k> = 'INTEREST DEPOSIT'											;* COL#3 - DESCRIPTION
	InterestArray<4,k> = oconv(InvestmentRec<LV$INTEREST,k>,'MD2$,')			;* COL#4 - DEPOSIT AMOUNT
	InterestArray<5,k> = 'N/A'																;* COL#5 - DATE PROCESSED
next k
**********
* JOIN INTEREST ARRAY INTO DEPOSIT ARRAY
**********
for k = 1 to 5
	DepositArray<k> = DepositArray<k>:VM$:InterestArray<k>
next k
**********
* SORT ARRAY FOR EDITTABLE BASED ON COL#1 - DATE
**********
SortedArray = SRP_Array('SortRows',DepositArray,'AL1')
**********
* TAB#4 - REORDER SORT BY ASCENDING LEFT AND DISPLAY ALL DEPOSITS, INCLUDING INITIAL DEPOSIT (INCLUDES INTEREST DEPOSITS)
**********
stat = Set_Property(Window:'.TBL_LODGE_DEPOSITS','ARRAY',SortedArray)