Advice me on this tkprof file

Question

Hi All
Please advice me on my Tkprof out and query
SELECT DECODE(COUNT(cr.deposit_date), 0, 0, ROUND(SUM(cr.deposit_date - ps.trx_date) / COUNT(cr.deposit_date))) avgdays
,DECODE(COUNT(cr.deposit_date), 0, 0, ROUND(SUM(cr.deposit_date - ps.due_date) / COUNT(cr.deposit_date))) avgdayslate
,NVL(SUM(DECODE(SIGN(cr.deposit_date - ps.due_date),1, 1, 0)), 0) newlate
,NVL(SUM( DECODE(SIGN(cr.deposit_date - ps.due_date),1, 0, 1)), 0) newontime
INTO v_avg_elapsed
,v_days_late
,v_number_late
,v_number_on_time
FROM ar_receivable_applications_all ra
,ar_cash_receipts_all cr
,ar_payment_schedules_all ps
WHERE ra.cash_receipt_id = cr.cash_receipt_id
AND ra.applied_payment_schedule_id = ps.payment_schedule_id
AND ps.customer_id = v_customer_id
AND ra.apply_date BETWEEN ADD_MONTHS(SYSDATE, -12) AND SYSDATE
AND ra.status = 'APP'
AND ra.display = 'Y'
AND NVL(ps.receipt_confirmed_flag,'Y') = 'Y';
===================
call count cpu elapsed disk query current rows
Parse 1 0.00 0.00 0 0 0 0
Execute 100 0.00 0.01 0 0 0 0
Fetch 100 3.90 254.23 29786 99032 0 100
total 201 3.90 254.25 29786 99032 0 100
Misses in library cache during parse: 0
Optimizer goal: CHOOSE
Parsing user id: 173 (recursive depth: 1)
Rows Row Source Operation
100 SORT AGGREGATE
800 FILTER
800 NESTED LOOPS
843 NESTED LOOPS
26721 TABLE ACCESS BY INDEX ROWID AR_PAYMENT_SCHEDULES_ALL
26721 INDEX RANGE SCAN AR_PAYMENT_SCHEDULES_N6 (object id 28824)
843 TABLE ACCESS BY INDEX ROWID AR_RECEIVABLE_APPLICATIONS_ALL
19319 INDEX RANGE SCAN AR_RECEIVABLE_APPLICATIONS_N8 (object id 29014)
800 TABLE ACCESS BY INDEX ROWID AR_CASH_RECEIPTS_ALL
800 INDEX UNIQUE SCAN AR_CASH_RECEIPTS_U1 (object id 28734)
Thanks in advance
Anu.

Answer 1

