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

add update resource function

Browse source
This commit is contained in:
Gered 2014-07-14 15:22:17 -04:00
parent cfa7c49135
commit bbea913abe
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/clj_hl7_fhir/core.clj
View file

@ -284,6 +284,17 @@
(apply join-paths uri-components) (apply join-paths uri-components)
:body resource))) :body resource)))
(defn update
[base-url type id resource & {:keys [version]}]
(let [resource-name (->fhir-resource-name type)
uri-components (if version
["/" resource-name id "_history" version]
["/" resource-name id])]
(fhir-request :put
base-url
(apply join-paths uri-components)
:body resource)))
;(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")
;(def server-url "http://fhirtest.uhn.ca/base") ;(def server-url "http://fhirtest.uhn.ca/base")