function generate_result_row(&$ctx, &$row, &$rrow, $priors_omitted = false)
{
$lab_id = empty($row['lab_id']) ? 0 : $row['lab_id'] + 0;
$order_type_id = empty($row['order_type_id']) ? 0 : $row['order_type_id'] + 0;
$order_seq = empty($row['procedure_order_seq']) ? 0 : $row['procedure_order_seq'] + 0;
$report_id = empty($row['procedure_report_id']) ? 0 : $row['procedure_report_id'] + 0;
$procedure_code = empty($row['procedure_code']) ? '' : $row['procedure_code'];
$procedure_name = empty($row['procedure_name']) ? '' : $row['procedure_name'];
$date_report = empty($row['date_report']) ? '' : substr($row['date_report'], 0, 16);
$date_collected = empty($row['date_collected']) ? '' : substr($row['date_collected'], 0, 16);
$specimen_num = empty($row['specimen_num']) ? '' : $row['specimen_num'];
$report_status = empty($row['report_status']) ? '' : $row['report_status'];
$review_status = empty($row['review_status']) ? 'received' : $row['review_status'];
$report_noteid = '';
if ($report_id && !isset($ctx['seen_report_ids'][$report_id])) {
$ctx['seen_report_ids'][$report_id] = true;
if ($review_status != 'reviewed') {
if ($ctx['sign_list']) {
$ctx['sign_list'] .= ',';
}
$ctx['sign_list'] .= $report_id;
}
// Allowing for multiple report notes separated by newlines.
if (!empty($row['report_notes'])) {
$notes = explode("\n", $row['report_notes']);
foreach ($notes as $note) {
if ($note === '') {
continue;
}
if ($report_noteid) {
$report_noteid .= ', ';
}
$report_noteid .= 1 + storeNote($note);
}
}
}
$result_code = empty($rrow['result_code']) ? '' : $rrow['result_code'];
$result_text = empty($rrow['result_text']) ? '' : $rrow['result_text'];
$result_abnormal = empty($rrow['abnormal']) ? '' : $rrow['abnormal'];
$result_result = empty($rrow['result']) ? '' : $rrow['result'];
$result_units = empty($rrow['units']) ? '' : $rrow['units'];
$result_facility = empty($rrow['facility']) ? '' : $rrow['facility'];
$result_comments = empty($rrow['comments']) ? '' : $rrow['comments'];
$result_range = empty($rrow['range']) ? '' : $rrow['range'];
$result_status = empty($rrow['result_status']) ? '' : $rrow['result_status'];
$result_document_id = empty($rrow['document_id']) ? '' : $rrow['document_id'];
// Someone changed the delimiter in result comments from \n to \r.
// Have to make sure results are consistent with those before that change.
$result_comments = str_replace("\r", "\n", $result_comments);
if ($i = strpos($result_comments, "\n")) {
// "=" is not a mistake!
// If the first line of comments is not empty, then it is actually a long textual
// result value with lines delimited by "~" characters.
$result_comments = str_replace("~", "\n", substr($result_comments, 0, $i)) . substr($result_comments, $i);
}
$result_comments = trim($result_comments);
$result_noteid = '';
if (!empty($result_comments)) {
$result_noteid = 1 + storeNote($result_comments);
}
if ($priors_omitted) {
if ($result_noteid) {
$result_noteid .= ', ';
}
$result_noteid .= 1 + storeNote(xl('This is the latest of multiple result values.'));
$ctx['priors_omitted'] = true;
}
// If a performing organization is provided, make a note for it also.
$result_facility = trim(str_replace("\r", "\n", $result_facility));
if ($result_facility) {
if ($result_noteid) {
$result_noteid .= ', ';
}
$result_noteid .= 1 + storeNote(xl('Performing organization') . ":\n" . $result_facility);
}
if ($ctx['lastpcid'] != $order_seq) {
++$ctx['encount'];
}
$bgcolor = "#" . ($ctx['encount'] & 1 ? "ddddff" : "ffdddd");
echo " <tr class='detail' bgcolor='{$bgcolor}'>\n";
if ($ctx['lastpcid'] != $order_seq) {
$ctx['lastprid'] = -1;
// force report fields on first line of each procedure
$tmp = text("{$procedure_code}: {$procedure_name}");
// Get the LOINC code if one exists in the compendium for this order type.
if (empty($GLOBALS['PATIENT_REPORT_ACTIVE'])) {
$trow = sqlQuery("SELECT standard_code FROM procedure_type WHERE " . "lab_id = ? AND procedure_code = ? AND procedure_type = 'ord' " . "ORDER BY procedure_type_id LIMIT 1", array($lab_id, $procedure_code));
if (!empty($trow['standard_code'])) {
$tmp = "<a href='javascript:educlick(\"LOINC\",\"" . attr($trow['standard_code']) . "\")'>{$tmp}</a>";
}
}
echo " <td>{$tmp}</td>\n";
} else {
echo " <td style='background-color:transparent'> </td>";
}
// If this starts a new report or a new order, generate the report fields.
if ($report_id != $ctx['lastprid']) {
echo " <td>";
echo myCellText(oeFormatShortDate(substr($date_report, 0, 10)) . substr($date_report, 10));
echo "</td>\n";
echo " <td>";
echo myCellText(oeFormatShortDate(substr($date_collected, 0, 10)) . substr($date_collected, 10));
echo "</td>\n";
echo " <td>";
echo myCellText($specimen_num);
echo "</td>\n";
echo " <td title='" . xla('Check mark indicates reviewed') . "'>";
echo myCellText(getListItem('proc_rep_status', $report_status));
if ($row['review_status'] == 'reviewed') {
echo " ✓";
// unicode check mark character
}
echo "</td>\n";
echo " <td align='center'>";
echo myCellText($report_noteid);
echo "</td>\n";
} else {
echo " <td colspan='5' style='background-color:transparent'> </td>\n";
}
if ($result_code !== '' || $result_document_id) {
$tmp = myCellText($result_code);
if (empty($GLOBALS['PATIENT_REPORT_ACTIVE']) && !empty($result_code)) {
$tmp = "<a href='javascript:educlick(\"LOINC\",\"" . attr($result_code) . "\")'>{$tmp}</a>";
}
echo " <td>{$tmp}</td>\n";
echo " <td>";
echo myCellText($result_text);
echo "</td>\n";
echo " <td>";
$tmp = myCellText(getListItem('proc_res_abnormal', $result_abnormal));
if ($result_abnormal && strtolower($result_abnormal) != 'no') {
echo "<b><font color='red'>{$tmp}</font></b>";
} else {
echo $tmp;
}
echo "</td>\n";
//
if ($result_document_id) {
$d = new Document($result_document_id);
echo " <td colspan='3'>";
if (empty($GLOBALS['PATIENT_REPORT_ACTIVE'])) {
echo "<a href='" . $GLOBALS['webroot'] . "/controller.php?document";
echo "&retrieve&patient_id={$patient_id}&document_id={$result_document_id}' ";
echo "onclick='top.restoreSession()'>";
}
echo $d->get_url_file();
if (empty($GLOBALS['PATIENT_REPORT_ACTIVE'])) {
echo "</a>";
}
echo "</td>\n";
} else {
echo " <td>";
echo myCellText($result_result);
echo "</td>\n";
echo " <td>";
echo myCellText($result_range);
echo "</td>\n";
echo " <td>";
echo myCellText($result_units);
echo "</td>\n";
}
echo " <td align='center'>";
echo myCellText($result_noteid);
echo "</td>\n";
} else {
echo " <td colspan='7' style='background-color:transparent'> </td>\n";
}
echo " </tr>\n";
$ctx['lastpcid'] = $order_seq;
$ctx['lastprid'] = $report_id;
++$ctx['lino'];
}
function generate_order_report($orderid, $input_form = false)
{
global $aNotes;
// Check authorization.
$thisauth = acl_check('patients', 'med');
if (!$thisauth) {
return xl('Not authorized');
}
$orow = sqlQuery("SELECT " . "po.procedure_order_id, po.date_ordered, po.control_id, " . "po.order_status, po.specimen_type, po.patient_id, " . "pd.pubpid, pd.lname, pd.fname, pd.mname, pd.cmsportal_login, pd.language, " . "fe.date, " . "pp.name AS labname, " . "u.lname AS ulname, u.fname AS ufname, u.mname AS umname " . "FROM procedure_order AS po " . "LEFT JOIN patient_data AS pd ON pd.pid = po.patient_id " . "LEFT JOIN procedure_providers AS pp ON pp.ppid = po.lab_id " . "LEFT JOIN users AS u ON u.id = po.provider_id " . "LEFT JOIN form_encounter AS fe ON fe.pid = po.patient_id AND fe.encounter = po.encounter_id " . "WHERE po.procedure_order_id = ?", array($orderid));
$patient_id = $orow['patient_id'];
$language = $orow['language'];
?>
<style>
.labres tr.head { font-size:10pt; background-color:#cccccc; text-align:center; }
.labres tr.detail { font-size:10pt; }
.labres a, .labres a:visited, .labres a:hover { color:#0000cc; }
.labres table {
border-style: solid;
border-width: 1px 0px 0px 1px;
border-color: black;
}
.labres td, .labres th {
border-style: solid;
border-width: 0px 1px 1px 0px;
border-color: black;
}
</style>
<?php
if ($input_form) {
?>
<script type="text/javascript" src="<?php
echo $GLOBALS['webroot'];
?>
/library/textformat.js"></script>
<?php
}
// end if input form
?>
<?php
if (empty($GLOBALS['PATIENT_REPORT_ACTIVE'])) {
?>
<script type="text/javascript" src="<?php
echo $GLOBALS['webroot'];
?>
/library/dialog.js"></script>
<script language="JavaScript">
var mypcc = '<?php
echo $GLOBALS['phone_country_code'];
?>
';
// Called to show patient notes related to this order in the "other" frame.
// This works even if we are in a separate window.
function showpnotes(orderid) {
// Find the top or bottom frame that contains or opened this page; return if none.
var w = window.opener ? window.opener : window;
for (; w.name != 'RTop' && w.name != 'RBot'; w = w.parent) {
if (w.parent == w) {
// This message is not translated because a developer will need to find it.
alert('Internal error locating target frame in ' + (window.opener ? 'opener' : 'window'));
return false;
}
}
var othername = (w.name == 'RTop') ? 'RBot' : 'RTop';
w.parent.left_nav.forceDual();
w.parent.left_nav.setRadio(othername, 'pno');
w.parent.left_nav.loadFrame('pno1', othername, 'patient_file/summary/pnotes_full.php?orderid=' + orderid);
return false;
}
// Process click on LOINC code for patient education popup.
function educlick(codetype, codevalue) {
dlgopen('<?php
echo $GLOBALS['webroot'];
?>
/interface/patient_file/education.php' +
'?type=' + encodeURIComponent(codetype) +
'&code=' + encodeURIComponent(codevalue) +
'&language=<?php
echo urlencode($language);
?>
',
'_blank', 1024, 750);
}
</script>
<?php
}
// end if not patient report
?>
<?php
if ($input_form) {
?>
<form method='post' action='single_order_results.php?orderid=<?php
echo $orderid;
?>
'>
<?php
}
// end if input form
?>
<div class='labres'>
<table width='100%' cellpadding='2' cellspacing='0'>
<tr bgcolor='#cccccc'>
<td width='5%' nowrap><?php
echo xlt('Patient ID');
?>
</td>
<td width='45%'><?php
echo myCellText($orow['pubpid']);
?>
</td>
<td width='5%' nowrap><?php
echo xlt('Order ID');
?>
</td>
<td width='45%'>
<?php
if (empty($GLOBALS['PATIENT_REPORT_ACTIVE'])) {
echo " <a href='" . $GLOBALS['webroot'];
echo "/interface/orders/order_manifest.php?orderid=";
echo attr($orow['procedure_order_id']);
echo "' target='_blank' onclick='top.restoreSession()'>";
}
echo myCellText($orow['procedure_order_id']);
if (empty($GLOBALS['PATIENT_REPORT_ACTIVE'])) {
echo "</a>\n";
}
if ($orow['control_id']) {
echo myCellText(' ' . xl('Lab') . ': ' . $orow['control_id']);
}
?>
</td>
</tr>
<tr bgcolor='#cccccc'>
<td nowrap><?php
echo xlt('Patient Name');
?>
</td>
<td><?php
echo myCellText($orow['lname'] . ', ' . $orow['fname'] . ' ' . $orow['mname']);
?>
</td>
<td nowrap><?php
echo xlt('Ordered By');
?>
</td>
<td><?php
echo myCellText($orow['ulname'] . ', ' . $orow['ufname'] . ' ' . $orow['umname']);
?>
</td>
</tr>
<tr bgcolor='#cccccc'>
<td nowrap><?php
echo xlt('Order Date');
?>
</td>
<td><?php
echo myCellText(oeFormatShortDate($orow['date_ordered']));
?>
</td>
<td nowrap><?php
echo xlt('Print Date');
?>
</td>
<td><?php
echo oeFormatShortDate(date('Y-m-d'));
?>
</td>
</tr>
<tr bgcolor='#cccccc'>
<td nowrap><?php
echo xlt('Order Status');
?>
</td>
<td><?php
echo myCellText($orow['order_status']);
?>
</td>
<td nowrap><?php
echo xlt('Encounter Date');
?>
</td>
<td><?php
echo myCellText(oeFormatShortDate(substr($orow['date'], 0, 10)));
?>
</td>
</tr>
<tr bgcolor='#cccccc'>
<td nowrap><?php
echo xlt('Lab');
?>
</td>
<td><?php
echo myCellText($orow['labname']);
?>
</td>
<td nowrap><?php
echo xlt('Specimen Type');
?>
</td>
<td><?php
echo myCellText($orow['specimen_type']);
?>
</td>
</tr>
</table>
<br />
<table width='100%' cellpadding='2' cellspacing='0'>
<tr class='head'>
<td rowspan='2' valign='middle'><?php
echo xlt('Ordered Procedure');
?>
</td>
<td colspan='4'><?php
echo xlt('Report');
?>
</td>
<td colspan='7'><?php
echo xlt('Results');
?>
</td>
</tr>
<tr class='head'>
<td><?php
echo xlt('Reported');
?>
</td>
<td><?php
echo xlt('Specimen');
?>
</td>
<td><?php
echo xlt('Status');
?>
</td>
<td><?php
echo xlt('Note');
?>
</td>
<td><?php
echo xlt('Code');
?>
</td>
<td><?php
echo xlt('Name');
?>
</td>
<td><?php
echo xlt('Abn');
?>
</td>
<td><?php
echo xlt('Value');
?>
</td>
<td><?php
echo xlt('Range');
?>
</td>
<td><?php
echo xlt('Units');
?>
</td>
<td><?php
echo xlt('Note');
?>
</td>
</tr>
<?php
$query = "SELECT " . "po.lab_id, po.date_ordered, pc.procedure_order_seq, pc.procedure_code, " . "pc.procedure_name, " . "pr.procedure_report_id, pr.date_report, pr.date_collected, pr.specimen_num, " . "pr.report_status, pr.review_status, pr.report_notes " . "FROM procedure_order AS po " . "JOIN procedure_order_code AS pc ON pc.procedure_order_id = po.procedure_order_id " . "LEFT JOIN procedure_report AS pr ON pr.procedure_order_id = po.procedure_order_id AND " . "pr.procedure_order_seq = pc.procedure_order_seq " . "WHERE po.procedure_order_id = ? " . "ORDER BY pc.procedure_order_seq, pr.procedure_report_id";
$res = sqlStatement($query, array($orderid));
$lastpoid = -1;
$lastpcid = -1;
$lastprid = -1;
$encount = 0;
$lino = 0;
$extra_html = '';
$aNotes = array();
$sign_list = '';
while ($row = sqlFetchArray($res)) {
$lab_id = empty($row['lab_id']) ? 0 : $row['lab_id'] + 0;
$order_type_id = empty($row['order_type_id']) ? 0 : $row['order_type_id'] + 0;
$order_seq = empty($row['procedure_order_seq']) ? 0 : $row['procedure_order_seq'] + 0;
$report_id = empty($row['procedure_report_id']) ? 0 : $row['procedure_report_id'] + 0;
$procedure_code = empty($row['procedure_code']) ? '' : $row['procedure_code'];
$procedure_name = empty($row['procedure_name']) ? '' : $row['procedure_name'];
$date_report = empty($row['date_report']) ? '' : $row['date_report'];
$date_collected = empty($row['date_collected']) ? '' : substr($row['date_collected'], 0, 16);
$specimen_num = empty($row['specimen_num']) ? '' : $row['specimen_num'];
$report_status = empty($row['report_status']) ? '' : $row['report_status'];
$review_status = empty($row['review_status']) ? 'received' : $row['review_status'];
if ($review_status != 'reviewed' && $report_id) {
if ($sign_list) {
$sign_list .= ',';
}
$sign_list .= $report_id;
}
$report_noteid = '';
if (!empty($row['report_notes'])) {
$report_noteid = 1 + storeNote($row['report_notes']);
}
$query = "SELECT " . "ps.result_code, ps.result_text, ps.abnormal, ps.result, ps.range, " . "ps.result_status, ps.facility, ps.units, ps.comments, ps.document_id " . "FROM procedure_result AS ps " . "WHERE ps.procedure_report_id = ? " . "ORDER BY ps.result_code, ps.procedure_result_id";
$rres = sqlStatement($query, array($report_id));
$rrows = array();
while ($rrow = sqlFetchArray($rres)) {
$rrows[] = $rrow;
}
if (empty($rrows)) {
$rrows[0] = array('result_code' => '');
}
foreach ($rrows as $rrow) {
$result_code = empty($rrow['result_code']) ? '' : $rrow['result_code'];
$result_text = empty($rrow['result_text']) ? '' : $rrow['result_text'];
$result_abnormal = empty($rrow['abnormal']) ? '' : $rrow['abnormal'];
$result_result = empty($rrow['result']) ? '' : $rrow['result'];
$result_units = empty($rrow['units']) ? '' : $rrow['units'];
$result_facility = empty($rrow['facility']) ? '' : $rrow['facility'];
$result_comments = empty($rrow['comments']) ? '' : $rrow['comments'];
$result_range = empty($rrow['range']) ? '' : $rrow['range'];
$result_status = empty($rrow['result_status']) ? '' : $rrow['result_status'];
$result_document_id = empty($rrow['document_id']) ? '' : $rrow['document_id'];
$result_comments = trim($result_comments);
$result_noteid = '';
if (!empty($result_comments)) {
$result_noteid = 1 + storeNote($result_comments);
}
if ($lastpoid != $order_id || $lastpcid != $order_seq) {
++$encount;
}
$bgcolor = "#" . ($encount & 1 ? "ddddff" : "ffdddd");
echo " <tr class='detail' bgcolor='{$bgcolor}'>\n";
if ($lastpcid != $order_seq) {
$lastprid = -1;
// force report fields on first line of each procedure
$tmp = text("{$procedure_code}: {$procedure_name}");
// Get the LOINC code if one exists in the compendium for this order type.
if (empty($GLOBALS['PATIENT_REPORT_ACTIVE'])) {
$trow = sqlQuery("SELECT standard_code FROM procedure_type WHERE " . "lab_id = ? AND procedure_code = ? AND procedure_type = 'ord' " . "ORDER BY procedure_type_id LIMIT 1", array($lab_id, $procedure_code));
if (!empty($trow['standard_code'])) {
$tmp = "<a href='javascript:educlick(\"LOINC\",\"" . attr($trow['standard_code']) . "\")'>{$tmp}</a>";
}
}
echo " <td>{$tmp}</td>\n";
} else {
echo " <td style='background-color:transparent'> </td>";
}
// If this starts a new report or a new order, generate the report fields.
if ($report_id != $lastprid) {
echo " <td>";
echo myCellText(oeFormatShortDate($date_report));
echo "</td>\n";
echo " <td>";
echo myCellText($specimen_num);
echo "</td>\n";
echo " <td title='" . xla('Check mark indicates reviewed') . "'>";
echo myCellText(getListItem('proc_rep_status', $report_status));
if ($row['review_status'] == 'reviewed') {
echo " ✓";
// unicode check mark character
}
echo "</td>\n";
echo " <td align='center'>";
echo myCellText($report_noteid);
echo "</td>\n";
} else {
echo " <td colspan='4' style='background-color:transparent'> </td>\n";
}
if ($result_code !== '' || $result_document_id) {
$tmp = myCellText($result_code);
if (empty($GLOBALS['PATIENT_REPORT_ACTIVE']) && !empty($result_code)) {
$tmp = "<a href='javascript:educlick(\"LOINC\",\"" . attr($result_code) . "\")'>{$tmp}</a>";
}
echo " <td>{$tmp}</td>\n";
echo " <td>";
echo myCellText($result_text);
echo "</td>\n";
echo " <td>";
echo myCellText(getListItem('proc_res_abnormal', $result_abnormal));
echo "</td>\n";
//
if ($result_document_id) {
$d = new Document($result_document_id);
echo " <td colspan='3'>";
if (empty($GLOBALS['PATIENT_REPORT_ACTIVE'])) {
echo "<a href='" . $GLOBALS['webroot'] . "/controller.php?document";
echo "&retrieve&patient_id={$patient_id}&document_id={$result_document_id}' ";
echo "onclick='top.restoreSession()'>";
}
echo $d->get_url_file();
if (empty($GLOBALS['PATIENT_REPORT_ACTIVE'])) {
echo "</a>";
}
echo "</td>\n";
} else {
echo " <td>";
echo myCellText($result_result);
echo "</td>\n";
echo " <td>";
echo myCellText($result_range);
echo "</td>\n";
echo " <td>";
echo myCellText($result_units);
echo "</td>\n";
}
echo " <td align='center'>";
echo myCellText($result_noteid);
echo "</td>\n";
} else {
echo " <td colspan='7' style='background-color:transparent'> </td>\n";
}
echo " </tr>\n";
$lastpoid = $order_id;
$lastpcid = $order_seq;
$lastprid = $report_id;
++$lino;
}
}
?>
</table>
<br />
<table width='100%' style='border-width:0px;'>
<tr>
<td style='border-width:0px;'>
<?php
if (!empty($aNotes)) {
echo "<table cellpadding='3' cellspacing='0'>\n";
echo " <tr bgcolor='#cccccc'>\n";
echo " <th align='center' colspan='2'>" . xlt('Notes') . "</th>\n";
echo " </tr>\n";
foreach ($aNotes as $key => $value) {
echo " <tr>\n";
echo " <td valign='top'>" . ($key + 1) . "</td>\n";
echo " <td>" . nl2br(text($value)) . "</td>\n";
echo " </tr>\n";
}
echo "</table>\n";
}
?>
</td>
<td style='border-width:0px;' align='right' valign='top'>
<?php
if (empty($GLOBALS['PATIENT_REPORT_ACTIVE'])) {
?>
<input type='button' value='<?php
echo xla('Related Patient Notes');
?>
'
onclick='showpnotes(<?php
echo $orderid;
?>
)' />
<?php
}
if ($input_form && $sign_list) {
?>
<input type='hidden' name='form_sign_list' value='<?php
echo attr($sign_list);
?>
' />
<input type='submit' name='form_sign' value='<?php
echo xla('Sign Results');
?>
'
title='<?php
echo xla('Mark these reports as reviewed');
?>
' />
<?php
// If this is a portal patient, sending them a copy is an option.
if ($GLOBALS['gbl_portal_cms_enable'] && $orow['cmsportal_login'] !== '') {
echo " ";
echo "<input type='checkbox' name='form_send_to_portal' value='" . attr($orow['cmsportal_login']) . "' checked />\n";
echo xlt('Send to portal');
}
}
if ($input_form) {
?>
<input type='button' value='<?php
echo xla('Close');
?>
' onclick='window.close()' />
<?php
}
?>
</td>
</tr>
</table>
</div>
<?php
if ($input_form) {
?>
</form>
<?php
}
// end if input form
?>
<?php
}