1: PACKAGE BODY AR_TRX_SUMMARY_PKG AS
2: /* $Header: ARCMUPGB.pls 120.21 2007/09/12 17:48:08 mraymond noship $ */
3:
4: PROCEDURE insert_conc_req IS
5: BEGIN
34: l_param WF_PARAMETER_T;
35: l_po_value VARCHAR2(10);
36: BEGIN
37: insert_conc_req;
38: fnd_file.put_line(fnd_file.log,'AR_TRX_SUMMARY_PKG.refresh_all(+)');
39: l_po_value := fnd_profile.value('AR_CMGT_ALLOW_SUMMARY_TABLE_REFRESH');
40: IF nvl(l_po_value,'N') = 'Y' THEN
41:
42: DELETE from ar_trx_bal_summary;
286:
287:
288: IF AR_CMGT_CREDIT_REQUEST_API.is_Credit_Management_Installed()
289: THEN
290: DELETE from ar_trx_summary;
291:
292: INSERT into ar_trx_summary
293: (CUST_ACCOUNT_ID,
294: SITE_USE_ID,
288: IF AR_CMGT_CREDIT_REQUEST_API.is_Credit_Management_Installed()
289: THEN
290: DELETE from ar_trx_summary;
291:
292: INSERT into ar_trx_summary
293: (CUST_ACCOUNT_ID,
294: SITE_USE_ID,
295: CURRENCY,
296: ORG_ID,
467: null,ra.unearned_discount_taken), null)) unedisc_taken
468: FROM AR_PAYMENT_SCHEDULES_all ps,
469: AR_RECEIVABLE_APPLICATIONS_ALL RA,
470: ( select history_id, payment_schedule_id, due_date, amount_in_dispute
471: from ar_trx_summary_hist
472: where history_id in
473: (select max(history_id)
474: from ar_trx_summary_hist
475: where nvl(complete_flag,'N') = 'N'
470: ( select history_id, payment_schedule_id, due_date, amount_in_dispute
471: from ar_trx_summary_hist
472: where history_id in
473: (select max(history_id)
474: from ar_trx_summary_hist
475: where nvl(complete_flag,'N') = 'N'
476: and creation_date <= l_program_start_date
477: group by payment_schedule_id)) TRX_HIST
478: WHERE RA.APPLIED_PAYMENT_SCHEDULE_ID(+) = PS.PAYMENT_SCHEDULE_ID
617: sum(decode(ps.class, 'INV',
618: (ra.apply_date - nvl(trx_hist.due_date, ps.due_date))* ra.amount_applied, null)) app_amt_days_late
619: from ar_payment_schedules_all ps,
620: ( select history_id, payment_schedule_id, due_date, amount_in_dispute
621: from ar_trx_summary_hist
622: where history_id in
623: (select max(history_id)
624: from ar_trx_summary_hist
625: where nvl(complete_flag,'N') = 'N'
620: ( select history_id, payment_schedule_id, due_date, amount_in_dispute
621: from ar_trx_summary_hist
622: where history_id in
623: (select max(history_id)
624: from ar_trx_summary_hist
625: where nvl(complete_flag,'N') = 'N'
626: and creation_date <= l_program_start_date
627: group by payment_schedule_id)) TRX_HIST,
628: ra_terms_b rt,
711:
712: /*--------------------------------------------+
713: | |
714: | LOGIC TO UPDATE THE LARGEST INV INFO IN |
715: | AR_TRX_SUMMARY TABLE |
716: | |
717: +--------------------------------------------*/
718:
719: declare
756: )
757: )
758: WHERE rank_amount = 1';
759:
760: text_update := 'Update ar_trx_summary set LARGEST_INV_AMOUNT = :amount,
761: LARGEST_INV_CUST_TRX_ID = :cust_trx_id,
762: LARGEST_INV_DATE = :trx_date,
763: LAST_UPDATE_DATE = sysdate,
764: LAST_UPDATED_BY = FND_GLOBAL.user_id,
835:
836: /*--------------------------------------------+
837: | |
838: | LOGIC TO UPDATE THE HIGHWATER MARK BALANCE |
839: | IN AR_TRX_SUMMARY |
840: | |
841: +--------------------------------------------*/
842:
843: declare
937: )
938: where as_of_date > add_months(sysdate , -24)';
939:
940: text_update :=
941: 'Update ar_trx_summary
942: set OP_BAL_HIGH_WATERMARK = :cum_balance,
943: OP_BAL_HIGH_WATERMARK_DATE = :as_of_date,
944: LAST_UPDATE_DATE = sysdate,
945: LAST_UPDATED_BY = FND_GLOBAL.user_id,
1101:
1102: /* over commit to insure that deleted rows are recorded */
1103: COMMIT;
1104:
1105: fnd_file.put_line(fnd_file.log,'AR_TRX_SUMMARY_PKG.refresh_all(-)');
1106: EXCEPTION
1107: WHEN others THEN
1108: raise;
1109: END refresh_all;
1107: WHEN others THEN
1108: raise;
1109: END refresh_all;
1110:
1111: END AR_TRX_SUMMARY_PKG;