Ипотеки в разрезе года и назначения объекта

select
to_char(trunc(r.s_date,'YYYY'),'YYYY') "Год"
,decode(RPO.TYPE_CODE,RPO.TYPE_CODE,(select rpv.name from re_purpose_voc rpv where rpv.code=rpo.type_code)) "Объект"

,count (r.id) "Ипотеки"
from 
rt_rights r
,re_objects o
,re_purposes rpo
where
r.TYPE_CODE=202
and o.id = r.re_id
and RPO.RE_ID=o.id
group by (trunc(r.s_date,'YYYY'),RPO.TYPE_CODE)