コード例 #1
0
            break;
        case 'prior_treatment_response':
            $debug = false;
            ?>
			<script type="text/javascript">
				$(document).ready(function () {
					console.log('blah');
					$("div#reqPopup").html("blah");
				});
			</script>
			<?php 
            set_treatment_exp($record, $debug);
            if ($debug) {
                $timer['main_end'] = microtime(true);
                error_log(benchmark_timing($timer));
            }
            break;
            /**
             * all other forms do nothing
             */
        /**
         * all other forms do nothing
         */
        default:
            if ($debug) {
                $timer['main_end'] = microtime(true);
                error_log("CASE DEFAULT" . benchmark_timing($timer));
            }
            break;
    }
}
コード例 #2
0
 * project metadata
 */
$project = new Project();
$first_event_id = $project->firstEventId;
$plugin_title = "Derive INDCMODF, INDCOD and INDCSYS for all CMINDC";
/**
 * plugin
 */
echo "<h3>$plugin_title</h3>";
/**
 * MAIN
 */
if ($debug) {
	$timer['main_start'] = microtime(true);
}
$fields = array('cm_cmindc', 'cm_oth_cmindc', 'cm_suppcm_indcmodf', 'cm_suppcm_indcod', 'cm_suppcm_indcsys');
$data = REDCap::getData('array', $subjects, $fields);
foreach ($data AS $subject_id => $subject) {
    foreach ($subject AS $event_id => $event) {
	    if ($event['cm_cmindc'] != '') {
		    code_llt($project_id, $subject_id, $event_id, fix_case($event['cm_cmindc']), fix_case($event['cm_oth_cmindc']), $event['cm_suppcm_indcmodf'], 'cm_suppcm_indcmodf', $debug, $recode_llt);
		    code_pt($project_id, $subject_id, $event_id, get_single_field($subject_id, $project_id, $event_id, "cm_suppcm_indcmodf", ''), $event["cm_suppcm_indcod"], "cm_suppcm_indcod", $debug, $recode_pt);
		    code_bodsys($project_id, $subject_id, $event_id, get_single_field($subject_id, $project_id, $event_id, "cm_suppcm_indcod", ''), $event["cm_suppcm_indcsys"], "cm_suppcm_indcsys", $debug, $recode_soc);
	    }
    }
}
if ($debug) {
	$timer['main_end'] = microtime(true);
	$init_time = benchmark_timing($timer);
	echo $init_time;
}
コード例 #3
0
        case 'fibrosis_staging':
        case 'cirrhosis':
            set_cirrhosis($record, $debug);
            break;
        case 'prior_treatment_response':
            Prioritize::set_treatment_exp($record, $debug);
            break;
        case 'derived_values_baseline':
            Prioritize::set_tx_data($record, $debug);
            break;
            /**
             * all other forms do nothing
             */
        /**
         * all other forms do nothing
         */
        default:
            break;
    }
    /**
     * Determine completeness of baseline, week4, eot, eot1year and eot3year surveys and record state.
     * this has to run on every form save to capture the passage of time. you can't
     */
    if (in_array($redcap_event_name, array_keys($arms)) && $instrument != 'survey_completion') {
        Prioritize::set_survey_completion($record, $debug);
    }
}
if ($debug) {
    $timer['main_end'] = microtime(true);
    error_log(benchmark_timing($timer));
}