--L'indicatore riporta giornalmente il tempo medio impiegato per il passaggio di stato
--da "Presa in carico" a "Accettata/Rifiutata" MNP DONOR.
--Il tempo medio calcolato è suddiviso per:
--Tipologia Cliente (CO/BU). Sono prodotti tanti record riportanti
--ognuno il tempo medio calcolato per ognuna delle tipologie cliente previste.
--Il dato è calcolato giornalmente per le richieste che nella giornata
--di rilevazione sono state poste in stato "Accettata/Rifiutata".
--Per cui se nella giornata di rilevazione non esistono richieste che sono state poste
--in stato "Accettata/Rifiutata" il dato non viene rilevato.
--Il record però è prodotto anche in questo caso  associando all'indicatore
--il valore '-' (trattino). Nel calcolo dei tempi di passaggio di stato sono
--presi in considerazione solo i giorni lavorativi.
set serveroutput on

DECLARE

    data_acq    date;
    data_prc    date;
    giorni_diff number(10):=0;
    i           number(10):=0;
    media       varchar2(10):=0;
    somma       number(10):=0;
    var_tipo_cliente varchar2(2);
    data_val    date;
    file1	UTL_FILE.file_type;
    freq 	varchar2(255):='&1';

    cursor cur_date is
    select trunc(a.data_lavorazione),trunc(b.data_lavorazione)
    from mnp_storico_richiesta a,mnp_storico_richiesta b, mnp_gestione_richiesta c
    where a.stato_a=3
      and b.stato_a in (9,10)
      and b.data_lavorazione > trunc(sysdate)-1/86400
      and b.data_lavorazione < trunc(sysdate+1)
      and a.id_richiesta=b.id_richiesta
      and b.id_richiesta=c.id_richiesta
      and c.tipo_cliente=var_tipo_cliente;

    cursor cur_giorni_diff is
    select count(*)-1
    from s_dim_tempo a
    where a.data between data_acq and data_prc
        and a.tip_gio not in ('P','F');

BEGIN

dbms_output.put_line('apro il file ' || 'MNP' || '.' || to_char(sysdate,'yyyyMMdd'));
file1 := UTL_FILE.fopen('&2','MNP' || '.' || to_char(sysdate,'yyyyMMdd'),'a');

--calcolo la media
for j in 0..1 loop
if (j=0) then var_tipo_cliente:='CO';
         else var_tipo_cliente:='BU';
end if;

    open cur_date;
    i:=0;
    media:='-';
    somma:=0;
    loop
        data_val:=sysdate;

        fetch cur_date into data_acq, data_prc;
        exit when cur_date%notfound;

        open cur_giorni_diff;
        fetch cur_giorni_diff into giorni_diff;

        somma:= somma + giorni_diff;
        i:=i+1;


        close cur_giorni_diff;
    end loop;
    close cur_date;
    if(i!=0) then
        media:=to_char(round(somma/i,2));
    end if;

    UTL_FILE.put_line(file1,'SDNRVAL18'||';'||var_tipo_cliente||';'||media||';'
        ||freq||';'||'&3'|| ';'
        ||to_char(data_val,'yyyymmdd')||';'||to_char(data_val,'hh24:mi:ss') ||';'
        ||to_char(sysdate,'yyyymmdd')||';'||to_char(sysdate,'hh24:mi:ss') ||';'
        ||'0'||';'||var_tipo_cliente||';;');
end loop;
    UTL_FILE.fflush(file1);
    UTL_FILE.fclose(file1);
	dbms_output.put_line('chiudo il file ' || 'MNP' || '.' || to_char(sysdate,'yyyyMMdd'));
    exception
   		when others then
         	DBMS_OUTPUT.PUT_LINE(sqlerrm);
end;
/
exit