The following lines contain the word 'select', 'insert', 'update' or 'delete':
IS SELECT to_char(OE_PC_FILE_SEQUENCE_S.nextval)
FROM DUAL;
IS SELECT application_short_name, db_object_name, entity_id
FROM OE_PC_ENTITIES_V
where application_id = p_application_id
AND entity_short_name = p_entity_short_name;
utl_file.put_line(l_bodyFileHandle , ' IS SELECT ');
utl_file.put_line(l_bodyFileHandle , ' SELECT DISTINCT');
utl_file.put_line(l_bodyFileHandle , ' SELECT ' || l_Q || 'EXISTS' || l_Q);
utl_file.put_line(l_bodyFileHandle , '-- Cursor to select all update constraints that are applicable to insert');
utl_file.put_line(l_bodyFileHandle , ' CURSOR C_CHECK_ON_INSERT ');
utl_file.put_line(l_bodyFileHandle , ' SELECT DISTINCT');
utl_file.put_line(l_bodyFileHandle , ' AND c.constrained_operation = OE_PC_GLOBALS.UPDATE_OP');
utl_file.put_line(l_bodyFileHandle , ' AND c.check_on_insert_flag = ''Y''');
utl_file.put_line(l_bodyFileHandle , ' SELECT ' || l_Q || 'EXISTS' || l_Q);
utl_file.put_line(l_bodyFileHandle , ' FOR c_rec in C_CHECK_ON_INSERT LOOP');
SELECT 'FND_RESP'||R.application_id||':'||R.responsibility_id role_name
, R.responsibility_name role_display_name
FROM FND_RESPONSIBILITY_VL R
WHERE R.responsibility_id NOT IN (SELECT NVL(responsibility_id,R.responsibility_id)
FROM OE_PC_ASSIGNMENTS
WHERE CONSTRAINT_ID = p_constraint_id
)
ORDER BY role_display_name;
SELECT 'FND_RESP'||R.application_id||':'||R.responsibility_id role_name
, R.responsibility_name role_display_name
FROM FND_RESPONSIBILITY_VL R
, OE_PC_EXCLUSIONS E
WHERE E.assignment_id = (SELECT assignment_id
FROM oe_pc_assignments
WHERE constraint_id = p_constraint_id
AND responsibility_id IS NULL)
AND E.responsibility_id = R.responsibility_id
AND E.application_id = R.application_id --added for bug3631547
ORDER BY role_display_name;
IF p_operation = OE_PC_GLOBALS.UPDATE_OP THEN
IF p_attribute_name IS NOT NULL THEN
IF nvl(p_group_number,-1) = -1 THEN
FND_MESSAGE.SET_NAME('ONT','OE_PC_UPDATE_FIELD_NO_CONDN');
FND_MESSAGE.SET_NAME('ONT','OE_PC_UPDATE_FIELD_VIOLATION');
FND_MESSAGE.SET_NAME('ONT','OE_PC_UPDATE_NO_CONDN');
FND_MESSAGE.SET_NAME('ONT','OE_PC_UPDATE_VIOLATION');
ELSIF p_operation = OE_PC_GLOBALS.DELETE_OP THEN
IF nvl(p_group_number,-1) = -1 THEN
FND_MESSAGE.SET_NAME('ONT','OE_PC_DELETE_NO_CONDN');
FND_MESSAGE.SET_NAME('ONT','OE_PC_DELETE_VIOLATION');
SELECT USER_MESSAGE msg
FROM OE_PC_CONDITIONS_VL
WHERE CONSTRAINT_ID = p_constraint_id
AND GROUP_NUMBER = p_group_number
AND ENABLED_FLAG = 'Y'; --for bug 9967228;
select o.entity_code, a.name
into l_entity_code, l_object_name
from oe_ak_objects_ext o, ak_objects_vl a
where o.database_object_name = p_database_object_name
and o.application_id = p_application_id
and a.database_object_name = o.database_object_name
and a.application_id = o.application_id;
OR l_operation = OE_PC_GLOBALS.UPDATE_OP
THEN
SELECT c.constrained_operation, c.column_name
INTO l_operation, l_column_name
FROM oe_pc_constraints c
WHERE c.constraint_id = p_constraint_id;
SELECT a.attribute_label_long
INTO l_attribute_name
FROM ak_object_attributes_vl a
WHERE column_name = l_column_name
AND database_object_name = p_database_object_name
AND attribute_application_id = p_application_id;
OE_MSG_PUB.Update_Msg_Context
( p_entity_code => l_entity_code
, p_constraint_id => p_constraint_id );
OE_MSG_PUB.Update_Msg_Context
( p_entity_code => l_entity_code
, p_constraint_id => null );