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

allow extra parameters to be passed to get-resource-bundle

Browse source
This commit is contained in:
Gered 2014-09-08 15:07:10 -04:00
parent fa5e84fb1b
commit ed4d571cf5
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/clj_hl7_fhir/core.clj
View file

@ -453,13 +453,18 @@
reference: reference:
bundles: http://hl7.org/implement/standards/fhir/extras.html#bundle" bundles: http://hl7.org/implement/standards/fhir/extras.html#bundle"
[base-url type id] [base-url type id & params]
(let [resource-name (->fhir-resource-name type) (let [resource-name (->fhir-resource-name type)
url-components ["/" resource-name]] url-components ["/" resource-name]]
(fhir-request :get (fhir-request :get
base-url base-url
(apply join-paths url-components) (apply join-paths url-components)
:params {:_id id}))) :params (merge
{:_id id}
(apply hash-map (if (and (seq? params)
(= 1 (count params)))
(first params)
params))))))
(defn history (defn history
"returns a bundle containing the history of a single FHIR resource. note that this history can "returns a bundle containing the history of a single FHIR resource. note that this history can