The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure DELETE (
p_business_object IN VARCHAR2,
p_appl_short_name IN VARCHAR2,
p_primary_key IN VARCHAR2 := FND_API.G_MISS_CHAR,
p_return_status OUT NOCOPY VARCHAR2,
p_delete_cascade IN VARCHAR2 := 'Y'
) is
cursor l_get_appl_id_csr (short_name_param varchar2) is
select application_id
from fnd_application
where application_short_name = short_name_param;
l_api_name CONSTANT varchar2(30) := 'Delete';
AK_ON_OBJECTS_PUB.G_LOAD_MODE := 'DELETE';
FND_MESSAGE.SET_NAME('AK','AK_START_DELETE_SESSION');
AK_REGION_GRP.DELETE_REGION (
-- p_validation_level => FND_API.G_VALID_LEVEL_NONE,
p_api_version_number => 1.0,
p_init_msg_tbl => TRUE,
p_msg_count => l_msg_count,
p_msg_data => l_msg_data,
p_return_status => l_return_status,
p_region_application_id => l_appl_id,
p_region_code => upper(l_object_pk),
p_delete_cascade => p_delete_cascade
);
FND_MESSAGE.SET_NAME('AK','AK_END_DELETE_SESSION');
end DELETE;