ccr/createCCRActor.php

   1 <?php
   2 /**
   3  * CCR Script.
   4  *
   5  * Copyright (C) 2010 Garden State Health Systems <http://www.gshsys.com/>
   6  *
   7  * LICENSE: This program is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU General Public License
   9  * as published by the Free Software Foundation; either version 3
  10  * of the License, or (at your option) any later version.
  11  * This program is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  14  * GNU General Public License for more details.
  15  * You should have received a copy of the GNU General Public License
  16  * along with this program. If not, see <http://opensource.org/licenses/gpl-license.php>;.
  17  *
  18  * @package OpenEMR
  19  * @author  Garden State Health Systems <http://www.gshsys.com/>
  20  * @link    http://www.open-emr.org
  21  */
  22
  23
  24 $result = getActorData();
  25 while ($row = sqlFetchArray($result[0])) {
  26
  27         $e_Actor = $ccr->createElement('Actor');
  28         $e_Actors->appendChild($e_Actor);
  29
  30         $e_ActorObjectID = $ccr->createElement('ActorObjectID', 'A1234'); // Refer createCCRHeader.php
  31         $e_Actor->appendChild($e_ActorObjectID);
  32
  33         $e_Person = $ccr->createElement('Person');
  34         $e_Actor->appendChild($e_Person);
  35
  36         $e_Name = $ccr->createElement('Name');
  37         $e_Person->appendChild($e_Name);
  38
  39         $e_CurrentName = $ccr->createElement('CurrentName');
  40         $e_Name->appendChild($e_CurrentName);
  41
  42         $e_Given = $ccr->createElement('Given',$row['fname']);
  43         $e_CurrentName->appendChild($e_Given);
  44
  45         $e_Family = $ccr->createElement('Family',$row['lname']);
  46         $e_CurrentName->appendChild($e_Family);
  47
  48         $e_Suffix = $ccr->createElement('Suffix');
  49         $e_CurrentName->appendChild($e_Suffix);
  50
  51         $e_DateOfBirth = $ccr->createElement('DateOfBirth');
  52         $e_Person->appendChild($e_DateOfBirth);
  53
  54         $dob = date_create($row['DOB']);
  55
  56         $e_ExactDateTime = $ccr->createElement('ExactDateTime',$dob->format('Y-m-d\TH:i:s\Z'));
  57         $e_DateOfBirth->appendChild($e_ExactDateTime);
  58
  59         $e_Gender = $ccr->createElement('Gender');
  60         $e_Person->appendChild($e_Gender);
  61
  62         $e_Text = $ccr->createElement('Text',$row['sex']);
  63         $e_Gender->appendChild($e_Text);
  64
  65         $e_Code = $ccr->createElement('Code');
  66         $e_Gender->appendChild($e_Code);
  67
  68         $e_Value = $ccr->createElement('Value');
  69         $e_Code->appendChild($e_Value);
  70
  71         $e_IDs = $ccr->createElement('IDs');
  72         $e_Actor->appendChild($e_IDs);
  73
  74         $e_Type = $ccr->createElement('Type');
  75         $e_IDs->appendChild($e_Type);
  76
  77         $e_Text = $ccr->createElement('Text', 'Patient ID');
  78         $e_Type->appendChild($e_Text);
  79
  80         $e_ID = $ccr->createElement('ID', $row['pid']);
  81         $e_IDs->appendChild($e_ID);
  82
  83         $e_Source = $ccr->createElement('Source');
  84         $e_IDs->appendChild($e_Source);
  85
  86         $e_SourceActor = $ccr->createElement('Actor');
  87         $e_Source->appendChild($e_SourceActor);
  88
  89         $e_ActorID = $ccr->createElement('ActorID', getUuid());
  90         $e_SourceActor->appendChild($e_ActorID);
  91
  92         // address
  93         $e_Address = $ccr->createElement('Address');
  94         $e_Actor->appendChild($e_Address);
  95
  96   $e_Type = $ccr->createElement('Type');
  97   $e_Address->appendChild($e_Type);
  98
  99   $e_Text = $ccr->createElement('Text', 'H');
 100         $e_Type->appendChild($e_Text);
 101
 102         $e_Line1 = $ccr->createElement('Line1', $row['street']);
 103         $e_Address->appendChild($e_Line1);
 104
 105         $e_Line2 = $ccr->createElement('Line2');
 106         $e_Address->appendChild($e_Line1);
 107
 108         $e_City = $ccr->createElement('City', $row['city']);
 109         $e_Address->appendChild($e_City);
 110
 111         $e_State = $ccr->createElement('State', $row['state']);
 112         $e_Address->appendChild($e_State);
 113
 114         $e_PostalCode = $ccr->createElement('PostalCode', $row['postal_code']);
 115         $e_Address->appendChild($e_PostalCode);
 116
 117         $e_Telephone = $ccr->createElement('Telephone');
 118         $e_Actor->appendChild($e_Telephone);
 119
 120         $e_Value = $ccr->createElement('Value', $row['phone_contact']);
 121         $e_Telephone->appendChild($e_Value);
 122
 123   $e_Source = $ccr->createElement('Source');
 124         $e_Actor->appendChild($e_Source);
 125
 126         $e_Actor = $ccr->createElement('Actor');
 127         $e_Source->appendChild($e_Actor);
 128
 129         $e_ActorID = $ccr->createElement('ActorID', $authorID);
 130         $e_Actor->appendChild($e_ActorID);
 131
 132 }
 133
 134 $row1 = sqlFetchArray($result[1]);
 135         //////// Actor Information Systems
 136
 137         $e_Actor = $ccr->createElement('Actor');
 138         $e_Actors->appendChild($e_Actor);
 139
 140         $e_ActorObjectID = $ccr->createElement('ActorObjectID', $authorID);
 141         $e_Actor->appendChild($e_ActorObjectID);
 142
 143         $e_InformationSystem = $ccr->createElement('InformationSystem');
 144         $e_Actor->appendChild($e_InformationSystem);
 145
 146         $e_Name = $ccr->createElement('Name', $row1['facility']);
 147         $e_InformationSystem->appendChild($e_Name);
 148
 149   $e_Type = $ccr->createElement('Type', 'Facility');
 150         $e_InformationSystem->appendChild($e_Type);
 151
 152   $e_IDs = $ccr->createElement('IDs');
 153         $e_Actor->appendChild($e_IDs);
 154
 155   $e_Type = $ccr->createElement('Type');
 156   $e_IDs->appendChild($e_Type);
 157
 158   $e_Text = $ccr->createElement('Text', '');
 159         $e_Type->appendChild($e_Text);
 160
 161   $e_ID = $ccr->createElement('ID', '');
 162         $e_IDs->appendChild($e_ID);
 163
 164   $e_Source = $ccr->createElement('Source');
 165         $e_IDs->appendChild($e_Source);
 166
 167         $e_SourceActor = $ccr->createElement('Actor');
 168         $e_Source->appendChild($e_SourceActor);
 169
 170         $e_ActorID = $ccr->createElement('ActorID', $authorID);
 171         $e_SourceActor->appendChild($e_ActorID);
 172
 173   $e_Address = $ccr->createElement('Address');
 174         $e_Actor->appendChild($e_Address);
 175
 176   $e_Type = $ccr->createElement('Type');
 177   $e_Address->appendChild($e_Type);
 178
 179   $e_Text = $ccr->createElement('Text', 'WP');
 180         $e_Type->appendChild($e_Text);
 181
 182         $e_Line1 = $ccr->createElement('Line1',$row1['street']);
 183         $e_Address->appendChild($e_Line1);
 184
 185         $e_Line2 = $ccr->createElement('Line2');
 186         $e_Address->appendChild($e_Line1);
 187
 188         $e_City = $ccr->createElement('City',$row1['city']);
 189         $e_Address->appendChild($e_City);
 190
 191         $e_State = $ccr->createElement('State',$row1['state'].' ');
 192         $e_Address->appendChild($e_State);
 193
 194         $e_PostalCode = $ccr->createElement('PostalCode',$row1['postal_code']);
 195         $e_Address->appendChild($e_PostalCode);
 196
 197   $e_Telephone = $ccr->createElement('Telephone');
 198         $e_Actor->appendChild($e_Telephone);
 199
 200   $e_Phone = $ccr->createElement('Value',$row1['phone']);
 201         $e_Telephone->appendChild($e_Phone);
 202
 203         $e_Source = $ccr->createElement('Source');
 204         $e_Actor->appendChild($e_Source);
 205
 206         $e_Actor = $ccr->createElement('Actor');
 207         $e_Source->appendChild($e_Actor);
 208
 209         $e_ActorID = $ccr->createElement('ActorID', $authorID);
 210         $e_Actor->appendChild($e_ActorID);
 211
 212   //////// Actor Information Systems
 213   $e_Actor = $ccr->createElement('Actor');
 214         $e_Actors->appendChild($e_Actor);
 215
 216         $e_ActorObjectID = $ccr->createElement('ActorObjectID', $oemrID);
 217         $e_Actor->appendChild($e_ActorObjectID);
 218
 219         $e_InformationSystem = $ccr->createElement('InformationSystem');
 220         $e_Actor->appendChild($e_InformationSystem);
 221
 222         $e_Name = $ccr->createElement('Name', 'OEMR');
 223         $e_InformationSystem->appendChild($e_Name);
 224
 225   $e_Type = $ccr->createElement('Type', 'OpenEMR');
 226         $e_InformationSystem->appendChild($e_Type);
 227
 228   $e_Version = $ccr->createElement('Version', '4.x');
 229         $e_InformationSystem->appendChild($e_Version);
 230
 231   $e_IDs = $ccr->createElement('IDs');
 232         $e_Actor->appendChild($e_IDs);
 233
 234   $e_Type = $ccr->createElement('Type');
 235   $e_IDs->appendChild($e_Type);
 236
 237   $e_Text = $ccr->createElement('Text', 'Certification #');
 238         $e_Type->appendChild($e_Text);
 239
 240   $e_ID = $ccr->createElement('ID', 'EHRX-OEMRXXXXXX-2011');
 241         $e_IDs->appendChild($e_ID);
 242
 243   $e_Source = $ccr->createElement('Source');
 244         $e_IDs->appendChild($e_Source);
 245
 246         $e_SourceActor = $ccr->createElement('Actor');
 247         $e_Source->appendChild($e_SourceActor);
 248
 249         $e_ActorID = $ccr->createElement('ActorID', $authorID);
 250         $e_SourceActor->appendChild($e_ActorID);
 251
 252   $e_Address = $ccr->createElement('Address');
 253         $e_Actor->appendChild($e_Address);
 254
 255   $e_Type = $ccr->createElement('Type');
 256   $e_Address->appendChild($e_Type);
 257
 258   $e_Text = $ccr->createElement('Text', 'WP');
 259         $e_Type->appendChild($e_Text);
 260
 261         $e_Line1 = $ccr->createElement('Line1','2365 Springs Rd. NE');
 262         $e_Address->appendChild($e_Line1);
 263
 264         $e_Line2 = $ccr->createElement('Line2');
 265         $e_Address->appendChild($e_Line1);
 266
 267         $e_City = $ccr->createElement('City','Hickory');
 268         $e_Address->appendChild($e_City);
 269
 270         $e_State = $ccr->createElement('State','NC ');
 271         $e_Address->appendChild($e_State);
 272
 273         $e_PostalCode = $ccr->createElement('PostalCode','28601');
 274         $e_Address->appendChild($e_PostalCode);
 275
 276   $e_Telephone = $ccr->createElement('Telephone');
 277         $e_Actor->appendChild($e_Telephone);
 278
 279   $e_Phone = $ccr->createElement('Value','000-000-0000');
 280         $e_Telephone->appendChild($e_Phone);
 281
 282         $e_Source = $ccr->createElement('Source');
 283         $e_Actor->appendChild($e_Source);
 284
 285         $e_Actor = $ccr->createElement('Actor');
 286         $e_Source->appendChild($e_Actor);
 287
 288         $e_ActorID = $ccr->createElement('ActorID', $authorID);
 289         $e_Actor->appendChild($e_ActorID);
 290
 291 while ($row2 = sqlFetchArray($result[2])) {
 292
 293         $e_Actor = $ccr->createElement('Actor');
 294         $e_Actors->appendChild($e_Actor);
 295
 296         $e_ActorObjectID = $ccr->createElement('ActorObjectID', ${"labID{$row2['id']}"});
 297         $e_Actor->appendChild($e_ActorObjectID);
 298
 299         $e_InformationSystem = $ccr->createElement('InformationSystem');
 300         $e_Actor->appendChild($e_InformationSystem);
 301
 302         $e_Name = $ccr->createElement('Name', $row2['lname']." ".$row2['fname']);
 303         $e_InformationSystem->appendChild($e_Name);
 304
 305   $e_Type = $ccr->createElement('Type', 'Lab Service');
 306         $e_InformationSystem->appendChild($e_Type);
 307
 308   $e_IDs = $ccr->createElement('IDs');
 309         $e_Actor->appendChild($e_IDs);
 310
 311   $e_Type = $ccr->createElement('Type');
 312   $e_IDs->appendChild($e_Type);
 313
 314   $e_Text = $ccr->createElement('Text', '');
 315         $e_Type->appendChild($e_Text);
 316
 317   $e_ID = $ccr->createElement('ID', '');
 318         $e_IDs->appendChild($e_ID);
 319
 320   $e_Source = $ccr->createElement('Source');
 321         $e_IDs->appendChild($e_Source);
 322
 323         $e_SourceActor = $ccr->createElement('Actor');
 324         $e_Source->appendChild($e_SourceActor);
 325
 326         $e_ActorID = $ccr->createElement('ActorID', $authorID);
 327         $e_SourceActor->appendChild($e_ActorID);
 328
 329   $e_Address = $ccr->createElement('Address');
 330         $e_Actor->appendChild($e_Address);
 331
 332   $e_Type = $ccr->createElement('Type');
 333   $e_Address->appendChild($e_Type);
 334
 335   $e_Text = $ccr->createElement('Text', 'WP');
 336         $e_Type->appendChild($e_Text);
 337
 338         $e_Line1 = $ccr->createElement('Line1',$row2['street']);
 339         $e_Address->appendChild($e_Line1);
 340
 341         $e_Line2 = $ccr->createElement('Line2');
 342         $e_Address->appendChild($e_Line1);
 343
 344         $e_City = $ccr->createElement('City',$row2['city']);
 345         $e_Address->appendChild($e_City);
 346
 347         $e_State = $ccr->createElement('State',$row2['state'].' ');
 348         $e_Address->appendChild($e_State);
 349
 350         $e_PostalCode = $ccr->createElement('PostalCode',$row2['zip']);
 351         $e_Address->appendChild($e_PostalCode);
 352
 353   $e_Telephone = $ccr->createElement('Telephone');
 354         $e_Actor->appendChild($e_Telephone);
 355
 356   $e_Phone = $ccr->createElement('Value',$row2['phone']);
 357         $e_Telephone->appendChild($e_Phone);
 358
 359         $e_Source = $ccr->createElement('Source');
 360         $e_Actor->appendChild($e_Source);
 361
 362         $e_Actor = $ccr->createElement('Actor');
 363         $e_Source->appendChild($e_Actor);
 364
 365         $e_ActorID = $ccr->createElement('ActorID', $authorID);
 366         $e_Actor->appendChild($e_ActorID);
 367 }
 368
 369 ?>