-- [  SNTFYPT18  ]
--L'indicatore riporta giornalmente  il tempo medio impiegato per il passaggio di stato 
--da "Evasa"  a "Espletata" delle Notifiche Porting di Terze Parti. 
--Il tempo medio calcolato deve essere suddiviso per: Operatore Recipient e Operatore Donating. 
--Sono prodotti tanti record riportanti ognuno il tempo medio calcolato per ogni diverso 
--valore dell'accoppiata: Operatore Recipient-Operatore Donating.
--Il dato viene calcolato giornalmente per le richieste che nella giornata di rilevazione 
--risultano passate nello stato Espletata.
--Per cui se nella giornata di rilevazione non esistono richieste che sono 
--passate in tale stato 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

    operatore1  varchar2(4);
    operatore2  varchar2(4);
    data_acq    date;
    data_prc    date;
    giorni_diff number(10)  :=0;
    i           number(10)  :=0;
    media       varchar2(10):=0;
    somma       number(10)  :=0;
    data_val    date;
    file1	UTL_FILE.file_type;
    freq 	varchar2(255):='&1';
    
    cursor cur_operatore1 is
    select desc_olo from mnp_olo
    where flag_terze_parti=1;
    
    cursor cur_operatore2 is
    select desc_olo from mnp_olo
    where flag_terze_parti=1;


    cursor cur_date is
    select trunc(a.data_lavorazione),trunc(b.data_lavorazione)
    from mnp_storico_porting a, mnp_storico_porting b, mnp_gestione_richiesta_porting c
    where a.stato_a=4
      and b.stato_a=6
      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.codice_operatore_recipient = operatore1 
      and c.codice_operatore_donating  = operatore2;
    

BEGIN

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


 open cur_operatore1;
 loop
 fetch cur_operatore1 into operatore1;
 exit when cur_operatore1%NOTFOUND;
 
   open cur_operatore2;
   loop
     fetch cur_operatore2 into operatore2;
     exit when cur_operatore2%NOTFOUND;

    if (operatore1 <> operatore2)  
        then
           begin
             --calcolo la media
             open cur_date;
             i:=0;
             media:='-';
             somma:=0;
             data_val:=sysdate;
             loop
         
                 fetch cur_date into data_acq, data_prc;
                 exit when cur_date%notfound;
         
                  select count(*)-1 into giorni_diff
                   from s_dim_tempo a
                   where a.data between data_acq and data_prc
                   and a.tip_gio not in ('P','F');
                  
                  somma:= somma + giorni_diff;
                  i:=i+1;
                  
             end loop;
             close cur_date;
        
             if(i!=0) then
                 media:=to_char(round(somma/i,2));
                 if((somma/i>0) and (somma/i < 1)) 
             	 then
            		media:= '0'|| media; 
                 end if;      
             end if;
             
             UTL_FILE.put_line(file1,'SNTFYPT18'||';'||operatore1||'-:-'||operatore2||';'||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'||';'||operatore1||'-:-'||operatore2||';;');
     
           end;
    end if;       
   end loop;
   close cur_operatore2;  

 end loop;
 close cur_operatore1;
   
 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