if ($pt_result) {
while ($pt_row = db_fetch_assoc($pt_result)) {
$pts[] = $pt_row['record'];
}
}
/**
* WORKING DATA
*/
$table_csv = "";
$data = REDCap::getData('array', $pts, $fields);
foreach ($data AS $subject_id => $subject) {
$data_row = array();
$data_row['subjid'] = $subject_id;
foreach ($subject AS $event_id => $event) {
foreach ($event AS $key => $value) {
$data_row[$Proj->metadata[$key]['element_label']] = quote_wrap($value);
}
}
foreach ($addl_data[$subject_id] AS $addl_event) {
if ($debug) {
show_var($addl_event);
}
if ($addl_event['meld_lbblfl'] == 'Y') {
$data_row[$Proj->metadata['meld_lborres']['element_label']] = $addl_event['meld_lborres'];
}
if ($addl_event['meld_lbblfl'] == 'Y') {
$data_row[$Proj->metadata['plat_lbstresn']['element_label']] = $addl_event['plat_lbstresn'];
}
}
if (!isset($data_row[$Proj->metadata['meld_lborres']['element_label']])) {
$data_row[$Proj->metadata['meld_lborres']['element_label']] = 'NA';
* we don't want to duplicate queries
* if the result is excluded or has a query history, ignore it
*/
if (!$result['exclude']) {
d($history);
//$data_row['monitor'] = $result['record'] & 1 ? 'dianne_mattingly' : 'wendy_robertson';
$data_row['subjid'] = quote_wrap($result['record']);
$data_row['usubjid'] = quote_wrap(get_single_field($result['record'], PROJECT_ID, $Proj->firstEventId, 'dm_usubjid', ''));
$data_row['event'] = quote_wrap(REDCap::getEventNames(false, false, $result['event_id']));
//$data_row['field'] = quote_wrap($Proj->metadata[$field]['element_label']);
//$data_row['data'] = quote_wrap(strip_tags(str_replace('<br>', ', ', $result['data_display'])));
foreach ($data_array AS $key => $val) {
$data_row[quote_wrap($Proj->metadata[$key]['element_label'] . " [$key]")] = quote_wrap($val);
}
$data_row['description'] = quote_wrap($rule_info['name']);
$data_row["Queries on $field"] = quote_wrap(count($history));
$row_csv = implode(',', $data_row) . "\n";
$table_csv .= $row_csv;
}
}
}
$headers = implode(',', array_keys($data_row)) . "\n";
if (!$debug) {
create_download($lang, $app_title, $userid, $headers, $user_rights, $table_csv, '', $parent_chkd_flds, $project_id, substr(camelCase($rule_info['name']), 0, 20) . "_REPORT_", $debug, $rule_info['name']);
}
d($headers);
d($table_csv);
}
$timer['main_end'] = microtime(true);
$init_time = benchmark_timing($timer);
echo $init_time;
}
/**
* add baseline eGFR
*/
if (isset($egfr_data[$subject_id])) {
foreach ($egfr_data[$subject_id] AS $egfr_event) {
if ($egfr_event['egfr_lbblfl'] == 'Y') {
if ($subjects != '') {
d($egfr_event);
}
$data_row['Baseline ' . get_element_label('egfr_lborres')] = $egfr_event['egfr_lborres'] != '' ? quote_wrap($egfr_event['egfr_lborres']) : blanks();
} elseif ($egfr_event['egfr_im_lbblfl'] == 'Y') {
if ($subjects != '') {
d($egfr_event);
}
$data_row['Baseline ' . get_element_label('egfr_lborres')] = $egfr_event['egfr_im_lborres'] != '' ? quote_wrap($egfr_event['egfr_im_lborres']) : blanks();
}
}
} else {
$data_row['Baseline ' . get_element_label('egfr_lborres')] = blanks();
}
/**
* create csv row from $data_row and add to $table_csv
*/
$table_csv .= implode(',', $data_row) . "\n";
}
$headers = implode(',', $header_array) . "\n";
d($headers);
d($table_csv);
if (!$debug) {
create_download($lang, $app_title, $userid, $headers, $user_rights, $table_csv, '', $parent_chkd_flds, $project_id, $export_filename, $debug);
}
}
} else {
$data_row['Baseline ' . get_element_label('egfr_lborres')] = blanks();
}
/**
* add baseline HCV RNA
*/
if (isset($hcvrna_data[$subject_id])) {
foreach ($hcvrna_data[$subject_id] AS $hcvrna_event) {
if ($hcvrna_event['hcv_lbblfl'] == 'Y') {
d($hcvrna_event);
$data_row['Baseline ' . get_element_label('hcv_lbstresn')] = $hcvrna_event['hcv_lbstresn'] != '' ? quote_wrap($hcvrna_event['hcv_lbstresn']) : blanks();
} elseif ($hcvrna_event['hcv_im_lbblfl'] == 'Y') {
d($hcvrna_event);
$data_row['Baseline ' . get_element_label('hcv_lbstresn')] = $hcvrna_event['hcv_im_lbstresn'] != '' ? quote_wrap($hcvrna_event['hcv_im_lbstresn']) : blanks();
}
}
} else {
$data_row['Baseline ' . get_element_label('hcv_lbstresn')] = blanks();
}
/**
* create csv row from $data_row and add to $table_csv
*/
$table_csv .= implode(',', $data_row) . "\n";
}
$headers = implode(',', $header_array) . "\n";
d($headers);
d($table_csv);
if (!$debug) {
create_download($lang, $app_title, $userid, $headers, $user_rights, $table_csv, '', $parent_chkd_flds, $project_id, $export_filename, $debug);
d($misc_event);
if ($misc_event['hcvgt_s_lborres'] != 'NOT_AVAILABLE' && $misc_event['hcvgt_s_lborres'] != '') {
$misc_event['hcvgt_lborres'] = $misc_event['hcvgt_lborres'] . $misc_event['hcvgt_s_lborres'];
}
$data_row[get_element_label('hcvgt_lborres')] = $misc_event['hcvgt_lborres'] != '' ? quote_wrap($misc_event['hcvgt_lborres']) : quote_wrap('--');
$data_row[get_element_label('hcv_suppfa_hcvout')] = $misc_event['hcv_suppfa_hcvout'] != '' ? quote_wrap($misc_event['hcv_suppfa_hcvout']) : quote_wrap('--');
$data_row[get_element_label('cirr_suppfa_cirrstat')] = $misc_event['cirr_suppfa_cirrstat'] != '' ? quote_wrap($misc_event['cirr_suppfa_cirrstat']) : quote_wrap('--');
$data_row[get_element_label('dcp_mhoccur')] = $misc_event['dcp_mhoccur'] != '' ? quote_wrap($misc_event['dcp_mhoccur']) : quote_wrap('--');
$data_row[get_element_label('livr_mhoccur')] = $misc_event['livr_mhoccur'] != '' ? quote_wrap($misc_event['livr_mhoccur']) : quote_wrap('--');
}
} else {
$data_row[get_element_label('hcvgt_lborres')] = quote_wrap('--');
$data_row[get_element_label('hcv_suppfa_hcvout')] = quote_wrap('--');
$data_row[get_element_label('cirr_suppfa_cirrstat')] = quote_wrap('--');
$data_row[get_element_label('dcp_mhoccur')] = quote_wrap('--');
$data_row[get_element_label('livr_mhoccur')] = quote_wrap('--');
}
/**
* create csv row from $data_row and add to $table_csv
*/
$table_csv .= implode(',', $data_row) . "\n";
}
$headers = implode(',', $header_array) . "\n";
d($headers);
d($table_csv);
if (!$debug) {
create_download($lang, $app_title, $userid, $headers, $user_rights, $table_csv, '', $parent_chkd_flds, $project_id, $export_filename, $debug);
} else {
$timer['main_end'] = microtime(true);
$init_time = benchmark_timing($timer);
echo $init_time;
$raw_data_rows = explode(', ', strip_tags(str_replace('<br>', ', ', $result['data_display'])));
foreach ($raw_data_rows AS $raw_data_row) {
$this_row_array = explode(': ', $raw_data_row);
$data_array[$this_row_array[0]] = $this_row_array[1];
}
krsort($data_array);
//$data_row['monitor'] = $result['record'] & 1 ? 'dianne_mattingly' : 'wendy_robertson';
$data_row['subjid'] = quote_wrap($result['record']);
$data_row['usubjid'] = quote_wrap(get_single_field($result['record'], PROJECT_ID, $project->firstEventId, 'dm_usubjid', ''));
$data_row['event'] = quote_wrap(REDCap::getEventNames(false, false, $result['event_id']));
//$data_row['field'] = quote_wrap($project->metadata[$field]['element_label']);
//$data_row['data'] = quote_wrap(strip_tags(str_replace('<br>', ', ', $result['data_display'])));
foreach ($data_array AS $key => $val) {
$data_row[$key] = quote_wrap($val);
}
$data_row['description'] = quote_wrap($rule_info['name']);
$row_csv = implode(',', $data_row) . "\n";
$table_csv .= $row_csv;
/**
* prep for insert status
*/
$dr_status = 'OPEN';
if (!$send_to_field) {
$non_rule = NULL;
unset($field);
} else {
$non_rule = 1;
unset($rule_id);
}
$response_requested = '1';
$response = NULL;
function blanks()
{
return quote_wrap('--');
}
