Identifying Locked Objects in Oracle apps

SELECT obj.object_name
     , obj.object_type
     , blocked.client_identifier blocked_user
     , blocked.module
     , blocking.client_identifier blocking_user
     , blocking.module
  FROM gv$lock     lck
     , dba_objects obj
     , gv$session  blocking
     , gv$session  blocked
 WHERE blocked.blocking_session = blocking.sid
   and lck.id1                  = obj.object_id
   and blocked.sid              = lck.sid