Thanks for reply Rob
please find the below my code
CREATE OR REPLACE PACKAGE BODY ar_customer_summary_pkg
Name : AR_CUSTOMER_SUMMARY_PKG.pkb
Created Date : 23-March-2009
Created By : Ashok Theegala
Description : Package Body for Interchange System Balance Report for ALACUS,AAL,AHI and ALH
Change History :
Version Date Changed By Comments
1.0 23/03/2009 Ashok Theegala Initial Version
Procedures/Functions
used in this Package
ics_alacus_reporting : Main Procedure for ALACUS Balance Reporting.
alacus_report_stag : Procedure for ALACUS Report staging.
AS
PROCEDURE Update_customer_summary
(p_errbuf OUT VARCHAR2,
p_retcode OUT VARCHAR2)
IS
v_customer_id NUMBER := NULL;
pymt_count NUMBER := 0;
rec_count NUMBER := 0;
v_number_late NUMBER;
v_number_on_time NUMBER;
v_days_late NUMBER;
v_avg_elapsed NUMBER;
v_avg_elapsed_us NUMBER;
v_percent_prompt NUMBER;
v_percent_late NUMBER;
v_number_open NUMBER;
v_last_payment_amount NUMBER;
v_last_payment_date DATE;
v_prev_payment_amount NUMBER;
v_prev_payment_date DATE;
v_last_sale_amount NUMBER;
v_last_sale_date DATE;
v_mtd_sales NUMBER;
v_ytd_sales NUMBER;
v_prev_year_sales NUMBER;
v_prev_receipt_num VARCHAR2(30);
v_last_sale VARCHAR2(50);
c_current_year VARCHAR2(4);
c_previous_year VARCHAR2(4);
c_current_month VARCHAR2(8);
/* ====================================================================== */
/* CURSOR Customer Cursor (Main Customer) LOOP */
/* ====================================================================== */
CURSOR customer_cursor IS
SELECT cst.customer_id customer_id,
cst.customer_number customer_number,
cst.org_id org_id
FROM zz_ar_customer_summary_all cst;
/* ====================================================================== */
/* CURSOR Payments Cursor LOOP */
/* Note: This logic is taken from the Customer Credit Snapshot */
/* Report - ARXCCS */
/* ====================================================================== */
CURSOR payments_cursor(p_customer_id NUMBER) IS
SELECT cr.receipt_number receipt_num,
Nvl(cr.amount,0) amount,
crh.gl_date gl_date
FROM ar_lookups,
ar_cash_receipts_all cr,
ar_cash_receipt_history_all crh
WHERE Nvl(cr.TYPE,'CASH') = ar_lookups.lookup_code
AND ar_lookups.lookup_type = 'PAYMENT_CATEGORY_TYPE'
AND cr.pay_from_customer = p_customer_id
AND cr.cash_receipt_id = crh.cash_receipt_id
AND crh.first_posted_record_flag = 'Y'
ORDER BY cr.creation_date DESC,
cr.cash_receipt_id DESC;
BEGIN
p_errbuf := NULL;
p_retcode := 0;
c_current_year := To_char(SYSDATE,'YYYY');
c_current_month := To_char(SYSDATE,'YYYYMM');
c_previous_year := To_char(To_number(c_current_year) - 1);
FOR customer_record IN customer_cursor LOOP
/* Get Days Late and Average Elapsed Days */
v_customer_id := customer_record.customer_id;
BEGIN
BEGIN
SELECT Decode(Count(cr.deposit_date),0,0,
Round(Sum(cr.deposit_date - ps.trx_date) / Count(cr.deposit_date))) avgdays,
Decode(Count(cr.deposit_date),0,0,
Round(Sum(cr.deposit_date - ps.due_date) / Count(cr.deposit_date))) avgdayslate,
Nvl(Sum(Decode(Sign(cr.deposit_date - ps.due_date),1,1,
0)),
0) newlate,
Nvl(Sum(Decode(Sign(cr.deposit_date - ps.due_date),1,0,
1)),
0) newontime
INTO v_avg_elapsed,v_days_late,v_number_late,v_number_on_time
FROM ar_receivable_applications_all ra,
ar_cash_receipts_all cr,
ar_payment_schedules_all ps
WHERE cr.pay_from_customer = v_customer_id
AND ra.cash_receipt_id = cr.cash_receipt_id
AND ra.apply_date BETWEEN Add_months(SYSDATE,-12) AND SYSDATE
AND ra.status = 'APP'
AND ra.display = 'Y'
AND ra.applied_payment_schedule_id = ps.payment_schedule_id
-- AND ps.customer_id = v_customer_id
AND Nvl(ps.receipt_confirmed_flag,'Y') = 'Y';
EXCEPTION
WHEN no_data_found THEN
v_days_late := NULL;
v_number_late := NULL;
v_avg_elapsed := NULL;
v_number_on_time := NULL;
END;
IF (v_number_on_time + v_number_late) > 0 THEN
v_percent_prompt := Round(v_number_on_time / (v_number_on_time + v_number_late),
2) * 100;
v_percent_late := Round(v_number_late / (v_number_on_time + v_number_late),
2) * 100;
ELSE
v_percent_prompt := 0;
v_percent_late := 0;
END IF;
/* C2# 49827 */
/* Get new average elapsed days for US use only */
v_avg_elapsed_us := NULL;
IF Nvl(customer_record.org_id,-999) = 114 THEN
v_avg_elapsed_us := 0;
BEGIN
SELECT Round(Sum(Nvl(ra.amount_applied,0) * (cr.deposit_date - ps.trx_date)) / Decode(Sum(Nvl(ra.amount_applied,0)),0,1,
Sum(Nvl(ra.amount_applied,0)))) avg_elapsed_us
INTO v_avg_elapsed_us
FROM ar_receivable_applications_all ra,
ar_cash_receipts_all cr,
ar_payment_schedules_all ps
WHERE ra.cash_receipt_id = cr.cash_receipt_id
AND ra.applied_payment_schedule_id = ps.payment_schedule_id
AND ps.customer_id = v_customer_id
AND ra.apply_date BETWEEN Add_months(SYSDATE,-06) AND SYSDATE
AND ps.status = 'CL'
AND ra.status = 'APP'
AND ra.display = 'Y'
AND Nvl(ps.receipt_confirmed_flag,'Y') = 'Y'
AND ra.amount_applied <> 0;
v_avg_elapsed_us := Nvl(v_avg_elapsed_us,0);
EXCEPTION
WHEN no_data_found THEN
v_avg_elapsed_us := NULL;
END;
END IF;
END;
/* Get MTD, YTD, Prev Year Sales */
/* Note: This logic is taken from the Customer Credit Snapshot */
/* Report - ARXCCS */
BEGIN
SELECT Nvl(Sum(Decode(To_char(ps.trx_date,'YYYYMM'),c_current_month,amount_due_original,
0)),
0) mtd_sales,
Nvl(Sum(Decode(To_char(ps.trx_date,'YYYY'),c_current_year,amount_due_original,
0)),
0) ytd_sales,
Nvl(Sum(Decode(To_char(ps.trx_date,'YYYY'),c_previous_year,amount_due_original,
0)),
0) prev_sales,
Sum(Decode(ps.status,'OP',(Decode(Sign(amount_due_original),1,1,
0)),
0)) number_open
INTO v_mtd_sales,v_ytd_sales,v_prev_year_sales,v_number_open
FROM ar_payment_schedules_all ps
WHERE ps.customer_id = v_customer_id
AND ps.class != 'PMT';
EXCEPTION
WHEN no_data_found THEN
v_mtd_sales := NULL;
v_ytd_sales := NULL;
v_prev_year_sales := NULL;
END;
/* Get Last and Previous Payments */
pymt_count := 0;
v_last_payment_date := NULL;
v_prev_payment_date := NULL;
v_last_payment_amount := NULL;
v_prev_payment_amount := NULL;
v_prev_receipt_num := NULL;
FOR payments_record IN payments_cursor(p_customer_id => v_customer_id) LOOP
BEGIN
IF payments_record.receipt_num = v_prev_receipt_num THEN
NULL;
ELSIF pymt_count = 0 THEN
v_last_payment_date := payments_record.gl_date;
v_last_payment_amount := payments_record.amount;
pymt_count := pymt_count + 1;
v_prev_receipt_num := payments_record.receipt_num;
ELSIF pymt_count = 1 THEN
v_prev_payment_date := payments_record.gl_date;
v_prev_payment_amount := payments_record.amount;
EXIT;
ELSE
EXIT;
END IF;
END;
END LOOP;
-->
BEGIN
SELECT Max(ct.trx_date),
Max(ps.amount_due_original)
KEEP ( DENSE_RANK LAST ORDER BY ct.trx_date )
INTO v_last_sale_date,v_last_sale_amount
FROM ar_payment_schedules_all ps,
ra_customer_trx_all ct
WHERE ct.bill_to_customer_id = v_customer_id
AND ps.customer_trx_id = ct.customer_trx_id
AND ps.class = 'INV';
EXCEPTION
WHEN no_data_found THEN
v_last_sale_date := NULL;
v_last_sale_amount := NULL;
END;
/* Update Values into ZZ_AR_CUSTOMER_SUMMARY_ALL */
BEGIN
UPDATE zz_ar_customer_summary_all
SET sales_last_year = v_prev_year_sales,
sales_ytd = v_ytd_sales,
sales_mtd = v_mtd_sales,
last_sale_date = v_last_sale_date,
last_sale_amount = v_last_sale_amount,
last_payment_date = v_last_payment_date,
last_payment_amount = v_last_payment_amount,
previous_payment_date = v_prev_payment_date,
previous_payment_amount = v_prev_payment_amount,
prompt = v_percent_prompt,
late = v_percent_late,
avg_elapsed_days = v_avg_elapsed,
avg_elapsed_days_us = v_avg_elapsed_us -- C2# 49827
days_late = v_days_late,
number_open = v_number_open
WHERE customer_id = customer_record.customer_id;
EXCEPTION
WHEN program_error THEN
NULL;
WHEN dup_val_on_index THEN
NULL;
WHEN storage_error THEN
NULL;
WHEN OTHERS THEN
NULL;
END;
rec_count := rec_count + 1;
IF rec_count = 1000 THEN
COMMIT;
rec_count := 0;
fnd_file.Put_line(fnd_file.output,'Commit at customer_id = '
||To_char(customer_record.customer_id)
||' '
||To_char(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
fnd_file.New_line(fnd_file.output,1);
END IF;
END LOOP;
COMMIT;
--> Bulk update the customer summary table
/* UPDATE zz_ar_customer_summary_all a
SET (LAST_SALE_DATE ,
LAST_SALE_AMOUNT) = (SELECT max (ct.trx_date),
max (ps.amount_due_original) keep (dense_rank last order by ct.trx_date)
FROM ar_payment_schedules_all ps, ra_customer_trx_all ct
WHERE ct.bill_to_customer_id = a.customer_id
AND ps.customer_trx_id = ct.customer_trx_id
AND ps.class = 'INV')
,(sales_mtd
,sales_ytd
,sales_last_year
,number_open) = (SELECT NVL(SUM(DECODE(TO_CHAR(ps.trx_date,'YYYYMM'),TO_CHAR(SYSDATE,'YYYYMM'),amount_due_original,0)),0)
,NVL(SUM(DECODE(TO_CHAR(ps.trx_date,'YYYY'),TO_CHAR(SYSDATE,'YYYY'),amount_due_original,0)),0)
,NVL(SUM(DECODE(TO_CHAR(ps.trx_date,'YYYY'),TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY')) - 1),amount_due_original,0)),0)
,SUM(DECODE(ps.status,'OP',(DECODE(SIGN(amount_due_original),1,1,0)),0))
from ar_payment_schedules_all ps
where ps.customer_id = a.customer_id
and ps.class != 'PMT' )
,avg_elapsed_days_us = decode (a.org_id ,114 ,(SELECT nvl(ROUND(SUM(NVL(ra.amount_applied,0) * (cr.deposit_date - ps.trx_date)) / DECODE(SUM(NVL(ra.amount_applied,0)),0,1,SUM(NVL(ra.amount_applied,0)))),0)
FROM ar_receivable_applications_all ra
,ar_cash_receipts_all cr
,ar_payment_schedules_all ps
WHERE ra.cash_receipt_id = cr.cash_receipt_id
AND ra.applied_payment_schedule_id = ps.payment_schedule_id
AND ps.customer_id = a.customer_id
AND ra.apply_date BETWEEN ADD_MONTHS(SYSDATE, -06) AND SYSDATE
AND ps.status = 'CL'
AND ra.status = 'APP'
AND ra.display = 'Y'
AND nvl(ps.receipt_confirmed_flag,'Y') = 'Y'
AND ra.amount_applied <> 0 ) ,null);
COMMIT; */
EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
p_retcode := 2;
p_errbuf := SQLERRM;
fnd_file.Put_line(fnd_file.LOG,'Errors at Customer update summary:'
||'-'
||p_errbuf);
END update_customer_summary;
END ar_customer_summary_pkg;
/