library/appointments.inc.php

   1 <?php
   2
   3  // Copyright (C) 2011 Ken Chapple
   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  // Holds library functions (and hashes) used by the appointment reporting module
  11
  12
  13
  14 require_once(dirname(__FILE__)."/encounter_events.inc.php");
  15 require_once(dirname(__FILE__)."/../interface/main/calendar/modules/PostCalendar/pnincludes/Date/Calc.php");
  16
  17
  18 $COMPARE_FUNCTION_HASH = array(
  19     'doctor' => 'compareAppointmentsByDoctorName',
  20     'patient' => 'compareAppointmentsByPatientName',
  21     'pubpid' => 'compareAppointmentsByPatientId',
  22     'date' => 'compareAppointmentsByDate',
  23     'time' => 'compareAppointmentsByTime',
  24     'type' => 'compareAppointmentsByType',
  25     'comment' => 'compareAppointmentsByComment',
  26     'status' => 'compareAppointmentsByStatus',
  27     'completed' => 'compareAppointmentsByCompletedDrugScreen',
  28     'trackerstatus' => 'compareAppointmentsByTrackerStatus'
  29 );
  30
  31 $ORDERHASH = array(
  32     'doctor' => array( 'doctor', 'date', 'time' ),
  33     'patient' => array( 'patient', 'date', 'time' ),
  34     'pubpid' => array( 'pubpid', 'date', 'time' ),
  35     'date' => array( 'date', 'time', 'type', 'patient' ),
  36     'time' => array( 'time', 'date', 'patient' ),
  37     'type' => array( 'type', 'date', 'time', 'patient' ),
  38     'comment' => array( 'comment', 'date', 'time', 'patient' ),
  39     'status' => array( 'status', 'date', 'time', 'patient' ),
  40     'completed' => array( 'completed', 'date', 'time', 'patient' ),
  41     'trackerstatus' => array( 'trackerstatus', 'date', 'time', 'patient' ),
  42 );
  43
  44 /*Arrays for the interpretation of recurrence patterns.*/
  45 $REPEAT_FREQ = array(
  46     '1' => xl('Every'),
  47     '2' => xl('Every 2nd'),
  48     '3' => xl('Every 3rd'),
  49     '4' => xl('Every 4th'),
  50     '5' => xl('Every 5th'),
  51     '6' => xl('Every 6th')
  52 );
  53
  54 $REPEAT_FREQ_TYPE = array(
  55     '0' => xl('day'),
  56     '1' => xl('week'),
  57     '2' => xl('month'),
  58     '3' => xl('year'),
  59     '4' => xl('workday')
  60 );
  61
  62 $REPEAT_ON_NUM = array(
  63     '1' => xl('1st'),
  64     '2' => xl('2nd'),
  65     '3' => xl('3rd'),
  66     '4' => xl('4th'),
  67     '5' => xl('Last')
  68 );
  69
  70 $REPEAT_ON_DAY = array(
  71     '0' => xl('Sunday'),
  72     '1' => xl('Monday'),
  73     '2' => xl('Tuesday'),
  74     '3' => xl('Wednesday'),
  75     '4' => xl('Thursday'),
  76     '5' => xl('Friday'),
  77     '6' => xl('Saturday')
  78 );
  79
  80 function fetchEvents( $from_date, $to_date, $where_param = null, $orderby_param = null, $tracker_board = false, $nextX = 0, $bind_param = null, $query_param = null )
  81 {
  82
  83     $sqlBindArray = array();
  84
  85     if($query_param) {
  86
  87         $query = $query_param;
  88
  89         if($bind_param) $sqlBindArray = $bind_param;
  90
  91     } else {
  92         //////
  93         if($nextX) {
  94
  95             $where =
  96             "((e.pc_endDate >= ? AND e.pc_recurrtype > '0') OR " .
  97             "(e.pc_eventDate >= ?))";
  98
  99             array_push($sqlBindArray, $from_date, $from_date);
 100
 101         } else {
 102           //////
 103             $where =
 104             "((e.pc_endDate >= ? AND e.pc_eventDate <= ? AND e.pc_recurrtype > '0') OR " .
 105             "(e.pc_eventDate >= ? AND e.pc_eventDate <= ?))";
 106
 107             array_push($sqlBindArray, $from_date, $to_date, $from_date, $to_date);
 108
 109         }
 110
 111         if ( $where_param ) $where .= $where_param;
 112
 113         $order_by = "e.pc_eventDate, e.pc_startTime";
 114         if ( $orderby_param ) {
 115              $order_by = $orderby_param;
 116         }
 117
 118         // Tracker Board specific stuff
 119         $tracker_fields = '';
 120         $tracker_joins = '';
 121         if ($tracker_board) {
 122             $tracker_fields = "e.pc_room, e.pc_pid, t.id, t.date, t.apptdate, t.appttime, t.eid, t.pid, t.original_user, t.encounter, t.lastseq, t.random_drug_test, t.drug_screen_completed, " .
 123             "q.pt_tracker_id, q.start_datetime, q.room, q.status, q.seq, q.user, " .
 124             "s.toggle_setting_1, s.toggle_setting_2, s.option_id, ";
 125             $tracker_joins = "LEFT OUTER JOIN patient_tracker AS t ON t.pid = e.pc_pid AND t.apptdate = e.pc_eventDate AND t.appttime = e.pc_starttime AND t.eid = e.pc_eid " .
 126             "LEFT OUTER JOIN patient_tracker_element AS q ON q.pt_tracker_id = t.id AND q.seq = t.lastseq " .
 127             "LEFT OUTER JOIN list_options AS s ON s.list_id = 'apptstat' AND s.option_id = q.status AND s.activity = 1 " ;
 128         }
 129
 130         $query = "SELECT " .
 131         "e.pc_eventDate, e.pc_endDate, e.pc_startTime, e.pc_endTime, e.pc_duration, e.pc_recurrtype, e.pc_recurrspec, e.pc_recurrfreq, e.pc_catid, e.pc_eid, e.pc_gid, " .
 132         "e.pc_title, e.pc_hometext, e.pc_apptstatus, " .
 133         "p.fname, p.mname, p.lname, p.pid, p.pubpid, p.phone_home, p.phone_cell, " .
 134         "u.fname AS ufname, u.mname AS umname, u.lname AS ulname, u.id AS uprovider_id, " .
 135         "f.name, " .
 136         "$tracker_fields" .
 137         "c.pc_catname, c.pc_catid " .
 138         "FROM openemr_postcalendar_events AS e " .
 139         "$tracker_joins" .
 140         "LEFT OUTER JOIN facility AS f ON e.pc_facility = f.id " .
 141         "LEFT OUTER JOIN patient_data AS p ON p.pid = e.pc_pid " .
 142         "LEFT OUTER JOIN users AS u ON u.id = e.pc_aid " .
 143         "LEFT OUTER JOIN openemr_postcalendar_categories AS c ON c.pc_catid = e.pc_catid " .
 144         "WHERE $where " .
 145         "ORDER BY $order_by";
 146
 147         if($bind_param) $sqlBindArray = array_merge($sqlBindArray, $bind_param);
 148
 149     }
 150
 151
 152   ///////////////////////////////////////////////////////////////////////
 153   // The following code is from the calculateEvents function in the    //
 154   // PostCalendar Module modified and inserted here by epsdky          //
 155   ///////////////////////////////////////////////////////////////////////
 156
 157     $events2 = array();
 158
 159     $res = sqlStatement($query, $sqlBindArray);
 160
 161   ////////
 162     if($nextX) {
 163         global $resNotNull;
 164         $resNotNull = (isset($res) && $res != null);
 165     }
 166
 167     while ($event = sqlFetchArray($res)) {
 168         ///////
 169         if($nextX) $stopDate = $event['pc_endDate'];
 170         else $stopDate = ($event['pc_endDate'] <= $to_date) ? $event['pc_endDate'] : $to_date;
 171         ///////
 172         $incX = 0;
 173         switch($event['pc_recurrtype']) {
 174
 175             case '0' :
 176
 177                 $events2[] = $event;
 178
 179               break;
 180       //////
 181             case '1' :
 182             case '3' :
 183                 $event_recurrspec = @unserialize($event['pc_recurrspec']);
 184
 185                 $rfreq = $event_recurrspec['event_repeat_freq'];
 186                 $rtype = $event_recurrspec['event_repeat_freq_type'];
 187                 $exdate = $event_recurrspec['exdate'];
 188
 189                 list($ny,$nm,$nd) = explode('-',$event['pc_eventDate']);
 190         //        $occurance = Date_Calc::dateFormat($nd,$nm,$ny,'%Y-%m-%d');
 191                 $occurance = $event['pc_eventDate'];
 192
 193                 while($occurance < $from_date) {
 194                     $occurance =& __increment($nd,$nm,$ny,$rfreq,$rtype);
 195                     list($ny,$nm,$nd) = explode('-',$occurance);
 196                 }
 197
 198                 while($occurance <= $stopDate) {
 199
 200                     $excluded = false;
 201                     if (isset($exdate)) {
 202                         foreach (explode(",", $exdate) as $exception) {
 203                             // occurrance format == yyyy-mm-dd
 204                             // exception format == yyyymmdd
 205                             if (preg_replace("/-/", "", $occurance) == $exception) {
 206                                 $excluded = true;
 207                             }
 208                         }
 209                     }
 210
 211                     if ($excluded == false) {
 212                         $event['pc_eventDate'] = $occurance;
 213                         $event['pc_endDate'] = '0000-00-00';
 214                         $events2[] = $event;
 215                       //////
 216                         if ($nextX) {
 217                             ++$incX;
 218                             if($incX == $nextX) break;
 219                         }
 220                       //////
 221                     }
 222
 223                     $occurance =& __increment($nd,$nm,$ny,$rfreq,$rtype);
 224                     list($ny,$nm,$nd) = explode('-',$occurance);
 225
 226                 }
 227
 228               break;
 229
 230       //////
 231             case '2' :
 232
 233                 $event_recurrspec = @unserialize($event['pc_recurrspec']);
 234
 235                 $rfreq = $event_recurrspec['event_repeat_on_freq'];
 236                 $rnum  = $event_recurrspec['event_repeat_on_num'];
 237                 $rday  = $event_recurrspec['event_repeat_on_day'];
 238                 $exdate = $event_recurrspec['exdate'];
 239
 240                 list($ny,$nm,$nd) = explode('-',$event['pc_eventDate']);
 241
 242                 if(isset($event_recurrspec['rt2_pf_flag']) && $event_recurrspec['rt2_pf_flag']) $nd = 1;
 243
 244                 $occuranceYm = "$ny-$nm"; // YYYY-mm
 245                 $from_dateYm = substr($from_date,0,7); // YYYY-mm
 246                 $stopDateYm = substr($stopDate,0,7); // YYYY-mm
 247
 248                 // $nd will sometimes be 29, 30 or 31 and if used in the mktime functions below
 249                 // a problem with overflow will occur so it is set to 1 to avoid this (for rt2
 250                 // appointments set prior to fix $nd remains unchanged). This can be done since
 251                 // $nd has no influence past the mktime functions.
 252                 while($occuranceYm < $from_dateYm) {
 253                     $occuranceYmX = date('Y-m-d',mktime(0,0,0,$nm+$rfreq,$nd,$ny));
 254                     list($ny,$nm,$nd) = explode('-',$occuranceYmX);
 255                     $occuranceYm = "$ny-$nm";
 256                 }
 257
 258                 while($occuranceYm <= $stopDateYm) {
 259
 260                     // (YYYY-mm)-dd
 261                     $dnum = $rnum;
 262                     do {
 263                         $occurance = Date_Calc::NWeekdayOfMonth($dnum--,$rday,$nm,$ny,$format="%Y-%m-%d");
 264                     } while($occurance === -1);
 265
 266                     if($occurance >= $from_date && $occurance <= $stopDate) {
 267
 268                         $excluded = false;
 269                         if (isset($exdate)) {
 270                             foreach (explode(",", $exdate) as $exception) {
 271                                 // occurrance format == yyyy-mm-dd
 272                                 // exception format == yyyymmdd
 273                                 if (preg_replace("/-/", "", $occurance) == $exception) {
 274                                     $excluded = true;
 275                                 }
 276                             }
 277                         }
 278
 279                         if ($excluded == false) {
 280
 281                             $event['pc_eventDate'] = $occurance;
 282                             $event['pc_endDate'] = '0000-00-00';
 283                             $events2[] = $event;
 284                             //////
 285                             if($nextX) {
 286                                 ++$incX;
 287                                 if($incX == $nextX) break;
 288                             }
 289                             //////
 290
 291                         }
 292
 293                     }
 294
 295                     $occuranceYmX = date('Y-m-d',mktime(0,0,0,$nm+$rfreq,$nd,$ny));
 296                     list($ny,$nm,$nd) = explode('-',$occuranceYmX);
 297                     $occuranceYm = "$ny-$nm";
 298
 299                 }
 300
 301               break;
 302
 303
 304
 305         }
 306
 307     }
 308     return $events2;
 309 ////////////////////// End of code inserted by epsdky
 310 }
 311
 312 function fetchAllEvents( $from_date, $to_date, $provider_id = null, $facility_id = null )
 313 {
 314     $sqlBindArray = array();
 315
 316     $where = "";
 317
 318     if ( $provider_id ) {
 319         $where .= " AND e.pc_aid = ?";
 320         array_push($sqlBindArray, $provider_id);
 321     }
 322
 323     if ( $facility_id ) {
 324         $where .= " AND e.pc_facility = ? AND u.facility_id = ?";
 325         array_push($sqlBindArray, $facility_id, $facility_id);
 326     }
 327
 328     $appointments = fetchEvents( $from_date, $to_date, $where, null, false, 0, $sqlBindArray );
 329     return $appointments;
 330 }
 331
 332 //Support for therapy group appointments added by shachar z.
 333 function fetchAppointments( $from_date, $to_date, $patient_id = null, $provider_id = null, $facility_id = null, $pc_appstatus = null, $with_out_provider = null, $with_out_facility = null, $pc_catid = null, $tracker_board = false, $nextX = 0, $group_id = null, $patient_name = null)
 334 {
 335     $sqlBindArray = array();
 336
 337     $where = "";
 338
 339     if ( $provider_id ) {
 340         $where .= " AND e.pc_aid = ?";
 341         array_push($sqlBindArray, $provider_id);
 342     }
 343
 344     if ( $patient_id ) {
 345         $where .= " AND e.pc_pid = ?";
 346         array_push($sqlBindArray, $patient_id);
 347     } elseif ( $group_id ) {
 348         //if $group_id this means we want only the group events
 349         $where .= " AND e.pc_gid = ? AND e.pc_pid = ''";
 350         array_push($sqlBindArray, $group_id);
 351     } else {
 352         $where .= " AND e.pc_pid != ''";
 353     }
 354
 355     if ( $facility_id ) {
 356         $where .= " AND e.pc_facility = ?";
 357         array_push($sqlBindArray, $facility_id);
 358     }
 359
 360     //Appointment Status Checking
 361     if ($pc_appstatus != '') {
 362         $where .= " AND e.pc_apptstatus = ?";
 363         array_push($sqlBindArray, $pc_appstatus);
 364     }
 365
 366     if ($pc_catid != null) {
 367         $where .= " AND e.pc_catid = ?";
 368         array_push($sqlBindArray, $pc_catid);
 369     }
 370
 371     if ($patient_name != null) {
 372         $where .= " AND (p.fname LIKE CONCAT('%',?,'%') OR p.lname LIKE CONCAT('%',?,'%'))";
 373         array_push($sqlBindArray, $patient_name, $patient_name);
 374     }
 375
 376     //Without Provider checking
 377     if ($with_out_provider != '') {
 378         $where .= " AND e.pc_aid = ''";
 379     }
 380
 381     //Without Facility checking
 382     if ($with_out_facility != '') {
 383         $where .= " AND e.pc_facility = 0";
 384     }
 385
 386     $appointments = fetchEvents( $from_date, $to_date, $where, '', $tracker_board, $nextX, $sqlBindArray );
 387     return $appointments;
 388 }
 389
 390 //Support for therapy group appointments added by shachar z.
 391 function fetchNextXAppts($from_date, $patient_id, $nextX = 1, $group_id = null)
 392 {
 393
 394     $appts = array();
 395     $nextXAppts = array();
 396     $appts = fetchAppointments( $from_date, null, $patient_id, null, null, null, null, null, null, false, $nextX, $group_id);
 397     if($appts) {
 398         $appts = sortAppointments($appts);
 399         $nextXAppts = array_slice($appts, 0, $nextX);
 400     }
 401     return $nextXAppts;
 402
 403 }
 404
 405 // get the event slot size in seconds
 406 function getSlotSize()
 407 {
 408     if ( isset( $GLOBALS['calendar_interval'] ) ) {
 409         return $GLOBALS['calendar_interval'] * 60;
 410     }
 411     return 15 * 60;
 412 }
 413
 414 function getAvailableSlots( $from_date, $to_date, $provider_id = null, $facility_id = null )
 415 {
 416     $appointments = fetchAllEvents( $from_date, $to_date, $provider_id, $facility_id );
 417     $appointments = sortAppointments( $appointments, "date" );
 418     $from_datetime = strtotime( $from_date." 00:00:00" );
 419     $to_datetime = strtotime( $to_date." 23:59:59" );
 420     $availableSlots = array();
 421     $start_time = 0;
 422     $date = 0;
 423     for ( $i = 0; $i < count( $appointments ); ++$i )
 424     {
 425         if ( $appointments[$i]['pc_catid'] == 2 ) { // 2 == In Office
 426             $start_time = $appointments[$i]['pc_startTime'];
 427             $date = $appointments[$i]['pc_eventDate'];
 428             $provider_id = $appointments[$i]['uprovider_id'];
 429         } else if ( $appointments[$i]['pc_catid'] == 3 ) { // 3 == Out Of Office
 430             continue;
 431         } else {
 432             $start_time = $appointments[$i]['pc_endTime'];
 433             $date = $appointments[$i]['pc_eventDate'];
 434             $provider_id = $appointments[$i]['uprovider_id'];
 435         }
 436
 437         // find next appointment with the same provider
 438         $next_appointment_date = 0;
 439         $next_appointment_time = 0;
 440         for ( $j = $i+1; $j < count( $appointments ); ++$j ) {
 441             if ( $appointments[$j]['uprovider_id'] == $provider_id ) {
 442                 $next_appointment_date = $appointments[$j]['pc_eventDate'];
 443                 $next_appointment_time = $appointments[$j]['pc_startTime'];
 444                 break;
 445             }
 446         }
 447
 448         $same_day = ( strtotime( $next_appointment_date ) == strtotime( $date ) ) ? true : false;
 449
 450         if ( $next_appointment_time && $same_day ) {
 451             // check the start time of the next appointment
 452
 453             $start_datetime = strtotime( $date." ".$start_time );
 454             $next_appointment_datetime = strtotime( $next_appointment_date." ".$next_appointment_time );
 455             $curr_time = $start_datetime;
 456             while ( $curr_time < $next_appointment_datetime - (getSlotSize() / 2) ) {
 457                 //create a new appointment ever 15 minutes
 458                 $time = date( "H:i:s", $curr_time );
 459                 $available_slot = createAvailableSlot(
 460                     $appointments[$i]['pc_eventDate'],
 461                     $time,
 462                     $appointments[$i]['ufname'],
 463                     $appointments[$i]['ulname'],
 464                     $appointments[$i]['umname'] );
 465                 $availableSlots []= $available_slot;
 466                 $curr_time += getSlotSize(); // add a 15-minute slot
 467             }
 468         }
 469     }
 470
 471     return $availableSlots;
 472 }
 473
 474 function createAvailableSlot( $event_date, $start_time, $provider_fname, $provider_lname, $provider_mname = "", $cat_name = "Available" )
 475 {
 476     $newSlot = array();
 477     $newSlot['ulname'] = $provider_lname;
 478     $newSlot['ufname'] = $provider_fname;
 479     $newSlot['umname'] = $provider_mname;
 480     $newSlot['pc_eventDate'] = $event_date;
 481     $newSlot['pc_startTime'] = $start_time;
 482     $newSlot['pc_endTime'] = $start_time;
 483     $newSlot['pc_catname'] = $cat_name;
 484     return $newSlot;
 485 }
 486
 487 function getCompareFunction( $code )
 488 {
 489     global $COMPARE_FUNCTION_HASH;
 490     return $COMPARE_FUNCTION_HASH[$code];
 491 }
 492
 493 function getComparisonOrder( $code )
 494 {
 495     global $ORDERHASH;
 496     return $ORDERHASH[$code];
 497 }
 498
 499
 500 function sortAppointments( array $appointments, $orderBy = 'date' )
 501 {
 502     global $appointment_sort_order;
 503     $appointment_sort_order = $orderBy;
 504     usort( $appointments, "compareAppointments" );
 505     return $appointments;
 506 }
 507
 508 // cmp_function for usort
 509 // The comparison function must return an integer less than, equal to,
 510 // or greater than zero if the first argument is considered to be respectively less than, equal to, or greater than the second.
 511 function compareAppointments( $appointment1, $appointment2 )
 512 {
 513     global $appointment_sort_order;
 514     $comparisonOrder = getComparisonOrder( $appointment_sort_order );
 515     foreach ($comparisonOrder as $comparison) {
 516         $cmp_function = getCompareFunction($comparison);
 517         $result = $cmp_function($appointment1, $appointment2);
 518         if (0 != $result) {
 519             return $result;
 520         }
 521     }
 522
 523     return 0;
 524 }
 525
 526 function compareBasic( $e1, $e2 )
 527 {
 528     if ( $e1 < $e2 ) {
 529         return -1;
 530     } else if ( $e1 > $e2 ) {
 531         return 1;
 532     }
 533
 534     return 0;
 535 }
 536
 537 function compareAppointmentsByDate( $appointment1, $appointment2 )
 538 {
 539     $date1 = strtotime( $appointment1['pc_eventDate'] );
 540     $date2 = strtotime( $appointment2['pc_eventDate'] );
 541
 542     return compareBasic( $date1, $date2 );
 543 }
 544
 545 function compareAppointmentsByTime( $appointment1, $appointment2 )
 546 {
 547     $time1 = strtotime( $appointment1['pc_startTime'] );
 548     $time2 = strtotime( $appointment2['pc_startTime'] );
 549
 550     return compareBasic( $time1, $time2 );
 551 }
 552
 553 function compareAppointmentsByDoctorName( $appointment1, $appointment2 )
 554 {
 555     $name1 = $appointment1['ulname'];
 556     $name2 = $appointment2['ulname'];
 557     $cmp = compareBasic( $name1, $name2 );
 558     if ( $cmp == 0 ) {
 559         $name1 = $appointment1['ufname'];
 560         $name2 = $appointment2['ufname'];
 561         return compareBasic( $name1, $name2 );
 562     }
 563
 564     return $cmp;
 565 }
 566
 567 function compareAppointmentsByPatientName( $appointment1, $appointment2 )
 568 {
 569     $name1 = $appointment1['lname'];
 570     $name2 = $appointment2['lname'];
 571     $cmp = compareBasic( $name1, $name2 );
 572     if ( $cmp == 0 ) {
 573         $name1 = $appointment1['fname'];
 574         $name2 = $appointment2['fname'];
 575         return compareBasic( $name1, $name2 );
 576     }
 577
 578     return $cmp;
 579 }
 580
 581 function compareAppointmentsByType( $appointment1, $appointment2 )
 582 {
 583     $type1 = $appointment1['pc_catid'];
 584     $type2 = $appointment2['pc_catid'];
 585     return compareBasic( $type1, $type2 );
 586 }
 587
 588 function compareAppointmentsByPatientId( $appointment1, $appointment2 )
 589 {
 590     $id1 = $appointment1['pubpid'];
 591     $id2 = $appointment2['pubpid'];
 592     return compareBasic( $id1, $id2 );
 593 }
 594
 595 function compareAppointmentsByComment( $appointment1, $appointment2 )
 596 {
 597     $comment1 = $appointment1['pc_hometext'];
 598     $comment2 = $appointment2['pc_hometext'];
 599     return compareBasic( $comment1, $comment2 );
 600 }
 601
 602 function compareAppointmentsByStatus( $appointment1, $appointment2 )
 603 {
 604     $status1 = $appointment1['pc_apptstatus'];
 605     $status2 = $appointment2['pc_apptstatus'];
 606     return compareBasic( $status1, $status2 );
 607 }
 608
 609 function compareAppointmentsByTrackerStatus( $appointment1, $appointment2 )
 610 {
 611     $trackerstatus1 = $appointment1['status'];
 612     $trackerstatus2 = $appointment2['status'];
 613     return compareBasic( $trackerstatus1, $trackerstatus2 );
 614 }
 615
 616 function compareAppointmentsByCompletedDrugScreen( $appointment1, $appointment2 )
 617 {
 618     $completed1 = $appointment1['drug_screen_completed'];
 619     $completed2 = $appointment2['drug_screen_completed'];
 620     return compareBasic( $completed1, $completed2 );
 621 }
 622
 623 function fetchAppointmentCategories()
 624 {
 625      $catSQL= " SELECT pc_catid as id, pc_catname as category "
 626             . " FROM openemr_postcalendar_categories WHERE pc_recurrtype=0 and pc_cattype=0";
 627     if($GLOBALS['enable_group_therapy']) $catSQL .= " OR pc_cattype=3";
 628     $catSQL .= "  ORDER BY category";
 629      return sqlStatement($catSQL);
 630 }
 631
 632 function interpretRecurrence($recurr_freq, $recurr_type)
 633 {
 634     global $REPEAT_FREQ, $REPEAT_FREQ_TYPE, $REPEAT_ON_NUM, $REPEAT_ON_DAY;
 635     $interpreted = "";
 636     $recurr_freq = unserialize($recurr_freq);
 637     if($recurr_type == 1){
 638         $interpreted = $REPEAT_FREQ[$recurr_freq['event_repeat_freq']];
 639         $interpreted .= " " . $REPEAT_FREQ_TYPE[$recurr_freq['event_repeat_freq_type']];
 640     }
 641     elseif($recurr_type == 2){
 642         $interpreted = $REPEAT_FREQ[$recurr_freq['event_repeat_on_freq']];
 643         $interpreted .= " " . $REPEAT_ON_NUM[$recurr_freq['event_repeat_on_num']];
 644         $interpreted .= " " . $REPEAT_ON_DAY[$recurr_freq['event_repeat_on_day']];
 645     }
 646     elseif ($recurr_type == 3){
 647         $interpreted = $REPEAT_FREQ[1];
 648         $comma = "";
 649         $day_arr = explode(",", $recurr_freq['event_repeat_freq']);
 650         foreach ($day_arr as $day){
 651             $interpreted .= $comma . " " . $REPEAT_ON_DAY[$day - 1];
 652             $comma = ",";
 653         }
 654
 655     }
 656
 657     return $interpreted;
 658 }
 659
 660 function fetchRecurrences($pid)
 661 {
 662     $query = "SELECT pe.pc_title, pe.pc_endDate, pe.pc_recurrtype, pe.pc_recurrspec, pc.pc_catname FROM openemr_postcalendar_events AS pe "
 663                     . "JOIN openemr_postcalendar_categories AS pc ON pe.pc_catid=pc.pc_catid "
 664                     . "WHERE pe.pc_pid = ?  AND pe.pc_recurrtype > 0;";
 665     $sqlBindArray = array();
 666     array_push($sqlBindArray, $pid);
 667     $res = sqlStatement($query, $sqlBindArray);
 668     $row = 0;
 669     while($res_arr[$row] = sqlFetchArray($res)) {
 670         $res_arr[$row]['pc_recurrspec'] = interpretRecurrence($res_arr[$row]['pc_recurrspec'], $res_arr[$row]['pc_recurrtype']);
 671         $row++;
 672     }
 673     return $res_arr;
 674 }
 675
 676 function ends_in_a_week($end_date)
 677 {
 678     $timestamp_in_a_week = strtotime('+7 day');
 679     $timestamp_end_date = strtotime($end_date);
 680     if($timestamp_in_a_week > $timestamp_end_date){
 681         return true; //ends in a week
 682     }
 683     return false; // ends in more than a week
 684 }
 685
 686 //Checks if recurrence is current (didn't end yet).
 687 function recurrence_is_current($end_date)
 688 {
 689     $end_date_timestamp = strtotime($end_date);
 690     $current_timestamp = time();
 691     if($current_timestamp <= $end_date_timestamp){
 692         return true; //recurrence is current
 693     }
 694     return false;
 695 }
 696
 697 ?>