function newpatient_report($pid, $encounter, $cols, $id)
{
$res = sqlStatement("select * from form_encounter where pid='{$pid}' and id='{$id}'");
print "<table><tr><td>\n";
while ($result = sqlFetchArray($res)) {
print "<span class=bold>" . xl('Reason') . ": </span><span class=text>" . $result["reason"] . "<br>\n";
print "<span class=bold>" . xl('Facility') . ": </span><span class=text>" . $result["facility"] . "<br>\n";
}
print "</td></tr></table>\n";
}
/**
* Return listing of immunizations for a patient.
*
* @param string $pid person id
* @param string $sortby sorting field ('vacc' sorts by name, otherwise will sort by date)
* @param boolean $showError indicator whether to retrieve the records that were added erroneously
* @return recordset listing of immunizations for a patient
*/
function getImmunizationList($pid,$sortby,$showError) {
$sql = "select i1.id ,i1.immunization_id, i1.cvx_code, i1.administered_date, c.code_text_short, c.code".
",i1.manufacturer ,i1.lot_number, i1.completion_status ".
",ifnull(concat(u.lname,', ',u.fname),'Other') as administered_by ".
",i1.education_date ,i1.note ". ",i1.expiration_date " .
",i1.amount_administered, i1.amount_administered_unit, i1.route, i1.administration_site, i1.added_erroneously".
" from immunizations i1 ".
" left join users u on i1.administered_by_id = u.id ".
" left join code_types ct on ct.ct_key = 'CVX' ".
" left join codes c on c.code_type = ct.ct_id AND i1.cvx_code = c.code ".
" where i1.patient_id = ? ";
if (!$showError) {
$sql .= "and i1.added_erroneously = 0 ";
}
$sql .= " order by ";
if ($sortby == "vacc") {
$sql .= " c.code_text_short, i1.immunization_id, i1.administered_date DESC";
}
else {
$sql .= " administered_date desc";
}
$results = sqlStatement($sql,array($pid));
return $results;
}
function issue_football_injury_save($issue)
{
global $arr_activity, $arr_sanction, $arr_weather;
$query = "REPLACE INTO lists_football_injury ( " . "id, fiinjmin, fiinjtime, fimatchtype, ";
foreach ($arr_activity as $key => $value) {
$query .= "fimech_{$key}, ";
}
foreach ($arr_sanction as $key => $value) {
$query .= "fimech_{$key}, ";
}
foreach ($arr_weather as $key => $value) {
$query .= "fiweather_{$key}, ";
}
$query .= "fimech_othercon, fimech_othernon, fiweather_temperature, " . "fisurface, fiposition, fifootwear, firemoved, ficondition " . ") VALUES ( " . $issue . ", " . invalue('form_injmin') . ", " . rbvalue('form_injtime') . ", " . rbvalue('form_matchtype') . ", ";
foreach ($arr_activity as $key => $value) {
$query .= cbvalue("form_mech_{$key}") . ", ";
}
foreach ($arr_sanction as $key => $value) {
$query .= cbvalue("form_mech_{$key}") . ", ";
}
foreach ($arr_weather as $key => $value) {
$query .= cbvalue("form_weather_{$key}") . ", ";
}
$query .= txvalue('form_mech_othercon') . ", " . txvalue('form_mech_othernon') . ", " . txvalue('form_weather_temperature') . ", " . rbvalue('form_surface') . ", " . rbvalue('form_position') . ", " . rbvalue('form_footwear') . ", " . rbvalue('form_removed') . ", " . rbvalue('form_condition') . " " . ")";
sqlStatement($query);
}
function checkCreateCDB()
{
$globalsres = sqlStatement("SELECT gl_name, gl_index, gl_value FROM globals WHERE gl_name IN \n ('couchdb_host','couchdb_user','couchdb_pass','couchdb_port','couchdb_dbase','document_storage_method')");
$options = array();
while ($globalsrow = sqlFetchArray($globalsres)) {
$GLOBALS[$globalsrow['gl_name']] = $globalsrow['gl_value'];
}
$directory_created = false;
if ($GLOBALS['document_storage_method'] != 0) {
// /documents/temp/ folder is required for CouchDB
if (!is_dir($GLOBALS['OE_SITE_DIR'] . '/documents/temp/')) {
$directory_created = mkdir($GLOBALS['OE_SITE_DIR'] . '/documents/temp/', 0777, true);
if (!$directory_created) {
echo htmlspecialchars(xl("Failed to create temporary folder. CouchDB will not work."), ENT_NOQUOTES);
}
}
$couch = new CouchDB();
if (!$couch->check_connection()) {
echo "<script type='text/javascript'>alert('" . addslashes(xl("CouchDB Connection Failed.")) . "');</script>";
return;
}
if ($GLOBALS['couchdb_host'] || $GLOBALS['couchdb_port'] || $GLOBALS['couchdb_dbase']) {
$couch->createDB($GLOBALS['couchdb_dbase']);
$couch->createView($GLOBALS['couchdb_dbase']);
}
}
return true;
}
/**
* Offsite Portal connection function library.
*
* Copyright (C) 2013 Z&H Consultancy Services Private Limited <*****@*****.**>
*
* LICENSE: This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://opensource.org/licenses/gpl-license.php>;.
*
* @package OpenEMR
* @author Eldho Chacko <*****@*****.**>
* @author Vinish K <*****@*****.**>
* @link http://www.open-emr.org
*/
function portal_connection(){
global $credentials;
$password = $GLOBALS['portal_offsite_password'];
$randkey = '';
$timminus = date("Y-m-d H:m",(strtotime(date("Y-m-d H:m"))-7200)).":00";
sqlStatement("DELETE FROM audit_details WHERE audit_master_id IN(SELECT id FROM audit_master WHERE type=5 AND created_time<=?)",array($timminus));
sqlStatement("DELETE FROM audit_master WHERE type=5 AND created_time<=?",array($timminus));
do{
$randkey = substr(md5(rand().rand()), 0, 8);
$res = sqlStatement("SELECT * FROM audit_details WHERE field_value = ?",array($randkey));
$cnt = sqlNumRows($res);
}
while($cnt>0);
$password = sha1($password.gmdate("Y-m-d H").$randkey);
$grpID = sqlInsert("INSERT INTO audit_master SET type=5");
sqlStatement("INSERT INTO audit_details SET field_value=? , audit_master_id=?",array($randkey,$grpID));
$credentials = array($GLOBALS['portal_offsite_username'],$password,$randkey);
//CALLING WEBSERVICE ON THE PATIENT-PORTAL
$client = new SoapClient(null, array(
'location' => $GLOBALS['portal_offsite_address_patient_link']."/webservice/webserver.php",
'uri' => "urn://portal/req"
)
);
return $client;
}
function catch_logs()
{
$sql = sqlStatement("select * from log where id not in(select log_id from log_validator) and checksum is NOT null and checksum != ''");
while ($row = sqlFetchArray($sql)) {
sqlInsert("INSERT into log_validator (log_id,log_checksum) VALUES(?,?)", array($row['id'], $row['checksum']));
}
}
private function getListOptionById($id)
{
$query = "SELECT * " . "FROM `list_options` " . "WHERE list_id = ? " . "AND option_id = ?";
$results = sqlStatement($query, array($this->getListId(), $id));
$arr = sqlFetchArray($results);
return $arr;
}
public static function generate_validate_constraints($form_id)
{
$fres = sqlStatement("SELECT layout_options.*,list_options.notes as validation_json \n FROM layout_options \n LEFT JOIN list_options ON layout_options.validation=list_options.option_id AND list_options.list_id = 'LBF_Validations'\n WHERE layout_options.form_id = ? AND layout_options.uor > 0 AND layout_options.field_id != '' \n ORDER BY layout_options.group_name, layout_options.seq ", array($form_id));
$constraints = array();
$validation_arr = array();
$required = array();
while ($frow = sqlFetchArray($fres)) {
$id = 'form_' . $frow['field_id'];
$validation_arr = array();
$required = array();
//Keep "required" option from the LBF form
if ($frow['uor'] == 2) {
$required = array(self::VJS_KEY_REQUIRED => true);
}
if ($frow['validation_json']) {
if (json_decode($frow['validation_json'])) {
$validation_arr = json_decode($frow['validation_json'], true);
} else {
trigger_error($frow['validation_json'] . " is not a valid json ", E_USER_WARNING);
}
}
if (!empty($required) || !empty($validation_arr)) {
$constraints[$id] = array_merge($required, $validation_arr);
}
}
return json_encode($constraints);
}
function lbf_report($pid, $encounter, $cols, $id, $formname)
{
require_once $GLOBALS["srcdir"] . "/options.inc.php";
$arr = array();
$shrow = getHistoryData($pid);
$fres = sqlStatement("SELECT * FROM layout_options " . "WHERE form_id = ? AND uor > 0 " . "ORDER BY group_name, seq", array($formname));
while ($frow = sqlFetchArray($fres)) {
$field_id = $frow['field_id'];
$currvalue = '';
if ($frow['edit_options'] == 'H') {
if (isset($shrow[$field_id])) {
$currvalue = $shrow[$field_id];
}
} else {
$currvalue = lbf_current_value($frow, $id, $encounter);
if ($currvalue === FALSE) {
continue;
}
// should not happen
}
// For brevity, skip fields without a value.
if ($currvalue === '') {
continue;
}
// $arr[$field_id] = $currvalue;
// A previous change did this instead of the above, not sure if desirable? -- Rod
$arr[$field_id] = wordwrap($currvalue, 30, "\n", true);
}
echo "<table>\n";
display_layout_rows($formname, $arr);
echo "</table>\n";
}
function load_menu($menu_set)
{
$menuTables = " SHOW TABLES LIKE ?";
$res = sqlQuery($menuTables, array("menu_trees"));
if ($res === false) {
return array();
}
$menuQuery = " SELECT * FROM menu_trees, menu_entries WHERE menu_trees.entry_id=menu_entries.id AND menu_set=? ORDER BY parent, seq";
$res = sqlStatement($menuQuery, array($menu_set));
$retval = array();
$entries = array();
$parent_not_found = array();
while ($row = sqlFetchArray($res)) {
$entries[$row['entry_id']] = menu_entry_to_object($row);
if (empty($row['parent'])) {
array_push($retval, $entries[$row['entry_id']]);
} else {
if (isset($entries[$row['parent']])) {
$parent = $entries[$row['parent']];
array_push($parent->children, $entries[$row['entry_id']]);
} else {
array_push($parent_not_found, $entries[$row['entry_id']]);
}
}
}
foreach ($parent_not_found as $row) {
if (isset($entries[$row->parent])) {
$parent = $entries[$row->parent];
array_push($parent->children, $row);
} else {
array_push($parent_not_found2, $row);
}
}
return json_decode(json_encode($retval));
}
function showExamLine($line_id, $description, &$linedbrow, $sysnamedisp)
{
$dres = sqlStatement("SELECT * FROM form_physical_exam_diagnoses " . "WHERE line_id = '{$line_id}' ORDER BY ordering, diagnosis");
echo " <tr>\n";
echo " <td align='center'><input type='checkbox' name='form_obs[{$line_id}][wnl]' " . "value='1'" . ($linedbrow['wnl'] ? " checked" : "") . " /></td>\n";
echo " <td align='center'><input type='checkbox' name='form_obs[{$line_id}][abn]' " . "value='1'" . ($linedbrow['abn'] ? " checked" : "") . " /></td>\n";
echo " <td nowrap>{$sysnamedisp}</td>\n";
echo " <td nowrap>{$description}</td>\n";
echo " <td><select name='form_obs[{$line_id}][diagnosis]' onchange='seldiag(this, \"{$line_id}\")' style='width:100%'>\n";
echo " <option value=''></option>\n";
$diagnosis = $linedbrow['diagnosis'];
while ($drow = sqlFetchArray($dres)) {
$sel = '';
$diag = $drow['diagnosis'];
if ($diagnosis && $diag == $diagnosis) {
$sel = 'selected';
$diagnosis = '';
}
echo " <option value='{$diag}' {$sel}>{$diag}</option>\n";
}
// If the diagnosis was not in the standard list then it must have been
// there before and then removed. In that case show it in parentheses.
if ($diagnosis) {
echo " <option value='{$diagnosis}' selected>({$diagnosis})</option>\n";
}
echo " <option value='*'>-- Edit --</option>\n";
echo " </select></td>\n";
echo " <td><input type='text' name='form_obs[{$line_id}][comments]' " . "size='20' maxlength='250' style='width:100%' " . "value='" . htmlentities($linedbrow['comments']) . "' /></td>\n";
echo " </tr>\n";
}
public function doPatientCheck(RsPatient $patient, $beginDate = null, $endDate = null, $options = null)
{
$return = false;
$listOptions = Codes::lookup($this->getOptionId(), 'CVX');
if (count($listOptions) > 0) {
$sqlQueryBind = array();
$query = "SELECT * " . "FROM immunizations " . "WHERE patient_id = ? AND added_erroneously = '0' " . "AND administered_date >= ? " . "AND administered_date <= ? ";
$query .= "AND ( ";
$count = 0;
array_push($sqlQueryBind, $patient->id, $beginDate, $endDate);
foreach ($listOptions as $option_id) {
$query .= "cvx_code = ? ";
$count++;
if ($count < count($listOptions)) {
$query .= "OR ";
}
array_push($sqlQueryBind, $option_id);
}
$query .= " ) ";
$result = sqlStatement($query, $sqlQueryBind);
$rows = array();
for ($iter = 0; $row = sqlFetchArray($result); $iter++) {
$rows[$iter] = $row;
}
if (isset($options[self::OPTION_COUNT]) && count($rows) >= $options[self::OPTION_COUNT]) {
$return = true;
} else {
if (!isset($options[self::OPTION_COUNT]) && count($rows) > 0) {
$return = true;
}
}
}
return $return;
}
function graphsGetValues($name) {
global $is_lbf, $pid, $table;
if ($is_lbf) {
// Like below, but for LBF data.
$values = sqlStatement("SELECT " .
"ld.field_value AS " . add_escape_custom($name) . ", " .
"UNIX_TIMESTAMP(f.date) as unix_date " .
"FROM forms AS f, lbf_data AS ld WHERE " .
"f.pid = ? AND " .
"f.formdir = ? AND " .
"f.deleted = 0 AND " .
"ld.form_id = f.form_id AND " .
"ld.field_id = ? AND " .
"ld.field_value != '0' " .
"ORDER BY f.date",
array($pid, $table, $name));
}
else {
// Collect the pertinent info and ranges
// (Note am skipping values of zero, this could be made to be
// optional in the future when using lab values)
$values = SqlStatement("SELECT " .
add_escape_custom($name) . ", " .
"UNIX_TIMESTAMP(date) as unix_date " .
"FROM " . add_escape_custom($table) . " " .
"WHERE " . add_escape_custom($name) . " != 0 " .
"AND pid = ? ORDER BY date", array($pid));
}
return $values;
}
public function test(CqmPatient $patient, $beginDate, $endDate)
{
// Flow of control loop
$return = false;
do {
// See if BMI has been recorded between >=22kg/m2 and <30kg/m2 6 months before, or simultanious to the encounter
$query = "SELECT form_vitals.BMI " . "FROM `form_vitals` " . "LEFT JOIN `form_encounter` " . "ON ( form_vitals.pid = form_encounter.pid ) " . "LEFT JOIN `enc_category_map` " . "ON (enc_category_map.main_cat_id = form_encounter.pc_catid) " . "WHERE form_vitals.BMI IS NOT NULL " . "AND form_vitals.BMI IS NOT NULL " . "AND form_vitals.pid = ? AND form_vitals.BMI >= 22 AND form_vitals.BMI < 30 " . "AND DATE( form_vitals.date ) >= DATE_ADD( form_encounter.date, INTERVAL -6 MONTH ) " . "AND DATE( form_vitals.date ) <= DATE( form_encounter.date ) " . "AND ( enc_category_map.rule_enc_id = 'enc_outpatient' )";
$res = sqlStatement($query, array($patient->id));
$number = sqlNumRows($res);
if ($number >= 1) {
$return = true;
break;
}
// See if BMI has been recorded >=30kg/m2 6 months before, or simultanious to the encounter
// AND ÒCare goal: follow-up plan BMI managementÓ OR ÒCommunication provider to provider: dietary consultation orderÓ
$query = "SELECT form_vitals.BMI " . "FROM `form_vitals` " . "LEFT JOIN `form_encounter` " . "ON ( form_vitals.pid = form_encounter.pid ) " . "LEFT JOIN `enc_category_map` " . "ON (enc_category_map.main_cat_id = form_encounter.pc_catid) " . "WHERE form_vitals.BMI IS NOT NULL " . "AND form_vitals.BMI IS NOT NULL " . "AND form_vitals.pid = ? AND form_vitals.BMI >= 30 " . "AND ( DATE( form_vitals.date ) >= DATE_ADD( form_encounter.date, INTERVAL -6 MONTH ) ) " . "AND ( DATE( form_vitals.date ) <= DATE( form_encounter.date ) ) " . "AND ( enc_category_map.rule_enc_id = 'enc_outpatient' )";
$res = sqlStatement($query, array($patient->id));
$number = sqlNumRows($res);
if ($number >= 1 && (Helper::check(ClinicalType::CARE_GOAL, CareGoal::FOLLOW_UP_PLAN_BMI_MGMT, $patient) || Helper::check(ClinicalType::COMMUNICATION, Communication::DIET_CNSLT, $patient))) {
$return = true;
break;
}
// See if BMI has been recorded <22kg/m2 6 months before, or simultanious to the encounter
// AND ÒCare goal: follow-up plan BMI managementÓ OR ÒCommunication provider to provider: dietary consultation orderÓ
$query = "SELECT form_vitals.BMI " . "FROM `form_vitals` " . "LEFT JOIN `form_encounter` " . "ON ( form_vitals.pid = form_encounter.pid ) " . "LEFT JOIN `enc_category_map` " . "ON (enc_category_map.main_cat_id = form_encounter.pc_catid) " . "WHERE form_vitals.BMI IS NOT NULL " . "AND form_vitals.BMI IS NOT NULL " . "AND form_vitals.pid = ? AND form_vitals.BMI < 22 " . "AND ( DATE( form_vitals.date ) >= DATE_ADD( form_encounter.date, INTERVAL -6 MONTH ) ) " . "AND ( DATE( form_vitals.date ) <= DATE( form_encounter.date ) ) " . "AND ( enc_category_map.rule_enc_id = 'enc_outpatient' )";
$res = sqlStatement($query, array($patient->id));
$number = sqlNumRows($res);
if ($number >= 1 && (Helper::check(ClinicalType::CARE_GOAL, CareGoal::FOLLOW_UP_PLAN_BMI_MGMT, $patient) || Helper::check(ClinicalType::COMMUNICATION, Communication::DIET_CNSLT, $patient))) {
$return = true;
break;
}
} while (false);
return $return;
}
function fetchEvents($from_date, $to_date, $where_param = null, $orderby_param = null)
{
$where = "( (e.pc_endDate >= '{$from_date}' AND e.pc_eventDate <= '{$to_date}' AND e.pc_recurrtype = '1') 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;
}
$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, " . "p.fname, p.mname, p.lname, p.pid, p.pubpid, " . "u.fname AS ufname, u.mname AS umname, u.lname AS ulname, u.id AS uprovider_id, " . "c.pc_catname, c.pc_catid " . "FROM openemr_postcalendar_events AS e " . "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}";
$res = sqlStatement($query);
$events = array();
if ($res) {
while ($row = sqlFetchArray($res)) {
// if it's a repeating appointment, fetch all occurances in date range
if ($row['pc_recurrtype']) {
$reccuringEvents = getRecurringEvents($row, $from_date, $to_date);
$events = array_merge($events, $reccuringEvents);
} else {
$events[] = $row;
}
}
}
return $events;
}
public function doPatientCheck(RsPatient $patient, $beginDate = null, $endDate = null, $options = null)
{
$data = Codes::lookup($this->getOptionId());
$range = new Range(Range::NEG_INF, Range::POS_INF);
if (isset($options[self::OPTION_RANGE]) && is_a($options[self::OPTION_RANGE], 'Range')) {
$range = $options[self::OPTION_RANGE];
}
foreach ($data as $codeType => $codes) {
foreach ($codes as $code) {
// search through vitals to find the most recent lab result in the date range
// if the result value is within range using Range->test(val), return true
$sql = "SELECT procedure_result.result, procedure_result.date " . "FROM `procedure_type`, " . "`procedure_order`, " . "`procedure_report`, " . "`procedure_result` " . "WHERE procedure_type.procedure_type_id = procedure_order.procedure_type_id " . "AND procedure_order.procedure_order_id = procedure_report.procedure_order_id " . "AND procedure_report.procedure_report_id = procedure_result.procedure_report_id " . "AND ( procedure_type.standard_code = ? OR procedure_type.procedure_code = ? ) " . "AND procedure_report.date_collected >= ? " . "AND procedure_report.date_collected <= ? " . "AND procedure_order.patient_id = ? ";
if ($range->lowerBound != Range::NEG_INF) {
$sql .= "AND procedure_result.result >= ? ";
}
if ($range->upperBound != Range::POS_INF) {
$sql .= "AND procedure_result.result < ? ";
}
$bindings = array($codeType . ':' . $code, $code, $beginDate, $endDate, $patient->id);
if ($range->lowerBound != Range::NEG_INF) {
$bindings[] = $range->lowerBound;
}
if ($range->upperBound != Range::POS_INF) {
$bindings[] = $range->upperBound;
}
$result = sqlStatement($sql, $bindings);
$number = sqlNumRows($result);
if ($number > 0) {
return true;
}
}
}
return false;
}
function recursiveDelete($typeid)
{
$res = sqlStatement("SELECT procedure_type_id FROM " . "procedure_type WHERE parent = '{$typeid}'");
while ($row = sqlFetchArray($res)) {
recursiveDelete($row['procedure_type_id']);
}
sqlStatement("DELETE FROM procedure_type WHERE " . "procedure_type_id = '{$typeid}'");
}
function getPatientCopay($patient_id, $encounter)
{
$resMoneyGot = sqlStatement("SELECT sum(pay_amount) as PatientPay FROM ar_activity where " . "pid = ? and encounter = ? and payer_type=0 and account_code='PCP'", array($patient_id, $encounter));
//new fees screen copay gives account_code='PCP'
$rowMoneyGot = sqlFetchArray($resMoneyGot);
$Copay = $rowMoneyGot['PatientPay'];
return $Copay * -1;
}
function care_plan_report($pid, $encounter, $cols, $id)
{
$count = 0;
$sql = "SELECT * FROM `form_care_plan` WHERE id=? AND pid = ? AND encounter = ?";
$res = sqlStatement($sql, array($id, $_SESSION["pid"], $_SESSION["encounter"]));
for ($iter = 0; $row = sqlFetchArray($res); $iter++) {
$data[$iter] = $row;
}
if ($data) {
?>
<table style='border-collapse:collapse;border-spacing:0;width: 100%;'>
<tr>
<td align='center' style='border:1px solid #ccc;padding:4px;'><span class=bold><?php
echo xlt('Code');
?>
</span></td>
<td align='center' style='border:1px solid #ccc;padding:4px;'><span class=bold><?php
echo xlt('Code Text');
?>
</span></td>
<td align='center' style='border:1px solid #ccc;padding:4px;'><span class=bold><?php
echo xlt('Description');
?>
</span></td>
<td align='center' style='border:1px solid #ccc;padding:4px;'><span class=bold><?php
echo xlt('Date');
?>
</span></td>
</tr>
<?php
foreach ($data as $key => $value) {
?>
<tr>
<td style='border:1px solid #ccc;padding:4px;'><span class=text><?php
echo text($value['code']);
?>
</span></td>
<td style='border:1px solid #ccc;padding:4px;'><span class=text><?php
echo text($value['codetext']);
?>
</span></td>
<td style='border:1px solid #ccc;padding:4px;'><span class=text><?php
echo text($value['description']);
?>
</span></td>
<td style='border:1px solid #ccc;padding:4px;'><span class=text><?php
echo text($value['date']);
?>
</span></td>
</tr>
<?php
}
?>
</table>
<?php
}
}
function getLoggedInUserFacility()
{
$sql = "SELECT f.name, f.facility_npi FROM users AS u LEFT JOIN facility AS f ON u.facility_id = f.id WHERE u.id=?";
$res = sqlStatement($sql, array($_SESSION['authUserID']));
while ($arow = sqlFetchArray($res)) {
return $arow;
}
return null;
}
function BuildArrayForReport($Query)
{
$array_data = array();
$res = sqlStatement($Query);
while ($row = sqlFetchArray($res)) {
$array_data[$row['id']] = htmlspecialchars($row['name'], ENT_QUOTES);
}
return $array_data;
}
function update_table()
{
// Set the settings that only apply to the main rule (pid = 0)
$query = "UPDATE clinical_rules SET active_alert_flag = ?" . ", passive_alert_flag = ?" . ", patient_reminder_flag = ?" . " WHERE id = ? AND pid = 0";
sqlStatement($query, array($this->active_flag, $this->passive_flag, $this->reminder_flag, $this->id));
// Set the settings that apply to all rules including the patient custom rules (pid is > 0)
$query = "UPDATE clinical_rules SET access_control = ?" . " WHERE id = ?";
sqlStatement($query, array($this->access_control, $this->id));
}
function getListOptions($list_id)
{
$options = array();
$sql = sqlStatement("SELECT option_id, title from list_options WHERE list_id = ?", array($list_id));
for ($iter = 0; $row = sqlFetchArray($sql); $iter++) {
$options[] = new Option(out($row['option_id']), out(xl_list_label($row['title'])));
}
return $options;
}
/**
* Retrieve the recent 'N' disclosures.
* @param $pid - patient id.
* @param $limit - certain limit up to which the disclosures are to be displyed.
*/
function getDisclosureByDate($pid, $limit)
{
$r1 = sqlStatement("select event,recipient,description,date from extended_log where patient_id=? AND event in (select option_id from list_options where list_id='disclosure_type') order by date desc limit 0,{$limit}", array($pid));
$result2 = array();
for ($iter = 0; $frow = sqlFetchArray($r1); $iter++) {
$result2[$iter] = $frow;
}
return $result2;
}
/**
* Retrieve the recent 'N' disclosures.
* @param $pid - patient id.
* @param $limit - certain limit up to which the disclosures are to be displyed.
*/
function getDisclosureByDate($pid, $limit)
{
$discQry = " SELECT el.id, el.event, el.recipient, el.description, el.date, CONCAT(u.fname, ' ', u.lname) as user_fullname FROM extended_log el " . " LEFT JOIN users u ON u.username = el.user " . " WHERE el.patient_id=? AND el.event IN (SELECT option_id FROM list_options WHERE list_id='disclosure_type') ORDER BY el.date DESC LIMIT 0,{$limit}";
$r1 = sqlStatement($discQry, array($pid));
$result2 = array();
for ($iter = 0; $frow = sqlFetchArray($r1); $iter++) {
$result2[$iter] = $frow;
}
return $result2;
}
function BuildArrayForReport($Query)
{
//Parses the database value and prepares for display.
$array_data = array();
$res = sqlStatement($Query);
while ($row = sqlFetchArray($res)) {
$array_data[$row['id']] = htmlspecialchars($row['name'], ENT_QUOTES);
}
return $array_data;
}
function delete_drug_sales($patient_id, $encounter_id = 0)
{
$where = $encounter_id ? "ds.encounter = '{$encounter_id}'" : "ds.pid = '{$patient_id}' AND ds.encounter != 0";
sqlStatement("UPDATE drug_sales AS ds, drug_inventory AS di " . "SET di.on_hand = di.on_hand + ds.quantity " . "WHERE {$where} AND di.inventory_id = ds.inventory_id");
if ($encounter_id) {
row_delete("drug_sales", "encounter = '{$encounter_id}'");
} else {
row_delete("drug_sales", "pid = '{$patient_id}'");
}
}
function observation_report($pid, $encounter, $cols, $id)
{
$count = 0;
$sql = "SELECT * FROM `form_observation` WHERE id=? AND pid = ? AND encounter = ?";
$res = sqlStatement($sql, array($id, $_SESSION["pid"], $_SESSION["encounter"]));
for ($iter = 0; $row = sqlFetchArray($res); $iter++) {
$data[$iter] = $row;
}
if ($data) {
print "<table style='border-collapse:collapse;border-spacing:0;width: 100%;'>\n <tr>\n <td align='center' style='border:1px solid #ccc;padding:4px;'><span class=bold>" . xlt('Code') . "</span></td>\n <td align='center' style='border:1px solid #ccc;padding:4px;'><span class=bold>" . xlt('Description') . "</span></td>\n <td align='center' style='border:1px solid #ccc;padding:4px;'><span class=bold>" . xlt('Code Type') . "</span></td> \n <td align='center' style='border:1px solid #ccc;padding:4px;'><span class=bold>" . xlt('Table Code') . "</span></td> \n <td align='center' style='border:1px solid #ccc;padding:4px;'><span class=bold>" . xlt('Value') . "</span></td>\n <td align='center' style='border:1px solid #ccc;padding:4px;'><span class=bold>" . xlt('Unit') . "</span></td>\n <td align='center' style='border:1px solid #ccc;padding:4px;'><span class=bold>" . xlt('Date') . "</span></td>\n </tr>";
foreach ($data as $key => $value) {
if ($value['code'] == 'SS003') {
if ($value['ob_value'] == '261QE0002X') {
$value['ob_value'] = 'Emergency Care';
} else {
if ($value['ob_value'] == '261QM2500X') {
$value['ob_value'] = 'Medical Specialty';
} else {
if ($value['ob_value'] == '261QP2300X') {
$value['ob_value'] = 'Primary Care';
} else {
if ($value['ob_value'] == '261QU0200X') {
$value['ob_value'] = 'Urgent Care';
}
}
}
}
}
if ($value['code'] == '21612-7') {
if ($value['ob_unit'] == 'd') {
$value['ob_unit'] = 'Day';
} else {
if ($value['ob_unit'] == 'mo') {
$value['ob_unit'] = 'Month';
} else {
if ($value['ob_unit'] == 'UNK') {
$value['ob_unit'] = 'Unknown';
} else {
if ($value['ob_unit'] == 'wk') {
$value['ob_unit'] = 'Week';
} else {
if ($value['ob_unit'] == 'a') {
$value['ob_unit'] = 'Year';
}
}
}
}
}
}
print "<tr>\n <td style='border:1px solid #ccc;padding:4px;'><span class=text>" . text($value['code']) . "</span></td>\n <td style='border:1px solid #ccc;padding:4px;'><span class=text>" . text($value['description']) . "</span></td>\n <td style='border:1px solid #ccc;padding:4px;'><span class=text>" . text($value['code_type']) . "</span></td>\n <td style='border:1px solid #ccc;padding:4px;'><span class=text>" . text($value['table_code']) . "</span></td>\n <td style='border:1px solid #ccc;padding:4px;'><span class=text>" . text($value['ob_value']) . "</span></td>\n <td style='border:1px solid #ccc;padding:4px;'><span class=text>" . text($value['ob_unit']) . "</span></td>\n <td style='border:1px solid #ccc;padding:4px;'><span class=text>" . text($value['date']) . "</span></td>\n </tr>";
print "\n";
}
print "</table>";
}
}
function getListOptions($list_id, $fieldnames = array('option_id', 'title', 'seq'))
{
$output = array();
$query = sqlStatement("SELECT " . implode(',', $fieldnames) . " FROM list_options where list_id = ? AND activity = 1 order by seq", array($list_id));
while ($ll = sqlFetchArray($query)) {
foreach ($fieldnames as $val) {
$output[$ll['option_id']][$val] = $ll[$val];
}
}
return $output;
}
function pic_array($pid, $picture_directory)
{
$pics = array();
$sql_query = "select documents.id from documents join categories_to_documents " . "on documents.id = categories_to_documents.document_id " . "join categories on categories.id = categories_to_documents.category_id " . "where categories.name like ? and documents.foreign_id = ?";
if ($query = sqlStatement($sql_query, array($picture_directory, $pid))) {
while ($results = sqlFetchArray($query)) {
array_push($pics, $results['id']);
}
}
return $pics;
}