// vc_id = "$Id: mortgageQualifier.js 9260 2006-06-09 00:14:53Z robert $"


var inc
var minc
var mdbt
var tdbtr
var hdbtr
var ddbtr
var tdbt
var mmpt
var minc
var hdbtr
var tdbtr
var ddbtr;
var pi;
var car;
var stu;
// added the period to the regExp, to allow decimals. dbaumfeld 5/27/03 BUG #358
var regExp = /([^0-9\.])/;
var replStr = "";

function caltdt(form){
var tdbt=0
var car=0
var stu=0
var oth=0
var ccp=0
car= form.car.value.replace(regExp, replStr)*1
stu =form.stu.value.replace(regExp, replStr)*1
oth =form.oth.value.replace(regExp, replStr)*1
ccp =form.ccp.value.replace(regExp, replStr)*1
  form.tbdt.value = Math.round((car+stu+oth+ccp)*100)/100
}

function mpt(form){
inc=form.inc.value.replace(regExp, replStr)
tdbtr=0
tdbtr2=0
hdbtr=0
ddbtr=0
tdbt=Math.round((form.tbdt.value.replace(regExp, replStr))*100)/100
mmpt=0
pi=0
number=0
down=form.down.value.replace(regExp, replStr)
minc= Math.round((inc / 12)*100)/100
form.minc.value=minc
hdbtr= Math.round((minc * .28)*100)/100
hdbtr1= Math.round((minc * .32)*100)/100
form.house.value=Math.round(hdbtr*100)/100
tdbtr= Math.round((minc * .37)*100)/100
tdbtr2= Math.round((minc * .42)*100)/100
form.total.value=Math.round(tdbtr*100)/100
ddbtr= (tdbtr - hdbtr)
debt= (tdbtr - tdbt)
debt1= (tdbtr2 - tdbt)
number=debt
number1=debt1

if(debt <=0){
	number=0
	}

if(debt1 <=0){
	number1=0
	}

if(debt <= hdbtr){
	form.pi.value=Math.round(number*100)/100
	}else{
	form.pi.value=Math.round(hdbtr*100)/100
	}
if(debt1 <= hdbtr1){
	form.pi1.value=Math.round(number*100)/100
	}else{
	form.pi1.value=Math.round(hdbtr*100)/100
	}
var periodic_rate=(form.rate.value*.01)/12;
var factor=0;
var base_rate=1+periodic_rate;
var denominator=base_rate;
for (var i=0;i<(form.years.value*12);i++){
         factor+=(1/denominator);
         denominator*=base_rate;}
        form.price.value=Math.round(((form.pi.value*factor)+(down*1))*100)/100;
		form.price1.value=Math.round(((form.pi1.value*factor)+(down*1))*100)/100;
        }