Thank you, @Dmitry Maslennikov, for your incredible journey and inspiring contributions to the community. Wishing you continued success and endless learning ahead!

Here is the simplified version of the LIKE operator with SQL Procedure

Stored procedure

/// add multiple parameters depends on needs
Query NAMEINLIKE(p1 As%String = "", p2 As%String = "") As%Library.SQLQuery [ SqlProc ]
{
    SELECT  Name,Age FROM Sample.Person 
    WHERE Name like :p1 or Name like :p2
}

 SQL query

select * FROM SAMPLE.PERSON_NAMEINLIKE('%Eisenstien%','Xenia%')

ClassMethod INLIKE(pSQLColumnValue, pSearchValues...) As%Boolean [ SqlProc ]
{
    Set rtn=0For i=1:1:$O(pSearchValues(""),-1) {
        Set data = pSearchValues(i)
        If$E(data,1)="%"&&($E(data,*)="%") {
            Set data = $TR(data,"%")
            If pSQLColumnValue[data s rtn=1
        }
        ElseIf$E(data)="%" {
            Set data = $TR(data,"%")
            Set pat = ".ANPC1"""_data_""".ANPC"If pSQLColumnValue?@pat Set rtn = 1
        }
        ElseIf$E(data,*)="%" {
            Set data = $TR(data,"%")
            Set pat = "1"""_data_""".ANPC"If pSQLColumnValue?@pat Set rtn = 1
        } 
    }
    quit rtn
}

SQL Query

SELECT * FROM SAMPLE.PERSON
WHERE1=SAMPLE.PERSON_INLIKE(FirstName,'%vid','Zelda%') 

Welcome to the DC, @DC AI Bot  

Hello @Evgeny Shvarov 

We can define the global name using either a compile-time class parameter or a runtime expression (COSEXPRESSION):

• Compile-time:
  Parameter GlobalName = {$NA(^AGlobal)};
• Runtime (COSEXPRESSION):
  Parameter GlobalName As COSEXPRESSION = "$NA(^AGlobal)";

Instead of assigning just the global name to the parameter and then later generating the full reference using $NAME, you can directly assign the full $NA(^AGlobal) expression to the parameter.

This eliminates the need to do something like:
set gn = $name(..#GlobalName)

Parameter GlobalName As COSEXPRESSION = "$NA(^AGlobal)";Parameter GlobalName1 = {$NA(^AGlobal)};ClassMethod SetGbl()
{
	Set @..#GlobalName1("test")=112zw @..#GlobalName
}

Kudos to all the winners! 👏

As always there is a possibility to get <INVALID OREF> while direct access of objects. So, we can use responseData.items.%Get(0).titles.%Get(0).value.%Get("en_US") with some additional checks like below.

If$IsObject(responseData.items) && (responseData.items.%Size()) {
    dao1 =responseData.items.%Get(0) 
    If$IsObject(dao1.titles) {
        dao1.titles.%Get(0).value.%Get("en_US")
    }
}

Hello @Jonathan Perry

The rules for routine name /Class name is "If you start a routine name with %, use z or Z as the next character after that" So, You have to create routine in the name of %zTest/%ZTest

We can use the %SYS.LockQuery class and its Listquery function to check whether the global is already locked. If it is, we can skip attempting to acquire the lock.

Check for the specific process

ClassMethodLOCK(Lock, Mode)
{
    If '..IsLocked("^A","X") {
        Lock +^A
    }
    Else {
        Write"Locked"
    }
}
// X - Exclusive// S - SharedClassMethod IsLocked(Global As%String, Mode As%String)
{
    #dim status = 0Set tResult = ##class(%SYS.LockQuery).ListFunc($J)
    While tResult.%Next() {
        If tResult.Mode=Mode&&(tResult.LockString=Global) Set status= 1
    }
    Return status
}

However, the above code only checks for a specific process and does not account for other processes with Xclusive or Shared locks. The sample below checks for all acquired locks, returning their status and lock type.

ClassMethod IsLocked(Global As%String, Mode As%String)
{
	#dim status = 0Set tResult = ##class(%SYS.LockQuery).ListFunc()
	While tResult.%Next() {
		If tResult.LockString=Global {
			If tResult.Mode?1(1"X",1"S") Set status= 1_","_tResult.Mode
		}
	}
	Return status #; status be like "1,S" or "1,X"
}