The following lines contain the word 'select', 'insert', 'update' or 'delete':
select count(*)
into n
from AMW_SIGNIFICANT_ELEMENTS
where pk1 = P_OBJECT_ID
and object_type = P_OBJECT_TYPE
and element_code = P_ELEMENT_CODE;
p_select_flag IN VARCHAR2,
p_object_id IN NUMBER,
p_object_type IN VARCHAR2,
p_element_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_SIGNIFICANT_ELEMENTS
where pk1 = p_object_id
and object_type = p_object_type
and element_code = p_element_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_SIGNIFICANT_ELEMENT_S.nextval into l_significant_element_id from dual;
insert into AMW_SIGNIFICANT_ELEMENTS (
significant_element_id,
object_type,
pk1,
element_code,
creation_date,
created_by,
last_update_date,
last_updated_by,
last_update_login,
object_version_number
) values (
l_significant_element_id,
p_object_type,
p_object_id,
p_element_code,
l_creation_date,
l_created_by,
l_last_update_date,
l_last_updated_by,
l_last_update_login,
l_object_version_number
);
select 1 into n
from AMW_SIGNIFICANT_ELEMENTS
where pk1 = P_OBJECT_ID
and object_type = P_OBJECT_TYPE
and element_code = P_ELEMENT_CODE
and deletion_date is null;
select 1 into n
from AMW_SIGNIFICANT_ELEMENTS ASE,
AMW_PROCESS AP
where AP.process_rev_id = P_OBJECT_ID
and ASE.pk1 = AP.PROCESS_ID
and ASE.object_type = P_OBJECT_TYPE
and ASE.element_code = P_ELEMENT_CODE
-- and ASE.approval_date <= AP.approval_end_date
and (ASE.deletion_approval_date IS NULL OR ASE.deletion_approval_date > AP.approval_end_date)
and (ASE.approval_date <= AP.approval_end_date OR AP.approval_end_date is null);