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 form_visitdetails() {
//
// shows list of patient groups and complaints
// on the left side under VISIT DETAILS
//
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 = $this->get_patient_id($get_vars["consult_id"]);
$age = patient::get_age($patient_id);
$gender = patient::get_gender($patient_id);
print "<table width='300'>";
print "<form action = '".$_SERVER["SELF"]."?page=CONSULTS&menu_id=$menu_id&consult_id=".$get_vars["consult_id"]."&ptmenu=DETAILS' name='form_patient' method='post'>";
print "<tr valign='top'><td>";
print "<span class='boxtitle'>".LBL_PTGROUP."</span><br> ";
print ptgroup::checkbox_ptgroup($age, $gender);
print "<br>";
print "</td></tr>";
/*
print "<tr valign='top'><td>";
print "<span class='boxtitle'>".LBL_COMPLAINTCAT."</span><br> ";
print complaint::checkbox_complaintcat($age, $gender);
print "<br>";
print "</td></tr>";
*/
print "<tr valign='top'><td>";
print "<span class='boxtitle'>".LBL_SEE_DOCTOR."?</span><br> ";
print "<input type='radio' name='see_doctor_flag' value='Y'/> Will see physician<br/>";
print "<input type='radio' name='see_doctor_flag' value='N'/> Will not see physician<br/>";
print "</td></tr>";
print "<tr><td>";
print "<br><input type='submit' value = 'Save Details' class='textbox' name='submitdetails' style='border: 1px solid #000000'><br>";
print "</td></tr>";
print "</form>";
print "</table><br>";
}
function process_inclusive_dates()
{
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);
}
$sql_delete = "delete from m_patient_epi_tcl";
$result_delete = mysql_query($sql_delete);
list($month, $day, $year) = explode("/", $post_vars["start_date"]);
$start_date = $year . "-" . str_pad($month, 2, "0", STR_PAD_LEFT) . "-" . str_pad($day, 2, "0", STR_PAD_LEFT);
list($month, $day, $year) = explode("/", $post_vars["end_date"]);
$end_date = $year . "-" . str_pad($month, 2, "0", STR_PAD_LEFT) . "-" . str_pad($day, 2, "0", STR_PAD_LEFT);
/*$sql = "select p.patient_id, p.patient_dob, concat(p.patient_lastname, ', ', p.patient_firstname) ".
"patient_name, p.patient_mother, ".
"date_format(adddate(p.patient_dob, interval 1 year), '%b %y') month_reaches_age1, m.fully_immunized_date ".
"from m_patient p, m_patient_ccdev m ".
"where p.patient_id = m.patient_id and ".
"to_days(adddate(p.patient_dob,interval 1 year)) >= to_days('$start_date') and ".
"to_days(adddate(p.patient_dob,interval 1 year)) <= to_days('$end_date') order by p.patient_dob ";
*/
/*$sql = "select patient_id, patient_dob, concat(patient_lastname, ', ', patient_firstname) ".
"patient_name, patient_mother, ".
"date_format(adddate(patient_dob, interval 1 year), '%b %y') month_reaches_age1 ".
"from m_patient ".
"where to_days(adddate(patient_dob,interval 1 year)) >= to_days('$start_date') and ".
"to_days(adddate(patient_dob,interval 1 year)) <= to_days('$end_date') order by patient_dob ";*/
$sql = "select patient_id, patient_dob, concat(patient_lastname, ', ', patient_firstname) " . "patient_name, patient_mother, " . "date_format(adddate(patient_dob, interval 1 year), '%b %y') month_reaches_age1 " . "from m_patient " . "where to_days(registration_date) >= to_days('{$start_date}') and " . "to_days(registration_date) <= to_days('{$end_date}') order by registration_date ";
if ($result = mysql_query($sql)) {
if (mysql_num_rows($result)) {
while ($report = mysql_fetch_array($result)) {
// blank variables
$patient_age = patient::get_age($report[patient_id]);
if ($patient_age <= 1) {
$family_id = 0;
$patient_address = '';
$barangay_id = '';
// retrieve other data
$family_id = family::get_family_id($report["patient_id"]);
if ($family_id) {
$patient_address = family::show_address($family_id);
$barangay_id = family::barangay_id($family_id);
}
$fully_immunized_date = $this->get_fully_immunized_date($report[patient_id]);
// insert data into tcl
$sql_insert = "insert into m_patient_epi_tcl (patient_id, patient_dob, family_id, patient_name, " . "patient_mother, patient_address, barangay_name, month_reaches_age1, " . "fully_immunized_date) values ('" . $report["patient_id"] . "', " . "'" . $report["patient_dob"] . "', '{$family_id}', '" . $report["patient_name"] . "', " . "'" . $report["patient_mother"] . "', '{$patient_address}', '{$barangay_id}', " . "'" . $report["month_reaches_age1"] . "', '{$fully_immunized_date}')";
$result_insert = mysql_query($sql_insert) or die(mysql_error());
$this->get_vaccine_date($report["patient_id"], $start_date, $end_date);
}
}
// while
$sql = "select patient_id 'PATIENT ID', date_format(patient_dob,'%c/%e/%y') 'DATE OF BIRTH', " . "family_id 'FAMILY ID', patient_name 'NAME OF INFANT', patient_mother 'NAME OF MOTHER', " . "patient_address 'ADDRESS', barangay_name 'BRGY', month_reaches_age1 'MONTH REACHES AGE 1', " . "fully_immunized_date 'DATE FULLY IMMUNIZED', " . "BCG 'BCG', DPT1 'DPT 1', " . "DPT2 'DPT 2', DPT3 'DPT 3', " . "OPV1 'POLIO 1', OPV2 'POLIO 2', " . "OPV3 'POLIO 3', MSL 'MEASLES', " . "HEPB1 'HEPA B1', HEPB2 'HEPA B2', " . "HEPB3 'HEPA B3' " . "from m_patient_epi_tcl order by barangay_name, patient_dob ";
//"where to_days(actual_vaccine_date) >= to_days('$start_date') and ".
//"to_days(actual_vaccine_date) <= to_days('$end_date') ".
//"order by barangay_name, patient_dob ";
$pdf = new PDF('L', 'pt', 'Legal');
//$pdf->SetMargins('0.5','0.5','0.5');
$pdf->SetFont('Arial', '', 10);
//$pdf->SetMargins('0.5','0.5','0.5');
$pdf->AliasNbPages();
$pdf->connect('localhost', 'root', '', 'game');
$attr = array('titleFontSize' => 14, 'titleText' => 'TARGET CLIENT LIST FOR EPI (' . $post_vars["start_date"] . ' - ' . $post_vars["end_date"] . ')');
$pdf->mysql_report($sql, false, $attr, "../modules/_uploads/epi_tcl.pdf");
header("location: " . $_SERVER["PHP_SELF"] . "?page=" . $get_vars["page"] . "&menu_id=" . $get_vars["menu_id"] . "&report_menu=TCL");
}
}
}
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>";
}
}
}
}
function _details_imci()
{
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);
}
// check if age correct
$patient_id = healthcenter::get_patient_id($get_vars["consult_id"]);
if (!ptgroup::is_child(patient::get_age($patient_id))) {
return print "<font color='red'>Module inappropriate for age.</font><br/>";
}
}
function generate_summary() {
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);
}
// STEP 1. empty report table
$sql_delete = "delete from m_consult_disease_notifiable_report";
$result_delete = mysql_query($sql_delete);
// STEP 2. insert diseases from lib in report table
// records are unique for disease_id so you can enter only one set of
// notifiable diseases for a given start consult date
$sql_lib = "select disease_id from m_lib_disease_notifiable order by disease_name";
if ($result_lib = mysql_query($sql_lib)) {
if (mysql_num_rows($result_lib)) {
while (list($disease_id) = mysql_fetch_array($result_lib)) {
$sql_insert = "insert into m_consult_disease_notifiable_report (disease_id) ".
"values ('$disease_id')";
$result_insert = mysql_query($sql_insert);
}
}
}
// STEP 3. loop through notifiable disease consult records and
// update report table by disease id and age group
// start date
list($month,$day,$year) = explode("/", $post_vars["start_date"]);
$start_date = $year."-".str_pad($month, 2, "0", STR_PAD_LEFT)."-".str_pad($day, 2, "0", STR_PAD_LEFT);
// end date
list($month,$day,$year) = explode("/", $post_vars["end_date"]);
$end_date = $year."-".str_pad($month, 2, "0", STR_PAD_LEFT)."-".str_pad($day, 2, "0", STR_PAD_LEFT);
$sql_consult = "select patient_id, disease_id ".
"from m_consult_disease_notifiable ".
"where to_days(disease_timestamp) >= to_days('$start_date') and ".
"to_days(disease_timestamp) <= to_days('$end_date')";
if ($result_consult = mysql_query($sql_consult)) {
if (mysql_num_rows($result_consult)) {
while (list($patient_id, $disease_id) = mysql_fetch_array($result_consult)) {
$patient_age = patient::get_age($patient_id);
$gender = patient::get_gender($patient_id);
if ($patient_age < 1) {
$sql_update = "update m_consult_disease_notifiable_report set ".
$gender."less1 = ".$gender."less1+1 ".
"where disease_id = '$disease_id'";
$result_update = mysql_query($sql_update);
}
if ($patient_age >= 1 && $patient_age <= 4) {
$sql_update = "update m_consult_disease_notifiable_report set ".
$gender."_1to4 = ".$gender."_1to4 + 1 ".
"where disease_id = '$disease_id'";
$result_update = mysql_query($sql_update);
}
if ($patient_age >= 5 && $patient_age <= 14) {
$sql_update = "update m_consult_disease_notifiable_report set ".
$gender."_5to14 = ".$gender."_5to14 + 1 ".
"where disease_id = '$disease_id'";
$result_update = mysql_query($sql_update);
}
if ($patient_age >= 15 && $patient_age <= 49) {
$sql_update = "update m_consult_disease_notifiable_report set ".
$gender."_15to49 = ".$gender."_15to49 + 1 ".
"where disease_id = '$disease_id'";
$result_update = mysql_query($sql_update);
}
if ($patient_age >= 50 && $patient_age <= 64) {
$sql_update = "update m_consult_disease_notifiable_report set ".
$gender."_50to64 = ".$gender."_50to64 + 1 ".
"where disease_id = '$disease_id'";
$result_update = mysql_query($sql_update);
}
if ($patient_age >= 65) {
$sql_update = "update m_consult_disease_notifiable_report set ".
$gender."_65plus = ".$gender."_65plus + 1 ".
"where disease_id = '$disease_id'";
$result_update = mysql_query($sql_update);
}
$sql_update = "update m_consult_disease_notifiable_report set ".
$gender."_total = ".$gender."_total + 1 ".
"where disease_id = '$disease_id'";
$result_update = mysql_query($sql_update);
}
}
}
// STEP 4. display
$sql = "select l.disease_name, c.* ".
"from m_consult_disease_notifiable_report c, m_lib_disease_notifiable l ".
"where l.disease_id = c.disease_id order by l.disease_name";
if ($result = mysql_query($sql)) {
if (mysql_num_rows($result)) {
print "<br/>";
print "<b>NOTIFIABLE DISEASE REPORT</b><br/><br/>";
print "START: ".$post_vars["start_date"]."<br/>";
print "END: ".$post_vars["end_date"]."<br/><br/>";
print "<table width='500' cellspacing='0' cellpadding='2' style='border: 1px solid black'>";
print "<tr bgcolor='#FFCC33'>";
print "<td class='tinylight' rowspan='2' valign='bottom'><b>DISEASE</b></td>";
print "<td class='tinylight' colspan='2' width='10%'><b><1</b></td>";
print "<td class='tinylight' colspan='2' width='10%'><b>1-4</b></td>";
print "<td class='tinylight' colspan='2' width='10%'><b>5-14</b></td>";
print "<td class='tinylight' colspan='2' width='10%'><b>15-49</b></td>";
print "<td class='tinylight' colspan='2' width='10%'><b>50-64</b></td>";
print "<td class='tinylight' colspan='2' width='10%'><b>65+</b></td>";
print "<td class='tinylight' colspan='2' width='10%'><b>TOTAL</b></td>";
print "</tr>";
print "<tr bgcolor='#FFCC33'>";
print "<td class='tinylight'><b>M</b></td>"; // <1
print "<td class='tinylight'><b>F</b></td>"; // <1
print "<td class='tinylight'><b>M</b></td>"; // 1-4
print "<td class='tinylight'><b>F</b></td>"; // 1-4
print "<td class='tinylight'><b>M</b></td>"; // 5-14
print "<td class='tinylight'><b>F</b></td>"; // 5-14
print "<td class='tinylight'><b>M</b></td>"; // 15-49
print "<td class='tinylight'><b>F</b></td>"; // 15-49
print "<td class='tinylight'><b>M</b></td>"; // 50-64
print "<td class='tinylight'><b>F</b></td>"; // 50-64
print "<td class='tinylight'><b>M</b></td>"; // 65+
print "<td class='tinylight'><b>F</b></td>"; // 65+
print "<td class='tinylight'><b>M</b></td>"; // TOTAL
print "<td class='tinylight'><b>F</b></td>"; // TOTAL
print "</tr>";
while ($report = mysql_fetch_array($result)) {
$bgcolor=($bgcolor=="#FFFF99"?"white":"#FFFF99");
print "<tr bgcolor='$bgcolor'>";
print "<td class='tinylight'>".$report["disease_name"]."</td>";
print "<td class='tinylight'>".($report["M_less1"]==0?"-":$report["M_less1"])."</td>";
print "<td class='tinylight'>".($report["F_less1"]==0?"-":$report["F_less1"])."</td>";
print "<td class='tinylight'>".($report["M_1to4"]==0?"-":$report["M_1to4"])."</td>";
print "<td class='tinylight'>".($report["F_1to4"]==0?"-":$report["F_1to4"])."</td>";
print "<td class='tinylight'>".($report["M_5to14"]==0?"-":$report["M_5to14"])."</td>";
print "<td class='tinylight'>".($report["F_5to14"]==0?"-":$report["F_5to14"])."</td>";
print "<td class='tinylight'>".($report["M_15to49"]==0?"-":$report["M_15to49"])."</td>";
print "<td class='tinylight'>".($report["F_15to49"]==0?"-":$report["F_15to49"])."</td>";
print "<td class='tinylight'>".($report["M_50to64"]==0?"-":$report["M_50to64"])."</td>";
print "<td class='tinylight'>".($report["F_50to64"]==0?"-":$report["F_50to64"])."</td>";
print "<td class='tinylight'>".($report["M_65plus"]==0?"-":$report["F_50to64"])."</td>";
print "<td class='tinylight'>".($report["F_65plus"]==0?"-":$report["F_65plus"])."</td>";
print "<td class='tinylight'>".($report["M_total"]==0?"-":$report["M_total"])."</td>";
print "<td class='tinylight'>".($report["F_total"]==0?"-":$report["F_total"])."</td>";
print "</tr>";
}
print "</table>";
}
}
}
function generate_summary()
{
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);
}
// STEP 1. empty report table
$sql_delete = "delete from m_consult_injury_report";
$result_delete = mysql_query($sql_delete);
// STEP 2. insert injury codes from injury lib in report table
// records are unique for injury_id so you can enter only one set of
// notifiable diseases for a given start consult date
$sql_lib = "select disease_id from m_lib_disease_notifiable order by disease_name";
if ($result_lib = mysql_query($sql_lib)) {
if (mysql_num_rows($result_lib)) {
while (list($disease_id) = mysql_fetch_array($result_lib)) {
$sql_insert = "insert into m_consult_disease_notifiable_report (disease_id) " . "values ('{$disease_id}')";
$result_insert = mysql_query($sql_insert);
}
}
}
// STEP 3. loop through notifiable disease consult records and
// update report table by disease id and age group
$sql_consult = "select patient_id, disease_id from m_consult_disease_notifiable";
if ($result_consult = mysql_query($sql_consult)) {
if (mysql_num_rows($result_consult)) {
while (list($patient_id, $disease_id) = mysql_fetch_array($result_consult)) {
$patient_age = patient::get_age($patient_id);
$gender = patient::get_gender($patient_id);
if ($patient_age < 1) {
$sql_update = "update m_consult_disease_notifiable_report set " . $gender . "less1 = " . $gender . "less1+1 " . "where disease_id = '{$disease_id}'";
$result_update = mysql_query($sql_update);
}
if ($patient_age >= 1 && $patient_age <= 4) {
$sql_update = "update m_consult_disease_notifiable_report set " . $gender . "_1to4 = " . $gender . "_1to4 + 1 " . "where disease_id = '{$disease_id}'";
$result_update = mysql_query($sql_update);
}
if ($patient_age >= 5 && $patient_age <= 14) {
$sql_update = "update m_consult_disease_notifiable_report set " . $gender . "_5to14 = " . $gender . "_5to14 + 1 " . "where disease_id = '{$disease_id}'";
$result_update = mysql_query($sql_update);
}
if ($patient_age >= 15 && $patient_age <= 49) {
$sql_update = "update m_consult_disease_notifiable_report set " . $gender . "_15to49 = " . $gender . "_15to49 + 1 " . "where disease_id = '{$disease_id}'";
$result_update = mysql_query($sql_update);
}
if ($patient_age >= 50 && $patient_age <= 64) {
$sql_update = "update m_consult_disease_notifiable_report set " . $gender . "_50to64 = " . $gender . "_50to64 + 1 " . "where disease_id = '{$disease_id}'";
$result_update = mysql_query($sql_update);
}
if ($patient_age >= 65) {
$sql_update = "update m_consult_disease_notifiable_report set " . $gender . "_65plus = " . $gender . "_65plus + 1 " . "where disease_id = '{$disease_id}'";
$result_update = mysql_query($sql_update);
}
$sql_update = "update m_consult_disease_notifiable_report set " . $gender . "_total = " . $gender . "_total + 1 " . "where disease_id = '{$disease_id}'";
$result_update = mysql_query($sql_update);
}
}
}
// STEP 4. display
$sql = "select l.injury_name, c.* " . "from m_consult_injury_report c, m_lib_injury l " . "where l.injury_id = c.injury_id order by l.injury_name";
if ($result = mysql_query($sql)) {
if (mysql_num_rows($result)) {
print "<br/>";
print "<b>INJURY REPORT</b><br/><br/>";
print "<table width='500' cellspacing='0' cellpadding='2' style='border: 1px solid black'>";
print "<tr bgcolor='#FFCC33'>";
print "<td class='tinylight' rowspan='2' valign='bottom'><b>INJURY</b></td>";
print "<td class='tinylight' colspan='2' width='10%'><b><1</b></td>";
print "<td class='tinylight' colspan='2' width='10%'><b>1-4</b></td>";
print "<td class='tinylight' colspan='2' width='10%'><b>5-14</b></td>";
print "<td class='tinylight' colspan='2' width='10%'><b>15-49</b></td>";
print "<td class='tinylight' colspan='2' width='10%'><b>50-64</b></td>";
print "<td class='tinylight' colspan='2' width='10%'><b>65+</b></td>";
print "<td class='tinylight' colspan='2' width='10%'><b>TOTAL</b></td>";
print "</tr>";
print "<tr bgcolor='#FFCC33'>";
print "<td class='tinylight'><b>M</b></td>";
// <1
print "<td class='tinylight'><b>F</b></td>";
// <1
print "<td class='tinylight'><b>M</b></td>";
// 1-4
print "<td class='tinylight'><b>F</b></td>";
// 1-4
print "<td class='tinylight'><b>M</b></td>";
// 5-14
print "<td class='tinylight'><b>F</b></td>";
// 5-14
print "<td class='tinylight'><b>M</b></td>";
// 15-49
print "<td class='tinylight'><b>F</b></td>";
// 15-49
print "<td class='tinylight'><b>M</b></td>";
// 50-64
print "<td class='tinylight'><b>F</b></td>";
// 50-64
print "<td class='tinylight'><b>M</b></td>";
// 65+
print "<td class='tinylight'><b>F</b></td>";
// 65+
print "<td class='tinylight'><b>M</b></td>";
// TOTAL
print "<td class='tinylight'><b>F</b></td>";
// TOTAL
print "</tr>";
while ($report = mysql_fetch_array($result)) {
$bgcolor = $bgcolor == "#FFFF99" ? "white" : "#FFFF99";
print "<tr bgcolor='{$bgcolor}'>";
print "<td class='tinylight'>" . $report["injury_name"] . "</td>";
print "<td class='tinylight'>" . $report["M_less1"] . "</td>";
print "<td class='tinylight'>" . $report["F_less1"] . "</td>";
print "<td class='tinylight'>" . $report["M_1to4"] . "</td>";
print "<td class='tinylight'>" . $report["F_1to4"] . "</td>";
print "<td class='tinylight'>" . $report["M_5to14"] . "</td>";
print "<td class='tinylight'>" . $report["F_5to14"] . "</td>";
print "<td class='tinylight'>" . $report["M_15to49"] . "</td>";
print "<td class='tinylight'>" . $report["F_15to49"] . "</td>";
print "<td class='tinylight'>" . $report["M_50to64"] . "</td>";
print "<td class='tinylight'>" . $report["F_50to64"] . "</td>";
print "<td class='tinylight'>" . $report["M_65plus"] . "</td>";
print "<td class='tinylight'>" . $report["F_65plus"] . "</td>";
print "<td class='tinylight'>" . $report["M_total"] . "</td>";
print "<td class='tinylight'>" . $report["F_total"] . "</td>";
print "</tr>";
}
print "</table>";
}
}
}
