/**
* Parse and save.
*
* @param string &$pprow A row from the procedure_providers table.
* @param string &$hl7 The input HL7 text.
* @return string Error text, or empty if no errors.
*/
function receive_hl7_results(&$hl7)
{
if (substr($hl7, 0, 3) != 'MSH') {
return xl('Input does not begin with a MSH segment');
}
// End-of-line delimiter for text in procedure_result.comments
$commentdelim = "\n";
$today = time();
$in_message_id = '';
$in_ssn = '';
$in_dob = '';
$in_lname = '';
$in_fname = '';
$in_orderid = 0;
$in_procedure_code = '';
$in_report_status = '';
$in_encounter = 0;
$porow = false;
$pcrow = false;
$procedure_report_id = 0;
$arep = array();
// holding area for OBR and its NTE data
$ares = array();
// holding area for OBX and its NTE data
// This is so we know where we are if a segment like NTE that can appear in
// different places is encountered.
$context = '';
// Delimiters
$d0 = "\r";
$d1 = substr($hl7, 3, 1);
// typically |
$d2 = substr($hl7, 4, 1);
// typically ^
$d3 = substr($hl7, 5, 1);
// typically ~
$segs = explode($d0, $hl7);
foreach ($segs as $seg) {
if (empty($seg)) {
continue;
}
$a = explode($d1, $seg);
if ($a[0] == 'MSH') {
$context = $a[0];
if ($a[8] != 'ORU^R01') {
return xl('Message type') . " '{$a[8]}' " . xl('does not seem valid');
}
$in_message_id = $a[9];
} else {
if ($a[0] == 'PID') {
$context = $a[0];
rhl7FlushResult($ares);
// Next line will do something only if there was a report with no results.
rhl7FlushReport($arep);
$in_ssn = $a[4];
$in_dob = $a[7];
// yyyymmdd format
$tmp = explode($d2, $a[5]);
$in_lname = $tmp[0];
$in_fname = $tmp[1];
} else {
if ($a[0] == 'PV1') {
// Save placer encounter number if present.
if (!empty($a[19])) {
$tmp = explode($d2, $a[19]);
$in_encounter = intval($tmp[0]);
}
} else {
if ($a[0] == 'ORC') {
$context = $a[0];
rhl7FlushResult($ares);
// Next line will do something only if there was a report with no results.
rhl7FlushReport($arep);
$porow = false;
$pcrow = false;
if ($a[2]) {
$in_orderid = intval($a[2]);
}
} else {
if ($a[0] == 'NTE' && $context == 'ORC') {
// TBD? Is this ever used?
} else {
if ($a[0] == 'OBR') {
$context = $a[0];
rhl7FlushResult($ares);
// Next line will do something only if there was a report with no results.
rhl7FlushReport($arep);
$procedure_report_id = 0;
if ($a[2]) {
$in_orderid = intval($a[2]);
}
$tmp = explode($d2, $a[4]);
$in_procedure_code = $tmp[0];
$in_procedure_name = $tmp[1];
$in_report_status = rhl7ReportStatus($a[25]);
if (empty($porow)) {
$porow = sqlQuery("SELECT * FROM procedure_order WHERE " . "procedure_order_id = ?", array($in_orderid));
// The order must already exist. Currently we do not handle electronic
// results returned for manual orders.
if (empty($porow)) {
return xl('Procedure order') . " '{$in_orderid}' " . xl('was not found');
}
if ($in_encounter) {
if ($porow['encounter_id'] != $in_encounter) {
return xl('Encounter ID') . " '" . $porow['encounter_id'] . "' " . xl('for OBR placer order number') . " '{$in_orderid}' " . xl('does not match the PV1 encounter number') . " '{$in_encounter}'";
}
} else {
// They did not return an encounter number to verify, so more checking
// might be done here to make sure the patient seems to match.
}
}
// Find the order line item (procedure code) that matches this result.
$pcquery = "SELECT pc.* FROM procedure_order_code AS pc " . "WHERE pc.procedure_order_id = ? AND pc.procedure_code = ? " . "ORDER BY procedure_order_seq LIMIT 1";
$pcrow = sqlQuery($pcquery, array($in_orderid, $in_procedure_code));
if (empty($pcrow)) {
// There is no matching procedure in the order, so it must have been
// added after the original order was sent, either as a manual request
// from the physician or as a "reflex" from the lab.
// procedure_source = '2' indicates this.
sqlInsert("INSERT INTO procedure_order_code SET " . "procedure_order_id = ?, " . "procedure_code = ?, " . "procedure_name = ?, " . "procedure_source = '2'", array($in_orderid, $in_procedure_code, $in_procedure_name));
$pcrow = sqlQuery($pcquery, array($in_orderid, $in_procedure_code));
}
$arep = array();
$arep['procedure_order_id'] = $in_orderid;
$arep['procedure_order_seq'] = $pcrow['procedure_order_seq'];
$arep['date_collected'] = rhl7DateTime($a[7]);
$arep['date_report'] = substr(rhl7DateTime($a[22]), 0, 10);
$arep['report_status'] = $in_report_status;
$arep['report_notes'] = '';
} else {
if ($a[0] == 'NTE' && $context == 'OBR') {
$arep['report_notes'] .= rhl7Text($a[3]) . "\n";
} else {
if ($a[0] == 'OBX') {
$context = $a[0];
rhl7FlushResult($ares);
if (!$procedure_report_id) {
$procedure_report_id = rhl7FlushReport($arep);
}
$ares = array();
$ares['procedure_report_id'] = $procedure_report_id;
// OBX-5 can be a very long string of text with "~" as line separators.
// The first line of comments is reserved for such things.
if (strlen($a[5]) > 200) {
$ares['result_data_type'] = 'L';
$ares['result'] = '';
$ares['comments'] = rhl7Text($a[5]) . $commentdelim;
} else {
$ares['result_data_type'] = substr($a[2], 0, 1);
// N, S or F
$ares['result'] = rhl7Text($a[5]);
$ares['comments'] = $commentdelim;
}
$tmp = explode($d2, $a[3]);
$ares['result_code'] = rhl7Text($tmp[0]);
$ares['result_text'] = rhl7Text($tmp[1]);
$ares['date'] = rhl7DateTime($a[14]);
$ares['facility'] = rhl7Text($a[15]);
$ares['units'] = rhl7Text($a[6]);
$ares['range'] = rhl7Text($a[7]);
$ares['abnormal'] = rhl7Abnormal($a[8]);
// values are lab dependent
$ares['result_status'] = rhl7ReportStatus($a[11]);
} else {
if ($a[0] == 'NTE' && $context == 'OBX') {
$ares['comments'] .= rhl7Text($a[3]) . $commentdelim;
} else {
return xl('Segment name') . " '{$a[0]}' " . xl('is misplaced or unknown');
}
}
}
}
}
}
}
}
}
}
rhl7FlushResult($ares);
// Next line will do something only if there was a report with no results.
rhl7FlushReport($arep);
return '';
}
/**
* Parse and save.
*
* @param string &$hl7 The input HL7 text
* @param string &$matchreq Array of shared patient matching requests
* @param int $lab_id Lab ID
* @param char $direction B=Bidirectional, R=Results-only
* @param bool $dryrun True = do not update anything, just report errors
* @param array $matchresp Array of responses to match requests; key is relative segment number,
* value is an existing pid or 0 to specify creating a patient
* @return array Array of errors and match requests, if any
*/
function receive_hl7_results(&$hl7, &$matchreq, $lab_id = 0, $direction = 'B', $dryrun = false, $matchresp = NULL)
{
global $rhl7_return;
// This will hold returned error messages and related variables.
$rhl7_return = array();
$rhl7_return['mssgs'] = array();
$rhl7_return['needmatch'] = false;
// indicates if this file is pending a match request
$rhl7_segnum = 0;
if (substr($hl7, 0, 3) != 'MSH') {
return rhl7LogMsg(xl('Input does not begin with a MSH segment'), true);
}
// End-of-line delimiter for text in procedure_result.comments
// Ensoftek: Different labs seem to send different EOLs. Edit HL7 input to a character we know.
$commentdelim = "\r";
$hl7 = (string) str_replace(array("\r\n", "\r", "\n"), $commentdelim, $hl7);
$today = time();
$in_message_id = '';
$in_ssn = '';
$in_dob = '';
$in_lname = '';
$in_fname = '';
$in_orderid = 0;
$in_procedure_code = '';
$in_report_status = '';
$in_encounter = 0;
$patient_id = 0;
// for results-only patient matching logic
$porow = false;
$pcrow = false;
$oprow = false;
$procedure_report_id = 0;
$arep = array();
// holding area for OBR and its NTE data
$ares = array();
// holding area for OBX and its NTE data
$code_seq_array = array();
// tracks sequence numbers of order codes
$results_category_id = 0;
// document category ID for lab results
// This is so we know where we are if a segment like NTE that can appear in
// different places is encountered.
$context = '';
// This will be "ORU" or "MDM".
$msgtype = '';
// Stuff collected for MDM documents.
$mdm_datetime = '';
$mdm_docname = '';
$mdm_text = '';
// Delimiters
$d0 = $commentdelim;
// Ensoftek: Convert all EOLs to \r, so we don't have to deal with inconsistencies.
$d1 = substr($hl7, 3, 1);
// typically |
$d2 = substr($hl7, 4, 1);
// typically ^
$d3 = substr($hl7, 5, 1);
// typically ~
// We'll need the document category IDs for any embedded documents.
$catrow = sqlQuery("SELECT id FROM categories WHERE name = ?", array($GLOBALS['lab_results_category_name']));
if (empty($catrow['id'])) {
return rhl7LogMsg(xl('Document category for lab results does not exist') . ': ' . $GLOBALS['lab_results_category_name'], true);
} else {
$results_category_id = $catrow['id'];
$mdm_category_id = $results_category_id;
$catrow = sqlQuery("SELECT id FROM categories WHERE name = ?", array($GLOBALS['gbl_mdm_category_name']));
if (!empty($catrow['id'])) {
$mdm_category_id = $catrow['id'];
}
}
$segs = explode($d0, $hl7);
foreach ($segs as $seg) {
if (empty($seg)) {
continue;
}
// echo "<!-- $dryrun $seg -->\n"; // debugging
++$rhl7_segnum;
$a = explode($d1, $seg);
if ($a[0] == 'MSH') {
// The following 2 cases happen only for multiple MSH segments in the same file.
// But that probably shouldn't happen anyway?
if ('ORU' == $msgtype && !$dryrun) {
rhl7FlushResult($ares);
rhl7FlushReport($arep);
$ares = array();
$arep = array();
}
if ('MDM' == $msgtype && !$dryrun) {
$rc = rhl7FlushMDM($patient_id, $mdm_docname, $mdm_datetime, $mdm_text, $mdm_category_id, $oprow ? $oprow['username'] : 0);
if ($rc) {
return rhl7LogMsg($rc);
}
$patient_id = 0;
}
$context = $a[0];
// Ensoftek: Could come is as 'ORU^R01^ORU_R01'. Handle all cases when 'ORU^R01' is seen.
if (strstr($a[8], "ORU^R01")) {
$msgtype = 'ORU';
} else {
if ($a[8] == 'MDM^T02' || $a[8] == 'MDM^T04' || $a[8] == 'MDM^T08') {
$msgtype = 'MDM';
$mdm_datetime = '';
$mdm_docname = '';
$mdm_text = '';
} else {
return rhl7LogMsg(xl('MSH.8 message type is not supported') . ": '" . $a[8] . "'", true);
}
}
$in_message_id = $a[9];
} else {
if ($a[0] == 'PID') {
$context = $a[0];
if ('ORU' == $msgtype && !$dryrun) {
// Note these calls do nothing if the passed array is empty.
rhl7FlushResult($ares);
rhl7FlushReport($arep);
}
if ('MDM' == $msgtype && !$dryrun) {
$rc = rhl7FlushMDM($patient_id, $mdm_docname, $mdm_datetime, $mdm_text, $mdm_category_id, $oprow ? $oprow['username'] : 0);
if ($rc) {
return rhl7LogMsg($rc);
}
}
$ares = array();
$arep = array();
$porow = false;
$pcrow = false;
$oprow = false;
$in_orderid = 0;
$in_ssn = preg_replace('/[^0-9]/', '', $a[4]);
$in_dob = rhl7Date($a[7]);
$tmp = explode($d2, $a[5]);
$in_lname = rhl7Text($tmp[0]);
$in_fname = rhl7Text($tmp[1]);
$patient_id = 0;
// Patient matching is needed for a results-only interface or MDM message type.
if ('R' == $direction || 'MDM' == $msgtype) {
$ptarr = array('ss' => strtoupper($in_ss), 'fname' => strtoupper($in_fname), 'lname' => strtoupper($in_lname), 'DOB' => strtoupper($in_dob));
$patient_id = match_patient($ptarr);
if ($patient_id == -1) {
// Result is indeterminate.
// Make a stringified form of $ptarr to use as a key.
$ptstring = serialize($ptarr);
// Check if the user has specified the patient.
if (isset($matchresp[$ptstring])) {
// This will be an existing pid, or 0 to specify creating a patient.
$patient_id = intval($matchresp[$ptstring]);
} else {
if ($dryrun) {
// Nope, ask the user to match.
$matchreq[$ptstring] = true;
$rhl7_return['needmatch'] = true;
} else {
// Should not happen, but it would be bad to abort now. Create the patient.
$patient_id = 0;
rhl7LogMsg(xl('Unexpected non-match, creating new patient for segment') . ' ' . $rhl7_segnum, false);
}
}
}
if ($patient_id == 0 && !$dryrun) {
// We must create the patient.
$patient_id = create_skeleton_patient($ptarr);
}
if ($patient_id == -1) {
$patient_id = 0;
}
}
// end results-only/MDM logic
} else {
if ('PV1' == $a[0]) {
if ('ORU' == $msgtype) {
// Save placer encounter number if present.
if ($direction != 'R' && !empty($a[19])) {
$tmp = explode($d2, $a[19]);
$in_encounter = intval($tmp[0]);
}
} else {
if ('MDM' == $msgtype) {
// For documents we want the ordering provider.
// Try Referring Provider first.
$oprow = match_provider(explode($d2, $a[8]));
// If no match, try Other Provider.
if (empty($oprow)) {
$oprow = match_provider(explode($d2, $a[52]));
}
}
}
} else {
if ('ORC' == $a[0] && 'ORU' == $msgtype) {
$context = $a[0];
if (!$dryrun) {
rhl7FlushResult($ares);
}
$ares = array();
// Next line will do something only if there was a report with no results.
if (!$dryrun) {
rhl7FlushReport($arep);
}
$arep = array();
$porow = false;
$pcrow = false;
if ($direction != 'R' && $a[2]) {
$in_orderid = intval($a[2]);
}
} else {
if ('TXA' == $a[0] && 'MDM' == $msgtype) {
$context = $a[0];
$mdm_datetime = rhl7DateTime($a[4]);
$mdm_docname = rhl7Text($a[12]);
} else {
if ($a[0] == 'NTE' && ($context == 'ORC' || $context == 'TXA')) {
// Is this ever used?
} else {
if ('OBR' == $a[0] && 'ORU' == $msgtype) {
$context = $a[0];
if (!$dryrun) {
rhl7FlushResult($ares);
}
$ares = array();
// Next line will do something only if there was a report with no results.
if (!$dryrun) {
rhl7FlushReport($arep);
}
$arep = array();
$procedure_report_id = 0;
if ($direction != 'R' && $a[2]) {
$in_orderid = intval($a[2]);
$porow = false;
$pcrow = false;
}
$tmp = explode($d2, $a[4]);
$in_procedure_code = $tmp[0];
$in_procedure_name = $tmp[1];
$in_report_status = rhl7ReportStatus($a[25]);
//
if ($direction == 'R') {
// $in_orderid will be 0 here.
// Save their order ID to procedure_order.control_id.
// That column will need to change from bigint to varchar.
// Look for an existing order using that plus lab_id.
// Ordering provider is OBR.16 (NPI^Last^First).
// Might not need to create a dummy encounter.
// Need also provider_id (probably), patient_id, date_ordered, lab_id.
// We have observation date/time in OBR.7.
// We have report date/time in OBR.22.
// We do not have an order date.
$external_order_id = empty($a[2]) ? $a[3] : $a[2];
$porow = false;
if ($external_order_id) {
$porow = sqlQuery("SELECT * FROM procedure_order " . "WHERE lab_id = ? AND control_id = ? " . "ORDER BY procedure_order_id DESC LIMIT 1", array($lab_id, $external_order_id));
}
if (!empty($porow)) {
$in_orderid = intval($porow['procedure_order_id']);
} else {
// Create order.
// Need to identify the ordering provider and, if possible, a recent encounter.
$datetime_report = rhl7DateTime($a[22]);
$date_report = substr($datetime_report, 0, 10) . ' 00:00:00';
$encounter_id = 0;
$provider_id = 0;
// Look for the most recent encounter within 30 days of the report date.
$encrow = sqlQuery("SELECT encounter FROM form_encounter WHERE " . "pid = ? AND date <= ? AND DATE_ADD(date, INTERVAL 30 DAY) > ? " . "ORDER BY date DESC, encounter DESC LIMIT 1", array($patient_id, $date_report, $date_report));
if (!empty($encrow)) {
$encounter_id = intval($encrow['encounter']);
$provider_id = intval($encrow['provider_id']);
}
if (!$provider_id) {
// Attempt ordering provider matching by name or NPI.
$oprow = match_provider(explode($d2, $a[16]));
if (!empty($oprow)) {
$provider_id = intval($oprow['id']);
}
}
if (!$dryrun) {
// Now create the procedure order.
$in_orderid = sqlInsert("INSERT INTO procedure_order SET " . "date_ordered = ?, " . "provider_id = ?, " . "lab_id = ?, " . "date_collected = ?, " . "date_transmitted = ?, " . "patient_id = ?, " . "encounter_id = ?, " . "control_id = ?", array($datetime_report, $provider_id, $lab_id, rhl7DateTime($a[22]), rhl7DateTime($a[7]), $patient_id, $encounter_id, $external_order_id));
// If an encounter was identified then link the order to it.
if ($encounter_id && $in_orderid) {
addForm($encounter_id, "Procedure Order", $in_orderid, "procedure_order", $patient_id);
}
}
}
// end no $porow
}
// end results-only
if (empty($porow)) {
$porow = sqlQuery("SELECT * FROM procedure_order WHERE " . "procedure_order_id = ?", array($in_orderid));
// The order must already exist. Currently we do not handle electronic
// results returned for manual orders.
if (empty($porow) && !($dryrun && $direction == 'R')) {
return rhl7LogMsg(xl('Procedure order not found') . ": {$in_orderid}", true);
}
if ($in_encounter) {
if ($direction != 'R' && $porow['encounter_id'] != $in_encounter) {
return rhl7LogMsg(xl('Encounter ID') . " '" . $porow['encounter_id'] . "' " . xl('for OBR placer order number') . " '{$in_orderid}' " . xl('does not match the PV1 encounter number') . " '{$in_encounter}'");
}
} else {
// They did not return an encounter number to verify, so more checking
// might be done here to make sure the patient seems to match.
}
// Save the lab's control ID if there is one.
$tmp = explode($d2, $a[3]);
$control_id = $tmp[0];
if ($control_id && empty($porow['control_id'])) {
sqlStatement("UPDATE procedure_order SET control_id = ? WHERE " . "procedure_order_id = ?", array($control_id, $in_orderid));
}
$code_seq_array = array();
}
// Find the order line item (procedure code) that matches this result.
// If there is more than one, then we select the one whose sequence number
// is next after the last sequence number encountered for this procedure
// code; this assumes that result OBRs are returned in the same sequence
// as the corresponding OBRs in the order.
if (!isset($code_seq_array[$in_procedure_code])) {
$code_seq_array[$in_procedure_code] = 0;
}
$pcquery = "SELECT pc.* FROM procedure_order_code AS pc " . "WHERE pc.procedure_order_id = ? AND pc.procedure_code = ? " . "ORDER BY (procedure_order_seq <= ?), procedure_order_seq LIMIT 1";
$pcqueryargs = array($in_orderid, $in_procedure_code, $code_seq_array[$in_procedure_code]);
$pcrow = sqlQuery($pcquery, $pcqueryargs);
if (empty($pcrow)) {
// There is no matching procedure in the order, so it must have been
// added after the original order was sent, either as a manual request
// from the physician or as a "reflex" from the lab.
// procedure_source = '2' indicates this.
if (!$dryrun) {
sqlInsert("INSERT INTO procedure_order_code SET " . "procedure_order_id = ?, " . "procedure_code = ?, " . "procedure_name = ?, " . "procedure_source = '2'", array($in_orderid, $in_procedure_code, $in_procedure_name));
$pcrow = sqlQuery($pcquery, $pcqueryargs);
} else {
// Dry run, make a dummy procedure_order_code row.
$pcrow = array('procedure_order_id' => $in_orderid, 'procedure_order_seq' => 0);
}
}
$code_seq_array[$in_procedure_code] = 0 + $pcrow['procedure_order_seq'];
$arep = array();
$arep['procedure_order_id'] = $in_orderid;
$arep['procedure_order_seq'] = $pcrow['procedure_order_seq'];
$arep['date_collected'] = rhl7DateTime($a[7]);
$arep['date_report'] = rhl7Date($a[22]);
$arep['report_status'] = $in_report_status;
$arep['report_notes'] = '';
} else {
if ($a[0] == 'NTE' && $context == 'OBR') {
$arep['report_notes'] .= rhl7Text($a[3]) . "\n";
} else {
if ('OBX' == $a[0] && 'ORU' == $msgtype) {
$context = $a[0];
if (!$dryrun) {
rhl7FlushResult($ares);
}
$ares = array();
if (!$procedure_report_id) {
if (!$dryrun) {
$procedure_report_id = rhl7FlushReport($arep);
}
$arep = array();
}
$ares['procedure_report_id'] = $procedure_report_id;
$ares['result_data_type'] = substr($a[2], 0, 1);
// N, S, F or E
$ares['comments'] = $commentdelim;
if ($a[2] == 'ED') {
// This is the case of results as an embedded document. We will create
// a normal patient document in the assigned category for lab results.
$tmp = explode($d2, $a[5]);
$fileext = strtolower($tmp[0]);
$filename = date("Ymd_His") . '.' . $fileext;
$data = rhl7DecodeData($tmp[3], $tmp[4]);
if ($data === FALSE) {
return rhl7LogMsg(xl('Invalid encapsulated data encoding type') . ': ' . $tmp[3]);
}
if (!$dryrun) {
$d = new Document();
$rc = $d->createDocument($porow['patient_id'], $results_category_id, $filename, rhl7MimeType($fileext), $data);
if ($rc) {
return rhl7LogMsg($rc);
}
$ares['document_id'] = $d->get_id();
}
} else {
if (strlen($a[5]) > 200) {
// OBX-5 can be a very long string of text with "~" as line separators.
// The first line of comments is reserved for such things.
$ares['result_data_type'] = 'L';
$ares['result'] = '';
$ares['comments'] = rhl7Text($a[5]) . $commentdelim;
} else {
$ares['result'] = rhl7Text($a[5]);
}
}
$tmp = explode($d2, $a[3]);
$ares['result_code'] = rhl7Text($tmp[0]);
$ares['result_text'] = rhl7Text($tmp[1]);
$ares['date'] = rhl7DateTime($a[14]);
$ares['facility'] = rhl7Text($a[15]);
// Ensoftek: Units may have mutiple segments(as seen in MU2 samples), parse and take just first segment.
$tmp = explode($d2, $a[6]);
$ares['units'] = rhl7Text($tmp[0]);
$ares['range'] = rhl7Text($a[7]);
$ares['abnormal'] = rhl7Abnormal($a[8]);
// values are lab dependent
$ares['result_status'] = rhl7ReportStatus($a[11]);
// Ensoftek: Performing Organization Details. Goes into "Pending Review/Patient Results--->Notes--->Facility" section.
$performingOrganization = getPerformingOrganizationDetails($a[23], $a[24], $a[25], $d2, $commentdelim);
if (isset($performingOrganization)) {
$ares['facility'] .= $performingOrganization . $commentdelim;
}
} else {
if ('OBX' == $a[0] && 'MDM' == $msgtype) {
$context = $a[0];
if ($a[2] == 'TX') {
if ($mdm_text !== '') {
$mdm_text .= "\r\n";
}
$mdm_text .= rhl7Text($a[5]);
} else {
return rhl7LogMsg(xl('Unsupported MDM OBX result type') . ': ' . $a[2]);
}
} else {
if ('ZEF' == $a[0] && 'ORU' == $msgtype) {
// ZEF segment is treated like an OBX with an embedded Base64-encoded PDF.
$context = 'OBX';
if (!$dryrun) {
rhl7FlushResult($ares);
}
$ares = array();
if (!$procedure_report_id) {
if (!$dryrun) {
$procedure_report_id = rhl7FlushReport($arep);
}
$arep = array();
}
$ares['procedure_report_id'] = $procedure_report_id;
$ares['result_data_type'] = 'E';
$ares['comments'] = $commentdelim;
//
$fileext = 'pdf';
$filename = date("Ymd_His") . '.' . $fileext;
$data = rhl7DecodeData('Base64', $a[2]);
if ($data === FALSE) {
return rhl7LogMsg(xl('ZEF segment internal error'));
}
if (!$dryrun) {
$d = new Document();
$rc = $d->createDocument($porow['patient_id'], $results_category_id, $filename, rhl7MimeType($fileext), $data);
if ($rc) {
return rhl7LogMsg($rc);
}
$ares['document_id'] = $d->get_id();
}
$ares['date'] = $arep['date_report'];
} else {
if ('NTE' == $a[0] && 'OBX' == $context && 'ORU' == $msgtype) {
$ares['comments'] .= rhl7Text($a[3]) . $commentdelim;
} else {
if ('SPM' == $a[0] && 'ORU' == $msgtype) {
if (!$dryrun) {
rhl7FlushResult($ares);
}
$ares = array();
if (!$procedure_report_id) {
if (!$dryrun) {
$procedure_report_id = rhl7FlushReport($arep);
}
$arep = array();
}
rhl7UpdateReportWithSpecimen($a, $procedure_report_id, $d2);
} else {
if ('TQ1' == $a[0] && 'ORU' == $msgtype) {
// Ignore and do nothing.
} else {
return rhl7LogMsg(xl('Segment name') . " '{$a[0]}' " . xl('is misplaced or unknown'));
}
}
}
}
}
}
}
}
}
}
}
}
}
}
}
if ('ORU' == $msgtype && !$dryrun) {
rhl7FlushResult($ares);
// Next line does something only for a report with no results.
rhl7FlushReport($arep);
}
if ('MDM' == $msgtype && !$dryrun) {
$rc = rhl7FlushMDM($patient_id, $mdm_docname, $mdm_datetime, $mdm_text, $mdm_category_id, $oprow ? $oprow['username'] : 0);
if ($rc) {
return rhl7LogMsg($rc);
}
}
return $rhl7_return;
}
/**
* Parse and save.
*
* @param string &$hl7 The input HL7 text.
* @param char $direction B=Bidirectional, R=Results-only
* @param book $dryrun True = do not update anything, just report errors
* @return array Array of errors and match requests, if any.
*/
function receive_hl7_results(&$hl7, $lab_id = 0, $direction = 'B', $dryrun = false, $matchresp = NULL)
{
// This will hold returned error messages and related variables.
$rhl7_return = array();
$rhl7_return['mssgs'] = array();
$rhl7_return['match'] = array();
$rhl7_segnum = 0;
if (substr($hl7, 0, 3) != 'MSH') {
return rhl7LogMsg(xl('Input does not begin with a MSH segment'), true);
}
// End-of-line delimiter for text in procedure_result.comments
$commentdelim = "\n";
$today = time();
$in_message_id = '';
$in_ssn = '';
$in_dob = '';
$in_lname = '';
$in_fname = '';
$in_orderid = 0;
$in_procedure_code = '';
$in_report_status = '';
$in_encounter = 0;
$patient_id = 0;
// for results-only patient matching logic
$porow = false;
$pcrow = false;
$procedure_report_id = 0;
$arep = array();
// holding area for OBR and its NTE data
$ares = array();
// holding area for OBX and its NTE data
$code_seq_array = array();
// tracks sequence numbers of order codes
$results_category_id = 0;
// document category ID for lab results
// This is so we know where we are if a segment like NTE that can appear in
// different places is encountered.
$context = '';
// Delimiters
$d0 = "\r";
$d1 = substr($hl7, 3, 1);
// typically |
$d2 = substr($hl7, 4, 1);
// typically ^
$d3 = substr($hl7, 5, 1);
// typically ~
// We'll need the document category ID for any embedded documents.
$catrow = sqlQuery("SELECT id FROM categories WHERE name = ?", array($GLOBALS['lab_results_category_name']));
if (empty($catrow['id'])) {
return rhl7LogMsg(xl('Document category for lab results does not exist') . ': ' . $GLOBALS['lab_results_category_name'], true);
} else {
$results_category_id = $catrow['id'];
}
$segs = explode($d0, $hl7);
foreach ($segs as $seg) {
if (empty($seg)) {
continue;
}
// echo "<!-- $dryrun $seg -->\n"; // debugging
++$rhl7_segnum;
$a = explode($d1, $seg);
if ($a[0] == 'MSH') {
$context = $a[0];
if ($a[8] != 'ORU^R01') {
return rhl7LogMsg(xl('MSH.8 message type is not valid') . ": '" . $a[8] . "'", true);
}
$in_message_id = $a[9];
} else {
if ($a[0] == 'PID') {
$context = $a[0];
if (!$dryrun) {
rhl7FlushResult($ares);
}
$ares = array();
// Next line will do something only if there was a report with no results.
if (!$dryrun) {
rhl7FlushReport($arep);
}
$arep = array();
$porow = false;
$pcrow = false;
$in_orderid = 0;
$in_ssn = preg_replace('/[^0-9]/', '', $a[4]);
$in_dob = rhl7Date($a[7]);
$tmp = explode($d2, $a[5]);
$in_lname = rhl7Text($tmp[0]);
$in_fname = rhl7Text($tmp[1]);
$patient_id = 0;
if ($direction == 'R') {
$patient_id = match_patient($in_ss, $in_fname, $in_lname, $in_dob);
if ($patient_id == -1) {
// Indeterminate, check if the user has specified the patient.
if (isset($matchresp[$rhl7_segnum])) {
// This will be an existing pid, or 0 to specify creating a patient.
$patient_id = intval($matchresp[$rhl7_segnum]);
} else {
// Nope, ask the user to do so.
$rhl7_return['match'][$rhl7_segnum] = array('ss' => $in_ss, 'fname' => $in_fname, 'lname' => $in_lname, 'DOB' => $in_dob);
}
}
if ($patient_id == 0 && !$dryrun) {
// We must create the patient.
$patient_id = create_skeleton_patient(array('fname' => $in_fname, 'lname' => $in_lname, 'DOB' => $in_dob, 'ss' => $in_ssn));
}
if ($patient_id == -1) {
$patient_id = 0;
}
}
// end results-only logic
} else {
if ($a[0] == 'PV1') {
// Save placer encounter number if present.
if ($direction != 'R' && !empty($a[19])) {
$tmp = explode($d2, $a[19]);
$in_encounter = intval($tmp[0]);
}
} else {
if ($a[0] == 'ORC') {
$context = $a[0];
if (!$dryrun) {
rhl7FlushResult($ares);
}
$ares = array();
// Next line will do something only if there was a report with no results.
if (!$dryrun) {
rhl7FlushReport($arep);
}
$arep = array();
$porow = false;
$pcrow = false;
if ($direction != 'R' && $a[2]) {
$in_orderid = intval($a[2]);
}
} else {
if ($a[0] == 'NTE' && $context == 'ORC') {
// Is this ever used?
} else {
if ($a[0] == 'OBR') {
$context = $a[0];
if (!$dryrun) {
rhl7FlushResult($ares);
}
$ares = array();
// Next line will do something only if there was a report with no results.
if (!$dryrun) {
rhl7FlushReport($arep);
}
$arep = array();
$procedure_report_id = 0;
if ($direction != 'R' && $a[2]) {
$in_orderid = intval($a[2]);
$porow = false;
$pcrow = false;
}
$tmp = explode($d2, $a[4]);
$in_procedure_code = $tmp[0];
$in_procedure_name = $tmp[1];
$in_report_status = rhl7ReportStatus($a[25]);
//
if ($direction == 'R') {
// $in_orderid will be 0 here.
// Save their order ID to procedure_order.control_id.
// That column will need to change from bigint to varchar.
// Look for an existing order using that plus lab_id.
// Ordering provider is OBR.16 (NPI^Last^First).
// Might not need to create a dummy encounter.
// Need also provider_id (probably), patient_id, date_ordered, lab_id.
// We have observation date/time in OBR.7.
// We have report date/time in OBR.22.
// We do not have an order date.
$external_order_id = empty($a[2]) ? $a[3] : $a[2];
$porow = false;
if ($external_order_id) {
$porow = sqlQuery("SELECT * FROM procedure_order " . "WHERE lab_id = ? AND control_id = ? " . "ORDER BY procedure_order_id DESC LIMIT 1", array($lab_id, $external_order_id));
}
if (!empty($porow)) {
$in_orderid = intval($porow['procedure_order_id']);
} else {
// Create order.
// Need to identify the ordering provider and, if possible, a recent encounter.
$datetime_report = rhl7DateTime($a[22]);
$date_report = substr($datetime_report, 0, 10) . ' 00:00:00';
$encounter_id = 0;
$provider_id = 0;
// Look for the most recent encounter within 30 days of the report date.
$encrow = sqlQuery("SELECT encounter FROM form_encounter WHERE " . "pid = ? AND date <= ? AND DATE_ADD(date, INTERVAL 30 DAY) > ? " . "ORDER BY date DESC, encounter DESC LIMIT 1", array($patient_id, $date_report, $date_report));
if (!empty($encrow)) {
$encounter_id = intval($encrow['encounter']);
$provider_id = intval($encrow['provider_id']);
}
if (!$provider_id) {
// Attempt ordering provider matching by name or NPI.
$op_lname = $op_fname = '';
$tmp = explode($d2, $a[16]);
$op_npi = preg_replace('/[^0-9]/', '', $tmp[0]);
if (!empty($tmp[1])) {
$op_lname = $tmp[1];
}
if (!empty($tmp[2])) {
$op_fname = $tmp[2];
}
if ($op_npi || $op_fname && $op_lname) {
if ($op_npi) {
if ($op_fname && $op_lname) {
$where = "(npi IS NOT NULL AND npi = ?) OR ((npi IS NULL OR npi = ?) AND lname = ? AND fname = ?)";
$qarr = array($op_npi, '', $op_lname, $op_fname);
} else {
$where = "npi IS NOT NULL AND npi = ?";
$qarr = array($op_npi);
}
} else {
$where = "lname = ? AND fname = ?";
$qarr = array($op_lname, $op_fname);
}
}
$oprow = sqlQuery("SELECT id FROM users WHERE {$where} " . "ORDER BY active DESC, authorized DESC, username DESC, id LIMIT 1", $qarr);
if (!empty($oprow)) {
$provider_id = intval($oprow['id']);
}
}
if (!$dryrun) {
// Now create the procedure order.
$in_orderid = sqlInsert("INSERT INTO procedure_order SET " . "date_ordered = ?, " . "provider_id = ?, " . "lab_id = ?, " . "date_collected = ?, " . "date_transmitted = ?, " . "patient_id = ?, " . "encounter_id = ?, " . "control_id = ?", array($datetime_report, $provider_id, $lab_id, rhl7DateTime($a[22]), rhl7DateTime($a[7]), $patient_id, $encounter_id, $external_order_id));
// If an encounter was identified then link the order to it.
if ($encounter_id && $in_orderid) {
addForm($encounter_id, "Procedure Order", $in_orderid, "procedure_order", $patient_id);
}
}
}
// end no $porow
}
// end results-only
if (empty($porow)) {
$porow = sqlQuery("SELECT * FROM procedure_order WHERE " . "procedure_order_id = ?", array($in_orderid));
// The order must already exist. Currently we do not handle electronic
// results returned for manual orders.
if (empty($porow) && !($dryrun && $direction == 'R')) {
return rhl7LogMsg(xl('Procedure order not found') . ": {$in_orderid}", true);
}
if ($in_encounter) {
if ($direction != 'R' && $porow['encounter_id'] != $in_encounter) {
return rhl7LogMsg(xl('Encounter ID') . " '" . $porow['encounter_id'] . "' " . xl('for OBR placer order number') . " '{$in_orderid}' " . xl('does not match the PV1 encounter number') . " '{$in_encounter}'");
}
} else {
// They did not return an encounter number to verify, so more checking
// might be done here to make sure the patient seems to match.
}
// Save the lab's control ID if there is one.
$tmp = explode($d2, $a[3]);
$control_id = $tmp[0];
if ($control_id && empty($porow['control_id'])) {
sqlStatement("UPDATE procedure_order SET control_id = ? WHERE " . "procedure_order_id = ?", array($control_id, $in_orderid));
}
$code_seq_array = array();
}
// Find the order line item (procedure code) that matches this result.
// If there is more than one, then we select the one whose sequence number
// is next after the last sequence number encountered for this procedure
// code; this assumes that result OBRs are returned in the same sequence
// as the corresponding OBRs in the order.
if (!isset($code_seq_array[$in_procedure_code])) {
$code_seq_array[$in_procedure_code] = 0;
}
$pcquery = "SELECT pc.* FROM procedure_order_code AS pc " . "WHERE pc.procedure_order_id = ? AND pc.procedure_code = ? " . "ORDER BY (procedure_order_seq <= ?), procedure_order_seq LIMIT 1";
$pcqueryargs = array($in_orderid, $in_procedure_code, $code_seq_array[$in_procedure_code]);
$pcrow = sqlQuery($pcquery, $pcqueryargs);
if (empty($pcrow)) {
// There is no matching procedure in the order, so it must have been
// added after the original order was sent, either as a manual request
// from the physician or as a "reflex" from the lab.
// procedure_source = '2' indicates this.
if (!$dryrun) {
sqlInsert("INSERT INTO procedure_order_code SET " . "procedure_order_id = ?, " . "procedure_code = ?, " . "procedure_name = ?, " . "procedure_source = '2'", array($in_orderid, $in_procedure_code, $in_procedure_name));
$pcrow = sqlQuery($pcquery, $pcqueryargs);
} else {
// Dry run, make a dummy procedure_order_code row.
$pcrow = array('procedure_order_id' => $in_orderid, 'procedure_order_seq' => 0);
}
}
$code_seq_array[$in_procedure_code] = 0 + $pcrow['procedure_order_seq'];
$arep = array();
$arep['procedure_order_id'] = $in_orderid;
$arep['procedure_order_seq'] = $pcrow['procedure_order_seq'];
$arep['date_collected'] = rhl7DateTime($a[7]);
$arep['date_report'] = rhl7Date($a[22]);
$arep['report_status'] = $in_report_status;
$arep['report_notes'] = '';
} else {
if ($a[0] == 'NTE' && $context == 'OBR') {
$arep['report_notes'] .= rhl7Text($a[3]) . "\n";
} else {
if ($a[0] == 'OBX') {
$context = $a[0];
if (!$dryrun) {
rhl7FlushResult($ares);
}
$ares = array();
if (!$procedure_report_id) {
if (!$dryrun) {
$procedure_report_id = rhl7FlushReport($arep);
}
$arep = array();
}
$ares['procedure_report_id'] = $procedure_report_id;
$ares['result_data_type'] = substr($a[2], 0, 1);
// N, S, F or E
$ares['comments'] = $commentdelim;
if ($a[2] == 'ED') {
// This is the case of results as an embedded document. We will create
// a normal patient document in the assigned category for lab results.
$tmp = explode($d2, $a[5]);
$fileext = strtolower($tmp[0]);
$filename = date("Ymd_His") . '.' . $fileext;
$data = rhl7DecodeData($tmp[3], $tmp[4]);
if ($data === FALSE) {
return rhl7LogMsg(xl('Invalid encapsulated data encoding type') . ': ' . $tmp[3]);
}
if (!$dryrun) {
$d = new Document();
$rc = $d->createDocument($porow['patient_id'], $results_category_id, $filename, rhl7MimeType($fileext), $data);
if ($rc) {
return rhl7LogMsg($rc);
}
$ares['document_id'] = $d->get_id();
}
} else {
if (strlen($a[5]) > 200) {
// OBX-5 can be a very long string of text with "~" as line separators.
// The first line of comments is reserved for such things.
$ares['result_data_type'] = 'L';
$ares['result'] = '';
$ares['comments'] = rhl7Text($a[5]) . $commentdelim;
} else {
$ares['result'] = rhl7Text($a[5]);
}
}
$tmp = explode($d2, $a[3]);
$ares['result_code'] = rhl7Text($tmp[0]);
$ares['result_text'] = rhl7Text($tmp[1]);
$ares['date'] = rhl7DateTime($a[14]);
$ares['facility'] = rhl7Text($a[15]);
$ares['units'] = rhl7Text($a[6]);
$ares['range'] = rhl7Text($a[7]);
$ares['abnormal'] = rhl7Abnormal($a[8]);
// values are lab dependent
$ares['result_status'] = rhl7ReportStatus($a[11]);
} else {
if ($a[0] == 'ZEF') {
// ZEF segment is treated like an OBX with an embedded Base64-encoded PDF.
$context = 'OBX';
if (!$dryrun) {
rhl7FlushResult($ares);
}
$ares = array();
if (!$procedure_report_id) {
if (!$dryrun) {
$procedure_report_id = rhl7FlushReport($arep);
}
$arep = array();
}
$ares['procedure_report_id'] = $procedure_report_id;
$ares['result_data_type'] = 'E';
$ares['comments'] = $commentdelim;
//
$fileext = 'pdf';
$filename = date("Ymd_His") . '.' . $fileext;
$data = rhl7DecodeData('Base64', $a[2]);
if ($data === FALSE) {
return rhl7LogMsg(xl('ZEF segment internal error'));
}
if (!$dryrun) {
$d = new Document();
$rc = $d->createDocument($porow['patient_id'], $results_category_id, $filename, rhl7MimeType($fileext), $data);
if ($rc) {
return rhl7LogMsg($rc);
}
$ares['document_id'] = $d->get_id();
}
$ares['date'] = $arep['date_report'];
} else {
if ($a[0] == 'NTE' && $context == 'OBX') {
$ares['comments'] .= rhl7Text($a[3]) . $commentdelim;
} else {
return rhl7LogMsg(xl('Segment name') . " '{$a[0]}' " . xl('is misplaced or unknown'));
}
}
}
}
}
}
}
}
}
}
}
if (!$dryrun) {
rhl7FlushResult($ares);
}
// Next line will do something only if there was a report with no results.
if (!$dryrun) {
rhl7FlushReport($arep);
}
return $rhl7_return;
}
/**
* Parse and save.
*
* @param string &$pprow A row from the procedure_providers table.
* @param string &$hl7 The input HL7 text.
* @return string Error text, or empty if no errors.
*/
function receive_hl7_results(&$hl7)
{
if (substr($hl7, 0, 3) != 'MSH') {
return xl('Input does not begin with a MSH segment');
}
// End-of-line delimiter for text in procedure_result.comments
$commentdelim = "\n";
$today = time();
$in_message_id = '';
$in_ssn = '';
$in_dob = '';
$in_lname = '';
$in_fname = '';
$in_orderid = 0;
$in_procedure_code = '';
$in_report_status = '';
$in_encounter = 0;
$porow = false;
$pcrow = false;
$procedure_report_id = 0;
$arep = array();
// holding area for OBR and its NTE data
$ares = array();
// holding area for OBX and its NTE data
$code_seq_array = array();
// tracks sequence numbers of order codes
// This is so we know where we are if a segment like NTE that can appear in
// different places is encountered.
$context = '';
// Delimiters
$d0 = "\r";
$d1 = substr($hl7, 3, 1);
// typically |
$d2 = substr($hl7, 4, 1);
// typically ^
$d3 = substr($hl7, 5, 1);
// typically ~
// We'll need the document category ID for any embedded documents.
$catrow = sqlQuery("SELECT id FROM categories WHERE name = ?", array($GLOBALS['lab_results_category_name']));
if (empty($catrow['id'])) {
return xl('Document category for lab results does not exist') . ': ' . $GLOBALS['lab_results_category_name'];
}
$results_category_id = $catrow['id'];
$segs = explode($d0, $hl7);
foreach ($segs as $seg) {
if (empty($seg)) {
continue;
}
$a = explode($d1, $seg);
if ($a[0] == 'MSH') {
$context = $a[0];
if ($a[8] != 'ORU^R01') {
return xl('Message type') . " '{$a[8]}' " . xl('does not seem valid');
}
$in_message_id = $a[9];
} else {
if ($a[0] == 'PID') {
$context = $a[0];
rhl7FlushResult($ares);
// Next line will do something only if there was a report with no results.
rhl7FlushReport($arep);
$in_ssn = $a[4];
$in_dob = $a[7];
// yyyymmdd format
$tmp = explode($d2, $a[5]);
$in_lname = $tmp[0];
$in_fname = $tmp[1];
} else {
if ($a[0] == 'PV1') {
// Save placer encounter number if present.
if (!empty($a[19])) {
$tmp = explode($d2, $a[19]);
$in_encounter = intval($tmp[0]);
}
} else {
if ($a[0] == 'ORC') {
$context = $a[0];
rhl7FlushResult($ares);
// Next line will do something only if there was a report with no results.
rhl7FlushReport($arep);
$porow = false;
$pcrow = false;
if ($a[2]) {
$in_orderid = intval($a[2]);
}
} else {
if ($a[0] == 'NTE' && $context == 'ORC') {
// TBD? Is this ever used?
} else {
if ($a[0] == 'OBR') {
$context = $a[0];
rhl7FlushResult($ares);
// Next line will do something only if there was a report with no results.
rhl7FlushReport($arep);
$procedure_report_id = 0;
if ($a[2]) {
$in_orderid = intval($a[2]);
}
$tmp = explode($d2, $a[4]);
$in_procedure_code = $tmp[0];
$in_procedure_name = $tmp[1];
$in_report_status = rhl7ReportStatus($a[25]);
if (empty($porow)) {
$porow = sqlQuery("SELECT * FROM procedure_order WHERE " . "procedure_order_id = ?", array($in_orderid));
// The order must already exist. Currently we do not handle electronic
// results returned for manual orders.
if (empty($porow)) {
return xl('Procedure order') . " '{$in_orderid}' " . xl('was not found');
}
if ($in_encounter) {
if ($porow['encounter_id'] != $in_encounter) {
return xl('Encounter ID') . " '" . $porow['encounter_id'] . "' " . xl('for OBR placer order number') . " '{$in_orderid}' " . xl('does not match the PV1 encounter number') . " '{$in_encounter}'";
}
} else {
// They did not return an encounter number to verify, so more checking
// might be done here to make sure the patient seems to match.
}
$code_seq_array = array();
}
// Find the order line item (procedure code) that matches this result.
// If there is more than one, then we select the one whose sequence number
// is next after the last sequence number encountered for this procedure
// code; this assumes that result OBRs are returned in the same sequence
// as the corresponding OBRs in the order.
if (!isset($code_seq_array[$in_procedure_code])) {
$code_seq_array[$in_procedure_code] = 0;
}
$pcquery = "SELECT pc.* FROM procedure_order_code AS pc " . "WHERE pc.procedure_order_id = ? AND pc.procedure_code = ? " . "ORDER BY (procedure_order_seq <= ?), procedure_order_seq LIMIT 1";
$pcrow = sqlQuery($pcquery, array($in_orderid, $in_procedure_code, $code_seq_array['$in_procedure_code']));
if (empty($pcrow)) {
// There is no matching procedure in the order, so it must have been
// added after the original order was sent, either as a manual request
// from the physician or as a "reflex" from the lab.
// procedure_source = '2' indicates this.
sqlInsert("INSERT INTO procedure_order_code SET " . "procedure_order_id = ?, " . "procedure_code = ?, " . "procedure_name = ?, " . "procedure_source = '2'", array($in_orderid, $in_procedure_code, $in_procedure_name));
$pcrow = sqlQuery($pcquery, array($in_orderid, $in_procedure_code));
}
$code_seq_array[$in_procedure_code] = 0 + $pcrow['procedure_order_seq'];
$arep = array();
$arep['procedure_order_id'] = $in_orderid;
$arep['procedure_order_seq'] = $pcrow['procedure_order_seq'];
$arep['date_collected'] = rhl7DateTime($a[7]);
$arep['date_report'] = substr(rhl7DateTime($a[22]), 0, 10);
$arep['report_status'] = $in_report_status;
$arep['report_notes'] = '';
} else {
if ($a[0] == 'NTE' && $context == 'OBR') {
$arep['report_notes'] .= rhl7Text($a[3]) . "\n";
} else {
if ($a[0] == 'OBX') {
$context = $a[0];
rhl7FlushResult($ares);
if (!$procedure_report_id) {
$procedure_report_id = rhl7FlushReport($arep);
}
$ares = array();
$ares['procedure_report_id'] = $procedure_report_id;
$ares['result_data_type'] = substr($a[2], 0, 1);
// N, S, F or E
$ares['comments'] = $commentdelim;
if ($a[2] == 'ED') {
// This is the case of results as an embedded document. We will create
// a normal patient document in the assigned category for lab results.
$tmp = explode($d2, $a[5]);
$fileext = strtolower($tmp[0]);
$filename = date("Ymd_His") . '.' . $fileext;
$data = rhl7DecodeData($tmp[3], &$tmp[4]);
if ($data === FALSE) {
return xl('Invalid encapsulated data encoding type') . ': ' . $tmp[3];
}
$d = new Document();
$rc = $d->createDocument($porow['patient_id'], $results_category_id, $filename, rhl7MimeType($fileext), $data);
if ($rc) {
return $rc;
}
// This would be error message text.
$ares['document_id'] = $d->get_id();
} else {
if (strlen($a[5]) > 200) {
// OBX-5 can be a very long string of text with "~" as line separators.
// The first line of comments is reserved for such things.
$ares['result_data_type'] = 'L';
$ares['result'] = '';
$ares['comments'] = rhl7Text($a[5]) . $commentdelim;
} else {
$ares['result'] = rhl7Text($a[5]);
}
}
$tmp = explode($d2, $a[3]);
$ares['result_code'] = rhl7Text($tmp[0]);
$ares['result_text'] = rhl7Text($tmp[1]);
$ares['date'] = rhl7DateTime($a[14]);
$ares['facility'] = rhl7Text($a[15]);
$ares['units'] = rhl7Text($a[6]);
$ares['range'] = rhl7Text($a[7]);
$ares['abnormal'] = rhl7Abnormal($a[8]);
// values are lab dependent
$ares['result_status'] = rhl7ReportStatus($a[11]);
} else {
if ($a[0] == 'ZEF') {
// ZEF segment is treated like an OBX with an embedded Base64-encoded PDF.
$context = 'OBX';
rhl7FlushResult($ares);
if (!$procedure_report_id) {
$procedure_report_id = rhl7FlushReport($arep);
}
$ares = array();
$ares['procedure_report_id'] = $procedure_report_id;
$ares['result_data_type'] = 'E';
$ares['comments'] = $commentdelim;
//
$fileext = 'pdf';
$filename = date("Ymd_His") . '.' . $fileext;
$data = rhl7DecodeData('Base64', $a[2]);
if ($data === FALSE) {
return xl('ZEF segment internal error');
}
$d = new Document();
$rc = $d->createDocument($porow['patient_id'], $results_category_id, $filename, rhl7MimeType($fileext), $data);
if ($rc) {
return $rc;
}
// This would be error message text.
$ares['document_id'] = $d->get_id();
//
$ares['date'] = $arep['date_report'];
} else {
if ($a[0] == 'NTE' && $context == 'OBX') {
$ares['comments'] .= rhl7Text($a[3]) . $commentdelim;
} else {
return xl('Segment name') . " '{$a[0]}' " . xl('is misplaced or unknown');
}
}
}
}
}
}
}
}
}
}
}
rhl7FlushResult($ares);
// Next line will do something only if there was a report with no results.
rhl7FlushReport($arep);
return '';
}