The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT reporting_set_of_books_id,
reporting_currency_code,
conversion_type
FROM gl_mc_reporting_options
WHERE primary_set_of_books_id = p_set_of_books_id
AND application_id = 275
AND org_id = NVL(in_org_id,-99)
AND enabled_flag = 'Y'; */
SELECT ledger_id reporting_set_of_books_id,
currency_code reporting_currency_code,
alc_default_conv_rate_type conversion_type
FROM gl_alc_ledger_rships_v
WHERE source_ledger_id = p_set_of_books_id
AND application_id = 275
AND (org_id = -99 OR org_id = in_org_id)
AND relationship_enabled_flag = 'Y';
l_program_update_date DATE := sysdate;
l_last_update_date DATE := sysdate;
l_last_updated_by NUMBER:= fnd_global.user_id;
l_last_update_login NUMBER:= fnd_global.login_id;
IF p_action ='INSERT' THEN /* Inserting new record */
-- pa_retention_util.write_log('Leaving pa_mc_retn_inv_detail_pkg.Process_RetnInvDetails');
SELECT p.org_id, p.projfunc_currency_code ,
imp.set_of_books_id sob,
di.invoice_date invoice_date
INTO l_org_id, currency, sob, l_invoice_date
FROM pa_projects_all p, pa_implementations imp,
pa_draft_invoices_all di
WHERE di.project_id = p.project_id
AND di.draft_invoice_num = p_draft_invoice_num
AND p.project_id = p_project_id
/* Shared services changes: removed NVL from the org_id join.*/
AND imp.org_id = p.org_id;
FOR InvDetRec IN (SELECT
retn_invoice_detail_id,
project_id,
draft_invoice_num,
line_num,
projfunc_currency_code,
projfunc_total_retained
FROM pa_retn_invoice_details
WHERE project_id = p_project_id
AND draft_invoice_num = p_draft_invoice_num)
LOOP
l_report_amount := 0;
pa_retention_util.write_log('Process_RetnInvDetails: ' || 'Before inserting into pa_mc_retn_inv_details');
/* Bug 2976939: Added set_of_books_id check in the select below.Since this check was not there
only for one RSOB record will be inserted. */
BEGIN
NULL;
pa_retention_util.write_log('Process_RetnInvDetails: ' || 'After inserting into pa_mc_retn_inv_details');
ELSIF p_action='DELETE' THEN
IF g1_debug_mode = 'Y' THEN
pa_retention_util.write_log('Process_RetnInvDetails: ' || 'Delete Invoice Details');