function form_consult_lab_fecalysis() {
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);
}
print "<table width='300'>";
print "<form action = '".$_SERVER["SELF"]."?page=".$get_vars["page"]."&menu_id=".$get_vars["menu_id"]."&consult_id=".$get_vars["consult_id"]."&module=fecalysis&request_id=".$get_vars["request_id"]."&lab_id=SPT' name='form_lab' method='post'>";
print "<tr valign='top'><td>";
print "<b>".FTITLE_LAB_EXAM_FORM."</b><br><br>";
print "</td></tr>";
print "<tr valign='top'><td>";
print "<span class='boxtitle'>".LBL_LAB_REQUEST_DETAILS."</span><br> ";
$sql = "select lab_id, consult_id, date_format(request_timestamp, '%a %d %b %Y, %h:%i%p') request_timestamp, request_user_id, request_done, ".
"date_format(done_timestamp, '%a %d %b %Y, %h:%i%p') done_timestamp, done_user_id ".
"from m_consult_lab ".
"where request_id = '".$get_vars["request_id"]."'";
if ($result = mysql_query($sql)) {
if (mysql_num_rows($result)) {
$lab = mysql_fetch_array($result);
print "<table width='250' bgcolor='#FFFF99' style='border: 1px solid black'><tr><td class='tinylight'>";
print "<b>".LBL_LAB_EXAM.":</b> ".lab::get_lab_name($lab["lab_id"])."<br/>";
print "<b>".LBL_DATE_REQUESTED.":</b> ".$lab["request_timestamp"]."<br/>";
print "<b>".LBL_REQUESTED_BY.":</b> ".user::get_username($lab["request_user_id"])."<br/>";
print "<b>".LBL_DATE_PROCESSED.":</b> ".($lab["done_timestamp"]?$lab["done_timestamp"]:"NA")."<br/>";
print "<b>".LBL_PROCESSED_BY.":</b> ".($lab["done_user_id"]?user::get_username($lab["done_user_id"]):"NA")."<br/>";
print "</td></tr></table>";
}
}
print "</td></tr>";
print "<tr valign='top'><td>";
if ($get_vars["request_id"]) {
$sql_fecalysis = "select fec_collection_date, ".
"fec_macro_findings, ".
"fec_micro_findings,release_flag, ".
"from m_consult_lab_fecalysis ".
"where request_id = '".$get_vars["request_id"]."'";
if ($result_fecalysis = mysql_query($sql_fecalysis)) {
if (mysql_num_rows($result_fecalysis)) {
$fecalysis = mysql_fetch_array($result_fecalysis);
//print_r($fecalysis);
// set up collection dates
if ($fecalysis["fec_collection_date"]<>"0000-00-00") {
list($year,$month,$day) = explode("-",$fecalysis["fec_collection_date"]);
$fec_collection_date = "$month/$day/$year";
}
}
}
}
print "<table width='250' style='border: 1px dotted black'>";
print "<tr><td class='boxtitle'>".LBL_SPECIMEN."</td><td class='boxtitle'>#1</td><td class='boxtitle'>#2</td><td class='boxtitle'>#3</td></tr>";
print "<tr><td class='boxtitle'nowrap>".LBL_COLLECTION_DATE."</td>";
print "<td>";
print "<input type='text' size='10' class='tinylight' name='fec_collection_date' value='".($fec_collection_date?$fec_collection_date:$post_vars["fec_collection_date"])."' style='border: 1px solid #000000'> ";
print "<a href=\"javascript:show_calendar4('document.form_lab.fec_collection_date', document.form_lab.fec_collection_date.value);\"><img src='../images/cal.gif' width='16' height='16' border='0' alt='Click Here to Pick up the date'></a> ";
print "</td>";
print "</tr>";
// print "<tr><td class='boxtitle'nowrap>".LBL_MACROSCOPIC_FINDINGS."</td>";
// print "<td>".fecalysis::load_template(($fecalysis["fec_macro_findings"]?$fecalysis["fec_macro_findings"]:$post_vars["fec_macro_findings"]),'fec_macro_findings')."</td>";
// print "</tr>";
// print "<tr><td class='boxtitle'nowrap>".LBL_MICROSCOPIC_FINDINGS."</td>";
// print "<td>".fecalysis::load_template(($fecalysis["fec_micro_findings"]?$fecalysis["fec_micro_findings"]:$post_vars["fec_micro_findings"]),'fec_micro_findings')."</td>";
// print "</tr>";
print "<tr valign='top'><td>";
print "<br>";
print "<span class='boxtitle'>".LBL_MACROSCOPIC_FINDINGS."</span><br> ";
$default_macroscopic = fecalysis::load_template("FEC_MACROSCOPIC");
print "<textarea class='textbox' rows='8' cols='30' name='FEC_MACROSCOPIC' style='border: 1px solid #000000'>".($fecalysis["FEC_MACROSCOPIC"]?$fecalysis["FEC_MACROSCOPIC"]:($post_vars["FEC_MACROSCOPIC"]?$post_vars["FEC_MACROSCOPIC"]:$default_macroscopic))."</textarea><br>";
print "</td></tr>";
print "<tr valign='top'><td>";
print "<span class='boxtitle'>".LBL_MICROSCOPIC_FINDINGS."</span><br> ";
$default_microscopic = fecalysis::load_template("FEC_MICROSCOPIC");
print "<textarea class='textbox' rows='8' cols='30' name='FEC_MICROSCOPIC' style='border: 1px solid #000000'>".($fecalysis["FEC_MICROSCOPIC"]?$fecalysis["FEC_MICROSCOPIC"]:($post_vars["FEC_MICROSCOPIC"]?$post_vars["FEC_MICROSCOPIC"]:$default_microscopic))."</textarea><br>";
print "</td></tr>";
print "</table>";
print "</td></tr>";
print "<tr valign='top'><td>";
print "<span class='boxtitle'>".LBL_RELEASE_FLAG."</span><br> ";
print "<input type='checkbox' name='release_flag' ".(($fecalysis["release_flag"]?$fecalysis["release_flag"]:$post_vars["release_flag"])=="Y"?"checked":"")." value='1'/> ".INSTR_RELEASE_FLAG."<br />";
print "<br/></td></tr>";
print "<tr><td><br>";
if ($get_vars["request_id"]) {
print "<input type='hidden' name='request_id' value='".$get_vars["request_id"]."'>";
if ($_SESSION["priv_update"]) {
print "<input type='submit' value = 'Update Lab Exam' class='textbox' name='submitlab' style='border: 1px solid #000000'> ";
}
if ($_SESSION["priv_delete"]) {
print "<input type='submit' value = 'Delete Lab Exam' class='textbox' name='submitlab' style='border: 1px solid #000000'> ";
}
}
print "</td></tr>";
print "</form>";
print "</table><br>";
}
function form_consult_lab_sputum() {
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);
}
echo "<a name='sputum'></a>";
print "<table width='300'>";
print "<form action = '".$_SERVER["SELF"]."?page=".$get_vars["page"]."&menu_id=".$get_vars["menu_id"]."&consult_id=".$get_vars["consult_id"]."&module=sputum&request_id=".$get_vars["request_id"]."&lab_id=SPT". "&ptmenu=LABS' name='form_lab' method='post'>";
print "<tr valign='top'><td>";
print "<b>".FTITLE_LAB_EXAM_FORM."</b><br><br>";
print "</td></tr>";
print "<tr valign='top'><td>";
print "<span class='boxtitle'>".LBL_LAB_REQUEST_DETAILS."</span><br> ";
$sql = "select lab_id, consult_id, date_format(request_timestamp, '%a %d %b %Y, %h:%i%p') request_timestamp, request_user_id, request_done, "."date_format(done_timestamp, '%a %d %b %Y, %h:%i%p') done_timestamp, done_user_id "."from m_consult_lab "."where request_id = '".$get_vars["request_id"]."'";
if ($result = mysql_query($sql)) {
if (mysql_num_rows($result)) {
$lab = mysql_fetch_array($result);
print "<table width='250' bgcolor='#FFFF99' style='border: 1px solid black'><tr><td class='tinylight'>";
print "<b>".LBL_LAB_EXAM.":</b> ".lab::get_lab_name($lab["lab_id"])."<br/>";
print "<b>".LBL_DATE_REQUESTED.":</b> ".$lab["request_timestamp"]."<br/>";
print "<b>".LBL_REQUESTED_BY.":</b> ".user::get_username($lab["request_user_id"])."<br/>";
print "<b>".LBL_DATE_PROCESSED.":</b> ".($lab["done_timestamp"]?$lab["done_timestamp"]:"NA")."<br/>";
print "<b>".LBL_PROCESSED_BY.":</b> ".($lab["done_user_id"]?user::get_username($lab["done_user_id"]):"NA")."<br/>";
print "</td></tr></table>";
}
}
print "</td></tr>";
print "<tr valign='top'><td>";
if ($get_vars["request_id"]) {
$sql_sputum = "select sp1_collection_date, sp2_collection_date, sp3_collection_date, ".
"sp1_appearance, sp2_appearance, sp3_appearance, ".
"sp1_reading, sp2_reading, sp3_reading, lab_diag1, lab_diag2, lab_diag3, lab_diagnosis, release_flag, sputum_period ".
"from m_consult_lab_sputum ".
"where request_id = '".$get_vars["request_id"]."'";
if ($result_sputum = mysql_query($sql_sputum)) {
if (mysql_num_rows($result_sputum)) {
$sputum = mysql_fetch_array($result_sputum);
//print_r($sputum);
// set up collection dates
if ($sputum["sp1_collection_date"]<>"0000-00-00") {
list($year,$month,$day) = explode("-",$sputum["sp1_collection_date"]);
$sp1_collection_date = "$month/$day/$year";
}
if ($sputum["sp2_collection_date"]<>"0000-00-00") {
list($year,$month,$day) = explode("-",$sputum["sp2_collection_date"]);
$sp2_collection_date = "$month/$day/$year";
}
if ($sputum["sp3_collection_date"]<>"0000-00-00") {
list($year,$month,$day) = explode("-",$sputum["sp3_collection_date"]);
$sp3_collection_date = "$month/$day/$year";
}
}
}
}
print "<table width='250' style='border: 1px dotted black'>";
print "<tr><td class='boxtitle'>".LBL_SPECIMEN."</td><td class='boxtitle'>#1</td><td class='boxtitle'>#2</td><td class='boxtitle'>#3</td></tr>";
print "<tr><td class='boxtitle'nowrap>".LBL_COLLECTION_DATE."</td>";
print "<td>";
print "<input type='text' size='10' class='tinylight' name='sp1_collection_date' value='".($sp1_collection_date?$sp1_collection_date:$post_vars["sp1_collection_date"])."' style='border: 1px solid #000000'> ";
print "<a href=\"javascript:show_calendar4('document.form_lab.sp1_collection_date', document.form_lab.sp1_collection_date.value);\"><img src='../images/cal.gif' width='16' height='16' border='0' alt='Click Here to Pick up the date'></a> ";
print "</td><td>";
print "<input type='text' size='10' class='tinylight' name='sp2_collection_date' value='".($sp2_collection_date?$sp2_collection_date:$post_vars["sp2_collection_date"])."' style='border: 1px solid #000000'> ";
print "<a href=\"javascript:show_calendar4('document.form_lab.sp2_collection_date', document.form_lab.sp2_collection_date.value);\"><img src='../images/cal.gif' width='16' height='16' border='0' alt='Click Here to Pick up the date'></a> ";
print "</td><td>";
print "<input type='text' size='10' class='tinylight' name='sp3_collection_date' value='".($sp3_collection_date?$sp3_collection_date:$post_vars["sp3_collection_date"])."' style='border: 1px solid #000000'> ";
print "<a href=\"javascript:show_calendar4('document.form_lab.sp3_collection_date', document.form_lab.sp3_collection_date.value);\"><img src='../images/cal.gif' width='16' height='16' border='0' alt='Click Here to Pick up the date'></a> ";
print "</td>";
print "</tr>";
print "<tr><td class='boxtitle'nowrap>".LBL_VISUAL_APPEARANCE."</td>";
print "<td>".sputum::show_sputum_appearance(($sputum["sp1_appearance"]?$sputum["sp1_appearance"]:$post_vars["sp1_appearance"]),'sp1_appearance')."</td>";
print "<td>".sputum::show_sputum_appearance(($sputum["sp2_appearance"]?$sputum["sp2_appearance"]:$post_vars["sp2_appearance"]),'sp2_appearance')."</td>";
print "<td>".sputum::show_sputum_appearance(($sputum["sp3_appearance"]?$sputum["sp3_appearance"]:$post_vars["sp3_appearance"]),'sp3_appearance')."</td>";
print "</tr>";
print "<tr><td class='boxtitle'>SPUTUM EXAM RESULT</td>";
print sputum::show_sputum_dropdown('lab_diag1',$sputum["lab_diag1"]);
print sputum::show_sputum_dropdown('lab_diag2',$sputum["lab_diag2"]);
print sputum::show_sputum_dropdown('lab_diag3',$sputum["lab_diag3"]);
print "</tr>";
print "<tr><td class='boxtitle'>".LBL_READING."</td>";
print "<td>".sputum::show_sputum_reading(($sputum["sp1_reading"]?$sputum["sp1_reading"]:$post_vars["sp1_reading"]),'sp1_reading')."</td>";
print "<td>".sputum::show_sputum_reading(($sputum["sp2_reading"]?$sputum["sp2_reading"]:$post_vars["sp2_reading"]),'sp2_reading')."</td>";
print "<td>".sputum::show_sputum_reading(($sputum["sp3_reading"]?$sputum["sp3_reading"]:$post_vars["sp3_reading"]),'sp3_reading')."</td>";
print "</tr>";
print "<tr><td class='boxtitle'>".LBL_SPUTUM_PERIOD."</td>";
print "<td colspan='3'>";
print sputum::show_sputum_period(($sputum["sputum_period"]?$sputum["sputum_period"]:$post_vars["sputum_period"]));
print "</td>";
print "</tr>";
print "<tr><td class='boxtitle'>FINAL ".LBL_LAB_DIAGNOSIS."</td>";
print "<td colspan='3'>";
print "<select name='lab_diagnosis' class='tinylight'>";
print "<option value=''>Select Diagnosis</option>";
print "<option value='P' ".(($sputum["lab_diagnosis"]?$sputum["lab_diagnosis"]:$post_vars["lab_diagnosis"])=="P"?"selected":"").">Positive</option>";
print "<option value='N' ".(($sputum["lab_diagnosis"]?$sputum["lab_diagnosis"]:$post_vars["lab_diagnosis"])=="N"?"selected":"").">Negative</option>";
print "<option value='D' ".(($sputum["lab_diagnosis"]?$sputum["lab_diagnosis"]:$post_vars["lab_diagnosis"])=="D"?"selected":"").">Doubtful</option>";
print "</select>";
print "</td>";
print "</tr>";
print "</table>";
print "</td></tr>";
print "<tr valign='top'><td>";
print "<span class='boxtitle'>".LBL_RELEASE_FLAG."</span><br> ";
print "<input type='checkbox' name='release_flag' ".(($sputum["release_flag"]?$sputum["release_flag"]:$post_vars["release_flag"])=="Y"?"checked":"")." value='1'/> ".INSTR_RELEASE_FLAG."<br />";
print "</td></tr>";
print "<tr><td align='center'>";
if ($get_vars["request_id"]) {
print "<input type='hidden' name='request_id' value='".$get_vars["request_id"]."'>";
if ($_SESSION["priv_update"]) {
print "<input type='submit' value = 'Update Lab Exam' class='textbox' name='submitlab' style='border: 1px solid #000000'> ";
}
if ($_SESSION["priv_delete"]) {
print "<input type='submit' value = 'Delete Lab Exam' class='textbox' name='submitlab' style='border: 1px solid #000000'> ";
}
}
print "</td></tr>";
print "</form>";
print "</table><br>";
}
function form_consult_assign_lab()
{
//
// use this to import data from lab
//
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"]);
print "<b>" . FTITLE_ASSIGN_NON_NTP_LABS . "</b><br/><br/>";
// query gets similar lab_id records from m_consult_lab
// that are not in m_consult_ntp_labs_request
print "<a name='assignlab_form'>";
print "<table width='300'>";
print "<form action = '" . $_SERVER["SELF"] . "?page=" . $get_vars["page"] . "&menu_id={$menu_id}&consult_id=" . $get_vars["consult_id"] . "&ptmenu=" . $get_vars["ptmenu"] . "&module=" . $get_vars["module"] . "&ntp=" . $get_vars["ntp"] . "&ntp_id=" . $get_vars["ntp_id"] . "' name='form_assign_ntp_labs' method='post'>";
print "<tr valign='top'><td>";
print "<span class='boxtitle'>" . LBL_NTP_REGISTRY_ID . "</span><br> ";
print "REGISTRY ID: <font color='red'>" . module::pad_zero($get_vars["ntp_id"], 7) . "</font><br/>";
print "<br/></td></tr>";
print "<tr valign='top'><td>";
print "<span class='boxtitle'>" . INSTR_ASSIGN_NON_NTP_LABS . "</span><br/>";
$sql = "SELECT s.request_id, l.lab_id, date_format(s.lab_timestamp, '%a %d %b %Y, %h:%i%p') lab_timestamp " . "FROM m_consult_lab l, m_consult_lab_sputum s " . "left join m_consult_ntp_labs_request n " . "on n.request_id = l.request_id " . "where s.request_id = l.request_id and isnull(n.request_id) ";
if ($result = mysql_query($sql)) {
if (mysql_num_rows($result)) {
while ($ntp_lab = mysql_fetch_array($result)) {
print "<input type='checkbox' name='labs[]' value='" . $ntp_lab["request_id"] . "' /><font color='red'>" . module::pad_zero($ntp_lab["request_id"], 7) . "</font>: " . lab::get_lab_name($ntp_lab["lab_id"]);
print "<br/> " . $ntp_lab["lab_timestamp"] . "<br/>";
}
} else {
print "<font color='red'>No lab records for this category</font><br/>";
}
}
print "</td></tr>";
print "<tr><td>";
if ($_SESSION["priv_add"]) {
print "<input type='hidden' name='registry_id' value='" . $get_vars["ntp_id"] . "'/>";
print "<br><input type='submit' value = 'Assign Lab Exam' class='textbox' name='submitntp' style='border: 1px solid #000000'><br>";
}
print "</td></tr>";
print "</form>";
print "</table><br>";
}
