The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_delete_risk_type (
p_risk_rev_id IN NUMBER := NULL,
p_risk_type_code IN VARCHAR2 := NULL,
p_select_flag IN VARCHAR2 := NULL,
p_commit IN VARCHAR2 := fnd_api.g_false,
p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_api_version_number IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_api_name CONSTANT VARCHAR2 (30) := 'increase_delete_risk_type';
l_last_update_date date;
l_last_updated_by number;
l_last_update_login number;
(select count(*) from amw_risk_type
where risk_rev_id = p_risk_rev_id
and risk_type_code = p_risk_type_code);
IF (p_select_flag = 'N') then
OPEN C1;
delete from amw_risk_type
where risk_rev_id = p_risk_rev_id
and risk_type_code = p_risk_type_code;
IF (p_select_flag = 'Y') then
OPEN C1;
select amw_risk_type_s.nextval into l_risk_type_id from dual;
l_last_update_date := SYSDATE;
l_last_updated_by := FND_GLOBAL.USER_ID;
l_last_update_login := FND_GLOBAL.USER_ID;
insert into amw_risk_type (risk_type_id,
risk_rev_id,
risk_type_code,
creation_date,
created_by,
last_update_date,
last_updated_by,
last_update_login,
object_version_number)
values (l_risk_type_id,
p_risk_rev_id,
p_risk_type_code,
l_creation_date,
l_created_by,
l_last_update_date,
l_last_updated_by,
l_last_update_login,
1);
END insert_delete_risk_type;
insert into AMW_RISK_TYPE (
risk_type_id
,risk_rev_id
,risk_type_code
,creation_date
,created_by
,last_update_date
,last_updated_by
,last_update_login
,object_version_number
)
select
amw_risk_type_s.nextval
,p_risk_rev_id
,old.RISK_TYPE_CODE
,sysdate
,FND_GLOBAL.USER_ID
,sysdate
,FND_GLOBAL.USER_ID
,FND_GLOBAL.USER_ID
,1
from AMW_RISK_TYPE old
where old.RISK_REV_ID = p_old_risk_rev_id;