<?php
if (isset($_POST['field_name'])) {
$form_complete_checked = isset($_POST['form_complete']) ? 'checked' : '';
d($form_complete_checked);
$checkbox = RCView::checkbox(array('name' => 'form_complete', $form_complete_checked => $form_complete_checked)) . 'Set default value only if form is marked complete';
?>
<p> </p>
<h4>Select the default value for this field</h4>
<select class="x-form-text x-form-field"
name="default_value"
style="height: 22px; padding-right: 0;"
id="default_value">
<option value>-- Select Value --</option>
<?php
if (in_array($Proj->metadata[$_POST['field_name']]['element_type'], array('radio', 'select'))) {
foreach (parseEnum($Proj->metadata[$_POST['field_name']]['element_enum']) as $this_code => $this_label) {
if ($_POST['default_value'] == $this_code) {
echo "<option value='{$this_code}' selected>{$this_label}</option>";
} else {
echo "<option value='{$this_code}'>{$this_label}</option>";
}
}
} else {
$field_enum_result = db_query($Proj->metadata[$_POST['field_name']]['element_enum']);
$field_name = db_field_name($field_enum_result, 0);
if ($field_enum_result) {
while ($field_enum_row = db_fetch_assoc($field_enum_result)) {
$this_value = $field_enum_row[$field_name];
if ($_POST['default_value'] == $this_value) {
echo "<option value='{$this_value}' selected>{$this_value}</option>";
} else {
/**
* GET DATA FOR RECORDS
* [@param int $project_id - (optional) Manually supplied project_id for this project.]
* @param string $returnFormat - Default 'array'. Return record data in specified format (array, csv, json, xml).
* @param string/array $records - if provided as a string, will convert to an array internally.
* @param string/array $fields - if provided as a string, will convert to an array internally.
* @param string/array $events - if provided as a string, will convert to an array internally.
* @param string/array $groups - if provided as a string, will convert to an array internally.
* @param bool $combine_checkbox_values is only an option for $returnFormat csv, json, and xml, in which it determines whether
* checkbox option values are returned as multiple fields with triple underscores or as a combined single field with all *checked*
* options as comma-delimited (e.g., "1,3,4" if only choices 1, 3, and 4 are checked off).
* NOTE: 'array' returnFormat will always have event_id as 2nd key and will always have checkbox options as a sub-array
* for each given checkbox field.
*/
public static function getData()
{
global $salt, $reserved_field_names, $lang, $user_rights, $redcap_version, $datetime_format;
// Get function arguments
$args = func_get_args();
// Make sure we have a project_id
if (!is_numeric($args[0]) && !defined("PROJECT_ID")) {
throw new Exception('No project_id provided!');
}
// If first parameter is numerical, then assume it is $project_id and that second parameter is $returnFormat
if (is_numeric($args[0])) {
$project_id = $args[0];
$returnFormat = isset($args[1]) ? $args[1] : 'array';
$records = isset($args[2]) ? $args[2] : array();
$fields = isset($args[3]) ? $args[3] : array();
$events = isset($args[4]) ? $args[4] : array();
$groups = isset($args[5]) ? $args[5] : array();
$combine_checkbox_values = isset($args[6]) ? $args[6] : false;
$outputDags = isset($args[7]) ? $args[7] : false;
$outputSurveyFields = isset($args[8]) ? $args[8] : false;
$filterLogic = isset($args[9]) ? $args[9] : false;
$outputAsLabels = isset($args[10]) ? $args[10] : false;
$outputCsvHeadersAsLabels = isset($args[11]) ? $args[11] : false;
$hashRecordID = isset($args[12]) ? $args[12] : false;
$dateShiftDates = isset($args[13]) ? $args[13] : false;
$dateShiftSurveyTimestamps = isset($args[14]) ? $args[14] : false;
$sortArray = isset($args[15]) ? $args[15] : array();
$removeLineBreaksInValues = isset($args[16]) ? $args[16] : false;
$replaceFileUploadDocId = isset($args[17]) ? $args[17] : false;
$returnIncludeRecordEventArray = isset($args[18]) ? $args[18] : false;
$orderFieldsAsSpecified = isset($args[19]) ? $args[19] : false;
$outputSurveyIdentifier = isset($args[20]) ? $args[20] : $outputSurveyFields;
$outputCheckboxLabel = isset($args[21]) ? $args[21] : false;
$outputScheduleDates = isset($args[22]) ? $args[22] : false;
$outputSurveyUrls = isset($args[23]) ? $args[23] : false;
// Instantiate object containing all project information
$Proj = new Project($project_id);
$longitudinal = $Proj->longitudinal;
$table_pk = $Proj->table_pk;
} else {
$project_id = PROJECT_ID;
$returnFormat = isset($args[0]) ? $args[0] : 'array';
$records = isset($args[1]) ? $args[1] : array();
$fields = isset($args[2]) ? $args[2] : array();
$events = isset($args[3]) ? $args[3] : array();
$groups = isset($args[4]) ? $args[4] : array();
$combine_checkbox_values = isset($args[5]) ? $args[5] : false;
$outputDags = isset($args[6]) ? $args[6] : false;
$outputSurveyFields = isset($args[7]) ? $args[7] : false;
$filterLogic = isset($args[8]) ? $args[8] : false;
$outputAsLabels = isset($args[9]) ? $args[9] : false;
$outputCsvHeadersAsLabels = isset($args[10]) ? $args[10] : false;
$hashRecordID = isset($args[11]) ? $args[11] : false;
$dateShiftDates = isset($args[12]) ? $args[12] : false;
$dateShiftSurveyTimestamps = isset($args[13]) ? $args[13] : false;
$sortArray = isset($args[14]) ? $args[14] : array();
$removeLineBreaksInValues = isset($args[15]) ? $args[15] : false;
$replaceFileUploadDocId = isset($args[16]) ? $args[16] : false;
$returnIncludeRecordEventArray = isset($args[17]) ? $args[17] : false;
$orderFieldsAsSpecified = isset($args[18]) ? $args[18] : false;
$outputSurveyIdentifier = isset($args[19]) ? $args[19] : $outputSurveyFields;
$outputCheckboxLabel = isset($args[20]) ? $args[20] : false;
$outputScheduleDates = isset($args[21]) ? $args[21] : false;
$outputSurveyUrls = isset($args[22]) ? $args[22] : false;
// Get existing values since Project object already exists in global scope
global $Proj, $longitudinal, $table_pk;
}
// Get current memory limit in bytes
$memory_limit = str_replace("M", "", ini_get('memory_limit')) * 1024 * 1024;
// Set array of valid $returnFormat values
$validReturnFormats = array('html', 'csv', 'xml', 'json', 'array');
// Set array of valid MC field types (don't include "checkbox" because it gets dealt with on its own)
$mc_field_types = array("radio", "select", "yesno", "truefalse", "sql");
// If $returnFormat is not valid, set to default 'csv'
if (!in_array($returnFormat, $validReturnFormats)) {
$returnFormat = 'csv';
}
// Cannot use $outputAsLabels for 'array' output
if ($returnFormat == 'array') {
$outputAsLabels = false;
}
// Can only use $outputCsvHeadersAsLabels for 'csv' output
if ($returnFormat != 'csv') {
$outputCsvHeadersAsLabels = false;
}
// If surveys are not enabled, then set $outputSurveyFields to false
if (!$Proj->project['surveys_enabled'] || empty($Proj->surveys)) {
$outputSurveyFields = false;
}
// Use for replacing strings in labels (if needed)
$orig = array("\"", "\r\n", "\n", "\r");
$repl = array("'", " ", " ", "");
// Determine if we should apply sortArray
$applySortFields = is_array($sortArray) && !empty($sortArray);
## Set all input values
// Get unique event names (with event_id as key)
$unique_events = $Proj->getUniqueEventNames();
// Create array of formatted event labels
if ($longitudinal && $outputAsLabels) {
$event_labels = array();
foreach (array_keys($unique_events) as $this_event_id) {
$event_labels[$this_event_id] = str_replace($orig, $repl, strip_tags(label_decode($Proj->eventInfo[$this_event_id]['name_ext'])));
}
}
// If $fields is a string, convert to array
if (!is_array($fields) && $fields != null) {
$fields = array($fields);
}
// If $fields is empty, replace it with array of ALL fields.
$removeTablePk = false;
if (empty($fields)) {
foreach (array_keys($Proj->metadata) as $this_field) {
// Make sure field is not a descriptive field (because those will never have data)
if ($Proj->metadata[$this_field]['element_type'] != 'descriptive') {
$fields[] = $this_field;
}
}
$checkFieldNameEachLoop = true;
} else {
// If only returning the record-event array (as the subset record list for a report),
// then make sure the record ID is added, or else it'll break some things downstream (not ideal solution but works as quick patch).
// Also do this for longitudinal projects because if we don't, it might not pull data for an entire event if data doesn't exist
// for any fields here except the record ID field. NOTE: Make sure we remove the record ID field in the end though (so it doesn't get returned
if (($Proj->longitudinal || $returnIncludeRecordEventArray) && !in_array($Proj->table_pk, $fields)) {
$fields = array_merge(array($Proj->table_pk), $fields);
$removeTablePk = true;
}
// Validate all field names and order fields according to metadata field order
$field_order = array();
foreach ($fields as $this_key => $this_event_field) {
$this_field = LongitudinalReports::getFieldFromEventField($this_event_field);
// Make sure field exists AND is not a descriptive field (because those will never have data)
if (isset($Proj->metadata[$this_field]) && $Proj->metadata[$this_field]['element_type'] != 'descriptive') {
// Put in array for sorting
$field_order[] = $Proj->metadata[$this_field]['field_order'];
} else {
// Remove any invalid field names
unset($fields[$this_key]);
}
}
// Sort fields by metadata field order (unless passing a flag to prevent reordering)
if (!$orderFieldsAsSpecified) {
array_multisort($field_order, SORT_NUMERIC, $fields);
}
unset($field_order);
// If we're querying more than 25% of the project's fields, then don't put field names in query but check via PHP each loop.
$checkFieldNameEachLoop = count($fields) / count($Proj->metadata) > 0.25;
}
// Create array of fields with field name as key
$fieldsKeys = array_fill_keys($fields, true);
// If $events is a string, convert to array
if (!is_array($events) && $events != null) {
$events = array($events);
}
// If $events is empty, replace it with array of ALL fields.
if (empty($events)) {
$events = array_keys($Proj->eventInfo);
} else {
// If $events has unique event name (instead of event_ids), then convert all to event_ids
$events_temp = array();
foreach ($events as $this_key => $this_event) {
// If numeric, validate event_id
if (is_numeric($this_event)) {
if (!isset($Proj->eventInfo[$this_event])) {
// Remove invalid event_id
unset($events[$this_key]);
} else {
// Valid event_id
$events_temp[] = $this_event;
}
} else {
// Get array key of unique event name provided
$event_id_key = array_search($this_event, $unique_events);
if ($event_id_key !== false) {
// Valid event_id
$events_temp[] = $event_id_key;
}
}
}
// Now swap out $events_temp for $events
$events = $events_temp;
unset($events_temp);
}
// Get array of all DAGs
$allDags = $Proj->getUniqueGroupNames();
// Validate DAGs
if (empty($allDags)) {
// If no DAGs exist, then automatically set array as empty
$groups = array();
// Automatically set $outputDags as false (in case was set to true mistakenly)
$outputDags = false;
} else {
// If $groups is a string, convert to array
if (!is_array($groups) && $groups != null) {
$groups = array($groups);
}
// If $groups is not empty, replace it with array of ALL data access group IDs.
if (!empty($groups)) {
// If $groups has unique group name (instead of group_ids), then convert all to group_ids
$groups_temp = array();
foreach ($groups as $this_key => $this_group) {
// If numeric, validate group_id
if (is_numeric($this_group)) {
if (!isset($allDags[$this_group])) {
// Check to see if its really the unique group name (and not the group_id) // LS Patched: https://iwg.devguard.com/trac/redcap/changeset/7747#file0
$group_id_key = array_search($this_group, $allDags);
if ($group_id_key !== false) {
// Valid group_id
$groups_temp[] = $group_id_key;
} else {
// Remove invalid group_id
unset($groups[$this_key]);
}
} else {
// Valid group_id
$groups_temp[] = $this_group;
}
} else {
// Get array key of unique group name provided
$group_id_key = array_search($this_group, $allDags);
if ($group_id_key !== false) {
// Valid group_id
$groups_temp[] = $group_id_key;
}
}
}
// Now swap out $groups_temp for $groups
$groups = $groups_temp;
unset($groups_temp);
}
}
## RECORDS
// If $records is a string, convert to array
if (!is_array($records) && $records != null) {
$records = array($records);
}
// If $records is empty, replace it with array of ALL records.
$recordsEmpty = false;
$recordCount = null;
if (empty($records)) {
$records = self::getRecordList($project_id);
// Set flag that $records was originally passed as empty
$recordsEmpty = true;
$checkRecordNameEachLoop = true;
} else {
// If we're querying more than 25% of the project's records, then don't put field names in query but check via PHP each loop.
if ($recordCount == null) {
$recordCount = self::getRecordCount();
}
$checkRecordNameEachLoop = count($records) / $recordCount > 0.25;
}
// Create array of fields with field name as key
$recordsKeys = array_fill_keys($records, true);
## DAG RECORDS: If pulling data for specific DAGs, get list of records in DAGs specified and replace $records with them
$hasDagRecords = false;
if (!empty($groups)) {
// Collect all DAG records into array
$dag_records = array();
$sql = "select distinct record from redcap_data where project_id = {$project_id}\n\t\t\t\t\tand field_name = '__GROUPID__' and value in (" . prep_implode($groups) . ")";
if (!$checkRecordNameEachLoop) {
$sql .= " and record in (" . prep_implode($records) . ")";
}
$q = db_query($sql);
while ($row = db_fetch_assoc($q)) {
// If we need to validate the record name in each loop, then check.
if ($checkRecordNameEachLoop && !isset($recordsKeys[$row['record']])) {
continue;
}
// Add to array
$dag_records[] = $row['record'];
}
// Set flag if returned some DAG records
$hasDagRecords = !empty($dag_records);
// Replace $records array
$records = $dag_records;
unset($dag_records);
// If we're querying more than 25% of the project's records, then don't put field names in query but check via PHP each loop.
if ($recordCount == null) {
$recordCount = self::getRecordCount();
}
$checkRecordNameEachLoop = count($records) / $recordCount > 0.25;
// Create array of fields with field name as key
$recordsKeys = array_fill_keys($records, true);
}
## APPLY FILTERING LOGIC: Get records-events where filter logic is true
$filterResults = false;
$filterReturnedEmptySet = false;
if ($filterLogic != '') {
// Get array of applicable record-events (only pass $project_id if already passed explicitly to getData)
$record_events_filtered = self::applyFilteringLogic($filterLogic, $records, is_numeric($args[0]) ? $project_id : null);
$filterResults = $record_events_filtered !== false;
// If logic returns zero record/events, then manually set $records to ''/blank
if ($filterResults) {
if (empty($record_events_filtered)) {
$records = array('');
$checkRecordNameEachLoop = false;
$filterReturnedEmptySet = true;
} else {
// Replace headers
$records = array_keys($record_events_filtered);
// If we're querying more than 25% of the project's records, then don't put field names in query but check via PHP each loop.
if ($recordCount == null) {
$recordCount = self::getRecordCount();
}
$checkRecordNameEachLoop = count($records) / $recordCount > 0.25;
// Create array of fields with field name as key
$recordsKeys = array_fill_keys($records, true);
}
}
}
## SORTING IN REPORTS: If the sort fields are NOT in $fields (i.e. should be returned as data),
// then temporarily add them to $fields and then remove them later when performing sorting.
if ($applySortFields) {
$sortArrayRemoveFromData = array();
foreach (array_keys($sortArray) as $this_field) {
if (!in_array($this_field, $fields)) {
$sortArrayRemoveFromData[] = $fields[] = $this_field;
}
}
}
## PIPING (only for exporting labels OR for displaying reports)
$piping_receiver_fields = array();
$do_label_piping = false;
if ($outputAsLabels || $returnFormat == 'html') {
// If any dropdowns, radios, or checkboxes are using piping in their option labels, then get data for those and then inject them
$piping_transmitter_fields = $piping_record_data = array();
foreach ($fields as $this_field) {
$this_field = LongitudinalReports::getFieldFromEventField($this_field);
if (in_array($Proj->metadata[$this_field]['element_type'], array('dropdown', 'select', 'radio', 'checkbox'))) {
$this_field_enum = $Proj->metadata[$this_field]['element_enum'];
// If has at least one left and right square bracket
if ($this_field_enum != '' && strpos($this_field_enum, '[') !== false && strpos($this_field_enum, ']') !== false) {
// If has at least one field piped
$these_piped_fields = array_keys(getBracketedFields($this_field_enum, true, true, true));
if (!empty($these_piped_fields)) {
$piping_receiver_fields[] = $this_field;
$piping_transmitter_fields = array_merge($piping_transmitter_fields, $these_piped_fields);
}
}
}
}
if (!empty($piping_receiver_fields)) {
// Get data for piping fields
$piping_record_data = self::getData('array', $records, $piping_transmitter_fields);
// Remove unneeded variables
unset($piping_transmitter_fields, $potential_piping_fields);
// Set flag
$do_label_piping = true;
}
}
## GATHER DEFAULT VALUES
// Get default values for all records (all fields get value '', except Form Status and checkbox fields get value 0)
$default_values = $mc_choice_labels = array();
$prev_form = null;
$fieldsNoEventRef = array();
foreach ($fields as $this_field) {
//LongitudinalReports: make array of field names without event ref for reading from redcap_data
$this_field = LongitudinalReports::getFieldFromEventField($this_field);
if (array_search($this_field, $fieldsNoEventRef) === false) {
$fieldsNoEventRef[] = $this_field;
}
// Get field's field type
$field_type = $Proj->metadata[$this_field]['element_type'];
// If exporting labels for multiple choice questions, store codes/labels in array for later use when replacing
if ($outputAsLabels && ($field_type == 'checkbox' || in_array($field_type, $mc_field_types))) {
if ($field_type == "yesno") {
$mc_choice_labels[$this_field] = parseEnum("1, Yes \\n 0, No");
} elseif ($field_type == "truefalse") {
$mc_choice_labels[$this_field] = parseEnum("1, True \\n 0, False");
} else {
$enum = $field_type == "sql" ? getSqlFieldEnum($Proj->metadata[$this_field]['element_enum']) : $Proj->metadata[$this_field]['element_enum'];
foreach (parseEnum($enum) as $this_value => $this_label) {
// Decode (just in case)
$this_label = html_entity_decode($this_label, ENT_QUOTES);
// Replace double quotes with single quotes
$this_label = str_replace("\"", "'", $this_label);
// Replace line breaks with two spaces
$this_label = str_replace("\r\n", " ", $this_label);
// Add to array
$mc_choice_labels[$this_field][$this_value] = $this_label;
}
}
}
// Loop through all designated events so that each event
foreach (array_keys($Proj->eventInfo) as $this_event_id) {
// If event_id isn't in list of event_ids provided, then skip
if (!in_array($this_event_id, $events)) {
continue;
}
// Get the form_name of this field
$this_form = $Proj->metadata[$this_field]['form_name'];
$current_event_field = "[{$Proj->getUniqueEventNames($this_event_id)}][{$this_field}]";
if (array_search($current_event_field, $fields) !== false || $this_field == $Proj->table_pk && $this_event_id == $Proj->firstEventId) {
// If we're starting a new survey, then add its Timestamp field as the first field in the instrument
if ($outputSurveyFields && $this_field != $table_pk && isset($Proj->forms[$this_form]['survey_id'])) {
$current_event_field = "[{$Proj->getUniqueEventNames($this_event_id)}][{$this_field}_timestamp]";
$default_values[$current_event_field] = '';
//$default_values[$this_event_id][$this_form.'_timestamp'] = '';
}
// If longitudinal, is this form designated for this event
$validFormEvent = !$longitudinal || $longitudinal && in_array($this_form, $Proj->eventsForms[$this_event_id]);
// Check a checkbox or Form Status field
if ($Proj->isCheckbox($this_field)) {
// Loop through all choices and set each as 0
foreach (array_keys(parseEnum($Proj->metadata[$this_field]['element_enum'])) as $choice) {
// Set default value as 0 (unchecked)
if (!$validFormEvent || $outputAsLabels && $outputCheckboxLabel) {
$default_values[$current_event_field][$choice] = '';
//$default_values[$this_event_id][$this_field][$choice] = '';
} elseif ($outputAsLabels) {
$default_values[$current_event_field][$choice] = 'Unchecked';
//$default_values[$this_event_id][$this_field][$choice] = 'Unchecked';
} else {
$default_values[$current_event_field][$choice] = '0';
//$default_values[$this_event_id][$this_field][$choice] = '0';
}
}
} elseif ($this_field == $this_form . "_complete") {
// Set default Form Status as 0
if (!$validFormEvent) {
$default_values[$current_event_field] = '';
//$default_values[$this_event_id][$this_field] = '';
} elseif ($outputAsLabels) {
$default_values[$current_event_field] = 'Incomplete';
//$default_values[$this_event_id][$this_field] = 'Incomplete';
} else {
$default_values[$current_event_field] = '0';
//$default_values[$this_event_id][$this_field] = '0';
}
} else {
// Set as ''
$default_values[$current_event_field] = '';
//$default_values[$this_event_id][$this_field] = '';
// If this is the Record ID field and we're exporting DAG names and/or survey fields, them add them.
// If the Record ID field is not included in the report, then add DAG names and/or survey fields if not already added.
if ($this_field == $table_pk || !in_array($table_pk, $fields)) {
// DAG field
if ($outputDags && !isset($default_values['redcap_data_access_group'])) {
$default_values['redcap_data_access_group'] = '';
}
if ($outputSurveyIdentifier && !isset($default_values['redcap_survey_identifier'])) {
// Survey Identifier field
$default_values['redcap_survey_identifier'] = '';
// Survey Timestamp field (first instrument only - for other instruments, it's doing this same thing above in the loop)
// if ($prev_form == null && isset($Proj->forms[$this_form]['survey_id'])) {
// $default_values[$this_event_id][$this_form.'_timestamp'] = '';
// }
}
// Event schedule dates selected
if (is_array($outputScheduleDates) && count($outputScheduleDates) > 0) {
foreach ($outputScheduleDates as $outputDateEventId) {
$default_values["[{$Proj->getUniqueEventNames($outputDateEventId)}][___schedule_date]"] = '';
}
}
// Survey URLs selected
if (is_array($outputSurveyUrls) && count($outputSurveyUrls) > 0) {
foreach ($outputSurveyUrls as $outputSurveyEventIdSurveyId) {
//Event id/survey form stored as pipe-separated pair e.g. 2365|my_survey
$eventsurvey = explode('|', $outputSurveyEventIdSurveyId);
$eventRef = $Proj->getUniqueEventNames($eventsurvey[0]);
$default_values["[{$eventRef}][{$eventsurvey['1']}___url]"] = '';
}
}
}
}
}
// Set for next loop
$prev_form = $this_form;
}
}
## QUERY DATA TABLE
// Set main query
$sql = "select record, event_id, field_name, value from redcap_data\n\t\t\t\twhere project_id = " . $project_id . " and record != ''";
if (!empty($events)) {
$sql .= " and event_id in (" . prep_implode($events) . ")";
}
if (!$checkFieldNameEachLoop && !empty($fields)) {
// $sql .= " and field_name in (" . prep_implode($fields) . ")";
$sql .= " and field_name in (" . prep_implode($fieldsNoEventRef) . ")";
}
if (!$checkRecordNameEachLoop && !empty($records)) {
$sql .= " and record in (" . prep_implode($records) . ")";
}
// If we are to return records for specific DAG(s) but those DAGs contain no records, then cause the query to return nothing.
if (!$hasDagRecords && !empty($groups)) {
$sql .= " and 1 = 2";
}
// Order query results by record name if constant has been defined
if (defined("EXPORT_WRITE_TO_FILE")) {
$sql .= " order by record";
}
//print "<br><b>MySQL Error:</b> ".db_error()."<br><b>Query:</b> $sql<br><br>";
// Use unbuffered query method
$q = db_query($sql, null, MYSQLI_USE_RESULT);
// Return database query error to super users
if (defined('SUPER_USER') && SUPER_USER && db_error() != '') {
print "<br><b>MySQL Error:</b> " . db_error() . "<br><b>Query:</b> {$sql}<br><br>";
}
// Set flag is record ID field is a display field
$recordIdInFields = in_array($Proj->table_pk, $fields);
// Remove unnecessary things for memory usage purposes
// unset($fields, $events);
// Set intial values
$num_rows_returned = 0;
$event_id = 0;
$record = "";
$record_data = array();
$days_to_shift = array();
$record_data_tmp_line = array();
$record_line = 1;
// If writing data to a file instead to memory, create temp file
if (defined("EXPORT_WRITE_TO_FILE")) {
$record_data_tmp_file = tmpfile();
}
// Loop through data one record at a time
while ($row = db_fetch_assoc($q)) {
// If value is blank, then skip
if ($row['value'] == '') {
continue;
}
// If we need to validate the record name in each loop, then check.
if ($checkRecordNameEachLoop && !isset($recordsKeys[$row['record']])) {
continue;
}
// If we need to validate the field name in each loop, then check.
if ($checkFieldNameEachLoop && !isset($fieldsKeys["[{$Proj->getUniqueEventNames($row['event_id'])}][{$row['field_name']}]"])) {
continue;
}
// // If filtering the results using a logic string, then skip this record-event if doesn't match valid logic
// if ($filterResults && !isset($record_events_filtered[$row['record']][$row['event_id']])) continue;
// Add initial default data for this record-event
if (!isset($record_data[$row['record']])) {
// [$row['event_id']])) {
/*
// If we're close to running out of memory, then set contstant and call this method recursively
// to start over and write data to file instead of to memory (to allow full data export w/o hitting memory limits).
if (!defined("EXPORT_WRITE_TO_FILE") && memory_get_usage() >= $memory_limit*0.8) {
// Define the constant
define("EXPORT_WRITE_TO_FILE", true);
// Unset variables to clear up memory
unset($record_data, $records, $recordsKeys, $fieldsKeys, $record_events_filtered);
// Close the unbuffered query
db_free_result($q);
// Call this function with constant defined to start over while writing data to file
return call_user_func_array('Records::getData', $args);
} elseif (defined("EXPORT_WRITE_TO_FILE") && $event_id > 0) {
// Add data to file and clear from array
fwrite($record_data_tmp_file, serialize(array($record=>array($event_id=>$record_data[$record][$event_id])))."\n");
// Add this to record line
$record_data_tmp_line[$record][$event_id] = $record_line++;
// Clear array for next record-event
$record_data = array();
}
*/
// Add default data
// $record_data[$row['record']][$row['event_id']] = $default_values[$row['event_id']];
$record_data[$row['record']] = $default_values;
// Get date shift amount for this record (if applicable)
if ($dateShiftDates) {
$days_to_shift[$row['record']] = self::get_shift_days($row['record'], $Proj->project['date_shift_max'], $Proj->project['__SALT__']);
}
}
// Decode the value
$row['value'] = html_entity_decode($row['value'], ENT_QUOTES);
// Set values for this loop
$event_id = $row['event_id'];
$record = $row['record'];
// Add the value into the array (double check to make sure the event_id still exists)
// - but only if it is an event/field we're interested in for Longitudinal Report
if (isset($unique_events[$event_id])) {
$current_event_field = "[{$Proj->getUniqueEventNames($event_id)}][{$row['field_name']}]";
if (array_search($current_event_field, $fields) !== false || $row['field_name'] == $Proj->table_pk && $event_id == $Proj->firstEventId) {
// Get field's field type
$field_type = $Proj->metadata[$row['field_name']]['element_type'];
if ($field_type == 'checkbox') {
// Make sure that this checkbox option still exists
//if (isset($default_values[$event_id][$row['field_name']][$row['value']])) {
if (isset($default_values[$current_event_field][$row['value']])) {
// Add checkbox field value
if ($outputAsLabels) {
// If using $outputCheckboxLabel API flag, then output the choice label
if ($outputCheckboxLabel) {
// Get MC option label
$this_mc_label = $mc_choice_labels[$row['field_name']][$row['value']];
// PIPING (if applicable)
if ($do_label_piping && in_array($row['field_name'], $piping_receiver_fields)) {
$this_mc_label = strip_tags(Piping::replaceVariablesInLabel($this_mc_label, $record, $event_id, $piping_record_data));
}
// Add option label
//$record_data[$record][$event_id][$row['field_name']][$row['value']] = $this_mc_label;
$record_data[$record][$current_event_field][$row['value']] = $this_mc_label;
} else {
//$record_data[$record][$event_id][$row['field_name']][$row['value']] = 'Checked';
$record_data[$record][$current_event_field][$row['value']] = 'Checked';
}
} else {
//$record_data[$record][$event_id][$row['field_name']][$row['value']] = '1';
$record_data[$record][$current_event_field][$row['value']] = '1';
}
}
} else {
// Non-checkbox field value
// When outputting labels for MULTIPLE CHOICE questions (excluding checkboxes), add choice labels to answers_labels
if ($outputAsLabels && isset($mc_choice_labels[$row['field_name']])) {
// Get MC option label
$this_mc_label = $mc_choice_labels[$row['field_name']][$row['value']];
// PIPING (if applicable)
if ($do_label_piping && in_array($row['field_name'], $piping_receiver_fields)) {
$this_mc_label = strip_tags(Piping::replaceVariablesInLabel($this_mc_label, $record, $event_id, $piping_record_data));
}
// Add option label
//$record_data[$record][$event_id][$row['field_name']] = $this_mc_label;
$record_data[$record][$current_event_field] = $this_mc_label;
} else {
// Shift all date[time] fields, when applicable
if ($dateShiftDates && $field_type == 'text' && (substr($Proj->metadata[$row['field_name']]['element_validation_type'], 0, 8) == 'datetime' || in_array($Proj->metadata[$row['field_name']]['element_validation_type'], array('date', 'date_ymd', 'date_mdy', 'date_dmy')))) {
//$record_data[$record][$event_id][$row['field_name']] = Records::shift_date_format($row['value'], $days_to_shift[$record]);
$record_data[$record][$current_event_field] = Records::shift_date_format($row['value'], $days_to_shift[$record]);
} elseif ($replaceFileUploadDocId && $field_type == 'file') {
//$record_data[$record][$event_id][$row['field_name']] = '[document]';
$record_data[$record][$current_event_field] = '[document]';
} else {
// Check if we should replace any line breaks with spaces or double quotes with single quotes
if ($removeLineBreaksInValues) {
$row['value'] = str_replace($orig, $repl, $row['value']);
}
// Add value
//$record_data[$record][$event_id][$row['field_name']] = $row['value'];
$record_data[$record][$current_event_field] = $row['value'];
}
}
}
}
}
// Increment row counter
$num_rows_returned++;
}
db_free_result($q);
// If query returns 0 rows, then simply put default values for $record_data as placeholder for blanks and other defaults.
// If DAGs were specified as input parameters but there are no records in those DAGs, then output NOTHING but a blank array.
if ($num_rows_returned < 1 && !($hasDagRecords && !empty($groups))) {
if ($recordsEmpty) {
// Loop through ALL records and add default values for each
foreach ($records as $this_record) {
$record_data[$this_record] = $default_values;
}
} else {
// Validate the records passed in $records and loop through them and add default values for each
foreach (array_intersect($records, self::getRecordList($project_id)) as $this_record) {
$record_data[$this_record] = $default_values;
}
}
}
/*
print memory_get_usage()/1024/1024;
//print_array($record_data);
print_array($record_data_tmp_line);
fseek($record_data_tmp_file, 0);
echo stream_get_contents($record_data_tmp_file);
*/
// REPORTS ONLY: If the Record ID field is included in the report, then also display the Custom Record Label
$extra_record_labels = array();
if ($returnFormat == 'html' && $recordIdInFields) {
$extra_record_labels = Records::getCustomRecordLabelsSecondaryFieldAllRecords($records, false, 'all');
}
// Sort by record and event name ONLY if we are NOT sorting by other fields
if (empty($sortArray)) {
## SORT RECORDS BY RECORD NAME (i.e., array keys) using case insensitive natural sort
natcaseksort($record_data);
/* ## SORT EVENTS WITHIN EACH RECORD (LONGITUDINAL ONLY)
if ($longitudinal) {
// Create array of event_id's in order by arm_num, then by event order
$event_order = array_keys($Proj->eventInfo);
// Loop through each record and reorder the events (if has more than one event of data per record)
foreach ($record_data as $this_record=>&$these_events) {
// Set array to collect the data for this record in reordered form
$this_record_data_reordered = array();
// Skip if there's only one event with data
if (count($these_events) == 1) continue;
// Loop through all existing PROJECT events in their proper order
foreach (array_intersect($event_order, array_keys($these_events)) as $this_event_id) {
// Add this event's data to reordered data array
$this_record_data_reordered[$this_event_id] = $these_events[$this_event_id];
}
// Replace old data with reordered data
$record_data[$this_record] = $this_record_data_reordered;
}
// Remove unnecessary things for memory usage purposes
unset($this_record_data_reordered, $these_events, $event_order);
}*/
}
## ADD DATA ACCESS GROUP NAMES (IF APPLICABLE)
if ($outputDags) {
// If exporting labels, then create array of DAG labels
if ($outputAsLabels) {
$allDagLabels = $Proj->getGroups();
}
// Get all DAG values for the records
$sql = "select distinct record, value from redcap_data \n\t\t\t\t\twhere project_id = {$project_id} and field_name = '__GROUPID__'";
if (!$checkRecordNameEachLoop) {
// For performance reasons, don't use "record in ()" unless we really need to
$sql .= " and record in (" . prep_implode($records, false) . ")";
}
$q = db_query($sql);
while ($row = db_fetch_assoc($q)) {
// Validate record name and DAG group_id value
if (isset($allDags[$row['value']]) && isset($record_data[$row['record']])) {
// Add unique DAG name to every event for this record
// foreach (array_keys($record_data[$row['record']]) as $dag_event_id) {
// Add DAG name or unique DAG name
//$record_data[$row['record']][$dag_event_id]['redcap_data_access_group']
$record_data[$row['record']]['redcap_data_access_group'] = $outputAsLabels ? $allDagLabels[$row['value']] : $allDags[$row['value']];
// }
}
}
unset($allDagLabels);
}
## ADD DATES FROM SCHEDULE IF REQURIED
if (isset($outputScheduleDates) && count($outputScheduleDates) > 0) {
$sql = "select event_id, record, event_date, event_time, event_status " . "from redcap_events_calendar " . "where project_id = {$project_id} ";
if (!$checkRecordNameEachLoop) {
// For performance reasons, don't use "record in ()" unless we really need to
$sql .= " and r.record in (" . prep_implode($records, false) . ")";
}
$q = db_query($sql);
while ($row = db_fetch_assoc($q)) {
// Process further only if record is in our array
if (!isset($record_data[$row['record']])) {
continue;
}
if (array_search($row['event_id'], $outputScheduleDates) !== false) {
$record_data[$row['record']]["[{$Proj->getUniqueEventNames($row['event_id'])}][___schedule_date]"] = trim("{$row['event_date']} {$row['event_time']}");
}
}
}
## ADD SURVEY IDENTIFIER AND TIMESTAMP FIELDS FOR ALL SURVEYS
/* TODO Longitudinal Reports: include survey timestamps/urls/returncodes/survey queue links */
if ($outputSurveyFields || isset($outputSurveyUrls) && count($outputSurveyUrls) > 0) {
$sql = "select r.record, r.first_submit_time, r.completion_time, p.participant_identifier, s.form_name, p.event_id, p.hash, r.return_code " . "from redcap_surveys s, redcap_surveys_response r, redcap_surveys_participants p, redcap_events_metadata a " . "where p.participant_id = r.participant_id and s.project_id = {$project_id} and s.survey_id = p.survey_id " . "and p.event_id = a.event_id ";
//and r.first_submit_time is not null";
if (!$checkRecordNameEachLoop) {
// For performance reasons, don't use "record in ()" unless we really need to
$sql .= " and r.record in (" . prep_implode($records, false) . ")";
}
$q = db_query($sql);
while ($row = db_fetch_assoc($q)) {
// Make sure we have this record-event in array first
//if (!isset($record_data[$row['record']][$row['event_id']])) continue;
if (!isset($record_data[$row['record']])) {
continue;
}
/* // Add participant identifier
if ($row['participant_identifier'] != "" && isset($default_values[$row['event_id']]['redcap_survey_identifier'])) {
$record_data[$row['record']][$row['event_id']]['redcap_survey_identifier'] = html_entity_decode($row['participant_identifier'], ENT_QUOTES);
}
// If response exists but is not completed, note this in the export
if ($dateShiftSurveyTimestamps && $row['completion_time'] != "") {
// Shift the survey timestamp, if applicable
$row['completion_time'] = Records::shift_date_format($row['completion_time'], $days_to_shift[$row['record']]);
} elseif ($row['completion_time'] == "") {
// Replace with text "[not completed]" if survey wasn't completed
$row['completion_time'] = "[not completed]";
}
// Add to record_data array
if (isset($record_data[$row['record']][$row['event_id']][$row['form_name'].'_timestamp'])) {
$record_data[$row['record']][$row['event_id']][$row['form_name'].'_timestamp'] = $row['completion_time'];
}*/
$frm = $row['form_name'];
$evt = $row['event_id'];
if (array_search("{$evt}|{$frm}", $outputSurveyUrls) !== false) {
// Found a record/survey we want to include
$url = $row['completion_time'] == "" ? APP_PATH_WEBROOT_FULL . "surveys/?s=" . $row['hash'] : $row['completion_time'];
$record_data[$row['record']]["[{$Proj->getUniqueEventNames($evt)}][{$frm}___url]"] = $url;
}
}
}
unset($days_to_shift);
## HASH THE RECORD ID (replace record names with hash value)
if ($hashRecordID) {
foreach ($record_data as $this_record => $eattr) {
// Hash the record name using a system-level AND project-level salt
$this_new_record = md5($salt . $this_record . $Proj->project['__SALT__']);
// Add new record name
$record_data[$this_new_record] = $record_data[$this_record];
// Remove the old one
unset($record_data[$this_record]);
// If Record ID field exists in the report, then set it too at the value level
foreach ($eattr as $this_event_id => $attr) {
if (isset($attr[$Proj->table_pk])) {
//$record_data[$this_new_record][$this_event_id][$Proj->table_pk] = $this_new_record;
$record_data[$this_new_record][$Proj->table_pk] = $this_new_record;
}
}
}
unset($eattr, $attr);
}
// Remove unnecessary things for memory usage purposes
unset($records, $default_values, $fieldsKeys, $recordsKeys, $record_events_filtered);
db_free_result($q);
// // If we need to remove the record ID field, then loop through all events of data and remove it
// If we need to remove the record ID field, then loop through all records of data and remove it
if ($removeTablePk) {
foreach ($record_data as $this_record => &$these_fields) {
//&$these_events) {
// foreach ($these_events as $this_event_id=>&$these_fields) {
if (isset($these_fields[$Proj->table_pk])) {
//unset($record_data[$this_record][$this_event_id][$Proj->table_pk]);
unset($record_data[$this_record][$Proj->table_pk]);
}
// }
}
}
## RETURN DATA IN SPECIFIED FORMAT
// ARRAY format
if ($returnFormat == 'array') {
// Return as-is (already in array format)
return $record_data;
} else {
## For non-array formats, reformat data array (e.g., add unique event names, separate check options)
// HEADERS: Do initial loop through array to build headers (do JUST one loop)
$headers = $checkbox_choice_labels = array();
/* foreach ($record_data as $this_record=>&$field_data) { // &$event_data) {
// Loop through events in this record
foreach ($event_data as $this_event_id=>&$field_data) {
// Create array of all forms
$all_forms = array_keys($Proj->forms);
// Loop through fields in this event
foreach ($field_data as $this_field=>$this_value) {
// Skip the Record ID field since it will be redundant
//if ($this_field == $table_pk) continue;
// If field is only a sorting field and not a real data field to return, then skip it
if ($applySortFields && in_array($this_field, $sortArrayRemoveFromData)) continue;
$this_field = LongitudinalReports::getFieldFromEventField($this_field);
// If a checkbox split into multiple fields
if (is_array($this_value) && !$combine_checkbox_values) {
// If exporting labels, get labels for this field
if ($outputCsvHeadersAsLabels) {
$this_field_enum = parseEnum($Proj->metadata[$this_field]['element_enum']);
}
// Loop through all checkbox choices and add as separate "fields"
foreach ($this_value as $this_code=>$this_checked_value) {
// Store original code before formatting
$this_code_orig = $this_code;
// If coded value is not numeric, then format to work correct in variable name (no spaces, caps, etc)
$this_code = (Project::getExtendedCheckboxCodeFormatted($this_code));
// Add choice to header
$headers[] = ($outputCsvHeadersAsLabels)
? str_replace($orig, $repl, strip_tags(label_decode($Proj->metadata[$this_field]['element_label'])))." (choice=".str_replace(array("'","\""),array("",""),$this_field_enum[$this_code_orig]).")"
: $this_field."___".$this_code;
}
// If a normal field or DAG/Survey fields
} else {
// Get this field's form
$this_form = $Proj->metadata[$this_field]['form_name'];
// If the record ID field
if ($this_field == $table_pk) {
$headers[] = ($outputCsvHeadersAsLabels) ? str_replace($orig, $repl, strip_tags(label_decode($Proj->metadata[$table_pk]['element_label']))) : $table_pk;
// If longitudinal, add unique event name to line
if ($longitudinal) {
$headers[] = ($outputCsvHeadersAsLabels) ? 'Event Name' : 'redcap_event_name';
}
}
// Check if a special field or a normal field
elseif (!$outputCsvHeadersAsLabels) {
// Add field to header array
$headers[] = $this_field;
// Add checkbox labels to array (only for $combine_checkbox_values=TRUE)
if (is_array($this_value) && $combine_checkbox_values) {
foreach (parseEnum($Proj->metadata[$this_field]['element_enum']) as $raw_coded_value=>$checkbox_label) {
$checkbox_choice_labels[$raw_coded_value] = $checkbox_label;
}
}
// Output labels for normal field or DAG/Survey fields
} elseif ($this_field == 'redcap_data_access_group') {
$headers[] = 'Data Access Group';
} elseif ($this_field == 'redcap_survey_identifier') {
$headers[] = 'Survey Identifier';
} elseif (substr($this_field, -10) == '_timestamp' && in_array(substr($this_field, 0, -10), $all_forms)) {
$headers[] = 'Survey Timestamp';
} else {
$headers[] = str_replace($orig, $repl, strip_tags(label_decode($Proj->metadata[$this_field]['element_label'])));
}
}
}
unset($all_forms);
// Stop after we have all the fields for the first event listed (that's all we need)
break; // 2;
// }
} */
// Loop through fields in order specified in LongitudinalReport spec
foreach ($fields as $this_eventfield) {
// If field is only a sorting field and not a real data field to return, then skip it
if ($applySortFields && in_array($this_eventfield, $sortArrayRemoveFromData)) {
continue;
}
$this_eventref = LongitudinalReports::getEventFromEventField($this_eventfield);
$this_field = LongitudinalReports::getFieldFromEventField($this_eventfield);
// If a checkbox split into multiple fields
// if (is_array($this_value) && !$combine_checkbox_values) {
if ($Proj->isCheckbox($this_field) && !$combine_checkbox_values) {
// If exporting labels, get labels for this field
//if ($outputCsvHeadersAsLabels) {
$this_field_enum = parseEnum($Proj->metadata[$this_field]['element_enum']);
//}
// Loop through all checkbox choices and add as separate "fields"
foreach ($this_field_enum as $this_code => $this_checked_value) {
// Store original code before formatting
$this_code_orig = $this_code;
// If coded value is not numeric, then format to work correct in variable name (no spaces, caps, etc)
$this_code = Project::getExtendedCheckboxCodeFormatted($this_code);
// Add choice to header
// $headers[] = ($outputCsvHeadersAsLabels)
// ? str_replace($orig, $repl, strip_tags(label_decode($Proj->metadata[$this_field]['element_label'])))." (choice=".str_replace(array("'","\""),array("",""),$this_field_enum[$this_code_orig]).")"
// : $this_field."___".$this_code;
if ($outputCsvHeadersAsLabels) {
// Longitudinal Reports - also include event name in header labels/ref
$event_id = $Proj->getEventIdUsingUniqueEventName($this_eventref);
$event_name = REDCap::getEventNames(false, true, $event_id);
$hdr_display = str_replace($orig, $repl, strip_tags(label_decode($Proj->metadata[$this_field]['element_label']))) . " ({$event_name})" . " (choice=" . str_replace(array("'", "\""), array("", ""), $this_field_enum[$this_code_orig]) . ")";
$headers[] = $hdr_display;
} else {
$headers[] = "[{$this_eventref}][{$this_field}___{$this_code}]";
}
}
// If a normal field or DAG/Survey fields
} else {
// Get this field's form
$this_form = $Proj->metadata[$this_field]['form_name'];
// If the record ID field
if ($this_field == $table_pk) {
$headers[] = $outputCsvHeadersAsLabels ? str_replace($orig, $repl, strip_tags(label_decode($Proj->metadata[$table_pk]['element_label']))) : $table_pk;
// // If longitudinal, add unique event name to line
// if ($longitudinal) {
// $headers[] = ($outputCsvHeadersAsLabels) ? 'Event Name' : 'redcap_event_name';
// }
} elseif (!$outputCsvHeadersAsLabels) {
// Add field to header array
$headers[] = $this_eventfield;
// $this_field;
// Add checkbox labels to array (only for $combine_checkbox_values=TRUE)
//if (is_array($this_value) && $combine_checkbox_values) {
if ($combine_checkbox_values && $Proj->isCheckbox($this_field)) {
foreach (parseEnum($Proj->metadata[$this_field]['element_enum']) as $raw_coded_value => $checkbox_label) {
$checkbox_choice_labels[$raw_coded_value] = $checkbox_label;
}
}
/* // Output labels for normal field or DAG/Survey fields
} elseif ($this_field == 'redcap_data_access_group') {
$headers[] = 'Data Access Group';
} elseif ($this_field == 'redcap_survey_identifier') {
$headers[] = 'Survey Identifier';
} elseif (substr($this_field, -10) == '_timestamp' && in_array(substr($this_field, 0, -10), $all_forms)) {
$headers[] = 'Survey Timestamp'; */
} else {
// $headers[] = str_replace($orig, $repl, strip_tags(label_decode($Proj->metadata[$this_field]['element_label'])));
// Longitudinal Reports - also include event name in header labels/ref
$event_id = $Proj->getEventIdUsingUniqueEventName($this_eventref);
$event_name = REDCap::getEventNames(false, true, $event_id);
$hdr_display = str_replace($orig, $repl, strip_tags(label_decode($Proj->metadata[$this_field]['element_label']))) . " ({$event_name})";
$headers[] = $hdr_display;
}
}
}
// Add other fields at the end (DAG, survey stuff...)
if ($outputDags) {
$headers[] = $outputCsvHeadersAsLabels ? 'Data Access Group' : 'redcap_data_access_group';
}
if ($outputSurveyFields) {
$headers[] = 'Survey Identifier';
$headers[] = 'Survey Timestamp';
}
if (isset($outputScheduleDates) && count($outputScheduleDates) > 0) {
foreach ($outputScheduleDates as $evt) {
if ($outputCsvHeadersAsLabels) {
$headers[] = "Schedule Date ({$Proj->eventInfo[$evt]['name_ext']})";
} else {
$headers[] = "[{$Proj->getUniqueEventNames($evt)}][___schedule_date]";
}
}
}
if (isset($outputSurveyUrls) && count($outputSurveyUrls) > 0) {
foreach ($outputSurveyUrls as $evtSurv) {
//Event id/survey form stored as pipe-separated pair e.g. 2365|my_survey
$es = explode('|', $evtSurv);
if ($outputCsvHeadersAsLabels) {
$headers[] = label_decode(strip_tags($Proj->forms[$es[1]]['menu'])) . " URL ({$Proj->eventInfo[$evt]['name_ext']})";
} else {
$headers[] = "[{$Proj->getUniqueEventNames($es[0])}][{$es['1']}___url]";
}
}
}
// Place formatted data into $record_data_formatted
$record_data_formatted = array();
// Set line/item number for each record/event
//$recordEventNum = 0;
$recordNum = 0;
// If no results were returned (empty array with no values), then output row with message stating that
if (!$filterReturnedEmptySet) {
// Loop through array and output line as CSV
foreach ($record_data as $this_record => &$field_data) {
// &$event_data) {
// Loop through events in this record
// foreach ($event_data as $this_event_id=>&$field_data) {
// // Loop through fields in this event
// Loop through fields in order specified in setup
foreach ($fields as $this_eventfield) {
$this_eventref = LongitudinalReports::getEventFromEventField($this_eventfield);
$this_field = LongitudinalReports::getFieldFromEventField($this_eventfield);
$this_value = $field_data[$this_eventfield];
// Is value an array? (i.e. a checkbox)
$value_is_array = is_array($this_value);
// Check field type
if ($value_is_array && !$combine_checkbox_values) {
// Loop through all checkbox choices and add as separate "fields"
foreach ($this_value as $this_code => $this_checked_value) {
// If coded value is not numeric, then format to work correct in variable name (no spaces, caps, etc)
$this_code = Project::getExtendedCheckboxCodeFormatted($this_code);
//$record_data_formatted[$recordEventNum][$this_field."___".$this_code] = $this_checked_value;
$record_data_formatted[$recordNum]["[{$this_eventref}][{$this_field}" . "___" . "{$this_code}]"] = $this_checked_value;
}
} elseif ($value_is_array && $combine_checkbox_values) {
// Loop through all checkbox choices and create comma-delimited list of all *checked* options as value of single field
$checked_off_options = array();
foreach ($this_value as $this_code => $this_checked_value) {
// If value is 0 (unchecked), then skip it here. (Also skip if blank, which means that this form not designated for this event.)
if ($this_checked_value == '0' || $this_checked_value == '' || $this_checked_value == 'Unchecked') {
continue;
}
// If coded value is not numeric, then format to work correct in variable name (no spaces, caps, etc)
// $this_code = (Project::getExtendedCheckboxCodeFormatted($this_code));
// Add checked off option code to array of checked off options
$checked_off_options[] = $outputAsLabels ? $checkbox_choice_labels[$this_code] : $this_code;
}
// Add checkbox as single field
//$record_data_formatted[$recordEventNum][$this_field] = implode(",", $checked_off_options);
$record_data_formatted[$recordNum]["[{$this_eventref}][{$this_field}]"] = implode(",", $checked_off_options);
} else {
// Add record name to line
if ($this_field == $table_pk) {
//$record_data_formatted[$recordEventNum][$table_pk] = $this_record;
$record_data_formatted[$recordNum][$table_pk] = $this_record;
// // If longitudinal, add unique event name to line
// if ($longitudinal) {
// if ($outputAsLabels) {
// $record_data_formatted[$recordEventNum]['redcap_event_name'] = $event_labels[$this_event_id];
// } else {
// $record_data_formatted[$recordEventNum]['redcap_event_name'] = $unique_events[$this_event_id];
// }
// }
} else {
// Add field and its value
//$record_data_formatted[$recordEventNum][$this_field] = $this_value;
$record_data_formatted[$recordNum]["[{$this_eventref}][{$this_field}]"] = $this_value;
}
}
}
// Add data for other fields at the end (DAG, survey stuff...)
if ($outputDags) {
$record_data_formatted[$recordNum]["redcap_data_access_group"] = $field_data["redcap_data_access_group"];
}
if ($outputSurveyFields) {
$record_data_formatted[$recordNum]["Survey Identifier"] = "_";
$record_data_formatted[$recordNum]["Survey Timestamp"] = "_";
}
if (isset($outputScheduleDates) && count($outputScheduleDates) > 0) {
foreach ($outputScheduleDates as $evt) {
$colRef = "[{$Proj->getUniqueEventNames($evt)}][___schedule_date]";
$record_data_formatted[$recordNum][$colRef] = $field_data[$colRef];
}
}
if (isset($outputSurveyUrls) && count($outputSurveyUrls) > 0) {
foreach ($outputSurveyUrls as $evtSurv) {
//Event id/survey form stored as pipe-separated pair e.g. 2365|my_survey
$es = explode('|', $evtSurv);
$colRef = "[{$Proj->getUniqueEventNames($es[0])}][{$es['1']}___url]";
//$url = ($returnFormat == 'html')
// ? "<a href=\"{$field_data[$colRef]}\" target=\"_blank\">{$field_data[$colRef]}</a>"
// : $field_data[$colRef];
$record_data_formatted[$recordNum][$colRef] = $field_data[$colRef];
}
}
// Increment item counter
//$recordEventNum++;
$recordNum++;
//}
// Remove record from array to free up memory as we go
unset($record_data[$this_record]);
}
}
unset($record_data);
// APPLY MULTI-FIELD SORTING
if ($applySortFields) {
// Move array keys to array with them as values
$sortFields = array_keys($sortArray);
$sortTypes = array_values($sortArray);
// Determine if any of the sort fields are numerical fields (number, integer, calc, slider)
$sortFieldIsNumber = array();
foreach ($sortFields as $this_sort_field) {
$this_sort_field = LongitudinalReports::getFieldFromEventField($this_sort_field);
$field_type = $Proj->metadata[$this_sort_field]['element_type'];
$val_type = $Proj->metadata[$this_sort_field]['element_validation_type'];
$sortFieldIsNumber[] = $this_sort_field == $Proj->table_pk && $Proj->project['auto_inc_set'] || $val_type == 'float' || $val_type == 'int' || $field_type == 'calc' || $field_type == 'slider';
}
// Loop through each record/event and build separate array for each sort field
$sortFieldValues = array();
foreach ($record_data_formatted as &$line) {
foreach ($sortFields as $key => $this_sort_field) {
// Add value to array as lower case (since we need to do case insensitive sorting)
$sortFieldValues[$key][] = strtolower($line[$this_sort_field]);
}
}
// print_array($sortFieldValues);
// Sort the data array
if (count($sortFieldValues) == 1) {
// One sort field
array_multisort($sortFieldValues[0], $sortTypes[0] == 'ASC' ? SORT_ASC : SORT_DESC, $sortFieldIsNumber[0] ? SORT_NUMERIC : SORT_STRING, $record_data_formatted);
} elseif (count($sortFieldValues) == 2) {
// Two sort fields
array_multisort($sortFieldValues[0], $sortTypes[0] == 'ASC' ? SORT_ASC : SORT_DESC, $sortFieldIsNumber[0] ? SORT_NUMERIC : SORT_STRING, $sortFieldValues[1], $sortTypes[1] == 'ASC' ? SORT_ASC : SORT_DESC, $sortFieldIsNumber[1] ? SORT_NUMERIC : SORT_STRING, $record_data_formatted);
} else {
// Three sort fields
array_multisort($sortFieldValues[0], $sortTypes[0] == 'ASC' ? SORT_ASC : SORT_DESC, $sortFieldIsNumber[0] ? SORT_NUMERIC : SORT_STRING, $sortFieldValues[1], $sortTypes[1] == 'ASC' ? SORT_ASC : SORT_DESC, $sortFieldIsNumber[1] ? SORT_NUMERIC : SORT_STRING, $sortFieldValues[2], $sortTypes[2] == 'ASC' ? SORT_ASC : SORT_DESC, $sortFieldIsNumber[2] ? SORT_NUMERIC : SORT_STRING, $record_data_formatted);
}
// If any sorting fields did NOT exist in $fields originally (but were added so their data could be obtained for
// sorting purposes only), then remove them now.
if (!empty($sortArrayRemoveFromData)) {
foreach ($sortArrayRemoveFromData as $this_field) {
foreach ($record_data_formatted as &$this_item) {
// Remove field from this record-event
unset($this_item[$this_field]);
}
}
}
// Remove vars to save memory
unset($sortFieldValues);
}
## HTML format (i.e., report)
if ($returnFormat == 'html') {
// Build array of events with unique event name as key and full event name as value
$eventsUniqueFullName = $eventsUniqueEventId = array();
if ($longitudinal) {
foreach ($unique_events as $this_event_id => $this_unique_name) {
// Arrays event name and event_id with unique event name as key
$eventsUniqueFullName[$this_unique_name] = str_replace($orig, $repl, strip_tags(label_decode($Proj->eventInfo[$this_event_id]['name_ext'])));
$eventsUniqueEventId[$this_unique_name] = $this_event_id;
}
}
// Build array of DAGs with unique DAG names as key and
$dagUniqueFullName = array();
foreach ($Proj->getUniqueGroupNames() as $this_group_id => $this_unique_dag) {
$dagUniqueFullName[$this_unique_dag] = str_replace($orig, $repl, strip_tags(label_decode($Proj->getGroups($this_group_id))));
}
// Set number of results
$num_results_returned = count($record_data_formatted);
// If we're JUST returning Records/Events array and NOT the html report, then collect all records/event_ids and return
if ($returnIncludeRecordEventArray) {
// Collect records/event_ids in array
$includeRecordsEvents = array();
foreach ($record_data_formatted as $key => $item) {
// Add record/event
$this_event_id = $longitudinal ? $eventsUniqueEventId[$item['redcap_event_name']] : $Proj->firstEventId;
$includeRecordsEvents[$item[$Proj->table_pk]][$this_event_id] = true;
// Remove each as we go to save memory
unset($record_data_formatted[$key]);
}
// Return array of the whole table, number of results returned, and total number of items queried
return array($includeRecordsEvents, $num_results_returned);
}
// PAGING FOR REPORTS: If has more than $num_per_page results, then page it $num_per_page per page
// (only do this for pre-defined reports though)
$num_per_page = LR_RESULTS_PER_PAGE;
$limit_begin = 0;
if (isset($_GET['pagenum']) && is_numeric($_GET['pagenum'])) {
$limit_begin = ($_GET['pagenum'] - 1) * $num_per_page;
} elseif (!isset($_GET['pagenum'])) {
$_GET['pagenum'] = 1;
} else {
$_GET['pagenum'] = 'ALL';
}
$pageNumDropdown = "";
//if (isset($_POST['report_id']) && !is_numeric($_POST['report_id']) && $num_results_returned > $num_per_page)
if ($num_results_returned > $num_per_page) {
// Build drop-down list of page numbers
$num_pages = ceil($num_results_returned / $num_per_page);
// Only display drop-down if we have more than one page
if ($num_pages > 1) {
// Initialize array of options for drop-down
$pageNumDropdownOptions = array('ALL' => '-- ' . $lang['docs_44'] . ' --');
// Loop through pages
for ($i = 1; $i <= $num_pages; $i++) {
$end_num = $i * $num_per_page;
$begin_num = $end_num - $num_per_page + 1;
$value_num = $end_num - $num_per_page;
if ($end_num > $num_results_returned) {
$end_num = $num_results_returned;
}
// If Record ID field not included in report, then use "results 1 through 100" instead of "A101 through B203" using record names
if (isset($record_data_formatted[0][$Proj->table_pk])) {
$resultNamePrefix = $lang['data_entry_177'] . " ";
$resultName1 = "\"" . $record_data_formatted[$begin_num - 1][$Proj->table_pk] . "\"";
$resultName2 = "\"" . $record_data_formatted[$end_num - 1][$Proj->table_pk] . "\"";
} else {
$resultNamePrefix = $lang['report_builder_112'] . " ";
$resultName1 = $begin_num;
$resultName2 = $end_num;
}
$pageNumDropdownOptions[$i] = "{$resultName1} {$lang['data_entry_216']} {$resultName2}";
}
// Create HTML for pagenum drop-down
$pageNumDropdown = RCView::div(array('class' => 'chklist hide_in_print report_pagenum_div'), (!(isset($_GET['pagenum']) && is_numeric($_GET['pagenum'])) ? '' : RCView::span(array('style' => 'font-weight:bold;margin-right:7px;font-size:13px;'), "{$lang['survey_132']} {$_GET['pagenum']} {$lang['survey_133']} {$num_pages}{$lang['colon']}")) . $resultNamePrefix . RCView::select(array('class' => 'x-form-text x-form-field', 'style' => 'font-size:11px;margin-left:6px;margin-right:4px;padding-right:0;padding-top:1px;height:19px;', 'onchange' => "loadReportNewPage(this.value);"), $pageNumDropdownOptions, $_GET['pagenum'], 500) . $lang['survey_133'] . RCView::span(array('style' => 'font-weight:bold;margin:0 4px;font-size:13px;'), User::number_format_user($num_results_returned)) . $lang['report_builder_113']);
unset($pageNumDropdownOptions);
}
// Filter the results down to just a single page
if (is_numeric($_GET['pagenum'])) {
$record_data_formatted = array_slice($record_data_formatted, $limit_begin, $num_per_page, true);
}
}
// Set extra set of reserved field names for survey timestamps and return codes pseudo-fields
$reserved_field_names2 = explode(',', implode("_timestamp,", array_keys($Proj->forms)) . "_timestamp" . "," . implode("_return_code,", array_keys($Proj->forms)) . "_return_code");
$reserved_field_names2 = $reserved_field_names + array_fill_keys($reserved_field_names2, 'Survey Timestamp');
// Place all html in $html
$html = $pageNumDropdown . "<table id='report_table' class='dt2' style='margin:0;font-family:Verdana;font-size:11px;'>";
$mc_choices = array();
// Array to store fields to which user has no form-level access
$fields_no_access = array();
// Add form fields where user has no access
foreach ($user_rights['forms'] as $this_form => $this_access) {
if ($this_access == '0') {
$fields_no_access[$this_form . "_timestamp"] = true;
}
}
// Loop through header fields and build HTML row
$datetime_convert = array();
$row = "";
foreach ($headers as $this_hdr_ef) {
$this_hdr_ev = LongitudinalReports::getEventFromEventField($this_hdr_ef);
$this_hdr = LongitudinalReports::getFieldFromEventField($this_hdr_ef);
// Set original field name
$this_hdr_orig = $this_hdr;
// Determine if a checkbox
$isCheckbox = false;
$checkbox_label_append = "";
if (!isset($Proj->metadata[$this_hdr]) && strpos($this_hdr, "___") !== false) {
// Set $this_hdr as the true field name
list($this_hdr, $raw_coded_value_formatted) = explode("___", $this_hdr, 2);
$isCheckbox = $Proj->isCheckbox($this_hdr);
// Obtain the label for this checkbox choice
foreach (parseEnum($Proj->metadata[$this_hdr]['element_enum']) as $raw_coded_value => $checkbox_label) {
if ($this_hdr_orig == Project::getExtendedCheckboxFieldname($this_hdr, $raw_coded_value)) {
$checkbox_label_append = " (Choice = '" . strip_tags(label_decode($checkbox_label)) . "')";
// If user does not have form-level access to this field's form
if ($user_rights['forms'][$Proj->metadata[$this_hdr]['form_name']] == '0') {
$fields_no_access[$this_hdr_orig] = true;
}
break;
}
}
}
// If user does not have form-level access to this field's form
if (isset($Proj->metadata[$this_hdr]) && $this_hdr != $Proj->table_pk && $user_rights['forms'][$Proj->metadata[$this_hdr]['form_name']] == '0') {
$fields_no_access[$this_hdr] = true;
}
// If field is a reserved field name (redcap_event_name, redcap_data_access_group)
if (!isset($Proj->metadata[$this_hdr_orig]) && !$isCheckbox) {
if (isset($reserved_field_names2[$this_hdr_orig])) {
$field_type = '';
$field_label_display = strip_tags(label_decode($reserved_field_names2[$this_hdr_orig]));
} else {
if ($this_hdr_orig == "___schedule_date") {
$field_label_display = "Schedule Date";
} else {
if (strpos($this_hdr_orig, "___url") !== false) {
$frm = str_replace("___url", "", $this_hdr_orig);
$field_label_display = "{$Proj->forms[$frm]['menu']} URL";
}
}
}
} else {
$field_type = $Proj->metadata[$this_hdr]['element_type'];
$field_label = strip_tags(label_decode($Proj->metadata[$this_hdr]['element_label']));
if (strlen($field_label) > 100) {
$field_label = substr($field_label, 0, 67) . " ... " . substr($field_label, -30);
}
$field_label_display = $field_label . $checkbox_label_append;
}
// Longitudinal Reports - also include event name in header labels/ref (unless lone pk field)
if ($this_hdr_ev !== '') {
$event_id = $Proj->getEventIdUsingUniqueEventName($this_hdr_ev);
$event_name = REDCap::getEventNames(false, true, $event_id);
$field_label_display .= "<div style='font-weight:normal;color:#800000;margin:3px 0;'>{$event_name}</div>";
}
// Add field to header html row
$row .= "<th" . (isset($fields_no_access[$this_hdr]) ? " class=\"form_noaccess\"" : '') . ">" . "{$field_label_display}<div class=\"rprthdr\">" . str_replace('][', ']<br>[', implode("_<wbr>", explode("_", $this_hdr_ef))) . "</div></th>";
// Place only MC fields into array to reference
if (in_array($field_type, array('yesno', 'truefalse', 'sql', 'select', 'radio', 'advcheckbox', 'checkbox'))) {
// Convert sql field types' query result to an enum format
$enum = $field_type == "sql" ? getSqlFieldEnum($Proj->metadata[$this_hdr]['element_enum']) : $Proj->metadata[$this_hdr]['element_enum'];
// Add to array
if ($isCheckbox) {
// Reformat checkboxes to export format field name
foreach (parseEnum($enum) as $raw_coded_value => $checkbox_label) {
$this_hdr_chkbx = $Proj->getExtendedCheckboxFieldname($this_hdr, $raw_coded_value);
$mc_choices[$this_hdr_chkbx] = array('0' => "Unchecked", '1' => "Checked");
}
} else {
$mc_choices[$this_hdr] = parseEnum($enum);
}
}
// Put all date/time fields into array for quick converting of their value to desired date format
if (!$isCheckbox) {
$val_type = $Proj->metadata[$this_hdr]['element_validation_type'];
if (substr($val_type, 0, 4) == 'date' && (substr($val_type, -4) == '_mdy' || substr($val_type, -4) == '_dmy')) {
// Add field name as key to array with 'mdy' or 'dmy' as value
$datetime_convert[$this_hdr] = substr($val_type, -3);
}
if ($this_hdr_orig == '___schedule_date') {
// Include event schedule dates for date formatting as per user pref
$formatPref = 'ymd';
if (substr($datetime_format, 0, 1) == "D") {
$formatPref = 'dmy';
} else {
if (substr($datetime_format, 0, 1) == "M") {
$formatPref = 'mdy';
}
}
$datetime_convert[$this_hdr_orig] = 'dmy';
}
}
}
$html .= "<thead><tr class=\"hdr2\">{$row}</tr></thead>";
// If no data, then output row with message noting this
if (empty($record_data_formatted)) {
$html .= RCView::tr(array('class' => 'odd'), RCView::td(array('style' => 'color:#777;', 'colspan' => count($headers)), $lang['report_builder_87']));
}
// If record ID is in report for a classic project and will thus be displayed as a link, then get
// the user's first form based on their user rights (so we don't point to a form that they don't have access to.)
if ($recordIdInFields && !$longitudinal) {
foreach (array_keys($Proj->forms) as $this_form) {
if ($user_rights['forms'][$this_form] == '0') {
continue;
}
$first_form = $this_form;
break;
}
}
// DATA: Loop through each row of data (record-event) and output to html
$j = 1;
foreach ($record_data_formatted as $key => &$line) {
// Set row class
$class = $j % 2 == 1 ? "odd" : "even";
$row = "";
// Loop through each element in row
foreach ($line as $this_eventfieldname => $this_value) {
$this_eventname = LongitudinalReports::getEventFromEventField($this_eventfieldname);
$this_fieldname = LongitudinalReports::getFieldFromEventField($this_eventfieldname);
// Check for form-level user access to this field
if (isset($fields_no_access[$this_fieldname])) {
// User has no rights to this field
$row .= "<td class=\"form_noaccess\">-</td>";
} else {
// If redcap_event_name field
if ($this_fieldname == 'redcap_event_name') {
$cell = $eventsUniqueFullName[$this_value];
} elseif ($this_fieldname == 'redcap_data_access_group') {
$cell = $dagUniqueFullName[$this_value];
} elseif (strpos($this_fieldname, "___url") !== false) {
if (filter_var($this_value, FILTER_VALIDATE_URL)) {
$hash = substr($this_value, -10);
if (strpos($hash, '=') !== false) {
$hash = substr($this_value, -6);
}
$cell = RCView::a(array('href' => $this_value, 'target' => '_blank', 'style' => 'margin-right:10px;'), RCView::img(array('src' => 'link.png', 'style' => 'vertical-align:middle;'))) . RCView::a(array('href' => 'javascript:;', 'onclick' => "getAccessCode('{$hash}');"), !gd2_enabled() ? RCView::img(array('src' => 'ticket_arrow.png', 'style' => 'vertical-align:middle;')) : RCView::img(array('src' => 'access_qr_code.gif', 'style' => 'vertical-align:middle;')));
} else {
// Show completion timestamp
$cell = DateTimeRC::datetimeConvert(substr($this_value, 0, 16), 'ymd', DateTimeRC::get_user_format_base());
}
} elseif (isset($mc_choices[$this_fieldname])) {
// Get option label
$cell = $mc_choices[$this_fieldname][$this_value];
// PIPING (if applicable)
if ($do_label_piping && in_array($this_fieldname, $piping_receiver_fields)) {
$cell = strip_tags(Piping::replaceVariablesInLabel($cell, $line[$Proj->table_pk], $longitudinal ? $Proj->getEventIdUsingUniqueEventName($line['redcap_event_name']) : $Proj->firstEventId, $piping_record_data));
}
// Append raw coded value
if (trim($this_value) != "") {
$cell .= " <span class=\"ch\">({$this_value})</span>";
}
} elseif (substr($this_fieldname, -10) == '_timestamp' && isset($reserved_field_names2[$this_fieldname])) {
// Convert datetime to user's preferred date format
if ($this_value == "[not completed]") {
$cell = $this_value;
} else {
$cell = DateTimeRC::datetimeConvert(substr($this_value, 0, 16), 'ymd', DateTimeRC::get_user_format_base());
}
} else {
// If a date/time field, then convert value to its designated date format (YMD, MDY, DMY)
if (isset($datetime_convert[$this_fieldname])) {
$cell = DateTimeRC::datetimeConvert($this_value, 'ymd', $datetime_convert[$this_fieldname]);
} else {
$cell = nl2br(htmlspecialchars($this_value, ENT_QUOTES));
}
}
// If record name, then convert it to a link (unless project is archived/inactive)
if ($Proj->project['status'] < 2 && $this_fieldname == $Proj->table_pk) {
// Link URL
$this_arm = $Proj->longitudinal ? $Proj->eventInfo[$eventsUniqueEventId[$line['redcap_event_name']]]['arm_num'] : $Proj->firstArmNum;
if ($longitudinal) {
$this_url = "grid.php?pid={$Proj->project_id}&id=" . removeDDEending($this_value) . "&arm={$this_arm}";
} else {
$this_url = "index.php?pid={$Proj->project_id}&id=" . removeDDEending($this_value) . "&page=" . $first_form;
}
// If has custom record label, then display it
$this_custom_record_label = isset($extra_record_labels[$this_arm][$this_value]) ? " " . $extra_record_labels[$this_arm][$this_value] : '';
// Wrap record name with link HTML
$cell = RCView::a(array('href' => APP_PATH_WEBROOT . "DataEntry/{$this_url}", 'class' => 'rl'), removeDDEending($cell)) . $this_custom_record_label;
}
// Add cell to row
$row .= "<td>{$cell}</td>";
}
}
// Add row
$html .= "<tr class=\"{$class}\">{$row}</tr>";
// Remove line from array to free up memory as we go
unset($record_data_formatted[$key]);
$j++;
}
unset($row);
// Build entire HTML table
$html .= "</table>" . $pageNumDropdown;
// Return array of the whole table, number of results returned, and total number of items queried
return array($html, $num_results_returned);
} elseif ($returnFormat == 'csv') {
// Open connection to create file in memory and write to it
$fp = fopen('php://memory', "x+");
// Add header row to CSV
fputcsv($fp, $headers);
// Loop through array and output line as CSV
foreach ($record_data_formatted as $key => &$line) {
// Write this line to CSV file
fputcsv($fp, $line);
// Remove line from array to free up memory as we go
unset($record_data_formatted[$key]);
}
// Open file for reading and output to user
fseek($fp, 0);
$csv_file_contents = stream_get_contents($fp);
fclose($fp);
// Return CSV string
return $csv_file_contents;
} elseif ($returnFormat == 'xml') {
// Convert all data into XML string
$xml = "<?xml version=\"1.0\" encoding=\"UTF-8\" ?>\n<records>\n";
// Loop through array and add to XML string
foreach ($record_data_formatted as $key => &$item) {
// Begin item
$xml .= "<item>";
// Loop through all fields/values
foreach ($item as $this_field => $this_value) {
// If ]]> is found inside this value, then "escape" it (cannot really escape it but can do clever replace with "]]]]><![CDATA[>")
if (strpos($this_value, "]]>") !== false) {
$this_value = str_replace("]]>", "]]]]><![CDATA[>", $this_value);
}
// Add value
$xml .= "<{$this_field}><![CDATA[{$this_value}]]></{$this_field}>";
}
// End item
$xml .= "</item>\n";
// Remove line from array to free up memory as we go
unset($record_data_formatted[$key]);
}
// End XML string
$xml .= "</records>";
// Return XML string
return $xml;
} elseif ($returnFormat == 'json') {
// Convert all data into JSON string (do record by record to preserve memory better)
$json = '';
foreach ($record_data_formatted as $key => &$item) {
// Loop through each record and encode
$json .= "," . json_encode($item);
// Remove line from array to free up memory as we go
unset($record_data_formatted[$key]);
}
return '[' . substr($json, 1) . ']';
}
}
}
/**
* Created by HCV-TARGET.
* User: kbergqui
* Date: 2/25/14
* Time: 9:02 AM
*/
function create_download_all($Proj, $lang, $project_id, $app_name, $app_title, $super_user, $userid, $headers, $headers_labels, $data_csv, $data_csv_labels, $field_names, $is_child=false, $chkd_flds, $table_pk, $longitudinal, $exportDags=false, $exportSurveyFields=false) {
$dagEnum = '';
$do_remove_identifiers = false;
$do_date_shift = false;
// Retrieve project data (raw & labels) and headers in CSV format
//list ($headers, $headers_labels, $data_csv, $data_csv_labels, $field_names)
// = fetchDataCsv($chkd_flds, $parent_chkd_flds, false, $do_hash, $do_remove_identifiers, $useStandardCodes, $useStandardCodeDataConversion, $standardId, $standardCodeLookup, $useFieldNames, $exportDags, $exportSurveyFields, $exportSurveyFields);
// Log the event
//log_event("", "redcap_data", "data_export", "", str_replace("'", "", $chkd_flds) . (($parent_chkd_flds == "") ? "" : ", " . str_replace("'", "", $parent_chkd_flds)), "Export data");
############################################################
## PREPARE SYNTAX FILES FOR STATS PACKAGES
# Initializing the syntax file strings
$spss_string = "FILE HANDLE data1 NAME='data_place_holder_name' LRECL=90000.\n";
$spss_string .= "DATA LIST FREE" . "\n\t";
$spss_string .= "FILE = data1\n\t/";
$sas_string = "DATA " . $app_name . ";\nINPUT ";
$sas_format_string = "data redcap;\n\tset redcap;\n";
$stata_string = "clear\n\n";
$R_string = "#Clear existing data and graphics\nrm(list=ls())\n";
$R_string .= "graphics.off()\n";
$R_string .= "#Load Hmisc library\nlibrary(Hmisc)\n";
$R_label_string = "#Setting Labels\n";
$R_units_string = "\n#Setting Units\n";
$R_factors_string = "\n\n#Setting Factors(will create new variable for factors)";
$R_levels_string = "";
$value_labels_spss = "VALUE LABELS ";
// Get relevant metadata to use for syntax files
$syntaxfile_sql = "SELECT field_name, element_validation_type, element_enum, element_type, element_label, field_units
FROM redcap_metadata where project_id = $project_id and field_name in ($chkd_flds) order by field_order";
// Array that is prepended to $field_names array if fields need to be added, such as redcap_event_name or survey timestamp
$field_names_prepend = array();
$prev_form = "";
$prev_field = "";
// Loop through all fields that were exported
$q = db_query($syntaxfile_sql);
while ($row = db_fetch_assoc($q)) {
// Create object for each field we loop through
$ob = new stdClass();
foreach ($row as $col => $val) {
$col = strtoupper($col);
$ob->$col = $val;
}
// Set values for this loop
$this_form = $Proj->metadata[$ob->FIELD_NAME]['form_name'];
// If surveys exist, as timestamp and identifier fields
if ($exportSurveyFields && $prev_form != $this_form && $ob->FIELD_NAME != $table_pk && isset($Proj->forms[$this_form]['survey_id'])) {
// Alter $meta_array
$ob2 = new stdClass();
$ob2->ELEMENT_TYPE = 'text';
$ob2->FIELD_NAME = $this_form . '_timestamp';
$ob2->ELEMENT_LABEL = 'Survey Timestamp';
$ob2->ELEMENT_ENUM = '';
$ob2->FIELD_UNITS = '';
$ob2->ELEMENT_VALIDATION_TYPE = '';
$meta_array[$ob2->FIELD_NAME] = (Object)$ob2;
}
if ($ob->ELEMENT_TYPE != 'checkbox') {
// For non-checkboxes, add to $meta_array
$meta_array[$ob->FIELD_NAME] = (Object)$ob;
} else {
// For checkboxes, loop through each choice to add to $meta_array
$orig_fieldname = $ob->FIELD_NAME;
$orig_fieldlabel = $ob->ELEMENT_LABEL;
$orig_elementenum = $ob->ELEMENT_ENUM;
foreach (parseEnum($orig_elementenum) as $this_value => $this_label) {
unset($ob);
// $ob = $meta_set->FetchObject();
$ob = new stdClass();
// If coded value is not numeric, then format to work correct in variable name (no spaces, caps, etc)
if (!is_numeric($this_value)) {
$this_value = preg_replace("/[^a-z0-9]/", "", strtolower($this_value));
}
// Convert each checkbox choice to a advcheckbox field (because advcheckbox has equivalent processing we need)
// Append triple underscore + coded value
$ob->FIELD_NAME = $orig_fieldname . '___' . $this_value;
$ob->ELEMENT_ENUM = "0, Unchecked \\n 1, Checked";
$ob->ELEMENT_TYPE = "advcheckbox";
$ob->ELEMENT_LABEL = "$orig_fieldlabel (choice=" . str_replace(array("'", "\""), array("", ""), $this_label) . ")";
$meta_array[$ob->FIELD_NAME] = (Object)$ob;
}
}
if ($ob->FIELD_NAME == $table_pk) {
// If project has multiple Events (i.e. Longitudinal), add new column for Event name
if ($longitudinal) {
// Put unique event names and labels into array to convert to enum format
$evtEnumArray = array();
$evtLabels = array();
foreach ($Proj->eventInfo as $event_id => $attr) {
$evtLabels[$event_id] = label_decode($attr['name_ext']);
}
foreach ($evtLabels as $event_id => $event_label) {
$evtEnumArray[] = $Proj->getUniqueEventNames($event_id) . ", " . label_decode($event_label);
}
$evtEnum = implode(" \\n ", $evtEnumArray);
// Alter $meta_array
$ob2 = new stdClass();
$ob2->ELEMENT_TYPE = 'select';
$ob2->FIELD_NAME = 'redcap_event_name';
$ob2->ELEMENT_LABEL = 'Event Name';
$ob2->ELEMENT_ENUM = $evtEnum;
$ob2->FIELD_UNITS = '';
$ob2->ELEMENT_VALIDATION_TYPE = '';
$meta_array[$ob2->FIELD_NAME] = (Object)$ob2;
// Add pseudo-field to array
$field_names_prepend[] = $ob2->FIELD_NAME;
}
// If project has DAGs, add new column for group name
if ($exportDags) {
// Alter $meta_array
$ob2 = new stdClass();
$ob2->ELEMENT_TYPE = 'select';
$ob2->FIELD_NAME = 'redcap_data_access_group';
$ob2->ELEMENT_LABEL = 'Data Access Group';
$ob2->ELEMENT_ENUM = $dagEnum;
$ob2->FIELD_UNITS = '';
$ob2->ELEMENT_VALIDATION_TYPE = '';
$meta_array[$ob2->FIELD_NAME] = (Object)$ob2;
// Add pseudo-field to array
$field_names_prepend[] = $ob2->FIELD_NAME;
}
// Add survey identifier (unless we've set it to remove all identifiers - treat survey identifier same as field identifier)
if ($exportSurveyFields && !$do_remove_identifiers) {
// Alter $meta_array
$ob2 = new stdClass();
$ob2->ELEMENT_TYPE = 'text';
$ob2->FIELD_NAME = 'redcap_survey_identifier';
$ob2->ELEMENT_LABEL = 'Survey Identifier';
$ob2->ELEMENT_ENUM = '';
$ob2->FIELD_UNITS = '';
$ob2->ELEMENT_VALIDATION_TYPE = '';
$meta_array[$ob2->FIELD_NAME] = (Object)$ob2;
// Add pseudo-field to array
$field_names_prepend[] = $ob2->FIELD_NAME;
}
// If surveys exist, as timestamp and identifier fields
if ($exportSurveyFields && $prev_form != $this_form && isset($Proj->forms[$this_form]['survey_id'])) {
// Alter $meta_array
$ob2 = new stdClass();
$ob2->ELEMENT_TYPE = 'text';
$ob2->FIELD_NAME = $this_form . '_timestamp';
$ob2->ELEMENT_LABEL = 'Survey Timestamp';
$ob2->ELEMENT_ENUM = '';
$ob2->FIELD_UNITS = '';
$ob2->ELEMENT_VALIDATION_TYPE = '';
$meta_array[$ob2->FIELD_NAME] = (Object)$ob2;
}
}
// Set values for next loop
$prev_form = $this_form;
$prev_field = $ob->FIELD_NAME;
}
// Now reset field_names array
$field_names = array_keys($meta_array);
// $spss_data_type_array = "";
$spss_format_dates = "";
$spss_variable_label = "VARIABLE LABEL ";
$spss_variable_level = array();
$sas_label_section = "\ndata redcap;\n\tset redcap;\n";
$sas_value_label = "proc format;\n";
$sas_input = "input\n";
$sas_informat = "";
$sas_format = "";
$stata_insheet = "insheet ";
$stata_var_label = "";
$stata_inf_label = "";
$stata_value_label = "";
$stata_date_format = "";
$first_label = true;
$large_name_counter = 0;
$large_name = false;
// Use arrays for string replacement
$orig = array("'", "\"", "\r\n", "\r", "\n", "<", "<=");
$repl = array("", "", " ", " ", " ", "<", "< =");
//print_array($meta_array);print_array($field_names);exit;
// Loop through all metadata fields
for ($x = 0; $x <= count($field_names) + 1; $x++) {
if (($x % 5) == 0 && $x != 0) {
$spss_string .= "\n\t";
}
$large_name = false;
// Set field object for this loop
$ob = $meta_array[$field_names[$x]];
// Remove any . or - in the field name (as a result of checkbox raw values containing . or -)
// $ob->FIELD_NAME = str_replace(array("-", "."), array("_", "_"), (string)$ob->FIELD_NAME);
// Convert "sql" field types to "select" field types so that their Select Choices come out correctly in the syntax files.
/**
* override for autocomplete plugin code starts here
* add autocomplete type to this check
*/
if ($ob->ELEMENT_TYPE == "sql" || $ob->ELEMENT_TYPE == "autocomplete") /**
* end override for autocomplete plugin code
*/ {
// Change to select
$ob->ELEMENT_TYPE = "select";
// Now populate it's choices by running the query
$ob->ELEMENT_ENUM = getSqlFieldEnum($ob->ELEMENT_ENUM);
} elseif ($ob->ELEMENT_TYPE == "yesno") {
$ob->ELEMENT_ENUM = YN_ENUM;
} elseif ($ob->ELEMENT_TYPE == "truefalse") {
$ob->ELEMENT_ENUM = TF_ENUM;
}
//Remove any offending characters from label
$ob->ELEMENT_LABEL = str_replace($orig, $repl, label_decode(html_entity_decode($ob->ELEMENT_LABEL, ENT_QUOTES)));
if ($field_names[$x] != "") {
if (strlen($field_names[$x]) >= 31) {
$short_name = substr($field_names[$x], 0, 20) . "_v_" . $large_name_counter;
$sas_label_section .= "\tlabel " . $short_name . "='" . $ob->ELEMENT_LABEL . "';\n";
$stata_var_label .= "label variable " . $short_name . ' "' . $ob->ELEMENT_LABEL . '"' . "\n";
$stata_insheet .= $short_name . " ";
$large_name_counter++;
$large_name = true;
}
if (!$large_name) {
$sas_label_section .= "\tlabel " . $field_names[$x] . "='" . $ob->ELEMENT_LABEL . "';\n";
$stata_var_label .= "label variable " . $field_names[$x] . ' "' . $ob->ELEMENT_LABEL . '"' . "\n";
$stata_insheet .= $field_names[$x] . " ";
}
$spss_variable_label .= $field_names[$x] . " '" . $ob->ELEMENT_LABEL . "'\n\t/";
$R_label_string .= "\nlabel(data$" . $field_names[$x] . ")=" . '"' . $ob->ELEMENT_LABEL . '"';
if (($ob->FIELD_UNITS != Null) || ($ob->FIELD_UNITS != "")) {
$R_units_string .= "\nunits(data$" . $field_names[$x] . ")=" . '"' . $ob->FIELD_UNITS . '"';
}
}
# Checking for single element enum (i.e. if it is coded with a number or letter)
$single_element_enum = true;
if (substr_count(((string)$ob->ELEMENT_ENUM), ",") > 0) {
$single_element_enum = false;
}
# Select value labels are created
if (($ob->ELEMENT_TYPE == "yesno" || $ob->ELEMENT_TYPE == "truefalse" || $ob->ELEMENT_TYPE == "select" || $ob->ELEMENT_TYPE == "advcheckbox" || $ob->ELEMENT_TYPE == "radio") && !preg_match("/\+\+SQL\+\+/", (string)$ob->ELEMENT_ENUM)) {
//Remove any apostrophes from the Choice Labels
$ob->ELEMENT_ENUM = str_replace($orig, $repl, label_decode($ob->ELEMENT_ENUM));
//Place $ in front of SAS value if using non-numeric coded values for dropdowns/radios
$sas_val_enum_num = ""; //default
$numericChoices = true;
foreach (array_keys(parseEnum($ob->ELEMENT_ENUM)) as $key) {
if (!is_numeric($key)) {
// If at least one key is not numeric, then stop looping because we have all we need.
$sas_val_enum_num = "$";
$numericChoices = false;
break;
}
}
if ($first_label) {
if (!$single_element_enum) {
$value_labels_spss .= "\n" . (string)$ob->FIELD_NAME . " ";
}
$R_factors_string .= "\ndata$" . (string)$ob->FIELD_NAME . ".factor = factor(data$" . (string)$ob->FIELD_NAME . ",levels=c(";
$R_levels_string .= "\nlevels(data$" . (string)$ob->FIELD_NAME . ".factor)=c(";
$first_label = false;
if (!$large_name && !$single_element_enum) {
$sas_value_label .= "\tvalue $sas_val_enum_num" . (string)$ob->FIELD_NAME . "_ ";
$sas_format_string .= "\n\tformat " . (string)$ob->FIELD_NAME . " " . (string)$ob->FIELD_NAME . "_.;\n";
if ($numericChoices) {
$stata_inf_label .= "\nlabel values " . (string)$ob->FIELD_NAME . " " . (string)$ob->FIELD_NAME . "_\n";
$stata_value_label = "label define " . (string)$ob->FIELD_NAME . "_ ";
}
} else if ($large_name && !$single_element_enum) {
$sas_value_label .= "\tvalue $sas_val_enum_num" . $short_name . "_ ";
$sas_format_string .= "\n\tformat " . $short_name . " " . $short_name . "_.;\n";
if ($numericChoices) {
$stata_value_label .= "label define " . $short_name . "_ ";
$stata_inf_label .= "\nlabel values " . $short_name . " " . $short_name . "_\n";
}
}
} else if (!$first_label) {
if (!$single_element_enum) {
$value_labels_spss .= "\n/" . (string)$ob->FIELD_NAME . " ";
if (!$large_name) {
$sas_value_label .= "\n\tvalue $sas_val_enum_num" . (string)$ob->FIELD_NAME . "_ ";
$sas_format_string .= "\tformat " . (string)$ob->FIELD_NAME . " " . (string)$ob->FIELD_NAME . "_.;\n";
if ($numericChoices) {
$stata_value_label .= "\nlabel define " . (string)$ob->FIELD_NAME . "_ ";
$stata_inf_label .= "label values " . (string)$ob->FIELD_NAME . " " . (string)$ob->FIELD_NAME . "_\n";
}
}
}
$R_factors_string .= "data$" . (string)$ob->FIELD_NAME . ".factor = factor(data$" . (string)$ob->FIELD_NAME . ",levels=c(";
$R_levels_string .= "levels(data$" . (string)$ob->FIELD_NAME . ".factor)=c(";
if ($large_name && !$single_element_enum) {
$sas_value_label .= "\n\tvalue $sas_val_enum_num" . $short_name . "_ ";
$sas_format_string .= "\tformat " . $short_name . " " . $short_name . "_.;\n";
if ($numericChoices) {
$stata_value_label .= "\nlabel define " . $short_name . "_ "; //LS inserted this line 24-Feb-2012
$stata_inf_label .= "label values " . $short_name . " " . $short_name . "_\n";
}
}
}
$first_new_line_explode_array = explode("\\n", (string)$ob->ELEMENT_ENUM);
// Loop through multiple choice options
$select_is_text = false;
$select_determining_array = array();
for ($counter = 0; $counter < count($first_new_line_explode_array); $counter++) {
if (!$single_element_enum) {
// SAS: Add line break after 2 multiple choice options
if (($counter % 2) == 0 && $counter != 0) {
$sas_value_label .= "\n\t\t";
$value_labels_spss .= "\n\t";
}
$second_comma_explode = explode(",", $first_new_line_explode_array[$counter], 2);
$value_labels_spss .= "'" . trim($second_comma_explode[0]) . "' ";
$value_labels_spss .= "'" . trim($second_comma_explode[1]) . "' ";
if (!is_numeric(trim($second_comma_explode[0])) && is_numeric(substr(trim($second_comma_explode[0]), 0, 1))) {
// if enum raw value is not a number BUT begins with a number, add quotes around it for SAS only (parsing issue)
$sas_value_label .= "'" . trim($second_comma_explode[0]) . "'=";
} else {
$sas_value_label .= trim($second_comma_explode[0]) . "=";
}
$sas_value_label .= "'" . trim($second_comma_explode[1]) . "' ";
if ($numericChoices) {
$stata_value_label .= trim($second_comma_explode[0]) . " ";
$stata_value_label .= "\"" . trim($second_comma_explode[1]) . "\" ";
}
$select_determining_array[] = $second_comma_explode[0];
$R_factors_string .= '"' . trim($second_comma_explode[0]) . '",';
$R_levels_string .= '"' . trim($second_comma_explode[1]) . '",';
} else {
$select_determining_array[] = $second_comma_explode[0];
$R_factors_string .= '"' . trim($first_new_line_explode_array[$counter]) . '",';
$R_levels_string .= '"' . trim($first_new_line_explode_array[$counter]) . '",';
}
}
$R_factors_string = rtrim($R_factors_string, ",");
$R_factors_string .= "))\n"; //pharris 09/28/05
$R_levels_string = rtrim($R_levels_string, ",");
$R_levels_string .= ")\n";
if (!$single_element_enum) {
$sas_value_label = rtrim($sas_value_label, " ");
$sas_value_label .= ";";
}
if (!$single_element_enum) {
foreach ($select_determining_array as $value) {
if (preg_match("/([A-Za-z])/", $value)) {
$select_is_text = true;
}
}
} else {
foreach ($first_new_line_explode_array as $value) {
if (preg_match("/([A-Za-z])/", $value)) {
$select_is_text = true;
}
}
}
} else if (preg_match("/\+\+SQL\+\+/", (string)$ob->ELEMENT_ENUM)) {
$select_is_text = true;
}
################################################################################
################################################################################
# If the ELEMENT_VALIDATION_TYPE is a float the data is define as a Number
if ($ob->ELEMENT_VALIDATION_TYPE == "float" || $ob->ELEMENT_TYPE == "calc") {
$spss_string .= $ob->FIELD_NAME . " (F8.2) ";
if (!$large_name) {
$sas_informat .= "\tinformat " . $ob->FIELD_NAME . " best32. ;\n";
$sas_format .= "\tformat " . $ob->FIELD_NAME . " best12. ;\n";
$sas_input .= "\t\t" . $ob->FIELD_NAME . "\n";
} elseif ($large_name) {
$sas_informat .= "\tinformat " . $short_name . " best32. ;\n";
$sas_format .= "\tformat " . $short_name . " best12. ;\n";
$sas_input .= "\t\t" . $short_name . "\n";
}
// $spss_data_type_array[$x] = "NUMBER";
$spss_variable_level[] = $ob->FIELD_NAME . " (SCALE)";
} elseif ($ob->ELEMENT_TYPE == "slider" || $ob->ELEMENT_VALIDATION_TYPE == "int") {
$spss_string .= $ob->FIELD_NAME . " (F8) ";
if (!$large_name) {
$sas_informat .= "\tinformat " . $ob->FIELD_NAME . " best32. ;\n";
$sas_format .= "\tformat " . $ob->FIELD_NAME . " best12. ;\n";
$sas_input .= "\t\t" . $ob->FIELD_NAME . "\n";
} elseif ($large_name) {
$sas_informat .= "\tinformat " . $short_name . " best32. ;\n";
$sas_format .= "\tformat " . $short_name . " best12. ;\n";
$sas_input .= "\t\t" . $short_name . "\n";
}
// $spss_data_type_array[$x] = "NUMBER";
$spss_variable_level[] = $ob->FIELD_NAME . " (SCALE)";
# If the ELEMENT_VALIDATION_TYPE is a DATE a treat the data as a date
} elseif ($ob->ELEMENT_VALIDATION_TYPE == "date" || $ob->ELEMENT_VALIDATION_TYPE == "date_ymd" || $ob->ELEMENT_VALIDATION_TYPE == "date_mdy" || $ob->ELEMENT_VALIDATION_TYPE == "date_dmy") {
$spss_string .= $ob->FIELD_NAME . " (SDATE10) ";
$spss_format_dates .= "FORMATS " . $ob->FIELD_NAME . "(ADATE10).\n";
if (!$large_name) {
$sas_informat .= "\tinformat " . $ob->FIELD_NAME . " yymmdd10. ;\n";
$sas_format .= "\tformat " . $ob->FIELD_NAME . " yymmdd10. ;\n";
$sas_input .= "\t\t" . $ob->FIELD_NAME . "\n";
$stata_date_format .= "\ntostring " . $ob->FIELD_NAME . ", replace";
$stata_date_format .= "\ngen _date_ = date(" . $ob->FIELD_NAME . ",\"YMD\")\n";
$stata_date_format .= "drop " . $ob->FIELD_NAME . "\n";
$stata_date_format .= "rename _date_ " . $ob->FIELD_NAME . "\n";
$stata_date_format .= "format " . $ob->FIELD_NAME . " %dM_d,_CY\n";
} elseif ($large_name) {
$sas_informat .= "\tinformat " . $short_name . " yymmdd10. ;\n";
$sas_format .= "\tformat " . $short_name . " yymmdd10. ;\n";
$sas_input .= "\t\t" . $short_name . "\n";
$stata_date_format .= "\ntostring " . $short_name . ", replace";
$stata_date_format .= "\ngen _date_ = date(" . $short_name . ",\"YMD\")\n";
$stata_date_format .= "drop " . $short_name . "\n";
$stata_date_format .= "rename _date_ " . $short_name . "\n";
$stata_date_format .= "format " . $short_name . " %dM_d,_CY\n";
}
# If the ELEMENT_VALIDATION_TYPE is TIME (military)
} elseif ($ob->ELEMENT_VALIDATION_TYPE == "time") {
$spss_string .= $ob->FIELD_NAME . " (A500) ";
if (!$large_name) {
$sas_informat .= "\tinformat " . $ob->FIELD_NAME . " time5. ;\n";
$sas_format .= "\tformat " . $ob->FIELD_NAME . " time5. ;\n";
$sas_input .= "\t\t" . $ob->FIELD_NAME . "\n";
} elseif ($large_name) {
$sas_informat .= "\tinformat " . $short_name . " time5. ;\n";
$sas_format .= "\tformat " . $short_name . " time5. ;\n";
$sas_input .= "\t\t" . $short_name . "\n";
}
# If the ELEMENT_VALIDATION_TYPE is DATETIME or DATETIME_SECONDS
// } elseif (substr($ob->ELEMENT_VALIDATION_TYPE, 0, 8) == "datetime") {
# If the object type is select then the variable $select_is_text is checked to
# see if it is a TEXT or a NUMBER and treated accordanly.
} elseif ($ob->ELEMENT_TYPE == "yesno" || $ob->ELEMENT_TYPE == "truefalse" || $ob->ELEMENT_TYPE == "select" || $ob->ELEMENT_TYPE == "advcheckbox" || $ob->ELEMENT_TYPE == "radio") {
if ($select_is_text) {
$temp_trim = rtrim("varchar(500)", ")");
# Divides the string to get the number of caracters
$temp_explode_number = explode("(", $temp_trim);
$spss_string .= $ob->FIELD_NAME . " (A" . $temp_explode_number[1] . ") ";
if (!$large_name) {
$sas_informat .= "\tinformat " . $ob->FIELD_NAME . " \$" . $temp_explode_number[1] . ". ;\n";
$sas_format .= "\tformat " . $ob->FIELD_NAME . " \$" . $temp_explode_number[1] . ". ;\n";
$sas_input .= "\t\t" . $ob->FIELD_NAME . " \$\n";
} elseif ($large_name) {
$sas_informat .= "\tinformat " . $short_name . " \$" . $temp_explode_number[1] . ". ;\n";
$sas_format .= "\tformat " . $short_name . " \$" . $temp_explode_number[1] . ". ;\n";
$sas_input .= "\t\t" . $short_name . " \$\n";
}
// $spss_data_type_array[$x] = "TEXT";
} else {
$spss_string .= $ob->FIELD_NAME . " (F3) ";
if (!$large_name) {
$sas_informat .= "\tinformat " . $ob->FIELD_NAME . " best32. ;\n";
$sas_format .= "\tformat " . $ob->FIELD_NAME . " best12. ;\n";
$sas_input .= "\t\t" . $ob->FIELD_NAME . "\n";
} elseif ($large_name) {
$sas_informat .= "\tinformat " . $short_name . " best32. ;\n";
$sas_format .= "\tformat " . $short_name . " best12. ;\n";
$sas_input .= "\t\t" . $short_name . "\n";
}
// $spss_data_type_array[$x] = "NUMBER";
}
# If the object type is text a treat the data like a text and look for the length
# that is specified in the database
} elseif ($ob->ELEMENT_TYPE == "text" || $ob->ELEMENT_TYPE == "calc" || $ob->ELEMENT_TYPE == "file") {
$spss_string .= $ob->FIELD_NAME . " (A500) ";
if (!$large_name) {
$sas_informat .= "\tinformat " . $ob->FIELD_NAME . " \$500. ;\n";
$sas_format .= "\tformat " . $ob->FIELD_NAME . " \$500. ;\n";
$sas_input .= "\t\t" . $ob->FIELD_NAME . " \$\n";
} elseif ($large_name) {
$sas_informat .= "\tinformat " . $short_name . " \$500. ;\n";
$sas_format .= "\tformat " . $short_name . " \$500. ;\n";
$sas_input .= "\t\t" . $short_name . " \$\n";
}
# If the object type is textarea a treat the data like a text and specify a large
# string size.
} elseif ($ob->ELEMENT_TYPE == "textarea") {
$spss_string .= $ob->FIELD_NAME . " (A30000) ";
if (!$large_name) {
$sas_informat .= "\tinformat " . $ob->FIELD_NAME . " \$5000. ;\n";
$sas_format .= "\tformat " . $ob->FIELD_NAME . " \$5000. ;\n";
$sas_input .= "\t\t" . $ob->FIELD_NAME . " \$\n";
} elseif ($large_name) {
$sas_informat .= "\tinformat " . $short_name . " \$5000. ;\n";
$sas_format .= "\tformat " . $short_name . " \$5000. ;\n";
$sas_input .= "\t\t" . $short_name . " \$\n";
}
// $spss_data_type_array[$x] = "TEXT";
}
}
// File names
$today = date("Y-m-d_Hi");
$projTitleShort = substr(str_replace(" ", "", ucwords(preg_replace("/[^a-zA-Z0-9 ]/", "", html_entity_decode($app_title, ENT_QUOTES)))), 0, 20);
$data_file_name = $projTitleShort . "_DATA_NOHDRS_" . $today . ".csv";
$data_file_name_WH = $projTitleShort . "_DATA_" . $today . ".csv";
$data_file_name_labels = $projTitleShort . "_DATA_LABELS_" . $today . ".csv";
$export_sps_file_name = $projTitleShort . "_SPSS_" . $today . ".sps";
$export_sas_file_name = $projTitleShort . "_SAS_" . $today . ".sas";
$export_R_file_name = $projTitleShort . "_R_" . $today . ".r";
$export_stata_file_name = $projTitleShort . "_STATA_" . $today . ".do";
//Finish up syntax files
$spss_string = rtrim($spss_string);
$spss_string .= ".\n";
$spss_string .= "\nVARIABLE LEVEL " . implode("\n\t/", $spss_variable_level) . ".\n";
$spss_string .= "\n" . substr_replace($spss_variable_label, ".", -3) . "\n\n";
$spss_string .= rtrim($value_labels_spss);
$spss_string .= ".\n\n$spss_format_dates\nSET LOCALE=en_us.\nEXECUTE.\n";
$spss_string = str_replace("data_place_holder_name", $data_file_name, $spss_string);
$sas_read_string .= "%macro removeOldFile(bye); %if %sysfunc(exist(&bye.)) %then %do; proc delete data=&bye.; run; "
. "%end; %mend removeOldFile; %removeOldFile(work.redcap); data REDCAP; "; // Suggested change by Ray Balise
//$sas_read_string .= "proc delete data=REDCAP;\nrun;\n\ndata REDCAP;"; // Added to prevent deleting all temp files
//$sas_read_string .= "proc delete data=_ALL_;\nrun;\n\ndata REDCAP;";
$sas_read_string .= "%let _EFIERR_ = 0; ";
$sas_read_string .= "infile '" . $data_file_name . "'";
$sas_read_string .= " delimiter = ',' MISSOVER DSD lrecl=32767 firstobs=1 ; ";
$sas_read_string .= "\n" . $sas_informat;
$sas_read_string .= "\n" . $sas_format;
$sas_read_string .= "\n" . $sas_input;
$sas_read_string .= ";\n";
$sas_read_string .= "if _ERROR_ then call symput('_EFIERR_',\"1\");\n";
$sas_read_string .= "run;\n\nproc contents;run;\n\n";
$sas_read_string .= $sas_label_section . "\trun;\n";
$sas_value_label .= "\n\trun;\n";
$sas_format_string .= "\trun;\n";
$sas_read_string .= "\n" . $sas_value_label;
$sas_read_string .= "\n" . $sas_format_string;
$sas_read_string .= "\nproc contents data=redcap;";
$sas_read_string .= "\nproc print data=redcap;";
$sas_read_string .= "\nrun;\nquit;";
$stata_order = "order " . substr($stata_insheet, 8);
$stata_insheet .= "using " . "\"" . $data_file_name . "\", nonames";
$stata_string .= $stata_insheet . "\n\n";
$stata_string .= "label data " . "\"" . $data_file_name . "\"" . "\n\n";
$stata_string .= $stata_value_label . "\n";
$stata_string .= $stata_inf_label . "\n\n";
$stata_string .= $stata_date_format . "\n";
$stata_string .= $stata_var_label . "\n";
$stata_string .= $stata_order . "\n";
$stata_string .= "set more off\ndescribe\n";
$R_string .= "#Read Data\ndata=read.csv('" . $data_file_name_WH . "')\n";
$R_string .= $R_label_string;
$R_string .= $R_units_string;
$R_string .= $R_factors_string;
$R_string .= $R_levels_string;
$today = date("Y-m-d-H-i-s");
$docs_comment = $docs_comment_WH = "Data export file created by $userid on $today";
$spss_docs_comment = "Spss syntax file created by $userid on $today";
$sas_docs_comment = "Sas syntax file created by $userid on $today";
$stata_docs_comment = "Stata syntax file created by $userid on $today";
$R_docs_comment = "R syntax file created by $userid on $today";
$data = prep($data);
#########################################
// Replace any MS Word chacters in the data
$data_csv = replaceMSchars($data_csv);
$data_csv_labels = replaceMSchars($data_csv_labels);
//Add comment in last field if these are date shifted
$doc_rights = $do_date_shift ? "'DATE_SHIFT'" : "NULL";
// Set flag for checking if error occurs during saving of files to docs table
$is_export_error = false;
### Creates the STATA syntax file
$stata_string = strip_tags($stata_string); // Do NOT use addBOMtoUTF8() on Stata because BOM causes issues in syntax file
$docs_size = strlen($stata_string);
$export_sql = "INSERT INTO redcap_docs (project_id,docs_name,docs_file,docs_date,docs_size,docs_comment,docs_type,docs_rights,export_file) "
. "VALUES ($project_id, '" . $export_stata_file_name . "', NULL, '" . TODAY . "','$docs_size','" . $stata_docs_comment . "','application/octet-stream',$doc_rights,1)";
if (!db_query($export_sql)) {
$is_export_error = true;
} else {
// Get insert id
$stata_doc_id = db_insert_id();
// Store the file in the file system
if (!DataExport::storeExportFile($export_stata_file_name, $stata_string, $stata_doc_id, $docs_size)) {
$is_export_error = true;
}
}
### Creates the R syntax file
$R_string = addBOMtoUTF8(strip_tags($R_string));
$docs_size = strlen($R_string);
$export_sql = "INSERT INTO redcap_docs (project_id,docs_name,docs_file,docs_date,docs_size,docs_comment,docs_type,docs_rights,export_file) "
. "VALUES ($project_id, '" . $export_R_file_name . "', NULL, '" . TODAY . "','$docs_size','" . $R_docs_comment . "','application/octet-stream',$doc_rights,1)";
if (!db_query($export_sql)) {
$is_export_error = true;
} else {
// Get insert id
$r_doc_id = db_insert_id();
// Store the file in the file system
if (!DataExport::storeExportFile($export_R_file_name, $R_string, $r_doc_id, $docs_size)) {
$is_export_error = true;
}
}
### Creates the SAS syntax file
$sas_read_string = addBOMtoUTF8(strip_tags($sas_read_string));
$docs_size = strlen($sas_read_string);
$export_sql = "INSERT INTO redcap_docs (project_id,docs_name,docs_file,docs_date,docs_size,docs_comment,docs_type,docs_rights,export_file) "
. "VALUES ($project_id, '" . $export_sas_file_name . "', NULL, '" . TODAY . "','$docs_size','" . $sas_docs_comment . "','application/octet-stream',$doc_rights,1)";
if (!db_query($export_sql)) {
$is_export_error = true;
} else {
// Get insert id
$sas_doc_id = db_insert_id();
// Store the file in the file system
if (!DataExport::storeExportFile($export_sas_file_name, $sas_read_string, $sas_doc_id, $docs_size)) {
$is_export_error = true;
}
}
### Creates the data comma separeted value file WITHOUT headers
$data_csv_temp = addBOMtoUTF8($data_csv);
$docs_size = strlen($data_csv_temp);
$export_sql = "INSERT INTO redcap_docs (project_id,docs_name,docs_file,docs_date,docs_size,docs_comment,docs_type,docs_rights,export_file) "
. "VALUES ($project_id, '" . $data_file_name . "', NULL, '" . TODAY . "','$docs_size','" . $docs_comment . "','application/csv',$doc_rights,1)";
if (!db_query($export_sql)) {
$is_export_error = true;
} else {
// Get insert id
$data_wo_hdr_doc_id = db_insert_id();
// Store the file in the file system
if (!DataExport::storeExportFile($data_file_name, $data_csv_temp, $data_wo_hdr_doc_id, $docs_size)) {
$is_export_error = true;
}
}
unset($data_csv_temp);
### Creates the data comma separeted value file WITH header
$data_csv = addBOMtoUTF8($headers . $data_csv);
$docs_size = strlen($data_csv);
$export_sql = "INSERT INTO redcap_docs (project_id,docs_name,docs_file,docs_date,docs_size,docs_comment,docs_type,docs_rights,export_file) "
. "VALUES ($project_id, '" . $data_file_name_WH . "', NULL, '" . TODAY . "','$docs_size','" . $docs_comment_WH . "','application/csv',$doc_rights,1)";
if (!db_query($export_sql)) {
$is_export_error = true;
} else {
// Get insert id
$data_doc_id = db_insert_id();
// Store the file in the file system
if (!DataExport::storeExportFile($data_file_name_WH, $data_csv, $data_doc_id, $docs_size)) {
$is_export_error = true;
}
}
unset($data_csv);
### Creates the SPSS syntax file
$spss_string = addBOMtoUTF8(strip_tags($spss_string));
$docs_size = strlen($spss_string);
$export_sql = "INSERT INTO redcap_docs (project_id,docs_name,docs_file,docs_date,docs_size,docs_comment,docs_type,docs_rights,export_file) "
. "VALUES ($project_id, '" . $export_sps_file_name . "', NULL, '" . TODAY . "','$docs_size','" . $spss_docs_comment . "','application/octet-stream',$doc_rights,1)";
if (!db_query($export_sql)) {
$is_export_error = true;
} else {
// Get insert id
$spss_doc_id = db_insert_id();
// Store the file in the file system
if (!DataExport::storeExportFile($export_sps_file_name, $spss_string, $spss_doc_id, $docs_size)) {
$is_export_error = true;
}
}
### Creates the data comma separeted value file WITH LABELS
$data_csv_labels = addBOMtoUTF8($headers_labels . $data_csv_labels);
$docs_size = strlen($data_csv_labels);
$export_sql = "INSERT INTO redcap_docs (project_id,docs_name,docs_file,docs_date,docs_size,docs_comment,docs_type,docs_rights,export_file) "
. "VALUES ($project_id, '" . $data_file_name_labels . "', NULL, '" . TODAY . "','$docs_size','" . $docs_comment . "','application/csv',$doc_rights,1)";
if (!db_query($export_sql)) {
$is_export_error = true;
} else {
// Get insert id
$data_labels_doc_id = db_insert_id();
// Store the file in the file system
if (!DataExport::storeExportFile($data_file_name_labels, $data_csv_labels, $data_labels_doc_id, $docs_size)) {
$is_export_error = true;
}
}
#########################################
//Catch the error if the CSV data file is too large for MySQL to handle
if ($is_export_error) {
include APP_PATH_DOCROOT . 'ProjectGeneral/header.php';
renderPageTitle("<img src='" . APP_PATH_IMAGES . "application_go.png'> {$lang['app_03']}");
print "<div class='red' style='margin:20px 0;'><img src='" . APP_PATH_IMAGES . "exclamation.png'>
<b>{$lang['global_01']}:</b><br/>{$lang['data_export_tool_62']}";
if ($super_user) {
if ($edoc_storage_option == '1') {
print $lang['data_export_tool_136'];
} elseif ($edoc_storage_option == '0') {
print $lang['data_export_tool_135'] . " (<b>" . EDOC_PATH . "</b>)" . $lang['period'];
} else {
print $lang['data_export_tool_135'] . " " . $lang['period'];
}
print " " . $lang['data_export_tool_137'];
} else {
print "{$lang['data_export_tool_64']} <a href='mailto:$project_contact_email' style='font-family:Verdana;'>$project_contact_name</a>
{$lang['data_export_tool_65']}";
}
print "</div>";
renderPrevPageLink(PAGE);
include APP_PATH_DOCROOT . 'ProjectGeneral/footer.php';
exit;
}
//Catch the error if there were data conversion problems
if ($is_data_conversion_error) {
include APP_PATH_DOCROOT . 'ProjectGeneral/header.php';
renderPageTitle("<img src='" . APP_PATH_IMAGES . "application_go.png'> {$lang['app_03']}");
print "<div class='red' style='margin:20px 0;'><img src='" . APP_PATH_IMAGES . "exclamation.png'>
<b>{$lang['global_01']}:</b><br/>{$lang['data_export_tool_62']}";
if ($super_user) {
print $lang['data_export_tool_63'];
} else {
print "{$lang['data_export_tool_64']} <a href='mailto:$project_contact_email' style='font-family:Verdana;'>$project_contact_name</a>
{$lang['data_export_tool_65']}";
}
print $is_data_conversion_error_msg;
print "</div>";
renderPrevPageLink(PAGE);
include APP_PATH_DOCROOT . 'ProjectGeneral/footer.php';
exit;
}
// Header
include APP_PATH_DOCROOT . 'ProjectGeneral/header.php';
renderPageTitle("<img src='" . APP_PATH_IMAGES . "application_go.png'> {$lang['app_03']}");
print "<div style='text-align:center;padding-top:10px;max-width:700px;'>
<span class='darkgreen' style='padding:8px 80px;'>
<img src='" . APP_PATH_IMAGES . "tick.png' class='imgfix'> {$lang['data_export_tool_05']}
</span>
</div>
<p><br>{$lang['data_export_tool_06']}<br><br>";
// Button back to previous page
$prevPage = (isset($_SERVER['HTTP_REFERER']) && !empty($_SERVER['HTTP_REFERER'])) ? $_SERVER['HTTP_REFERER'] : PAGE_FULL . "?pid=$project_id";
print "<button class='jqbutton' onclick=\"window.location.href='$prevPage';\">
<img src='" . APP_PATH_IMAGES . "arrow_left.png' class='imgfix'>
{$lang['config_functions_40']}
</button>";
//Set the CSV icon to date-shifted look if the data in these files were date shifted
if ($do_date_shift) {
$csv_img = "download_csvdata_ds.gif";
$csvexcel_img = "download_csvexcel_raw_ds.gif";
$csvexcellabels_img = "download_csvexcel_labels_ds.gif";
} else {
$csv_img = "download_csvdata.gif";
$csvexcel_img = "download_csvexcel_raw.gif";
$csvexcellabels_img = "download_csvexcel_labels.gif";
}
// If Send-It is not enabled for Data Export and File Repository, then hide the link to utilize Send-It
$sendItLinkDisplay = ($sendit_enabled == '1' || $sendit_enabled == '3') ? "" : "display:none;";
//Table header
print "<div style='max-width:700px;'>";
print "<table style='border: 1px solid #DODODO; border-collapse: collapse; width: 100%'>
<tr class='grp2'>
<td colspan='2' style='font-family:Verdana;font-size:12px;text-align:right;'>
</td>
<td style='font-family:Verdana;font-size:12px;text-align:center;'>
{$lang['docs_58']}<br>{$lang['data_export_tool_51']}
</td>
</tr>";
//Excel
print '<tr class="odd">
<td valign="top" style="text-align:center;width:60px;padding-top:10px;border:0px;border-left:1px solid #D0D0D0;">
<img src="' . APP_PATH_IMAGES . 'excelicon.gif" title="' . $lang['data_export_tool_15'] . '" alt="' . $lang['data_export_tool_15'] . '" />
</td>
<td style="font-family:Verdana;font-size:11px;padding:10px;" valign="top">
<b>' . $lang['data_export_tool_15'] . '</b><br>
' . $lang['data_export_tool_118'] . '<br><br>
<i>' . $lang['global_02'] . ': ' . $lang['data_export_tool_17'] . '</i>
</td>
<td valign="top" style="text-align:right;width:100px;padding-top:10px;">
<a href="' . APP_PATH_WEBROOT . 'FileRepository/file_download.php?pid=' . $project_id . '&id=' . $data_labels_doc_id . '">
<img src="' . APP_PATH_IMAGES . $csvexcellabels_img . '" title="' . $lang['data_export_tool_60'] . '" alt="' . $lang['data_export_tool_60'] . '"></a>
<a href="' . APP_PATH_WEBROOT . 'FileRepository/file_download.php?pid=' . $project_id . '&id=' . $data_doc_id . '">
<img src="' . APP_PATH_IMAGES . $csvexcel_img . '" title="' . $lang['data_export_tool_60'] . '" alt="' . $lang['data_export_tool_60'] . '"></a>
<div style="text-align:left;padding:5px 0 1px;' . $sendItLinkDisplay . '">
<div style="line-height:5px;">
<img src="' . APP_PATH_IMAGES . 'mail_small.png" style="position: relative; top: 5px;"><a
href="javascript:;" style="color:#666;font-size:10px;text-decoration:underline;"
onclick=\'$("#sendit_' . $data_doc_id . '").toggle("blind",{},"fast");\'>' . $lang['data_export_tool_66'] . '</a>
</div>
<div id="sendit_' . $data_doc_id . '" style="display:none;padding:4px 0 4px 6px;">
<div>
• <a href="javascript:;" onclick="popupSendIt(' . $data_labels_doc_id . ',2);" style="font-size:10px;">' . $lang['data_export_tool_120'] . '</a>
</div>
<div>
• <a href="javascript:;" onclick="popupSendIt(' . $data_doc_id . ',2);" style="font-size:10px;">' . $lang['data_export_tool_119'] . '</a>
</div>
</div>
</div>
</td>
</tr>';
//SPSS
print '<tr class="even noncsv">
<td valign="top" style="text-align:center;width:60px;padding-top:10px;border:0px;border-left:1px solid #D0D0D0;">
<img src="' . APP_PATH_IMAGES . 'spsslogo_small.png" title="' . $lang['data_export_tool_07'] . '" alt="' . $lang['data_export_tool_07'] . '" />
</td>
<td style="font-family:Verdana;font-size:11px;padding:10px;" valign="top">
<b>' . $lang['data_export_tool_07'] . '</b><br />' . $lang['global_24'] . $lang['colon'] . " " . $lang['data_export_tool_08'] . '<br>
<a href="javascript:;" style="text-decoration:underline;font-size:11px;" onclick=\'$("#spss_detail").toggle("fade");\'>' . $lang['data_export_tool_08b'] . '</a>
<div style="display:none;border-top:1px solid #aaa;margin-top:5px;padding-top:3px;" id="spss_detail">
<b>' . $lang['data_export_tool_01'] . '</b><br>' .
$lang['data_export_tool_08c'] . ' <font color="green">/folder/subfolder/</font> (e.g., /Users/administrator/documents/)<br><br>' .
$lang['data_export_tool_08d'] . '
<br><font color=green>FILE HANDLE data1 NAME=\'DATA.CSV\' LRECL=90000.</font><br><br>' .
$lang['data_export_tool_08e'] . '<br>
<font color=green>FILE HANDLE data1 NAME=\'<font color=red>/folder/subfolder/</font>DATA.CSV\' LRECL=90000.</font><br><br>' .
$lang['data_export_tool_08f'] . '
</div>
</td>
<td valign="top" style="text-align:right;width:100px;padding-top:10px;">
<a href="' . APP_PATH_WEBROOT . 'FileRepository/file_download.php?pid=' . $project_id . '&id=' . $spss_doc_id . '">
<img src="' . APP_PATH_IMAGES . 'download_spss.gif" title="' . $lang['data_export_tool_68'] . '" alt="' . $lang['data_export_tool_68'] . '">
</a>
<a href="' . APP_PATH_WEBROOT . 'FileRepository/file_download.php?pid=' . $project_id . '&id=' . $data_wo_hdr_doc_id . '">
<img src="' . APP_PATH_IMAGES . $csv_img . '" title="' . $lang['data_export_tool_69'] . '" alt="' . $lang['data_export_tool_69'] . '"></a>
<div style="padding-left:11px;text-align:left;">
<a href="' . APP_PATH_WEBROOT . 'DataExport/spss_pathway_mapper.php?pid=' . $project_id . '"
><img src="' . APP_PATH_IMAGES . 'download_pathway_mapper.gif" title="' . $lang['data_export_tool_70'] . '" alt="' . $lang['data_export_tool_70'] . '"></a>
</div>
<div style="text-align:left;padding:5px 0 1px;' . $sendItLinkDisplay . '">
<div style="line-height:5px;">
<img src="' . APP_PATH_IMAGES . 'mail_small.png" style="position: relative; top: 5px;"><a
href="javascript:;" style="color:#666;font-size:10px;text-decoration:underline;" onclick=\'
$("#sendit_' . $spss_doc_id . '").toggle("blind",{},"fast");
\'>' . $lang['data_export_tool_66'] . '</a>
</div>
<div id="sendit_' . $spss_doc_id . '" style="display:none;padding:4px 0 4px 6px;">
<div>
• <a href="javascript:;" onclick="popupSendIt(' . $spss_doc_id . ',2);" style="font-size:10px;">' . $lang['data_export_tool_71'] . '</a>
</div>
<div>
• <a href="javascript:;" onclick="popupSendIt(' . $data_wo_hdr_doc_id . ',2);" style="font-size:10px;">' . $lang['data_export_tool_72'] . '</a>
</div>
</div>
</div>
</td>
</tr>';
//SAS
print '<tr class="odd noncsv">
<td valign="top" style="text-align:center;width:60px;padding-top:10px;border:0px;border-left:1px solid #D0D0D0;">
<img src="' . APP_PATH_IMAGES . 'saslogo_small.png" title="' . $lang['data_export_tool_11'] . '" alt="' . $lang['data_export_tool_11'] . '" />
</td>
<td style="font-family:Verdana;font-size:11px;padding:10px;" valign="top">
<b>' . $lang['data_export_tool_11'] . '</b><br />' . $lang['global_24'] . $lang['colon'] . " " . $lang['data_export_tool_130'] . '<br>
<a href="javascript:;" style="text-decoration:underline;font-size:11px;" onclick=\'$("#sas_detail").toggle("fade");\'>' . $lang['data_export_tool_08b'] . '</a>
<div style="display:none;border-top:1px solid #aaa;margin-top:5px;padding-top:3px;" id="sas_detail">
<b>' . $lang['data_export_tool_131'] . '</b><br>' .
$lang['data_export_tool_132'] . ' <font color="green">/folder/subfolder/</font> (e.g., /Users/administrator/documents/)<br><br>' .
$lang['data_export_tool_133'] . '
<br>... <font color=green>infile \'DATA.CSV\' delimiter = \',\' MISSOVER DSD lrecl=32767 firstobs=1 ;</font><br><br>' .
$lang['data_export_tool_08e'] . '<br>
... <font color=green>infile \'<font color=red>/folder/subfolder/</font>DATA.CSV\' delimiter = \',\' MISSOVER DSD lrecl=32767 firstobs=1 ;</font><br><br>' .
$lang['data_export_tool_134'] . '
</div>
</td>
<td valign="top" style="text-align:right;width:100px;padding-top:10px;">
<a href="' . APP_PATH_WEBROOT . 'FileRepository/file_download.php?pid=' . $project_id . '&id=' . $sas_doc_id . '">
<img src="' . APP_PATH_IMAGES . 'download_sas.gif" title="' . $lang['data_export_tool_74'] . '" alt="' . $lang['data_export_tool_74'] . '">
</a>
<a href="' . APP_PATH_WEBROOT . 'FileRepository/file_download.php?pid=' . $project_id . '&id=' . $data_wo_hdr_doc_id . '">
<img src="' . APP_PATH_IMAGES . $csv_img . '" title="' . $lang['data_export_tool_69'] . '" alt="' . $lang['data_export_tool_69'] . '"></a>
<div style="padding-left:11px;text-align:left;">
<a href="' . APP_PATH_WEBROOT . 'DataExport/sas_pathway_mapper.php?pid=' . $project_id . '"
><img src="' . APP_PATH_IMAGES . 'download_pathway_mapper.gif"></a>
</div>
<div style="text-align:left;padding:5px 0 1px;' . $sendItLinkDisplay . '">
<div style="line-height:5px;">
<img src="' . APP_PATH_IMAGES . 'mail_small.png" style="position: relative; top: 5px;"><a
href="javascript:;" style="color:#666;font-size:10px;text-decoration:underline;" onclick=\'
$("#sendit_' . $sas_doc_id . '").toggle("blind",{},"fast");
\'>' . $lang['data_export_tool_66'] . '</a>
</div>
<div id="sendit_' . $sas_doc_id . '" style="display:none;padding:4px 0 4px 6px;">
<div>
• <a href="javascript:;" onclick="popupSendIt(' . $sas_doc_id . ',2);" style="font-size:10px;">' . $lang['data_export_tool_71'] . '</a>
</div>
<div>
• <a href="javascript:;" onclick="popupSendIt(' . $data_wo_hdr_doc_id . ',2);" style="font-size:10px;">' . $lang['data_export_tool_72'] . '</a>
</div>
</div>
</div>
</td>
</tr>';
//R
print '<tr class="even noncsv">
<td valign="top" style="text-align:center;width:60px;padding-top:10px;border:0px;border-left:1px solid #D0D0D0;">
<img src="' . APP_PATH_IMAGES . 'rlogo_small.png" title="' . $lang['data_export_tool_09'] . '" alt="' . $lang['data_export_tool_09'] . '" />
</td>
<td style="font-family:Verdana;font-size:11px;padding:10px;" valign="top">
<b>' . $lang['data_export_tool_09'] . '</b><br />' . $lang['data_export_tool_10'] . '
</td>
<td valign="top" style="text-align:right;width:100px;padding-top:10px;">
<a href="' . APP_PATH_WEBROOT . 'FileRepository/file_download.php?pid=' . $project_id . '&id=' . $r_doc_id . '">
<img src="' . APP_PATH_IMAGES . 'download_r.gif" title="' . $lang['data_export_tool_75'] . '" alt="' . $lang['data_export_tool_75'] . '">
</a>
<a href="' . APP_PATH_WEBROOT . 'FileRepository/file_download.php?pid=' . $project_id . '&id=' . $data_doc_id . '&exporttype=R">
<img src="' . APP_PATH_IMAGES . $csv_img . '" title="' . $lang['data_export_tool_69'] . '" alt="' . $lang['data_export_tool_69'] . '"></a>
<div style="text-align:left;padding:5px 0 1px;' . $sendItLinkDisplay . '">
<div style="line-height:5px;">
<img src="' . APP_PATH_IMAGES . 'mail_small.png" style="position: relative; top: 5px;"><a
href="javascript:;" style="color:#666;font-size:10px;text-decoration:underline;" onclick=\'
$("#sendit_' . $r_doc_id . '").toggle("blind",{},"fast");
\'>' . $lang['data_export_tool_66'] . '</a>
</div>
<div id="sendit_' . $r_doc_id . '" style="display:none;padding:4px 0 4px 6px;">
<div>
• <a href="javascript:;" onclick="popupSendIt(' . $r_doc_id . ',2);" style="font-size:10px;">' . $lang['data_export_tool_71'] . '</a>
</div>
<div>
• <a href="javascript:;" onclick="popupSendIt(' . $data_doc_id . ',2);" style="font-size:10px;">' . $lang['data_export_tool_72'] . '</a>
</div>
</div>
</div>
</td>
</tr>';
//STATA
print '<tr class="odd noncsv">
<td valign="top" style="text-align:center;width:60px;padding-top:10px;border:0px;border-bottom:1px solid #D0D0D0;border-left:1px solid #D0D0D0;">
<img src="' . APP_PATH_IMAGES . 'statalogo_small.png" title="' . $lang['data_export_tool_13'] . '" alt="' . $lang['data_export_tool_13'] . '" />
</td>
<td style="font-family:Verdana;font-size:11px;padding:10px;border-bottom:1px solid #D0D0D0;" valign="top">
<b>' . $lang['data_export_tool_13'] . '</b><br />' . $lang['data_export_tool_14'] . '
</td>
<td valign="top" style="text-align:right;width:100px;padding-top:10px;border-bottom:1px solid #D0D0D0;">
<a href="' . APP_PATH_WEBROOT . 'FileRepository/file_download.php?pid=' . $project_id . '&id=' . $stata_doc_id . '">
<img src="' . APP_PATH_IMAGES . 'download_stata.gif" title="' . $lang['data_export_tool_76'] . '" alt="' . $lang['data_export_tool_76'] . '">
</a>
<a href="' . APP_PATH_WEBROOT . 'FileRepository/file_download.php?pid=' . $project_id . '&id=' . $data_wo_hdr_doc_id . '">
<img src="' . APP_PATH_IMAGES . $csv_img . '" title="' . $lang['data_export_tool_69'] . '" alt="' . $lang['data_export_tool_69'] . '"></a>
<div style="text-align:left;padding:5px 0 1px;' . $sendItLinkDisplay . '">
<div style="line-height:5px;">
<img src="' . APP_PATH_IMAGES . 'mail_small.png" style="position: relative; top: 5px;"><a
href="javascript:;" style="color:#666;font-size:10px;text-decoration:underline;" onclick=\'
$("#sendit_' . $stata_doc_id . '").toggle("blind",{},"fast");
\'>' . $lang['data_export_tool_66'] . '</a>
</div>
<div id="sendit_' . $stata_doc_id . '" style="display:none;padding:4px 0 4px 6px;">
<div>
• <a href="javascript:;" onclick="popupSendIt(' . $stata_doc_id . ',2);" style="font-size:10px;">' . $lang['data_export_tool_71'] . '</a>
</div>
<div>
• <a href="javascript:;" onclick="popupSendIt(' . $data_wo_hdr_doc_id . ',2);" style="font-size:10px;">' . $lang['data_export_tool_72'] . '</a>
</div>
</div>
</div>
</td>
</tr>';
print '</table>';
print '</div><br><br><br><br>';
}
public function checkForPriorNotification($title)
{
$sql = "SELECT l.data_values, l.ts \n\t\t\tFROM redcap_log_event l WHERE \n\t\t \t\tl.project_id = {$this->project_id}\n\t\t\tAND l.page = 'PLUGIN' \n\t\t\tAND l.description = 'AutoNotify Alert';";
$q = db_query($sql);
while ($row = db_fetch_assoc($q)) {
$pairs = parseEnum($row['data_values']);
if ($pairs['title'] == $title && $pairs['record'] == $this->record && $pairs['event'] == $this->redcap_event_name) {
$date = substr($row['ts'], 4, 2) . "/" . substr($row['ts'], 6, 2) . "/" . substr($row['ts'], 0, 4);
$time = substr($row['ts'], 8, 2) . ":" . substr($row['ts'], 10, 2);
// Already triggered
// error_log("Trigger previously matched on $date $time ". json_encode($row));
return true;
}
}
return false;
}
public static function outputLimiterValueTextboxOrDropdown($field, $limiter_value = "")
{
global $Proj;
$field = self::getFieldFromEventField($field);
// For last field ("add new limiter"), disable the element
$disabled = $field == "" ? "disabled" : "";
if ($field != '' && ($Proj->isMultipleChoice($field) || $Proj->metadata[$field]['element_type'] == 'sql')) {
// Build enum options
$enum = $Proj->metadata[$field]['element_enum'];
$options = $Proj->metadata[$field]['element_type'] == 'sql' ? parseEnum(getSqlFieldEnum($enum)) : parseEnum($enum);
// Make sure it has a blank option at the beginning (EXCEPT checkboxes)
if ($Proj->metadata[$field]['element_type'] != 'checkbox') {
$options = array('' => '') + $options;
}
// Multiple choice drop-down
return RCView::select(array('name' => 'limiter_value[]', $disabled => $disabled, 'class' => 'x-form-text x-form-field limiter-value', 'style' => 'max-width:150px;padding-right:0;height:22px;'), $options, $limiter_value, 200);
} else {
// If field has validation, then add its validation as onblur
$val_type = $Proj->metadata[$field]['element_type'] == 'text' ? $Proj->metadata[$field]['element_validation_type'] : '';
$onblur = "";
if ($val_type != '') {
// Convert legacy validation types
if ($val_type == 'int') {
$val_type = 'integer';
} elseif ($val_type == 'float') {
$val_type = 'number';
}
// Add onblur
$onblur = "redcap_validate(this,'{$Proj->metadata[$field]['element_validation_min']}','{$Proj->metadata[$field]['element_validation_max']}','hard','{$val_type}',1)";
}
// If an MDY or DMY date/time field, then convert value
if ($limiter_value != '') {
if (substr($val_type, 0, 4) == 'date' && (substr($val_type, -4) == '_mdy' || substr($val_type, -4) == '_dmy')) {
// Convert to MDY or DMY format
$limiter_value = DateTimeRC::datetimeConvert($limiter_value, 'ymd', substr($val_type, -3));
}
}
// Adjust text box size for date/time fields
if (strpos($val_type, 'datetime_seconds') === 0) {
$style = 'width:120px;';
} elseif (strpos($val_type, 'datetime') === 0) {
$style = 'width:103px;';
} elseif (strpos($val_type, 'date') === 0) {
$style = 'width:70px;';
} else {
$style = 'width:150px;';
}
// Build date/time format text for date/time fields
$dformat = MetaData::getDateFormatDisplay($val_type);
$dformat_span = $dformat == '' ? '' : RCView::span(array('class' => 'df', 'style' => 'padding-left:4px;'), $dformat);
// Return text field
return RCView::text(array('name' => 'limiter_value[]', $disabled => $disabled, 'onblur' => $onblur, 'class' => $val_type . ' x-form-text x-form-field limiter-value', 'maxlength' => 255, 'style' => $style, 'value' => htmlspecialchars($limiter_value, ENT_QUOTES))) . $dformat_span;
}
}