declare
	va_repfile varchar2(2000) := '';
	v_pl_id ParamList;

begin
	va_repfile := edv.f_kna_forms_pfade('EDI_PRUEF','REP_BS_DRUCK') ;
	set_application_property(cursor_style, 'busy');
  v_pl_id := Get_Parameter_List('tmpdata');
  
  IF NOT Id_Null(v_pl_id) THEN
    Destroy_Parameter_List( v_pl_id );
  END IF;
  v_pl_id := Create_Parameter_List('tmpdata');  -- Parameterliste definieren
  ADD_PARAMETER(v_pl_id,'PARAMFORM',TEXT_PARAMETER,'NO');  -- YES Report kommt mit eingabe hoch; bei NO nicht
  ADD_PARAMETER(v_pl_id,'PIN_FA_KEY',TEXT_PARAMETER,:kna_edi_pruef_kopf.edi_fa_key);  -- Übergabe des Parameters
  RUN_PRODUCT(REPORTS, va_repfile,ASYNCHRONOUS,RUNTIME,FILESYSTEM,v_pl_id,NULL);  --Aufruf Report
  Destroy_Parameter_List( v_pl_id ); --Speicher leeren, sonst bei Fehler falsche Werte
  set_application_property(cursor_style, 'default');

EXCEPTION
  WHEN OTHERS THEN
    set_application_property(cursor_style, 'default');

end;