DECLARE 
	Item_Name VARCHAR2(30);
BEGIN
  IF (:SYSTEM.MOUSE_ITEM IS NOT NULL) 
     AND (:SYSTEM.MODE = 'ENTER-QUERY') THEN

    Item_Name := INITCAP(SUBSTR(:SYSTEM.MOUSE_ITEM, 
                INSTR (:SYSTEM.MOUSE_ITEM, '.', 1)+1));
    IF (UPPER(Item_Name) IN
        ('EXECUTE_QUERY', 'ABORT_QUERY', 'HELP')) THEN
      GO_ITEM(:PARAMETER.ITEM_NAME);
      DO_KEY(Item_Name);
    END IF;
	
  END IF;
END;