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>"; }