library/patient.inc

   1 <?php
   2 include_once("{$GLOBALS['srcdir']}/sql.inc");
   3 require_once(dirname(__FILE__) . "/classes/WSWrapper.class.php");
   4
   5 function getPatientData($pid, $given = "*, DATE_FORMAT(DOB,'%m/%d/%Y') as DOB_TS") {
   6         $sql = "select $given from patient_data where pid='$pid' order by date DESC limit 0,1";
   7         return sqlQuery($sql);
   8 }
   9
  10 function getLanguages() {
  11         $returnval = array('','english');
  12         $sql = "select distinct lower(language) as language from patient_data";
  13         $rez = sqlStatement($sql);
  14         for($iter=0; $row=sqlFetchArray($rez); $iter++) {
  15                 if (($row["language"] != "english") && ($row["language"] != "")) {
  16                         array_push($returnval, $row["language"]);
  17                 }
  18         }
  19
  20
  21         return $returnval;
  22 }
  23
  24 function getInsuranceProviders() {
  25         $returnval = array();
  26
  27         if (true) {
  28                 $sql = "select name, id from insurance_companies order by name, id";
  29                 $rez = sqlStatement($sql);
  30                 for($iter=0; $row=sqlFetchArray($rez); $iter++) {
  31                         $returnval[$row['id']] = $row['name'];
  32                 }
  33         }
  34
  35         // Please leave this here. I have a user who wants to see zip codes and PO
  36         // box numbers listed along with the insurance company names, as many companies
  37         // have different billing addresses for different plans.  -- Rod Roark
  38         //
  39         else {
  40                 $sql = "select insurance_companies.name, insurance_companies.id, " .
  41                   "addresses.zip, addresses.line1 " .
  42                   "from insurance_companies, addresses " .
  43                   "where addresses.foreign_id = insurance_companies.id " .
  44                   "order by insurance_companies.name, addresses.zip";
  45
  46                 $rez = sqlStatement($sql);
  47
  48                 for($iter=0; $row=sqlFetchArray($rez); $iter++) {
  49                         preg_match("/\d+/", $row['line1'], $matches);
  50                         $returnval[$row['id']] = $row['name'] . " (" . $row['zip'] .
  51                           "," . $matches[0] . ")";
  52                 }
  53         }
  54
  55         // print_r($retval);
  56
  57         return $returnval;
  58 }
  59
  60
  61 function getProviders() {
  62         $returnval = array("");
  63         $sql = "select fname,lname from users where authorized=1";
  64         $rez = sqlStatement($sql);
  65         for($iter=0; $row=sqlFetchArray($rez); $iter++) {
  66                 if (($row["fname"] != "") && ($row["lname"] != "")) {
  67                         array_push($returnval, $row["fname"] . " " . $row["lname"]);
  68                 }
  69         }
  70
  71
  72         return $returnval;
  73 }
  74
  75 function getProviderInfo($providerID = "%", $providers_only = true) {
  76         $param1 = "";
  77         if ($providers_only) {
  78                 $param1 = "AND authorized=1";
  79         }
  80         $command = "=";
  81         if ($providerID == "%") {
  82                 $command = "like";
  83         }
  84         $query = "select distinct id,username,lname,fname, authorized, info, facility from users where id $command '" . mysql_real_escape_string($providerID) . "' " . $param1;
  85         $rez = sqlStatement($query);
  86         for($iter=0; $row=sqlFetchArray($rez); $iter++)
  87                 $returnval[$iter]=$row;
  88
  89         //if only one result returned take the key/value pairs in array [0] and merge them down the the base array so that $resultval[0]['key'] is also
  90         //accessible from $resultval['key']
  91
  92         if($iter==1) {
  93                 $akeys = array_keys($returnval[0]);
  94                 foreach($akeys as $key) {
  95
  96                         $returnval[0][$key] = $returnval[0][$key];
  97                 }
  98         }
  99         return $returnval;
 100 }
 101
 102 //same as above but does not reduce if only 1 row returned
 103 function getCalendarProviderInfo($providerID = "%", $providers_only = true) {
 104         $param1 = "";
 105         if ($providers_only) {
 106                 $param1 = "AND authorized=1";
 107         }
 108         $command = "=";
 109         if ($providerID == "%") {
 110                 $command = "like";
 111         }
 112         $query = "select distinct id,username,lname,fname, authorized, info, facility from users where id $command '" . mysql_real_escape_string($providerID) . "' " . $param1;
 113
 114         $rez = sqlStatement($query);
 115         for($iter=0; $row=sqlFetchArray($rez); $iter++)
 116                 $returnval[$iter]=$row;
 117
 118         return $returnval;
 119 }
 120
 121
 122
 123 function getProviderName($providerID) {
 124
 125         $pi = getProviderInfo($providerID);
 126
 127         if (strlen($pi[0]["lname"]) > 0) {
 128                 return $pi[0]['fname'] . " " . $pi[0]['lname'];
 129         }
 130
 131         return "";
 132 }
 133
 134 function getProviderId($providerName) {
 135         $query = "select id from users where username = '". mysql_real_escape_string($providerName)."'";
 136
 137         $rez = sqlStatement($query);
 138         for($iter=0; $row=sqlFetchArray($rez); $iter++)
 139                 $returnval[$iter]=$row;
 140
 141         return $returnval;
 142 }
 143
 144 function getEthnoRacials() {
 145         $returnval = array("");
 146         $sql = "select distinct lower(ethnoracial) as ethnoracial from patient_data";
 147         $rez = sqlStatement($sql);
 148         for($iter=0; $row=sqlFetchArray($rez); $iter++) {
 149                 if (($row["ethnoracial"] != "")) {
 150                         array_push($returnval, $row["ethnoracial"]);
 151                 }
 152         }
 153
 154
 155         return $returnval;
 156 }
 157
 158 function getHistoryData($pid, $given = "*")
 159 {
 160         $sql = "select $given from history_data where pid='$pid' order by date DESC limit 0,1";
 161         return sqlQuery($sql);
 162 }
 163
 164 function getInsuranceData($pid, $type = "primary", $given = "insd.*, DATE_FORMAT(subscriber_DOB,'%m/%d/%Y') as subscriber_DOB, ic.name as provider_name")
 165 {
 166         $sql = "select $given from insurance_data as insd left join insurance_companies as ic on ic.id = insd.provider where pid='$pid' and type='$type' order by date DESC limit 0,1";
 167         return sqlQuery($sql);
 168 }
 169
 170 function getInsuranceDataByDate( $pid, $date, $type, $given = "insd.*, DATE_FORMAT(subscriber_DOB,'%m/%d/%Y') as subscriber_DOB, ic.name as provider_name")
 171 { //this must take the date in the following manner: YYYY-MM-DD
 172         //this function recalls the insurance value that was most recently enterred from the
 173         //given date. it will call up most recent records up to and on the date given,
 174         //but not records enterred after the given date
 175         $sql = "select $given from insurance_data as insd left join insurance_companies as ic on ic.id = provider where pid='$pid' and  date_format(date,'%Y-%m-%d')<='$date' and type='$type' order by date DESC limit 0,1";
 176         return sqlQuery($sql);
 177 }
 178
 179
 180 function getEmployerData($pid, $given = "*")
 181 {
 182         $sql = "select $given from employer_data where pid='$pid' order by date DESC limit 0,1";
 183         return sqlQuery($sql);
 184 }
 185
 186 function getPatientLnames($lname = "%", $given = "pid, id, lname, fname, mname, providerID, DATE_FORMAT(DOB,'%m/%d/%Y') as DOB_TS", $orderby = "lname ASC, fname ASC", $limit="all", $start="0")
 187 {
 188         /****
 189         $sql="select pid, MAX(id) as id from patient_data group by pid DESC order by pid ASC";
 190         $res = sqlStatement($sql);
 191         $sql="select $given from patient_data where lname like '$lname%' and (";
 192         for ($iter = 0;$row = sqlFetchArray($res);$iter++)
 193                 $sql.=" id='{$row['id']}' or";
 194         if ($iter > 0)
 195                 $sql = substr($sql, 0, -3) . ") order by $orderby";
 196         else
 197                 $sql = substr($sql, 0, -5)."order by $orderby";
 198         ****/
 199
 200         // WTF? That was a good way to create a 200KB sql statement.
 201
 202         $sql="select $given from patient_data where lname like '$lname%' " .
 203                 "order by $orderby";
 204
 205         if ($limit != "all")
 206                 $sql .= " limit $start, $limit";
 207         $rez = sqlStatement($sql);
 208
 209         for($iter=0; $row=sqlFetchArray($rez); $iter++)
 210                 $returnval[$iter]=$row;
 211
 212         return $returnval;
 213 }
 214
 215 function getPatientId($pid = "%", $given = "pid, id, lname, fname, mname, providerID, DATE_FORMAT(DOB,'%m/%d/%Y') as DOB_TS", $orderby = "lname ASC, fname ASC", $limit="all", $start="0")
 216 {
 217         /****
 218         $sql="select pid, MAX(id) as id from patient_data group by pid DESC order by pid ASC";
 219         $res = sqlStatement($sql);
 220         $sql="select $given from patient_data where pubpid like '$pid%' and (";
 221         for ($iter = 0;$row = sqlFetchArray($res);$iter++)
 222                 $sql.=" id='{$row['id']}' or";
 223         if ($iter > 0)
 224                 $sql = substr($sql, 0, -3) . ") order by $orderby";
 225         else
 226                 $sql = substr($sql, 0, -5)."order by $orderby";
 227         ****/
 228
 229         $sql = "select $given from patient_data where pubpid like '$pid%' " .
 230                 "order by $orderby";
 231
 232         if ($limit != "all")
 233                 $sql .= " limit $start, $limit";
 234         $rez = sqlStatement($sql);
 235         for($iter=0; $row=sqlFetchArray($rez); $iter++)
 236                 $returnval[$iter]=$row;
 237
 238         return $returnval;
 239 }
 240
 241 function getPatientPID($pid = "%", $given = "pid, id, lname, fname, mname, providerID, DATE_FORMAT(DOB,'%m/%d/%Y') as DOB_TS", $orderby = "lname ASC, fname ASC", $limit="all", $start="0")
 242 {
 243         $command = "=";
 244         if ($pid == -1)
 245                 $pid = "%";
 246         elseif (empty($pid))
 247                 $pid = "NULL";
 248
 249         if (strstr($pid,"%"))
 250                 $command = "like";
 251
 252         $sql="select $given from patient_data where pid $command '$pid' order by $orderby";
 253
 254         if ($limit != "all")
 255                 $sql .= " limit $start, $limit";
 256
 257         $rez = sqlStatement($sql);
 258         for($iter=0; $row=sqlFetchArray($rez); $iter++)
 259                 $returnval[$iter]=$row;
 260
 261
 262         return $returnval;
 263 }
 264
 265 function getPatientName($pid) {
 266         if (empty($pid))
 267                 return "";
 268         $patientData = getPatientPID($pid);
 269         if (empty($patientData[0]['lname']))
 270                 return "";
 271         $patientName =  $patientData[0]['lname'] . ", " . $patientData[0]['fname'];
 272         return $patientName;
 273 }
 274
 275
 276 function getPatientDOB($DOB = "%", $given = "pid, id, lname, fname, mname", $orderby = "lname ASC, fname ASC", $limit="all", $start="0")
 277 {
 278         /****
 279         $sql="select pid, MAX(id) as id from patient_data group by pid DESC order by pid ASC";
 280         $res = sqlStatement($sql);
 281         $sql="select $given from patient_data where DOB like '$DOB%' and (";
 282         for ($iter = 0;$row = sqlFetchArray($res);$iter++)
 283                 $sql.=" id='{$row['id']}' or";
 284         if ($iter > 0)
 285                 $sql = substr($sql, 0, -3) . ") order by $orderby";
 286         else
 287                 $sql = substr($sql, 0, -5)."order by $orderby";
 288         ****/
 289
 290         $DOB = fixDate($DOB, $DOB);
 291
 292         $sql="select $given from patient_data where DOB like '$DOB%' " .
 293                 "order by $orderby";
 294
 295         if ($limit != "all")
 296                 $sql .= " limit $start, $limit";
 297
 298         $rez = sqlStatement($sql);
 299         for($iter=0; $row=sqlFetchArray($rez); $iter++)
 300                 $returnval[$iter]=$row;
 301
 302         return $returnval;
 303 }
 304
 305 function getPatientSSN($ss = "%", $given = "pid, id, lname, fname, mname, providerID", $orderby = "lname ASC, fname ASC", $limit="all", $start="0")
 306 {
 307         /****
 308         $sql="select pid, MAX(id) as id from patient_data group by pid DESC order by pid ASC";
 309         $res = sqlStatement($sql);
 310         $sql="select $given from patient_data where ss like '$ss%' and (";
 311         for ($iter = 0;$row = sqlFetchArray($res);$iter++)
 312                 $sql.=" id='{$row['id']}' or";
 313         if ($iter > 0)
 314                 $sql = substr($sql, 0, -3) . ") order by $orderby";
 315         else
 316                 $sql = substr($sql, 0, -5)."order by $orderby";
 317         ****/
 318
 319         $sql="select $given from patient_data where ss like '$ss%' " .
 320                 "order by $orderby";
 321
 322         if ($limit != "all")
 323                 $sql .= " limit $start, $limit";
 324
 325         $rez = sqlStatement($sql);
 326         for($iter=0; $row=sqlFetchArray($rez); $iter++)
 327                 $returnval[$iter]=$row;
 328
 329         return $returnval;
 330 }
 331
 332 function getPatientIds($given = "pid, id, lname, fname, mname", $orderby = "id ASC", $limit="all", $start="0")
 333 {
 334         /****
 335         $sql="select pid, MAX(id) as id from patient_data group by pid DESC order by pid ASC";
 336         $res = sqlStatement($sql);
 337         $sql="select $given from patient_data where ";
 338         for ($iter = 0;$row = sqlFetchArray($res);$iter++)
 339                 $sql.="id='{$row['id']}' or ";
 340         $sql = substr($sql, 0, -3) . "order by $orderby";
 341         ****/
 342
 343         $sql="select $given from patient_data order by $orderby";
 344
 345         if ($limit != "all")
 346                 $sql .= " limit $start, $limit";
 347
 348         $rez = sqlStatement($sql);
 349         for($iter=0; $row=sqlFetchArray($rez); $iter++)
 350                 $returnval[$iter]=$row;
 351
 352         return $returnval;
 353 }
 354
 355 //----------------------input functions
 356 function newPatientData(        $db_id="",
 357                                 $title = "",
 358                                 $fname = "",
 359                                 $lname = "",
 360                                 $mname = "",
 361                                 $sex = "",
 362                                 $DOB = "",
 363                                 $street = "",
 364                                 $postal_code = "",
 365                                 $city = "",
 366                                 $state = "",
 367                                 $country_code = "",
 368                                 $ss = "",
 369                                 $occupation = "",
 370                                 $phone_home = "",
 371                                 $phone_biz = "",
 372                                 $phone_contact = "",
 373                                 $status = "",
 374                                 $contact_relationship = "",
 375                                 $referrer = "",
 376                                 $referrerID = "",
 377                                 $email = "",
 378                                 $language = "",
 379                                 $ethnoracial = "",
 380                                 $interpretter = "",
 381                                 $migrantseasonal = "",
 382                                 $family_size = "",
 383                                 $monthly_income = "",
 384                                 $homeless = "",
 385                                 $financial_review = "",
 386                                 $pubpid = "",
 387                                 $pid = "MAX(pid)+1",
 388                                 $providerID = "",
 389                                 $genericname1 = "",
 390                                 $genericval1 = "",
 391                                 $genericname2 = "",
 392                                 $genericval2 = "",
 393                                 $phone_cell = ""
 394                         )
 395 {
 396         $DOB = fixDate($DOB);
 397
 398         // Looking for problems... suspecting that $pid might be clobbered.
 399         //
 400         if ($pid) {
 401                 $rez = sqlQuery("select id from patient_data where pid = $pid");
 402                 if ($db_id != $rez['id']) {
 403                         $errmsg = "Internal error: Attempt to change patient_data.id from '" .
 404                           $rez['id'] . "' to '$db_id' for pid '$pid'";
 405                         die($errmsg);
 406                 }
 407         }
 408
 409         $query = ("replace into patient_data set
 410                 id='$db_id',
 411                 title='$title',
 412                 fname='$fname',
 413                 lname='$lname',
 414                 mname='$mname',
 415                 sex='$sex',
 416                 DOB='$DOB',
 417                 street='$street',
 418                 postal_code='$postal_code',
 419                 city='$city',
 420                 state='$state',
 421                 country_code='$country_code',
 422                 ss='$ss',
 423                 occupation='$occupation',
 424                 phone_home='$phone_home',
 425                 phone_biz='$phone_biz',
 426                 phone_contact='$phone_contact',
 427                 status='$status',
 428                 contact_relationship='$contact_relationship',
 429                 referrer='$referrer',
 430                 referrerID='$referrerID',
 431                 email='$email',
 432                 language='$language',
 433                 ethnoracial='$ethnoracial',
 434                 interpretter='$interpretter',
 435                 migrantseasonal='$migrantseasonal',
 436                 family_size='$family_size',
 437                 monthly_income='$monthly_income',
 438                 homeless='$homeless',
 439                 financial_review='$financial_review',
 440                 pubpid='$pubpid',
 441                 pid = $pid,
 442                 providerID = '$providerID',
 443                 genericname1 = '$genericname1',
 444                 genericval1 = '$genericval1',
 445                 genericname2 = '$genericname2',
 446                 genericval2 = '$genericval2',
 447                 phone_cell = '$phone_cell',
 448                 date=NOW()
 449                         ");
 450
 451         $id = sqlInsert($query);
 452         $foo = sqlQuery("select pid from patient_data where id='$id' order by date limit 0,1");
 453
 454         sync_patient($id,$fname,$lname,$street,$city,$postal_code,$state,$phone_home,
 455                                 $phone_biz,$email);
 456
 457         return $foo['pid'];
 458 }
 459
 460 // Supported input date formats are:
 461 //   mm/dd/yyyy
 462 //   mm/dd/yy   (assumes 19yy)
 463 //   yyyy/mm/dd
 464 //   also mm-dd-yyyy, etc. and mm.dd.yyyy, etc.
 465 //
 466 function fixDate($date, $default="0000-00-00") {
 467     $fixed_date = $default;
 468     $date = trim($date);
 469     if (preg_match("'^[0-9]{1,4}[/.-][0-9]{1,2}[/.-][0-9]{1,4}$'", $date)) {
 470         $dmy = preg_split("'[/.-]'", $date);
 471         if ($dmy[0] > 99) {
 472             $fixed_date = sprintf("%04u-%02u-%02u", $dmy[0], $dmy[1], $dmy[2]);
 473         } else {
 474             if ($dmy[2] < 1000) $dmy[2] += 1900;
 475             $fixed_date = sprintf("%04u-%02u-%02u", $dmy[2], $dmy[0], $dmy[1]);
 476         }
 477     }
 478
 479     return $fixed_date;
 480 }
 481
 482
 483 function updatePatientData($pid,$new)
 484 {
 485         $real = getPatientData($pid);
 486         $new['DOB'] = fixDate($new['DOB']);
 487         while(list($key, $value) = each ($new))
 488                 $real[$key] = $value;
 489         $real['date'] = "'+NOW()+'";
 490         $real['id'] = "";
 491
 492         $sql = "insert into patient_data set ";
 493         while(list($key, $value) = each($real))
 494                 $sql .= $key." = '$value', ";
 495         $sql = substr($sql, 0, -2);
 496
 497
 498         return sqlInsert($sql);
 499 }
 500
 501
 502 function newEmployerData(       $pid,
 503                                 $name = "",
 504                                 $street = "",
 505                                 $postal_code = "",
 506                                 $city = "",
 507                                 $state = "",
 508                                 $country = ""
 509                         )
 510 {
 511         return sqlInsert("insert into employer_data set
 512                 name='$name',
 513                 street='$street',
 514                 postal_code='$postal_code',
 515                 city='$city',
 516                 state='$state',
 517                 country='$country',
 518                 pid='$pid',
 519                 date=NOW()
 520                 ");
 521 }
 522
 523 function updateEmployerData($pid,$new)
 524 {
 525         $real = getEmployerData($pid);
 526         while(list($key, $value) = each ($new))
 527                 $real[$key] = $value;
 528         $real['date'] = "'+NOW()+'";
 529         $real['id'] = "";
 530
 531         $sql = "insert into employer_data set ";
 532         while(list($key, $value) = each($real))
 533                 $sql .= $key." = '$value', ";
 534         $sql = substr($sql, 0, -2);
 535
 536
 537         return sqlInsert($sql);
 538 }
 539
 540 function newInsuranceData(      $pid,
 541                                 $type = "",
 542                                 $provider = "",
 543                                 $policy_number = "",
 544                                 $group_number = "",
 545                                 $plan_name = "",
 546                                 $subscriber_lname = "",
 547                                 $subscriber_mname = "",
 548                                 $subscriber_fname = "",
 549                                 $subscriber_relationship = "",
 550                                 $subscriber_ss = "",
 551                                 $subscriber_DOB = "",
 552                                 $subscriber_street = "",
 553                                 $subscriber_postal_code = "",
 554                                 $subscriber_city = "",
 555                                 $subscriber_state = "",
 556                                 $subscriber_country = "",
 557                                 $subscriber_phone = "",
 558                                 $subscriber_employer = "",
 559                                 $subscriber_employer_street = "",
 560                                 $subscriber_employer_city = "",
 561                                 $subscriber_employer_postal_code = "",
 562                                 $subscriber_employer_state = "",
 563                                 $subscriber_employer_country = "",
 564                                 $copay = "",
 565                                 $subscriber_sex = ""
 566                         )
 567 {
 568         if (strlen($type) > 0) {
 569         $query = "select * from insurance_data where type='" . $type  . "' and pid = " . $pid .  " limit 1";
 570         }
 571         else {
 572                 return FALSE;
 573         }
 574         $res = sqlQuery ($query);
 575
 576         if ($res) {
 577                 $data['type'] = $type;
 578                 $data['provider'] = $provider;
 579                 $data['policy_number']=$policy_number;
 580                 $data['group_number']=$group_number;
 581                 $data['plan_name']=$plan_name;
 582                 $data['subscriber_lname']=$subscriber_lname;
 583                 $data['subscriber_mname']=$subscriber_mname;
 584                 $data['subscriber_fname']=$subscriber_fname;
 585                 $data['subscriber_relationship']=$subscriber_relationship;
 586                 $data['subscriber_ss']=$subscriber_ss;
 587                 $data['subscriber_DOB']=$subscriber_DOB;
 588                 $data['subscriber_street']=$subscriber_street;
 589                 $data['subscriber_postal_code']=$subscriber_postal_code;
 590                 $data['subscriber_city']=$subscriber_city;
 591                 $data['subscriber_state']=$subscriber_state;
 592                 $data['subscriber_country']=$subscriber_country;
 593                 $data['subscriber_phone']=$subscriber_phone;
 594                 $data['subscriber_employer']=$subscriber_employer;
 595                 $data['subscriber_employer_city']=$subscriber_employer_city;
 596                 $data['subscriber_employer_street']=$subscriber_employer_street;
 597                 $data['subscriber_employer_postal_code']=$subscriber_employer_postal_code;
 598                 $data['subscriber_employer_state']=$subscriber_employer_state;
 599                 $data['subscriber_employer_country']=$subscriber_employer_country;
 600                 $data['copay']=$copay;
 601                 $data['subscriber_sex']=$subscriber_sex;
 602                 $data['pid']=$pid;
 603                 $data['date']="NOW()";
 604         //      echo "updating<br><br>";
 605
 606                 return updateInsuranceData($pid,$data);
 607         }
 608         else {
 609         return sqlInsert("insert into insurance_data set
 610                 type='$type',
 611                 provider='$provider',
 612                 policy_number='$policy_number',
 613                 group_number='$group_number',
 614                 plan_name='$plan_name',
 615                 subscriber_lname='$subscriber_lname',
 616                 subscriber_mname='$subscriber_mname',
 617                 subscriber_fname='$subscriber_fname',
 618                 subscriber_relationship='$subscriber_relationship',
 619                 subscriber_ss='$subscriber_ss',
 620                 subscriber_DOB='$subscriber_DOB',
 621                 subscriber_street='$subscriber_street',
 622                 subscriber_postal_code='$subscriber_postal_code',
 623                 subscriber_city='$subscriber_city',
 624                 subscriber_state='$subscriber_state',
 625                 subscriber_country='$subscriber_country',
 626                 subscriber_phone='$subscriber_phone',
 627                 subscriber_employer = '$subscriber_employer',
 628                 subscriber_employer_city='$subscriber_employer_city',
 629                 subscriber_employer_street='$subscriber_employer_street',
 630                 subscriber_employer_postal_code='$subscriber_employer_postal_code',
 631                 subscriber_employer_state='$subscriber_employer_state',
 632                 subscriber_employer_country='$subscriber_employer_country',
 633                 copay='$copay',
 634                 subscriber_sex='$subscriber_sex',
 635                 pid='$pid',
 636                 date=NOW()
 637                 ");
 638         }
 639 }
 640
 641 function updateInsuranceData($pid,$new)
 642 {
 643                 $fields = sqlListFields("insurance_data");
 644
 645         $real = getInsuranceData($pid);
 646         $use = array();
 647         while(list($key, $value) = each ($new)) {
 648                         if (in_array($key,$fields)){
 649                         $use[$key] = $value;
 650                         }
 651                 }
 652         $real['date'] = "'+NOW()+'";
 653         $real['id'] = "";
 654
 655         $sql = "replace into insurance_data set ";
 656         while(list($key, $value) = each($use))
 657                 $sql .= $key." = '$value', ";
 658
 659
 660         $sql = substr($sql, 0, -2);
 661
 662         //echo $sql;
 663         //exit;
 664         return sqlInsert($sql);
 665 }
 666
 667
 668 function newHistoryData(        $pid,
 669                                 $coffee = "",
 670                                 $tobacco = "",
 671                                 $alcohol = "",
 672                                 $sleep_patterns = "",
 673                                 $exercise_patterns = "",
 674                                 $seatbelt_use = "",
 675                                 $counseling = "",
 676                                 $hazardous_activities = "",
 677                                 $last_breast_exam = "",
 678                                 $last_mammogram = "",
 679                                 $last_gynocological_exam = "",
 680                                 $last_rectal_exam = "",
 681                                 $last_prostate_exam = "",
 682                                 $last_physical_exam = "",
 683                                 $last_sigmoidoscopy_colonoscopy = "",
 684                                 $history_mother = "",
 685                                 $history_father = "",
 686                                 $history_siblings = "",
 687                                 $history_offspring = "",
 688                                 $history_spouse = "",
 689                                 $relatives_cancer = "",
 690                                 $relatives_tuberculosis = "",
 691                                 $relatives_diabetes = "",
 692                                 $relatives_high_blood_pressure = "",
 693                                 $relatives_heart_problems = "",
 694                                 $relatives_stroke = "",
 695                                 $relatives_epilepsy = "",
 696                                 $relatives_mental_illness = "",
 697                                 $relatives_suicide = "",
 698                                 $cataract_surgery = "",
 699                                 $tonsillectomy = "",
 700                                 $appendectomy = "",
 701                                 $cholecystestomy = "",
 702                                 $heart_surgery = "",
 703                                 $hysterectomy = "",
 704                                 $hernia_repair = "",
 705                                 $hip_replacement = "",
 706                                 $knee_replacement = "",
 707                                 $name_1 = "",
 708                                 $value_1 = "",
 709                                 $name_2 = "",
 710                                 $value_2 = "",
 711                                 $additional_history = ""
 712                                 )
 713 {
 714         return sqlInsert("insert into history_data set
 715                 coffee='$coffee',
 716                 tobacco='$tobacco',
 717                 alcohol='$alcohol',
 718                 sleep_patterns='$sleep_patterns',
 719                 exercise_patterns='$exercise_patterns',
 720                 seatbelt_use='$seatbelt_use',
 721                 counseling='$counseling',
 722                 hazardous_activities='$hazardous_activities',
 723                 last_breast_exam='$last_breast_exam',
 724                 last_mammogram='$last_mammogram',
 725                 last_gynocological_exam='$last_gynocological_exam',
 726                 last_rectal_exam='$last_rectal_exam',
 727                 last_prostate_exam='$last_prostate_exam',
 728                 last_physical_exam='$last_physical_exam',
 729                 last_sigmoidoscopy_colonoscopy='$last_sigmoidoscopy_colonoscopy',
 730                 history_mother='$history_mother',
 731                 history_father='$history_father',
 732                 history_siblings='$history_siblings',
 733                 history_offspring='$history_offspring',
 734                 history_spouse='$history_spouse',
 735                 relatives_cancer='$relatives_cancer',
 736                 relatives_tuberculosis ='$relatives_tuberculosis',
 737                 relatives_diabetes='$relatives_diabetes',
 738                 relatives_high_blood_pressure='$relatives_high_blood_pressure',
 739                 relatives_heart_problems='$relatives_heart_problems',
 740                 relatives_stroke='$relatives_stroke',
 741                 relatives_epilepsy='$relatives_epilepsy',
 742                 relatives_mental_illness='$relatives_mental_illness',
 743                 relatives_suicide='$relatives_suicide',
 744                 cataract_surgery='$cataract_surgery',
 745                 tonsillectomy='$tonsillectomy',
 746                 appendectomy='$appendectomy',
 747                 cholecystestomy='$cholecystestomy',
 748                 heart_surgery='$heart_surgery',
 749                 hysterectomy='$hysterectomy',
 750                 hernia_repair='$hernia_repair',
 751                 hip_replacement='$hip_replacement',
 752                 knee_replacement='$knee_replacement',
 753                 name_1 = '$name_1',
 754                 value_1 = '$value_1',
 755                 name_2 = '$name_2',
 756                 value_2 = '$value_2',
 757                 additional_history = '$additional_history',
 758                 date=NOW(),
 759                 pid='$pid'
 760                 ");
 761 }
 762
 763 function updateHistoryData($pid,$new)
 764 {
 765         $real = getHistoryData($pid);
 766         while(list($key, $value) = each ($new))
 767                 $real[$key] = $value;
 768         $real['date'] = "'+NOW()+'";
 769         $real['id'] = "";
 770
 771         $sql = "insert into history_data set ";
 772         while(list($key, $value) = each($real))
 773                 $sql .= $key." = '$value', ";
 774         $sql = substr($sql, 0, -2);
 775
 776
 777         return sqlInsert($sql);
 778 }
 779
 780 function sync_patient($id,$fname,$lname,$street,$city,$postal_code,$state,$phone_home,
 781                                 $phone_biz,$email)
 782 {
 783         $db = $GLOBALS['adodb']['db'];
 784         $customer_info = array();
 785
 786         $sql = "SELECT foreign_id,foreign_table FROM integration_mapping where local_table = 'patient_data' and local_id = '" . $id . "'";
 787         $result = $db->Execute($sql);
 788         if ($result && !$result->EOF) {
 789                 $customer_info['foreign_update'] = true;
 790                 $customer_info['foreign_id'] = $result->fields['foreign_id'];
 791                 $customer_info['foreign_table'] = $result->fields['foreign_table'];
 792         }
 793
 794         ///xml rpc code to connect to accounting package and add user to it
 795         $customer_info['firstname'] = $fname;
 796         $customer_info['lastname'] = $lname;
 797         $customer_info['address'] = $street;
 798         $customer_info['suburb'] = $city;
 799         $customer_info['state'] = $state;
 800         $customer_info['postcode'] = $postal_code;
 801
 802         //ezybiz wants state as a code rather than abbreviation
 803         $customer_info['geo_zone_id'] = "";
 804         $sql = "SELECT zone_id from geo_zone_reference where zone_code = '" . strtoupper($state) . "'";
 805         $db = $GLOBALS['adodb']['db'];
 806         $result = $db->Execute($sql);
 807         if ($result && !$result->EOF) {
 808                 $customer_info['geo_zone_id'] = $result->fields['zone_id'];
 809         }
 810
 811         //ezybiz wants country as a code rather than abbreviation
 812         $customer_info['geo_country_id'] = "";
 813         $sql = "SELECT countries_id from geo_country_reference where countries_iso_code_2 = '" . strtoupper($country_code) . "'";
 814         $db = $GLOBALS['adodb']['db'];
 815         $result = $db->Execute($sql);
 816         if ($result && !$result->EOF) {
 817                 $customer_info['geo_country_id'] = $result->fields['countries_id'];
 818         }
 819
 820
 821         $customer_info['phone1'] = $phone_home;
 822         $customer_info['phone1comment'] = "Home Phone";
 823         $customer_info['phone2'] = $phone_biz;
 824         $customer_info['phone2comment'] = "Business Phone";
 825         $customer_info['email'] = $email;
 826
 827         $function['ezybiz.add_customer'] = array(new xmlrpcval($customer_info,"struct"));
 828         $ws = new WSWrapper($function);
 829
 830         // if the remote patient was added make an entry in the local mapping table to that updates can be made correctly
 831         if (is_numeric($ws->value)) {
 832                 $sql = "REPLACE INTO integration_mapping set id = '" . $db->GenID("sequences") . "', foreign_id ='" . $ws->value . "', foreign_table ='customer', local_id = '" . $id . "', local_table = 'patient_data' ";
 833                 $db->Execute($sql) or die ("error: " . $db->ErrorMsg());
 834         }
 835 }
 836
 837 // Returns Date of Birth given YYYYMMDD from MySQL DATE_FORMAT(DOB,'%Y%m%d')
 838 function getPatientAge($dobYMD)
 839 {
 840     $tdyYMD=date("Ymd");
 841     $yearDiff = substr($tdyYMD,0,4) - substr($dobYMD,0,4);
 842     $ageInMonths = ((substr($tdyYMD,0,4)*12)+substr($tdyYMD,4,2)) -
 843                    ((substr($dobYMD,0,4)*12)+substr($dobYMD,4,2));
 844     $dayDiff = substr($tdyYMD,6,2) - substr($dobYMD,6,2);
 845     if ( $dayDiff < 0 ) {
 846         $ageInMonths -= 1;
 847     }
 848     if ( $ageInMonths > 24 ) {
 849         $age = intval($ageInMonths/12);
 850     }
 851     else  {
 852         $age = "$ageInMonths month";
 853     }
 854     return $age;
 855 }
 856
 857 function dateToDB ($date)
 858 {
 859         $date=substr ($date,6,4)."-".substr ($date,3,2)."-".substr($date, 0,2);
 860         return $date;
 861 }
 862
 863
 864
 865
 866 function DBToDate ($date)
 867 {
 868         $date=substr ($date,5,2)."/".substr ($date,8,2)."/".substr($date, 0,4);
 869         return $date;
 870 }
 871 ?>