 (defn parse-study-event-def! [bus study-event-def]
   (publish!! bus :study-event-def (parse-study-event-def-head study-event-def))
   (doseq [form-ref (xml-> study-event-def :FormRef)]
-    (parse-form-ref! bus form-ref)))
+    (parse-form-ref! bus (oid study-event-def) form-ref)))
 
 ;; ---- Item Group Ref --------------------------------------------------------------
 

       :mandatory (= "Yes" (xml1-> form-ref (attr :Mandatory)))}
      (assoc-when :order-number (xml1-> form-ref (attr :OrderNumber)))))

(defn parse-form-ref! [bus form-ref]
  (publish!! bus :form-ref (parse-form-ref form-ref)))

;; ---- Study Event Def -------------------------------------------------------


            [clojure.data.zip.xml :refer [xml-> xml1-> attr attr= text]]
            [clojure.tools.logging :as log]
            [clojure.zip :as zip]
            [schema.core :as s :refer [Str]]
            [lens.event-bus :refer [publish!!]]))

;; ---- Schemas ---------------------------------------------------------------

(def Xml
  s/Any)

;; ---- Private ---------------------------------------------------------------

(defn- oid [loc]
  (xml1-> loc (attr :OID)))

(defn- first-translated-text []
  (fn [loc] (xml1-> loc :TranslatedText text)))

(defn- desc [loc]
  (xml1-> loc :Description (first-translated-text)))

(defn- question [loc]
  (xml1-> loc :Question (first-translated-text)))

;; ---- Form Ref --------------------------------------------------------------
