Form hangs some time frequently??

Question

hello expert,
in my erp system some time a form hangs very frequantly.
what could be the reason???
form is used for new BOM or to modify BOM.
there is two buttons
Add and Mofidy.
when i click on Add button, its hangs some time very frequently but modify works same time while add button hang the form. this problem come some days.
Add button code is below:
DECLARE
form_name VARCHAR2(100):=:System.Current_Form;
cntrl_block VARCHAR2(100):=GET_FORM_PROPERTY(form_name ,FIRSTBLOCK);
first_block VARCHAR2(100):=GET_BLOCK_PROPERTY(cntrl_block,NEXTBLOCK);
last_block VARCHAR2(100):=GET_FORM_PROPERTY(form_name ,LASTBLOCK);
temp_block VARCHAR2(100):=first_block;
BEGIN
delete from str_item_temp;
IF :GLOBAL.navigation = 'D' AND :GLOBAL.mode = 'X'
THEN
set_item_property(cntrl_block||'.SAVE' ,ENABLED,PROPERTY_TRUE);
set_item_property(cntrl_block||'.CLEAR' ,ENABLED,PROPERTY_TRUE);
set_item_property(cntrl_block||'.MODIFY' ,ENABLED,PROPERTY_FALSE);
set_item_property(cntrl_block||'.ENTER_QUERY' ,ENABLED,PROPERTY_FALSE);
set_item_property(cntrl_block||'.EXECUTE_QUERY',ENABLED,PROPERTY_FALSE);
:GLOBAL.mode := 'A';
:STATUS_DISPLAY := 'ADD MODE';
LOOP
     Set_Block_Property(temp_block,INSERT_ALLOWED,PROPERTY_TRUE);
     EXIT WHEN temp_block=last_block;
     temp_block:=GET_BLOCK_PROPERTY(temp_block,NEXTBLOCK);
END LOOP;     
GO_BLOCK(first_block);
CLEAR_BLOCK(NO_VALIDATE);
ELSIF :GLOBAL.navigation = 'D' AND :GLOBAL.mode != 'X'
THEN
mess('Press Clear Button First');
GO_BLOCK(cntrl_block);
ELSE
mess('Mode is not applicable');
GO_BLOCK(cntrl_block);
END IF;
END;
modify button code is below:
DECLARE
form_name VARCHAR2(100):=:System.Current_Form;
cntrl_block VARCHAR2(100):=GET_FORM_PROPERTY(form_name ,FIRSTBLOCK);
first_block VARCHAR2(100):=GET_BLOCK_PROPERTY(cntrl_block,NEXTBLOCK);
last_block VARCHAR2(100):=GET_FORM_PROPERTY(form_name ,LASTBLOCK);
temp_block VARCHAR2(100):=first_block;
     first VARCHAR2(100):=first_block||'.'||GET_BLOCK_PROPERTY(first_block,FIRST_ITEM);
last VARCHAR2(100):=first_block||'.'||GET_BLOCK_PROPERTY(first_block,LAST_ITEM);
     temp VARCHAR2(100):=first;
BEGIN
IF :GLOBAL.navigation = 'D' AND :GLOBAL.mode = 'X'
THEN
set_item_property(cntrl_block||'.SAVE' ,ENABLED,PROPERTY_TRUE);
set_item_property(cntrl_block||'.CLEAR' ,ENABLED,PROPERTY_TRUE);
set_item_property(cntrl_block||'.ENTER_QUERY' ,ENABLED,PROPERTY_FALSE);
set_item_property(cntrl_block||'.EXECUTE_QUERY',ENABLED,PROPERTY_FALSE);
set_item_property(cntrl_block||'.ADD' ,ENABLED,PROPERTY_FALSE);
:GLOBAL.mode := 'M';
:STATUS_DISPLAY := 'MODIFY MODE';
LOOP
     IF Get_Item_Property(temp,ITEM_TYPE) NOT IN ('BUTTON','CHART ITEM','DISPLAY ITEM','IMAGE','VBX CONTROL')
     THEN     
          IF Get_Item_Property(temp,QUERYABLE)='TRUE'
          THEN     
          -- set_item_property(temp,VISUAL_ATTRIBUTE,'MODIFY');
          set_item_property('block.bom_mod_code',VISUAL_ATTRIBUTE,'MODIFY');
          ELSE
               set_item_property(temp,VISUAL_ATTRIBUTE,'ADD');
          END IF;
          END IF;
IF temp=last
          THEN
          EXIT;
          ELSE      
               temp:=first_block||'.'||GET_ITEM_PROPERTY(temp,NEXTITEM);     
          END IF;
END LOOP;
LOOP
     IF temp_block=first_block
     THEN     
     Set_Block_Property(temp_block,INSERT_ALLOWED,PROPERTY_TRUE);
     ELSE
          Set_Block_Property(temp_block,INSERT_ALLOWED,PROPERTY_TRUE);
     END IF;     
     Set_Block_Property(temp_block,UPDATE_ALLOWED,PROPERTY_TRUE);
     EXIT WHEN temp_block=last_block;
     temp_block:=GET_BLOCK_PROPERTY(temp_block,NEXTBLOCK);
END LOOP;     
GO_BLOCK(first_block);
CLEAR_BLOCK(NO_VALIDATE);
ELSIF :GLOBAL.navigation = 'D' AND :GLOBAL.mode != 'X'
THEN
mess('Press Clear Button First');
GO_BLOCK(cntrl_block);
ELSE
mess('Mode is not applicable');
GO_BLOCK(cntrl_block);
END IF;
END;
when we access same form in network , is there any restriction on no of instance of form access in network.?
Thanks n regards
Yash

Answer 1

Hi Yash,
I've seen this happen recently at a few of my customer sites with 11g (11gR1 and 11gR2), where the forms application will hang intermittently or every time a certain object is used. Once we applied this patch to our customer's environments, the issue went away. The issue had to do with one of the following issues: Using multiple cores with JRE 6 or displaying multiple alerts in an application.
Take a look at Oracle Bug in MyOracleSupport: 12433970
There is also an article that goes along with it: 1245895.1
Hope this helps!
Thank you,
Gavin
http://www.pitss.com