}
}
}
}
****/
if (stristr($key, "include_")) {
//print "include: $val<br>\n";
if ($val == "demographics") {
print "<br><font class=bold>" . xl('Patient Data') . ":</font><br>";
printRecDataOne($patient_data_array, getRecPatientData($pid), $N);
} elseif ($val == "history") {
print "<br><font class=bold>" . xl('History Data') . ":</font><br>";
printRecDataOne($history_data_array, getRecHistoryData($pid), $N);
} elseif ($val == "employer") {
print "<br><font class=bold>" . xl('Employer Data') . ":</font><br>";
printRecDataOne($employer_data_array, getRecEmployerData($pid), $N);
} elseif ($val == "insurance") {
print "<br><font class=bold>" . xl('Primary Insurance Data') . ":</font><br>";
printRecDataOne($insurance_data_array, getRecInsuranceData($pid, "primary"), $N);
print "<font class=bold>" . xl('Secondary Insurance Data') . ":</font><br>";
printRecDataOne($insurance_data_array, getRecInsuranceData($pid, "secondary"), $N);
print "<font class=bold>" . xl('Tertiary Insurance Data') . ":</font><br>";
printRecDataOne($insurance_data_array, getRecInsuranceData($pid, "tertiary"), $N);
} elseif ($val == "billing") {
print "<br><font class=bold>" . xl('Billing Information') . ":</font><br>";
if (count($ar['newpatient']) > 0) {
$billings = array();
echo "<table>";
echo "<tr><td width=\"400\" class=bold>Code</td><td class=bold>" . xl('Fee') . "</td></tr>\n";
$total = 0.0;
$copays = 0.0;
if (!$first_time) {
print "</tr></table>\n";
print "</td><td>";
print "<table border=0><tr>\n";
// small table
} else {
print "<table border=0><tr>\n";
// small table
$first_time = 0;
}
print "<tr><td colspan=5><hr><span class=bold>" . text($name["fname"]) . " " . text($name["lname"]) . "</span><br><br>\n";
//==================================
print "<font class=bold>" . xlt("Patient Data") . ":</font><br>";
printRecDataOne($patient_data_array, getRecPatientData($iter["pid"]), $COLS);
print "<font class=bold>" . xlt("Employer Data") . ":</font><br>";
printRecDataOne($employer_data_array, getRecEmployerData($iter["pid"]), $COLS);
print "<font class=bold>" . xlt("Primary Insurance Data") . ":</font><br>";
printRecDataOne($insurance_data_array, getRecInsuranceData($iter["pid"], "primary"), $COLS);
print "<font class=bold>" . xlt("Secondary Insurance Data") . ":</font><br>";
printRecDataOne($insurance_data_array, getRecInsuranceData($iter["pid"], "secondary"), $COLS);
print "<font class=bold>" . xlt("Tertiary Insurance Data") . ":</font><br>";
printRecDataOne($insurance_data_array, getRecInsuranceData($iter["pid"], "tertiary"), $COLS);
//==================================
print "</td></tr><tr>\n";
$old_pid = $iter["pid"];
}
print "<td width=100><span class=text>" . text($iter["code_type"]) . ": </span></td><td width=100><span class=text>" . text($iter["code"]) . "</span></td><td width=100><span class=small>(" . text(date("Y-m-d", strtotime($iter["date"]))) . ")</span></td>\n";
$res_count++;
if ($res_count == $N) {
print "</tr><tr>\n";
$res_count = 0;
