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('--'); }