The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Payment_Audit(
p_payment_audit_id IN OUT NOCOPY NUMBER,
p_payment_type IN VARCHAR2,
p_cust_account_id IN NUMBER,
p_customer_site_use_id IN NUMBER DEFAULT NULL,
p_oir_payment_status IN VARCHAR2 DEFAULT NULL,
p_cash_receipt_id IN NUMBER DEFAULT NULL,
p_receipt_date IN DATE DEFAULT SYSDATE,
p_receipt_status IN VARCHAR2 DEFAULT NULL,
p_last_updated_by IN NUMBER DEFAULT NULL,
p_last_update_date IN DATE DEFAULT NULL,
p_last_update_login IN NUMBER DEFAULT NULL,
p_created_by IN NUMBER DEFAULT NULL,
p_creation_date IN DATE DEFAULT NULL,
p_currency_code IN VARCHAR2,
p_amount IN NUMBER,
p_invoices IN VARCHAR2,
p_responsibility_id IN NUMBER DEFAULT NULL,
p_operating_unit IN NUMBER DEFAULT NULL,
p_transaction_id IN NUMBER DEFAULT NULL)
------------------------------------------------------------------------------
IS
l_procedure_name VARCHAR2(31) := '.Insert_Payment_Audit';
CURSOR C2 IS SELECT ARI_REGISTRATIONS_S.nextval FROM sys.dual;
l_debug_info := 'Insert into OIR_PAYMENT_AUDIT';
INSERT INTO OIR_PAYMENT_AUDIT(
PAYMENT_AUDIT_ID,
PAYMENT_TYPE,
CUST_ACCOUNT_ID,
CUSTOMER_SITE_USE_ID,
OIR_PAYMENT_STATUS,
CASH_RECEIPT_ID,
RECEIPT_DATE,
RECEIPT_STATUS,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
CREATED_BY,
CREATION_DATE,
CURRENCY_CODE,
AMOUNT,
INVOICES,
RESPONSIBILITY_ID,
OPERATING_UNIT,
TRANSACTIONID)
VALUES (
l_payment_audit_id,
p_payment_type,
p_cust_account_id,
p_customer_site_use_id,
p_oir_payment_status,
p_cash_receipt_id,
p_receipt_date,
p_receipt_status,
fnd_global.user_id,
sysdate,
fnd_global.user_id,
fnd_global.user_id,
sysdate,
p_currency_code,
p_amount,
p_invoices,
fnd_global.resp_id,
fnd_global.org_id,
p_transaction_id);
l_debug_info := 'After insert';
END Insert_Payment_Audit;
PROCEDURE Update_Payment_Audit(
p_payment_audit_id IN NUMBER,
p_payment_type IN VARCHAR2 DEFAULT NULL ,
p_cust_account_id IN NUMBER DEFAULT NULL ,
p_customer_site_use_id IN NUMBER DEFAULT NULL,
p_oir_payment_status IN VARCHAR2 DEFAULT NULL,
p_cash_receipt_id IN NUMBER DEFAULT NULL,
p_receipt_date IN DATE DEFAULT SYSDATE,
p_receipt_status IN VARCHAR2 DEFAULT NULL,
p_last_updated_by IN NUMBER DEFAULT NULL,
p_last_update_date IN DATE DEFAULT NULL,
p_last_update_login IN NUMBER DEFAULT NULL,
p_created_by IN NUMBER DEFAULT NULL,
p_creation_date IN DATE DEFAULT NULL,
p_currency_code IN VARCHAR2 DEFAULT NULL,
p_amount IN NUMBER DEFAULT NULL,
p_invoices IN VARCHAR2 DEFAULT NULL,
p_responsibility_id IN NUMBER DEFAULT NULL,
p_operating_unit IN NUMBER DEFAULT NULL,
p_transaction_id IN NUMBER DEFAULT NULL)
IS
l_procedure_name VARCHAR2(31) := '.Update_Payment_Audit';
l_debug_info := 'Update into OIR_PAYMENT_AUDIT';
update OIR_PAYMENT_AUDIT set
PAYMENT_TYPE = decode(p_payment_type,NULL,PAYMENT_TYPE,p_payment_type),
CUST_ACCOUNT_ID = decode(p_cust_account_id,NULL,CUST_ACCOUNT_ID,p_cust_account_id),
CUSTOMER_SITE_USE_ID = decode(p_customer_site_use_id,NULL,CUSTOMER_SITE_USE_ID,p_customer_site_use_id),
OIR_PAYMENT_STATUS = decode(p_oir_payment_status,NULL,OIR_PAYMENT_STATUS,p_oir_payment_status),
CASH_RECEIPT_ID = decode(p_cash_receipt_id,NULL,CASH_RECEIPT_ID,p_cash_receipt_id),
RECEIPT_DATE = decode(p_receipt_date, NULL, RECEIPT_DATE, p_receipt_date),
RECEIPT_STATUS = decode(p_receipt_status,NULL,RECEIPT_STATUS,p_receipt_status),
LAST_UPDATED_BY = fnd_global.user_id,
LAST_UPDATE_DATE = sysdate,
LAST_UPDATE_LOGIN = fnd_global.user_id,
CURRENCY_CODE = decode(p_currency_code,NULL,CURRENCY_CODE,p_currency_code),
AMOUNT = decode(p_amount, NULL, AMOUNT,p_amount),
INVOICES = decode(p_invoices,NULL,INVOICES,p_invoices),
RESPONSIBILITY_ID = decode(p_responsibility_id,NULL,RESPONSIBILITY_ID,p_responsibility_id),
OPERATING_UNIT = decode(p_operating_unit,NULL,OPERATING_UNIT,p_operating_unit),
TRANSACTIONID = decode(p_transaction_id,NULL,TRANSACTIONID,p_transaction_id)
where PAYMENT_AUDIT_ID = l_payment_audit_id;
l_debug_info := 'After Update';
END Update_Payment_Audit;