gered/clj-hl7-fhir
Archived
1
0
Fork 0
Code Issues 1 Pull requests Packages Projects Releases Wiki Activity

helper function for finding resources in a bundle by url

Browse source
This commit is contained in:
Gered 2014-09-03 09:12:55 -04:00
parent cc7b3f38f4
commit d3599ee48a
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/clj_hl7_fhir/core.clj
View file

@ -341,6 +341,21 @@
(= rel "previous")))) (= rel "previous"))))
(vec))))) (vec)))))
(defn find-resource-in
"finds and returns a resource contained in the given bundle, identified by a
relative or absolute resource URL. if not found, nil is returned. throws an
exception if the bundle and/or url supplied is invalid."
[bundle resource-url]
(when bundle
(validate-bundle! bundle)
(let [base-url (get-base-url-from-bundle bundle)
search-url (if (absolute-url? resource-url)
resource-url
(relative->absolute-url base-url resource-url))]
(->> (:entry bundle)
(filter #(= search-url (: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