The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Delete_Risk_Types(
p_setup_risk_type_id IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validate_only IN VARCHAR2 := FND_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)IS
l_setup_risk_type_id NUMBER;
SAVEPOINT Delete_Risk_Types_Save;
delete from AMW_SETUP_RISK_TYPES_B
where SETUP_RISK_TYPE_ID = l_risk_type_list(i);
delete from AMW_SETUP_RISK_TYPES_TL
where SETUP_RISK_TYPE_ID = l_risk_type_list(i)
and SETUP_RISK_TYPE_ID not in (
select SETUP_RISK_TYPE_ID from AMW_SETUP_RISK_TYPES_B
)
and SETUP_RISK_TYPE_ID not in (
select PARENT_SETUP_RISK_TYPE_ID from AMW_SETUP_RISK_TYPES_B
where parent_setup_risk_type_id is not null
);
delete from AMW_RISK_TYPE
where RISK_TYPE_CODE = (
select RISK_TYPE_CODE
from AMW_SETUP_RISK_TYPES_B
where SETUP_RISK_TYPE_ID = l_risk_type_list(i)
);
ROLLBACK TO Delete_Risk_Types_Save;
ROLLBACK TO Delete_Risk_Types_Save;
p_procedure_name => 'Delete_Risk_Types',
p_error_text => SUBSTRB(SQLERRM,1,240));
END Delete_Risk_Types;
update AMW_SETUP_RISK_TYPES_B
set END_DATE = p_end_date
where SETUP_RISK_TYPE_ID = l_risk_type_list(0);
update AMW_SETUP_RISK_TYPES_B
set END_DATE = p_end_date
where SETUP_RISK_TYPE_ID = l_risk_type_list(i)
and (END_DATE IS NULL OR END_DATE > p_end_date);
select count(*)
into n
from amw_risk_type
where risk_rev_id = p_risk_rev_id
and risk_type_code = p_risk_type_code;
select count(*)
into n
from amw_risk_type
where risk_rev_id = p_risk_rev_id
and risk_type_code = p_risk_type_code;
select meaning
into yes
from fnd_lookups
where lookup_type='YES_NO'
and lookup_code='Y';
select meaning
into no
from fnd_lookups
where lookup_type='YES_NO'
and lookup_code='N';
SELECT assoc.risk_type_id
from amw_risk_type assoc,
amw_setup_risk_types_b rt,
amw_compliance_env_assocs compEnv
where assoc.risk_rev_id = l_risk_rev_id
and rt.setup_risk_type_id = l_setup_risk_type_id
and assoc.risk_type_code = rt.risk_type_code
and compEnv.object_type = 'SETUP_RISK_TYPE'
and compEnv.pk1 = l_setup_risk_type_id
and compEnv.compliance_env_id = l_compliance_env_id;
p_select_flag IN VARCHAR2,
p_risk_rev_id IN NUMBER,
p_risk_type_code IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)IS
l_creation_date date;
l_last_update_date date;
l_last_updated_by number;
l_last_update_login number;
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
l_creation_date := SYSDATE;
l_last_update_date := SYSDATE;
l_last_updated_by := FND_GLOBAL.USER_ID;
l_last_update_login := FND_GLOBAL.USER_ID;
select amw_risk_type_s.nextval into l_risk_type_assoc_id from dual;
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_assoc_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,
l_object_version_number);
SELECT SETUP_RISK_TYPE_ID
from amw_setup_risk_types_b
where PARENT_SETUP_RISK_TYPE_ID = l_setup_risk_type_id;
SELECT count(*)
from amw_setup_risk_types_b
where PARENT_SETUP_RISK_TYPE_ID = l_setup_risk_type_id;
SELECT PARENT_SETUP_RISK_TYPE_ID
from amw_setup_risk_types_b
where SETUP_RISK_TYPE_ID = l_setup_risk_type_id;
SELECT COMPLIANCE_ENV_ID
from amw_compliance_env_assocs
where OBJECT_TYPE = 'SETUP_RISK_TYPE'
and PK1 = l_setup_risk_type_id;
SELECT count(*)
from amw_risk_type assoc,
amw_setup_risk_types_b rt
where rt.setup_risk_type_id = l_setup_risk_type_id
and assoc.risk_type_code = rt.risk_type_code;
p_procedure_name => 'Delete_Risk_Types',
p_error_text => SUBSTRB(SQLERRM,1,240));