diff --git a/exploratory/app.R b/exploratory/app.R
index ce14df23..57518796 100644
--- a/exploratory/app.R
+++ b/exploratory/app.R
@@ -47,8 +47,9 @@ datanames <- c("ADSL", "ADRS", "ADLB", "ADLBPCA")
 datanames(data) <- datanames
 
 join_keys(data) <- default_cdisc_join_keys[datanames]
-join_keys(data)[["ADLBPCA"]][["ADLBPCA"]] <- c("USUBJID", "STUDYID", "PARAMCD", "AVISIT")
-join_keys(data)[["ADLBPCA"]][["ADSL"]] <- c("USUBJID", "STUDYID")
+join_keys(data)["ADLBPCA", "ADLBPCA"] <- c("USUBJID", "STUDYID", "PARAMCD", "AVISIT")
+join_keys(data)["ADLBPCA", "ADSL"] <- c("USUBJID", "STUDYID")
+parents(data) <- c(parents(data), list(ADLBPCA = "ADSL"))
 
 ## Reusable Configuration For Modules
 ADSL <- data[["ADSL"]]