com.eldrix.dmd.store4 — com.eldrix/dmd 1.0.200

dm+d storage using sqlite

apids clj

(apids conn id)

Return AMP ids for the given product.

apids-for-appids clj

(apids-for-appids conn appids)

apids-for-vpids clj

(apids-for-vpids conn vpids)

Return APIDs for the given VPIDs.

appids clj

(appids conn id)

Return AMPP ids for the given product.

appids-for-apids clj

(appids-for-apids conn apids)

appids-for-vppids clj

(appids-for-vppids conn vppids)

atc->ecl clj deprecated

(atc->ecl conn
          atc
          &
          {:keys [include-tf? include-product-packs?]
           :or {include-tf? false include-product-packs? false}})

DEPRECATED: use atc->products-for-ecl instead and use that data to build an ECL expression outside of this library.

Convert an ATC code into a SNOMED CT expression that will identify all dm+d products relating to that code. It is almost always better to build an ECL expression using atc->products-for-ecl rather than this function.

Not all VMPs have a VTM, but a given VTM will subsume all VTMs, VMPs and AMPs in the SNOMED drug model.

Unfortunately, while the UK SNOMED drug extension includes trade family entities, dm+d does not. This is unfortunate. In order to identify the TF concept for any given AMP, we can use an ECL expression of the form (>'amp-concept-id' AND <9191801000001103|Trade Family|) to identify parent concepts in the hierarchy up to and not including the TF concept itself. However, this can result in a very long expression indeed. If you need to build an ECL expression that includes TF, this is better done within the context of the SNOMED drug extension. You can use 'atc->products-for-ecl' to help build that ECL expression.

It would not be usual to want to include VMPP or AMPP, but you can include if required. All AMPPs are subsumed by VMPPs, so we simply add clauses to include VMPPs and descendants for each VMP using the 'Has VMP' relationship.

atc->products-for-ecl clj

(atc->products-for-ecl conn atc)

Returns a map containing product type as key and a sequence of product identifiers as each value, designed for building an ECL expression. Parameters:

• conn : database connection
• atc : a string representing the ATC code, or prefix.

As the child relationships of a VTM include all VMPs and AMPs, we do not have to include VMPs or AMPs unless there is no VTM for a given VMP. As such, VMPs are only returned iff there is no associated VTM. However, all AMPs are returned as it is likely that those will be needed in order to derive a list of TF products. It is sadly the case that the stock dm+d does not include TF products, while the SNOMED drug extension does include those products.

atc-code clj

(atc-code conn id)

Return the ATC code for the product specified.

atc-code-for-vpids clj

(atc-code-for-vpids conn vpids)

batch->sql clj

(batch->sql batch)

For the given batch of dm+d entities, return a map of :stmts and :errors

{:stmts ({:stmt "insert into SUPPLIER(CD,DESC) VALUES (?, ?) ON CONFLICT(CD) DO UPDATE SET DESC=excluded.DESC",
          :data  ([2070501000001104 "DDC Ltd"]
                  [3146101000001108 "Dragon Pharm Ltd"] ...)})}
 :errors nil

close clj

(close conn)

Close the store.

create-indexes clj

(create-indexes conn)

create-store clj

(create-store filename
              dirs
              &
              {:keys [batch-size release-date] :or {batch-size 50000}})

create-tables clj

(create-tables conn)

Creates all database tables for dm+d entities.

entities clj

entity-by-type clj

fetch-all-lookup clj

(fetch-all-lookup conn lookup)

fetch-amp clj

(fetch-amp conn apid)

Return the given AMP with extended information, including the parent VMP.

fetch-amp* clj

(fetch-amp* conn apid)

Return the given AMP without extended information.

fetch-ampp clj

(fetch-ampp conn appid)

Return the given AMPP with extended information, including the parent AMP and VMP.

fetch-ampp* clj

(fetch-ampp* conn appid)

Return the given AMPP without extended information.

fetch-ingredient clj

(fetch-ingredient conn isid)

Returns the ingredient specified.

fetch-lookup clj

(fetch-lookup conn lookup code)

fetch-product clj

(fetch-product conn id)

Returns extended information about the product with identifier specified.

fetch-product-by-exact-name clj

(fetch-product-by-exact-name conn s)

Return a single product with the given exact name

fetch-release-date clj

(fetch-release-date conn)

fetch-vmp clj

(fetch-vmp conn vpid)

Return the given VMP with extended information to include its relationships such as its parent VTM.

fetch-vmp* clj

(fetch-vmp* conn vpid)

Return the given VMP without extended information.

fetch-vmpp clj

(fetch-vmpp conn vppid)

Return the given VMPP with extended information, including its parent VMP.

fetch-vmpp* clj

(fetch-vmpp* conn vppid)

Return the given VMPP without extended information.

fetch-vtm clj

Returns the given VTM. VTMs do not have extended information so this returns the same as fetch-vtm*.

fetch-vtm* clj

(fetch-vtm* conn vtmid)

Returns the given VTM with no extended information.

open-store clj

(open-store filename)

product-ids-from-atc clj

(product-ids-from-atc conn atc)

(product-ids-from-atc conn atc product-types)

Return a lazy sequence of product ids matching the ATC code

product-type clj

(product-type conn id)

Returns a keyword :VTM :VMP :AMP :VMPP or :AMPP for the product with the identifier specified.

store-version clj

supported-product-types-for-atc-map clj

vmps-from-atc clj deprecated

(vmps-from-atc conn atc)

Return VMPs matching the given ATC code as a prefix.

vpids clj

(vpids conn id)

Return VMP ids for the given product.

vpids-for-apids clj

(vpids-for-apids conn apids)

Return VPIDs for the given APIDs.

vpids-for-vmpps clj

(vpids-for-vmpps conn vppids)

vpids-for-vtmids clj

(vpids-for-vtmids conn vtmids)

Return VPIDs for the given VTMIDs.

vpids-from-atc clj

(vpids-from-atc conn atc)

Return a vector of VPIDs matching the given ATC code/prefix.

vpids-from-atc-wo-vtms clj

(vpids-from-atc-wo-vtms conn atc)

Return a vector of VPIDs matching the given ATC code/prefix that do not have an associated VTM. This is only useful when constructing SNOMED ECL expressions that use a combination of VTMs, VMPs and TFs, and therefore do not need VMPs unless there is no associated VTM.

vppids clj

(vppids conn id)

Return VMPP ids for the given product.

vppids-for-appids clj

(vppids-for-appids conn appids)

vppids-for-vpids clj

(vppids-for-vpids conn vpids)

vtmids clj

(vtmids conn id)

Return VTM ids for the given product.

vtmids-for-vpids clj

(vtmids-for-vpids conn vpids)

Return VTMIDs for the given VPIDs.