PROCEDURE item_enable_disable(blk_name IN char , item_on_off IN NUMBER) IS
 nxt_itemname varchar2(70);
 itemtype varchar2(25);
 itemcanvas varchar2(25);
BEGIN
    nxt_itemname:=blk_name ||'.'||get_block_property(blk_name,first_item);
  loop
  	itemtype:=get_item_property(nxt_itemname,item_type);
  	itemcanvas:=get_item_property(nxt_itemname,item_canvas);
  	if (itemtype<>'DISPLY ITEM') and (itemcanvas is not null)
  		and (get_item_property(nxt_itemname,enabled) = 'TRUE')then 
  		set_item_property(nxt_itemname,updateable,ITEM_ON_OFF);
  	end if;
  	nxt_itemname:=blk_name||'.'||get_item_property(nxt_itemname,next_navigation_item);
  	if(nxt_itemname=blk_name||'.ROWID') then
  		exit;
  	end if;
  end loop;
END;