<!--
function openScrollWindow(path, windowname, w, h) {
	// Name the Window, so the remote can target it - if required
	self.name = "Master_Window"; 
	
	// determine center of screen
	if (screen.width) {
		// IE
		var xMax = screen.width;
		var yMax = screen.height;
	} else {
		if (window.outerWidth) {
			// mozilla
			var xMax = window.outerWidth;
			var yMax = window.outerHeight;		
		} else {
			// Catch all
            var xMax = 800; 
			var yMax=600;
		}
	}
	
    var xOffset = (xMax - w)/2;
	var yOffset = (yMax - h)/2;
	
	var opts = "scrollbars=yes,resizable=no,width=" + w + ",height=" + h + ",left=" + xOffset + ",top=" + yOffset +",screenX=" + xOffset + ",screenY=" + yOffset;
	// open it and maintain a var to it
	var Child = window.open(path, windowname, opts);
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function countChars(areaToCount, putAnswer, strmax) {
	var txtarea = MM_findObj(areaToCount);
	var txtareaText = txtarea.value;
	
	if (strmax > 0) {
		if (txtareaText.length > strmax) {
			txtarea.value = txtarea.value.substr(0, strmax);
			txtareaText = txtarea.value;
		}
	}

	MM_setTextOfLayer(putAnswer, '', txtareaText.length);
}

function MM_setTextOfLayer(objName,x,newText) { //v4.01
  if ((obj=MM_findObj(objName))!=null) with (obj)
    if (document.layers) {document.write(unescape(newText)); document.close();}
    else innerHTML = unescape(newText);
}

function showHideOtherText(lstbox, txtbox) {
	txt = MM_findObj(txtbox);
	if (lstbox.value == "Other") {
		txt.style.visibility = "visible";
	} else {
		txt.style.visibility = "hidden";
	}
}
function showHideOtherLookup(lstbox, txtbox) {
	txt = MM_findObj(txtbox);
	if (lstbox.value == 100) {
		txt.style.visibility = "visible";
	} else {
		txt.style.visibility = "hidden";
	}
}
//-->