The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT EXPORT_TO_AP_FLAG,
EXPORT_TO_AR_FLAG,
EXPORT_CURRENCY_CODE,
RATE,
DUE_DATE,
AP_INVOICE_NUM,
GROUPING_RULE_ID
FROM PN_PAYMENT_ITEMS_ALL
WHERE PAYMENT_ITEM_ID = X_PAYMENT_ITEM_ID
FOR UPDATE OF PAYMENT_ITEM_ID NOWAIT;
SELECT PERIOD_NAME
FROM PN_PAYMENT_SCHEDULES_ALL
WHERE PAYMENT_SCHEDULE_ID = X_PAYMENT_SCHEDULE_ID
FOR UPDATE OF PAYMENT_SCHEDULE_ID NOWAIT;
PROCEDURE UPDATE_ROW (
X_PAYMENT_ITEM_ID IN NUMBER,
X_EXPORT_TO_AP_FLAG IN VARCHAR2,
X_EXPORT_TO_AR_FLAG IN VARCHAR2,
X_EXPORT_AMOUNT IN NUMBER,
X_NORM_ITM_ID IN NUMBER,
X_NORM_EXP_AMT IN NUMBER,
X_EXPORT_CURRENCY_CODE IN VARCHAR2,
X_RATE IN NUMBER,
X_LAST_UPDATE_DATE IN DATE,
X_LAST_UPDATED_BY IN NUMBER,
X_LAST_UPDATE_LOGIN IN NUMBER,
X_PAYMENT_SCHEDULE_ID IN NUMBER,
X_PERIOD_NAME IN VARCHAR2,
X_DUE_DATE IN DATE,
X_AP_INVOICE_NUM IN VARCHAR2,
X_GROUPING_RULE_ID IN NUMBER
)
IS
l_info_text VARCHAR2(100);
UPDATE PN_PAYMENT_ITEMS_ALL
SET export_currency_amount = l_norm_export_amt,
export_currency_code = x_export_currency_code,
rate = x_rate,
accounted_amount = actual_amount * x_rate,
last_update_date = x_last_update_date,
last_updated_by = x_last_updated_by,
last_update_login = x_last_update_login
WHERE payment_item_id = x_norm_itm_id;
UPDATE PN_PAYMENT_ITEMS_ALL
SET EXPORT_TO_AP_FLAG = X_EXPORT_TO_AP_FLAG,
EXPORT_TO_AR_FLAG = X_EXPORT_TO_AR_FLAG,
EXPORT_CURRENCY_AMOUNT = l_export_amt,
EXPORT_CURRENCY_CODE = X_EXPORT_CURRENCY_CODE,
RATE = X_RATE,
ACCOUNTED_AMOUNT = ACTUAL_AMOUNT * X_RATE,
DUE_DATE = X_DUE_DATE,
AP_INVOICE_NUM = X_AP_INVOICE_NUM,
GROUPING_RULE_ID = X_GROUPING_RULE_ID,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
WHERE PAYMENT_ITEM_ID = X_PAYMENT_ITEM_ID;
UPDATE PN_PAYMENT_SCHEDULES_ALL
SET PERIOD_NAME = X_PERIOD_NAME
WHERE PAYMENT_SCHEDULE_ID = X_PAYMENT_SCHEDULE_ID;
END update_row;