procedure event(event_name varchar2) is 

		form_name  varchar2(30) := name_in('system.current_form'); 
    	block_name varchar2(30) := name_in('system.cursor_block'); 
    	pl_id				ParamList;	
  begin 
   if (event_name = 'ZOOM') then 
 		 if (form_name='ARXRWMAI' and block_name='RGW_FOLDER') then
 	 			pl_id := GET_PARAMETER_LIST('PARAMS');
 	 			If NOT ID_NULL(pl_id) then
 	 				DESTROY_PARAMETER_LIST(pl_id);
 	 			end if;
 	 			pl_id := CREATE_PARAMETER_LIST('PARAMS');
 	 			ADD_PARAMETER(pl_id,'P_thu',TEXT_PARAMETER,name_in('RGW_FOLDER.cash_receipt_id'));
	--	 add_parameter(plid, 'P_thu', TEXT_PARAMETER,name_in('RGW_FOLDER.cash_receipt_id'));
     		run_product(REPORTS,'BDPTKH.rdf',SYNCHRONOUS,RUNTIME,FILESYSTEM,pl_id,null);
     End if;
	 End if; 
End event;