add function for following contained resource references

This commit is contained in:
Gered 2014-09-03 09:17:09 -04:00
parent d3599ee48a
commit ae85b7b00d

View file

@ -356,6 +356,19 @@
(filter #(= search-url (:id %))) (filter #(= search-url (:id %)))
(first))))) (first)))))
(defn get-contained
"returns a resource contained in a parent resource, where the contained resource
is identified by an internal reference id.
reference:
contained resources: http://www.hl7.org/implement/standards/fhir/references.html#contained"
[containing-resource ref-id]
(if-not (str/blank? ref-id)
(if-let [parsed-id (if (.startsWith ref-id "#") (subs ref-id 1))]
(->> (:contained containing-resource)
(filter #(= parsed-id (:id %)))
(first)))))
(defn fetch-all (defn fetch-all
"for resources that are returned over more then one page, this will automatically "for resources that are returned over more then one page, this will automatically
fetch all pages of resources and them into a single bundle that contains all of fetch all pages of resources and them into a single bundle that contains all of