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