3535:
3536: begin
3537:
3538: query_to_exec := 'select process_id from AMW_CURRENT_APPRVD_REV_V where process_id = -1 and '||p_predicate;
3539: cursor_select := DBMS_SQL.OPEN_CURSOR;
3540: DBMS_SQL.PARSE(cursor_select, query_to_exec, DBMS_SQL.NATIVE);
3541: cursor_execute := DBMS_SQL.EXECUTE(cursor_select);
3542: IF DBMS_SQL.FETCH_ROWS(cursor_select) > 0 THEN
3543: l_hasaccess := 'Y';
3536: begin
3537:
3538: query_to_exec := 'select process_id from AMW_CURRENT_APPRVD_REV_V where process_id = -1 and '||p_predicate;
3539: cursor_select := DBMS_SQL.OPEN_CURSOR;
3540: DBMS_SQL.PARSE(cursor_select, query_to_exec, DBMS_SQL.NATIVE);
3541: cursor_execute := DBMS_SQL.EXECUTE(cursor_select);
3542: IF DBMS_SQL.FETCH_ROWS(cursor_select) > 0 THEN
3543: l_hasaccess := 'Y';
3544: ELSE
3537:
3538: query_to_exec := 'select process_id from AMW_CURRENT_APPRVD_REV_V where process_id = -1 and '||p_predicate;
3539: cursor_select := DBMS_SQL.OPEN_CURSOR;
3540: DBMS_SQL.PARSE(cursor_select, query_to_exec, DBMS_SQL.NATIVE);
3541: cursor_execute := DBMS_SQL.EXECUTE(cursor_select);
3542: IF DBMS_SQL.FETCH_ROWS(cursor_select) > 0 THEN
3543: l_hasaccess := 'Y';
3544: ELSE
3545: l_hasaccess := 'N';
3538: query_to_exec := 'select process_id from AMW_CURRENT_APPRVD_REV_V where process_id = -1 and '||p_predicate;
3539: cursor_select := DBMS_SQL.OPEN_CURSOR;
3540: DBMS_SQL.PARSE(cursor_select, query_to_exec, DBMS_SQL.NATIVE);
3541: cursor_execute := DBMS_SQL.EXECUTE(cursor_select);
3542: IF DBMS_SQL.FETCH_ROWS(cursor_select) > 0 THEN
3543: l_hasaccess := 'Y';
3544: ELSE
3545: l_hasaccess := 'N';
3546: END IF;
3543: l_hasaccess := 'Y';
3544: ELSE
3545: l_hasaccess := 'N';
3546: END IF;
3547: DBMS_SQL.CLOSE_CURSOR(cursor_select);
3548:
3549: p_hasAccess := l_hasAccess;
3550:
3551: end Check_Root_Access;