1 files changed, 8 insertions, 0 deletions
diff --git a/gn/data/dataset.scm b/gn/data/dataset.scm
index c28cf25..5f6bb0f 100644
--- a/gn/data/dataset.scm
+++ b/gn/data/dataset.scm
@@ -12,6 +12,7 @@
 
   #:export (
             dataset-name
+            get-bxd-publish-list
             ))
 
 (define (get-dataset db probesetfreeze-id)
@@ -22,3 +23,10 @@
 
 (define (dataset-name db probesetfreeze-id)
   (assoc-ref (get-dataset db probesetfreeze-id) "Name"))
+
+(define (get-bxd-publish-list)
+  (call-with-db
+   (lambda (db)
+     (let [(query "SELECT Id,PhenotypeId,DataId FROM PublishXRef WHERE InbredSetId=1")]
+       (dbi-query db query)
+       (get-rows db '())))))