      :alt - alternate seq"
   [t i]
   (let [v (ld1-> t i "variant" "relatedContextualAllele" (prop= t true "preferred"))]
+  (if (nil? v ) (log/debug (str "Exception in get-variant: relatedContextualAllele not found")))
     {:variantIdentifier (variant-identifier v),
      :altDesignations (variant-alt-designations v),
      :refseq (variant-refseq t v),

  May log warnings if available content does not conform to
  clinvar specifcations."
  [t c]
  (let [name (get c "name")]
    (csv-colval (if (nil? name) "" name))))

(defn condition-idtype
  ;TODO modify to deal with phenotypes and multi-values for satisfying clinvar specs.
  [t c]
  (let [disease-coding (ld-> t c "disease" "coding")]
    (let [disease-code (get disease-coding "code")]
      (csv-colval (get (re-find #"(.*)\_(.*)" disease-code) 1)))))

(defn condition-idvals
   ;TODO modify to deal with phenotypes and multi-values for satisfying clinvar specs.
  [t c]
  (let [disease-coding (ld-> t c "disease" "coding")]
    (let [disease-code (get disease-coding "code")]
      (csv-colval (get (re-find #"(.*)\_(.*)" disease-code) 2)))))

(defn condition-moi
  [t c]
  (csv-colval (ld-> t c "modeOfInheritance" "display")))

(defn get-condition
  "Processes the condition element to derive the ClinVar sanctioned fields: 

   warning will be reported 'Condition is missing for a clinically significant
   interpretation.'"
  [t i]
  (let [c (ld-> t i "condition")]
     (if (nil? c) (log/debug (str "Exception in function get-condition: condition not found")))
     {:name (if (nil? c) "" (condition-name t c)),
      :idtype (if (nil? c) "" (condition-idtype t c)),
      :idvalue (if (nil? c) "" (condition-idvals t c)),
      :moi (if (nil? c) "" (condition-moi t c))}))

  (defn evidence-rules
    "Returns the list of criterion rule names for the evidence provided"
