function doseNICU(form) {
	var ptName = form.patientName.value;
	var ptMRN = form.patientMRN.value;
	var ptWeight = form.patientWeight.value;
	var ptKg = ptWeight / 1000;
	var day = new Date();
	var date = day.toString().substring(0,10);

	if (ptName == "") {
		alert("Please fill-in the patient's name");
		form.patientName.focus();
		return false
	}
	if (ptMRN == "") {
		alert("Please fill-in the patient's medical record number");
		form.patientMRN.focus();
		return false
	}
	if (ptWeight == "") {
		alert("Please fill-in the patient's weight");
		form.patientWeight.focus();
		return false
	}

	var lowEpi = 0.1 * ptKg;
	var lowEpi = rounding(lowEpi);
	var hiEpi = 0.3 * ptKg;
	var hiEpi = rounding(hiEpi);

	var lowBicarb = 4 * ptKg;
	var lowBicarb = rounding(lowBicarb);
	var hiBicarb = 8 * ptKg;
	var hiBicarb = rounding(hiBicarb);

	var Ca = 1 * ptKg;
	var Ca = rounding(Ca);

	var lowAtropine = .25 * ptKg;
	var lowAtropine = rounding(lowAtropine);
	var hiAtropine = .75 * ptKg;
	var hiAtropine = rounding(hiAtropine);

	var lowNarcan = .25 * ptKg;
	var lowNarcan = rounding(lowNarcan);
	var hiNarcan = .5 * ptKg;
	var hiNarcan = rounding(hiNarcan);

//  The following is the formula for both Dopamine and Dobutamine
	var delivDA = 10 * 60 * 24 * ptKg;	// delivered dose of Dopamine at 10 mcg/kg/min
	var bottleVol = 25;					// using 25 cc D5W
	var delivVol = 24;					// rate of 1 cc/hr times 24 hours
	var bottleDA = delivDA * bottleVol / delivVol;	// mcg Dopamine to put in 25 cc D5W
	var bottleDA = bottleDA / 1000;		// convert to mg Dopamine
	var bottleDA = rounding(bottleDA);
	
	var lowDefib = 1 * ptKg;
	var lowDefib = Math.round(lowDefib);
	var hiDefib = 4 * ptKg;
	var hiDefib = Math.round(hiDefib);

	var UAC = (3 * ptWeight / 1000) + 9;
	UAC = Math.round(UAC * 10 / 5) * 5 / 10;		// round to nearest 0.5
	var UVC = (UAC / 2) + 1;
	UVC = Math.round(UVC * 10 / 5) * 5 / 10;		// round to nearest 0.5

	if (ptWeight < 1000) {
		var ETtube = 2.5;
		var ETplace = 7;
	}
	if (ptWeight >= 1000 && ptWeight < 1400) {
		var ETtube = "3.0";
		var ETplace = 7.5;
	}
	if (ptWeight >= 1400 && ptWeight < 1900) {
		var ETtube = "3.0";
		var ETplace = 8;
	}
	if (ptWeight >= 1900 && ptWeight < 2200) {
		var ETtube = 3.5;
		var ETplace = 8.5;
	}
	if (ptWeight >= 2200 && ptWeight < 2600) {
		var ETtube = 3.5;
		var ETplace = 9.0;
	}
	if (ptWeight >= 2600 && ptWeight < 3000) {
		var ETtube = 3.5;
		var ETplace = 9.5;
	}
	if (ptWeight >= 3000 && ptWeight < 3400) {
		var ETtube = 3.5;
		var ETplace = 10.0;
	}
	if (ptWeight >= 3400 && ptWeight < 3700) {
		var ETtube = 3.5;
		var ETplace = 10.5;
	}
	if (ptWeight >= 3700) {
		var ETtube = "4.0";
		var ETplace = 11.0;
	}

document.open();
//document.writeln("<center><img src=\"http://web.csmc.edu/images/csmcDRed3.gif\"><br>");
document.writeln("<b><font size=\"+3\" color=\"#660000\">NICU Code Sheet</font></b></center><br>");

document.writeln("<center><table border=0 cellspacing=5>");
document.writeln("<tr><td><b>Name: </b>" + ptName + "</td>");
document.writeln("<td><b>MR #: </b>" + ptMRN + "</td></tr>");
document.writeln("<tr><td><b>Date printed: </b>" + date + "</td>");
document.writeln("<td><b>Weight: </b>" + ptWeight + " grams</td></tr>");
document.writeln("<tr><th align=left>ET Tube Size:</th>");
document.writeln("<th align=left>Taped at:</th></tr>");
document.writeln("<tr><td colspan=2 align=center><i><font size=\"-1\">(Based on weight, recommend ");
document.writeln(ETtube + " mm ET tube, taped at " + ETplace + " cm,<br>");
document.writeln("UAC length at " + UAC + " cm, and UVC length at " + UVC + " cm.)</font></i></td></tr>");
document.writeln("</table><br>");

document.writeln("<font size=\"-1\">");
document.writeln("<table border=1 cellpadding=5>");
document.writeln("<tr><th align=center>Drug</th>");
document.writeln("<th align=center>Dosage</th>");
document.writeln("<th align=center>Frequency</th>");
document.writeln("<th align=center>Patient Dosage</th>");
document.writeln("</tr>");

document.writeln("<tr><td align=center><b>Epinephrine</b><br>1:10,000<br>0.1 mg/cc</td>");
document.writeln("<td align=center>0.1 - 0.3 cc/kg/dose<br>0.01 - 0.03 mg/kg/dose<br>IV UVC ETT</td>");
document.writeln("<td align=center>every 5-10 minutes</td>");
document.writeln("<td align=center>" + lowEpi + " - " + hiEpi + " cc</td>");
document.writeln("</tr>");

document.writeln("<tr><td align=center><b>Sodium Bicarb.</b><br>4.2%<br>0.5 mEq/cc</td>");
document.writeln("<td align=center>4 - 8 cc/kg/dose<br>2 - 4 mEq/kg/dose<br>IV UAC UVC</td>");
document.writeln("<td align=center>ventilate infant,<br>give over 2-4 min or longer,<br>q 2-3 min</td>");
document.writeln("<td align=center>" + lowBicarb + " - " + hiBicarb + " cc</td>");
document.writeln("</tr>");

document.writeln("<tr><td align=center><b>Calcium Gluc.</b><br>10%<br>100 mg/cc</td>");
document.writeln("<td align=center>1 cc/kg/dose<br>100 mg/kg/dose<br>IV UVC</td>");
document.writeln("<td align=center>q 15 min over 3-5 min<br><b>Do Not Mix<br>With Bicarb</b></td>");
document.writeln("<td align=center>" + Ca + " cc</td>");
document.writeln("</tr>");

document.writeln("<tr><td align=center><b>Atropine</b><br>10%<br>0.05 mg/cc</td>");
document.writeln("<td align=center>0.25 - 0.75 cc/kg/dose<br>0.01 - 0.03 mg/kg/dose<br>IV UVC ETT</td>");
document.writeln("<td align=center>q 20 min<br>give slowly over 3-5 min</td>");
document.writeln("<td align=center>" + lowAtropine + " - " + hiAtropine + " cc</td>");
document.writeln("</tr>");

document.writeln("<tr><td align=center><b>Narcan</b><br>0.4 mg/cc</td>");
document.writeln("<td align=center>0.25 - 0.5 cc/kg/dose<br>0.1 - 0.2 mg/kg/dose<br>IV IM SQ ETT</td>");
document.writeln("<td align=center>give IV push<br>repeat prn x 3<br><b>Do Not Mix<br>With Bicarb</b></td>");
document.writeln("<td align=center>" + lowNarcan + " - " + hiNarcan + " cc</td>");
document.writeln("</tr>");

document.writeln("<tr><td align=center><b>Dopamine</b><br>1 cc/hour = 10 mcg/kg/min</td>");
document.writeln("<td align=center>2 - 20 mcg/kg/min<br>0.2 - 2 cc/hr<br>IV</td>");
document.writeln("<td align=center>give as continuous infusion</td>");
document.writeln("<td align=center>Mix " + bottleDA + " mg of Dopamine<br>in 25 cc D5W,<br>then run at 0.2 - 2 cc/hr</td>");
document.writeln("</tr>");

document.writeln("<tr><td align=center><b>Dobutamine</b><br>1 cc/hour = 10 mcg/kg/min</td>");
document.writeln("<td align=center>2 - 20 mcg/kg/min<br>0.2 - 2 cc/hr<br>IV</td>");
document.writeln("<td align=center>give as continuous infusion</td>");
document.writeln("<td align=center>Mix " + bottleDA + " mg of Dobutamine<br>in 25 cc D5W,<br>then run at 0.2 - 2 cc/hr</td>");
document.writeln("</tr>");

document.writeln("<tr><td align=center><b>Defibrillation</b></td>");
document.writeln("<td align=center>1 - 4 J/kg</td>");
document.writeln("<td align=center>increase 50% each time</td>");
document.writeln("<td align=center>" + lowDefib + " - " + hiDefib + " J</td>");
document.writeln("</tr>");

document.writeln("</table></font><p>");

document.writeln("<table border=1>");
document.writeln("<tr><th>Pharmacist's Signature:</th><td width=50%>  </td><th>Date:</th><td width=20%> </td></tr>");
document.writeln("</table>");
document.close();

return 0;
}

function rounding(number) {
	numString = number.toString();
	
	if (number < 1) {
		for (var x=0; x < numString.length; x++) {
			if (numString.charAt(x) == ".") {
				return numString.substring(0,x+3);
			}
		}
	} else {
		for (var x=0; x < numString.length; x++) {
			if (numString.charAt(x) == ".") {
				return numString.substring(0,x+2);
			}
		}
	}
	return number
}