How to tune the code

Question

Hello experts!
We have a report, which always fails, because it query huge tables and then union them together. I was wondering if u can advice another approach, may be use PL/SQL instead of SQL. The query as is:
CREATE OR REPLACE PROCEDURE PRC_BATCH227E_RPT(myPointer IN OUT PKGREPORTS.ReportDataType)
As
BEGIN
OPEN myPointer FOR
SELECT id, id2, touserid,mpi_network_code, savings_flg, NVL(claims, 0) claims,charges, allowed_charges, savings
FROM(
SELECT
1 id2,
CASE WHEN TO_NUMBER(routingcode) = 710 AND cr.touserid <> 'GCS' THEN cr.touserid
WHEN TO_NUMBER(routingcode) = 712 THEN cr.touserid
ELSE 'MP' END touserid,
'' mpi_network_code,
'' savings_flg,
COUNT(ehc.edp_claim_id) claims,
0 charges,
0 allowed_charges,
MAX(TRUNC(sysdate) - TO_DATE(ehc.date_sent,'mmddyyyy')) savings
FROM
mpiefp.edp_hcfa_claim@archive ehc,
reprice.clmrouting@archive cr
WHERE
ehc.alternate_acct_id IN ('2316000000')
AND ehc.status_code > '0'
AND ehc.status_code < '600000000'
AND cr.claimnumber(+) = ehc.rims_claim_number
AND cr.ownerid(+) = 21
AND (cr.seqnumber = (SELECT MAX(seqnumber)
FROM reprice.clmrouting@archive
WHERE claimnumber = cr.claimnumber
AND ownerid = cr.ownerid
OR cr.seqnumber IS NULL)
GROUP BY CASE WHEN TO_NUMBER(routingcode) = 710 AND cr.touserid <> 'GCS' THEN cr.touserid
WHEN TO_NUMBER(routingcode) = 712 THEN cr.touserid
ELSE 'MP' END) t1
FULL JOIN (SELECT 1 id FROM dual)     t2 ON t1.id2 = t2.id
UNION ALL
--Capture those claims that were received today from Great West
SELECT id, id2, touserid,mpi_network_code, savings_flg, NVL(claims, 0) claims,charges, allowed_charges, savings
FROM(
SELECT
2 id2,
'' touserid,
'' mpi_network_code,
'' savings_flg,
SUM(DECODE(edp_claim_id, NULL, 0, 1)) charges,
SUM(CASE WHEN TRUNC(ehc.status_code) >= 200000000 AND TRUNC(ehc.status_code) < 300000000
AND SUBSTR(TO_CHAR(ehc.status_code), -1) = '6' THEN DECODE(edp_claim_id, NULL, 0, 1)
ELSE 0 END) claims,
0 allowed_charges,
0 savings
FROM
mpiefp.edp_hcfa_process_ctl@archive hpc,
mpiefp.edp_hcfa_claim@archive ehc
WHERE
ehc.alternate_acct_id IN ('2316000000')
AND ehc.status_code >='200000000'
AND ehc.status_code <= '970000000'
AND hpc.edp_hcfa_proc_ctl_pk = ehc.edp_hcfa_proc_ctl_key
AND hpc.edp_hcfa_proc_ctl_dt_stamp >= TRUNC(sysdate)) t1
FULL JOIN (SELECT 2 id FROM dual)     t2 ON t1.id2 = t2.id
UNION ALL
--Capture those claims that were returned to GW on previous business day
--and identify which were Vendor claims.
SELECT id, id2, touserid,mpi_network_code, savings_flg, NVL(claims, 0) claims,charges, allowed_charges, savings
FROM(
SELECT /*+ index(EHC IDX$EDP_hcfa_CLAIM$OUTBATCHDT)*/
3 id2,
'' touserid,
DECODE(ehc.mpi_network_code,NULL,'MP',200,'FNX',417,'TRPN',201,'PVS',150,'GCS',250, 'NCN',517, 'TC3',537,'NHBC', 'MP') mpi_network_code,
'' savings_flg,
NVL(COUNT(*), 0) claims,
0 charges,
0 allowed_charges,
0 savings
FROM
mpiefp.edp_hcfa_claim@archive ehc
WHERE
ehc.outbatch_date >= TRUNC(sysdate-1)
AND ehc.outbatch_date < TRUNC(sysdate)
AND ehc.alternate_acct_id in ('2316000000')
AND ehc.status_code >='600000000'
AND ehc.status_code <= '700000000'
GROUP BY DECODE(ehc.mpi_network_code,NULL,'MP',200,'FNX',417,'TRPN',201,'PVS',150,'GCS',250, 'NCN',517, 'TC3',537,'NHBC','MP')) t1
FULL JOIN (SELECT 3 id FROM dual)     t2 ON t1.id2 = t2.id
UNION ALL
--Capture those claims that were sent to Vendor today.
SELECT id, id2, touserid,mpi_network_code, savings_flg, NVL(claims, 0) claims,charges, allowed_charges, savings
FROM(
SELECT /*+ index (cr, IDX2_CLMROUTING) leading(cr) */
4 id2,
DECODE(touserid, 'BCE', 'FNX',touserid) touserid,
'' mpi_network_code,
'' savings_flg,
NVL(COUNT(*), 0) claims,
SUM(ehc.claim_total_charge) charges,
0 allowed_charges,
0 savings
FROM
mpiefp.edp_hcfa_claim@archive ehc,
reprice.clmrouting@archive cr
WHERE
ehc.alternate_acct_id IN ('2316000000')
AND ehc.status_code >= '400000000'
AND ehc.status_code <= '700000000'
AND cr.claimnumber = ehc.rims_claim_number
AND cr.ownerid(+) = 21
AND cr.routingcode = 712
AND cr.routingtime >= TRUNC(sysdate)
AND ((cr.fromuserid = 'GCS' AND cr.touserid = 'GCS') OR
(cr.fromuserid = 'BCE' AND cr.touserid = 'BCE') OR
(cr.fromuserid = 'NCN' AND cr.touserid = 'NCN') OR
(cr.fromuserid = 'PVS' AND cr.touserid = 'PVS') OR
(cr.fromuserid = 'TC3' AND cr.touserid = 'TC3') OR
(cr.fromuserid = 'TRPN' AND cr.touserid = 'TRPN') OR
(cr.fromuserid = 'MPIEDI - HCFA' AND cr.touserid = 'FNX INBOUND') OR
(cr.fromuserid = 'FNX INBOUND' AND cr.touserid = 'FNX INBOUND') OR
(cr.fromuserid = 'NHBC' AND cr.touserid = 'NHBC'))
GROUP BY touserid     ) t1
FULL JOIN (SELECT 4 id FROM dual)     t2 ON t1.id2 = t2.id
UNION ALL
SELECT id, id2, touserid,mpi_network_code, savings_flg, NVL(claims, 0) claims,charges, allowed_charges, savings
FROM(
SELECT
5 id2,
CASE WHEN TO_NUMBER(routingcode) = 710 AND cr.touserid <> 'GCS' THEN cr.touserid
WHEN TO_NUMBER(routingcode) = 712 THEN cr.touserid
WHEN cr.touserid = 'BCE' THEN 'FNX'
ELSE 'MP' END touserid,
'' mpi_network_code,
'' savings_flg,
COUNT(ehc.edp_claim_id) claims,
0 charges,
0 allowed_charges,
MAX(TRUNC(sysdate) - TO_DATE(ehc.date_sent,'mmddyyyy')-1) savings
FROM
mpiefp.edp_hcfa_claim@archive ehc,
reprice.clmrouting@archive cr
WHERE
ehc.alternate_acct_id IN ('2316000000')
AND ehc.status_code BETWEEN '400000000' AND '600000000'
AND cr.ownerid = 21
AND cr.claimnumber = ehc.rims_claim_number
AND cr.seqnumber = (SELECT MAX(seqnumber)
FROM reprice.clmrouting@archive
WHERE claimnumber = cr.claimnumber
AND ownerid = cr.ownerid
AND cr.routingcode IN (712,710)
AND cr.touserid IN ('GCS','BCE', 'NCN','PVS', 'TC3','NHBC','FNX INBOUND')
GROUP BY CASE WHEN TO_NUMBER(routingcode) = 710 AND cr.touserid <> 'GCS' THEN cr.touserid
WHEN TO_NUMBER(routingcode) = 712 THEN cr.touserid
WHEN cr.touserid = 'BCE' THEN 'FNX'
ELSE 'MP' END) t1
FULL JOIN (SELECT 5 id FROM dual)     t2 ON t1.id2 = t2.id
UNION ALL
--SUMMARY OF RETURN FILE SHOWING MultiPlan and Vendor Claims with/without savings.
SELECT id, id2, touserid,mpi_network_code, savings_flg, NVL(claims, 0) claims,charges, allowed_charges, savings
FROM(
SELECT /*+ index(EHC IDX$EDP_hcfa_CLAIM$OUTBATCHDT)*/
8 id2,
'' touserid,
DECODE(ehc.mpi_network_code,NULL,'MP',200,'FNX',201,'PVS',150,'GCS',250, 'NCN',517, 'TC3',537,'NHBC','MP') mpi_network_code,
DECODE(ehc.savings,0,'NOSAVINGS',NULL,'NOSAVINGS','SAVINGS') savings_flg,
NVL(COUNT(ehc.edp_claim_id), 0) claims,
SUM(ehc.claim_total_charge) charges,
SUM(ehc.allowed_amt) allowed_charges,
SUM(ehc.savings) savings
FROM
mpiefp.edp_hcfa_claim@archive ehc
WHERE
ehc.outbatch_date >= TRUNC(sysdate-1)
AND ehc.outbatch_date < TRUNC(sysdate)
AND ehc.alternate_acct_id IN ('2316000000')
AND ehc.status_code > '600000000'
AND ehc.status_code < '700000000'
GROUP BY
DECODE(ehc.savings,0,'NOSAVINGS',NULL,'NOSAVINGS','SAVINGS'),
DECODE(ehc.mpi_network_code,NULL,'MP',200,'FNX',201,'PVS',150,'GCS',250,'NCN',517, 'TC3',537,'NHBC','MP')) t1
FULL JOIN (SELECT 8 id FROM dual)     t2 ON t1.id2 = t2.id;
EXCEPTION
WHEN OTHERS THEN
RETURN;
END PRC_BATCH227E_RPT;
/

Answer 1

may be use PL/SQL instead of SQL. If your SQL sucks replacing it with PL/SQL is only going to make things worse.
I was wondering if u can advice Well, I got some questions, I hope they'll do.
(1) All these tables are on a remote database. Why not run the report there? Because it is a very very very bad idea to query huge tables across a database link.
(2) What is the point of all the
FULL JOIN (SELECT 1 id FROM dual) t2 ON t1.id2 = t2.idconstructs? Other than cluttering up the code and putting additional strain on the system that is.
Beyond that you need to read Rob Van Wijk's excellent post When your query takes too long ....
Cheers, APC
Blog : http://radiofreetooting.blogspot.com/