1: PACKAGE BODY Ibc_Object_Permissions_Pkg AS
2: /* $Header: ibctopeb.pls 115.1 2002/11/13 23:47:10 vicho ship $ */
3:
4: -- MODIFICATION HISTORY
5: -- Person Date Comments
16: p_LAST_UPDATE_DATE IN DATE,
17: p_LAST_UPDATED_BY IN NUMBER,
18: p_LAST_UPDATE_LOGIN IN NUMBER
19: ) IS
20: CURSOR C IS SELECT ROWID FROM IBC_OBJECT_PERMISSIONS
21: WHERE OBJECT_ID = P_OBJECT_ID;
22: BEGIN
23: INSERT INTO IBC_OBJECT_PERMISSIONS (
24: OBJECT_ID,
19: ) IS
20: CURSOR C IS SELECT ROWID FROM IBC_OBJECT_PERMISSIONS
21: WHERE OBJECT_ID = P_OBJECT_ID;
22: BEGIN
23: INSERT INTO IBC_OBJECT_PERMISSIONS (
24: OBJECT_ID,
25: PERMISSIONS_LOOKUP_TYPE,
26: OBJECT_VERSION_NUMBER,
27: CREATION_DATE,
57: ) IS
58: CURSOR c IS SELECT
59: PERMISSIONS_LOOKUP_TYPE,
60: OBJECT_VERSION_NUMBER
61: FROM IBC_OBJECT_PERMISSIONS
62: WHERE OBJECT_ID = P_OBJECT_ID
63: FOR UPDATE OF OBJECT_ID NOWAIT;
64: recinfo c%ROWTYPE;
65:
92: p_LAST_UPDATE_LOGIN IN NUMBER,
93: p_OBJECT_VERSION_NUMBER IN NUMBER
94: ) IS
95: BEGIN
96: UPDATE IBC_OBJECT_PERMISSIONS SET
97: PERMISSIONS_LOOKUP_TYPE = P_PERMISSIONS_LOOKUP_TYPE,
98: OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1,
99: last_update_date = DECODE(p_last_update_date, FND_API.G_MISS_DATE, SYSDATE,
100: NULL, SYSDATE, p_last_update_date),
120: P_OBJECT_ID IN NUMBER
121: ) IS
122: BEGIN
123:
124: DELETE FROM IBC_OBJECT_PERMISSIONS
125: WHERE OBJECT_ID = P_OBJECT_ID;
126:
127: IF (SQL%NOTFOUND) THEN
128: RAISE NO_DATA_FOUND;
166:
167: END LOAD_ROW;
168:
169:
170: END Ibc_Object_Permissions_Pkg;