procedure GENERATE_REPORT(p_report_id in number) is
begin
	--------------
	-- long time process to generate report
	-- blabla
	-- babla
	----------------
	
	update REPORT
		set STATUS = 'FINISH'
	where REPORT_ID = p_report_id;
	
	exception when others then
		update REPORT
			set STATUS = 'ERROR'
		where REPORT_ID = p_report_id;	
end;

function START_GENERATE_REPORT() return number is
	l_report_id number;
	l_dummy     number;
begin
	l_report_id := SEQ_REPORT.nextval;
	insert into 
	REPORT(REPORT_ID,STATUS)
	VALUES(l_report_id,'GENRATING');
	
	DBMS_JOB.SUBMIT(l_dummy,'begin GENERATE_REPORT('||l_report_id||'); end;');
	
	return l_report_id;
end;

function GET_REPORT_STATUS(p_report_id in number) return varchar2 is
 l_status varchar2(100);
begin
	select STATUS into l_status
		from REPORT
	where REPORT_ID = p_report_id;
	
	return l_status;
	
	exception when others then
		return 'ERROR';
end;

declare
  l_report_id number;
begin
  l_report_d := START_GENERATE_REPORT();
  :PAGE_REPORT_ID := l_report_d;
end;

declare
	l_param_report_id varchar2(100);
	l_result_status   varchar2(100);
begin
	owa_util.mime_header('text', FALSE );
	htp.p('Cache-Control: no-cache');
	htp.p('Pragma: no-cache');
	owa_util.http_header_close;	
	
	l_param_report_id := wwv_flow.g_x01;
	l_result_status := GET_REPORT_STATUS(to_number(l_param_report_id));
	htp.prn(l_result_status);
end;

function refreshReportLoader(){
	var get = new htmldb_Get(null, $v('pFlowId'), 'APPLICATION_PROCESS=PROCESS_REPORT_STATUS',0);	
	get.addParam('x01',$v('P_REPORT_ID'));
	gStatus = get.get('TEXT');

	var loader = document.getElementById("divLoader");
	loader.innerHTML= gStatus ;
	
	if(!gStatus == 'FINISH' && !gStatus == 'ERROR'){
		 setTimeout(function(){refreshReportLoader()},3000);
	}
}