function show_menstrual_list()
{
if (func_num_args() > 0) {
$arg_list = func_get_args();
$menarche = $arg_list[0];
$lmp = $arg_list[1];
$pduration = $arg_list[2];
$cycle = $arg_list[3];
$pads = $arg_list[4];
$sexinter = $arg_list[5];
$controlmethod = $arg_list[6];
$menopause = $arg_list[7];
$menopauseage = $arg_list[8];
}
if ($lmp != '00/00/0000') {
//list($year,$month,$day)=explode('-', $lmp);
//$lmp_date = $month.'/'.$day.'/'.$year;
$lmp_date = $lmp;
} else {
$lmp_date = '';
}
$gender = notes::get_patient_info();
if ($gender == 'F') {
$ret_val .= "<span class='boxtitle'>MENSTRUAL HISTORY</span><br/>";
$ret_val .= "<span class='boxtitle'>Menarche: </span>{$menarche}<br />";
$ret_val .= "<span class='boxtitle'>Last Menstrual Period: </span>{$lmp_date}<br/>";
$ret_val .= "<span class='boxtitle'>Period Duration: </span>{$pduration}<br />";
$ret_val .= "<span class='boxtitle'>Interval/Cycle: </span>{$cycle}<br />";
$ret_val .= "<span class='boxtitle'>No. of pads/day during menstruation: </span>{$pads}<br />";
$ret_val .= "<span class='boxtitle'>Onset of sexual intercourse: </span>{$sexinter}<br />";
$ret_val .= "<span class='boxtitle'>Birth control method: </span>";
$sql = "select method_id, method_name from m_lib_fp_methods where method_gender ='F' and method_id = '{$controlmethod}'";
if ($result = mysql_query($sql)) {
if (mysql_num_rows($result)) {
while (list($id, $name) = mysql_fetch_array($result)) {
$ret_val .= $name . "<br/>";
}
}
}
$ret_val .= "<span class='boxtitle'>Menopause: </span>" . ($menopause == 'Y' ? 'Yes' : 'No') . "<br/>";
$ret_val .= "<span class='boxtitle'>If yes, at what age?: </span>{$menopauseage}<br />";
$ret_val .= "<br/>";
//$ret_val .= $menopause;
return $ret_val;
} else {
return false;
}
}