هل هذا الكود صحيح برمجيا

[hazeb03]

أود السؤال هل هذا الكود صحيح برمجيا من أجل الفحص وإعادة رساله في حالة وجد اسم المستخدم؟ أو هناك كود أكثر منطقيا منه
والعفو منكم :angry:
create or replace procedure add_useraccount(p_username in privilege.username%type,
p_password in privilege.password%type,
p_privi in privilege.username%type,
p_error out varchar2)
is
v_username privilege.username%type;
ch boolean:=false;
cursor user_cursor is
select username
from privilege;
begin
open user_cursor;
loop
fetch user_cursor into v_username;
if (v_username=p_username) then
ch:=true;
end if;
exit when ((user_cursor%notfound) or (user_cursor%notfound is null));
end loop;
close user_cursor;
if not(ch) then
insert into privilege
values(p_username,p_password,p_privi);
commit;
else
p_error:='the user and password is found';
end if;
end add_useraccount;
/