The following lines contain the word 'select', 'insert', 'update' or 'delete':
Cursor select_org_id is
SELECT org_id
FROM ap_invoices_all
WHERE invoice_id = P_Invoice_Id;
OPEN select_org_id;
FETCH select_org_id INTO l_org_Id;
close select_org_id;
SELECT 'Y'
FROM ap_invoice_payments_all
WHERE invoice_id = P_invoice_id
AND nvl(discount_taken,0) <> 0;
FUNCTION selected_for_payment_flag (P_invoice_id IN number) RETURN varchar2
IS
l_flag varchar2(1) := 'N';
cursor selected_for_payment_cursor is
SELECT 'Y'
FROM ap_selected_invoices_all
WHERE invoice_id = P_invoice_id;
open selected_for_payment_cursor;
fetch selected_for_payment_cursor into l_flag;
close selected_for_payment_cursor;
END selected_for_payment_flag;
SELECT 'Y'
FROM ap_invoice_payments_all
WHERE invoice_id = P_invoice_id;
SELECT CANCELLED_DATE,
CANCELLED_BY,
PAYMENT_STATUS_FLAG,
ALLOW_PAID_INVOICE_ADJUST,
INVOICE_TYPE_LOOKUP_CODE
INTO var_cancelled_date,
var_cancelled_by,
var_payment_status_flag,
var_allow_paid_invoice_adjust,
var_invoice_type_lookup_code
FROM ap_invoices_all, ap_system_parameters_all
WHERE nvl(ap_system_parameters_all.org_id,-999) = nvl(AP_PA_API_PKG.get_org_id(X_Invoice_Id),-999)
AND invoice_id = X_Invoice_Id;
SELECT count(*)
INTO accrue_on_receipt_num
FROM po_distributions_ap_v POD, ap_invoice_distributions AID
WHERE POD.po_distribution_id = AID.po_distribution_id
AND AID.invoice_id = X_invoice_id
AND POD.accrue_on_receipt_flag = 'Y';
SELECT count(*)
INTO closed_po_num
FROM po_headers POH, po_distributions_ap_v POD, ap_invoice_distributions AID
WHERE POH.po_header_id = POD.po_header_id
AND POD.po_distribution_id = AID.po_distribution_id
AND AID.invoice_id = X_invoice_id
AND POH.closed_code = 'FINALLY CLOSED';
If Selected_for_Payment_Flag(X_invoice_Id) = 'Y' THEN
Return('PA_INV_SEL_PAYMENT');
Elsif Selected_for_Payment_Flag(X_invoice_Id) = 'Y' THEN
return('PA_INV_SEL_PAYMENT');
SELECT account_type
INTO l_account_type
FROM gl_code_combinations
WHERE code_combination_id = p_ccid ;
SELECT ATC.column_name
INTO l_column_name
FROM sys.all_tab_columns ATC
WHERE ATC.table_name = 'AP_INVOICE_DISTRIBUTIONS_ALL'
AND ATC.column_name = 'AMOUNT_VARIANCE';
'SELECT NVL(amount_variance,0), NVL(base_amount_variance,0)
FROM ap_invoice_distributions_all
WHERE invoice_id ='|| p_invoice_id ||
'AND invoice_distribution_id ='|| p_invoice_distribution_id ;