--@IgnoreMissingSysinit PROCEDURE Exist ( person_code_ IN VARCHAR2, check_validity_ IN BOOLEAN DEFAULT TRUE ) IS PROCEDURE Base ( person_code_ IN VARCHAR2, check_validity_ IN BOOLEAN DEFAULT TRUE ) IS validity_ VARCHAR2(10); BEGIN validity_ := Check_Validity___(person_code_); IF (validity_ = 'NOTEXIST') THEN Raise_Record_Not_Exist___(person_code_); ELSIF (check_validity_ AND validity_ = 'BLOCKED') THEN Raise_Record_Access_Blocked___(person_code_); END IF; END Base; BEGIN Base(person_code_, check_validity_); END Exist;