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