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.
365 lines
11 KiB
365 lines
11 KiB
2 years ago
|
<?php
|
||
|
|
|
||
|
|
/**
|
||
|
|
* CCR Script.
|
||
|
|
*
|
||
|
|
* Copyright (C) 2010 Garden State Health Systems <http://www.gshsys.com/>
|
||
|
|
*
|
||
|
|
* LICENSE: This program is free software; you can redistribute it and/or
|
||
|
|
* modify it under the terms of the GNU General Public License
|
||
|
|
* as published by the Free Software Foundation; either version 3
|
||
|
|
* of the License, or (at your option) any later version.
|
||
|
|
* This program is distributed in the hope that it will be useful,
|
||
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
|
|
* GNU General Public License for more details.
|
||
|
|
* You should have received a copy of the GNU General Public License
|
||
|
|
* along with this program. If not, see <http://opensource.org/licenses/gpl-license.php>;.
|
||
|
|
*
|
||
|
|
* @package OpenEMR
|
||
|
|
* @author Garden State Health Systems <http://www.gshsys.com/>
|
||
|
|
* @link http://www.open-emr.org
|
||
|
|
*/
|
||
|
|
|
||
|
|
$result = getActorData();
|
||
|
|
while ($row = sqlFetchArray($result[0])) {
|
||
|
|
$e_Actor = $ccr->createElement('Actor');
|
||
|
|
$e_Actors->appendChild($e_Actor);
|
||
|
|
|
||
|
|
$e_ActorObjectID = $ccr->createElement('ActorObjectID', 'A1234'); // Refer createCCRHeader.php
|
||
|
|
$e_Actor->appendChild($e_ActorObjectID);
|
||
|
|
|
||
|
|
$e_Person = $ccr->createElement('Person');
|
||
|
|
$e_Actor->appendChild($e_Person);
|
||
|
|
|
||
|
|
$e_Name = $ccr->createElement('Name');
|
||
|
|
$e_Person->appendChild($e_Name);
|
||
|
|
|
||
|
|
$e_CurrentName = $ccr->createElement('CurrentName');
|
||
|
|
$e_Name->appendChild($e_CurrentName);
|
||
|
|
|
||
|
|
$e_Given = $ccr->createElement('Given', $row['fname']);
|
||
|
|
$e_CurrentName->appendChild($e_Given);
|
||
|
|
|
||
|
|
$e_Family = $ccr->createElement('Family', $row['lname']);
|
||
|
|
$e_CurrentName->appendChild($e_Family);
|
||
|
|
|
||
|
|
$e_Suffix = $ccr->createElement('Suffix');
|
||
|
|
$e_CurrentName->appendChild($e_Suffix);
|
||
|
|
|
||
|
|
$e_DateOfBirth = $ccr->createElement('DateOfBirth');
|
||
|
|
$e_Person->appendChild($e_DateOfBirth);
|
||
|
|
|
||
|
|
$dob = date_create($row['DOB']);
|
||
|
|
|
||
|
|
$e_ExactDateTime = $ccr->createElement('ExactDateTime', $dob->format('Y-m-d\TH:i:s\Z'));
|
||
|
|
$e_DateOfBirth->appendChild($e_ExactDateTime);
|
||
|
|
|
||
|
|
$e_Gender = $ccr->createElement('Gender');
|
||
|
|
$e_Person->appendChild($e_Gender);
|
||
|
|
|
||
|
|
$e_Text = $ccr->createElement('Text', $row['sex']);
|
||
|
|
$e_Gender->appendChild($e_Text);
|
||
|
|
|
||
|
|
$e_Code = $ccr->createElement('Code');
|
||
|
|
$e_Gender->appendChild($e_Code);
|
||
|
|
|
||
|
|
$e_Value = $ccr->createElement('Value');
|
||
|
|
$e_Code->appendChild($e_Value);
|
||
|
|
|
||
|
|
$e_IDs = $ccr->createElement('IDs');
|
||
|
|
$e_Actor->appendChild($e_IDs);
|
||
|
|
|
||
|
|
$e_Type = $ccr->createElement('Type');
|
||
|
|
$e_IDs->appendChild($e_Type);
|
||
|
|
|
||
|
|
$e_Text = $ccr->createElement('Text', 'Patient ID');
|
||
|
|
$e_Type->appendChild($e_Text);
|
||
|
|
|
||
|
|
$e_ID = $ccr->createElement('ID', $row['pid']);
|
||
|
|
$e_IDs->appendChild($e_ID);
|
||
|
|
|
||
|
|
$e_Source = $ccr->createElement('Source');
|
||
|
|
$e_IDs->appendChild($e_Source);
|
||
|
|
|
||
|
|
$e_SourceActor = $ccr->createElement('Actor');
|
||
|
|
$e_Source->appendChild($e_SourceActor);
|
||
|
|
|
||
|
|
$e_ActorID = $ccr->createElement('ActorID', getUuid());
|
||
|
|
$e_SourceActor->appendChild($e_ActorID);
|
||
|
|
|
||
|
|
// address
|
||
|
|
$e_Address = $ccr->createElement('Address');
|
||
|
|
$e_Actor->appendChild($e_Address);
|
||
|
|
|
||
|
|
$e_Type = $ccr->createElement('Type');
|
||
|
|
$e_Address->appendChild($e_Type);
|
||
|
|
|
||
|
|
$e_Text = $ccr->createElement('Text', 'H');
|
||
|
|
$e_Type->appendChild($e_Text);
|
||
|
|
|
||
|
|
$e_Line1 = $ccr->createElement('Line1', $row['street']);
|
||
|
|
$e_Address->appendChild($e_Line1);
|
||
|
|
|
||
|
|
$e_Line2 = $ccr->createElement('Line2');
|
||
|
|
$e_Address->appendChild($e_Line1);
|
||
|
|
|
||
|
|
$e_City = $ccr->createElement('City', $row['city']);
|
||
|
|
$e_Address->appendChild($e_City);
|
||
|
|
|
||
|
|
$e_State = $ccr->createElement('State', $row['state']);
|
||
|
|
$e_Address->appendChild($e_State);
|
||
|
|
|
||
|
|
$e_PostalCode = $ccr->createElement('PostalCode', $row['postal_code']);
|
||
|
|
$e_Address->appendChild($e_PostalCode);
|
||
|
|
|
||
|
|
$e_Telephone = $ccr->createElement('Telephone');
|
||
|
|
$e_Actor->appendChild($e_Telephone);
|
||
|
|
|
||
|
|
$e_Value = $ccr->createElement('Value', $row['phone_contact']);
|
||
|
|
$e_Telephone->appendChild($e_Value);
|
||
|
|
|
||
|
|
$e_Source = $ccr->createElement('Source');
|
||
|
|
$e_Actor->appendChild($e_Source);
|
||
|
|
|
||
|
|
$e_Actor = $ccr->createElement('Actor');
|
||
|
|
$e_Source->appendChild($e_Actor);
|
||
|
|
|
||
|
|
$e_ActorID = $ccr->createElement('ActorID', $authorID);
|
||
|
|
$e_Actor->appendChild($e_ActorID);
|
||
|
|
}
|
||
|
|
|
||
|
|
$row1 = sqlFetchArray($result[1]);
|
||
|
|
//////// Actor Information Systems
|
||
|
|
|
||
|
|
$e_Actor = $ccr->createElement('Actor');
|
||
|
|
$e_Actors->appendChild($e_Actor);
|
||
|
|
|
||
|
|
$e_ActorObjectID = $ccr->createElement('ActorObjectID', $authorID);
|
||
|
|
$e_Actor->appendChild($e_ActorObjectID);
|
||
|
|
|
||
|
|
$e_InformationSystem = $ccr->createElement('InformationSystem');
|
||
|
|
$e_Actor->appendChild($e_InformationSystem);
|
||
|
|
|
||
|
|
$e_Name = $ccr->createElement('Name', $row1['facility']);
|
||
|
|
$e_InformationSystem->appendChild($e_Name);
|
||
|
|
|
||
|
|
$e_Type = $ccr->createElement('Type', 'Facility');
|
||
|
|
$e_InformationSystem->appendChild($e_Type);
|
||
|
|
|
||
|
|
$e_IDs = $ccr->createElement('IDs');
|
||
|
|
$e_Actor->appendChild($e_IDs);
|
||
|
|
|
||
|
|
$e_Type = $ccr->createElement('Type');
|
||
|
|
$e_IDs->appendChild($e_Type);
|
||
|
|
|
||
|
|
$e_Text = $ccr->createElement('Text', '');
|
||
|
|
$e_Type->appendChild($e_Text);
|
||
|
|
|
||
|
|
$e_ID = $ccr->createElement('ID', '');
|
||
|
|
$e_IDs->appendChild($e_ID);
|
||
|
|
|
||
|
|
$e_Source = $ccr->createElement('Source');
|
||
|
|
$e_IDs->appendChild($e_Source);
|
||
|
|
|
||
|
|
$e_SourceActor = $ccr->createElement('Actor');
|
||
|
|
$e_Source->appendChild($e_SourceActor);
|
||
|
|
|
||
|
|
$e_ActorID = $ccr->createElement('ActorID', $authorID);
|
||
|
|
$e_SourceActor->appendChild($e_ActorID);
|
||
|
|
|
||
|
|
$e_Address = $ccr->createElement('Address');
|
||
|
|
$e_Actor->appendChild($e_Address);
|
||
|
|
|
||
|
|
$e_Type = $ccr->createElement('Type');
|
||
|
|
$e_Address->appendChild($e_Type);
|
||
|
|
|
||
|
|
$e_Text = $ccr->createElement('Text', 'WP');
|
||
|
|
$e_Type->appendChild($e_Text);
|
||
|
|
|
||
|
|
$e_Line1 = $ccr->createElement('Line1', $row1['street']);
|
||
|
|
$e_Address->appendChild($e_Line1);
|
||
|
|
|
||
|
|
$e_Line2 = $ccr->createElement('Line2');
|
||
|
|
$e_Address->appendChild($e_Line1);
|
||
|
|
|
||
|
|
$e_City = $ccr->createElement('City', $row1['city']);
|
||
|
|
$e_Address->appendChild($e_City);
|
||
|
|
|
||
|
|
$e_State = $ccr->createElement('State', $row1['state'] . ' ');
|
||
|
|
$e_Address->appendChild($e_State);
|
||
|
|
|
||
|
|
$e_PostalCode = $ccr->createElement('PostalCode', $row1['postal_code']);
|
||
|
|
$e_Address->appendChild($e_PostalCode);
|
||
|
|
|
||
|
|
$e_Telephone = $ccr->createElement('Telephone');
|
||
|
|
$e_Actor->appendChild($e_Telephone);
|
||
|
|
|
||
|
|
$e_Phone = $ccr->createElement('Value', $row1['phone']);
|
||
|
|
$e_Telephone->appendChild($e_Phone);
|
||
|
|
|
||
|
|
$e_Source = $ccr->createElement('Source');
|
||
|
|
$e_Actor->appendChild($e_Source);
|
||
|
|
|
||
|
|
$e_Actor = $ccr->createElement('Actor');
|
||
|
|
$e_Source->appendChild($e_Actor);
|
||
|
|
|
||
|
|
$e_ActorID = $ccr->createElement('ActorID', $authorID);
|
||
|
|
$e_Actor->appendChild($e_ActorID);
|
||
|
|
|
||
|
|
//////// Actor Information Systems
|
||
|
|
$e_Actor = $ccr->createElement('Actor');
|
||
|
|
$e_Actors->appendChild($e_Actor);
|
||
|
|
|
||
|
|
$e_ActorObjectID = $ccr->createElement('ActorObjectID', $oemrID);
|
||
|
|
$e_Actor->appendChild($e_ActorObjectID);
|
||
|
|
|
||
|
|
$e_InformationSystem = $ccr->createElement('InformationSystem');
|
||
|
|
$e_Actor->appendChild($e_InformationSystem);
|
||
|
|
|
||
|
|
$e_Name = $ccr->createElement('Name', 'OEMR');
|
||
|
|
$e_InformationSystem->appendChild($e_Name);
|
||
|
|
|
||
|
|
$e_Type = $ccr->createElement('Type', 'OpenEMR');
|
||
|
|
$e_InformationSystem->appendChild($e_Type);
|
||
|
|
|
||
|
|
$e_Version = $ccr->createElement('Version', '4.x');
|
||
|
|
$e_InformationSystem->appendChild($e_Version);
|
||
|
|
|
||
|
|
$e_IDs = $ccr->createElement('IDs');
|
||
|
|
$e_Actor->appendChild($e_IDs);
|
||
|
|
|
||
|
|
$e_Type = $ccr->createElement('Type');
|
||
|
|
$e_IDs->appendChild($e_Type);
|
||
|
|
|
||
|
|
$e_Text = $ccr->createElement('Text', 'Certification #');
|
||
|
|
$e_Type->appendChild($e_Text);
|
||
|
|
|
||
|
|
$e_ID = $ccr->createElement('ID', 'EHRX-OEMRXXXXXX-2011');
|
||
|
|
$e_IDs->appendChild($e_ID);
|
||
|
|
|
||
|
|
$e_Source = $ccr->createElement('Source');
|
||
|
|
$e_IDs->appendChild($e_Source);
|
||
|
|
|
||
|
|
$e_SourceActor = $ccr->createElement('Actor');
|
||
|
|
$e_Source->appendChild($e_SourceActor);
|
||
|
|
|
||
|
|
$e_ActorID = $ccr->createElement('ActorID', $authorID);
|
||
|
|
$e_SourceActor->appendChild($e_ActorID);
|
||
|
|
|
||
|
|
$e_Address = $ccr->createElement('Address');
|
||
|
|
$e_Actor->appendChild($e_Address);
|
||
|
|
|
||
|
|
$e_Type = $ccr->createElement('Type');
|
||
|
|
$e_Address->appendChild($e_Type);
|
||
|
|
|
||
|
|
$e_Text = $ccr->createElement('Text', 'WP');
|
||
|
|
$e_Type->appendChild($e_Text);
|
||
|
|
|
||
|
|
$e_Line1 = $ccr->createElement('Line1', '2365 Springs Rd. NE');
|
||
|
|
$e_Address->appendChild($e_Line1);
|
||
|
|
|
||
|
|
$e_Line2 = $ccr->createElement('Line2');
|
||
|
|
$e_Address->appendChild($e_Line1);
|
||
|
|
|
||
|
|
$e_City = $ccr->createElement('City', 'Hickory');
|
||
|
|
$e_Address->appendChild($e_City);
|
||
|
|
|
||
|
|
$e_State = $ccr->createElement('State', 'NC ');
|
||
|
|
$e_Address->appendChild($e_State);
|
||
|
|
|
||
|
|
$e_PostalCode = $ccr->createElement('PostalCode', '28601');
|
||
|
|
$e_Address->appendChild($e_PostalCode);
|
||
|
|
|
||
|
|
$e_Telephone = $ccr->createElement('Telephone');
|
||
|
|
$e_Actor->appendChild($e_Telephone);
|
||
|
|
|
||
|
|
$e_Phone = $ccr->createElement('Value', '000-000-0000');
|
||
|
|
$e_Telephone->appendChild($e_Phone);
|
||
|
|
|
||
|
|
$e_Source = $ccr->createElement('Source');
|
||
|
|
$e_Actor->appendChild($e_Source);
|
||
|
|
|
||
|
|
$e_Actor = $ccr->createElement('Actor');
|
||
|
|
$e_Source->appendChild($e_Actor);
|
||
|
|
|
||
|
|
$e_ActorID = $ccr->createElement('ActorID', $authorID);
|
||
|
|
$e_Actor->appendChild($e_ActorID);
|
||
|
|
|
||
|
|
while ($row2 = sqlFetchArray($result[2])) {
|
||
|
|
$e_Actor = $ccr->createElement('Actor');
|
||
|
|
$e_Actors->appendChild($e_Actor);
|
||
|
|
|
||
|
|
$e_ActorObjectID = $ccr->createElement('ActorObjectID', ${"labID{$row2['id']}"});
|
||
|
|
$e_Actor->appendChild($e_ActorObjectID);
|
||
|
|
|
||
|
|
$e_InformationSystem = $ccr->createElement('InformationSystem');
|
||
|
|
$e_Actor->appendChild($e_InformationSystem);
|
||
|
|
|
||
|
|
$e_Name = $ccr->createElement('Name', $row2['lname'] . " " . $row2['fname']);
|
||
|
|
$e_InformationSystem->appendChild($e_Name);
|
||
|
|
|
||
|
|
$e_Type = $ccr->createElement('Type', 'Lab Service');
|
||
|
|
$e_InformationSystem->appendChild($e_Type);
|
||
|
|
|
||
|
|
$e_IDs = $ccr->createElement('IDs');
|
||
|
|
$e_Actor->appendChild($e_IDs);
|
||
|
|
|
||
|
|
$e_Type = $ccr->createElement('Type');
|
||
|
|
$e_IDs->appendChild($e_Type);
|
||
|
|
|
||
|
|
$e_Text = $ccr->createElement('Text', '');
|
||
|
|
$e_Type->appendChild($e_Text);
|
||
|
|
|
||
|
|
$e_ID = $ccr->createElement('ID', '');
|
||
|
|
$e_IDs->appendChild($e_ID);
|
||
|
|
|
||
|
|
$e_Source = $ccr->createElement('Source');
|
||
|
|
$e_IDs->appendChild($e_Source);
|
||
|
|
|
||
|
|
$e_SourceActor = $ccr->createElement('Actor');
|
||
|
|
$e_Source->appendChild($e_SourceActor);
|
||
|
|
|
||
|
|
$e_ActorID = $ccr->createElement('ActorID', $authorID);
|
||
|
|
$e_SourceActor->appendChild($e_ActorID);
|
||
|
|
|
||
|
|
$e_Address = $ccr->createElement('Address');
|
||
|
|
$e_Actor->appendChild($e_Address);
|
||
|
|
|
||
|
|
$e_Type = $ccr->createElement('Type');
|
||
|
|
$e_Address->appendChild($e_Type);
|
||
|
|
|
||
|
|
$e_Text = $ccr->createElement('Text', 'WP');
|
||
|
|
$e_Type->appendChild($e_Text);
|
||
|
|
|
||
|
|
$e_Line1 = $ccr->createElement('Line1', $row2['street']);
|
||
|
|
$e_Address->appendChild($e_Line1);
|
||
|
|
|
||
|
|
$e_Line2 = $ccr->createElement('Line2');
|
||
|
|
$e_Address->appendChild($e_Line1);
|
||
|
|
|
||
|
|
$e_City = $ccr->createElement('City', $row2['city']);
|
||
|
|
$e_Address->appendChild($e_City);
|
||
|
|
|
||
|
|
$e_State = $ccr->createElement('State', $row2['state'] . ' ');
|
||
|
|
$e_Address->appendChild($e_State);
|
||
|
|
|
||
|
|
$e_PostalCode = $ccr->createElement('PostalCode', $row2['zip']);
|
||
|
|
$e_Address->appendChild($e_PostalCode);
|
||
|
|
|
||
|
|
$e_Telephone = $ccr->createElement('Telephone');
|
||
|
|
$e_Actor->appendChild($e_Telephone);
|
||
|
|
|
||
|
|
$e_Phone = $ccr->createElement('Value', $row2['phone']);
|
||
|
|
$e_Telephone->appendChild($e_Phone);
|
||
|
|
|
||
|
|
$e_Source = $ccr->createElement('Source');
|
||
|
|
$e_Actor->appendChild($e_Source);
|
||
|
|
|
||
|
|
$e_Actor = $ccr->createElement('Actor');
|
||
|
|
$e_Source->appendChild($e_Actor);
|
||
|
|
|
||
|
|
$e_ActorID = $ccr->createElement('ActorID', $authorID);
|
||
|
|
$e_Actor->appendChild($e_ActorID);
|
||
|
|
}
|