[Home] [Help]
303: -- API name : Initialize_Access_Changes
304: -- TYPE : PRIVATE
305: -- Pre-reqs : Valid user has logged in
306: --
307: -- FUNCTION : To populate temporary table ENG_LOGIN_ACCESS_CHANGES
308: -- with the changes onto which the user can give access
309: --
310: -- Parameters:
311: -- IN : NONE
327: l_program_name VARCHAR2(99) := 'INITIALIZE_ACCESS_CHANGES';
328:
329: BEGIN
330:
331: --EXECUTE IMMEDIATE 'TRUNCATE TABLE ENG_LOGIN_ACCESS_CHANGES';
332: DELETE ENG_LOGIN_ACCESS_CHANGES;
333:
334: l_select_sql := 'SELECT OUT_ENG_CHANGES.CHANGE_NOTICE, OUT_ENG_CHANGES.CHANGE_MGMT_TYPE_CODE, OUT_ENG_CHANGES.ORGANIZATION_ID '
335: || 'FROM ENG_ENGINEERING_CHANGES OUT_ENG_CHANGES ';
328:
329: BEGIN
330:
331: --EXECUTE IMMEDIATE 'TRUNCATE TABLE ENG_LOGIN_ACCESS_CHANGES';
332: DELETE ENG_LOGIN_ACCESS_CHANGES;
333:
334: l_select_sql := 'SELECT OUT_ENG_CHANGES.CHANGE_NOTICE, OUT_ENG_CHANGES.CHANGE_MGMT_TYPE_CODE, OUT_ENG_CHANGES.ORGANIZATION_ID '
335: || 'FROM ENG_ENGINEERING_CHANGES OUT_ENG_CHANGES ';
336:
350:
351: if (l_sec_predicate IS NOT NULL) then
352: l_select_sql := l_select_sql || ' WHERE ' || l_sec_predicate ;
353: end if;
354: l_insert_sql := 'INSERT INTO ENG_LOGIN_ACCESS_CHANGES(CHANGE_NOTICE,CHANGE_MGMT_TYPE_CODE,ORGANIZATION_ID) VALUES (:l_change_notice_table, :l_change_mgmt_type_code_table,:l_org_id_table) ';
355:
356: cursor_select := DBMS_SQL.OPEN_CURSOR;
357: cursor_insert := DBMS_SQL.OPEN_CURSOR;
358: DBMS_SQL.PARSE(cursor_select,l_select_sql,DBMS_SQL.NATIVE);
1238: --
1239: CURSOR c_get_grant_privileges (cp_change_notice IN NUMBER
1240: ,cp_organization_id IN NUMBER) IS
1241: SELECT change_notice
1242: FROM ENG_LOGIN_ACCESS_CHANGES
1243: WHERE change_notice = cp_change_notice
1244: AND organization_id = cp_organization_id;
1245:
1246: --