The following lines contain the word 'select', 'insert', 'update' or 'delete':
p_create_update_flag IN VARCHAR2,
p_obj_source IN VARCHAR2 := null,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)IS
l_cp_id NUMBER;
IF(p_create_update_flag = 'C') THEN
-----------------------------
-- Create phone contact point
-----------------------------
IF((p_phone_objs IS NOT NULL) AND (p_phone_objs.COUNT > 0)) THEN
l_current_cp_type := 'PHONE';