* @author Brady Miller * @copyright Copyright (c) 2009 Rod Roark * @copyright Copyright (c) 2017-2018 Brady Miller * @license https://github.com/openemr/openemr/blob/master/LICENSE GNU General Public License 3 */ require_once("../globals.php"); require_once("../../library/patient.inc"); use OpenEMR\Common\Acl\AclMain; use OpenEMR\Common\Csrf\CsrfUtils; use OpenEMR\Core\Header; use OpenEMR\Services\FacilityService; if (!empty($_POST)) { if (!CsrfUtils::verifyCsrfToken($_POST["csrf_token_form"])) { CsrfUtils::csrfNotVerified(); } } // Might want something different here. // if (! AclMain::aclCheckCore('acct', 'rep')) { die("Unauthorized access."); } $facilityService = new FacilityService(); $from_date = (isset($_POST['form_from_date'])) ? DateToYYYYMMDD($_POST['form_from_date']) : date('Y-m-d'); $form_facility = isset($_POST['form_facility']) ? $_POST['form_facility'] : ''; $form_output = isset($_POST['form_output']) ? 0 + $_POST['form_output'] : 1; $report_title = xl('Clinic Daily Record'); $report_col_count = 12; // This will become the array of reportable values. $areport = array(); // This accumulates the bottom line totals. $atotals = array(); $cellcount = 0; function genStartRow($att) { global $cellcount, $form_output; if ($form_output != 3) { echo " \n"; } $cellcount = 0; } function genEndRow() { global $form_output; if ($form_output == 3) { echo "\n"; } else { echo " \n"; } } // Usually this generates one cell, but allows for two or more. // function genAnyCell($data, $right = false, $class = '') { global $cellcount, $form_output; if (!is_array($data)) { $data = array(0 => $data); } foreach ($data as $datum) { if ($form_output == 3) { if ($cellcount) { echo ','; } echo '"' . $datum . '"'; } else { echo " " . text($datum) . "\n"; } ++$cellcount; } } function genHeadCell($data, $right = false) { genAnyCell($data, $right, 'dehead'); } // Create an HTML table cell containing a numeric value, and track totals. // function genNumCell($num, $cnum) { global $atotals, $form_output; $atotals[$cnum] += $num; if (empty($num) && $form_output != 3) { $num = ' '; } genAnyCell($num, true, 'detail'); } // If we are doing the CSV export then generate the needed HTTP headers. // Otherwise generate HTML. // if ($form_output == 3) { header("Pragma: public"); header("Expires: 0"); header("Cache-Control: must-revalidate, post-check=0, pre-check=0"); header("Content-Type: application/force-download"); header("Content-Disposition: attachment; filename=service_statistics_report.csv"); header("Content-Description: File Transfer"); } else { // not export ?>

:	getAllFacility(); echo " \n"; echo " -- All Facilities --\n"; foreach ($fres as $frow) { $facid = $frow['id']; echo " " . text($frow['name']) . "\n"; } echo " \n"; ?>			:	'Screen', 2 => 'Printer', 3 => 'Export File') as $key => $value) { echo " " . text($value) . "  "; } ?>			' title='' />

