مشكلة في تغيير كلمة السر

ايش المشكلة في هذا الكود لتغير كلمة السر في الداتابيس

declare

p number;

begin

select password into p from usr where id=:usr1.id and username=:usr1.username;

if (p=:usr1.opassword)then

update usr

set password=:usr1.npassword

where id=:usr1.id;

commit;

--:usr1.new:=p;

--go_block('view');

--refresh;

else

message('sorry user name or old password is wrong try again');

message('sorry user name or old password is wrong try again');

raise form_trigger_failure;

end if;

end;