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

update fhir request response return handling to detect if the body has a json (fhir) response (probably an operation outcome resource) and parse+return it when it makes sense to (in conjunction with the Location header following option)

Browse source
This commit is contained in:
Gered 2014-08-01 15:29:53 -04:00
parent 30aaf2a16c
commit a603756938
1 changed files with 13 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/clj_hl7_fhir/core.clj
View file

@ -9,6 +9,10 @@
(defn- ->fhir-resource-name [x] (defn- ->fhir-resource-name [x]
(name (->CamelCase x))) (name (->CamelCase x)))
(defn- fhir-response? [response]
(and (map? response)
(.contains (get-in response [:headers "Content-Type"]) "application/json+fhir")))
(defn- fhir-request [type base-url resource-url & {:keys [params body follow-location?]}] (defn- fhir-request [type base-url resource-url & {:keys [params body follow-location?]}]
(let [query (map->query-string params) (let [query (map->query-string params)
url (build-url base-url resource-url query) url (build-url base-url resource-url query)
@ -19,16 +23,22 @@
:post (http-post-json url body) :post (http-post-json url body)
:put (http-put-json url body) :put (http-put-json url body)
:delete (http-delete-json url body)) :delete (http-delete-json url body))
body (:body response)
location (get-in response [:headers "Location"])] location (get-in response [:headers "Location"])]
(if location (if location
(if follow-location? (if follow-location?
(-> (http-get-json location) (-> (http-get-json location)
:body :body
(json/parse-string true)) (json/parse-string true))
location))) (if (fhir-response? response)
(json/parse-string body true)
location))
(if (fhir-response? response)
(json/parse-string body true)
body)))
(catch ExceptionInfo ex (catch ExceptionInfo ex
(let [{:keys [status body headers]} (:object (ex-data ex)) (let [{:keys [status body] :as response} (:object (ex-data ex))
fhir-resource-response? (.contains (get headers "Content-Type") "application/json+fhir")] fhir-resource-response? (fhir-response? response)]
(throw (ex-info (str "FHIR request failed: HTTP " status) (throw (ex-info (str "FHIR request failed: HTTP " status)
{:status status {:status status
:fhir-resource? fhir-resource-response? :fhir-resource? fhir-resource-response?