declare
al_id alert:=FIND_ALERT('popup');
al number;
insert_val varchar2(500);
increment_value number;
MAX_VALUE NUMBER;
rec_check varchar2(1);
RCOUNT NUMBER;
success_msg varchar2(100);
begin
	go_block('OIFC_INV_DEVICE_TYPES');
	go_block('OIFC_INV_SECTIONS');
	go_block('OIFC_INV_DEVICE_MASTER');
	
	 if :global.click_flag = 'add' then
			null;
			
  end if;
   if :global.click_flag is null then
			:titl.msg_fld:='No options! select your options';
   end if;
   if :global.click_flag = 'query' then
   			:global.Err:=0;
      	:global.click_flag := 'query';
      	enable_query;
   elsif :global.click_flag = 'delete' then
   		:global.Err:=0;
         COMMIT_MSG;
      if :global.err <> 1 then         
         :global.del:=0;
         :global.click_flag := 'delete';
         enable_delete;
      end if;   
   else
	 if :global.click_flag = 'add' then
	 	:global.Err:=0;
		 COMMIT_MSG;
		 :global.click_flag := 'add';
	   enable_add;
     elsif :global.click_flag = 'modify' then
     	:global.Err:=0;

     COMMIT_MSG;
     :global.click_flag := 'modify';
     enable_modify;
   end if;
   end if;
    go_block('OIFC_INV_DEVICE_TYPES');
    go_block('OIFC_INV_SECTIONS');    
    go_block('OIFC_INV_DEVICE_MASTER');

   if to_number(:global.err) != 1 then 
     CLEAR_BLOCK(NO_VALIDATE);
    :global.err := 0;
   IF UPPER(:GLOBAL.CLICK_FLAG) IN ('DELETE','MODIFY','QUERY') THEN 
   IF :SYSTEM.MODE != 'ENTER-QUERY' THEN 
      ENTER_QUERY;
   END IF;
END IF;
 else
   :global.err := 0;
   end if;
end;