Class Example.Example %Extends %Persistent {

/// Список идентификаторов k, через запятую, для которых запрещены действия с объектом Example.Example
/// <example>2,114,321,23</example>
Property kban As %String(MAXLEN = 16384);

/// Не менять название, используется в коде <method>..kbanned</method>
/// Example.ExampleI("kban"," 2")=0101010001000100100100100100101010
/// Example.ExampleI("kban"," 23")=1111111111111111111111111111111111
/// Example.ExampleI("kban"," 114")=0000000000000010010010010010101000
/// Example.ExampleI("kban"," 321")=0000000000000010010010010010101000
Index kban On "kban(ELEMENTS)" [ Type = bitmap ];

/// Обязательный метод (версия Каше 5.1) для построения системой
/// хитро-ного индекса <index>kban</index>
/// Строится вызове через объекты  - d ..%Save()
/// Разбирает список значений в массив
ClassMethod kbanBuildValueArray(kban As %String, ByRef arr) As %Status {
	s list=$LFS(kban,","),key=0,k=""
	while $LISTNEXT(list,key,k){
		s:k'="" arr(k)=""
	}
 Q $$$OK
}

/// Проверка на наличие запрета
/// код для проверки значения битмапного индекса
ClassMethod kbanned(id, k) As %Boolean [ SqlProc ] {
        s part=id\64000+1 ;подиндекс в зависимости от кол-ва ид в классе
	s offset=id#64000+1 ;смещение от начала строки
        #; " "_k - нужно, так как значения строковые
	Q $bit($g(^Example.ExampleI("kban"," "_k,part)),offset)  
}
}

 Select * From Example.Example Where Example.Example_kbanned(ID,2)=1