The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_rejections(
p_parent_table IN VARCHAR2,
p_parent_id IN NUMBER,
p_reject_code IN VARCHAR2,
p_last_updated_by IN NUMBER,
p_last_update_login IN NUMBER,
p_calling_sequence IN VARCHAR2) IS
l_debug_loc VARCHAR2(30) := 'Insert_Rejections';
l_debug_info := 'Insert rejection information to ap_interface_rejections';
INSERT INTO ap_interface_rejections(
parent_table,
parent_id,
reject_lookup_code,
last_updated_by,
last_update_date,
last_update_login,
created_by,
creation_date)
VALUES (p_parent_table,
p_parent_id,
p_reject_code,
p_last_updated_by,
sysdate,
p_last_update_login,
p_last_updated_by,
sysdate);
||', Last Updated By = '||to_char(p_last_updated_by)
||', Last Update Date = '||to_char(p_last_update_login));
END Insert_rejections;
PROCEDURE update_ra_customers_interface(
p_code IN VARCHAR2,
p_row_id IN VARCHAR2,
p_current_status IN VARCHAR2) IS
BEGIN
IF p_current_status = 'E' THEN
UPDATE ra_customers_interface
SET interface_status = interface_status||p_code
WHERE ROWID = p_row_id;
UPDATE ra_customers_interface
SET warning_text = warning_text||p_code
WHERE rowid = p_row_id;
arp_standard.debug('Exception in JG_GLOBE_FLEX_VAL1.UPDATE_RA_CUSTOMERS_INTERFACE()');
END update_ra_customers_interface;
PROCEDURE update_interface_status(
p_rowid IN VARCHAR2,
p_table_name IN VARCHAR2,
p_code IN VARCHAR2,
p_current_status IN VARCHAR2) IS
TYPE TableName IS TABLE OF VARCHAR(30) INDEX BY BINARY_INTEGER;
l_sql_stmt_upd := 'UPDATE ' || l_table_name;