Shortcut Object and its parent folder

Have you always wondered how to get the shortcut object & it's parent folder. This requirement is imminent in folders where you have tens of shortcut transformations & mappings. Below query can get you what you want.

select shortcut_name, 
       case s.object_type
         when 21 then 'Mapping'
         when 23 then (select o.object_type_name
                       from opb_object_type o
                           ,opb_widget w
                       where w.widget_id = s.object_id
                       and w.widget_type = o.object_type
                      )
         when 24 then 'Target'
         when 25 then 'Source'
         when 44 then 'Mapplet'
         else 'Nothing'
       end Object_Type,
       decode(s.object_type, 21, (select f.subj_name
                                  from opb_subject f,
                                       opb_mapping m
                                  where m.mapping_id = s.object_id
                                  and m.subject_id = f.subj_id
                                  ),
                             23, (select f.subj_name
                                  from opb_subject f,
                                       opb_widget w
                                  where w.widget_id = s.object_id
                                  and w.subject_id = f.subj_id
                                  ),
                             25, (select f.subj_name
                                  from opb_subject f,
                                       opb_src src
                                  where src.src_id = s.object_id
                                  and src.subj_id = f.subj_id
                                  ),
                             24, (select f.subj_name
                                  from opb_subject f,
                                       opb_targ t
                                  where t.target_id = s.object_id
                                  and t.subj_id = f.subj_id
                                  ),
                             44, (select f.subj_name
                                  from opb_subject f,
                                       opb_widget w
                                  where w.widget_id = s.object_id
                                  and w.subject_id = f.subj_id
                                  )
              ) obj_original_folder
from opb_shortcut s, 
     opb_subject f
where s.subject_id = f.subj_id
and f.subj_name = 'FOLDER_NAME'