1: PACKAGE BODY Ibc_Object_Grant_Groups_Pkg AS
2: /* $Header: ibctoggb.pls 115.3 2003/12/09 22:44:10 enunez ship $ */
3:
4: -- MODIFICATION HISTORY
5: -- Person Date Comments
28: p_LAST_UPDATE_DATE IN DATE,
29: p_LAST_UPDATED_BY IN NUMBER,
30: p_LAST_UPDATE_LOGIN IN NUMBER
31: ) IS
32: CURSOR C IS SELECT ROWID FROM IBC_OBJECT_GRANT_GROUPS
33: WHERE OBJECT_GRANT_GROUP_ID = P_OBJECT_GRANT_GROUP_ID
34: ;
35: BEGIN
36: INSERT INTO IBC_OBJECT_GRANT_GROUPS (
32: CURSOR C IS SELECT ROWID FROM IBC_OBJECT_GRANT_GROUPS
33: WHERE OBJECT_GRANT_GROUP_ID = P_OBJECT_GRANT_GROUP_ID
34: ;
35: BEGIN
36: INSERT INTO IBC_OBJECT_GRANT_GROUPS (
37: OBJECT_VERSION_NUMBER,
38: OBJECT_GRANT_GROUP_ID,
39: GRANT_GROUP_ID,
40: OBJECT_ID,
106: INSTANCE_PK3_VALUE,
107: INSTANCE_PK4_VALUE,
108: INSTANCE_PK5_VALUE,
109: INHERITANCE_TYPE
110: FROM IBC_OBJECT_GRANT_GROUPS
111: WHERE OBJECT_GRANT_GROUP_ID = P_OBJECT_GRANT_GROUP_ID
112: FOR UPDATE OF OBJECT_GRANT_GROUP_ID NOWAIT;
113: recinfo c%ROWTYPE;
114:
164: p_LAST_UPDATE_DATE IN DATE,
165: p_LAST_UPDATE_LOGIN IN NUMBER
166: ) IS
167: BEGIN
168: UPDATE IBC_OBJECT_GRANT_GROUPS SET
169: OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1,
170: GRANT_GROUP_ID = P_GRANT_GROUP_ID,
171: OBJECT_ID = P_OBJECT_ID,
172: INHERITED_FLAG = P_INHERITED_FLAG,
201: P_OBJECT_GRANT_GROUP_ID IN NUMBER
202: ) IS
203: BEGIN
204:
205: DELETE FROM IBC_OBJECT_GRANT_GROUPS
206: WHERE OBJECT_GRANT_GROUP_ID = P_OBJECT_GRANT_GROUP_ID;
207:
208: IF (SQL%NOTFOUND) THEN
209: RAISE NO_DATA_FOUND;
210: END IF;
211: END DELETE_ROW;
212:
213:
214: END Ibc_Object_Grant_Groups_Pkg;