Class tmp.Man Extends %Persistent [ ClassType = persistent, ProcedureBlock ]
{

/// Код участника
Property Code As %String;

/// ФИО участника
Property FIO As %String;

}

Class tmp.Val Extends %Persistent [ ClassType = persistent, ProcedureBlock ]
{

/// Значение выбора
Property Val As %String;

/// Код участника
Property cMan As %String;

/// Код выбраного участника
Property cSlct As %String;

}

select
 A.fio,
 (select count(*)
 from
 tmp.val as B
 where
 B.cman=A.code
 and
 not B.val="-"
 and
 EXISTS (select * 
 from
 tmp.val as C
 where
 C.cman=B.cslct
 and
 C.cslct=B.cman
 and
 not C.val="-"
 )
 )
 from
 tmp.man as A