function display_registry_record_detail() {
//
// called from _details_mc()
// contains most alerts for this pregnancy
//
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 mc_id, patient_id, consult_id, date_format(mc_timestamp, '%a %d %b %Y, %h:%i%p') mc_timestamp, ".
"patient_lmp, patient_edc, trimester1_date, trimester2_date, round((to_days(mc_consult_date)-to_days(patient_lmp))/7,0) patient_aog, ".
"MOD((to_days(mc_consult_date)-to_days(patient_lmp)),7) remainder, ".
"trimester3_date, postpartum_date, to_days(trimester1_date) days_trim1, ".
"to_days(trimester2_date) days_trim2, to_days(trimester3_date) days_trim3, ".
"to_days(postpartum_date) days_pp, to_days(mc_consult_date) days_today, obscore_gp, obscore_fpal, user_id, ".
"blood_type, patient_age, patient_height, delivery_date, ".
"outcome_id, birthweight, end_pregnancy_flag ".
"from m_patient_mc where patient_id = '$patient_id' and mc_id = '".$get_vars["mc_id"]."'";
if ($result = mysql_query($sql)) {
if (mysql_num_rows($result)) {
$mc = mysql_fetch_array($result);
if ($get_vars["mc_id"]==$mc["mc_id"]) {
print "<form method='post' action='".$_SERVER["PHP_SELF"]."?page=".$get_vars["page"]."&menu_id=".$get_vars["menu_id"]."&consult_id=".$get_vars["consult_id"]."&ptmenu=DETAILS&module=mc&mc=".$get_vars["mc"]."&mc_id=".$get_vars["mc_id"]."#visit1form'>";
print "<table width='280' style='border: 1px dotted black'><tr><td>";
print "<span class='tinylight'>";
print "REGISTRY ID: <font color='red'>".module::pad_zero($mc["mc_id"], 7)."</font><br/>";
print "PATIENT NAME: ".patient::get_name($patient_id)."<br/>";
$patient_age = patient::get_age($patient_id);
print "AGE: ".(!mc::is_normal_age($patient_age)?"<font color='red'><b>$patient_age</b></font>":$patient_age)."<br/>";
print "SCORE: ".mc::check_gp_score($mc["obscore_gp"])." ".mc::check_fpal_score($mc["obscore_fpal"])."<br/>";
print "<hr size='1'/>";
print "REG DATE: ".$mc["mc_timestamp"]."<br/>";
print "REG BY: ".user::get_username($mc["user_id"])."<br/>";
print "<hr size='1'/>";
print "<table cellpadding='0' cellspacing='0'><tr valign='top'><td>";
// column 1
print "<span class='tinylight'>";
print "LMP: ".$mc["patient_lmp"]."<br/>";
print "EDC: ".$mc["patient_edc"]."<br/>";
// get AOG according to whether patient has delivered or not
// if has delivered, compute AOG according to that
// if not compute by consult_date
list($aog_wks, $aog_days) = mc::get_aog($mc["mc_id"], (mc::get_delivery_date($mc["mc_id"])=="0000-00-00"?healthcenter::get_consult_date($get_vars["consult_id"]):mc::get_delivery_date($mc["mc_id"])));
print "AOG: ".$aog_wks." WKS ".$aog_days." DAYS<br/>";
print "</span>";
print "</td><td>";
// column 2
print "<span class='tinylight'>";
print " BLOOD TYPE: ".($mc["blood_type"]=="AB"?"<font color='red'><b>".$mc["blood_type"]."</b></font>":$mc["blood_type"])."<br/>";
print " HEIGHT (cm): ".(!mc::is_normal_height($mc["patient_height"])?"<font color='red'><b>".$mc["patient_height"]."</b></font>":$mc["patient_height"])."<br/>";
list($systolic, $diastolic) = healthcenter::get_blood_pressure($get_vars["consult_id"]);
print " SYS BP: ".($systolic?$systolic:"NA")."<br/>";
print " DIAS BP: ".($diastolic?$diastolic:"NA")."<br/>";
if ($systolic && $diastolic) {
print " STAGE: ";
healthcenter::hypertension_stage($systolic, $diastolic,$patient_age)."<br/>";
}
print "</span>";
print "</td></tr></table>";
print "<hr size='1'/>";
print "IMPORTANT DATES:<br/>";
print "End of 1st trimester: ".($mc["days_today"]>=$mc["days_trim1"]?"<font color='red'>".$mc["trimester1_date"]."</font>":$mc["trimester1_date"])."<br/>";
print "End of 2nd trimester: ".($mc["days_today"]>=$mc["days_trim2"]?"<font color='red'>".$mc["trimester2_date"]."</font>":$mc["trimester2_date"])."<br/>";
print "End of 3rd trimester: ".($mc["days_today"]>=$mc["days_trim3"]?"<font color='red'>".$mc["trimester3_date"]."</font>":$mc["trimester3_date"])."<br/>";
print "End of postpartum period: ".($mc["days_today"]>=$mc["days_pp"]?"<font color='red'>".$mc["postpartum_date"]."</font>":$mc["postpartum_date"])."<br/>";
echo "<hr size='1'>";
echo "Tetanus Toxoid Status: ";
echo "<font color='red'><b>".mc::get_tt_status($mc["mc_id"],$patient_id,$mc["patient_edc"])."</b></font>";
echo "</hr>";
print "<hr size='1'/>";
print "RISK FACTORS:<br/>";
$sql_risk = "select c.visit_risk_id, r.hospital_flag, r.monitor_flag ".
"from m_consult_mc_visit_risk c, m_lib_mc_risk_factors r ".
"where c.visit_risk_id = r.risk_id and ".
"c.consult_id = '".$mc["consult_id"]."'";
if ($result_risk = mysql_query($sql_risk)) {
if (mysql_num_rows($result_risk)) {
while ($risk = mysql_fetch_array($result_risk)) {
print "<img src='../images/arrow_redwhite.gif' border='0' /> ";
print ($risk["hospital_flag"]=="Y"?"<font color='red'>".mc::get_riskfactor_name($risk["visit_risk_id"])."</font>":mc::get_riskfactor_name($risk["visit_risk_id"]))."<br/>";
}
}
}
if ($mc["delivery_date"]<>"0000-00-00") {
// if registry record closed display the rest
print "<hr size='1'/>";
print "<table cellspacing='0' cellpadding='0' width='100%' bgcolor='#CCFFCC'><tr><td class='tinylight'>";
print "DELIVERY DATE: ".$mc["delivery_date"]."<br/>";
print "OUTCOME: ".mc::get_pregnancy_outcome($mc["outcome_id"])."<br/>";
print "BIRTH WT (KG): ".$mc["birthweight"]."<br/>";
print "</td></tr></table>";
}
print "<br/>";
if ($_SESSION["priv_add"]) {
if ($mc["end_pregnancy_flag"]=="N") {
// prevent editing of closed registry record
print "<input type='submit' name='submitmc' value='Update Visit 1' class='tinylight' style='border: 1px solid black'/> ";
print "<input type='submit' name='submitmc' value='Update Postpartum Data Form' class='tinylight' style='border: 1px solid black'/> ";
}
print "<input type='hidden' name='mc_id' value='".$mc["mc_id"]."'/>";
}
print "</span>";
print "</td></tr></table>";
print "</form>";
}
}
}
}
function display_registry_record_detail()
{
//
// called from _details_mc()
// contains most alerts for this pregnancy
//
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"]);
$arr_cause = array('SPON' => 'Spontaneous Abortion / Miscarriage', 'IND' => 'Induced Abortion', 'UNK' => 'Unknown');
$sql = "select mc_id, patient_id, consult_id, date_format(mc_timestamp, '%a %d %b %Y, %h:%i%p') mc_timestamp, " . "patient_lmp, patient_edc, trimester1_date, trimester2_date, round((to_days(mc_consult_date)-to_days(patient_lmp))/7,0) patient_aog, " . "MOD((to_days(mc_consult_date)-to_days(patient_lmp)),7) remainder, " . "trimester3_date, postpartum_date, to_days(trimester1_date) days_trim1, " . "to_days(trimester2_date) days_trim2, to_days(trimester3_date) days_trim3, " . "to_days(postpartum_date) days_pp, to_days(mc_consult_date) days_today, obscore_gp, obscore_fpal, user_id, " . "blood_type, patient_age, patient_height, delivery_date, " . "outcome_id, birthweight, end_pregnancy_flag,pregnancy_termination_cause,date_terminated_abortion,termination_code " . "from m_patient_mc where patient_id = '{$patient_id}' and mc_id = '" . $get_vars["mc_id"] . "'";
if ($result = mysql_query($sql)) {
if (mysql_num_rows($result)) {
$mc = mysql_fetch_array($result);
if ($get_vars["mc_id"] == $mc["mc_id"]) {
print "<form method='post' action='" . $_SERVER["PHP_SELF"] . "?page=" . $get_vars["page"] . "&menu_id=" . $get_vars["menu_id"] . "&consult_id=" . $get_vars["consult_id"] . "&ptmenu=DETAILS&module=mc&mc=" . $get_vars["mc"] . "&mc_id=" . $get_vars["mc_id"] . "#visit1form' name='display_reg_detail'>";
print "<table width='350' style='border: 1px dotted black'><tr><td>";
print "<span class='tinylight'>";
print "REGISTRY ID: <font color='red'>" . module::pad_zero($mc["mc_id"], 7) . "</font><br/>";
print "PATIENT NAME: " . patient::get_name($patient_id) . "<br/>";
$patient_age = patient::get_age($patient_id);
print "AGE: " . (!mc::is_normal_age($patient_age) ? "<font color='red'><b>{$patient_age}</b></font>" : $patient_age) . "<br/>";
print "SCORE: " . mc::check_gp_score($mc["obscore_gp"]) . " " . mc::check_fpal_score($mc["obscore_fpal"]) . "<br/>";
print "<hr size='1'/>";
print "REG DATE: " . $mc["mc_timestamp"] . "<br/>";
print "REG BY: " . user::get_username($mc["user_id"]) . "<br/>";
print "<hr size='1'/>";
print "<table cellpadding='0' cellspacing='0'><tr valign='top'><td>";
// column 1
print "<span class='tinylight'>";
print "LMP: " . $mc["patient_lmp"] . "<br/>";
print "EDC: " . $mc["patient_edc"] . "<br/>";
// get AOG according to whether patient has delivered or not
// if has delivered, compute AOG according to that
// if not compute by consult_date
list($aog_wks, $aog_days) = mc::get_aog($mc["mc_id"], mc::get_delivery_date($mc["mc_id"]) == "0000-00-00" ? healthcenter::get_consult_date($get_vars["consult_id"]) : mc::get_delivery_date($mc["mc_id"]));
print "AOG: " . $aog_wks . " WKS " . $aog_days . " DAYS<br/>";
print "</span>";
print "</td><td>";
// column 2
print "<span class='tinylight'>";
print " BLOOD TYPE: " . ($mc["blood_type"] == "AB" ? "<font color='red'><b>" . $mc["blood_type"] . "</b></font>" : $mc["blood_type"]) . "<br/>";
print " HEIGHT (cm): " . (!mc::is_normal_height($mc["patient_height"]) ? "<font color='red'><b>" . $mc["patient_height"] . "</b></font>" : $mc["patient_height"]) . "<br/>";
list($systolic, $diastolic) = healthcenter::get_blood_pressure($get_vars["consult_id"]);
print " SYS BP: " . ($systolic ? $systolic : "NA") . "<br/>";
print " DIAS BP: " . ($diastolic ? $diastolic : "NA") . "<br/>";
if ($systolic && $diastolic) {
print " STAGE: ";
healthcenter::hypertension_stage($systolic, $diastolic, $patient_age) . "<br/>";
}
print "</span>";
print "</td></tr></table>";
print "<hr size='1'/>";
print "IMPORTANT DATES:<br/>";
print "End of 1st trimester: " . ($mc["days_today"] >= $mc["days_trim1"] ? "<font color='red'>" . $mc["trimester1_date"] . "</font>" : $mc["trimester1_date"]) . "<br/>";
print "End of 2nd trimester: " . ($mc["days_today"] >= $mc["days_trim2"] ? "<font color='red'>" . $mc["trimester2_date"] . "</font>" : $mc["trimester2_date"]) . "<br/>";
print "End of 3rd trimester: " . ($mc["days_today"] >= $mc["days_trim3"] ? "<font color='red'>" . $mc["trimester3_date"] . "</font>" : $mc["trimester3_date"]) . "<br/>";
print "End of postpartum period: " . ($mc["days_today"] >= $mc["days_pp"] ? "<font color='red'>" . $mc["postpartum_date"] . "</font>" : $mc["postpartum_date"]) . "<br/>";
echo "<hr size='1'>";
echo "Tetanus Toxoid Status: ";
echo "<font color='red'><b>" . mc::get_tt_status($mc["mc_id"], $patient_id, $mc["patient_edc"]) . "</b></font>";
echo "</hr>";
print "<hr size='1'/>";
print "RISK FACTORS:<br/>";
$sql_risk = "select c.visit_risk_id, r.hospital_flag, r.monitor_flag " . "from m_consult_mc_visit_risk c, m_lib_mc_risk_factors r " . "where c.visit_risk_id = r.risk_id and " . "c.consult_id = '" . $mc["consult_id"] . "'";
if ($result_risk = mysql_query($sql_risk)) {
if (mysql_num_rows($result_risk)) {
while ($risk = mysql_fetch_array($result_risk)) {
print "<img src='../images/arrow_redwhite.gif' border='0' /> ";
print ($risk["hospital_flag"] == "Y" ? "<font color='red'>" . mc::get_riskfactor_name($risk["visit_risk_id"]) . "</font>" : mc::get_riskfactor_name($risk["visit_risk_id"])) . "<br/>";
}
}
}
if ($mc["delivery_date"] != "0000-00-00") {
// if registry record closed display the rest
print "<hr size='1'/>";
print "<table cellspacing='0' cellpadding='0' width='100%' bgcolor='#CCFFCC'><tr><td class='tinylight'>";
print "DELIVERY DATE: " . $mc["delivery_date"] . "<br/>";
print "OUTCOME: " . mc::get_pregnancy_outcome($mc["outcome_id"]) . "<br/>";
print "BIRTH WT (KG): " . $mc["birthweight"] . "<br/>";
print "</td></tr>";
echo "</table>";
}
if ($mc["end_pregnancy_flag"] == 'Y') {
echo "<p align='center'><input type='submit' value='Open Pregnancy Record' name='submitmc' class='tinylight' style='border: 1px solid black'></input></p>";
}
print "<br/>";
if (!empty($mc["pregnancy_termination_cause"]) && $mc[end_pregnancy_flag] == 'Y') {
echo "<hr size='1'>";
echo "DETAILS OF TERMINATION: ";
echo $mc["pregnancy_termination_cause"] . "<br/>";
echo "CAUSE OF TERMINATION: ";
echo empty($mc["termination_code"]) ? ' ' : $arr_cause[$mc["termination_code"]] . '</br>';
echo "DATE OF PREGNANCY TERMINATION: ";
echo $mc["date_terminated_abortion"];
echo "</hr>";
}
if ($_SESSION["priv_add"]) {
if ($mc["end_pregnancy_flag"] == "N") {
// prevent editing of closed registry record
echo "<hr size='1'>";
print "<p align='center'>";
print "<input type='submit' name='submitmc' value='Update Visit 1' class='tinylight' style='border: 1px solid black'/><br><br>";
print "<input type='submit' name='submitmc' value='Update Postpartum Data Form' class='tinylight' style='border: 1px solid black'/><br><br>";
print "<input type='submit' name='submitmc' value='Delete Postpartum Data Form' class='tinylight' style='border: 1px solid black'/><br><br>";
print "<input type='submit' name='submitmc' value='Terminate This Pregnancy' class='tinylight' style='border: 1px solid black'/> ";
print "</span>";
echo "</hr>";
}
print "<input type='hidden' name='mc_id' value='" . $mc["mc_id"] . "'/>";
}
print "</span>";
print "</td></tr>";
echo "<tr><td>";
switch ($_POST["submitmc"]) {
case "Terminate This Pregnancy":
if (mc::check_postpartum($_GET["mc_id"], $patient_id)) {
echo "<script language='javascript'>";
echo "window.alert('This patient has record for postpartum (i.e. date of delivery). Termination of pregnancy should occur during the prenatal period and before the actual delivey due to certain causes like miscarriage and abortion. If the you wish to terminate this pregnancy, Delete the Postpartum Data first to clear out the postpartum data.')";
echo "</script>";
} else {
//before terminating the pregnancy, make sure that cause is being captured
mc::display_terminate_cause();
}
break;
default:
break;
}
echo "</td></tr>";
echo "</table>";
print "</form>";
}
}
}
}
