interface/de_identification_forms/de_identification_screen2.php

   1 <?php
   2 /********************************************************************************\
   3  * Copyright (C) ViCarePlus, Visolve (vicareplus_engg@visolve.com)              *
   4  *                                                                              *
   5  * This program is free software; you can redistribute it and/or                *
   6  * modify it under the terms of the GNU General Public License                  *
   7  * as published by the Free Software Foundation; either version 2               *
   8  * of the License, or (at your option) any later version.                       *
   9  *                                                                              *
  10  * This program is distributed in the hope that it will be useful,              *
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of               *
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the                *
  13  * GNU General Public License for more details.                                 *
  14  *                                                                              *
  15  * You should have received a copy of the GNU General Public License            *
  16  * along with this program; if not, write to the Free Software                  *
  17  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.  *
  18  \********************************************************************************/
  19 require_once("../globals.php");
  20 require_once("$srcdir/lists.inc");
  21 require_once("$srcdir/patient.inc");
  22 require_once("$srcdir/acl.inc");
  23 require_once("$srcdir/options.inc.php");
  24 require_once("$srcdir/translation.inc.php");
  25 require_once("../../library/sqlconf.php");
  26 ?>
  27 <?php
  28 /*executes the De Identification process, using the parameters chosen from the
  29 de_identification_screen1.php  */
  30 $begin_date = $_POST["begin_date"];
  31 $end_date = $_POST["end_date"];
  32
  33 if ($_POST["unstructured"])
  34 $include_unstructured = 1;
  35 else
  36 $include_unstructured = 0;
  37
  38 if ($_POST["all"])
  39 $include_tables = "all";
  40 else
  41 {
  42 if ($_POST["history_data"])
  43 $include_tables = $include_tables . $_POST["history_data"]. "#";
  44 if ($_POST["prescriptions"])
  45 $include_tables = $include_tables . $_POST["prescriptions"]. "#";
  46 if ($_POST["immunization"])
  47 $include_tables = $include_tables . $_POST["immunization"]. "#";
  48 if ($_POST["lists"])
  49 $include_tables = $include_tables . $_POST["lists"]. "#";
  50 if ($_POST["transactions"])
  51 $include_tables = $include_tables . $_POST["transactions"]. "#";
  52 if ($_POST["insurance_data"])
  53 $include_tables = $include_tables . $_POST["insurance_data"]. "#";
  54 if ($_POST["billing_data"])
  55 $include_tables = $include_tables . "billing#payments";
  56 }
  57
  58 $diagnosis_text = $_POST["diagnosis_text"];
  59 $drug_text = $_POST["drug_text"];
  60 $immunization_text = $_POST["immunization_text"];
  61
  62 $query = "select status from de_identification_status";
  63 $res = sqlStatement($query);
  64 if ($row = sqlFetchArray($res))
  65 {
  66         $deIdentificationStatus = addslashes($row['status']);
  67  /* $deIdentificationStatus:
  68  *  0 - There is no De Identification in progress. (start new De Identification process)
  69  *  1 - A De Identification process is currently in progress.
  70  *  2 - The De Identification process completed and xls file is ready to download
  71  *  3 - The De Identification process completed with error
  72  */
  73 }
  74
  75 if($deIdentificationStatus == 0)
  76 {
  77  //0 - There is no De Identification in progress. (start new De Identification process)
  78                 ?>
  79 <html>
  80 <head>
  81 <title>De Identification</title>
  82 <link rel="stylesheet" href='<?php echo $css_header ?>' type='text/css'>
  83 <link rel="stylesheet"
  84         href='<?php echo $GLOBALS['webroot'] ?>/library/dynarch_calendar.css'
  85         type='text/css'>
  86 <script type="text/javascript" src="<?php echo $GLOBALS['webroot'] ?>/library/dialog.js"></script>
  87 <style type="text/css">
  88 .style1 {
  89         text-align: center;
  90 }
  91 </style>
  92 </head>
  93 <body class="body_top">
  94 <strong>De Identification</strong>
  95 <form name="De Identification1" id="De Identification1" method="post"><br />
  96         <?php
  97
  98         $query = "SELECT count(*) as count FROM metadata_de_identification";
  99         $res = sqlStatement($query);
 100         if ($row = sqlFetchArray($res))
 101         {
 102                 $no_of_items = addslashes($row['count']);
 103                 if($no_of_items == 0)
 104                 {
 105                         $cmd="cp ".$GLOBALS['webserver_root']."/sql/metadata_de_identification.txt ".$GLOBALS['temporary_files_dir']."/metadata_de_identification.txt";
 106                         $output3=shell_exec($cmd);
 107                         $query = "LOAD DATA INFILE '".$GLOBALS['temporary_files_dir']."/metadata_de_identification.txt' INTO TABLE metadata_de_identification FIELDS TERMINATED BY ','  LINES TERMINATED BY '\n'";
 108                         $res = sqlStatement($query);
 109                 }
 110         }
 111         //create transaction tables
 112         $query = "call create_transaction_tables()";
 113         $res = sqlStatement($query);
 114
 115         //write input to data base
 116         $query = "delete from param_include_tables";
 117         $res = sqlStatement($query);
 118
 119         $query = "insert into param_include_tables values ('$include_tables','$include_unstructured')";
 120         $res = sqlStatement($query);
 121
 122         $query = "delete from param_filter_pid";
 123         $res = sqlStatement($query);
 124
 125         $query = "insert into param_filter_pid values ('$begin_date', '$end_date', '$diagnosis_text', '$drug_text', '$immunization_text')";
 126         $res = sqlStatement($query);
 127
 128         //process running
 129         $query = "update de_identification_status set status = 1";
 130         $res = sqlStatement($query);
 131
 132         try
 133         {
 134                 //call procedure - execute in background
 135                 $sh_cmd='./de_identification_procedure.sh '.$sqlconf["host"].' '.$sqlconf["login"].' '.$sqlconf["pass"].' '.$sqlconf["dbase"].' &';
 136                 system ($sh_cmd);
 137
 138
 139                 $query = "SELECT status FROM de_identification_status ";
 140                 $res = sqlStatement($query);
 141                 if ($row = sqlFetchArray($res))
 142                 {
 143                         $de_identification_status = addslashes($row['status']);
 144                         if($de_identification_status == 2 || $de_identification_status == 3)
 145                         {
 146                          //2 - The De Identification process completed and xls file is ready to download
 147                          //3 - The De Identification process completed with error
 148                                 $query = "SELECT count(*) as count FROM de_identified_data ";
 149                                 $res = sqlStatement($query);
 150                                 if ($row = sqlFetchArray($res))
 151                                 {
 152                                         $no_of_items = addslashes($row['count']);
 153                                         if($no_of_items <= 1)
 154                                         {
 155                                                 ?>
 156         <table>
 157         <tr>
 158                 <td>&nbsp;</td>
 159                 <td>&nbsp;</td>
 160         </tr>
 161         <tr>
 162                 <td>&nbsp;</td>
 163                 <td>&nbsp;</td>
 164         </tr>
 165         </table>
 166         <table class="de_identification_status_message" align="center">
 167         <tr valign="top">
 168
 169                 <td>&nbsp;</td>
 170                 <td rowspan="3"><br>
 171                 <?php echo xl('No Patient record found for given Selection criteria');
 172                 echo "</br></br>";
 173                 echo xl('Please start new De Identification process');
 174                 echo "</br>";   ?> </br>
 175                 </td>
 176                 <td>&nbsp;</td>
 177         </tr>
 178         <tr>
 179                 <td>&nbsp;</td>
 180                 <td>&nbsp;</td>
 181         </tr>
 182         <tr>
 183                 <td>&nbsp;</td>
 184                 <td>&nbsp;</td>
 185         </tr>
 186         </table>
 187         <table align="center">
 188         <tr>
 189                 <td>&nbsp;</td>
 190                 <td>&nbsp;</td>
 191         </tr>
 192         </table>
 193
 194                 <?php
 195                                         }
 196                                         else
 197                                         {       //delete old de_identified_data.xls file
 198                                                 $timestamp=0;
 199                                                 $query = "select now() as timestamp";
 200                                                 $res = sqlStatement($query);
 201                                                 if ($row = sqlFetchArray($res))
 202                                                 {
 203                                                         $timestamp = addslashes($row['timestamp']);
 204                                                 }
 205                                                 $timestamp = str_replace(" ","_",$timestamp);
 206                                                 $de_identified_file = $GLOBALS['temporary_files_dir']."/de_identified_data".$timestamp.".xls";
 207                                                 $query = "update de_identification_status set last_available_de_identified_data_file = '" . $de_identified_file . "'";
 208                                                 $res = sqlStatement($query);
 209                                                 $query = "select * from de_identified_data into outfile '$de_identified_file' ";
 210                                                 $res = sqlStatement($query);
 211                                                 ?>
 212         <table>
 213         <tr>
 214                 <td>&nbsp;</td>
 215                 <td>&nbsp;</td>
 216         </tr>
 217         <tr>
 218                 <td>&nbsp;</td>
 219                 <td>&nbsp;</td>
 220         </tr>
 221         </table>
 222         <table class="de_identification_status_message" align="center">
 223         <tr valign="top">
 224                 <td>&nbsp;</td>
 225                 <td rowspan="3"><br>
 226                 <?php echo xl('De Identification Process is ongoing');
 227                 echo "</br></br>";
 228                 echo xl('Please visit De Identification screen after some time');
 229                 echo "</br>";   ?> </br>
 230                 </td>
 231                 <td>&nbsp;</td>
 232         </tr>
 233         <tr>
 234                 <td>&nbsp;</td>
 235                 <td>&nbsp;</td>
 236         </tr>
 237         <tr>
 238                 <td>&nbsp;</td>
 239                 <td>&nbsp;</td>
 240         </tr>
 241         </table>
 242         <table align="center">
 243         <tr>
 244                 <td>&nbsp;</td>
 245                 <td>&nbsp;</td>
 246         </tr>
 247         </table>
 248                 <?php
 249                                         }
 250                                 }
 251                         }
 252                 }
 253         }
 254         catch (Exception $e)
 255         {
 256                 //error status
 257                 $query = "update de_identification_status set status = 3";
 258                 $res = sqlStatement($query);
 259         }
 260 }
 261 else if($deIdentificationStatus == 2 or $deIdentificationStatus == 3)
 262 {
 263  //2 - The De Identification process completed and xls file is ready to download
 264  //3 - The De Identification process completed with error
 265         $query = "select last_available_de_identified_data_file from de_identification_status";
 266         $res = sqlStatement($query);
 267         if ($row = sqlFetchArray($res))
 268         {
 269                 $filename = addslashes($row['last_available_de_identified_data_file']);
 270         }
 271         ob_end_clean();
 272         if (file_exists($filename)) {
 273
 274                 header('Content-Description: File Transfer');
 275                 header('Content-Type: application/octet-stream');
 276                 header('Content-Disposition: attachment; filename='.basename($filename));
 277                 header('Content-Transfer-Encoding: binary');
 278                 header('Content-Type: application/vnd.ms-excel;');                 // This should work for IE & Opera
 279                 header("Content-type: application/x-msexcel");                    // This should work for the rest
 280                 header('Expires: 0');
 281                 header('Cache-Control: must-revalidate, post-check=0, pre-check=0');
 282                 header('Pragma: public');
 283                 header('Content-Length: ' . filesize($filename));
 284                 ob_clean();
 285                 flush();
 286                 readfile($filename);
 287
 288         }
 289
 290         //xls file downloaded complete
 291         $query = "update de_identification_status set status = 0";
 292         $res = sqlStatement($query);
 293 }
 294 ?>
 295 </body>
 296 </html>
 297