Class a.test Extends %Persistent
{

Property p As %String;

Property Desc As %String [ Calculated, SqlComputeCode = {
		s desc = ""
		s var =  2  // Меняем на  1  для получения "наслаждения"
		s sql = "SELECT p,ID,Desc"_var_" FROM a.test WHERE ID = "_{ID}
		// Для продолжения можно последовательно убирать из строки "p" и "ID"
		w "sql: "_sql,!
		s result = ##class(%ResultSet.SQL).%Prepare(.sql,.err,"")
		if '$ISOBJECT(err) {
			while result.%Next() {
				w "data: ",result.%Get("Desc"_var),!
				s desc = desc_$s(desc="":"",1:"; ")_result.%Get("Desc"_var) 
			}
		}
		s {Desc}=desc
		
	}, SqlComputed ];

Property Desc1 As %String [ Calculated, SqlComputeCode = {
		s desc1 = ""
		s sql1 = "SELECT p FROM a.test WHERE ID = "_{ID}
		w "sql1: "_sql1,!
		s result1 = ##class(%ResultSet.SQL).%Prepare(.sql1,.err1,"")
		if '$ISOBJECT(err1) {
			while result1.%Next() {
				w "data1: ",result1.%Get("p"),!
				s desc1 = desc1_$s(desc1="":"", 1 :"; ")_result1.%Get("p")
			}
		}
		s {Desc1}=desc1
	}, SqlComputed ];

Property Desc2 As %String [ Calculated, SqlComputeCode = {
		s desc2 = ""
		s sql2 = "SELECT p FROM a.test WHERE ID = "_{ID}
		w "sql2: "_sql2,!
		s result2=##class(%ResultSet).%New("%DynamicQuery:SQL")
		s sc=result2.Prepare(sql2)
		s sc=result2.Execute()
		if $$$ISOK(sc) {
			while result2.Next(.sc) {
				w "data2: ",result2.%Get("p"),!
				s desc2 = desc2_$s(desc2="":"", 1 :"; ")_result2.%Get("p")
			}
		}
		s {Desc2}=desc2
	}, SqlComputed ];

ClassMethod test()
{
	// d ##class(a.test).test()
	try {
		s a = ##class(a.test).%OpenId( 1 )
		if '$ISOBJECT(a) {
			s a = ##class(a.test).%New()
			s a.p = "asdf"
			d a.%Save()
		}
		w a.Desc,!
	} catch {
	}
	w $system.OBJ.DisplayError(%objlasterror),!
	k
	q
}

}

Class a.test Extends %Persistent
{

Property p As %String;

Property Desc As %String [ Calculated, SqlComputeCode = {
		s {Desc}=##class({%%CLASSNAME}).GetDesc({ID})
	}, SqlComputed ];

ClassMethod GetDesc(id As %String) As %String
{
	s desc = ""
	s var =  1 
	s sql = "SELECT Desc"_var_" FROM a.test WHERE ID = "_id
	w "sql: "_sql,!
	s result = ##class(%ResultSet.SQL).%Prepare(.sql,.err,"")
	if '$ISOBJECT(err) {
		while result.%Next() {
			w "data: ",result.%Get("Desc"_var),!
			s desc = desc_$s(desc="":"",1:"; ")_result.%Get("Desc"_var) 
		}
	}
	q desc
}

Property Desc1 As %String [ Calculated, SqlComputeCode = {
		s {Desc1}=##class({%%CLASSNAME}).GetDesc1({ID})
	}, SqlComputed ];

ClassMethod GetDesc1(id As %String) As %String
{
	s desc1 = ""
	s sql1 = "SELECT p FROM a.test WHERE ID = "_id
	w "sql1: "_sql1,!
	s result1 = ##class(%ResultSet.SQL).%Prepare(.sql1,.err1,"")
	if '$ISOBJECT(err1) {
		while result1.%Next() {
			w "data1: ",result1.%Get("p"),!
			s desc1 = desc1_$s(desc1="":"", 1 :"; ")_result1.%Get("p")
		}
	}
	q desc1
}

Property Desc2 As %String [ Calculated, SqlComputeCode = {
		s {Desc2}=##class({%%CLASSNAME}).GetDesc2({ID})
	}, SqlComputed ];

ClassMethod GetDesc2(id As %String) As %String
{
	s desc2 = ""
	s sql2 = "SELECT p FROM a.test WHERE ID = "_id
	w "sql2: "_sql2,!
	s result2=##class(%ResultSet).%New("%DynamicQuery:SQL")
	s sc=result2.Prepare(sql2)
	s sc=result2.Execute()
	if $$$ISOK(sc) {
		while result2.Next(.sc) {
			w "data2: ",result2.%Get("p"),!
			s desc2 = desc2_$s(desc2="":"", 1 :"; ")_result2.%Get("p")
		}
	}
	q desc2
}

ClassMethod test()
{
	// d ##class(a.test).test()
	try {
		s a = ##class(a.test).%OpenId( 1 )
		if '$ISOBJECT(a) {
			s a = ##class(a.test).%New()
			s a.p = "asdf"
			d a.%Save()
		}
		w a.Desc,!
	} catch {
	}
	w:$g(%objlasterror)'="" $system.OBJ.DisplayError(%objlasterror),!
	k
	q
}

}

Class a.test Extends %Persistent
{

Property p As %String;

ClassMethod test(id As %String) As %String
{
	// w ##class(a.test).test( 1 )
	// s a = ##class(a.test).%New()
	// s a.p = "testData"
	// d a.%Save()
	s desc = ""
	s sql = "SELECT Descr FROM a.test WHERE ID = "_id
	s result = ##class(%ResultSet.SQL).%Prepare(.sql,.err,"")
	if '$ISOBJECT(err) {
		w 0," rs: ",result,!
		while result.%Next() {
			w 1,!
			s desc = desc_$s(desc="":"",1:"; ")_result.%Get("Descr") 
		}
	}
	w:$g(%objlasterror)'="" $system.OBJ.DisplayError(%objlasterror),!
	q desc
}

Property Descr As %String [ Calculated, SqlComputeCode = {
		s {Descr}=##class({%%CLASSNAME}).GetDescr({ID})
	}, SqlComputed ];

ClassMethod GetDescr(id As %String) As %String
{
	s desc1 = ""
	s sql1 = "SELECT p FROM a.test WHERE ID = "_id
	s result1 = ##class(%ResultSet.SQL).%Prepare(.sql1,.err1,"")
	if '$ISOBJECT(err1) {
		w  2 ," rs: ",result1,!
		while result1.%Next() {
			w  3 ,!
			s desc1 = desc1_$s(desc1="":"", 1 :"; ")_result1.%Get("p")
		}
	}
	w  4 ," desc: ",desc1,!
	q desc1
}

}

 s {Desc}=##class({%%CLASSNAME}).GetDesc({ID})