interface/orders/lab_exchange_tools.php

   1 <?php
   2 // Copyright (C) 2010 OpenEMR Support LLC
   3 // This program is free software; you can redistribute it and/or
   4 // modify it under the terms of the GNU General Public License
   5 // as published by the Free Software Foundation; either version 2
   6 // of the License, or (at your option) any later version.
   7
   8 require_once("../globals.php");
   9
  10 // Find and match the patient with the incoming lab report.
  11 // return patient pid if matched else return false
  12 function lab_exchange_match_patient($externalId, $firstName, $middleName, $lastName, $dob, $gender, $ssn, $address) {
  13     $sql = "SELECT pid from patient_data WHERE ";
  14     $where = "";
  15     /*
  16     // Search for pid and return if pid match with $externalId(from lab API)
  17     if ($externalId != "") {
  18         $where .= "pid = '".add_escape_custom($externalId)."' " ;
  19         $res = sqlQuery($sql . $where);
  20         if ($res['pid']) {
  21             return $res['pid'];
  22         }
  23         else {
  24             $where = "";
  25         }
  26     }
  27     */
  28
  29     // If empty $externalId or externalId no matched
  30     if (preg_replace("/[:space:]/", "", $firstName) != "")
  31         $where .= "fname = '".add_escape_custom($firstName)."' " ;
  32
  33     if (preg_replace("/[:space:]/", "", $lastName) != "") {
  34         if ($where != "") $where .= "AND ";
  35         $where .= "lname = '".add_escape_custom($lastName)."' " ;
  36     }
  37
  38 //    if (ereg_replace("[:space:]", "", $middleName) != ""){
  39 //        if ($where != "") $where .= "AND ";
  40 //        $where .= "mname = '".add_escape_custom($middleName)."' " ;
  41 //    }
  42
  43     if (preg_replace("/[:space:]/", "", $dob) != ""){
  44         if ($where != "") $where .= "AND ";
  45         $where .= "DOB = DATE_FORMAT('".add_escape_custom($dob)."', '%Y-%m-%d') " ;
  46     }
  47
  48     if (preg_replace("/[:space:]/", "", $gender) != "") {
  49         if ($gender =="F") $sex = "Female";
  50         if ($gender =="M") $sex = "Male";
  51
  52         if(isset($sex))
  53         {
  54             if ($where != "") $where .= "AND ";
  55             $where .= "(sex = '".add_escape_custom($sex)."' OR sex = '" . add_escape_custom($gender) ."')" ;
  56         }
  57     }
  58
  59     if (preg_replace("/[:space:]/", "", $ssn) != ""){
  60         if ($where != "") $where .= "AND ";
  61         // Change to xxx-xx-xxxx format.
  62         $ss = substr($ssn,0,3)."-".substr($ssn,3,2)."-".substr($ssn,5);
  63         $where .= "(ss = '".add_escape_custom($ssn)."' OR ss = '".add_escape_custom($ss)."' OR ss = '')";
  64     }
  65
  66     if ($where == "") {
  67         return false;
  68     }
  69     else {
  70         $res = sqlQuery($sql . $where);
  71         if ($res['pid']) {
  72             return $res['pid'];
  73         }
  74         else {
  75             return false;
  76         }
  77     }
  78 }
  79
  80 /**
  81  * identify the lab ordering provider and return the userid.
  82  *
  83  * parameters are populated from the lab result
  84  *
  85  * @param <type> $id
  86  * @param <type> $lastName
  87  * @param <type> $firstName
  88  * @return <type> user.id
  89  *
  90 function lab_exchange_match_provider($id, $lastName, $firstName) {
  91     $sql = "SELECT user_id from laboratory_providers WHERE ";
  92     $where = "";
  93
  94     if (ereg_replace("[:space:]", "", $lastName) != "")
  95         $where .= "provider_lname = '".add_escape_custom($lastName)."' " ;
  96
  97     if (ereg_replace("[:space:]", "", $firstName) != "") {
  98         if ($where != "") $where .= "AND ";
  99         $where .= "provider_fname = '".add_escape_custom($firstName)."' " ;
 100     }
 101
 102     if (ereg_replace("[:space:]", "", $id) != "") {
 103         if ($where != "") $where .= "AND ";
 104         $where .= "provider_id = '".add_escape_custom($id)."' " ;
 105     }
 106
 107     if ($where == "") {
 108         return false;
 109     }
 110     else {
 111         $res = sqlQuery($sql . $where);
 112         if ($res['user_id']) {
 113 //            echo "found id: " . $res['user_id'];
 114             return $res['user_id'];
 115         }
 116         else {
 117 //            echo "found no id using " . $lastName .", " . $firstName .", " . $id;
 118             return false;
 119         }
 120     }
 121 }
 122 */
 123
 124 /**
 125  * identify the lab ordering provider and return the userid.
 126  *
 127  * parameters are populated from the lab result
 128  *
 129  * @param <type> $id
 130  * @param <type> $lastName
 131  * @param <type> $firstName
 132  * @return <type> user.id if npi exists in users table; false if npi cannot be found
 133  */
 134 function lab_exchange_match_provider($npi)
 135 {
 136     $npi = trim($npi);
 137
 138     if(!empty($npi))
 139     {
 140         $sql = "SELECT id from users WHERE npi = " . $npi;
 141         $res = sqlQuery($sql);
 142     }
 143     return isset($res['id']) ? $res['id'] : false;
 144 }
 145
 146 /**
 147  * process the lab facility information
 148  *
 149  * @param <type> $facilities - potentially multiple facilities for performing lab info
 150  * @return <type> facilityID
 151  */
 152 function processFacility($facilities)
 153 {
 154         // Loop through the facility
 155         // There can be several facilities.
 156         // Also there is no good place to store a reference to users.id for facility info lookup,
 157         // so I'm concatenating the table id onto the lab id prior to the addition of a colon
 158
 159         $facilityId = null;
 160
 161         foreach ($facilities as $facility) {
 162             // Access facility fields
 163             $users_id = "";
 164
 165             if(!$users_id = getLabFacility($facility))
 166             {
 167                 $users_id = addNewLabFacility($facility);
 168             }
 169             $facilityId[] = $facility->FacilityID . "_" . $users_id;   //=>procedure_result.facility
 170
 171         }
 172
 173         if (count($facilityId) > 0) {
 174             $str_facilityId = implode(":", $facilityId);
 175         }
 176         return $str_facilityId;
 177 }
 178 /**
 179  *
 180  * @param <type> $facility
 181  * @return <type> returns the user id for the lab facility record if it exists in the database, false otherwise.
 182  */
 183 function getLabFacility($facility)
 184 {
 185     $query = "select id from users where fname = '" . trim($facility->FacilityDirectorFirstName) . "' AND " .
 186                         "lname = '" . trim($facility->FacilityDirectorLastName) . "' AND " .
 187                         "street = '" . trim($facility->FacilityAddress) . "' AND " .
 188                         "city = '" . trim($facility->FacilityCity) . "' AND " .
 189                         "state = '" . trim($facility->FacilityState) . "' AND " .
 190                         "zip = " . trim($facility->FacilityZip) . " AND " .
 191                         "organization = '" . trim($facility->FacilityName) ."'";
 192
 193     $res = sqlStatement($query);
 194     $result = sqlFetchArray($res);
 195
 196     return isset($result['id']) ? $result['id'] : false;
 197 }
 198 /**
 199  *
 200  * @param <type> $facilityID
 201  * @return <type> the result set, false if the input is malformed
 202  */
 203 function getFacilityInfo($facilityID)
 204 {
 205     // facility ID will be in the format XX_YY, where XX is the lab-assigned id, Y is the user.id record representing that lab facility, and the _ is a divider.
 206     $facility = explode("_", $facilityID);
 207
 208     if(count($facility) > 1)
 209     {
 210         $query = "select
 211                 title,fname,lname,street,city,state,zip,organization,phone
 212                 from users where id = " . $facility[1];
 213
 214         $res = sqlStatement($query);
 215         return sqlFetchArray($res);
 216     }
 217     return false;
 218 }
 219 /**
 220  *
 221  * @param <type> $facility
 222  * @return <type> returns the id
 223  */
 224 function addNewLabFacility($facility)
 225 {
 226     $query = "INSERT INTO users ( " .
 227     "username, password, authorized, info, source, " .
 228     "title, fname, lname, mname,  " .
 229     "federaltaxid, federaldrugid, upin, facility, see_auth, active, npi, taxonomy, " .
 230     "specialty, organization, valedictory, assistant, billname, email, url, " .
 231     "street, streetb, city, state, zip, " .
 232     "street2, streetb2, city2, state2, zip2," .
 233     "phone, phonew1, phonew2, phonecell, fax, notes, abook_type "            .
 234     ") VALUES ( "                        .
 235     "'', "                               . // username
 236     "'', "                               . // password
 237     "0, "                                . // authorized
 238     "'', "                               . // info
 239     "NULL, "                             . // source
 240     "'" . trim($facility->FacilityDirectorTitle)         . "', " .
 241     "'" . trim($facility->FacilityDirectorFirstName)         . "', " .
 242     "'" . trim($facility->FacilityDirectorLastName)         . "', " .
 243     "'', " .
 244     "'', " .
 245     "'', "                               . // federaldrugid
 246     "'', " .
 247     "'', "                               . // facility
 248     "0, "                                . // see_auth
 249     "1, "                                . // active
 250     "'', " .
 251     "'', " .
 252     "'', " .
 253     "'" . trim($facility->FacilityName)  . "', " .
 254     "'', " .
 255     "'', " .
 256     "'', "                               . // billname
 257     "'', " .
 258     "'', " .
 259     "'" . trim($facility->FacilityAddress)        . "', " .
 260     "'', " .
 261     "'" . trim($facility->FacilityCity)          . "', " .
 262     "'" . trim($facility->FacilityState)         . "', " .
 263     "'" . trim($facility->FacilityZip)           . "', " .
 264     "'', " .
 265     "'', " .
 266     "'', " .
 267     "'', " .
 268     "'', " .
 269     "'" . trim($facility->FacilityPhone)         . "', " .
 270     "'', " .
 271     "'', " .
 272     "'', " .
 273     "'', " .
 274     "'', " .
 275     "'ord_lab'"  .
 276     ")";
 277
 278     return sqlInsert($query);
 279 }
 280
 281 function mapReportStatus($stat) {
 282     $return_status = $stat;
 283
 284     // if($stat == "")
 285         // $return_status = "unknown";
 286     if($stat=="F" || $stat=="f")
 287         $return_status = "final";
 288     if($stat=="P" || $stat=="p")
 289         $return_status = "prelim";
 290     if($stat=="X" || $stat=="x")
 291         $return_status = "cancel";
 292     if($stat=="C" || $stat=="c")
 293         $return_status = "correct";
 294
 295     return $return_status;
 296 }
 297
 298 function mapResultStatus($stat) {
 299     $return_status = $stat;
 300
 301     // if($stat == "")
 302          // $return_status = "unknown";
 303     if($stat=="F" || $stat=="f")
 304          $return_status = "final";
 305     if($stat=="P" || $stat=="p")
 306          $return_status = "prelim";
 307     if($stat=="X" || $stat=="x")
 308          $return_status = "cancel";
 309     if($stat=="C" || $stat=="c")
 310          $return_status = "correct";
 311     if($stat=="I" || $stat=="i")
 312         $return_status = "incomplete";
 313
 314     return $return_status;
 315 }
 316
 317 function mapAbnormalStatus($stat) {
 318     $return_status = $stat;
 319
 320     // if($stat == "")
 321         // $return_status = "unknown";
 322     if($stat=="L" || $stat=="l")
 323          $return_status = "low";
 324     if($stat=="H" || $stat=="h")
 325          $return_status = "high";
 326     if($stat=="LL" || $stat=="ll")
 327          $return_status = "low";
 328     if($stat=="HH" || $stat=="hh")
 329          $return_status = "high";
 330     if($stat=="<")
 331          $return_status = "low";
 332     if($stat==">")
 333          $return_status = "high";
 334     if($stat=="A" || $stat=="a")
 335         $return_status = "yes";
 336
 337     return $return_status;
 338 }
 339
 340 function formatPhone($phone)
 341 {
 342         $phone = preg_replace("/[^0-9]/", "", $phone);
 343         if(strlen($phone) == 7)
 344                 return preg_replace("/([0-9]{3})([0-9]{4})/", "$1-$2", $phone);
 345         elseif(strlen($phone) == 10)
 346                 return preg_replace("/([0-9]{3})([0-9]{3})([0-9]{4})/", "($1) $2-$3", $phone);
 347         else
 348                 return $phone;
 349 }
 350
 351 ?>