add update resource function

2014-07-14 15:22:17 -04:00 · 2014-07-14 15:22:17 -04:00 · bbea913abe
parent cfa7c49135
commit bbea913abe
1 changed files with 11 additions and 0 deletions
--- a/src/clj_hl7_fhir/core.clj
+++ b/src/clj_hl7_fhir/core.clj
@ -284,6 +284,17 @@
      (apply join-paths uri-components)
      :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://spark.furore.com/fhir")
 ;(def server-url "http://fhirtest.uhn.ca/base")