function clickAction(thisNode){
if (selectedNode) 
	{
	if (selectedNode.isFolder)
		selectedNode.setIcon("","","","")
	else
		selectedNode.setIcon("","")
	if (!selectedNode.iconImg)
	{
	if (bV == 2) selectedNode.iconImg = selectedNode.navObj.document.images["nodeIcon"+selectedNode.id]
	else if (bV == 1 || doc.images) selectedNode.iconImg = doc.images["nodeIcon"+selectedNode.id]
	}	
	selectedNode.iconImg.src = selectedNode.nodeIcon("",iNA)
	if (bV == 1) {
		selectedNode.navObj.children[0].rows[0].children[1].style.backgroundColor = "transparent"
		selectedNode.navObj.children[0].rows[0].children[1].children[0].style.color = "white"
		selectedNode.navObj.children[0].style.fontStyle = "normal"
		selectedNode.navObj.children[0].style.fontWeight = "normal"
	}
	}
if (thisNode.isFolder)
	thisNode.setIcon("whitearrow","whitearrow","whitearrow","whitearrow")
else
	thisNode.setIcon("whitearrow","whitearrow")
selectedNode = thisNode
thisNode.iconImg.src = thisNode.nodeIcon("",iNA)
if (bV == 1) {
	selectedNode.navObj.children[0].style.fontStyle = "normal"
	selectedNode.navObj.children[0].rows[0].children[1].style.backgroundColor = "transparent"
	selectedNode.navObj.children[0].rows[0].children[1].children[0].style.color = "white"
	selectedNode.navObj.children[0].style.fontWeight = "bold"
}
}
addImage("whitearrow","whitearrow.gif")
addImage("mail2","mail2.gif","mail2","mail2")
fT = gFld("Home", "mainframe")
	aux1 = insDoc(fT, gLnk("Home","mainframe.html"))
	  aux1.setFont("<font face=Arial,Helvetica size=2 color=#FFFFFF style=text-decoration:none>")
	aux1 = insFld(fT, gFld("Services","services.html"))
	      insDoc(aux1, gLnk("Medical Cost Analysis","services.html#section1"))
              insDoc(aux1, gLnk("Reimbursement Modeling","services.html#section2"))
              insDoc(aux1, gLnk("Medical Utilization Analysis","services.html#section3"))
              insDoc(aux1, gLnk("Provider Profiling","services.html#section4"))
              insDoc(aux1, gLnk("Quality Measurement","services.html#section5"))
	      insDoc(aux1, gLnk("Data Warehouse Design<br>& Database Management","services.html#section6"))
	      insDoc(aux1, gLnk("Medical Literature Research","services.html#section7"))
  	      insDoc(aux1, gLnk("HIPAA & IT Security","services.html#section8"))	     
	aux1 = insFld(fT, gFld("Products","hcms.html"))
	      insDoc(aux1, gLnk("Hospital Contracting","hcms.html"))	      
      	      insDoc(aux1, gLnk("Resource Referral","crris.html"))
	aux1 = insFld(fT, gFld("Customers","cplist.html"))
	      insDoc(aux1, gLnk("Customers Login","login.html"))
		  aux2 = insFld(aux1, gFld("Project List", "cplist.html"))
			insDoc(aux2, gLnk("Managed Care/Insurance","cplist.html#mci"))
			insDoc(aux2, gLnk("Health Care Delivery","cplist.html#hcd"))
			insDoc(aux2, gLnk("Information Technology","cplist.html#it"))
			insDoc(aux2, gLnk("Professional<br>& Trade Organizations","cplist.html#pto"))
			insDoc(aux2, gLnk("Financial Services","cplist.html#fs"))
			insDoc(aux2, gLnk("Government","cplist.html#g"))
	aux1 = insDoc(fT, gLnk("Test Your Knowledge","dataquiz.html"))
		aux1.setFont("<font face=Arial,Helvetica size=2 color=#FFFFFF style=text-decoration:none>")
	aux1 = insDoc(fT, gLnk("HCA Intranet","http://hca-inc.intranets.com/login.asp?link="))
		aux1.setFont("<font face=Arial,Helvetica size=2 color=#FFFFFF style=text-decoration:none>")
	aux9 = insDoc(fT, gLnk("Contact HCA","mailto:info@hca-inc.com"))
		aux9.setIcon("mail2","mail2","mail2")
		aux9.setFont("<font face=Arial,Helvetica size=2 color=#FFFFFF style=text-decoration:none>")