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

BEGIN
   Base(code_, check_validity_, validity_ref_date_);
END Exist;