The following lines contain the word 'select', 'insert', 'update' or 'delete':
G_LAST_UPDATE_DATE DATE := Sysdate;
G_LAST_UPDATED_BY NUMBER := fnd_global.user_id;
G_LAST_UPDATE_LOGIN NUMBER := fnd_global.login_id;
SELECT group_relate_id, object_version_number
INTO l_group_relate_id, l_object_version_number
FROM jtf_rs_grp_relations
WHERE group_id = p_comp_group_rec.comp_group_id
AND related_group_id = p_comp_group_rec.parent_comp_group_id
AND start_date_active = p_comp_group_rec.comp_group_start_date
AND end_date_active = p_comp_group_rec.comp_group_end_date
AND relation_type = l_relation_type;
SELECT group_number
INTO l_group_number
FROM jtf_rs_groups_b
WHERE group_id = p_comp_group_rec.comp_group_id;
SELECT group_number
INTO l_parent_group_number
FROM jtf_rs_groups_b
WHERE group_id = p_comp_group_rec.parent_comp_group_id;
jtf_rs_group_relate_pub.update_resource_group_relate
(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
p_commit => p_commit,
p_group_relate_id => l_group_relate_id,
p_start_date_active => p_comp_group_rec.comp_group_start_date,
p_end_date_active => p_effective_move_date,
p_object_version_num => l_object_version_number,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);