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

add get-base-url-from-bundle. make get-bundle-next-page-url public.

Browse source
This commit is contained in:
Gered 2014-09-02 15:20:52 -04:00
parent 442162d7e5
commit e4689d03eb
1 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/clj_hl7_fhir/core.clj
View file

@ -271,13 +271,27 @@
(map :content)
(remove nil?)))
(defn- get-bundle-next-page-url [bundle]
(defn get-bundle-next-page-url
"returns the 'next' bundle URL from the given FHIR bundle. useful for paged
search results. throws an exception if the value passed is not a valid FHIR
bundle."
[bundle]
(validate-bundle! bundle)
(->> (:link bundle)
(filter #(= "next" (:rel %)))
(first)
:href))
(defn get-base-url-from-bundle
"returns the base-url from the given FHIR bundle. throws an exception if the
value passed is not a valid FHIR bundle."
[bundle]
(validate-bundle!)
(->> (:link bundle)
(filter #(= "fhir-base" (:rel %)))
(first)
:href))
(defn fetch-next-page
"for resources that are returned over more then one page, this will fetch the
next page of resources as indicated by the link information contained in the