0) { $ar = $_GET; } else { $ar = $_POST; } if ($printable) { /******************************************************************* $titleres = getPatientData($pid, "fname,lname,providerID"); $sql = "SELECT * FROM facility ORDER BY billing_location DESC LIMIT 1"; *******************************************************************/ $titleres = getPatientData($pid, "fname,lname,providerID,DATE_FORMAT(DOB,'%m/%d/%Y') as DOB_TS"); if ($_SESSION['pc_facility']) { $sql = "select * from facility where id=" . add_escape_custom($_SESSION['pc_facility']); } else { $sql = "SELECT * FROM facility ORDER BY billing_location DESC LIMIT 1"; } /******************************************************************/ $db = $GLOBALS['adodb']['db']; $results = $db->Execute($sql); $facility = array(); if (!$results->EOF) { $facility = $results->fields; } // Setup Headers and Footers for mPDF only Download // in HTML view it's just one line at the top of page 1 echo ' ' . xlt("PATIENT") . ':' . text($titleres['lname']) . ', ' . text($titleres['fname']) . ' - ' . text($titleres['DOB_TS']) . ' '; echo '' . xlt('Generated on') . ' ' . text(oeFormatShortDate()) . ' - ' . text($facility['name']) . ' ' . text($facility['phone']) . ''; $practice_logo = ""; $plogo = glob("$OE_SITE_DIR/images/*");// let's give the user a little say in image format. $plogo = preg_grep('~practice_logo\.(gif|png|jpg|jpeg)$~i', $plogo); if (!empty($plogo)) { $k = current(array_keys($plogo)); $practice_logo = $plogo[$k]; } ?>

,


:


$val) { if ($key == 'pdf') { continue; } // These are the top checkboxes (demographics, allergies, etc.). // if (stristr($key, "include_")) { if ($val == "demographics") { echo "

---

"; echo "\n"; } elseif ($val == "history") { echo "

---

"; echo ""; // } elseif ($val == "employer") { // print "
".xl('Employer Data').":
"; // printRecDataOne($employer_data_array, getRecEmployerData ($pid), $N); } elseif ($val == "insurance") { echo "

---

"; echo ""; } elseif ($val == "billing") { echo "

---

"; echo "\n"; // end of billing DIV /**** } elseif ($val == "allergies") { print "Patient Allergies:
"; printListData($pid, "allergy", "1"); } elseif ($val == "medications") { print "Patient Medications:
"; printListData($pid, "medication", "1"); } elseif ($val == "medical_problems") { print "Patient Medical Problems:
"; printListData($pid, "medical_problem", "1"); ****/ } elseif ($val == "immunizations") { //if (AclMain::aclCheckCore('patients', 'med')) { echo "

---

"; echo "\n"; //} // communication report } elseif ($val == "batchcom") { echo "

---

"; echo "\n"; } elseif ($val == "notes") { echo "

---

"; echo ""; } elseif ($val == "transactions") { echo "

---

"; echo ""; } } else { // Documents is an array of checkboxes whose values are document IDs. // if ($key == "documents") { echo "

---

"; echo "

"; } elseif ($key == "procedures") { // Procedures is an array of checkboxes whose values are procedure order IDs. if ($auth_med) { echo "

---

"; echo ""; } } elseif (strpos($key, "issue_") === 0) { // display patient Issues if ($first_issue) { $prevIssueType = 'asdf1234!@#$'; // random junk so as to not match anything $first_issue = 0; echo "

---

"; echo "

" . xlt("Issues") . "

"; } preg_match('/^(.*)_(\d+)$/', $key, $res); $rowid = $res[2]; $irow = sqlQuery("SELECT type, title, comments, diagnosis " . "FROM lists WHERE id = ?", [$rowid]); $diagnosis = $irow['diagnosis']; if ($prevIssueType != $irow['type']) { // output a header for each Issue Type we encounter $disptype = $ISSUE_TYPES[$irow['type']][0]; echo "\n"; $prevIssueType = $irow['type']; } echo "\n"; //end the issue DIV } else { // we have an "encounter form" form field whose name is like // dirname_formid, with a value which is the encounter ID. // // display encounter forms, encoded as a POST variable // in the format: = if (($auth_notes_a || $auth_notes || $auth_coding_a || $auth_coding || $auth_med || $auth_relaxed)) { $form_encounter = $val; preg_match('/^(.*)_(\d+)$/', $key, $res); $form_id = $res[2]; $formres = getFormNameByFormdirAndFormid($res[1], $form_id); $dateres = getEncounterDateByEncounter($form_encounter); $formId = getFormIdByFormdirAndFormid($res[1], $form_id); if ($res[1] == 'newpatient') { echo "

\n"; echo "

" . xlt($formres["form_name"]) . "

"; } else { echo "

"; echo "

" . text(xl_form_title($formres["form_name"])) . "

"; } // show the encounter's date echo "(" . text(oeFormatSDFT(strtotime($dateres["date"]))) . ") "; if ($res[1] == 'newpatient') { // display the provider info echo ' ' . xlt('Provider') . ': ' . text(getProviderName(getProviderIdOfEncounter($form_encounter))); } echo "
\n"; // call the report function for the form ?>

createFormESign($formId, $res[1], $form_encounter); if ($esign->isLogViewable("report")) { $esign->renderLog(); } ?>

 " . xlt('Procedure') . ": " . text($brow['code']) . " " . text($brow['code_text']) . "
\n"; } } print "

"; } // end auth-check for encounter forms } // end if('issue_')... else... } // end if('include_')... else... } // end $ar loop if ($printable) { echo "

" . xlt('Signature') . ": _______________________________
"; } ?>

SetTitle(ucfirst($ptd['fname']) . ' ' . $ptd['lname'] . ' ' . xl('Id') . ':' . $pid . ' ' . xl('Report')); $isit_utf8 = preg_match('//u', $content); // quick check for invalid encoding if (!$isit_utf8) { if (function_exists('iconv')) { // if we can lets save the report $content = iconv("UTF-8", "UTF-8//IGNORE", $content); } else { // no sense going on. $die_str = xlt("Failed UTF8 encoding check! Could not automatically fix."); die($die_str); } } try { $pdf->writeHTML($content); // convert html } catch (Exception $exception) { die(text($exception)); } if ($PDF_OUTPUT == 1) { try { if (!empty($archive_name) && sizeof($staged_docs) > 0) { $rtn = zip_content(basename($fn), $archive_name, $pdf->Output($fn, 'S')); header('Content-Description: File Transfer'); header('Content-Transfer-Encoding: binary'); header('Expires: 0'); header("Cache-control: private"); header('Cache-Control: must-revalidate, post-check=0, pre-check=0'); header("Content-Type: application/zip; charset=utf-8"); header("Content-Length: " . filesize($archive_name)); header('Content-Disposition: attachment; filename="' . basename($archive_name) . '"'); ob_end_clean(); @readfile($archive_name) or error_log("Archive temp file not found: " . $archive_name); unlink($archive_name); } else { $pdf->Output($fn, $GLOBALS['pdf_output']); // D = Download, I = Inline } } catch (Exception $exception) { die(text($exception)); } } foreach ($tmp_files_remove as $tmp_file) { // Remove the tmp files that were created unlink($tmp_file); } } else { ?>