Experts Experience Are Required Here

Question

Dear Sir,
I have copied this code from your article from oracle.com but I need to do one modification.
I want to send the form name to the procedure to retrieve all the information instead of opening each form.
Best regards
PROCEDURE Get_Canvas_Names IS
lc$blockDeb     varchar2(60); -- start block
lc$block          varchar2(60); -- current block name
lc$item               varchar2(60); -- current item
lc$Type               varchar2(20); -- item type
lc$itemdeb     varchar2(60); -- first item
lc$canvas          varchar2(60); -- current canvas name
lc$tabcan          varchar2(60); -- current tab canvas name
lc$Acanvas     varchar2(60):= ' '; -- old canvas name
lc$Atabcan     varchar2(60):= ' '; -- old tab canvas name
ln$NbRec          pls_integer := 0 ; -- number of records (for know if the block is multi-records)
BEGIN
LC$BlockDeb := get_form_property( NAME_IN('System.Current_Form'), FIRST_BLOCK ) ;
LC$Block := LC$BlockDeb ;
Loop -- For each block of the form
LN$NbRec := get_block_property(LC$BLOCK, RECORDS_DISPLAYED) ;
lc$itemdeb := get_block_property(LC$BLOCK, FIRST_ITEM) ;
lc$item := LC$BLOCK || '.' || lc$itemdeb ;
while lc$itemdeb is not null loop -- For each item
-- visible item ? --
IF GET_ITEM_PROPERTY(LC$Item , VISIBLE) = 'TRUE' Then
     -- Get the canvas and tab canvas name --
     lc$canvas := GET_ITEM_PROPERTY(LC$Item , ITEM_CANVAS ) ;
     lc$tabcan := GET_ITEM_PROPERTY(LC$Item , ITEM_TAB_PAGE ) ;
End if ; -- GET_ITEM_PROPERTY(LC$Item , VISIBLE) = 'TRUE'
lc$itemdeb := get_item_property(lc$item, NEXT_NAVIGATION_ITEM );
lc$item := LC$BLOCK || '.' || lc$itemdeb ;
end loop ;
LC$Block := get_block_property( LC$Block, NEXTBLOCK ) ; -- next block
exit when LC$Block is null ;
End loop ;
END Get_Canvas_Names;

Answer 1

Hello,
You can't. All these Forms built-ins can be applied only on the current form running in memory. There is no built-in that allows to read a Forms module that is not loaded in memory.
Francois