--@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;