%
% 9.06.2008 v1.1 
%

varda_model_loan:- 

	ard_att_add('Loan'),
 	ard_property_add(['Loan']),

 	ard_att_add('CusDa'),
	ard_att_add('LoanDa'),
	ard_att_add('IncVal'),
	ard_att_add('LoanReq'),
	ard_att_add(debtRec),
 	ard_finalize(['Loan'],['CusDa','LoanDa','IncVal','LoanReq',debtRec]),

 	ard_split(['CusDa','LoanDa','IncVal','LoanReq',debtRec],
		  [['CusDa'],['LoanDa'],['IncVal'],['LoanReq'],[debtRec]],
		  [[['CusDa'],['IncVal']],
		   [['LoanDa'],['IncVal']],
                   [['IncVal'],[debtRec]],
		   [['LoanReq'],[debtRec]]]),

	ard_att_add(monthlyIncome),
	ard_att_add(monthlyDebt),
	ard_att_add(preCust),
 	ard_finalize(['CusDa'],[monthlyIncome,monthlyDebt,preCust]),

	ard_split([monthlyIncome,monthlyDebt,preCust],
		  [[monthlyIncome,monthlyDebt],[preCust]],
		  [[[monthlyIncome,monthlyDebt],[preCust]],
		   [[preCust],['IncVal']]]),

	ard_split([monthlyIncome,monthlyDebt],
		  [[monthlyIncome],[monthlyDebt]],
		  [[[monthlyIncome],[preCust]],
		   [[monthlyDebt],[preCust]]]),

 	ard_att_add(amount),
	ard_att_add(term),
	ard_att_add(preQual),
 	ard_finalize(['LoanDa'],[amount,term,preQual]),

	ard_split([amount,term,preQual],
		  [[amount,term],[preQual]],
		  [[[amount,term],[preQual]],
		   [[preQual],['IncVal']]]),

	ard_split([amount,term],
		  [[amount],[term]],
		  [[[amount],[preQual]],
		   [[term],[preQual]]]),

 	ard_att_add(incValRes),
 	ard_finalize(['IncVal'],[incValRes]),

 	ard_att_add(mortageHolder),
	ard_att_add(outsideCreditScore),
	ard_att_add(loanHolder),
	ard_att_add(creditCardBalance),
	ard_att_add(educationLoanBalance),
	ard_att_add(internalCreditRating),
	ard_att_add(internalAnalystOpinion),
 	ard_finalize(['LoanReq'],
		     [mortageHolder,outsideCreditScore,loanHolder,creditCardBalance,educationLoanBalance,internalCreditRating,internalAnalystOpinion]),

	ard_split([mortageHolder,outsideCreditScore,loanHolder,creditCardBalance,educationLoanBalance,internalCreditRating,internalAnalystOpinion],
		  [[mortageHolder],[outsideCreditScore],[loanHolder],[creditCardBalance],[educationLoanBalance],[internalCreditRating],[internalAnalystOpinion]],
		  [[[mortageHolder],[debtRec]],
		  [[outsideCreditScore],[debtRec]],
		  [[loanHolder],[debtRec]],
		  [[creditCardBalance],[debtRec]],
		  [[educationLoanBalance],[debtRec]],
		  [[internalCreditRating],[debtRec]],
		  [[internalAnalystOpinion],[debtRec]]]).

:- varda_model_loan.