function calendar_arrived($form_pid)
{
$Today = date('Y-m-d');
//Take all recurring events relevent for today.
$result_event = sqlStatement("SELECT * FROM openemr_postcalendar_events WHERE pc_recurrtype='1' and pc_pid =? and pc_endDate!='0000-00-00' \n\t\tand pc_eventDate < ? and pc_endDate >= ? ", array($form_pid, $Today, $Today));
if (sqlNumRows($result_event) == 0) {
$result_event = sqlStatement("SELECT * FROM openemr_postcalendar_events WHERE pc_pid =?\tand pc_eventDate = ?", array($form_pid, $Today));
if (sqlNumRows($result_event) == 0) {
echo "<br><br><br>" . htmlspecialchars(xl('Sorry No Appointment is Fixed'), ENT_QUOTES) . ". " . htmlspecialchars(xl('No Encounter could be created'), ENT_QUOTES) . ".";
die;
} else {
$enc = todaysEncounterCheck($form_pid);
//create encounter
$zero_enc = 0;
sqlStatement("UPDATE openemr_postcalendar_events SET pc_apptstatus ='@' WHERE pc_pid =? and pc_eventDate = ?", array($form_pid, $Today));
}
} else {
while ($row_event = sqlFetchArray($result_event)) {
$pc_eid = $row_event['pc_eid'];
$pc_eventDate = $row_event['pc_eventDate'];
$pc_recurrspec_array = unserialize($row_event['pc_recurrspec']);
while (1) {
if ($pc_eventDate == $Today) {
if (!($exist_eid = check_event_exist($pc_eid))) {
update_event($pc_eid);
} else {
sqlStatement("UPDATE openemr_postcalendar_events SET pc_apptstatus = '@' WHERE pc_eid = ?", array($exist_eid));
}
$enc = todaysEncounterCheck($form_pid);
//create encounter
$zero_enc = 0;
break;
} elseif ($pc_eventDate > $Today) {
echo "<br><br><br>" . htmlspecialchars(xl('Sorry No Appointment is Fixed'), ENT_QUOTES) . ". " . htmlspecialchars(xl('No Encounter could be created'), ENT_QUOTES) . ".";
die;
break;
}
$pc_eventDate_array = split('-', $pc_eventDate);
//Find the next day as per the frequency definition.
$pc_eventDate =& __increment($pc_eventDate_array[2], $pc_eventDate_array[1], $pc_eventDate_array[0], $pc_recurrspec_array['event_repeat_freq'], $pc_recurrspec_array['event_repeat_freq_type']);
}
}
}
return $enc;
}
function fetchEvents($from_date, $to_date, $where_param = null, $orderby_param = null, $tracker_board = false, $nextX = 0, $bind_param = null, $query_param = null)
{
$sqlBindArray = array();
if ($query_param) {
$query = $query_param;
if ($bind_param) {
$sqlBindArray = $bind_param;
}
} else {
//////
if ($nextX) {
$where = "((e.pc_endDate >= ? AND e.pc_recurrtype > '0') OR " . "(e.pc_eventDate >= ?))";
array_push($sqlBindArray, $from_date, $from_date);
} else {
//////
$where = "((e.pc_endDate >= ? AND e.pc_eventDate <= ? AND e.pc_recurrtype > '0') OR " . "(e.pc_eventDate >= ? AND e.pc_eventDate <= ?))";
array_push($sqlBindArray, $from_date, $to_date, $from_date, $to_date);
}
if ($where_param) {
$where .= $where_param;
}
$order_by = "e.pc_eventDate, e.pc_startTime";
if ($orderby_param) {
$order_by = $orderby_param;
}
// Tracker Board specific stuff
$tracker_fields = '';
$tracker_joins = '';
if ($tracker_board) {
$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, " . "q.pt_tracker_id, q.start_datetime, q.room, q.status, q.seq, q.user, " . "s.toggle_setting_1, s.toggle_setting_2, s.option_id, ";
$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 " . "LEFT OUTER JOIN patient_tracker_element AS q ON q.pt_tracker_id = t.id AND q.seq = t.lastseq " . "LEFT OUTER JOIN list_options AS s ON s.list_id = 'apptstat' AND s.option_id = q.status AND s.activity = 1 ";
}
$query = "SELECT " . "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_title, e.pc_hometext, e.pc_apptstatus, " . "p.fname, p.mname, p.lname, p.pid, p.pubpid, p.phone_home, p.phone_cell, " . "u.fname AS ufname, u.mname AS umname, u.lname AS ulname, u.id AS uprovider_id, " . "f.name, " . "{$tracker_fields}" . "c.pc_catname, c.pc_catid " . "FROM openemr_postcalendar_events AS e " . "{$tracker_joins}" . "LEFT OUTER JOIN facility AS f ON e.pc_facility = f.id " . "LEFT OUTER JOIN patient_data AS p ON p.pid = e.pc_pid " . "LEFT OUTER JOIN users AS u ON u.id = e.pc_aid " . "LEFT OUTER JOIN openemr_postcalendar_categories AS c ON c.pc_catid = e.pc_catid " . "WHERE {$where} " . "ORDER BY {$order_by}";
if ($bind_param) {
$sqlBindArray = array_merge($sqlBindArray, $bind_param);
}
}
///////////////////////////////////////////////////////////////////////
// The following code is from the calculateEvents function in the //
// PostCalendar Module modified and inserted here by epsdky //
///////////////////////////////////////////////////////////////////////
$events2 = array();
$res = sqlStatement($query, $sqlBindArray);
////////
if ($nextX) {
global $resNotNull;
$resNotNull = isset($res) && $res != null;
}
while ($event = sqlFetchArray($res)) {
///////
if ($nextX) {
$stopDate = $event['pc_endDate'];
} else {
$stopDate = $event['pc_endDate'] <= $to_date ? $event['pc_endDate'] : $to_date;
}
///////
$incX = 0;
switch ($event['pc_recurrtype']) {
case '0':
$events2[] = $event;
break;
//////
//////
case '1':
case '3':
$event_recurrspec = @unserialize($event['pc_recurrspec']);
$rfreq = $event_recurrspec['event_repeat_freq'];
$rtype = $event_recurrspec['event_repeat_freq_type'];
$exdate = $event_recurrspec['exdate'];
list($ny, $nm, $nd) = explode('-', $event['pc_eventDate']);
// $occurance = Date_Calc::dateFormat($nd,$nm,$ny,'%Y-%m-%d');
$occurance = $event['pc_eventDate'];
while ($occurance < $from_date) {
$occurance =& __increment($nd, $nm, $ny, $rfreq, $rtype);
list($ny, $nm, $nd) = explode('-', $occurance);
}
while ($occurance <= $stopDate) {
$excluded = false;
if (isset($exdate)) {
foreach (explode(",", $exdate) as $exception) {
// occurrance format == yyyy-mm-dd
// exception format == yyyymmdd
if (preg_replace("/-/", "", $occurance) == $exception) {
$excluded = true;
}
}
}
if ($excluded == false) {
$event['pc_eventDate'] = $occurance;
$event['pc_endDate'] = '0000-00-00';
$events2[] = $event;
//////
if ($nextX) {
++$incX;
if ($incX == $nextX) {
break;
}
}
//////
}
$occurance =& __increment($nd, $nm, $ny, $rfreq, $rtype);
list($ny, $nm, $nd) = explode('-', $occurance);
}
break;
//////
//////
case '2':
$event_recurrspec = @unserialize($event['pc_recurrspec']);
$rfreq = $event_recurrspec['event_repeat_on_freq'];
$rnum = $event_recurrspec['event_repeat_on_num'];
$rday = $event_recurrspec['event_repeat_on_day'];
$exdate = $event_recurrspec['exdate'];
list($ny, $nm, $nd) = explode('-', $event['pc_eventDate']);
if (isset($event_recurrspec['rt2_pf_flag']) && $event_recurrspec['rt2_pf_flag']) {
$nd = 1;
}
$occuranceYm = "{$ny}-{$nm}";
// YYYY-mm
$from_dateYm = substr($from_date, 0, 7);
// YYYY-mm
$stopDateYm = substr($stopDate, 0, 7);
// YYYY-mm
// $nd will sometimes be 29, 30 or 31 and if used in the mktime functions below
// a problem with overflow will occur so it is set to 1 to avoid this (for rt2
// appointments set prior to fix $nd remains unchanged). This can be done since
// $nd has no influence past the mktime functions.
while ($occuranceYm < $from_dateYm) {
$occuranceYmX = date('Y-m-d', mktime(0, 0, 0, $nm + $rfreq, $nd, $ny));
list($ny, $nm, $nd) = explode('-', $occuranceYmX);
$occuranceYm = "{$ny}-{$nm}";
}
while ($occuranceYm <= $stopDateYm) {
// (YYYY-mm)-dd
$dnum = $rnum;
do {
$occurance = Date_Calc::NWeekdayOfMonth($dnum--, $rday, $nm, $ny, $format = "%Y-%m-%d");
} while ($occurance === -1);
if ($occurance >= $from_date && $occurance <= $stopDate) {
$excluded = false;
if (isset($exdate)) {
foreach (explode(",", $exdate) as $exception) {
// occurrance format == yyyy-mm-dd
// exception format == yyyymmdd
if (preg_replace("/-/", "", $occurance) == $exception) {
$excluded = true;
}
}
}
if ($excluded == false) {
$event['pc_eventDate'] = $occurance;
$event['pc_endDate'] = '0000-00-00';
$events2[] = $event;
//////
if ($nextX) {
++$incX;
if ($incX == $nextX) {
break;
}
}
//////
}
}
$occuranceYmX = date('Y-m-d', mktime(0, 0, 0, $nm + $rfreq, $nd, $ny));
list($ny, $nm, $nd) = explode('-', $occuranceYmX);
$occuranceYm = "{$ny}-{$nm}";
}
break;
}
}
return $events2;
////////////////////// End of code inserted by epsdky
}
function calculateEvents($days, $events, $viewtype)
{
$date = postcalendar_getDate();
$cy = substr($date, 0, 4);
$cm = substr($date, 4, 2);
$cd = substr($date, 6, 2);
foreach ($events as $event) {
// get the name of the topic
$topicname = pcGetTopicName($event['topic']);
// parse the event start date
list($esY, $esM, $esD) = explode('-', $event['eventDate']);
// grab the recurring specs for the event
$event_recurrspec = @unserialize($event['recurrspec']);
// determine the stop date for this event
if ($event['endDate'] == '0000-00-00') {
$stop = $end_date;
// <--- this isn't previously defined !!
} else {
$stop = $event['endDate'];
}
// here the start_date value is set to whatever comes in
// on postcalendar_getDate() which is not always the first
// date of the days array -- JRM
$start_date = "{$cy}-{$cm}-{$cd}";
// here we've made the start_date equal to the first date
// of the days array, makes sense, right? -- JRM
$days_keys = array_keys($days);
$start_date = $days_keys[0];
// Optimization of the stop date to not be much later than required.
$tmpsecs = strtotime($start_date);
if ($viewtype == 'day') {
$tmpsecs += 3 * 24 * 3600;
} else {
if ($viewtype == 'week') {
$tmpsecs += 9 * 24 * 3600;
} else {
if ($viewtype == 'month') {
$tmpsecs += 34 * 24 * 3600;
} else {
$tmpsecs += 367 * 24 * 3600;
}
}
}
$tmp = date('Y-m-d', $tmpsecs);
if ($stop > $tmp) {
$stop = $tmp;
}
$eventD = $event['eventDate'];
$eventS = $event['startTime'];
switch ($event['recurrtype']) {
//==============================================================
// Events that do not repeat only have a startday
//==============================================================
case NO_REPEAT:
if (isset($days[$event['eventDate']])) {
array_push($days[$event['eventDate']], $event);
if ($viewtype == "week") {
//echo "non repeating date eventdate: $eventD startime:$eventS block #: " . getBlockTime($eventS) ."<br />";
fillBlocks($eventD, $days);
//echo "for $eventD loading " . getBlockTime($eventS) . "<br /><br />";
$gbt = getBlockTime($eventS);
$days[$eventD]['blocks'][$gbt][$eventD][] = $event;
//echo "event is: " . print_r($days[$eventD]['blocks'][$gbt],true) . " <br />";
//echo "begin printing blocks for $eventD<br />";
//print_r($days[$eventD]['blocks']);
//echo "end printing blocks<br />";
}
}
break;
//==============================================================
// Find events that repeat at a certain frequency
// Every,Every Other,Every Third,Every Fourth
// Day,Week,Month,Year,MWF,TR,M-F,SS
//==============================================================
//==============================================================
// Find events that repeat at a certain frequency
// Every,Every Other,Every Third,Every Fourth
// Day,Week,Month,Year,MWF,TR,M-F,SS
//==============================================================
case REPEAT:
$rfreq = $event_recurrspec['event_repeat_freq'];
$rtype = $event_recurrspec['event_repeat_freq_type'];
$exdate = $event_recurrspec['exdate'];
// this attribute follows the iCalendar spec http://www.ietf.org/rfc/rfc2445.txt
// we should bring the event up to date to make this a tad bit faster
// any ideas on how to do that, exactly??? dateToDays probably.
$nm = $esM;
$ny = $esY;
$nd = $esD;
$occurance = Date_Calc::dateFormat($nd, $nm, $ny, '%Y-%m-%d');
while ($occurance < $start_date) {
$occurance =& __increment($nd, $nm, $ny, $rfreq, $rtype);
list($ny, $nm, $nd) = explode('-', $occurance);
}
while ($occurance <= $stop) {
if (isset($days[$occurance])) {
// check for date exceptions before pushing the event into the days array -- JRM
$excluded = false;
if (isset($exdate)) {
foreach (explode(",", $exdate) as $exception) {
// occurrance format == yyyy-mm-dd
// exception format == yyyymmdd
if (preg_replace("/-/", "", $occurance) == $exception) {
$excluded = true;
}
}
}
// push event into the days array
if ($excluded == false) {
array_push($days[$occurance], $event);
}
if ($viewtype == "week") {
fillBlocks($occurance, $days);
//echo "for $occurance loading " . getBlockTime($eventS) . "<br /><br />";
$gbt = getBlockTime($eventS);
$days[$occurance]['blocks'][$gbt][$occurance][] = $event;
//echo "begin printing blocks for $eventD<br />";
//print_r($days[$occurance]['blocks']);
//echo "end printing blocks<br />";
}
}
$occurance =& __increment($nd, $nm, $ny, $rfreq, $rtype);
list($ny, $nm, $nd) = explode('-', $occurance);
}
break;
//==============================================================
// Find events that repeat on certain parameters
// On 1st,2nd,3rd,4th,Last
// Sun,Mon,Tue,Wed,Thu,Fri,Sat
// Every N Months
//==============================================================
//==============================================================
// Find events that repeat on certain parameters
// On 1st,2nd,3rd,4th,Last
// Sun,Mon,Tue,Wed,Thu,Fri,Sat
// Every N Months
//==============================================================
case REPEAT_ON:
$rfreq = $event_recurrspec['event_repeat_on_freq'];
$rnum = $event_recurrspec['event_repeat_on_num'];
$rday = $event_recurrspec['event_repeat_on_day'];
$exdate = $event_recurrspec['exdate'];
// this attribute follows the iCalendar spec http://www.ietf.org/rfc/rfc2445.txt
//==============================================================
// Populate - Enter data into the event array
//==============================================================
$nm = $esM;
$ny = $esY;
$nd = $esD;
if (isset($event_recurrspec['rt2_pf_flag']) && $event_recurrspec['rt2_pf_flag']) {
$nd = 1;
}
// Added by epsdky 2016.
// $nd will sometimes be 29, 30 or 31 and if used in the mktime functions
// below a problem with overfow will occur so it is set to 1 to prevent this.
// (for rt2 appointments set prior to fix it remains unchanged). This can be done
// since $nd has no influence past the mktime functions - epsdky 2016.
// make us current
while ($ny < $cy) {
$occurance = date('Y-m-d', mktime(0, 0, 0, $nm + $rfreq, $nd, $ny));
list($ny, $nm, $nd) = explode('-', $occurance);
}
// populate the event array
while ($ny <= $cy) {
$dnum = $rnum;
// get day event repeats on
do {
$occurance = Date_Calc::NWeekdayOfMonth($dnum--, $rday, $nm, $ny, $format = "%Y-%m-%d");
} while ($occurance === -1);
if (isset($days[$occurance]) && $occurance <= $stop) {
// check for date exceptions before pushing the event into the days array -- JRM
$excluded = false;
if (isset($exdate)) {
foreach (explode(",", $exdate) as $exception) {
// occurrance format == yyyy-mm-dd
// exception format == yyyymmdd
if (preg_replace("/-/", "", $occurance) == $exception) {
$excluded = true;
}
}
}
// push event into the days array
if ($excluded == false) {
array_push($days[$occurance], $event);
}
if ($viewtype == "week") {
fillBlocks($occurance, $days);
//echo "for $occurance loading " . getBlockTime($eventS) . "<br /><br />";
$gbt = getBlockTime($eventS);
$days[$occurance]['blocks'][$gbt][$occurance][] = $event;
}
}
$occurance = date('Y-m-d', mktime(0, 0, 0, $nm + $rfreq, $nd, $ny));
list($ny, $nm, $nd) = explode('-', $occurance);
}
break;
case REPEAT_DAYS:
$rfreq = $event_recurrspec['event_repeat_freq'];
$rtype = $event_recurrspec['event_repeat_freq_type'];
$exdate = $event_recurrspec['exdate'];
// this attribute follows the iCalendar spec http://www.ietf.org/rfc/rfc2445.txt
// we should bring the event up to date to make this a tad bit faster
// any ideas on how to do that, exactly??? dateToDays probably.
$nm = $esM;
$ny = $esY;
$nd = $esD;
$occurance = Date_Calc::dateFormat($nd, $nm, $ny, '%Y-%m-%d');
while ($occurance < $start_date) {
$occurance =& __increment($nd, $nm, $ny, $rfreq, $rtype);
list($ny, $nm, $nd) = explode('-', $occurance);
}
while ($occurance <= $stop) {
if (isset($days[$occurance])) {
// check for date exceptions before pushing the event into the days array -- JRM
$excluded = false;
if (isset($exdate)) {
foreach (explode(",", $exdate) as $exception) {
// occurrance format == yyyy-mm-dd
// exception format == yyyymmdd
if (preg_replace("/-/", "", $occurance) == $exception) {
$excluded = true;
}
}
}
// push event into the days array
if ($excluded == false) {
array_push($days[$occurance], $event);
}
if ($viewtype == "week") {
fillBlocks($occurance, $days);
//echo "for $occurance loading " . getBlockTime($eventS) . "<br /><br />";
$gbt = getBlockTime($eventS);
$days[$occurance]['blocks'][$gbt][$occurance][] = $event;
//echo "begin printing blocks for $eventD<br />";
//print_r($days[$occurance]['blocks']);
//echo "end printing blocks<br />";
}
}
$occurance =& __increment($nd, $nm, $ny, $rfreq, $rtype);
list($ny, $nm, $nd) = explode('-', $occurance);
}
break;
}
// <- end of switch($event['recurrtype'])
}
// <- end of foreach($events as $event)
return $days;
}
function fetchEvents($from_date, $to_date, $where_param = null, $orderby_param = null, $tracker_board = false, $flagPSM = false)
{
//////
if ($flagPSM) {
// Patient Summary Mode
$where = "((e.pc_endDate >= CURRENT_DATE AND e.pc_recurrtype > '0') OR " . "(e.pc_eventDate >= CURRENT_DATE))";
} else {
//////
$where = "((e.pc_endDate >= '{$from_date}' AND e.pc_eventDate <= '{$to_date}' AND e.pc_recurrtype > '0') OR " . "(e.pc_eventDate >= '{$from_date}' AND e.pc_eventDate <= '{$to_date}'))";
}
if ($where_param) {
$where .= $where_param;
}
$order_by = "e.pc_eventDate, e.pc_startTime";
if ($orderby_param) {
$order_by = $orderby_param;
}
// Tracker Board specific stuff
$tracker_fields = '';
$tracker_joins = '';
if ($tracker_board) {
$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, " . "q.pt_tracker_id, q.start_datetime, q.room, q.status, q.seq, q.user, " . "s.toggle_setting_1, s.toggle_setting_2, s.option_id, ";
$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 " . "LEFT OUTER JOIN patient_tracker_element AS q ON q.pt_tracker_id = t.id AND q.seq = t.lastseq " . "LEFT OUTER JOIN list_options AS s ON s.list_id = 'apptstat' AND s.option_id = q.status ";
}
$query = "SELECT " . "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_title, e.pc_hometext, e.pc_apptstatus, " . "p.fname, p.mname, p.lname, p.pid, p.pubpid, p.phone_home, p.phone_cell, " . "u.fname AS ufname, u.mname AS umname, u.lname AS ulname, u.id AS uprovider_id, " . "{$tracker_fields}" . "c.pc_catname, c.pc_catid " . "FROM openemr_postcalendar_events AS e " . "{$tracker_joins}" . "LEFT OUTER JOIN patient_data AS p ON p.pid = e.pc_pid " . "LEFT OUTER JOIN users AS u ON u.id = e.pc_aid " . "LEFT OUTER JOIN openemr_postcalendar_categories AS c ON c.pc_catid = e.pc_catid " . "WHERE {$where} " . "ORDER BY {$order_by}";
///////////////////////////////////////////////////////////////////////
// The following code is from the calculateEvents function in the
// PostCalendar Module modified and inserted here by epsdky
$events2 = array();
$res = sqlStatement($query);
////////
if ($flagPSM) {
// Patient Summary Mode
global $resNotNull;
$resNotNull = isset($res) && $res != null;
}
while ($event = sqlFetchArray($res)) {
///////
if ($flagPSM) {
$stopDate = $event['pc_endDate'];
} else {
$stopDate = $event['pc_endDate'] <= $to_date ? $event['pc_endDate'] : $to_date;
}
///////
switch ($event['pc_recurrtype']) {
case '0':
$events2[] = $event;
break;
//////
//////
case '1':
$event_recurrspec = @unserialize($event['pc_recurrspec']);
$rfreq = $event_recurrspec['event_repeat_freq'];
$rtype = $event_recurrspec['event_repeat_freq_type'];
$exdate = $event_recurrspec['exdate'];
list($ny, $nm, $nd) = explode('-', $event['pc_eventDate']);
// $occurance = Date_Calc::dateFormat($nd,$nm,$ny,'%Y-%m-%d');
$occurance = $event['pc_eventDate'];
while ($occurance < $from_date) {
$occurance =& __increment($nd, $nm, $ny, $rfreq, $rtype);
list($ny, $nm, $nd) = explode('-', $occurance);
}
while ($occurance <= $stopDate) {
$excluded = false;
if (isset($exdate)) {
foreach (explode(",", $exdate) as $exception) {
// occurrance format == yyyy-mm-dd
// exception format == yyyymmdd
if (preg_replace("/-/", "", $occurance) == $exception) {
$excluded = true;
}
}
}
if ($excluded == false) {
$event['pc_eventDate'] = $occurance;
$event['pc_endDate'] = '0000-00-00';
$events2[] = $event;
//////
if ($flagPSM) {
break;
}
//////
}
$occurance =& __increment($nd, $nm, $ny, $rfreq, $rtype);
list($ny, $nm, $nd) = explode('-', $occurance);
}
break;
//////
//////
case '2':
$event_recurrspec = @unserialize($event['pc_recurrspec']);
$rfreq = $event_recurrspec['event_repeat_on_freq'];
$rnum = $event_recurrspec['event_repeat_on_num'];
$rday = $event_recurrspec['event_repeat_on_day'];
$exdate = $event_recurrspec['exdate'];
list($ny, $nm, $nd) = explode('-', $event['pc_eventDate']);
$occuranceYm = "{$ny}-{$nm}";
// YYYY-mm
$from_dateYm = substr($from_date, 0, 7);
// YYYY-mm
$stopDateYm = substr($stopDate, 0, 7);
// YYYY-mm
// $nd will sometimes be 29, 30 or 31, and if used in mktime below, a problem
// with overflow will occur ('01' should be plugged in to avoid this). We need
// to mirror the calendar code which has this problem, so $nd has been used.
while ($occuranceYm < $from_dateYm) {
$occuranceYmX = date('Y-m-d', mktime(0, 0, 0, $nm + $rfreq, $nd, $ny));
list($ny, $nm, $nd) = explode('-', $occuranceYmX);
$occuranceYm = "{$ny}-{$nm}";
}
while ($occuranceYm <= $stopDateYm) {
// (YYYY-mm)-dd
$dnum = $rnum;
do {
$occurance = Date_Calc::NWeekdayOfMonth($dnum--, $rday, $nm, $ny, $format = "%Y-%m-%d");
} while ($occurance === -1);
if ($occurance >= $from_date && $occurance <= $stopDate) {
$excluded = false;
if (isset($exdate)) {
foreach (explode(",", $exdate) as $exception) {
// occurrance format == yyyy-mm-dd
// exception format == yyyymmdd
if (preg_replace("/-/", "", $occurance) == $exception) {
$excluded = true;
}
}
}
if ($excluded == false) {
$event['pc_eventDate'] = $occurance;
$event['pc_endDate'] = '0000-00-00';
$events2[] = $event;
//////
if ($flagPSM) {
break;
}
//////
}
}
$occuranceYmX = date('Y-m-d', mktime(0, 0, 0, $nm + $rfreq, $nd, $ny));
list($ny, $nm, $nd) = explode('-', $occuranceYmX);
$occuranceYm = "{$ny}-{$nm}";
}
break;
}
}
return $events2;
////////////////////// End of code inserted by epsdky
}
function calendar_arrived($form_pid)
{
$Today = date('Y-m-d');
//Take all recurring events relevent for today.
$result_event = sqlStatement("SELECT * FROM openemr_postcalendar_events WHERE pc_recurrtype != '0' and pc_pid = ? and pc_endDate != '0000-00-00'\n\t\tand pc_eventDate < ? and pc_endDate >= ? ", array($form_pid, $Today, $Today));
if (sqlNumRows($result_event) == 0) {
$result_event = sqlStatement("SELECT * FROM openemr_postcalendar_events WHERE pc_pid =?\tand pc_eventDate = ?", array($form_pid, $Today));
if (sqlNumRows($result_event) == 0) {
echo "<br><br><br>" . htmlspecialchars(xl('Sorry No Appointment is Fixed'), ENT_QUOTES) . ". " . htmlspecialchars(xl('No Encounter could be created'), ENT_QUOTES) . ".";
die;
} else {
$enc = todaysEncounterCheck($form_pid);
//create encounter
$zero_enc = 0;
sqlStatement("UPDATE openemr_postcalendar_events SET pc_apptstatus ='@' WHERE pc_pid =? and pc_eventDate = ?", array($form_pid, $Today));
}
} else {
while ($row_event = sqlFetchArray($result_event)) {
$pc_eid = $row_event['pc_eid'];
$pc_eventDate = $row_event['pc_eventDate'];
$pc_recurrspec_array = unserialize($row_event['pc_recurrspec']);
while (1) {
if ($pc_eventDate == $Today) {
if (!($exist_eid = check_event_exist($pc_eid))) {
update_event($pc_eid);
} else {
sqlStatement("UPDATE openemr_postcalendar_events SET pc_apptstatus = '@' WHERE pc_eid = ?", array($exist_eid));
}
$enc = todaysEncounterCheck($form_pid);
//create encounter
$zero_enc = 0;
break;
} elseif ($pc_eventDate > $Today) {
echo "<br><br><br>" . htmlspecialchars(xl('Sorry No Appointment is Fixed'), ENT_QUOTES) . ". " . htmlspecialchars(xl('No Encounter could be created'), ENT_QUOTES) . ".";
die;
break;
}
// Added by Rod to handle repeats on nth or last given weekday of a month:
if ($row_event['pc_recurrtype'] == 2) {
$my_repeat_on_day = $pc_recurrspec_array['event_repeat_on_day'];
$my_repeat_on_num = $pc_recurrspec_array['event_repeat_on_num'];
$adate = getdate(strtotime($pc_eventDate));
$adate['mon'] += 1;
if ($adate['mon'] > 12) {
$adate['year'] += 1;
$adate['mon'] -= 12;
}
if ($my_repeat_on_num < 5) {
// not last
$adate['mday'] = 1;
$dow = jddayofweek(cal_to_jd(CAL_GREGORIAN, $adate['mon'], $adate['mday'], $adate['year']));
if ($dow > $my_repeat_on_day) {
$dow -= 7;
}
$adate['mday'] += ($my_repeat_on_num - 1) * 7 + $my_repeat_on_day - $dow;
} else {
// last weekday of month
$adate['mday'] = cal_days_in_month(CAL_GREGORIAN, $adate['mon'], $adate['year']);
$dow = jddayofweek(cal_to_jd(CAL_GREGORIAN, $adate['mon'], $adate['mday'], $adate['year']));
if ($dow < $my_repeat_on_day) {
$dow += 7;
}
$adate['mday'] += $my_repeat_on_day - $dow;
}
$pc_eventDate = date('Y-m-d', mktime(0, 0, 0, $adate['mon'], $adate['mday'], $adate['year']));
} else {
// pc_recurrtype is 1
$pc_eventDate_array = split('-', $pc_eventDate);
// Find the next day as per the frequency definition.
$pc_eventDate =& __increment($pc_eventDate_array[2], $pc_eventDate_array[1], $pc_eventDate_array[0], $pc_recurrspec_array['event_repeat_freq'], $pc_recurrspec_array['event_repeat_freq_type']);
}
}
}
}
return $enc;
}
