DECLARE
	
		p_str_total varchar2(5000);
	type query_rez_dlgn is record (i_chasti varchar2(20), naim varchar2(500), 
				vus varchar2(20), dat_prisv date); 
	type DCursorDLGN is ref cursor return query_rez_dlgn;
	
	CursorDLGN DCursorDLGN;
	dlgn query_rez_dlgn;
	
BEGIN
	
open CursorDLGN for
		SELECT 	schd_dlgn_vf.ind_chasti, DKD_PACKN.dkd_dlgn(schd_dlgn_vf.naim_dlgn_poln),
				schd_dlgn_vf.dat_vved_dlgn, schd_dlgn_vf.klvus
		FROM schd_dlgn_vf, schd_podr_vf, voinsk_formir
		WHERE schd_dlgn_vf.ind_chasti = 07640197 /*либо берем данные из поля ввода :MAIN.TXT_FIND*/
				
         AND schd_dlgn_vf.ind_chasti=voinsk_formir.ind_chasti
         AND schd_dlgn_vf.kol_dlgn_scht <> 0
      	AND schd_dlgn_vf.ind_chasti=schd_podr_vf.ind_chasti
      	AND schd_dlgn_vf.dat_vved_dir=schd_podr_vf.dat_vved_dir
      	AND schd_dlgn_vf.nom_str_podr=schd_podr_vf.nom_str_podr
      	AND schd_dlgn_vf.dat_vved_podr=schd_podr_vf.dat_vved_podr
      	AND schd_dlgn_vf.ind_chasti=voinsk_formir.ind_chasti
      	AND schd_dlgn_vf.dat_vved_dir=voinsk_formir.dat_vved_dir
      	AND schd_podr_vf.ind_chasti=voinsk_formir.ind_chasti
      	AND schd_podr_vf.dat_vved_dir=voinsk_formir.dat_vved_dir;       

  loop
    fetch CursorDLGN into dlgn; 
  
    exit When CursorDLGN%notFound;	      
    if dlgn.naim is not null then 
    		p_str_total := dlgn.naim;	
    end if;	
    
  end loop;  
	close  CursorDLGN ; 
  
  p_str_total := '';

END;