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.
302 lines
11 KiB
302 lines
11 KiB
2 years ago
|
<?php
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Exports patient demographics to a custom XML format
|
||
|
|
*
|
||
|
|
* @package OpenEMR
|
||
|
|
* @link http://www.open-emr.org
|
||
|
|
* @author Rod Roark <rod@sunsetsystems.com>
|
||
|
|
* @author Roberto Vasquez <robertogagliotta@gmail.com>
|
||
|
|
* @copyright Copyright (c) 2005 Rod Roark <rod@sunsetsystems.com>
|
||
|
|
* @copyright Copyright (c) 2017 Roberto Vasquez <robertogagliotta@gmail.com>
|
||
|
|
* @license https://github.com/openemr/openemr/blob/master/LICENSE GNU General Public License 3
|
||
|
|
*/
|
||
|
|
|
||
|
|
require_once("../interface/globals.php");
|
||
|
|
require_once("../library/patient.inc");
|
||
|
|
|
||
|
|
use OpenEMR\Core\Header;
|
||
|
|
|
||
|
|
$out = "";
|
||
|
|
$indent = 0;
|
||
|
|
|
||
|
|
// Add a string to output with some basic sanitizing.
|
||
|
|
function Add($tag, $text)
|
||
|
|
{
|
||
|
|
global $out, $indent;
|
||
|
|
$text = trim(str_replace(array("\r", "\n", "\t"), " ", ($text ?? '')));
|
||
|
|
if ($text) {
|
||
|
|
for ($i = 0; $i < $indent; ++$i) {
|
||
|
|
$out .= "\t";
|
||
|
|
}
|
||
|
|
|
||
|
|
$out .= "<$tag>$text</$tag>\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function OpenTag($tag)
|
||
|
|
{
|
||
|
|
global $out, $indent;
|
||
|
|
for ($i = 0; $i < $indent; ++$i) {
|
||
|
|
$out .= "\t";
|
||
|
|
}
|
||
|
|
|
||
|
|
++$indent;
|
||
|
|
$out .= "<$tag>\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
function CloseTag($tag)
|
||
|
|
{
|
||
|
|
global $out, $indent;
|
||
|
|
--$indent;
|
||
|
|
for ($i = 0; $i < $indent; ++$i) {
|
||
|
|
$out .= "\t";
|
||
|
|
}
|
||
|
|
|
||
|
|
$out .= "</$tag>\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
// Remove all non-digits from a string.
|
||
|
|
function Digits($field)
|
||
|
|
{
|
||
|
|
return preg_replace("/\D/", "", $field);
|
||
|
|
}
|
||
|
|
|
||
|
|
// Translate sex.
|
||
|
|
function Sex($field)
|
||
|
|
{
|
||
|
|
$sex = strtoupper(substr(trim($field), 0, 1));
|
||
|
|
if ($sex != "M" && $sex != "F") {
|
||
|
|
$sex = "U";
|
||
|
|
}
|
||
|
|
|
||
|
|
return $sex;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Translate a date.
|
||
|
|
function LWDate($field)
|
||
|
|
{
|
||
|
|
return fixDate($field);
|
||
|
|
}
|
||
|
|
|
||
|
|
// Add an insurance section.
|
||
|
|
function addInsurance($row, $seq)
|
||
|
|
{
|
||
|
|
if ($row["name$seq"]) {
|
||
|
|
OpenTag("insurance");
|
||
|
|
Add("priority", $seq);
|
||
|
|
Add("group", $row["group$seq"]);
|
||
|
|
Add("policy", $row["policy$seq"]);
|
||
|
|
Add("provider", $row["provider$seq"]);
|
||
|
|
Add("name", $row["name$seq"]);
|
||
|
|
Add("street1", $row["street1$seq"]);
|
||
|
|
Add("street2", $row["street2$seq"]);
|
||
|
|
Add("city", $row["city$seq"]);
|
||
|
|
Add("state", $row["state$seq"]);
|
||
|
|
Add("zip", $row["zip$seq"]);
|
||
|
|
Add("country", $row["country$seq"]);
|
||
|
|
Add("type", $row["instype$seq"]);
|
||
|
|
Add("copay", $row["copay$seq"]);
|
||
|
|
OpenTag("subscriber");
|
||
|
|
Add("relationship", $row["relationship$seq"]);
|
||
|
|
Add("lname", $row["lname$seq"]);
|
||
|
|
Add("fname", $row["fname$seq"]);
|
||
|
|
Add("mname", $row["mname$seq"]);
|
||
|
|
Add("street", $row["sstreet$seq"]);
|
||
|
|
Add("city", $row["scity$seq"]);
|
||
|
|
Add("state", $row["sstate$seq"]);
|
||
|
|
Add("zip", $row["szip$seq"]);
|
||
|
|
Add("country", $row["scountry$seq"]);
|
||
|
|
Add("dob", $row["sdob$seq"]);
|
||
|
|
Add("ss", $row["sss$seq"]);
|
||
|
|
Add("phone", $row["sphone$seq"]);
|
||
|
|
Add("employer", $row["semployer$seq"]);
|
||
|
|
Add("sex", $row["ssex$seq"]);
|
||
|
|
Add("employer_street", $row["semployer_street$seq"]);
|
||
|
|
Add("employer_city", $row["semployer_city$seq"]);
|
||
|
|
Add("employer_state", $row["semployer_state$seq"]);
|
||
|
|
Add("employer_zip", $row["semployer_zip$seq"]);
|
||
|
|
Add("employer_country", $row["semployer_country$seq"]);
|
||
|
|
CloseTag("subscriber");
|
||
|
|
CloseTag("insurance");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// This mess gets all the info for the patient.
|
||
|
|
//~Well, now it does...-Art
|
||
|
|
$insrow = array();
|
||
|
|
foreach (array('primary','secondary','tertiary') as $value) {
|
||
|
|
$insrow[] = sqlQuery("SELECT id FROM insurance_data WHERE " .
|
||
|
|
"pid = ? AND type = ? ORDER BY date DESC LIMIT 1", array($pid, $value));
|
||
|
|
}
|
||
|
|
|
||
|
|
$query = "SELECT " .
|
||
|
|
"p.*, " .
|
||
|
|
"i1.policy_number AS policy1, i1.group_number AS group1, i1.provider as provider1, " .
|
||
|
|
"i1.subscriber_fname AS fname1, i1.subscriber_mname AS mname1, i1.subscriber_lname AS lname1, " .
|
||
|
|
"i1.subscriber_street AS sstreet1, i1.subscriber_city AS scity1, i1.subscriber_state AS sstate1, " .
|
||
|
|
"i1.subscriber_postal_code AS szip1, i1.subscriber_relationship AS relationship1, " .
|
||
|
|
"i1.subscriber_DOB AS sdob1, i1.subscriber_ss AS sss1, i1.subscriber_phone AS sphone1, " .
|
||
|
|
"i1.subscriber_sex AS ssex1, i1.subscriber_country AS scountry1, " .
|
||
|
|
"i1.subscriber_employer AS semployer1, i1.subscriber_employer_street AS semployer_street1, " .
|
||
|
|
"i1.subscriber_employer_city AS semployer_city1, i1.subscriber_employer_state AS semployer_state1, " .
|
||
|
|
"i1.subscriber_employer_postal_code AS semployer_zip1, " .
|
||
|
|
"i1.subscriber_employer_country AS semployer_country1, i1.copay AS copay1, " .
|
||
|
|
"c1.name AS name1, c1.ins_type_code AS instype1, " .
|
||
|
|
"a1.line1 AS street11, a1.line2 AS street21, a1.city AS city1, a1.state AS state1, " .
|
||
|
|
"a1.zip AS zip1, a1.plus_four AS zip41, a1.country AS country1, " .
|
||
|
|
"i2.policy_number AS policy2, i2.group_number AS group2, i2.provider as provider2, " .
|
||
|
|
"i2.subscriber_fname AS fname2, i2.subscriber_mname AS mname2, i2.subscriber_lname AS lname2, " .
|
||
|
|
"i2.subscriber_postal_code AS szip2, i2.subscriber_relationship AS relationship2, " .
|
||
|
|
"i2.subscriber_DOB AS sdob2, i2.subscriber_ss AS sss2, i2.subscriber_phone AS sphone2, " .
|
||
|
|
"i2.subscriber_sex AS ssex2, i2.subscriber_country AS scountry2, " .
|
||
|
|
"i2.subscriber_employer AS semployer2, i2.subscriber_employer_street AS semployer_street2, " .
|
||
|
|
"i2.subscriber_employer_city AS semployer_city2, i2.subscriber_employer_state AS semployer_state2, " .
|
||
|
|
"i2.subscriber_employer_postal_code AS semployer_zip2, " .
|
||
|
|
"i2.subscriber_employer_country AS semployer_country2, i2.copay AS copay2, " .
|
||
|
|
"c2.name AS name2, c2.ins_type_code AS instype2, " .
|
||
|
|
"a2.line1 AS street12, a2.line2 AS street22, a2.city AS city2, a2.state AS state2, " .
|
||
|
|
"a2.zip AS zip2, a2.plus_four AS zip42, a2.country AS country2, " .
|
||
|
|
"i3.policy_number AS policy3, i3.group_number AS group3, i3.provider as provider3, " .
|
||
|
|
"i3.subscriber_fname AS fname3, i3.subscriber_mname AS mname3, i3.subscriber_lname AS lname3, " .
|
||
|
|
"i3.subscriber_postal_code AS szip3, i3.subscriber_relationship AS relationship3, " .
|
||
|
|
"i3.subscriber_DOB AS sdob3, i3.subscriber_ss AS sss3, i3.subscriber_phone AS sphone3, " .
|
||
|
|
"i3.subscriber_sex AS ssex3, i3.subscriber_country AS scountry3, " .
|
||
|
|
"i3.subscriber_employer AS semployer3, i3.subscriber_employer_street AS semployer_street3, " .
|
||
|
|
"i3.subscriber_employer_city AS semployer_city3, i3.subscriber_employer_state AS semployer_state3, " .
|
||
|
|
"i3.subscriber_employer_postal_code AS semployer_zip3, " .
|
||
|
|
"i3.subscriber_employer_country AS semployer_country3, i3.copay AS copay3, " .
|
||
|
|
"c3.name AS name3, c3.ins_type_code AS instype3, " .
|
||
|
|
"a3.line1 AS street13, a3.line2 AS street23, a3.city AS city3, a3.state AS state3, " .
|
||
|
|
"a3.zip AS zip3, a3.plus_four AS zip43, a3.country AS country3 " .
|
||
|
|
"FROM patient_data AS p " .
|
||
|
|
// "LEFT OUTER JOIN insurance_data AS i1 ON i1.pid = p.pid AND i1.type = 'primary' " .
|
||
|
|
// "LEFT OUTER JOIN insurance_data AS i2 ON i2.pid = p.pid AND i2.type = 'secondary' " .
|
||
|
|
// "LEFT OUTER JOIN insurance_data AS i3 ON i3.pid = p.pid AND i3.type = 'tertiary' " .
|
||
|
|
"LEFT OUTER JOIN insurance_data AS i1 ON i1.id = ? " .
|
||
|
|
"LEFT OUTER JOIN insurance_data AS i2 ON i2.id = ? " .
|
||
|
|
"LEFT OUTER JOIN insurance_data AS i3 ON i3.id = ? " .
|
||
|
|
//
|
||
|
|
"LEFT OUTER JOIN insurance_companies AS c1 ON c1.id = i1.provider " .
|
||
|
|
"LEFT OUTER JOIN insurance_companies AS c2 ON c2.id = i2.provider " .
|
||
|
|
"LEFT OUTER JOIN insurance_companies AS c3 ON c3.id = i3.provider " .
|
||
|
|
"LEFT OUTER JOIN addresses AS a1 ON a1.foreign_id = c1.id " .
|
||
|
|
"LEFT OUTER JOIN addresses AS a2 ON a2.foreign_id = c2.id " .
|
||
|
|
"LEFT OUTER JOIN addresses AS a3 ON a3.foreign_id = c3.id " .
|
||
|
|
"WHERE p.pid = ? LIMIT 1";
|
||
|
|
|
||
|
|
$row = sqlFetchArray(sqlStatement($query, array(($insrow[0]['id'] ?? null), ($insrow[1]['id'] ?? null), ($insrow[2]['id'] ?? null), $pid)));
|
||
|
|
|
||
|
|
$rowed = getEmployerData($pid);
|
||
|
|
|
||
|
|
OpenTag("patient");
|
||
|
|
|
||
|
|
// Patient Section.
|
||
|
|
//
|
||
|
|
Add("pid", $pid);
|
||
|
|
Add("pubpid", $row['pubpid']);
|
||
|
|
Add("lname", $row['lname']);
|
||
|
|
Add("fname", $row['fname']);
|
||
|
|
Add("mname", $row['mname']);
|
||
|
|
Add("title", $row['title']);
|
||
|
|
Add("ss", Digits($row['ss']));
|
||
|
|
Add("dob", LWDate($row['DOB']));
|
||
|
|
Add("sex", Sex($row['sex']));
|
||
|
|
Add("street", $row['street']);
|
||
|
|
Add("city", $row['city']);
|
||
|
|
Add("state", $row['state']);
|
||
|
|
Add("zip", $row['postal_code']);
|
||
|
|
Add("country", $row['country_code']);
|
||
|
|
Add("phone_home", Digits($row['phone_home']));
|
||
|
|
Add("phone_biz", Digits($row['phone_biz']));
|
||
|
|
Add("phone_contact", Digits($row['phone_contact']));
|
||
|
|
Add("phone_cell", Digits($row['phone_cell']));
|
||
|
|
Add("occupation", $row['occupation']);
|
||
|
|
Add("status", $row['status']);
|
||
|
|
Add("contact_relationship", $row['contact_relationship']);
|
||
|
|
Add("referrer", $row['referrer']);
|
||
|
|
Add("referrerID", $row['referrerID']);
|
||
|
|
Add("email", $row['email']);
|
||
|
|
Add("language", $row['language']);
|
||
|
|
Add("ethnoracial", $row['ethnoracial']);
|
||
|
|
Add("interpreter", $row['interpretter']);
|
||
|
|
Add("migrantseasonal", $row['migrantseasonal']);
|
||
|
|
Add("family_size", $row['family_size']);
|
||
|
|
Add("monthly_income", $row['monthly_income']);
|
||
|
|
Add("homeless", $row['homeless']);
|
||
|
|
Add("financial_review", LWDate(substr($row['financial_review'], 0, 10)));
|
||
|
|
Add("genericname1", $row['genericname1']);
|
||
|
|
Add("genericval1", $row['genericval1']);
|
||
|
|
Add("genericname2", $row['genericname2']);
|
||
|
|
Add("genericval2", $row['genericval2']);
|
||
|
|
Add("billing_note", $row['billing_note']);
|
||
|
|
Add("hipaa_mail", $row['hipaa_mail']);
|
||
|
|
Add("hipaa_voice", $row['hipaa_voice']);
|
||
|
|
|
||
|
|
// Insurance Sections.
|
||
|
|
//
|
||
|
|
addInsurance($row, '1');
|
||
|
|
addInsurance($row, '2');
|
||
|
|
addInsurance($row, '3');
|
||
|
|
|
||
|
|
// Primary Care Physician Section.
|
||
|
|
//
|
||
|
|
if ($row['providerID']) {
|
||
|
|
$query = "select id, fname, mname, lname from users where authorized = 1";
|
||
|
|
$query .= " AND id = ?";
|
||
|
|
$prow = sqlFetchArray(sqlStatement($query, array($row['providerID'])));
|
||
|
|
OpenTag("pcp");
|
||
|
|
Add("id", $prow['id']);
|
||
|
|
Add("lname", $prow['lname']);
|
||
|
|
Add("fname", $prow['fname']);
|
||
|
|
Add("mname", $prow['mname']);
|
||
|
|
CloseTag("pcp");
|
||
|
|
}
|
||
|
|
|
||
|
|
// Employer Section.
|
||
|
|
//
|
||
|
|
if (!empty($rowed['id'])) {
|
||
|
|
OpenTag("employer");
|
||
|
|
Add("name", $rowed['name']);
|
||
|
|
Add("street", $rowed['street']);
|
||
|
|
Add("zip", $rowed['postal_code']);
|
||
|
|
Add("city", $rowed['city']);
|
||
|
|
Add("state", $rowed['state']);
|
||
|
|
Add("country", $rowed['country']);
|
||
|
|
CloseTag("employer");
|
||
|
|
}
|
||
|
|
|
||
|
|
// All done.
|
||
|
|
CloseTag("patient");
|
||
|
|
|
||
|
|
// header('Content-type: text/xml');
|
||
|
|
// header('Content-Disposition: attachment; filename="pid' . $pid . '.xml"');
|
||
|
|
// echo $out;
|
||
|
|
?>
|
||
|
|
<html>
|
||
|
|
<head>
|
||
|
|
<?php Header::setupHeader(); ?>
|
||
|
|
<title><?php echo xlt('Export Patient Demographics XML'); ?></title>
|
||
|
|
</head>
|
||
|
|
<body class="body_top">
|
||
|
|
<div class="container">
|
||
|
|
<div class="row">
|
||
|
|
<div class="col-12">
|
||
|
|
<div class="form-group"></div>
|
||
|
|
<div class="form-group">
|
||
|
|
<textarea name="export_data" class="form-control" rows="18" readonly><?php echo text($out) ?></textarea>
|
||
|
|
</div>
|
||
|
|
<div class="form-group">
|
||
|
|
<div class="col-12 text-right">
|
||
|
|
<div class="btn-group" role="group">
|
||
|
|
<button type="button" class="btn btn-secondary btn-cancel" onclick="dlgclose()"><?php echo xlt("Close"); ?></button>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
</body>
|
||
|
|
</html>
|