= ? AND " . "fe.date <= ? "; array_push($sqlBindArray, $from_date . ' 00:00:00', $from_date . ' 23:59:59'); if ($form_facility) { $query .= "AND fe.facility_id = ? "; array_push($sqlBindArray, $form_facility); } $query .= "ORDER BY fe.pid, fe.encounter, b.code"; $res = sqlStatement($query, $sqlBindArray); $last_pid = '0'; $last_contra_pid = '0'; $last_encounter = '0'; $method = ''; while ($row = sqlFetchArray($res)) { if ($row['code_type'] === 'MA') { // Logic for individual patients. // if ($row['pid'] != $last_pid) { // new patient $last_pid = $row['pid']; $crow = sqlQuery("SELECT lc.new_method " . "FROM lists AS l, lists_ippf_con AS lc WHERE " . "l.pid = ? AND l.begdate <= ? AND " . "( l.enddate IS NULL OR l.enddate > ? ) AND " . "l.activity = 1 AND l.type = 'contraceptive' AND lc.id = l.id " . "ORDER BY l.begdate DESC LIMIT 1", array($last_pid, $from_date, $from_date)); $amethods = explode('|', empty($crow) ? 'zzz' : $crow['new_method']); // TBD: We probably want to select the method with highest CYP here, // but for now we'll settle for the first one that appears. $method = $amethods[0]; if (empty($areport[$method])) { // This should not happen. $areport[$method] = array("Unlisted method '$method'", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0); } // Count total clients. ++$areport[$method][3]; // Count as new or old client. if ($row['regdate'] == $from_date) { ++$areport[$method][1]; } else { ++$areport[$method][2]; } /************************************************************* // Maybe count as old Client First Visit this year. $regyear = substr($row['regdate'], 0, 4); $thisyear = substr($from_date, 0, 4); if ($regyear && $regyear < $thisyear) { $trow = sqlQuery("SELECT count(*) AS count FROM form_encounter " . "WHERE date >= '$thisyear-01-01 00:00:00' AND " . "date < '" . $row['encdate'] . " 00:00:00'"); if (empty($trow['count'])) ++$areport[$method][5]; } *************************************************************/ } // end new patient // Logic for visits. // if ($row['encounter'] != $last_encounter) { // new visit $last_encounter = $row['encounter']; // Count unique clients coming for supply or re-supply. if ($row['pc_catid'] == '10' && $last_pid != $last_contra_pid) { $last_contra_pid = $last_pid; ++$areport[$method][4]; } } // Logic for specific services. // $code = 0 + $row['code']; if ($code == 255004) { ++$areport[$method][5]; // pap smear } if ($code == 256101) { ++$areport[$method][6]; // preg test } if ($code == 375008) { ++$areport[$method][7]; // dr's check } if ($code == 375015) { ++$areport[$method][8]; // dr's visit (was 375014) } if ($code == 375011) { ++$areport[$method][9]; // advice } if ($code == 19916) { ++$areport[$method][10]; // couns by method } if ($code == 39916) { ++$areport[$method][11]; // infert couns } if ($code == 19911) { ++$areport[$method][12]; // std/aids couns } } } // end while if ($form_output != 3) { echo "\n"; } // end not csv export // Generate headings. genStartRow("bgcolor='#dddddd'"); genHeadCell(xl('Method')); genHeadCell(xl('New Clients'), true); genHeadCell(xl('Old Clients'), true); genHeadCell(xl('Total Clients'), true); genHeadCell(xl('Contra Clients'), true); // genHeadCell(xl('O.A.F.V.' ), true); genHeadCell(xl('Pap Smear'), true); genHeadCell(xl('Preg Test'), true); genHeadCell(xl('Dr Check'), true); genHeadCell(xl('Dr Visit'), true); genHeadCell(xl('Advice'), true); genHeadCell(xl('Couns by Method'), true); genHeadCell(xl('Infert Couns'), true); genHeadCell(xl('STD/AIDS Couns'), true); genEndRow(); $encount = 0; foreach ($areport as $key => $varr) { $bgcolor = (++$encount & 1) ? "#ddddff" : "#ffdddd"; genStartRow("bgcolor='" . attr($bgcolor) . "'"); genAnyCell($varr[0], false, 'detail'); // Generate data and accumulate totals for this row. for ($cnum = 0; $cnum < $report_col_count; ++$cnum) { genNumCell($varr[$cnum + 1], $cnum); } genEndRow(); } // end foreach if ($form_output != 3) { // Generate the line of totals. genStartRow("bgcolor='#dddddd'"); genHeadCell(xl('Totals')); for ($cnum = 0; $cnum < $report_col_count; ++$cnum) { genHeadCell($atotals[$cnum], true); } genEndRow(); // End of table. echo "\n"; } } // end if submit if ($form_output != 3) { ?>