The following lines contain the word 'select', 'insert', 'update' or 'delete':
l_log_msg := 'Step 5: Update the posted flag';
SELECT nvl(gl.sla_ledger_cash_basis_flag, 'N')
INTO l_cash_basis_flag
FROM gl_ledgers gl, ap_invoices_all ai
WHERE gl.ledger_id = ai.set_of_books_id
AND ai.invoice_id = p_invoice_id;
UPDATE AP_INVOICE_DISTRIBUTIONS
SET POSTED_FLAG = CASE WHEN p_retcode <> 0
THEN 'N'
WHEN p_retcode = 0 and l_event_status_list(num) = 'N'
THEN 'Y'
ELSE 'N' -- bug 9464912
END,
ACCRUAL_POSTED_FLAG =
CASE WHEN p_retcode <> 0
THEN 'N'
WHEN p_retcode = 0 and
l_event_status_list(num) = 'N' and
l_cash_basis_flag = 'N'
THEN 'Y'
ELSE 'N'
END,
CASH_POSTED_FLAG =
CASE WHEN p_retcode <> 0
THEN 'N'
WHEN p_retcode = 0 and
l_event_status_list(num) = 'N' and
l_cash_basis_flag = 'Y'
THEN 'Y'
ELSE CASH_POSTED_FLAG
END
-- bug 10101613
,LAST_UPDATED_BY = FND_GLOBAL.user_id
,LAST_UPDATE_DATE = SYSDATE
,LAST_UPDATE_LOGIN = FND_GLOBAL.login_id
WHERE Accounting_Event_ID = l_event_list(num);
UPDATE ap_prepay_history_all
SET POSTED_FLAG = CASE WHEN p_retcode <> 0
THEN 'N'
WHEN p_retcode = 0 and l_event_status_list(num) = 'N'
THEN 'Y'
ELSE 'N' -- bug 9464912
END
-- bug 10101613
,LAST_UPDATED_BY = FND_GLOBAL.user_id
,LAST_UPDATE_DATE = SYSDATE
,LAST_UPDATE_LOGIN = FND_GLOBAL.login_id
WHERE Accounting_Event_ID = l_event_list(num);
l_event_list.DELETE;
l_event_status_list.DELETE;
l_t_array_event_info.DELETE;
l_log_msg := 'Step 5: Update the posted flag';
UPDATE AP_invoice_payments_all
SET POSTED_FLAG = CASE
WHEN l_accounting_mode <> 'D' AND
p_retcode <> 0 AND
l_event_status_list(num) <> 'P' THEN 'N'
WHEN l_accounting_mode <> 'D' AND -- Bug 9135877
p_retcode = 0 AND
l_event_status_list(num) = 'N' THEN 'Y'
ELSE 'N'
END,
ACCRUAL_POSTED_FLAG =
CASE
WHEN l_accounting_mode <> 'D' AND
p_retcode <> 0 AND
l_event_status_list(num) <> 'P' THEN 'N'
WHEN l_accounting_mode <> 'D' AND
p_retcode = 0 AND
l_event_status_list(num) = 'N' THEN 'Y'
ELSE 'N'
END,
CASH_POSTED_FLAG =
CASE
WHEN l_accounting_mode <> 'D' AND
p_retcode <> 0 AND
l_event_status_list(num) <> 'P' THEN 'N'
WHEN l_accounting_mode <> 'D' AND
p_retcode = 0 AND
l_event_status_list(num) = 'N' THEN 'Y'
ELSE 'N'
END
-- bug 10101613
,LAST_UPDATED_BY = FND_GLOBAL.user_id
,LAST_UPDATE_DATE = SYSDATE
,LAST_UPDATE_LOGIN = FND_GLOBAL.login_id
WHERE Accounting_Event_ID = l_event_list(num);
UPDATE AP_payment_history_all APH
SET APH.POSTED_FLAG = CASE
WHEN l_accounting_mode <> 'D' AND
p_retcode <> 0 AND
l_event_status_list(num) <> 'P' THEN 'N'
WHEN l_accounting_mode <> 'D' AND -- Bug 7374984
p_retcode = 0 AND
l_event_status_list(num) = 'N' THEN 'Y'
ELSE 'N'
END
-- bug 10101613
,LAST_UPDATED_BY = FND_GLOBAL.user_id
,LAST_UPDATE_DATE = SYSDATE
,LAST_UPDATE_LOGIN = FND_GLOBAL.login_id
WHERE APH.Accounting_Event_ID = l_event_list(num);
l_event_list.DELETE;
l_event_status_list.DELETE;
l_t_array_event_info.DELETE;
select invoice_num
into l_invoice_num
from ap_invoices
where invoice_id = p_invoice_id;
select check_number
into l_check_number
from ap_checks
where check_id = p_check_id;
SELECT
AI.org_id,
AI.legal_entity_id,
AI.set_of_books_id
INTO
p_org_id,
p_legal_entity_id,
p_ledger_id
FROM
ap_invoices AI
WHERE
AI.invoice_id = p_invoice_id;
SELECT AC.org_id,
AC.legal_entity_id
INTO p_org_id,
p_legal_entity_id
FROM ap_checks AC
WHERE AC.check_id = p_check_id;
SELECT AIP.set_of_books_id
INTO p_ledger_id
FROM ap_invoice_payments AIP
WHERE AIP.check_id = p_check_id
AND ROWNUM = 1;