DECLARE
    mi_id MENUITEM;
   v_mi_id MENUITEM;
   v_id MENUITEM;
 
    CURSOR c
    IS
      SELECT menu_name
      FROM   st_menu_sec
      WHERE  st_menu_sec.userid = :GLOBAL.userid
             AND access_y_n = 1;
BEGIN
    for crec in c
              mi_id := Find_Menu_Item('SETUP_MENU');
 
              v_mi_id := Find_Menu_Item('TRANSACTIONS_MENU');
 
              v_id := Find_Menu_Item('ADMIN_MENU');
 
      IF NOT ID_NULL(mi_id) THEN
      loop
 
      IF Get_Menu_Item_Property(mi_id,ENABLED) = 'TRUE' THEN
         Set_menu_item_property('SETUP_MENU.' ||crec .menu_name, enabled, property_true);
      ELSE
         Message(' No such menu item: SETUP_MENU');
      END IF;
      IF Get_Menu_Item_Property(v_mi_id,ENABLED) = 'TRUE' THEN
      Set_menu_item_property('TRANSACTIONS_MENU.' ||crec .menu_name, enabled, property_true);
      ELSE
         Message(' No such menu item: TRANSACTIONS_MENU');
      END IF;
      IF Get_Menu_Item_Property(v_id,ENABLED) = 'TRUE' THEN
      Set_menu_item_property('ADMIN_MENU.' ||crec .menu_name, enabled, property_true);
      ELSE
         Message(' No such menu item: ADMIN_MENU');
      END IF;
      end loop;
     END IF;
END;