¿Cómo cambiar el texto de la etiqueta del botón y agregar una nueva funcionalidad en tiempo de ejecución? Formularios de oráculo

puede editar este fragmento :

begin 
     if ( :system.mode = 'ENTER-QUERY' ) then
           set_item_property('b_search', label, 'search'); 
           go_block('blk_yours');
           execute_query;    
     else
           set_item_property('b_search', label, 'last record');         
           go_block('blk_yours');    
           enter_query;
     end if;    
           last_record;
end;

en when-button-pressed disparador del elemento b_search