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