function get_family_id() {
//
// same as search_family
// better use of functionality
//
if (func_num_args()>0) {
$arg_list = func_get_args();
$patient_id = $arg_list[0];
}
return family::search_family($patient_id);
}
function patient_info() {
//print_r($_SESSION);
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);
}
if ($get_vars["consult_id"]) {
$sql = "select p.patient_id, p.patient_lastname, p.patient_firstname, round((to_days(now())-to_days(p.patient_dob))/365 , 1) computed_age, p.patient_gender, p.patient_dob, c.see_doctor_flag ".
"from m_patient p, m_consult c ".
"where c.patient_id = p.patient_id and c.consult_id = '".$get_vars["consult_id"]."'";
if ($result = mysql_query($sql)) {
if (mysql_num_rows($result)) {
$ptinfo = mysql_fetch_array($result);
}
}
}
print "<table width='600' cellpadding='2' cellspacing='0' style='border: 2px solid black'>";
print "<tr><td colspan='2' bgcolor='#FFFFCC'>";
print "<span class='library'>".strtoupper($ptinfo["patient_lastname"].", ".$ptinfo["patient_firstname"])."</span> <br/>";
print LBL_FAMILY_NUMBER." <b>".family::search_family($ptinfo["patient_id"])."</b> "."AGE: <b>".($ptinfo["computed_age"]<1?($ptinfo["computed_age"]*12)."M":$ptinfo["computed_age"]."Y")."/".$ptinfo["patient_gender"]."</b> BIRTHDATE: <b>".$ptinfo["patient_dob"]."</b><br/>";
print "</td></tr>";
print "<tr valign='top' bgcolor='#FFFF99'><td>";
print LBL_PATIENT_ID.": <b>".module::pad_zero($ptinfo["patient_id"],7)."</b><br/>";
print LBL_TOTAL_VISITS.": <b>".$this->get_totalvisits($ptinfo["patient_id"])."</b> ".LBL_LAST_VISIT." <b>".$this->get_lastvisit($ptinfo["patient_id"])."</b><br/>";
print "</td><td> ";
print "</td></tr>";
print "<tr><td colspan='2' bgcolor='#FFFF66'>";
print LBL_ELAPSED_TIME." <b>".$this->get_elapsedtime($get_vars["consult_id"])."</b> ";
print "</td></tr>";
print "</table>";
}
function _consult_ccdev()
{
//
// main submodule for ccdev consults
//
// always check dependencies
if ($exitinfo = $this->missing_dependencies('ccdev')) {
return print $exitinfo;
}
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);
}
$c = new ccdev();
//$imci = new imci;
mysql_query("ALTER TABLE `m_patient_ccdev` DROP PRIMARY KEY, ADD PRIMARY KEY(`ccdev_id`)");
$c->ccdev_menu($menu_id, $post_vars, $get_vars);
if ($post_vars["submitccdev"]) {
$c->process_ccdev($menu_id, $post_vars, $get_vars);
}
$patient_id = healthcenter::get_patient_id($get_vars["consult_id"]);
switch ($get_vars["ccdev"]) {
case "VISIT1":
if (!$c->registry_record_exists($patient_id)) {
$c->form_ccdev_firstvisit($menu_id, $post_vars, $get_vars, $validuser, $isadmin);
} else {
$c->display_ccdev_firstvisit($menu_id, $post_vars, $get_vars, $validuser, $isadmin);
if ($post_vars["ccdev_id"]) {
$c->form_ccdev_firstvisit($menu_id, $post_vars, $get_vars, $validuser, $isadmin);
}
$c->display_form_low_birth_wt($menu_id, $post_vars, $get_vars, $validuser, $isadmin);
}
break;
case "SIBLINGS":
$patient_id = healthcenter::get_patient_id($get_vars["consult_id"]);
$get_vars["family_id"] = family::search_family($patient_id);
ccdev::form_family_members($menu_id, $post_vars, $get_vars);
break;
case "IMCI":
break;
case "BFED":
$c->form_ccdev_breastfeed($menu_id, $post_vars, $get_vars, $validuser, $isadmin);
break;
case "SVC":
default:
$c->form_ccdev_services($menu_id, $post_vars, $get_vars, $validuser, $isadmin);
$c->form_ccdev_remarks($menu_id, $post_vars, $get_vars, $validuser, $isadmin);
break;
}
}
