Add search by exact name

README.md

@@ -287,6 +287,37 @@ the VTM, and an AMPP will include all of the others!
   "VTMID": 108537001
 }
 ```
+##### Get a product by exact name
+
+You can search by exact name, if you have data without dm+d codes, but derived from the dm+d dataset.
+
+This is a case-sensitive search.
+
+```shell
+http -j 'http://127.0.0.1:8080/dmd/v1/search?s=Amlodipine 5mg/5ml oral solution sugar-free'
+```
+Result:
+```json
+{
+    "BASIS": {
+        "CD": 1,
+        "DESC": "rINN - Recommended International Non-proprietary"
+    },
+    "BASISCD": 1,
+    "BNF_DETAILS": {
+        "ATC": "C08CA01",
+        "BNF": "02060200",
+        "DDD": 5.0,
+        "DDD_UOM": {
+            "CD": 258684004,
+            "DESC": "mg"
+        },
+        "DDD_UOMCD": 258684004,
+        "VPID": 39732011000001102
+    },
+    "CONTROL_DRUG_INFO": {
+...
+```
 
 ##### Map from BNF or ATC codes to VMPs
 

cmd/com/eldrix/dmd/serve.clj

@@ -113,6 +113,18 @@
          context
          (assoc context :result (dmd/fetch-product store (Long/parseLong product-id))))))})
 
+(def search-product
+  {:name
+   ::search-product
+   :enter
+   (fn [context]
+     (let [store (get-in context [:request ::store])
+           s (get-in context [:request :query-params :s])]
+       (println "Search: " s)
+       (if-not s
+         context
+         (assoc context :result (dmd/fetch-product-by-exact-name store s)))))})
+
 (def fetch-lookup
   {:name
    ::fetch-lookup
@@ -217,6 +229,7 @@
       ["/dmd/v1/product/:product-id/amps" :get (conj common-interceptors fetch-product-amps)]
       ["/dmd/v1/product/:product-id/atc" :get (conj common-interceptors fetch-product-atc)]
       ["/dmd/v1/product/:product-id" :get (conj common-interceptors fetch-product)]
+      ["/dmd/v1/search" :get (conj common-interceptors search-product)]
       ["/dmd/v1/lookup/:lookup-kind" :get (conj common-interceptors fetch-lookup)]
       ["/dmd/v1/atc/:atc/vmps" :get (conj common-interceptors atc->vmps)]
       ["/dmd/v1/atc/:atc/products" :get (conj common-interceptors atc->products)]

src/com/eldrix/dmd/core.clj

@@ -55,6 +55,10 @@
 (defn fetch-product [^DmdStore store product-id]
   (st2/fetch-product store product-id))
 
+(defn fetch-product-by-exact-name [^DmdStore store nm]
+  (when-let [id (st2/product-by-exact-name store nm)]
+    (st2/fetch-product store id)))
+
 (defn fetch-lookup [^DmdStore store lookup-kind]
   (st2/fetch-lookup store lookup-kind))
 

src/com/eldrix/dmd/store2.clj

@@ -714,6 +714,20 @@
        (d/db (.-conn st))
        re-nm))
 
+(defn product-by-exact-name
+  "Returns a single product identifier for a search by exact name."
+  [st nm]
+  (d/q '[:find ?id .
+         :in $ ?nm
+         :where
+         [?e :PRODUCT/ID ?id]
+         (or
+           [?e :VTM/NM ?nm]
+           [?e :AMP/DESC ?nm]
+           [?e :VMP/NM ?nm])]
+     (d/db (.-conn st))
+     nm))
+
 (defmulti vtms "Return the entity ids for the VTMs associated with this product."
   (fn [^DmdStore _store product] (:PRODUCT/TYPE product)))