346: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id ' || p_loan_id);
347: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id ' || p_loan_amount_adj_id);
348: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_source ' || p_source);
349:
350: -- steps 1. delete from PSA_BC_REPORT_EVENTS_GT
351: -- 2. insert into PSA_BC_REPORT_EVENTS_GT
352: -- 3. generate sequence
353: -- 4. call Create_BC_Transaction_report API
354: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'deleting from PSA_BC_REPORT_EVENTS_GT');
347: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id ' || p_loan_amount_adj_id);
348: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_source ' || p_source);
349:
350: -- steps 1. delete from PSA_BC_REPORT_EVENTS_GT
351: -- 2. insert into PSA_BC_REPORT_EVENTS_GT
352: -- 3. generate sequence
353: -- 4. call Create_BC_Transaction_report API
354: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'deleting from PSA_BC_REPORT_EVENTS_GT');
355: DELETE FROM PSA_BC_REPORT_EVENTS_GT;
350: -- steps 1. delete from PSA_BC_REPORT_EVENTS_GT
351: -- 2. insert into PSA_BC_REPORT_EVENTS_GT
352: -- 3. generate sequence
353: -- 4. call Create_BC_Transaction_report API
354: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'deleting from PSA_BC_REPORT_EVENTS_GT');
355: DELETE FROM PSA_BC_REPORT_EVENTS_GT;
356:
357: IF p_source = 'LOAN_AMOUNT_ADJUSTMENT' THEN
358: IF p_loan_amount_adj_id IS NULL THEN
351: -- 2. insert into PSA_BC_REPORT_EVENTS_GT
352: -- 3. generate sequence
353: -- 4. call Create_BC_Transaction_report API
354: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'deleting from PSA_BC_REPORT_EVENTS_GT');
355: DELETE FROM PSA_BC_REPORT_EVENTS_GT;
356:
357: IF p_source = 'LOAN_AMOUNT_ADJUSTMENT' THEN
358: IF p_loan_amount_adj_id IS NULL THEN
359: -- Retrieve the Pending Loan Amount Adjustment Id of the loan
427: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
428: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_ledger_id = ' || l_ledger_id);
429:
430: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'inserting into psa table...');
431: INSERT INTO PSA_BC_REPORT_EVENTS_GT
432: (event_id
433: ,SOURCE_DISTRIBUTION_ID_NUM_1
434: ,SOURCE_DISTRIBUTION_ID_NUM_2)
435: values(l_event_id
443: into l_sequence_id
444: from dual;
445:
446: SELECT count(*) INTO l_count
447: FROM PSA_BC_REPORT_EVENTS_GT;
448: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'rows found ' || l_count);
449:
450: IF l_count > 0 then
451: