function form_mc_prenatal() { 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["prenatal_id"] && $post_vars["submitmc"] && $post_vars["visit_sequence"]) { $sql = "select mc_id, patient_id, consult_id, patient_weight, prenatal_date, ". "blood_pressure_systolic, blood_pressure_diastolic, fundic_height, ". "presentation, fhr, fhr_location, trimester, visit_sequence, data_type ". "from m_consult_mc_prenatal ". "where mc_id = '".$post_vars["prenatal_id"]."' and visit_sequence = '".$post_vars["visit_sequence"]."'"; if ($result = mysql_query($sql)) { if (mysql_num_rows($result)) { $mc = mysql_fetch_array($result); //print_r($mc); } } } // PRENATAL INFO // get most recent pregnancy id $patient_id = healthcenter::get_patient_id($get_vars["consult_id"]); $mc_id = mc::registry_record_exists($patient_id); if ($mc_id) { // edit prenatal data if ($post_vars["prenatal_id"]) { list($aog_weeks,$aog_days) = mc::get_aog($mc_id, healthcenter::get_consult_date($mc["consult_id"])); $aog = ($aog_weeks + ($aog_days/7)); $trimester = $mc["trimester"]; $visit_sequence = $mc["visit_sequence"]; } else { // new prenatal data headers list($aog_weeks,$aog_days) = mc::get_aog($mc_id, $get_vars["consult_id"]); $aog = ($aog_weeks + ($aog_days/7)); $trimester = mc::get_trimester($mc_id, healthcenter::get_consult_date($get_vars["consult_id"])); $visit_sequence = mc::get_visit_sequence($mc_id, $get_vars["consult_id"]); } print "<a name='prenatal'>"; print "<table width='300'>"; if ($post_vars["Delete Prenatal"]) { $tail = "prenatal"; } else { $tail = ""; } 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=PREN&mc_id=$mc_id#$tail' name='form_mc_prenatal' method='post'>"; print "<tr valign='top'><td>"; print "<b>".FTITLE_MC_PRENATAL_FORM."</b><br/><br/>"; print "</td></tr>"; print "<tr valign='top'><td>"; print "<a name='prevtx'>"; print "<span class='boxtitle'>".LBL_IMPORT_EXTERNAL_DATA."?</span><br> "; print "<input type='checkbox' name='data_import_flag' onchange='this.form.submit();' ".(($mc["data_type"]?$mc["data_type"]=="EXT":$post_vars["data_import_flag"])?"checked":"")." value='1'/> Check if external HBMR<br />"; print "</td></tr>"; if ($mc["data_type"]=="EXT" || $post_vars["data_import_flag"]) { if ($mc["prenatal_date"]) { list($date, $time) = explode(" ", $mc["prenatal_date"]); list($year, $month, $day) = explode("-", $date); $visit_date = "$month/$day/$year"; } print "<tr valign='top'><td>"; print "<span class='boxtitle'>".LBL_PRENATAL_VISIT_DATE."</span><br>"; print "<input type='text' size='10' maxlength='10' class='textbox' name='visit_date' onchange='this.form.submit();' value='".($visit_date?$visit_date:$post_vars["visit_date"])."' style='border: 1px solid #000000'> "; print "<a href=\"javascript:show_calendar4('document.form_mc_prenatal.visit_date', document.form_mc_prenatal.visit_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 "<table bgcolor='#FFCCFF' width='300' cellpadding='3'>"; if ($post_vars["data_import_flag"]) { print "<tr valign='top'><td>"; print "<span class='boxtitle'>".LBL_PRENATAL_VISIT_SEQUENCE."</span><br>"; print "<input type='text' size='5' maxlength='5' class='textbox' name='visit_sequence' value='".($mc["visit_sequence"]?$mc["visit_sequence"]:$post_vars["visit_sequence"])."' style='border: 1px solid #000000'> "; print "</td></tr>"; } else { print "<tr valign='top'><td>"; print "<span class='boxtitle'>REGISTRY INFORMATION</span><br/>"; print "<span class='tinylight'>"; print "REGISTRY ID: <font color='red'>".module::pad_zero($mc_id, 7)."</font><br/>"; print "AOG THIS VISIT: $aog_weeks WKS $aog_days DAYS<br/>"; print "PATIENT TRIMESTER: $trimester<br/>"; print "VISIT SEQUENCE: $visit_sequence<br/>"; print "</span>"; print "</td></tr>"; } print "<tr valign='top'><td>"; if ($post_vars["prenatal_id"]) { $systolic = $mc["blood_pressure_systolic"]; $diastolic = $mc["blood_pressure_diastolic"]; } else { list($systolic, $diastolic) = healthcenter::get_blood_pressure($get_vars["consult_id"]); } print "<span class='boxtitle'>".LBL_BLOOD_PRESSURE."</span><br> "; print "<span class='tinylight'>SYSTOLIC</span> <input type='text' class='tinylight' size='5' maxlength='3' name='patient_systolic' value='$systolic' style='border: 1px solid #000000'> "; print "<span class='tinylight'>DIASTOLIC</span> <input type='text' class='tinylight' size='5' maxlength='3' name='patient_diastolic' value='$diastolic' style='border: 1px solid #000000'> "; print "</td></tr>"; print "<tr valign='top'><td>"; if ($post_vars["prenatal_id"]) { $weight = $mc["patient_weight"]; } else { $weight = healthcenter::get_body_weight($get_vars["consult_id"]); } print "<span class='boxtitle'>".LBL_PATIENT_WEIGHT." (KG)</span><br> "; print "<input type='text' class='tinylight' size='5' maxlength='5' name='patient_weight' value='$weight' style='border: 1px solid #000000'> "; print "</td></tr>"; print "<tr valign='top'><td>"; print "<span class='boxtitle'>".LBL_OBSTETRIC_EXAM."</span><br> "; print "<span class='tinylight'>FUNDIC HEIGHT (CM)</span> <input type='text' class='tinylight' size='5' maxlength='5' name='fundic_height' value='".($mc["fundic_height"]?$mc["fundic_height"]:$post_vars["fundic_height"])."' style='border: 1px solid #000000'><br/> "; print "<span class='tinylight'>FHR (beats/min)</span> <input type='text' class='tinylight' size='5' maxlength='5' name='fhr' value='".($mc["fhr"]?$mc["fhr"]:$post_vars["fhr"])."' style='border: 1px solid #000000'><br/> "; print "<span class='tinylight'>FHR LOCATION</span> "; print mc::show_fhr_location($mc["fhr_location"]); print "</td></tr>"; print "<tr valign='top'><td>"; print "<span class='boxtitle'>".LBL_PRESENTATION."</span><br> "; print mc::show_presentation($mc["presentation"]); print "</td></tr>"; print "<tr valign='top'><td>"; print "<span class='boxtitle'>".LBL_RISK_FACTORS."</span><br> "; if ($visit_sequence>1) { if ($post_vars["prenatal_id"]) { print mc::checkbox_risk_factors($post_vars["prenatal_id"], $mc["consult_id"], "M"); } else { print mc::checkbox_risk_factors($mc_id, $get_vars["consult_id"], "M"); } } else { print "<font color='red'>".LBL_SAME_RISK_FACTORS_VISIT1."</font><br/>"; } print "</td></tr>"; print "</table>"; print "</td></tr>"; print "<tr><td><br/>"; if ($post_vars["prenatal_id"]) { if ($_SESSION["priv_update"]) { print "<input type='hidden' name='mc_id' value='".$get_vars["mc_id"]."' />"; //print "<input type='hidden' name='consult_id' value='".$mc["mc_id"]."' />"; if (!$post_vars["data_import_flag"]) { print "<input type='hidden' name='visit_sequence' value='$visit_sequence' />"; } print "<input type='submit' value = 'Update Prenatal' class='textbox' name='submitmc' style='border: 1px solid #000000'> "; print "<input type='submit' value = 'Delete Prenatal' class='textbox' name='submitmc' style='border: 1px solid #000000'> "; } } else { if ($_SESSION["priv_add"]) { print "<input type='hidden' name='mc_id' value='".$get_vars["mc_id"]."' />"; if (!$post_vars["data_import_flag"]) { print "<input type='hidden' name='aog_weeks' value='$aog' />"; print "<input type='hidden' name='trimester' value='$trimester' />"; print "<input type='hidden' name='visit_sequence' value='$visit_sequence' />"; } print "<br><input type='submit' value = 'Save Prenatal Data' class='textbox' name='submitmc' style='border: 1px solid #000000'><br>"; } } print "</td></tr>"; print "</form>"; print "</table><br>"; } else { print "<font color='red'>No valid Registry ID. Please create a new one.</font>"; } }