PROCEDURE update_close IS 
    itm      varchar2( 100 );
  BEGIN
    itm := Get_Block_Property('block_name',First_Item);
    while itm is not null loop
      IF Get_Item_Property('block_name'||'.'||itm,ITEM_TYPE) in ('TEXT ITEM','CHECKBOX','LIST') then
      	if itm not in ('FUND_LIMIT','BUDGET_AMOUNT','MGGT_AMOUNT','MAKE_CARD') 
      		and lower(Get_Item_Property('block_name'||'.'||itm,visible))!='false'
      		then
        set_item_property('block_name'||'.'||itm,update_allowed,property_false);
        set_item_property('block_name'||'.'||itm,visual_attribute,'INACTIVE');
      	end if;
      	end if;
      if Get_Item_Property('block_name'||'.'||itm,ITEM_TYPE) in ('BUTTON') 	and lower(Get_Item_Property('block_name'||'.'||itm,visible))!='false' then
      	if itm!='MAKE_CARD' then
      	set_item_property('block_name'||'.'||itm,ENABLED,property_false);
      	set_item_property('block_name'||'.'||itm,visual_attribute,'INACTIVE');
      	end if;
      	
      end if;
      itm := Get_Item_Property('block_name'||'.'||itm,NEXTITEM);
    end loop;
    end;