You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1270 lines
47 KiB
1270 lines
47 KiB
2 years ago
|
<?php
|
||
|
|
|
||
|
|
/**
|
||
|
|
* edih_segments.php
|
||
|
|
*
|
||
|
|
* @package OpenEMR
|
||
|
|
* @link http://www.open-emr.org
|
||
|
|
* @author Kevin McCormick Longview, Texas
|
||
|
|
* @author Stephen Waite <stephen.waite@cmsvt.com>
|
||
|
|
* @copyright Copyright (c) 2016 Kevin McCormick Longview, Texas
|
||
|
|
* @license https://github.com/openemr/openemr/blob/master/LICENSE GNU General Public License 3
|
||
|
|
*/
|
||
|
|
|
||
|
|
|
||
|
|
/**
|
||
|
|
* increment loop values ($lpval is a reference)
|
||
|
|
*
|
||
|
|
* @param $lptest the prospective loop value
|
||
|
|
* @param &$lpval the present loop value -- reassigned here
|
||
|
|
* @return integer value from strcmp()
|
||
|
|
*/
|
||
|
|
function edih_change_loop($lptest, &$lpval)
|
||
|
|
{
|
||
|
|
// strcmp($str1,$str2) Returns < 0 if str1 is less than str2; > 0 if str1 is greater than str2, and 0 if they are equal.
|
||
|
|
if (strcmp($lptest, $lpval) > 0) {
|
||
|
|
//echo "$lptest greater than $lpval" .PHP_EOL;
|
||
|
|
$lpval = $lptest;
|
||
|
|
}
|
||
|
|
|
||
|
|
return strcmp($lptest, $lpval);
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* format segments for display of x12 edi files
|
||
|
|
*
|
||
|
|
* @param array $segments
|
||
|
|
* @param string $delimiter
|
||
|
|
* return string
|
||
|
|
*/
|
||
|
|
function edih_segments_text($segments, $delimiter)
|
||
|
|
{
|
||
|
|
//
|
||
|
|
$str_html = '';
|
||
|
|
//
|
||
|
|
if (!is_array($segments) || !count($segments) || strlen($delimiter) != 1) {
|
||
|
|
// debug
|
||
|
|
csv_edihist_log('edih_generic_text: invalid argument');
|
||
|
|
$str_html = "Invalid arguments for view of x12 file text<br />";
|
||
|
|
return $str_html;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
$de = $delimiter;
|
||
|
|
$loopid = " -- ";
|
||
|
|
$idx = 0;
|
||
|
|
//
|
||
|
|
foreach ($segments as $key => $seg) {
|
||
|
|
$idx++;
|
||
|
|
//
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
return $str_html;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* identify loops and format segments for display
|
||
|
|
* of 837 (professional claim) type x12 edi files
|
||
|
|
*
|
||
|
|
* @param array $segments
|
||
|
|
* @param string $delimiter
|
||
|
|
* return string
|
||
|
|
*/
|
||
|
|
function edih_837_text($segments, $delimiter, $err_seg = '')
|
||
|
|
{
|
||
|
|
//
|
||
|
|
$str_html = '';
|
||
|
|
$err_ar = array();
|
||
|
|
//
|
||
|
|
if (!is_array($segments) || !count($segments) || strlen($delimiter) != 1) {
|
||
|
|
// debug
|
||
|
|
csv_edihist_log('edih_837_text: invalid argument');
|
||
|
|
$str_html .= "Invalid arguments for view of x12 file text<br />";
|
||
|
|
return $str_html;
|
||
|
|
}
|
||
|
|
|
||
|
|
// to highlight identified errors listed in 999/997 ack
|
||
|
|
if ($err_seg) {
|
||
|
|
$er = edih_errseg_parse($err_seg);
|
||
|
|
$erstn = (isset($er['trace'])) ? substr($er['trace'], -4) : '';
|
||
|
|
$erseg = (isset($er['err'])) ? $er['err'] : array();
|
||
|
|
} else {
|
||
|
|
$erstn = '';
|
||
|
|
$erseg = array();
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
$de = $delimiter;
|
||
|
|
$loopid = "0";
|
||
|
|
$idx = 0;
|
||
|
|
$stkey = 0;
|
||
|
|
$segnum = 0;
|
||
|
|
$stsegct = 0;
|
||
|
|
$bterr = 'btseg';
|
||
|
|
//
|
||
|
|
foreach ($segments as $key => $seg) {
|
||
|
|
$idx++;
|
||
|
|
$title = '';
|
||
|
|
$stsegct++;
|
||
|
|
$bterr = 'btseg';
|
||
|
|
//
|
||
|
|
if ($erstn && ($erstn == $stn)) {
|
||
|
|
$bterr = (in_array($stsegct, $erseg)) ? 'bterr' : 'btseg';
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('ST' . $de, $seg, 3) === 0) {
|
||
|
|
$loopid = 'Header';
|
||
|
|
$stkey = (int)$key;
|
||
|
|
$stsegct = 1;
|
||
|
|
$stn = explode($de, $seg)[2];
|
||
|
|
$str_html .= "<tr><td class='btloop' title='" . attr($title) . "'>" . text($loopid) . "</td><td class='btnum' title='" . attr($key) . "'>" . text($stsegct) . "</td><td class='" . attr($bterr) . "'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('BHT' . $de, $seg, 4) === 0) {
|
||
|
|
$loopid = 'Begin';
|
||
|
|
$stsegct = 2;
|
||
|
|
$str_html .= "<tr><td class='btloop' title='" . attr($title) . "'>" . text($loopid) . "</td><td class='btnum' title='" . attr($key) . "'>" . text($stsegct) . "</td><td class='" . attr($bterr) . "'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('HL' . $de, $seg, 3) === 0) {
|
||
|
|
$sar = explode($de, $seg);
|
||
|
|
if ($sar[3] == '20') { // level code
|
||
|
|
$loopid = '2000A'; // billing provider (clinic)
|
||
|
|
} elseif ($sar[3] == '22') {
|
||
|
|
$loopid = '2000B'; // subscriber
|
||
|
|
} elseif ($sar[3] == '23' || $sar[3] == 'PT') {
|
||
|
|
$loopid = '2000C'; // dependent
|
||
|
|
$has_eb = false;
|
||
|
|
} else {
|
||
|
|
//debug
|
||
|
|
csv_edihist_log('edih_837_text: HL has no level ' . $seg);
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
$str_html .= "<tr><td class='btloop' title='" . attr($title) . "'>" . text($loopid) . "</td><td class='btnum' title='" . attr($key) . "'>" . text($stsegct) . "</td><td class='" . attr($bterr) . "'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('CLM' . $de, $seg, 4) === 0) {
|
||
|
|
$loopid = '2300';
|
||
|
|
$title = 'Claim';
|
||
|
|
$str_html .= "<tr><td class='btloop' title='" . attr($title) . "'>" . text($loopid) . "</td><td class='btnum' title='" . attr($key) . "'>" . text($stsegct) . "</td><td class='" . attr($bterr) . "'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$title = '';
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('SBR' . $de, $seg, 4) === 0) {
|
||
|
|
if ($loopid == '2000B') {
|
||
|
|
$title = 'Subscriber';
|
||
|
|
$str_html .= "<tr><td class='btloop' title='" . attr($title) . "'>" . text($loopid) . "</td><td class='btnum' title='" . attr($key) . "'>" . text($stsegct) . "</td><td class='" . attr($bterr) . "'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
} else {
|
||
|
|
$title = 'Other Subscriber';
|
||
|
|
$loopid = '2320';
|
||
|
|
$str_html .= "<tr><td class='btloop' title='" . attr($title) . "'> -- </td><td class='btnum' title='" . attr($key) . "'>" . text($stsegct) . "</td><td class='" . attr($bterr) . "'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
}
|
||
|
|
|
||
|
|
$title = '';
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('LX' . $de, $seg, 3) === 0) {
|
||
|
|
$loopid = '2400';
|
||
|
|
$title = 'Svc Line Number';
|
||
|
|
$str_html .= "<tr><td class='btloop' title='" . attr($title) . "'>" . text($loopid) . "</td><td class='btnum' title='" . attr($key) . "'>" . text($stsegct) . "</td><td class='" . attr($bterr) . "'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$title = '';
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('LIN' . $de, $seg, 4) === 0) {
|
||
|
|
$loopid = '2410';
|
||
|
|
$title = 'Drug ID';
|
||
|
|
$str_html .= "<tr><td class='btloop' title='" . attr($title) . "'>" . text($loopid) . "</td><td class='btnum' title='" . attr($key) . "'>" . text($stsegct) . "</td><td class='" . attr($bterr) . "'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$title = '';
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('SVD' . $de, $seg, 4) === 0) {
|
||
|
|
$loopid = '2430';
|
||
|
|
$title = 'Line Adjudication';
|
||
|
|
$str_html .= "<tr></tr><td class='btloop' title='" . attr($title) . "'>" . text($loopid) . "</td><td class='btnum' title='" . attr($key) . "'>" . text($stsegct) . "</td><td class='" . attr($bterr) . "'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$title = '';
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('NM1' . $de, $seg, 4) === 0) {
|
||
|
|
$sar = explode($de, $seg);
|
||
|
|
$nm101 = ( isset($sar[1]) ) ? $sar[1] : '';
|
||
|
|
if ($loopid == 'Begin' || strcmp(substr($loopid, 0, 4), '2320') < 0) {
|
||
|
|
if ($nm101 == '41') {
|
||
|
|
$loopid = '1000A';
|
||
|
|
$title = 'Submitter';
|
||
|
|
} elseif ($nm101 == '40') {
|
||
|
|
$loopid = '1000B';
|
||
|
|
$title = 'Receiver';
|
||
|
|
} elseif ($nm101 == '85') {
|
||
|
|
$loopid = '2010AA';
|
||
|
|
$title = 'Billing';
|
||
|
|
} elseif ($nm101 == '87') {
|
||
|
|
$loopid = '2010AB';
|
||
|
|
$title = 'Pay to';
|
||
|
|
} elseif ($nm101 == 'PE') {
|
||
|
|
$loopid = '2010AC';
|
||
|
|
$title = 'Pay to Plan';
|
||
|
|
} elseif ($nm101 == 'IL') {
|
||
|
|
$loopid = '2010BA';
|
||
|
|
$title = 'Subscriber';
|
||
|
|
} elseif ($nm101 == 'PR') {
|
||
|
|
$loopid = '2010BB';
|
||
|
|
$title = 'Payer';
|
||
|
|
} elseif ($nm101 == 'QC') {
|
||
|
|
$loopid = '2010CA';
|
||
|
|
$title = 'Patient';
|
||
|
|
} elseif ($nm101 == 'DN') {
|
||
|
|
$loopid = '2310A';
|
||
|
|
$title = 'Referring Provider';
|
||
|
|
} elseif ($nm101 == 'P3') {
|
||
|
|
$loopid = '2310A';
|
||
|
|
$title = 'Primary Care Provider';
|
||
|
|
} elseif ($nm101 == '82') {
|
||
|
|
$loopid = '2310B';
|
||
|
|
$title = 'Rendering Provider';
|
||
|
|
} elseif ($nm101 == '77') {
|
||
|
|
$loopid = '2310C';
|
||
|
|
$title = 'Service Facility';
|
||
|
|
} elseif ($nm101 == 'DQ') {
|
||
|
|
$loopid = '2310D';
|
||
|
|
$title = 'Supervising Provider';
|
||
|
|
} elseif ($nm101 == 'PW') {
|
||
|
|
$loopid = '2310E';
|
||
|
|
$title = 'Ambulance pickup';
|
||
|
|
} elseif ($nm101 == '45') {
|
||
|
|
$loopid = '2310F';
|
||
|
|
$title = 'Ambulance dropoff';
|
||
|
|
}
|
||
|
|
} elseif (strcmp(substr($loopid, 0, 4), '2400') < 0) {
|
||
|
|
if ($nm101 == 'IL') {
|
||
|
|
$loopid = '2330A';
|
||
|
|
$title = 'Other Subscriber';
|
||
|
|
} elseif ($nm101 == 'PR') {
|
||
|
|
$loopid = '2330B';
|
||
|
|
$title = 'Other Payer';
|
||
|
|
} elseif ($nm101 == 'PR') {
|
||
|
|
$loopid = '2330C';
|
||
|
|
$title = 'Other Referring Provider';
|
||
|
|
} elseif ($nm101 == '82') {
|
||
|
|
$loopid = '2330D';
|
||
|
|
$title = 'Other Rendering Provider';
|
||
|
|
} elseif ($nm101 == '77') {
|
||
|
|
$loopid = '2330E';
|
||
|
|
$title = 'Other Svc Facility';
|
||
|
|
} elseif ($nm101 == 'DQ') {
|
||
|
|
$loopid = '2330F';
|
||
|
|
$title = 'Other Supervising Provider';
|
||
|
|
} elseif ($nm101 == '85') {
|
||
|
|
$loopid = '2330G';
|
||
|
|
$title = 'Other Billing Provider';
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
if ($nm101 == '82') {
|
||
|
|
$loopid = '2420A';
|
||
|
|
$title = 'Rendering Provider';
|
||
|
|
} elseif ($nm101 == 'QB') {
|
||
|
|
$loopid = '2420B';
|
||
|
|
$title = 'Purchased Svc Provider';
|
||
|
|
} elseif ($nm101 == '77') {
|
||
|
|
$loopid = '2420C';
|
||
|
|
$title = 'Service Facility';
|
||
|
|
} elseif ($nm101 == 'DQ') {
|
||
|
|
$loopid = '2420D';
|
||
|
|
$title = 'Supervising Provider';
|
||
|
|
} elseif ($nm101 == 'DK') {
|
||
|
|
$loopid = '2420E';
|
||
|
|
$title = 'Ordering Provider';
|
||
|
|
} elseif ($nm101 == 'DN') {
|
||
|
|
$loopid = '2420F';
|
||
|
|
$title = 'Referring Provider';
|
||
|
|
} elseif ($nm101 == 'P3') {
|
||
|
|
$loopid = '2420F';
|
||
|
|
$title = 'Primary Care Provider';
|
||
|
|
} elseif ($nm101 == 'PW') {
|
||
|
|
$loopid = '2420G';
|
||
|
|
$title = 'Ambulance pickup';
|
||
|
|
} elseif ($nm101 == '45') {
|
||
|
|
$loopid = '2420H';
|
||
|
|
$title = 'Ambulance dropoff';
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
$str_html .= "<tr><td class='btloop' title='" . attr($title) . "'>" . text($loopid) . "</td><td class='btnum' title='" . attr($key) . "'>" . text($stsegct) . "</td><td class='" . attr($bterr) . "'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$title = '';
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('SE' . $de, $seg, 3) === 0) {
|
||
|
|
$loopid = 'Trailer';
|
||
|
|
$str_html .= "<tr><td class='btloop' title='" . attr($title) . "'>" . text($loopid) . "</td><td class='btnum' title='" . attr($key) . "'>" . text($stsegct) . "</td><td class='" . attr($bterr) . "'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$title = '';
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
// for all the segments that do not begin loops
|
||
|
|
$str_html .= "<tr><td class='btloop' title='" . attr($title) . "'> -- </td><td class='btnum' title='" . attr($key) . "'>" . text($stsegct) . "</td><td class='" . attr($bterr) . "'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
//
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
return $str_html;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* identify loops and format segments for display
|
||
|
|
* of 270/271 (eligibility) type x12 edi files
|
||
|
|
*
|
||
|
|
* @param array $segments
|
||
|
|
* @param string $delimiter
|
||
|
|
* return string
|
||
|
|
*/
|
||
|
|
function edih_271_text($segments, $delimiter, $err_seg = '')
|
||
|
|
{
|
||
|
|
//
|
||
|
|
$str_html = '';
|
||
|
|
//
|
||
|
|
if (!is_array($segments) || !count($segments) || strlen($delimiter) != 1) {
|
||
|
|
// debug
|
||
|
|
csv_edihist_log('edih_271_text: invalid argument');
|
||
|
|
$str_html .= "Invalid arguments for view of x12 file text<br />";
|
||
|
|
return $str_html;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
$de = $delimiter;
|
||
|
|
$prevseg = '';
|
||
|
|
$loopid = "0";
|
||
|
|
$lx_ct = 0;
|
||
|
|
$hasst = false;
|
||
|
|
$idx = 0;
|
||
|
|
$stsegct = 0;
|
||
|
|
//
|
||
|
|
// to highlight identified errors listed in 999/997 ack (for 270)
|
||
|
|
if ($err_seg) {
|
||
|
|
$er = edih_errseg_parse($err_seg);
|
||
|
|
$erstn = (isset($er['trace'])) ? substr($er['trace'], -4) : '';
|
||
|
|
$erseg = (isset($er['err'])) ? $er['err'] : array();
|
||
|
|
} else {
|
||
|
|
$erstn = '';
|
||
|
|
$erseg = array();
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if ($err_seg) {
|
||
|
|
$er = edih_errseg_parse($err_seg);
|
||
|
|
if (is_array($er) && count($er)) {
|
||
|
|
$err_ar = $er;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
foreach ($segments as $key => $seg) {
|
||
|
|
$sar = array();
|
||
|
|
$idx++;
|
||
|
|
$stsegct++;
|
||
|
|
$bterr = 'btseg';
|
||
|
|
//
|
||
|
|
if ($erstn && ($erstn == $stn)) {
|
||
|
|
$bterr = (in_array($stsegct, $erseg)) ? 'bterr' : 'btseg';
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('ST' . $de, $seg, 3) === 0) {
|
||
|
|
$sar = explode($de, $seg);
|
||
|
|
$loopid = 'Header';
|
||
|
|
$hasst = true;
|
||
|
|
$stsegct = 1;
|
||
|
|
$sttp = (isset($seg[1])) ? $seg[1] : '';
|
||
|
|
$stn = (isset($seg[2])) ? $seg[2] : '';
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('BHT' . $de, $seg, 4) === 0) {
|
||
|
|
$loopid = 'Begin';
|
||
|
|
// 2nd seg in transaction, ST may not be included if segments are transaction slice
|
||
|
|
if ($stsegct < 2) {
|
||
|
|
$stsegct = 2;
|
||
|
|
}
|
||
|
|
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('HL' . $de, $seg, 3) === 0) {
|
||
|
|
$sar = explode($de, $seg);
|
||
|
|
if ($sar[3] == '20') { // level code
|
||
|
|
$loopid = '2000A'; // info source (payer)
|
||
|
|
} elseif ($sar[3] == '21') {
|
||
|
|
$loopid = '2000B'; // info receiver (clinic)
|
||
|
|
} elseif ($sar[3] == '22') {
|
||
|
|
$loopid = '2000C'; // subscriber
|
||
|
|
$has_eb = false;
|
||
|
|
} elseif ($sar[3] == '23') {
|
||
|
|
$loopid = '2000D'; // dependent
|
||
|
|
$has_eb = false;
|
||
|
|
} else {
|
||
|
|
//debug
|
||
|
|
csv_edihist_log('edih_271_text: HL has no level ' . $seg);
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$prevseg = 'HL' . $de;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('NM1' . $de, $seg, 4) === 0) {
|
||
|
|
if (strncmp('NM1' . $de, $prevseg, 4) === 0) {
|
||
|
|
$str_html .= "<tr><td class='btloop'> -- </td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
switch ((string)$loopid) {
|
||
|
|
case '2000A':
|
||
|
|
$loopid = '2100A';
|
||
|
|
break; // edih_change_loop($lptest, &$lpval)
|
||
|
|
case '2000B':
|
||
|
|
$loopid = '2100B';
|
||
|
|
break;
|
||
|
|
case '2000C':
|
||
|
|
$loopid = '2100C';
|
||
|
|
break;
|
||
|
|
case '2000D':
|
||
|
|
$loopid = '2100D';
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
$loopid = $loopid;
|
||
|
|
}
|
||
|
|
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$prevseg = 'NM1' . $de;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('EB' . $de, $seg, 3) === 0 || strncmp('EQ' . $de, $seg, 3) === 0) {
|
||
|
|
// EB* segment is in 271 type, EQ* is corresponding segment in 270 type
|
||
|
|
if (strncmp($seg, $prevseg, 3) === 0) {
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$prevseg = substr($seg, 0, 3);
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($loopid = '2100C' || $loopid = '2115C' || $loopid = '2120C') {
|
||
|
|
$loopid = '2110C';
|
||
|
|
} elseif ($loopid = '2100D' || $loopid = '2115D' || $loopid = '2120D') {
|
||
|
|
$loopid = '2110D';
|
||
|
|
}
|
||
|
|
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$prevseg = substr($seg, 0, 3);
|
||
|
|
$has_eb = (strncmp('EB' . $de, $seg, 3) === 0);
|
||
|
|
$has_iii = false;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('III' . $de, $seg, 4) === 0 && $has_eb) {
|
||
|
|
// the III segment begins a loop in 271 type, but not in 270
|
||
|
|
if ($loopid = '2110C') {
|
||
|
|
$loopid = '2115C';
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($loopid = '2100D') {
|
||
|
|
$loopid = '2115D';
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($has_iii) {
|
||
|
|
$str_html .= "<tr><td class='btloop'></td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
} else {
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$has_iii = true;
|
||
|
|
}
|
||
|
|
|
||
|
|
$prevseg = substr($seg, 0, 4);
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('LS' . $de, $seg, 3) === 0) {
|
||
|
|
if ($loopid = '2110C' || $loopid = '2115C') {
|
||
|
|
$loopid = '2120C';
|
||
|
|
} elseif ($loopid = '2110D' || $loopid = '2115D') {
|
||
|
|
$loopid = '2120D';
|
||
|
|
}
|
||
|
|
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('SE' . $de, $seg, 3) === 0) {
|
||
|
|
$str_html .= "<tr><td class='btloop'>Trailer</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$loopid = '0';
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
// for all the segments that do not begin loops
|
||
|
|
$prevseg = substr($seg, 0, strpos($seg, $de) + 1);
|
||
|
|
$str_html .= "<tr><td class='btloop'> -- </td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
//
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
return $str_html;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
function edih_835_text($segments, $delimiter, $err_seg = '')
|
||
|
|
{
|
||
|
|
//
|
||
|
|
$str_html = '';
|
||
|
|
if (!is_array($segments) || !count($segments) || strlen($delimiter) != 1) {
|
||
|
|
//debug
|
||
|
|
csv_edihist_log('edih_835_text: invalid segments');
|
||
|
|
$str_html .= "Invalid arguments for view of x12 file text<br />";
|
||
|
|
return $str_html;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
$de = $delimiter;
|
||
|
|
$prevseg = '';
|
||
|
|
$loopid = "0";
|
||
|
|
$lx_ct = 0;
|
||
|
|
$idx = 0;
|
||
|
|
//
|
||
|
|
foreach ($segments as $key => $seg) {
|
||
|
|
//$idx++;
|
||
|
|
//
|
||
|
|
if (strncmp('ST' . $de, $seg, 3) === 0) {
|
||
|
|
$loopid = 'Header';
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('N1' . $de, $seg, 3) === 0) {
|
||
|
|
$sar = explode($de, $seg);
|
||
|
|
if ($sar[1] == 'PR') {
|
||
|
|
$loopid = '1000A';
|
||
|
|
} elseif ($sar[1] == 'PE') {
|
||
|
|
$loopid = '1000B';
|
||
|
|
}
|
||
|
|
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$prevseg = 'N1' . $de;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('LX' . $de, $seg, 3) === 0) {
|
||
|
|
$loopid = '2000';
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$prevseg = 'LX' . $de;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('TS3' . $de, $seg, 4) === 0) {
|
||
|
|
if ($loopid == '2000') {
|
||
|
|
$str_html .= "<tr><td class='btloop'> -- </td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
} else {
|
||
|
|
$loopid = '2000';
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
}
|
||
|
|
|
||
|
|
$prevseg = 'TS3' . $de;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('CLP' . $de, $seg, 4) === 0) {
|
||
|
|
$loopid = '2100';
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$prevseg = 'CLP' . $de;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('SVC' . $de, $seg, 4) === 0) {
|
||
|
|
$loopid = '2110';
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$prevseg = 'SVC' . $de;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('PLB' . $de, $seg, 4) === 0) {
|
||
|
|
$loopid = 'Adjust';
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$prevseg = 'PLB' . $de;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('SE' . $de, $seg, 3) === 0) {
|
||
|
|
$loopid = 'Trailer';
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$prevseg = 'SE' . $de;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
// for all the segments that do not begin loops
|
||
|
|
$prevseg = substr($seg, 0, 3);
|
||
|
|
$prevseg .= $de;
|
||
|
|
$str_html .= "<tr><td class='btloop'> -- </td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
//
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
return $str_html;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/**
|
||
|
|
* identify loops and format segments for display
|
||
|
|
* of 277 (claim status) type x12 edi files
|
||
|
|
*
|
||
|
|
* @param array $segments
|
||
|
|
* @param string $delimiter
|
||
|
|
* return string
|
||
|
|
*/
|
||
|
|
function edih_277_text($segments, $delimiter, $stpos = '')
|
||
|
|
{
|
||
|
|
//
|
||
|
|
$str_html = '';
|
||
|
|
if (!is_array($segments) || !count($segments) || strlen($delimiter) != 1) {
|
||
|
|
//debug
|
||
|
|
csv_edihist_log('edih_277_text: invlid segments');
|
||
|
|
$str_html .= "Invalid arguments for view of x12 file text<br />";
|
||
|
|
return $str_html;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
// to highlight identified errors listed in 999/997 ack (for 276)
|
||
|
|
//if ($err_seg) {
|
||
|
|
//$er = edih_errseg_parse($err_seg);
|
||
|
|
//$erstn = (isset($er['trace'])) ? substr($er['trace'], -4) : '';
|
||
|
|
//$erseg = (isset($er['err'])) ? $er['err'] : array();
|
||
|
|
//} else {
|
||
|
|
//$erstn = '';
|
||
|
|
//$erseg = array();
|
||
|
|
//}
|
||
|
|
//
|
||
|
|
$de = $delimiter;
|
||
|
|
$prevseg = '';
|
||
|
|
$loopid = "0";
|
||
|
|
$lx_ct = 0;
|
||
|
|
$stsegct = 0;
|
||
|
|
//$idx = 0;
|
||
|
|
//
|
||
|
|
foreach ($segments as $idx => $seg) {
|
||
|
|
//$idx++;
|
||
|
|
$stsegct++;
|
||
|
|
$key = ($stpos) ? $idx - $stpos : $idx;
|
||
|
|
// if 276 transactions are parsed, 999 errors may be present
|
||
|
|
//if ($erstn && ($erstn == $stn)) {
|
||
|
|
//$bterr = (in_array($stsegct, $erseg)) ? 'bterr' : 'btseg';
|
||
|
|
//}
|
||
|
|
//
|
||
|
|
if (strncmp('ST' . $de, $seg, 3) === 0) {
|
||
|
|
$loopid = 'Header';
|
||
|
|
$stsegct = 1;
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('BHT' . $de, $seg, 4) === 0) {
|
||
|
|
$loopid = 'Begin';
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('HL' . $de, $seg, 3) === 0) {
|
||
|
|
$sar = explode($de, $seg);
|
||
|
|
if ($sar[3] == '20') { // level code
|
||
|
|
$loopid = '2000A'; // info source (payer)
|
||
|
|
} elseif ($sar[3] == '21') {
|
||
|
|
$loopid = '2000B'; // info receiver (clinic)
|
||
|
|
} elseif ($sar[3] == '19') {
|
||
|
|
$loopid = '2000C'; // provider
|
||
|
|
} elseif ($sar[3] == '22' || $sar[3] == 'PT') {
|
||
|
|
$loopid = '2000D'; // subscriber
|
||
|
|
} elseif ($sar[3] == '23') {
|
||
|
|
$loopid = '2000E'; // dependent
|
||
|
|
} else {
|
||
|
|
//debug
|
||
|
|
csv_edihist_log('edih_277_text: HL has no level ' . $seg);
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$prevseg = 'HL' . $de;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
//
|
||
|
|
if (strncmp('NM1' . $de, $seg, 4) === 0) {
|
||
|
|
if (strncmp('NM1' . $de, $prevseg, 4) === 0) {
|
||
|
|
$str_html .= "<tr><td class='btloop'> -- </td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
switch ((string)$loopid) {
|
||
|
|
case '2000A':
|
||
|
|
$loopid = '2100A';
|
||
|
|
break; // edih_change_loop($lptest, &$lpval)
|
||
|
|
case '2000B':
|
||
|
|
$loopid = '2100B';
|
||
|
|
break;
|
||
|
|
case '2000C':
|
||
|
|
$loopid = '2100C';
|
||
|
|
break;
|
||
|
|
case '2000D':
|
||
|
|
$loopid = '2100D';
|
||
|
|
break;
|
||
|
|
case '2000E':
|
||
|
|
$loopid = '2100E';
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$prevseg = 'NM1';
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('TRN' . $de, $seg, 4) === 0) {
|
||
|
|
if (strncmp('TRN' . $de, $prevseg, 4) === 0) {
|
||
|
|
$str_html .= "<tr><td class='btloop'> -- </td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
switch ((string)$loopid) {
|
||
|
|
case '2100A':
|
||
|
|
$loopid = '2200A';
|
||
|
|
break;
|
||
|
|
case '2100B':
|
||
|
|
$loopid = '2200B';
|
||
|
|
break;
|
||
|
|
case '2100C':
|
||
|
|
$loopid = '2200C';
|
||
|
|
break;
|
||
|
|
case '2100D':
|
||
|
|
$loopid = '2200D';
|
||
|
|
break;
|
||
|
|
case '2100E':
|
||
|
|
$loopid = '2200E';
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$prevseg = 'TRN';
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('SVC' . $de, $seg, 4) === 0) {
|
||
|
|
if (strncmp('SVC' . $de, $prevseg, 4) === 0) {
|
||
|
|
$str_html .= "<tr><td class='btloop'> -- </td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
switch ((string)$loopid) {
|
||
|
|
case '2200D':
|
||
|
|
$loopid = '2220D';
|
||
|
|
break;
|
||
|
|
case '2200E':
|
||
|
|
$loopid = '2220E';
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$prevseg = 'SVC';
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('SE' . $de, $seg, 3) === 0) {
|
||
|
|
$loopid = 'Trailer';
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$prevseg = 'SE';
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
// for all the segments that do not begin loops
|
||
|
|
$prevseg = substr($seg, 0, 3);
|
||
|
|
$prevseg .= $de;
|
||
|
|
$str_html .= "<tr><td class='btloop'> -- </td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
return $str_html;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* identify loops and format segments for display
|
||
|
|
* of 278 (authorization) type x12 edi files
|
||
|
|
*
|
||
|
|
* @param array $segments
|
||
|
|
* @param string $delimiter
|
||
|
|
* return string
|
||
|
|
*/
|
||
|
|
function edih_278_text($segments, $delimiter, $err_seg = '')
|
||
|
|
{
|
||
|
|
//
|
||
|
|
$str_html = '';
|
||
|
|
//
|
||
|
|
if (!is_array($segments) || !count($segments) || strlen($delimiter) != 1) {
|
||
|
|
// debug
|
||
|
|
csv_edihist_log('edih_278_text(): invalid argument');
|
||
|
|
$str_html .= "Invalid arguments for view of x12 file text<br />";
|
||
|
|
return $str_html;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
$de = $delimiter;
|
||
|
|
$prevseg = '';
|
||
|
|
$loopid = "0";
|
||
|
|
$lx_ct = 0;
|
||
|
|
$hasst = false;
|
||
|
|
$err_ar = array();
|
||
|
|
$idx = 0;
|
||
|
|
$stsegct = 0;
|
||
|
|
//
|
||
|
|
// to highlight identified errors listed in 999/997 ack
|
||
|
|
if ($err_seg) {
|
||
|
|
$er = edih_errseg_parse($err_seg);
|
||
|
|
$erstn = (isset($er['trace'])) ? substr($er['trace'], -4) : '';
|
||
|
|
$erseg = (isset($er['err'])) ? $er['err'] : array();
|
||
|
|
} else {
|
||
|
|
$erstn = '';
|
||
|
|
$erseg = array();
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
foreach ($segments as $key => $seg) {
|
||
|
|
$idx++;
|
||
|
|
$stsegct++;
|
||
|
|
$title = '';
|
||
|
|
$bterr = 'btseg';
|
||
|
|
//
|
||
|
|
if ($erstn && ($erstn == $stn)) {
|
||
|
|
$bterr = (in_array($stsegct, $erseg)) ? 'bterr' : 'btseg';
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('ST' . $de, $seg, 3) === 0) {
|
||
|
|
$loopid = 'Header';
|
||
|
|
$hasst = true;
|
||
|
|
$stsegct = 1;
|
||
|
|
$stn = explode($de, $seg)[2];
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='" . attr($bterr) . "'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('BHT' . $de, $seg, 4) === 0) {
|
||
|
|
$loopid = 'Begin';
|
||
|
|
// 2nd seg in transaction, ST may not be included if segments are transaction slice
|
||
|
|
if ($stsegct < 2) {
|
||
|
|
$stsegct = 2;
|
||
|
|
}
|
||
|
|
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='" . attr($bterr) . "'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp($seg, 'HL' . $de, 3) === 0) {
|
||
|
|
$sar = explode($de, $seg);
|
||
|
|
$hl = $sar[1];
|
||
|
|
$hlpc = $sar[2]; // parent code
|
||
|
|
$hllc = $sar[3];
|
||
|
|
$hlcc = (isset($sar[4])) ? $sar[4] : ''; // child code
|
||
|
|
if ($sar[3] == '20') { // level code
|
||
|
|
$loopid = '2000A'; // info source (payer)
|
||
|
|
$title = 'Info Source';
|
||
|
|
} elseif ($sar[3] == '21') {
|
||
|
|
$loopid = '2000B'; // info receiver (clinic)
|
||
|
|
$title = 'Info Receiver';
|
||
|
|
} elseif ($sar[3] == '22') {
|
||
|
|
$loopid = '2000C'; // subscriber
|
||
|
|
$title = 'Subscriber';
|
||
|
|
} elseif ($sar[3] == '23') {
|
||
|
|
$loopid = '2000D'; // dependent
|
||
|
|
$title = 'Dependent';
|
||
|
|
} elseif ($sar[3] == 'EV') {
|
||
|
|
$loopid = '2000E'; // patient event
|
||
|
|
$title = 'Patient Event';
|
||
|
|
} elseif ($sar[3] == 'SS') {
|
||
|
|
$loopid = '2000F'; // service
|
||
|
|
$title = 'Service';
|
||
|
|
} else {
|
||
|
|
//debug
|
||
|
|
csv_edihist_log('edih_278_text: HL has no level ' . $seg);
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
$str_html .= "<tr><td class='btloop' title='" . attr($title) . "'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='" . attr($bterr) . "'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$prevseg = 'HL';
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp($seg, 'NM1' . $de, 4) === 0) {
|
||
|
|
$sar = explode($de, $seg);
|
||
|
|
$nm101 = $sar[1];
|
||
|
|
if ($loopid == '2000A') {
|
||
|
|
$loopid == '2010A'; // Source
|
||
|
|
} elseif ($loopid == '2000B') {
|
||
|
|
$loopid = '2010B'; // Receiver
|
||
|
|
} elseif ($loopid == '2000C') {
|
||
|
|
$loopid = '2010C'; // Subscriber
|
||
|
|
} elseif ($loopid == '2000D') {
|
||
|
|
$loopid = '2010D'; // Dependent
|
||
|
|
} elseif ($loopid == '2000E' || strpos($loopid, '010E')) { // Patient Event
|
||
|
|
$loopid = (strpos('|71|72|73|77|AAJ|DD|DK|DN|FA|G3|P3|QB|QV|SJ', $nm101) ) ? '2010EA' : $loopid;
|
||
|
|
$loopid = (strpos('|45|FS|ND|PW|R3', $nm101) ) ? '2010EB' : $loopid;
|
||
|
|
$loopid = ($nm101 == 'L5') ? '2010EC' : $loopid;
|
||
|
|
} elseif ($loopid == '2000F' || strpos($loopid, '010F')) { // Service
|
||
|
|
$loopid = (strpos('|71|72|73|77|AAJ|DD|DK|DN|FA|G3|P3|QB|QV|SJ', $nm101) ) ? '2010FA' : $loopid;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='" . attr($bterr) . "'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$prevseg = 'NM1';
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('SE' . $de, $seg, 3) === 0) {
|
||
|
|
$str_html .= "<tr><td class='btloop'>Trailer</td><td class='btnum'>" . text($key) . "</td><td class='" . attr($bterr) . "'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
$loopid = '0';
|
||
|
|
$prevseg = 'SE';
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
// for all the segments that do not begin loops
|
||
|
|
$prevseg = substr($seg, 0, strpos($seg, $de));
|
||
|
|
$str_html .= "<tr><td class='btloop'> -- </td><td class='btnum'>" . text($key) . "</td><td class='" . attr($bterr) . "'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
//
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
return $str_html;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* identify loops and format segments for display
|
||
|
|
* of 997/999 (acknowledgement) type x12 edi files
|
||
|
|
*
|
||
|
|
* @param array $segments
|
||
|
|
* @param string $delimiter
|
||
|
|
* return string
|
||
|
|
*/
|
||
|
|
function edih_997_text($segments, $delimiter)
|
||
|
|
{
|
||
|
|
//
|
||
|
|
$str_html = '';
|
||
|
|
if (!is_array($segments) || !count($segments) || strlen($delimiter) != 1) {
|
||
|
|
//debug
|
||
|
|
csv_edihist_log('edih_997_text(): invalid segments');
|
||
|
|
return $str_html;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
$de = $delimiter;
|
||
|
|
$loopid = "0";
|
||
|
|
//
|
||
|
|
//echo 'edih_997_text() foreach segment count: '.count($segments).PHP_EOL;
|
||
|
|
//
|
||
|
|
foreach ($segments as $key => $seg) {
|
||
|
|
//
|
||
|
|
//echo var_dump($seg).PHP_EOL;
|
||
|
|
//
|
||
|
|
if (strncmp('TA1' . $de, $seg, 4) === 0) {
|
||
|
|
$sar = explode($de, $seg);
|
||
|
|
$rspicn = $sar[1];
|
||
|
|
$loopid = 'ACK'; // not official
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
unset($sar);
|
||
|
|
$loopid = ''; // reset loop for subsequent segments
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('ST' . $de, $seg, 3) === 0) {
|
||
|
|
$loopid = 'Header';
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('AK1' . $de, $seg, 4) === 0) {
|
||
|
|
$sar = explode($de, $seg);
|
||
|
|
$rsptp = csv_file_type($sar[1]);
|
||
|
|
if ($rspicn && $rsptp) {
|
||
|
|
$rspfile = csv_file_by_controlnum($rsptp, $rspicn);
|
||
|
|
}
|
||
|
|
|
||
|
|
$title = ($rspfile) ? 'response to ' . $rspfile : '';
|
||
|
|
$loopid = '2000';
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td title='" . attr($title) . "' class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
unset($sar);
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('AK2' . $de, $seg, 4) === 0) {
|
||
|
|
$loopid = 'AK2';
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('IK3' . $de, $seg, 4) === 0 || strncmp('AK3' . $de, $seg, 4) === 0) {
|
||
|
|
$loopid = '2100';
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('IK4' . $de, $seg, 4) === 0 || strncmp('AK4' . $de, $seg, 4) === 0) {
|
||
|
|
$loopid = '2110';
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if (strncmp('SE' . $de, $seg, 3) === 0) {
|
||
|
|
$loopid = 'Trailer';
|
||
|
|
$str_html .= "<tr><td class='btloop'>" . text($loopid) . "</td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
// for all the segments that do not begin loops ;
|
||
|
|
$str_html .= "<tr><td class='btloop'> -- </td><td class='btnum'>" . text($key) . "</td><td class='btseg'>" . text($seg) . "</td></tr>" . PHP_EOL;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
return $str_html;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Display of x12 edi transaction listing or all segments in the files.
|
||
|
|
* When using $err_info, you must use the filepath of the submitted file
|
||
|
|
*
|
||
|
|
* @param string $filepath path to desired file
|
||
|
|
* @param string $filetype used when filepath is just filename
|
||
|
|
* @param string optional $claimid CLM01, or BHT03 to identify a transaction or a trace value
|
||
|
|
* @param bool false: $claimid is pt transaction, true: $claimid is trace from 835 or 999
|
||
|
|
* @param string optional $err_info the prepared error info from a 997/999 response
|
||
|
|
* @return string html for display of file segments
|
||
|
|
*/
|
||
|
|
function edih_display_text($filepath, $filetype = '', $claimid = '', $trace = false, $err_info = '')
|
||
|
|
{
|
||
|
|
//
|
||
|
|
$str_html = '';
|
||
|
|
$de = '';
|
||
|
|
$segments = '';
|
||
|
|
$stsegkey = '';
|
||
|
|
$ft = ($filetype) ? $filetype : '';
|
||
|
|
$errs = ( strlen($err_info) ) ? $err_info : '';
|
||
|
|
$bht03 = '';
|
||
|
|
//
|
||
|
|
// verify x12 file
|
||
|
|
$x12obj = csv_check_x12_obj($filepath, $ft);
|
||
|
|
//
|
||
|
|
if ($x12obj && 'edih_x12_file' == get_class($x12obj)) {
|
||
|
|
$ftype = $x12obj->edih_type();
|
||
|
|
$ft = csv_file_type($ftype);
|
||
|
|
$delims = $x12obj->edih_delimiters();
|
||
|
|
$de = $delims['e'];
|
||
|
|
$fn = $x12obj->edih_filename();
|
||
|
|
$segs_ar = $x12obj->edih_segments();
|
||
|
|
$env_ar = $x12obj->edih_envelopes();
|
||
|
|
if (!$de || strlen($de) != 1) {
|
||
|
|
// error in object
|
||
|
|
// debug
|
||
|
|
$str_html = 'edih_display_text(): error in delimiters<br />' . PHP_EOL;
|
||
|
|
$str_html .= $x12obj->edih_message() . PHP_EOL;
|
||
|
|
return $str_html;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!is_array($segs_ar) || !count($segs_ar)) {
|
||
|
|
// unknown error
|
||
|
|
$str_html = "<p>unknown error retrieving segments for " . text($fn) . "</p>" . PHP_EOL;
|
||
|
|
$str_html .= $x12obj->edih_message() . PHP_EOL;
|
||
|
|
return $str_html;
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
//debug
|
||
|
|
csv_edihist_log('edih_transaction_text(): invalid path ' . $filepath);
|
||
|
|
$str_html = 'edih_display_text(): error accessing file<br />' . PHP_EOL;
|
||
|
|
return $str_html;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
if ($claimid) {
|
||
|
|
// claimid can be for transaction, payment, or error response
|
||
|
|
if ($trace && array_key_exists($claimid, $env_ar['ISA'])) {
|
||
|
|
$arg_ar = array('ISA13' => $claimid, 'keys' => true);
|
||
|
|
$segments = $x12obj->edih_x12_slice($arg_ar);
|
||
|
|
} else {
|
||
|
|
// claimid alone can be clm01 or bht03, if trace=true, expect trn02 for claimid
|
||
|
|
foreach ($env_ar['ST'] as $st) {
|
||
|
|
if ($trace && $claimid == $st['trace']) {
|
||
|
|
$arg_ar = array('ISA13' => $st['icn'], 'GS06' => $st['gsn'], 'trace' => $claimid, 'keys' => true);
|
||
|
|
$segments = $x12obj->edih_x12_slice($arg_ar);
|
||
|
|
break;
|
||
|
|
} elseif (in_array($claimid, $st['acct'])) {
|
||
|
|
if ($errs) {
|
||
|
|
$arg_ar = array('ST02' => $st['stn'], 'ISA13' => $st['icn'], 'GS06' => $st['gsn'], 'keys' => true);
|
||
|
|
$segments = $x12obj->edih_x12_slice($arg_ar);
|
||
|
|
} else {
|
||
|
|
// request for individual transaction segments
|
||
|
|
$segments = $x12obj->edih_x12_transaction($claimid);
|
||
|
|
}
|
||
|
|
|
||
|
|
break;
|
||
|
|
} elseif (in_array($claimid, $st['bht03'])) {
|
||
|
|
// also possible that bht03 number is given for claimid
|
||
|
|
// this will likely be a 27x
|
||
|
|
if ($errs) {
|
||
|
|
$arg_ar = array('ST02' => $st['stn'], 'ISA13' => $st['icn'], 'GS06' => $st['gsn'], 'keys' => true);
|
||
|
|
$segments = $x12obj->edih_x12_slice($arg_ar);
|
||
|
|
} else {
|
||
|
|
$segments = $x12obj->edih_x12_transaction($claimid);
|
||
|
|
}
|
||
|
|
|
||
|
|
$bht03 = $claimid;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
$segments = $segs_ar;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
// now check if we have segments
|
||
|
|
if (empty($segments) || !count($segments)) {
|
||
|
|
if ($claimid) {
|
||
|
|
$str_html = "<p>error: transaction " . text($claimid) . " not found in " . text($fn) . "</p>" . PHP_EOL;
|
||
|
|
$str_html .= $x12obj->edih_message() . PHP_EOL;
|
||
|
|
return $str_html;
|
||
|
|
} else {
|
||
|
|
// unknown error
|
||
|
|
$str_html = "<p>unknown error retrieving segments for " . text($fn) . "</p>" . PHP_EOL;
|
||
|
|
$str_html .= $x12obj->edih_message() . PHP_EOL;
|
||
|
|
return $str_html;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// if the segments are from a slice or transaction
|
||
|
|
// a multidimensional array segs[i][j] must be flattened
|
||
|
|
$ar_sngl = csv_singlerecord_test($segments);
|
||
|
|
// false when segments are a transaction or trace only
|
||
|
|
if (!$ar_sngl) {
|
||
|
|
//
|
||
|
|
// append segments to single array
|
||
|
|
// keys should not duplicate since all segments
|
||
|
|
// are from the same x12 file
|
||
|
|
$trnsegs = array();
|
||
|
|
for ($i = 0; $i < count($segments); $i++) {
|
||
|
|
$trnsegs = array_merge($trnsegs, $segments[$i]);
|
||
|
|
}
|
||
|
|
|
||
|
|
$segments = $trnsegs;
|
||
|
|
unset($trnsegs);
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
$capstr = '';
|
||
|
|
$tbl_id = ($claimid) ? $claimid : $fn;
|
||
|
|
//
|
||
|
|
//'HB'=>'271', 'HS'=>'270', 'HR'=>'276', 'HI'=>'278','HN'=>'277', 'HP'=>'835', 'FA'=>'999', 'HC'=>'837');
|
||
|
|
switch ((string)$ftype) {
|
||
|
|
case 'HC':
|
||
|
|
$capstr = "Claim "; //$cls = "txt837";
|
||
|
|
$trn_html = edih_837_text($segments, $de, $errs);
|
||
|
|
break;
|
||
|
|
case 'HP':
|
||
|
|
$capstr = "Payment "; //$cls = "txt835";
|
||
|
|
$trn_html = edih_835_text($segments, $de);
|
||
|
|
break;
|
||
|
|
case 'HR':
|
||
|
|
$capstr = "Status Query "; //$cls = "txt276";
|
||
|
|
$trn_html = edih_277_text($segments, $de, $errs);
|
||
|
|
break;
|
||
|
|
case 'HN':
|
||
|
|
$capstr = "Claim Status "; //$cls = "txt277";
|
||
|
|
$trn_html = edih_277_text($segments, $de, $stsegkey);
|
||
|
|
break;
|
||
|
|
case 'HS':
|
||
|
|
$capstr = "Eligibility Query "; //$cls = "txt270";
|
||
|
|
$trn_html = edih_271_text($segments, $de, $errs);
|
||
|
|
break;
|
||
|
|
case 'HB':
|
||
|
|
$capstr = "Eligibility Report "; //$cls = "txt271";
|
||
|
|
$trn_html = edih_271_text($segments, $de);
|
||
|
|
break;
|
||
|
|
case 'HI':
|
||
|
|
$capstr = "Authorization "; //$cls = "txt278";
|
||
|
|
$trn_html = edih_278_text($segments, $de, $errs);
|
||
|
|
break;
|
||
|
|
case 'FA':
|
||
|
|
$capstr = "Batch Acknowledgment "; //$cls = "txt997";
|
||
|
|
$trn_html = edih_997_text($segments, $de);
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
$capstr = "x12 $ftype "; //$cls = "txt_x12";
|
||
|
|
$trn_html = edih_segments_text($segments, $de);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
$capstr .= ($claimid) ? " ID: " . text($claimid) : "";
|
||
|
|
//
|
||
|
|
$str_html .= "<table id=" . attr($tbl_id) . " cols=3 class='segtxt'><caption>" . text($capstr) . "</caption>" . PHP_EOL;
|
||
|
|
$str_html .= "<thead>" . PHP_EOL;
|
||
|
|
$str_html .= "<tr><th class='btloop'>Loop</th><th class='btloop'>Num</th>";
|
||
|
|
$str_html .= "<th class='segtxt'>Segment (<em>File:</em> " . text($fn) . ")</th></tr>" . PHP_EOL;
|
||
|
|
$str_html .= "</thead>" . PHP_EOL . "<tbody>" . PHP_EOL;
|
||
|
|
//
|
||
|
|
$str_html .= $trn_html;
|
||
|
|
//
|
||
|
|
$str_html .= "</tbody></table>" . PHP_EOL;
|
||
|
|
//
|
||
|
|
return $str_html;
|
||
|
|
}
|