function form_mc_firstvisit() {
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 ($post_vars["mc_id"] && $post_vars["submitmc"]) {
$sql = "select mc_id, patient_id, consult_id, mc_consult_date, ".
"patient_lmp, obscore_gp, obscore_fpal, blood_type, ".
"patient_height ".
"from m_patient_mc ".
"where mc_id = '".$post_vars["mc_id"]."'";
if ($result = mysql_query($sql)) {
if (mysql_num_rows($result)) {
$mc = mysql_fetch_array($result);
}
}
}
print "<a name='visit1form'>";
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"]."&ptmenu=".$get_vars["ptmenu"]."&module=mc&mc=VISIT1' name='form_mc_visit1' method='post'>";
print "<tr valign='top'><td>";
print "<b>".FTITLE_MC_DATA_FORM."</b><br/><br/>";
print "</td></tr>";
print "<tr valign='top'><td>";
// FIRST VISIT INFO
// get most recent pregnancy id
$patient_id = healthcenter::get_patient_id($get_vars["consult_id"]);
$mc_id = mc::registry_record_exists($patient_id);
print "<table bgcolor='#FFCCFF' width='300' cellpadding='3'>";
print "<tr valign='top'><td>";
if ($mc["patient_lmp"]) {
list($year, $month, $day) = explode("-", $mc["patient_lmp"]);
$lmp_date = "$month/$day/$year";
}
print "<span class='boxtitle'>".LBL_LMP_DATE."</span><br> ";
print "<input type='text' size='10' maxlength='10' class='textbox' name='lmp_date' value='".($lmp_date?$lmp_date:$post_vars["lmp_date"])."' style='border: 1px solid #000000'> ";
print "<a href=\"javascript:show_calendar4('document.form_mc_visit1.lmp_date', document.form_mc_visit1.lmp_date.value);\"><img src='../images/cal.gif' width='16' height='16' border='0' alt='Click Here to Pick up the date'></a><br>";
print "<small>Click on the calendar icon to select date. Otherwise use MM/DD/YYYY format.</small><br>";
print "</td></tr>";
print "<tr valign='top'><td>";
print "<span class='boxtitle'>".LBL_OBSTETRIC_SCORE."</span><br> ";
print "G/P <input type='text' class='tinylight' size='7' maxlength='7' name='obscore_gp' value='".($mc["obscore_gp"]?$mc["obscore_gp"]:$post_vars["obscore_gp"])."' style='border: 1px solid #000000'> ";
print "FPAL <input type='text' class='tinylight' size='7' maxlength='7' name='obscore_fpal' value='".($mc["obscore_fpal"]?$mc["obscore_fpal"]:$post_vars["obscore_fpal"])."' style='border: 1px solid #000000'><br>";
print "</td></tr>";
print "<tr valign='top'><td>";
print "<span class='boxtitle'>".LBL_PATIENT_HEIGHT."</span><br> ";
print "<input type='text' class='tinylight' size='10' maxlength='10' name='patient_height' value='".($mc["patient_height"]?$mc["patient_height"]:$post_vars["patient_height"])."' style='border: 1px solid #000000'> ";
print "</td></tr>";
print "<tr valign='top'><td>";
print "<span class='boxtitle'>".LBL_PATIENT_BLOODTYPE."</span><br> ";
print mc::show_bloodtype($mc["blood_type"]);
print "</td></tr>";
print "<tr valign='top'><td>";
print "<span class='boxtitle'>".LBL_RISK_FACTORS."</span><br> ";
print mc::checkbox_risk_factors($mc["mc_id"], $mc["consult_id"]);
print "</td></tr>";
print "</table>";
print "</td></tr>";
print "<tr><td><br/>";
if ($post_vars["mc_id"]) {
if ($_SESSION["priv_update"]) {
print "<input type='hidden' name='mc_id' value='".$post_vars["mc_id"]."' />";
print "<input type='submit' value = 'Update Data' class='textbox' name='submitmc' style='border: 1px solid #000000'> ";
print "<input type='submit' value = 'Delete Data' class='textbox' name='submitmc' style='border: 1px solid #000000'> ";
}
} else {
if ($_SESSION["priv_add"]) {
print "<br><input type='submit' value = 'Save Data' class='textbox' name='submitmc' style='border: 1px solid #000000'><br>";
}
}
print "</td></tr>";
print "</form>";
print "</table><br>";
}
