184: ------------------------------
185: -- validate parent_object_type
186: ------------------------------
187:
188: -- parent_object_type has foreign key fnd_object_instance_sets.instance_set_name
189: IF p_parent_object_type IS NOT NULL
190: THEN
191: BEGIN
192: SELECT 'Y'
190: THEN
191: BEGIN
192: SELECT 'Y'
193: INTO l_dummy
194: FROM FND_OBJECT_INSTANCE_SETS
195: WHERE INSTANCE_SET_NAME = p_parent_object_type;
196: EXCEPTION
197: WHEN NO_DATA_FOUND THEN
198: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
197: WHEN NO_DATA_FOUND THEN
198: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
199: fnd_message.set_token('FK', 'parent_object_type');
200: fnd_message.set_token('COLUMN', 'instance_set_name');
201: fnd_message.set_token('TABLE', 'fnd_object_instance_sets');
202: fnd_msg_pub.add;
203: x_return_status := fnd_api.g_ret_sts_error;
204: END;
205:
203: x_return_status := fnd_api.g_ret_sts_error;
204: END;
205:
206: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
207: hz_utility_v2pub.debug(p_message=>'parent_object_type has foreign key fnd_object_instance_sets.instance_set_name. ' ||
208: 'x_return_status = ' || x_return_status,
209: p_prefix =>l_debug_prefix,
210: p_msg_level=>fnd_log.level_statement);
211: END IF;
243: ------------------------------
244: -- validate child_object_type
245: ------------------------------
246:
247: -- child_object_type has foreign key fnd_object_instance_sets.instance_set_name
248: IF p_child_object_type IS NOT NULL
249: THEN
250: BEGIN
251: SELECT 'Y'
249: THEN
250: BEGIN
251: SELECT 'Y'
252: INTO l_dummy
253: FROM FND_OBJECT_INSTANCE_SETS
254: WHERE INSTANCE_SET_NAME = p_child_object_type;
255: EXCEPTION
256: WHEN NO_DATA_FOUND THEN
257: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
256: WHEN NO_DATA_FOUND THEN
257: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
258: fnd_message.set_token('FK', 'child_object_type');
259: fnd_message.set_token('COLUMN', 'instance_set_name');
260: fnd_message.set_token('TABLE', 'fnd_object_instance_sets');
261: fnd_msg_pub.add;
262: x_return_status := fnd_api.g_ret_sts_error;
263: END;
264: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
261: fnd_msg_pub.add;
262: x_return_status := fnd_api.g_ret_sts_error;
263: END;
264: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
265: hz_utility_v2pub.debug(p_message=>'child_object_type has foreign key fnd_object_instance_sets.instance_set_name. ' ||
266: 'x_return_status = ' || x_return_status,
267: p_prefix =>l_debug_prefix,
268: p_msg_level=>fnd_log.level_statement);
269: END IF;
1231: SELECT OBJ_NAME,
1232: PK1_COLUMN_NAME,
1233: PREDICATE
1234: FROM FND_OBJECTS FO,
1235: FND_OBJECT_INSTANCE_SETS FOIS
1236: WHERE FOIS.INSTANCE_SET_NAME = p_parent_object_type
1237: AND FOIS.OBJECT_ID = FO.OBJECT_ID;
1238:
1239: TYPE ref_cur_type IS REF CURSOR;