DECLARE 
    timer_id Timer; 
    five_minutes NUMBER :=  5 * 60 * 1000 ; 
BEGIN 
    timer_id := CREATE_TIMER('REFRESH_BLOCK', five_minutes, REPEAT); 
END; 

DECLARE
     expired_timer  CHAR( 20 );
BEGIN
     expired_timer:=GET_APPLICATION_PROPERTY(TIMER_NAME);
     IF expired_timer='REFRESH_BLOCK'
     THEN 
        GO_BLOCK('FAMILY');
        DO_KEY('EXECUTE_QUERY');
     ELSE
        NULL;
     END IF;
END;