How to use lookup function ignoring first 4 chars and do the match

Question

Question

Ahmad Bukhtiar · Feb 25, 2021

Hi

I am using below function and it works fine but i want to match the value ignoring the first 4 chars as they are only added to sort the data.

##class(Ens.Rule.FunctionSet).Lookup

For example

My table has following values

0001EMRNameB

0002EMRNameA

0003EMRNameC

w ^Ens.LookupTable("EMRName","0002EMRNameA") this works

But i want to use something like that

w ^(Ens.LookupTable("EMRName","%EMRNameA") this doesnt works

Discussion (3)2

Log in or sign up to continue

Marc Mundt · Feb 25, 2021

Sample code using Embedded SQL:

set tName="EMRNameA"
set tEMRNameLike="%"_tName

&SQL(SELECT DataValue INTO :tValue FROM Ens_Util.LookupTable WHERE TableName = 'EMRName' AND KeyName LIKE :tEMRNameLike)

if (SQLCODE = 0) {
    write "tValue:",tValue,!
} else {
    write tName_" Not found",!
}

0 0

score 0 · Answer 1 · 2021-02-25T10:42:59-05:00

You can extract the values you want using $EXTRACT (or $E for short) where * represents the length of your string:

Set tValue = "0003EMRNameC"
Set tValueToLookup = $EXTRACT(tValue,5,*)

https://docs.intersystems.com/latest/csp/docbook/DocBook.UI.Page.cls?KEY...

You should be able to put it on within the single function call if you prefer as well, but that's up to you.

score 0 · Answer 2 · 2021-02-25T11:19:36-05:00

Have you considered using SQL for this rather than going directly to the globals?

SELECT DataValue FROM Ens_Util.LookupTable WHERE TableName = 'EMRName' AND KeyName LIKE '%EMRNameA'