[Home] [Help]
148: l_grant_update_flag igs_sc_grants.grant_update_flag%TYPE;
149: l_grant_insert_flag igs_sc_grants.grant_insert_flag%TYPE;
150: l_locked_flag igs_sc_grants.locked_flag%TYPE := 'N';
151: l_function_id igs_sc_obj_functns.function_id%TYPE;
152: l_obj_group_id igs_sc_objects.object_id%TYPE;
153: l_user_group_id wf_local_roles.orig_system_id%TYPE;
154:
155: BEGIN
156: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
1258: /******************************************************************
1259: Created By : Don Shellito
1260: Date Created By : April 23, 2003
1261: Purpose : The purpose of this procedure is to handle
1262: the insertion of the data into igs_sc_objects
1263: table. This ensures a link between the object
1264: groups and the fnd objects resident in the system.
1265: There is validation to ensure that the object_id,
1266: and the obj_group_id are valid and present in the
1275: ******************************************************************/
1276: PROCEDURE Insert_Object (p_api_version IN NUMBER,
1277: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1278: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1279: p_object_id IN OUT NOCOPY igs_sc_objects.object_id%TYPE,
1280: p_obj_group_id IN igs_sc_objects.obj_group_id%TYPE,
1281: p_obj_name IN fnd_objects.obj_name%TYPE ,
1282: p_database_object_name IN fnd_objects.database_object_name%TYPE ,
1283: p_pk1_column_name IN fnd_objects.pk1_column_name%TYPE ,
1276: PROCEDURE Insert_Object (p_api_version IN NUMBER,
1277: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1278: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1279: p_object_id IN OUT NOCOPY igs_sc_objects.object_id%TYPE,
1280: p_obj_group_id IN igs_sc_objects.obj_group_id%TYPE,
1281: p_obj_name IN fnd_objects.obj_name%TYPE ,
1282: p_database_object_name IN fnd_objects.database_object_name%TYPE ,
1283: p_pk1_column_name IN fnd_objects.pk1_column_name%TYPE ,
1284: p_pk2_column_name IN fnd_objects.pk2_column_name%TYPE ,
1308: l_api_version CONSTANT NUMBER := 1.0;
1309: l_return_message VARCHAR2(2000);
1310: l_message_count NUMBER(15);
1311: l_return_status VARCHAR2(30);
1312: l_object_id igs_sc_objects.object_id%TYPE;
1313: l_obj_group_id igs_sc_objects.obj_group_id%TYPE;
1314: l_rowid VARCHAR2(255);
1315: l_application_id NUMBER;
1316:
1309: l_return_message VARCHAR2(2000);
1310: l_message_count NUMBER(15);
1311: l_return_status VARCHAR2(30);
1312: l_object_id igs_sc_objects.object_id%TYPE;
1313: l_obj_group_id igs_sc_objects.obj_group_id%TYPE;
1314: l_rowid VARCHAR2(255);
1315: l_application_id NUMBER;
1316:
1317: CURSOR c_obj IS
1427: -- Insert the values requested into the Grants table.
1428: -- -----------------------------------------------------------------
1429:
1430: INSERT
1431: INTO igs_sc_objects
1432: (object_id,
1433: obj_group_id,
1434: creation_date,
1435: created_by,
2078: /******************************************************************
2079: Created By : Don Shellito
2080: Date Created By : April 23, 2003
2081: Purpose : The purpose of this procedure is to handle
2082: the insertion of the data into igs_sc_objects
2083: table. This ensures a link between the object
2084: groups and the fnd objects resident in the system.
2085: There is validation to ensure that the object_id,
2086: and the obj_group_id are valid and present in the
2095: ******************************************************************/
2096: PROCEDURE Update_Object (p_api_version IN NUMBER,
2097: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2098: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2099: p_object_id IN igs_sc_objects.object_id%TYPE,
2100: p_obj_group_id IN igs_sc_objects.obj_group_id%TYPE,
2101: p_obj_name IN fnd_objects.obj_name%TYPE ,
2102: p_database_object_name IN fnd_objects.database_object_name%TYPE ,
2103: p_pk1_column_name IN fnd_objects.pk1_column_name%TYPE ,
2096: PROCEDURE Update_Object (p_api_version IN NUMBER,
2097: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2098: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2099: p_object_id IN igs_sc_objects.object_id%TYPE,
2100: p_obj_group_id IN igs_sc_objects.obj_group_id%TYPE,
2101: p_obj_name IN fnd_objects.obj_name%TYPE ,
2102: p_database_object_name IN fnd_objects.database_object_name%TYPE ,
2103: p_pk1_column_name IN fnd_objects.pk1_column_name%TYPE ,
2104: p_pk2_column_name IN fnd_objects.pk2_column_name%TYPE ,
2128: l_api_version CONSTANT NUMBER := 1.0;
2129: l_return_message VARCHAR2(2000);
2130: l_message_count NUMBER(15);
2131: l_return_status VARCHAR2(30);
2132: l_object_id igs_sc_objects.object_id%TYPE;
2133: l_obj_group_id igs_sc_objects.obj_group_id%TYPE;
2134: l_rowid VARCHAR2(255);
2135: l_object_name fnd_objects.database_object_name%TYPE ;
2136:
2129: l_return_message VARCHAR2(2000);
2130: l_message_count NUMBER(15);
2131: l_return_status VARCHAR2(30);
2132: l_object_id igs_sc_objects.object_id%TYPE;
2133: l_obj_group_id igs_sc_objects.obj_group_id%TYPE;
2134: l_rowid VARCHAR2(255);
2135: l_object_name fnd_objects.database_object_name%TYPE ;
2136:
2137: -- -----------------------------------------------------------------
2224: x_last_updated_by => nvl(fnd_global.user_id,-1),
2225: x_last_update_login => nvl(fnd_global.login_id, -1));
2226:
2227:
2228: UPDATE IGS_SC_OBJECTS SET
2229: LAST_UPDATED_BY = NVL(FND_GLOBAL.user_id,-1),
2230: LAST_UPDATE_DATE = SYSDATE,
2231: LAST_UPDATE_LOGIN = NVL(FND_GLOBAL.login_id, -1),
2232: SELECT_FLAG = P_SELECT_FLAG,
4288: -- Define local variables to be used.
4289: -- -----------------------------------------------------------------
4290: l_api_name CONSTANT VARCHAR2(30) := 'Delete_Object_Group';
4291: l_api_version CONSTANT NUMBER := 1.0;
4292: l_object_id igs_sc_objects.object_id%TYPE;
4293: l_function_id igs_sc_obj_functns.function_id%TYPE;
4294: l_grant_id igs_sc_grants.grant_id%TYPE;
4295: l_obj_attrib_id igs_sc_obj_attribs.obj_attrib_id%TYPE;
4296: l_return_message VARCHAR2(2000);
4301: -- Define the cursors to be used in procedure.
4302: -- -----------------------------------------------------------------
4303: CURSOR c_get_object_id IS
4304: SELECT objs.object_id
4305: FROM igs_sc_objects objs
4306: WHERE objs.obj_group_id = p_obj_group_id;
4307:
4308: CURSOR c_get_function_id IS
4309: SELECT funcs.function_id
5198: ******************************************************************/
5199: PROCEDURE Delete_Object (p_api_version IN NUMBER,
5200: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5201: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5202: p_obj_group_id IN igs_sc_objects.obj_group_id%TYPE,
5203: p_object_id IN igs_sc_objects.object_id%TYPE,
5204: x_return_status OUT NOCOPY VARCHAR2,
5205: x_return_message OUT NOCOPY VARCHAR2
5206: ) IS
5199: PROCEDURE Delete_Object (p_api_version IN NUMBER,
5200: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5201: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5202: p_obj_group_id IN igs_sc_objects.obj_group_id%TYPE,
5203: p_object_id IN igs_sc_objects.object_id%TYPE,
5204: x_return_status OUT NOCOPY VARCHAR2,
5205: x_return_message OUT NOCOPY VARCHAR2
5206: ) IS
5207:
5258: -- Delete the objects that are associated to the object group id and
5259: -- the object id provided.
5260: -- -----------------------------------------------------------------
5261: DELETE
5262: FROM igs_sc_objects objs
5263: WHERE objs.obj_group_id = p_obj_group_id
5264: AND objs.object_id = p_object_id;
5265:
5266: OPEN c_obj;
7549: DECODE(UPDATE_FLAG, 'Y','U',NULL) UPDATE_FLAG,
7550: DECODE(DELETE_FLAG, 'Y','D',NULL) DELETE_FLAG,
7551: DECODE(INSERT_FLAG, 'Y','I',NULL) INSERT_FLAG,
7552: DECODE(ENFORCE_PAR_SEC_FLAG,'Y','Y',NULL) ENFORCE_PAR_SEC_FLAG
7553: FROM IGS_SC_OBJECTS SC,
7554: FND_OBJECTS FND
7555: WHERE FND.OBJ_NAME = p_database_object_name
7556: AND SC.OBJECT_ID = FND.OBJECT_ID
7557: AND SC.ACTIVE_FLAG = 'Y';
7787: IGS_SC_USR_ATT_VALS user_id ,user_attrib_id
7788:
7789: IGS_SC_OBJ_GROUPS obj_group_id
7790:
7791: IGS_SC_OBJECTS object_id,obj_group_id
7792:
7793: IGS_SC_OBJ_FUNCTNS function_id,obj_group_id
7794:
7795: IGS_SC_OBJ_ATT_MTHS object_id,obj_attrib_id
7907: IF igs_sc_obj_groups_rec.obj_group_id <> l_current_seq THEN
7908:
7909: -- Update all tables
7910:
7911: UPDATE IGS_SC_OBJECTS SET obj_group_id = l_current_seq WHERE obj_group_id = igs_sc_obj_groups_rec.obj_group_id;
7912:
7913: UPDATE IGS_SC_OBJ_FUNCTNS SET obj_group_id = l_current_seq WHERE obj_group_id = igs_sc_obj_groups_rec.obj_group_id;
7914:
7915: UPDATE IGS_SC_OBJ_ATTRIBS SET obj_group_id = l_current_seq WHERE obj_group_id = igs_sc_obj_groups_rec.obj_group_id;