function form_consult_pe()
{
if (func_num_args() > 0) {
$arg_list = func_get_args();
$menu_id = $arg_list[0];
$post_vars = $arg_list[1];
$get_vars = $arg_list[2];
$validuser = $arg_list[3];
$isadmin = $arg_list[4];
//print_r($arg_list);
}
$patient_id = healthcenter::get_patient_id($get_vars["consult_id"]);
$sql = "select notes_physicalexam from m_consult_notes where notes_id = '" . $get_vars["notes_id"] . "'";
if ($result = mysql_query($sql)) {
if (mysql_num_rows($result)) {
list($pe) = mysql_fetch_array($result);
}
}
$checkSQL = "select breast_screen,breast_remarks,skin_code, skin_remarks, heent_code, heent_remarks,\n\t \t\tchest_code, chest_remarks, heart_code, heart_remarks,\n\t \t\tabdomen_code, abdomen_remarks, extremities_code, extremities_remarks\n\t \t\tfrom m_consult_notes_pe where notes_id = '" . $get_vars["notes_id"] . "'";
if ($checkResult = mysql_query($checkSQL)) {
if (mysql_num_rows($checkResult)) {
list($breast_screen, $breast_remarks, $skin_code, $skin_remarks, $heent_code, $heent_remarks, $chest_code, $chest_remarks, $heart_code, $heart_remarks, $abdomen_code, $abdomen_remarks, $extremities_code, $extremities_remarks) = mysql_fetch_array($checkResult);
}
}
print "<script type='text/javascript' src='../js/script/jquery-1.10.2.min.js'></script>";
print " <script>\n\t\t\t\t\t\$(document).ready(function(){\n\t\t\t\t\t\t\$(function(){\n\t\t\t\t\t\t \$('.header').nextUntil('tr.header').hide();\n\t\t\t\t\t\t \$('.header').find('span.clickable').html('+');\n\t\t\n\t\t\n\t\t\t\t\t\t\$('.header').click(function(){\n\t\t\t\t\t\t \$(this).find('span.clickable').text(function(_, value){return value=='-'?'+':'-'});\n\t\t\t\t\t\t \$(this).nextUntil('tr#end').slideToggle(100, function(){\n\t\t\t\t\t\t });\n\t\t\t\t\t\t});\n\t\t\t\t\t\t \n\t\t\t\t\t\t});\n\t\t\t\t\t});\n\t\t\t\t</script>";
print "<style type='text/css'>\n\t\t\t\t\ttr#end.header.nopointer td:first-child\n\t\t\t\t\t{\n\t\t\t\t\t\tcursor:default;\n\t\t\t\t\t}\n\t\t\t \ttr.header td:first-child, tr.alertheader td:first-child\n\t\t\t\t\t{\n\t\t\t\t\t cursor:pointer;\n\t\t\t\t\t}\n\t\t\t\t</style>";
print "<a name='pe_form'>";
print "<table width='300'>";
print "<form method='post' action='#pe_form' name='form_pe'>";
print "<tr><td>";
print "<b>" . FTITLE_CONSULT_PE_FORM . "</b><br/>";
print "<br/></td></tr>";
print "<tr><td>";
print "<span class='boxtitle'>" . LBL_NOTES_ID . "</span><br/>";
print "<font color='red'>" . module::pad_zero($get_vars["notes_id"], 7) . "</font><br/>";
print "<br/></td></tr>";
print "<tr id='end' class='header'><td>";
print "<span class='clickable'>-</span> <span class='boxtitle'>Skin</span><br/></td></tr>";
print "<tr><td>";
print notes::checkbox_pe('Skin', $skin_code, $skin_remarks);
print "<br/></td></tr>";
print "<tr id='end' class='header'><td>";
print "<span class='clickable'>-</span> <span class='boxtitle'>HEENT</span><br/></td></tr>";
print "<tr><td>";
print notes::checkbox_pe('HEENT', $heent_code, $heent_remarks);
print "<br/></td></tr>";
print "<tr id='end' class='header'><td>";
print "<span class='clickable'>-</span> <span class='boxtitle'>Chest/Lungs</span><br/></td></tr>";
print "<tr><td>";
print notes::checkbox_pe('Chest/Lungs', $chest_code, $chest_remarks);
print "<br/></td></tr>";
print "<tr id='end' class='header'><td>";
print "<span class='clickable'>-</span> <span class='boxtitle'>Heart</span><br/></td></tr>";
print "<tr><td>";
print notes::checkbox_pe('Heart', $heart_code, $heart_remarks);
print "<br/></td></tr>";
print "<tr id='end' class='header'><td>";
print "<span class='clickable'>-</span> <span class='boxtitle'>Abdomen</span><br/></td></tr>";
print "<tr><td>";
print notes::checkbox_pe('Abdomen', $abdomen_code, $abdomen_remarks);
print "<br/></td></tr>";
print "<tr id='end' class='header'><td>";
print "<span class='clickable'>-</span> <span class='boxtitle'>Extremities</span><br/></td></tr>";
print "<tr><td>";
print notes::checkbox_pe('Extremities', $extremities_code, $extremities_remarks);
print "<br/></td></tr><tr id='end' class='header nopointer'><td><br/></td></tr>";
//breastcancerscreen
print notes::dropdown_breastcancerscreen($breast_screen, $breast_remarks);
print "<tr id='end' class='header nopointer'><td><br/>";
print "<span class='boxtitle'>" . LBL_PE_TEMPLATE . "</span><br/>";
notes::show_templates("PE", $post_vars["template"]);
if ($post_vars["template"]) {
print "<br/><br/>";
print "<span class='boxtitle'>" . LBL_TEMPLATE_CONTENT . "</span><br> ";
print "<table width='200' style='border: 1px dotted black'><tr><td class='tinylight'>";
$pe_text = notes::get_template_text($post_vars["template"]);
print stripslashes(nl2br($pe_text));
print "<br/>";
print "<input type='hidden' name='template_text' value='{$pe_text}' />";
print "<input type='hidden' name='prev_template' value='" . $post_vars["template"] . "' class='tinylight' style='border: 1px solid black; background-color: #CCFF33'/>";
print "<input type='submit' name='submitnotes' value='Add Template' class='tinylight' style='border: 1px solid black; background-color: #CCFF33'/>";
print "</td></tr></table>";
}
if ($post_vars["submitnotes"] == "Add Template") {
$pe = $post_vars["pe_text"] . $post_vars["template_text"];
}
print "<br/></td></tr>";
print "<tr id='end' class='header nopointer'><td>";
print "<span class='boxtitle'>" . LBL_NOTES_PE . "</span><br> ";
print "<textarea rows='15' cols='40' class='tinylight' name='pe_text' style='border: 1px solid black'>" . ($pe ? $pe : $post_vars["pe_text"]) . "</textarea>";
print "<br/></td></tr>";
print "<tr id='end' class='header nopointer'><td>";
print "<input type='submit' name='submitnotes' value='Save PE' class='textbox' style='border: 1px solid black'/> ";
print "<br/></td></tr>";
print "</form>";
print "</table><br/>";
}
