First Commit - Source Code from Reply

This commit is contained in:
vincenzofariello
2024-05-13 12:54:14 +02:00
parent 73e32a5020
commit a15aee1f08
11184 changed files with 1065913 additions and 0 deletions

View File

@@ -0,0 +1,12 @@
set serveroutput ON
var cod_errore number
begin
DWH.UPDATE_DONOR_DELTA (&1,&2,:cod_errore);
if :cod_errore = 0 then
DWH.CALCOLA_SLA_DONOR(&1,&2,:cod_errore);
end if;
end;
/
exit :cod_errore

View File

@@ -0,0 +1,12 @@
set serveroutput ON
var cod_errore number
begin
DWH.UPDATE_DONOR_HOC_DELTA (&1,&2,:cod_errore);
if :cod_errore = 0 then
DWH.CALCOLA_SLA_DONOR_HOC(&1,&2,:cod_errore);
end if;
end;
/
exit :cod_errore

View File

@@ -0,0 +1,11 @@
set serveroutput ON
var cod_errore number
begin
DWH.UPDATE_PORTING_DELTA (&1,&2,:cod_errore);
if :cod_errore = 0 then
DWH.CALCOLA_SLA_TERZEPARTI(&1,&2,:cod_errore);
end if;
end;
/
exit :cod_errore

View File

@@ -0,0 +1,11 @@
set serveroutput ON
var cod_errore number
begin
DWH.UPDATE_REC_DELTA (&1,&2, :cod_errore);
if :cod_errore = 0 then
DWH.CALCOLA_SLA_RECIPIENT(&1,&2, :cod_errore);
end if;
end;
/
exit :cod_errore

View File

@@ -0,0 +1,11 @@
set serveroutput ON
var cod_errore number
begin
DWH.UPDATE_REC_HOC_DELTA (&1,&2, :cod_errore);
if :cod_errore = 0 then
DWH.CALCOLA_SLA_RECIPIENT_HOC(&1,&2, :cod_errore);
end if;
end;
/
exit :cod_errore

View File

@@ -0,0 +1,11 @@
set serveroutput ON
var cod_errore number
begin
DWH.UPDATE_REC_TACS_DELTA (&1,&2, :cod_errore);
if :cod_errore = 0 then
DWH.CALCOLA_SLA_RECIPIENT_TACS(&1,&2, :cod_errore);
end if;
end;
/
exit :cod_errore

View File

@@ -0,0 +1,40 @@
WHENEVER SQLERROR EXIT SQL.SQLCODE
UPDATE mnp.mnp_gestione_richiesta gr
SET gr.data_fine_processo = (SELECT MAX (data_lavorazione)
FROM mnp.mnp_storico_richiesta sr
WHERE sr.id_richiesta = gr.id_richiesta)
WHERE gr.stato IN (SELECT id_stato
FROM mnp.mnp_stato
WHERE finale = 1)
AND gr.dataricezionerichiesta >= '26-APR-2004'
AND gr.data_fine_processo IS NULL
/
COMMIT
/
UPDATE mnp.mnp_gestione_richiesta_rec gr
SET gr.data_fine_processo = (SELECT MAX (data_lavorazione)
FROM mnp.mnp_storico_richiesta_rec sr
WHERE sr.id_richiesta = gr.id_richiesta)
WHERE gr.stato IN (SELECT id_stato
FROM mnp.mnp_stato_rec
WHERE finale = 1)
AND gr.dataricezionerichiesta >= '26-APR-2004'
AND gr.data_fine_processo IS NULL
/
COMMIT
/
UPDATE mnp.mnp_gestione_richiesta_porting gr
SET gr.data_fine_processo = (SELECT MAX (data_lavorazione)
FROM mnp.mnp_storico_porting sr
WHERE sr.id_richiesta = gr.id_richiesta)
WHERE gr.stato IN (SELECT id_stato
FROM mnp.mnp_stato_porting
WHERE finale = 1)
AND gr.dataricezionerichiesta >= '26-APR-2004'
AND gr.data_fine_processo IS NULL
/
COMMIT
/
EXIT

View File

@@ -0,0 +1,7 @@
INSERT INTO dwh.mnp_dw_report_sla
(report, mese, anno, data_caricamento
)
VALUES ('SLA_DONOR_HOC', &1, &2, SYSDATE
);
COMMIT ;
EXIT

View File

@@ -0,0 +1,7 @@
INSERT INTO dwh.mnp_dw_report_sla
(report, mese, anno, data_caricamento
)
VALUES ('SLA_DONOR_TERZE_PARTI', &1, &2, SYSDATE
);
COMMIT ;
EXIT

View File

@@ -0,0 +1,7 @@
INSERT INTO dwh.mnp_dw_report_sla
(report, mese, anno, data_caricamento
)
VALUES ('SLA_RECIPIENT', &1, &2, SYSDATE
);
COMMIT ;
EXIT

View File

@@ -0,0 +1,7 @@
INSERT INTO DWH.mnp_dw_report_sla
(report, mese, anno, data_caricamento
)
VALUES ('SLA_RECIPIENT_HOC', &1, &2, SYSDATE
);
COMMIT ;
EXIT

View File

@@ -0,0 +1,12 @@
set serveroutput ON
var cod_errore number
begin
DWH.CAL_SLA_ANALITICO_DONOR_3PARTI (&1,&2,:cod_errore);
if :cod_errore = 0 then
DWH.CAL_SLA_ANALITICO_RECIPIENT(&1,&2,:cod_errore);
end if;
end;
/
exit :cod_errore