67:
68: l_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
69: -- IF debug_level = 1 THEN dump the PROCEDURE name
70: IF (l_debug_level > 0) THEN
71: CSI_gen_utility_pvt.put_line( 'get_relationships');
72: END IF;
73:
74: -- IF the debug level = 2 THEN dump all the parameters values.
75: IF (l_debug_level > 1) THEN
72: END IF;
73:
74: -- IF the debug level = 2 THEN dump all the parameters values.
75: IF (l_debug_level > 1) THEN
76: CSI_gen_utility_pvt.put_line(
77: p_api_version ||'-'||
78: p_commit ||'-'||
79: p_init_msg_list ||'-'||
80: p_validation_level ||'-'||
81: p_depth ||'_'||
82: p_time_stamp );
83:
84: -- dump the relationship query records
85: csi_gen_utility_pvt.dump_rel_query_rec(p_relationship_query_rec);
86: END IF;
87:
88: /***** srramakr commented for bug # 3304439
89: -- check for the profile option AND enable trace
86: END IF;
87:
88: /***** srramakr commented for bug # 3304439
89: -- check for the profile option AND enable trace
90: l_flag:=csi_gen_utility_pvt.enable_trace(l_trace_flag => l_flag);
91: -- END enable trace
92: ****/
93:
94: --
231:
232: l_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
233: -- IF debug_level = 1 THEN dump the PROCEDURE name
234: IF (l_debug_level > 0) THEN
235: CSI_gen_utility_pvt.put_line( 'create_relationship');
236: END IF;
237:
238: -- IF the debug level = 2 THEN dump all the parameters values.
239: IF (l_debug_level > 1) THEN
238: -- IF the debug level = 2 THEN dump all the parameters values.
239: IF (l_debug_level > 1) THEN
240:
241:
242: CSI_gen_utility_pvt.put_line(
243: p_api_version ||'-'||
244: p_commit ||'-'||
245: p_init_msg_list ||'-'||
246: p_validation_level );
245: p_init_msg_list ||'-'||
246: p_validation_level );
247:
248: -- dump the relationship query records
249: csi_gen_utility_pvt.dump_rel_tbl(p_relationship_tbl);
250: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
251:
252: END IF;
253:
246: p_validation_level );
247:
248: -- dump the relationship query records
249: csi_gen_utility_pvt.dump_rel_tbl(p_relationship_tbl);
250: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
251:
252: END IF;
253:
254: /***** srramakr commented for bug # 3304439
252: END IF;
253:
254: /***** srramakr commented for bug # 3304439
255: -- check for the profile option AND enable trace
256: l_flag:=csi_gen_utility_pvt.enable_trace(l_trace_flag => l_flag);
257: -- END enable trace
258: ****/
259:
260:
308: WHILE l_msg_count > 0 LOOP
309: x_msg_data := FND_MSG_PUB.GET
310: ( l_msg_index,
311: FND_API.G_FALSE );
312: csi_gen_utility_pvt.put_line( ' Error from Update_relationship PVT..');
313: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
314: l_msg_index := l_msg_index + 1;
315: l_msg_count := l_msg_count - 1;
316: END LOOP;
309: x_msg_data := FND_MSG_PUB.GET
310: ( l_msg_index,
311: FND_API.G_FALSE );
312: csi_gen_utility_pvt.put_line( ' Error from Update_relationship PVT..');
313: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
314: l_msg_index := l_msg_index + 1;
315: l_msg_count := l_msg_count - 1;
316: END LOOP;
317: RAISE FND_API.G_EXC_ERROR;
338: WHILE l_msg_count > 0 LOOP
339: x_msg_data := FND_MSG_PUB.GET
340: ( l_msg_index,
341: FND_API.G_FALSE );
342: csi_gen_utility_pvt.put_line( ' Error from Create_relationship PVT..');
343: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
344: l_msg_index := l_msg_index + 1;
345: l_msg_count := l_msg_count - 1;
346: END LOOP;
339: x_msg_data := FND_MSG_PUB.GET
340: ( l_msg_index,
341: FND_API.G_FALSE );
342: csi_gen_utility_pvt.put_line( ' Error from Create_relationship PVT..');
343: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
344: l_msg_index := l_msg_index + 1;
345: l_msg_count := l_msg_count - 1;
346: END LOOP;
347: RAISE FND_API.G_EXC_ERROR;
371: l_internal_party_id := null;
372: END;
373:
374: IF l_internal_party_id <> l_owner_party_id THEN
375: csi_gen_utility_pvt.put_line(' Calling CSI_BUSINESS_EVENT_PVT.UPDATE_INSTANCE_EVENT');
376: -- Check if relationships is already been built then allow update
377: BEGIN
378: SELECT 'Y'
379: INTO l_relationship_exists
389: l_relationship_exists := 'Y';
390: END;
391:
392: IF l_relationship_exists = 'Y' THEN
393: csi_gen_utility_pvt.put_line('In relationships, therefore raise the update instance event');
394: csi_gen_utility_pvt.put_line('The Subject Id '||p_relationship_tbl(l_count).subject_id);
395: csi_gen_utility_pvt.put_line('The Object Id '||p_relationship_tbl(l_count).object_id);
396: csi_gen_utility_pvt.put_line('The relationship_type_code '||p_relationship_tbl(l_count).relationship_type_code);
397:
390: END;
391:
392: IF l_relationship_exists = 'Y' THEN
393: csi_gen_utility_pvt.put_line('In relationships, therefore raise the update instance event');
394: csi_gen_utility_pvt.put_line('The Subject Id '||p_relationship_tbl(l_count).subject_id);
395: csi_gen_utility_pvt.put_line('The Object Id '||p_relationship_tbl(l_count).object_id);
396: csi_gen_utility_pvt.put_line('The relationship_type_code '||p_relationship_tbl(l_count).relationship_type_code);
397:
398: l_root_asset_id :=csi_ii_relationships_pvt.Get_Root_Parent(p_relationship_tbl(l_count).subject_id,
391:
392: IF l_relationship_exists = 'Y' THEN
393: csi_gen_utility_pvt.put_line('In relationships, therefore raise the update instance event');
394: csi_gen_utility_pvt.put_line('The Subject Id '||p_relationship_tbl(l_count).subject_id);
395: csi_gen_utility_pvt.put_line('The Object Id '||p_relationship_tbl(l_count).object_id);
396: csi_gen_utility_pvt.put_line('The relationship_type_code '||p_relationship_tbl(l_count).relationship_type_code);
397:
398: l_root_asset_id :=csi_ii_relationships_pvt.Get_Root_Parent(p_relationship_tbl(l_count).subject_id,
399: p_relationship_tbl(l_count).relationship_type_code,
392: IF l_relationship_exists = 'Y' THEN
393: csi_gen_utility_pvt.put_line('In relationships, therefore raise the update instance event');
394: csi_gen_utility_pvt.put_line('The Subject Id '||p_relationship_tbl(l_count).subject_id);
395: csi_gen_utility_pvt.put_line('The Object Id '||p_relationship_tbl(l_count).object_id);
396: csi_gen_utility_pvt.put_line('The relationship_type_code '||p_relationship_tbl(l_count).relationship_type_code);
397:
398: l_root_asset_id :=csi_ii_relationships_pvt.Get_Root_Parent(p_relationship_tbl(l_count).subject_id,
399: p_relationship_tbl(l_count).relationship_type_code,
400: p_relationship_tbl(l_count).object_id);
419: WHILE l_msg_count > 0 LOOP
420: x_msg_data := FND_MSG_PUB.GET
421: (l_msg_index,
422: FND_API.G_FALSE );
423: csi_gen_utility_pvt.put_line('Error from CSI_BUSINESS_EVENT.UPDATE_INSTANCE_EVENT');
424: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
425: l_msg_index := l_msg_index + 1;
426: l_msg_count := l_msg_count - 1;
427: END LOOP;
420: x_msg_data := FND_MSG_PUB.GET
421: (l_msg_index,
422: FND_API.G_FALSE );
423: csi_gen_utility_pvt.put_line('Error from CSI_BUSINESS_EVENT.UPDATE_INSTANCE_EVENT');
424: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
425: l_msg_index := l_msg_index + 1;
426: l_msg_count := l_msg_count - 1;
427: END LOOP;
428: RAISE FND_API.G_EXC_ERROR;
450: WHILE l_msg_count > 0 LOOP
451: x_msg_data := FND_MSG_PUB.GET
452: ( l_msg_index,
453: FND_API.G_FALSE );
454: csi_gen_utility_pvt.put_line( ' Error from UPDATE_VERSION_TIME..');
455: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
456: l_msg_index := l_msg_index + 1;
457: l_msg_count := l_msg_count - 1;
458: END LOOP;
451: x_msg_data := FND_MSG_PUB.GET
452: ( l_msg_index,
453: FND_API.G_FALSE );
454: csi_gen_utility_pvt.put_line( ' Error from UPDATE_VERSION_TIME..');
455: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
456: l_msg_index := l_msg_index + 1;
457: l_msg_count := l_msg_count - 1;
458: END LOOP;
459: RAISE FND_API.G_EXC_ERROR;
575:
576: l_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
577: -- IF debug_level = 1 THEN dump the PROCEDURE name
578: IF (l_debug_level > 0) THEN
579: CSI_gen_utility_pvt.put_line( 'update_relationship');
580: END IF;
581:
582: -- IF the debug level = 2 THEN dump all the parameters values.
583: IF (l_debug_level > 1) THEN
582: -- IF the debug level = 2 THEN dump all the parameters values.
583: IF (l_debug_level > 1) THEN
584:
585:
586: CSI_gen_utility_pvt.put_line(
587: p_api_version ||'-'||
588: p_commit ||'-'||
589: p_init_msg_list ||'-'||
590: p_validation_level );
589: p_init_msg_list ||'-'||
590: p_validation_level );
591:
592: -- dump the relationship query records
593: csi_gen_utility_pvt.dump_rel_tbl(p_relationship_tbl);
594: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
595:
596: END IF;
597:
590: p_validation_level );
591:
592: -- dump the relationship query records
593: csi_gen_utility_pvt.dump_rel_tbl(p_relationship_tbl);
594: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
595:
596: END IF;
597:
598: /***** srramakr commented for bug # 3304439
596: END IF;
597:
598: /***** srramakr commented for bug # 3304439
599: -- check for the profile option AND enable trace
600: l_flag:=csi_gen_utility_pvt.enable_trace(l_trace_flag => l_flag);
601: -- END enable trace
602: ****/
603:
604: -- Added for replacement bug
635: THEN
636:
637: l_rel_tbl.delete;
638: l_rel_tbl(1):=l_relationship_tbl(l_count);
639: csi_gen_utility_pvt.put_line('Value of relationship_id is : '||l_rel_tbl(1).relationship_id);
640: csi_gen_utility_pvt.put_line('Value of replace_flag is :'||l_replace_flag);
641: csi_ii_relationships_pvt.update_relationship(
642: p_api_version => p_api_version,
643: p_commit => fnd_api.g_false,
636:
637: l_rel_tbl.delete;
638: l_rel_tbl(1):=l_relationship_tbl(l_count);
639: csi_gen_utility_pvt.put_line('Value of relationship_id is : '||l_rel_tbl(1).relationship_id);
640: csi_gen_utility_pvt.put_line('Value of replace_flag is :'||l_replace_flag);
641: csi_ii_relationships_pvt.update_relationship(
642: p_api_version => p_api_version,
643: p_commit => fnd_api.g_false,
644: p_init_msg_list => p_init_msg_list,
661: WHILE l_msg_count > 0 LOOP
662: x_msg_data := FND_MSG_PUB.GET
663: ( l_msg_index,
664: FND_API.G_FALSE );
665: csi_gen_utility_pvt.put_line( ' Error from csi_ii_relationships_pvt.update_relationship..');
666: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
667: l_msg_index := l_msg_index + 1;
668: l_msg_count := l_msg_count - 1;
669: END LOOP;
662: x_msg_data := FND_MSG_PUB.GET
663: ( l_msg_index,
664: FND_API.G_FALSE );
665: csi_gen_utility_pvt.put_line( ' Error from csi_ii_relationships_pvt.update_relationship..');
666: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
667: l_msg_index := l_msg_index + 1;
668: l_msg_count := l_msg_count - 1;
669: END LOOP;
670: RAISE FND_API.G_EXC_ERROR;
701: LOOP
702: x_msg_data := FND_MSG_PUB.GET
703: ( l_msg_index,
704: FND_API.G_FALSE );
705: csi_gen_utility_pvt.put_line( ' Error from csi_ii_relationships_pvt.create_relationship..');
706: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
707: l_msg_index := l_msg_index + 1;
708: l_msg_count := l_msg_count - 1;
709: END LOOP;
702: x_msg_data := FND_MSG_PUB.GET
703: ( l_msg_index,
704: FND_API.G_FALSE );
705: csi_gen_utility_pvt.put_line( ' Error from csi_ii_relationships_pvt.create_relationship..');
706: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
707: l_msg_index := l_msg_index + 1;
708: l_msg_count := l_msg_count - 1;
709: END LOOP;
710: RAISE FND_API.G_EXC_ERROR;
742: WHILE l_msg_count > 0 LOOP
743: x_msg_data := FND_MSG_PUB.GET
744: ( l_msg_index,
745: FND_API.G_FALSE );
746: csi_gen_utility_pvt.put_line( ' Error from UPDATE_VERSION_TIME..');
747: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
748: l_msg_index := l_msg_index + 1;
749: l_msg_count := l_msg_count - 1;
750: END LOOP;
743: x_msg_data := FND_MSG_PUB.GET
744: ( l_msg_index,
745: FND_API.G_FALSE );
746: csi_gen_utility_pvt.put_line( ' Error from UPDATE_VERSION_TIME..');
747: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
748: l_msg_index := l_msg_index + 1;
749: l_msg_count := l_msg_count - 1;
750: END LOOP;
751: RAISE FND_API.G_EXC_ERROR;
849:
850: l_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
851: -- IF debug_level = 1 THEN dump the PROCEDURE name
852: IF (l_debug_level > 0) THEN
853: CSI_gen_utility_pvt.put_line( 'expire_relationship');
854: END IF;
855:
856: -- IF the debug level = 2 THEN dump all the parameters values.
857: IF (l_debug_level > 1) THEN
856: -- IF the debug level = 2 THEN dump all the parameters values.
857: IF (l_debug_level > 1) THEN
858:
859:
860: CSI_gen_utility_pvt.put_line(
861: p_api_version ||'-'||
862: p_commit ||'-'||
863: p_init_msg_list ||'-'||
864: p_validation_level
864: p_validation_level
865: );
866:
867: -- dump the relationship query records
868: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
869: csi_gen_utility_pvt.dump_rel_rec(p_relationship_rec);
870:
871: END IF;
872:
865: );
866:
867: -- dump the relationship query records
868: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
869: csi_gen_utility_pvt.dump_rel_rec(p_relationship_rec);
870:
871: END IF;
872:
873: /***** srramakr commented for bug # 3304439
871: END IF;
872:
873: /***** srramakr commented for bug # 3304439
874: -- check for the profile option AND enable trace
875: l_flag:=csi_gen_utility_pvt.enable_trace(l_trace_flag => l_flag);
876: -- END enable trace
877: *****/
878:
879: csi_ii_relationships_pvt.expire_relationship(