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