Hello @Corentin Blondeau

Here is the code to retrieve the properties in the same order they are defined in the class.

ClassMethod GetPropOnDefinedSequence(pClass As%String = "", Output pProperties)
{
	For {
		Setproperty=$$$comMemberNext(pClass,$$$cCLASSproperty,property)
		Ifproperty=""QuitIfproperty="%%OID"!(property="%Concurrency") continueSet pProperties(
			    +$$$defMemberKeyGet(pClass,$$$cCLASSproperty,property,$$$cPROPsequencenumber),
			    property)=""
	}
	Return$$$OK
}

 The properties assigned to the pProperties parameter

Hello @Scott Roth 

The HS.FHIRModel.R4.SeqOfHumanNamehas property "list" which is %DynamicArray. So, If you access via object r4Patient.name.list.%Get(0) for get 0 index value $ZCVT(r4Patient.name.list.toString(),"I","JSON") get entire value. Here r4Patient is a object of HS.FHIRModel.R4.Patient 

FHIRDEV>Write r4Patient.name.list.%Get(0)
{"use":"official","text":"Ashok,Kumar"}
FHIRDEV>Write$ZCVT(r4Patient.name.list.toString(),"I","JSON")
["{"use":"official","text":"Ashok,Kumar"}","{"text":"Ashok,Kumar"}"]
FHIRDEV>Write$ClassName(r4Patient)
HS.FHIRModel.R4.Patient

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