your code shoud stay like this:
CREATE OR REPLACE PROCEDURE sp_adduser
(pid IN contact.person_id%TYPE,
email IN contact.e_mail%TYPE,
pass IN contact.PASSWORD%TYPE,
ret OUT NUMBER )
AS
cnt NUMBER;
procedure_error EXCEPTION;
BEGIN
SELECT COUNT(*) INTO cnt FROM contact;
IF cnt > 0...