//Set up the HTML page to have R1C2 arrangements for text box names

var e = new Array();
var A = new Array();//child support table
var el; var tr; var fa; //el is the number of elements, tr is a true/false one time message
// fa is the weekly, biweekly, monthly, annually selected index number factor
var Ent = false //first time thru message
var In; //total income for checks on low and high cases
var Nd;//number of dependents Custodial parent
var NNd;//number of dependents Non-custodial parent
var BCS=0;//basic child support for total for custodial dependents
var NBCS=0;//basic child support for total for non-custodial dependents
var NWin;//the instruction window variable

function SetArray()//first to run, sets array of names
{
  el = r.elements.length;
  for (var i = 0; i < el; i++) {
    e[i] = r.elements[i].name;
  }
  return;
}

function Mess(t)//message that this cell is not editable, "t" is passed as "this"
{
 if (tr != true){ 
  tr = true;
  var M = "Fields marked \"Calculated\"\nno entry is required.\nThey will be replaced with calculated values.";
  alert(M);}
  for (var i = 0; i < el; i++) 
  {
   if (t.name == e[i]){r.elements[i+1].focus(); return;}
  }
}

function Info(b) //b is passed as "this"
{
 if (Ent == false) 
 {
  Ent = true
  var Mess = "\*You will only need to enter one of the following:" + "\r" +"\r"
  Mess += "1. No. of Hours Worked Per Week and Hourly Wage" + "\r"+"\r"
  Mess += "OR.." + "\r"+"\r"
  Mess += "2. Biweekly Income" + "\r"+"\r"
  Mess += "OR.." + "\r"+"\r"
  Mess += "3. Yearly Income" + "\r"+"\r"
  Mess += "OR.." + "\r"+"\r"
  Mess += "4. Monthly Income." + "\r" +"\r"
  Mess += "\*The Monthly Income will be calculated if not entered." +"\r\r"
  SMess = "\*All fields with \"Calculated\" above the field are" + "\r" + "automatically calculated."
  alert(Mess + SMess)
 }
 b.select();
}

//np is the HREF of the page to open
function OpenPage(np)
{
 open(np);
}

