Find item name from item id

Question

Hi!
We have a library procedure that accepts block id as parameter.
The procedure fetches some block realted information from the database. So, it needs to refer to the block name.
Is there any way find the block name from block id?
Rgds,
SB

Answer 1

This is pretty crude, but it will work. Maybe someone else can suggest a better way:
Function Block_Name(B Block) return varchar2 is
  Blk_Nam varchar2(30);
Begin
  Blk_Nam := Get_Block_Property(B,NextBlock);
  If Blk_Nam is not null then
    Blk_Nam := Get_Block_Property(blk_Nam,PreviousBlock);
  Else
    Blk_Nam := Get_Block_Property(B,PreviousBlock);
    If Blk_Nam is not null then
      Blk_Nam := Get_Block_Property(Blk_Nam,NextBlock);
    Else --only one block in Form
      Blk_Nam := Get_Form_Property(:System.Current_Form ,First_Block);
    End if;
  End if;
  Return(Blk_Nam);
End;