From 746855cb87b3b9aec1de4804f5e8201a57c3a681 Mon Sep 17 00:00:00 2001
From: pegeler <paulegeler@gmail.com>
Date: Mon, 4 Jun 2018 00:41:00 -0400
Subject: [PATCH] Closes #2. SAS now handles data which contains checkbox
 fields.

---
 README.md            |  6 ++----
 SAS/REDCap_split.sas | 42 +++++++++++++++++++++++++++++++++++-------
 2 files changed, 37 insertions(+), 11 deletions(-)

diff --git a/README.md b/README.md
index 4545ddf..c336956 100644
--- a/README.md
+++ b/README.md
@@ -53,10 +53,8 @@ records, so no pre-processing of metadata csv is needed.
 
 ### SAS
 
-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 
-THIS LINE:
-    ```format redcap_repeat_instrument redcap_repeat_instrument_.;```
+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.
 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_SPLIT()`. You will have an output dataset for
diff --git a/SAS/REDCap_split.sas b/SAS/REDCap_split.sas
index 690f455..ea4da64 100644
--- a/SAS/REDCap_split.sas
+++ b/SAS/REDCap_split.sas
@@ -15,10 +15,7 @@
 *
 * INSTRUCTIONS:
 * 
-* 1. Run the SAS code provided by REDCap to import the data 
-*    BUT COMMENT THIS LINE:
-*
-*      format redcap_repeat_instrument redcap_repeat_instrument_.;
+* 1. Run the SAS code provided by REDCap to load the records into your SAS session.
 *
 * 2. Download the data dictionary for your project.
 *
@@ -44,7 +41,7 @@
 
             IF FIELD_TYPE EQ "descriptive" THEN DELETE;
 
-            DROP SECTION_HEADER FIELD_TYPE X1-X14;
+            DROP SECTION_HEADER X1-X14;
                 
         RUN;
 
@@ -57,6 +54,13 @@
     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;
 
         SELECT DISTINCT
@@ -79,11 +83,34 @@
 
     %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;
 
             SELECT VAR_NAME
             INTO :VARS_BASE SEPARATED BY ' '
-            FROM &DATA_DICTIONARY. AS A
+            FROM REDCAP_FIELDS AS A
             WHERE FORM_NAME NOT IN (&INSTRUMENT_LIST);
 
             %put Base vars: &VARS_BASE;
@@ -94,7 +121,7 @@
                 
                 SELECT VAR_NAME
                 INTO :VARS_&INSTRUMENT_I. SEPARATED BY ' '
-                FROM &DATA_DICTIONARY. AS A
+                FROM REDCAP_FIELDS AS A
                 WHERE FORM_NAME EQ "&INSTRUMENT_I.";
 
                 %put &INSTRUMENT_I. vars: &&VARS_&INSTRUMENT_I;
@@ -104,6 +131,7 @@
 
         QUIT;
 
+        /* Make new data sets based on field names above */
         DATA &DATA_SET._BASE (KEEP = &VARS_BASE);
             SET &DATA_SET;