Class Test.T1 Extends %Persistent
{

/// Кодированное значение, оно хранится
Property EncData As %String;

/// Первая декодированная часть, вычисляется на лету
Property EncData1 As %Integer [ Calculated, SqlComputeCode = {s {EncData1}=..Decode1({EncData})}, SqlComputed ];

/// Первая декодированная часть, вычисляется на лету
Property EncData2 As %String [ Calculated, SqlComputeCode = {s {EncData2}=..Decode2({EncData})}, SqlComputed ];

/// Создает запись
/// d ##class(Test.T1).CreateRecod(10,"Вася")
ClassMethod CreateRecod(value1 As %Integer, value2 As %String) As %String
{
	s encdata=value1_"#"_value2
	&sql(insert into test.t1(encdata) values(:encdata))
	q %ROWID
}
///Декодируем первую часть
ClassMethod Decode1(value As %String)
{
	q $p(value,"#",1)
}
///Декодируем вторую часть
ClassMethod Decode2(value As %String)
{
	q $p(value,"#",2)
}
/// Показать содержимое таблицы
/// d ##class(Test.T1).ShowTable()
Classmethod ShowTable()
{
	&sql(declare test cursor for select encdata1,encdata2 into :d1,:d2 from test.t1)
	&sql(open test)
	for
	{
		&sql(fetch test) q:SQLCODE
		w !,d1," ",d2
		
	}
	&sql(open test)
}
}

USER>d ##class(Test.T1).CreateRecod(10,"Вася")
USER>d ##class(Test.T1).ShowTable()
 
10 Вася
USER>zw ^Test.T1D
^Test.T1D=1
^Test.T1D(1)=$lb("","10#Вася")