ccr/createCCRProcedure.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 = getProcedureData();
  25     $row = sqlFetchArray($result);
  26
  27 do {
  28     $e_Procedure = $ccr->createElement('Procedure');
  29     $e_Procedures->appendChild($e_Procedure);
  30
  31     $e_CCRDataObjectID = $ccr->createElement('CCRDataObjectID', getUuid());
  32     $e_Procedure->appendChild($e_CCRDataObjectID);
  33
  34     $e_DateTime = $ccr->createElement('DateTime');
  35     $e_Procedure->appendChild($e_DateTime);
  36
  37     $date = date_create($row['date']);
  38
  39     $e_ExactDateTime = $ccr->createElement('ExactDateTime', $date->format('Y-m-d\TH:i:s\Z'));
  40     $e_DateTime->appendChild($e_ExactDateTime);
  41
  42     $e_Type = $ccr->createElement('Type');
  43     $e_Procedure->appendChild($e_Type);
  44
  45     $e_Text = $ccr->createElement('Text', $row['type']);
  46     $e_Type->appendChild($e_Text);
  47
  48     $e_Description = $ccr->createElement('Description');
  49     $e_Procedure->appendChild($e_Description);
  50
  51     $e_Text = $ccr->createElement('Text', $row['proc_title']);
  52     $e_Description->appendChild($e_Text);
  53
  54     $e_Code = $ccr->createElement('Code');
  55     $e_Description->appendChild($e_Code);
  56
  57     $e_Value = $ccr->createElement('Value', $row['code']);
  58     $e_Code->appendChild($e_Value);
  59
  60     $e_Value = $ccr->createElement('CodingSystem', $row['coding']);
  61     $e_Code->appendChild($e_Value);
  62
  63     $e_Status = $ccr->createElement('Status');
  64     $e_Procedure->appendChild($e_Status);
  65
  66     $e_Text = $ccr->createElement('Text', $row['outcome']);
  67     $e_Status->appendChild($e_Text);
  68
  69     $e_Procedure->appendChild(sourceType($ccr, $sourceID));
  70
  71     $e_Locations = $ccr->createElement('Locations');
  72     $e_Procedure->appendChild($e_Locations);
  73
  74     $e_Location = $ccr->createElement('Location');
  75     $e_Locations->appendChild($e_Location);
  76
  77     $e_Description = $ccr->createElement('Description');
  78     $e_Location->appendChild($e_Description);
  79
  80     $e_Text = $ccr->createElement('Text', $row['laterality']);
  81     $e_Description->appendChild($e_Text);
  82
  83     $e_Practitioners = $ccr->createElement('Practitioners');
  84     $e_Procedure->appendChild($e_Practitioners);
  85
  86     $e_Practitioner = $ccr->createElement('Practitioner');
  87     $e_Practitioners->appendChild($e_Practitioner);
  88
  89     $e_ActorRole = $ccr->createElement('ActorRole');
  90     $e_Practitioner->appendChild($e_ActorRole);
  91
  92     $e_Text = $ccr->createElement('Text', 'None');
  93     $e_ActorRole->appendChild($e_Text);
  94
  95     $e_Duration = $ccr->createElement('Duration');
  96     $e_Procedure->appendChild($e_Duration);
  97
  98     $e_Description = $ccr->createElement('Description');
  99     $e_Duration->appendChild($e_Description);
 100
 101     $e_Text = $ccr->createElement('Text', 'None');
 102     $e_Description->appendChild($e_Text);
 103
 104     $e_Substance = $ccr->createElement('Substance');
 105     $e_Procedure->appendChild($e_Substance);
 106
 107     $e_Text = $ccr->createElement('Text', '');
 108     $e_Substance->appendChild($e_Text);
 109
 110     $e_Method = $ccr->createElement('Method');
 111     $e_Procedure->appendChild($e_Method);
 112
 113     $e_Text = $ccr->createElement('Text', '');
 114     $e_Method->appendChild($e_Text);
 115
 116     $e_Position = $ccr->createElement('Position');
 117     $e_Procedure->appendChild($e_Position);
 118
 119     $e_Text = $ccr->createElement('Text', $row['laterality']);
 120     $e_Position->appendChild($e_Text);
 121
 122     $e_Site = $ccr->createElement('Site');
 123     $e_Procedure->appendChild($e_Site);
 124
 125     $e_Text = $ccr->createElement('Text', $row['body_site']);
 126     $e_Site->appendChild($e_Text);
 127 } while ($row = sqlFetchArray($result));