Create HumanName.text from a HumanName

humanname.clj

(defn nametext [hn]
  (->> [:fhir-attr/HumanName.prefix :fhir-attr/HumanName.given
        :fhir-attr/HumanName.family :fhir-attr/HumanName.suffix]
       (mapcat #(get hn %))
       (filter not-empty)
       (interpose \space)
       (apply str)))

(defn humanname-text-tx [d]
  (->> (d/datoms d :avet :phi.element/type "fhir-type/HumanName")
       (map :e)
       (map #(d/entity d %))
       (map (juxt :db/id nametext))
       (map (fn [[k v]] (do [:db/add k :fhir-attr/HumanName.text v])))))