UnVisible_Menuitem('ITEM193'); 

PROCEDURE UnVisible_Menuitem( menuitem_name VARCHAR2) IS 
 mi_id MenuItem; 
 ALT NUMBER;
BEGIN
 mi_id := Find_Menu_Item( menuitem_name ); 
IF ID_NULL(MI_ID) THEN
  SET_ALERT_PROPERTY('MSG',ALERT_MESSAGE_text,'Menu item not found ' || menuitem_name);
else
 IF Get_Menu_Item_Property(mi_id,visible) = 'PROPERTY_TRUE' THEN 
     Set_Menu_Item_Property(mi_id,visible,'PROPERTY_FALSE'); 
     ELSE 
     Set_Menu_Item_Property(mi_id,visible,'PROPERTY_TRUE'); 
 END IF; 
end if;
END;