andreas/REDCapCAST
1
0
Fork 0
mirror of https://github.com/agdamsbo/REDCapCAST.git synced 2024-11-22 13:30:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'SAS-fix'

Browse Source
This commit is contained in:
pegeler 2018-06-04 00:41:50 -04:00
commit cbeb70ac59
2 changed files with 37 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
README.md
View File

@ -98,10 +98,8 @@ REDCapRITS::REDCap_split(records, metadata)
### SAS ### SAS
1. Download the data, SAS code to load the data, and the data dictionary from REDCap 1. Download the data, SAS code to load the data, and the data dictionary from REDCap.
1. Run the SAS code provided by REDCap to import the data BUT COMMENT 1. Run the SAS code provided by REDCap to import the data.
THIS LINE:
```format redcap_repeat_instrument redcap_repeat_instrument_.;```
1. Run the RECapRITS macro definitions in the source editor or using `%include`. 1. Run the RECapRITS macro definitions in the source editor or using `%include`.
1. Run the macro call `%REDCAP_READ_DATA_DICT()` to load the data dictionary into your SAS session, pointing to the file location of your REDCap data dictionary. 1. Run the macro call `%REDCAP_READ_DATA_DICT()` to load the data dictionary into your SAS session, pointing to the file location of your REDCap data dictionary.
1. Run the macro call `%REDCAP_SPLIT()`. You will have an output dataset for 1. Run the macro call `%REDCAP_SPLIT()`. You will have an output dataset for

42
SAS/REDCap_split.sas
View File

@ -15,10 +15,7 @@
* *
* INSTRUCTIONS: * INSTRUCTIONS:
* *
* 1. Run the SAS code provided by REDCap to import the data * 1. Run the SAS code provided by REDCap to load the records into your SAS session.
* BUT COMMENT THIS LINE:
*
* format redcap_repeat_instrument redcap_repeat_instrument_.;
* *
* 2. Download the data dictionary for your project. * 2. Download the data dictionary for your project.
* *
@ -44,7 +41,7 @@
IF FIELD_TYPE EQ "descriptive" THEN DELETE; IF FIELD_TYPE EQ "descriptive" THEN DELETE;
DROP SECTION_HEADER FIELD_TYPE X1-X14; DROP SECTION_HEADER X1-X14;
RUN; RUN;
@ -57,6 +54,13 @@
KEY = RECORD_ID /* Variable that links base table with other tables */ KEY = RECORD_ID /* Variable that links base table with other tables */
); );
/* Remove formatting from repeat instrument field */
DATA &DATA_SET.;
SET &DATA_SET.;
FORMAT REDCAP_REPEAT_INSTRUMENT;
RUN;
/* Find the subtable names and number of subtables */
PROC SQL NOPRINT; PROC SQL NOPRINT;
SELECT DISTINCT SELECT DISTINCT
@ -79,11 +83,34 @@
%IF &N_SUBTABLES GT 0 %THEN %DO; %IF &N_SUBTABLES GT 0 %THEN %DO;
/* Make a list of fields and their associated forms based on data dictionary */
PROC CONTENTS
DATA = &DATA_SET.
OUT = REDCAP_VARNAMES(KEEP=NAME)
NOPRINT;
RUN;
DATA REDCAP_FIELDS(KEEP=VAR_NAME FORM_NAME);
SET &DATA_DICTIONARY.;
IF FIELD_TYPE EQ "checkbox" THEN DO;
BASENAME = VAR_NAME;
DO I = 1 TO N;
SET REDCAP_VARNAMES POINT=I NOBS=N;
IF PRXMATCH("/^"!!trim(BASENAME)!!"___.+$/", NAME) THEN DO;
VAR_NAME = NAME;
OUTPUT;
END;
END;
END;
ELSE OUTPUT;
RUN;
/* Sort out the field names */
PROC SQL NOPRINT; PROC SQL NOPRINT;
SELECT VAR_NAME SELECT VAR_NAME
INTO :VARS_BASE SEPARATED BY ' ' INTO :VARS_BASE SEPARATED BY ' '
FROM &DATA_DICTIONARY. AS A FROM REDCAP_FIELDS AS A
WHERE FORM_NAME NOT IN (&INSTRUMENT_LIST); WHERE FORM_NAME NOT IN (&INSTRUMENT_LIST);
%put Base vars: &VARS_BASE; %put Base vars: &VARS_BASE;
@ -94,7 +121,7 @@
SELECT VAR_NAME SELECT VAR_NAME
INTO :VARS_&INSTRUMENT_I. SEPARATED BY ' ' INTO :VARS_&INSTRUMENT_I. SEPARATED BY ' '
FROM &DATA_DICTIONARY. AS A FROM REDCAP_FIELDS AS A
WHERE FORM_NAME EQ "&INSTRUMENT_I."; WHERE FORM_NAME EQ "&INSTRUMENT_I.";
%put &INSTRUMENT_I. vars: &&VARS_&INSTRUMENT_I; %put &INSTRUMENT_I. vars: &&VARS_&INSTRUMENT_I;
@ -104,6 +131,7 @@
QUIT; QUIT;
/* Make new data sets based on field names above */
DATA &DATA_SET._BASE (KEEP = &VARS_BASE); DATA &DATA_SET._BASE (KEEP = &VARS_BASE);
SET &DATA_SET; SET &DATA_SET;