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

add delete operation

Browse source
This commit is contained in:
Gered 2014-08-01 15:06:43 -04:00
parent 4a89c5a701
commit 2ed10827d3
1 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/clj_hl7_fhir/core.clj
View file

@ -330,6 +330,19 @@
(apply join-paths uri-components) (apply join-paths uri-components)
:body resource))) :body resource)))
(defn delete
"deletes an existing resource. returns nil on success, throws an exception if an error
response was received.
reference:
delete: http://hl7.org/implement/standards/fhir/http.html#delete"
[base-url type id]
(let [resource-name (->fhir-resource-name type)
uri-components ["/" resource-name id]]
(fhir-request :delete
base-url
(apply join-paths uri-components))))
;(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")