function GoFigure()
{
 BCS=0;
 NBCS=0;
 g=0;
 r.R21C3.value=0;
 r.R21C2.value=0;
 for (var i=0; i<el; i++)
 {
  if((e[i].indexOf("C2")>-1)||(e[i].indexOf("C3")>-1))
  {
   if(isNaN(r.elements[i].value)){r.elements[i].value=0;}
  }
 }
 if((r.R2C2.value!=0)&&(r.R3C2.value!=0)&&(!isNaN(r.R2C2.value))&&(!isNaN(r.R3C2.value)))
 {
  r.R5C2.value=m(r.R2C2.value*r.R3C2.value*52/12);
 }
 if((r.R2C3.value!=0)&&(r.R3C3.value!=0)&&(!isNaN(r.R2C3.value))&&(!isNaN(r.R3C3.value)))
 {
  r.R5C3.value=m(r.R2C3.value*r.R3C3.value*52/12);
 }
 if((r.R3aC2.value!=0)&&(!isNaN(r.R3aC2.value)))
 {
  r.R5C2.value=m(r.R3aC2.value*26/12);
 }
 if((r.R3aC3.value!=0)&&(!isNaN(r.R3aC3.value)))
 {
  r.R5C3.value=m(r.R3aC3.value*26/12);
 }
 if((r.R4C2.value!=0)&&(!isNaN(r.R4C2.value)))
 {
  r.R5C2.value=m(r.R4C2.value/12);
 }
 if((r.R4C3.value!=0)&&(!isNaN(r.R4C3.value)))
 {
  r.R5C3.value=m(r.R4C3.value/12);
 }
 Nd=r.R1C3.selectedIndex+1;
 if(r.R5aC4.selectedIndex==0){fa = 52/12;}
 if(r.R5aC4.selectedIndex==1){fa = 26/12;}
 if(r.R5aC4.selectedIndex==2){fa = 1;}
 if(r.R5aC4.selectedIndex==3){fa = 1/12;}
 r.R5C4.value=m(r.R5C2.value*1+r.R5C3.value*1);
 r.R5abC2.value=m(r.R5C2.value*1+r.R5aaC2.value*fa+r.R5aaaC2.value*fa);
 r.R5abC3.value=m(r.R5C3.value*1+r.R5aaC3.value*fa+r.R5aaaC3.value*fa);
 r.R7C2.value=m(r.R5abC2.value-fa*r.R6C2.value-r.R6aC2.value*fa-r.R6bC2.value*fa);
 r.R7C3.value=m(r.R5abC3.value-fa*r.R6C3.value-r.R6aC3.value*fa-r.R6bC3.value*fa);
 r.R7C4.value=r.R7C2.value*1+r.R7C3.value*1;
 r.R9C2.value=m(r.R7C2.value/r.R7C4.value*10000)/100;
 r.R9C3.value=m(r.R7C3.value/r.R7C4.value*10000)/100;
 In=r.R7C4.value*1;
 if(In<600)
 {
  alert("For total income < $600\nthe payments will be set\nby the judge.");
  r.R10C4.value="N/A";
  r.R21C2.value="N/A";
  return;
 }
 if(In>10000)
 {
  alert("For total income > $10000\nthe payments will be set\nby the judge.");
  r.R21C2.value="N/A";
  r.R10C4.value="N/A";
  return;
 }
 TableValue();
 r.R10C4.value=m(BCS);
 r.R10C2.value=m(BCS*r.R9C2.value/100);
 r.R10C3.value=m(BCS*r.R9C3.value/100);
 r.R12C4.value=m(r.R12C2.value/365*10000)/100;
 if(r.R12C4.value*1<=35)
 {
  r.R13C2.value=r.R10C2.value;
  r.R13C3.value=r.R10C3.value;
  r.R15C2.value=m(r.R15C4.value*fa*r.R9C2.value/100);
  r.R15C3.value=m(r.R15C4.value*fa*r.R9C3.value/100);
  r.R16C2.value=m(r.R16C4.value*fa*r.R9C2.value/100);
  r.R16C3.value=m(r.R16C4.value*fa*r.R9C3.value/100);
  r.R17C2.value=m(r.R17C4.value*fa*r.R9C2.value/100);
  r.R17C3.value=m(r.R17C4.value*fa*r.R9C3.value/100);
  r.R19C2.value=m(r.R15C2.value*1+r.R16C2.value*1+r.R17C2.value*1);
  r.R19C3.value=m(r.R15C3.value*1+r.R16C3.value*1+r.R17C3.value*1);
  r.R19C4.value=m(r.R19C2.value*1+r.R19C3.value*1);
  r.R21C2.value=m(r.R13C2.value*1+r.R19C2.value*1);
  r.R21C3.value=0;
 }
 else
 {
  var ACS=r.R10C4.value;
  r.R13C2.value=m(ACS*1.5*r.R9C2.value/100*(100-r.R12C4.value)/100);
  r.R13C3.value=m(ACS*1.5*r.R9C3.value/100*r.R12C4.value/100);
  if(r.R13C2.value*1<r.R13C3.value*1){r.R13C3.value=m(r.R13C3.value*1-r.R13C2.value*1);r.R13C2.value=0;}
  if(r.R13C3.value*1<r.R13C2.value*1){r.R13C2.value=m(r.R13C2.value*1-r.R13C3.value*1);r.R13C3.value=0;}
  r.R15C2.value=m(r.R15C4.value*fa*r.R9C2.value/100);
  r.R15C3.value=m(r.R15C4.value*fa*r.R9C3.value/100);
  r.R16C2.value=m(r.R16C4.value*fa*r.R9C2.value/100);
  r.R16C3.value=m(r.R16C4.value*fa*r.R9C3.value/100);
  r.R17C2.value=m(r.R17C4.value*fa*r.R9C2.value/100);
  r.R17C3.value=m(r.R17C4.value*fa*r.R9C3.value/100);
  r.R19C2.value=m(r.R15C2.value*1+r.R16C2.value*1+r.R17C2.value*1);
  r.R19C3.value=m(r.R15C3.value*1+r.R16C3.value*1+r.R17C3.value*1);
  r.R19C4.value=m(r.R19C2.value*1+r.R19C3.value*1);
  r.R21C2.value=m(r.R13C2.value*1+r.R19C2.value*1);
  r.R21C3.value=m(r.R13C3.value*1+r.R19C3.value*1);
  if(r.R21C2.value*1>r.R21C3.value*1){r.R21C2.value=m(r.R21C2.value*1-r.R21C3.value*1);r.R21C3.value=0;}
  if(r.R21C3.value*1>r.R21C2.value*1){r.R21C3.value=m(r.R21C3.value*1-r.R21C2.value*1);r.R21C2.value=0;}
 }
}
 
function TableValue()
{
 for(var i=1; i<A.length; i+=7)
 {
  if((In>=A[i])&&(In<=A[i+7]))
  {
   if((In-A[i])<(A[i+7]-In))
   {
    BCS=A[i+Nd];
   }
   else
   {
    BCS=A[i+7+Nd];
   }
   break;
  }
 }
 return;
}