[Home] [Help]
13: WSH_GRANT_OVERLAP EXCEPTION;
14:
15: CURSOR c_grant_overlap IS
16: SELECT grant_id
17: FROM wsh_grants
18: WHERE user_id = p_grant_record.user_id
19: AND NVL(organization_id, NVL(p_grant_record.organization_id, -1))
20: = NVL(p_grant_record.organization_id, NVL(organization_id, -1))
21: AND (
32: )
33: AND rownum = 1;
34:
35: CURSOR c_new_grant_id IS
36: SELECT wsh_grants_s.nextval FROM DUAL;
37:
38: CURSOR c_grant_rowid(x_grant_id IN NUMBER) IS
39: SELECT rowid FROM WSH_GRANTS WHERE grant_id = x_grant_id;
40:
35: CURSOR c_new_grant_id IS
36: SELECT wsh_grants_s.nextval FROM DUAL;
37:
38: CURSOR c_grant_rowid(x_grant_id IN NUMBER) IS
39: SELECT rowid FROM WSH_GRANTS WHERE grant_id = x_grant_id;
40:
41: l_grant_id NUMBER(15) := NULL;
42: l_overlap_id NUMBER(15) := NULL;
43: l_rowid VARCHAR2(18) := '';
86: FETCH c_new_grant_id INTO l_grant_id;
87: CLOSE c_new_grant_id;
88: END IF;
89:
90: INSERT INTO WSH_GRANTS (
91: GRANT_ID,
92: USER_ID,
93: ROLE_ID,
94: ORGANIZATION_ID,
164: p_rowid IN VARCHAR2,
165: p_grant_record IN Grant_Type) IS
166:
167: CURSOR c_lock_grant IS
168: SELECT * FROM WSH_GRANTS
169: WHERE rowid = p_rowid
170: FOR UPDATE OF GRANT_ID NOWAIT;
171:
172: l_db_rec c_lock_grant%ROWTYPE;
298: WSH_GRANT_OVERLAP EXCEPTION;
299:
300: CURSOR c_grant_overlap IS
301: SELECT grant_id
302: FROM wsh_grants
303: WHERE user_id = p_grant_record.user_id
304: AND NVL(organization_id, NVL(p_grant_record.organization_id, -1))
305: = NVL(p_grant_record.organization_id, NVL(organization_id, -1))
306: AND (
356: --
357: WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
358: END IF;
359: --
360: UPDATE WSH_GRANTS
361: SET
362: USER_ID = p_grant_record.USER_ID,
363: ROLE_ID = p_grant_record.ROLE_ID,
364: ORGANIZATION_ID = p_grant_record.ORGANIZATION_ID,
439: --
440: WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
441: END IF;
442: --
443: DELETE FROM WSH_GRANTS
444: WHERE rowid = p_rowid;
445: IF SQL%NOTFOUND THEN
446: RAISE NO_DATA_FOUND;
447: END IF;