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

add convenience function 'search-and-fetch'

Browse source
This commit is contained in:
Gered 2014-07-08 11:33:13 -04:00
parent 80a04dea35
commit cc3b85a2b1
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/clj_hl7_fhir/core.clj
View file

@ -212,7 +212,17 @@
(apply join-paths url-components) (apply join-paths url-components)
(merge (merge
(search-params->query-map where) (search-params->query-map where)
(apply hash-map params))))) (apply hash-map (if (and (seq? params)
(= 1 (count params)))
(first params)
params))))))
(defn search-and-fetch
"same as search, but automatically fetches all pages of resources returning a single bundle
that contains all search results."
[base-url type where & params]
(fetch-all
(search base-url type where params)))
;(def server-url "http://fhir.healthintersections.com.au/open") ;(def server-url "http://fhir.healthintersections.com.au/open")
;(def server-url "http://spark.furore.com/fhir") ;(def server-url "http://spark.furore.com/fhir")