76: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
77:
78: -- If CSI_DEBUG_LEVEL = 1 then dump the procedure name
79: IF (l_csi_debug_level > 0) THEN
80: csi_gen_utility_pvt.put_line( 'get_inst_party_relationship');
81: END IF;
82:
83: -- If the debug level = 2 then dump all the parameters values.
84: IF (l_csi_debug_level > 1) THEN
81: END IF;
82:
83: -- If the debug level = 2 then dump all the parameters values.
84: IF (l_csi_debug_level > 1) THEN
85: csi_gen_utility_pvt.put_line( 'get_inst_party_relationship' ||
86: p_api_version ||'-'||
87: p_commit ||'-'||
88: p_init_msg_list ||'-'||
89: p_validation_level ||'-'||
88: p_init_msg_list ||'-'||
89: p_validation_level ||'-'||
90: p_time_stamp );
91: -- dump the in parameter in the log file
92: csi_gen_utility_pvt.dump_party_query_rec(p_party_query_rec) ;
93: END IF;
94:
95: /***** srramakr commented for bug # 3304439
96: -- Check for the profile option and enable trace
93: END IF;
94:
95: /***** srramakr commented for bug # 3304439
96: -- Check for the profile option and enable trace
97: l_flag:=csi_gen_utility_pvt.enable_trace(l_trace_flag => l_flag);
98: -- End enable trace
99: ****/
100:
101: -- Start API body
421: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
422:
423: -- If CSI_DEBUG_LEVEL = 1 then dump the procedure name
424: IF (l_csi_debug_level > 0) THEN
425: csi_gen_utility_pvt.put_line( 'create_inst_party_relationship');
426: END IF;
427:
428:
429: -- If the debug level = 2 then dump all the parameters values.
427:
428:
429: -- If the debug level = 2 then dump all the parameters values.
430: IF (l_csi_debug_level > 1) THEN
431: csi_gen_utility_pvt.put_line( 'create_inst_party_relationship'||
432: p_api_version ||'-'||
433: p_commit ||'-'||
434: p_init_msg_list ||'-'||
435: p_validation_level );
433: p_commit ||'-'||
434: p_init_msg_list ||'-'||
435: p_validation_level );
436: -- Dump the records in the log file
437: csi_gen_utility_pvt.dump_party_tbl(p_party_tbl);
438: csi_gen_utility_pvt.dump_party_account_tbl(p_party_account_tbl);
439: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
440: END IF;
441:
434: p_init_msg_list ||'-'||
435: p_validation_level );
436: -- Dump the records in the log file
437: csi_gen_utility_pvt.dump_party_tbl(p_party_tbl);
438: csi_gen_utility_pvt.dump_party_account_tbl(p_party_account_tbl);
439: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
440: END IF;
441:
442: /***** srramakr commented for bug # 3304439
435: p_validation_level );
436: -- Dump the records in the log file
437: csi_gen_utility_pvt.dump_party_tbl(p_party_tbl);
438: csi_gen_utility_pvt.dump_party_account_tbl(p_party_account_tbl);
439: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
440: END IF;
441:
442: /***** srramakr commented for bug # 3304439
443: -- Check for the profile option and enable trace
440: END IF;
441:
442: /***** srramakr commented for bug # 3304439
443: -- Check for the profile option and enable trace
444: l_flag:=csi_gen_utility_pvt.enable_trace(l_trace_flag => l_flag);
445: -- End enable trace
446: ****/
447:
448: -- Start API body
448: -- Start API body
449: --
450: -- Grab the internal party id from csi_installed paramters
451: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
452: csi_gen_utility_pvt.populate_install_param_rec;
453: END IF;
454: --
455: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
456: --
544: WHILE l_msg_count > 0 LOOP
545: x_msg_data := FND_MSG_PUB.GET
546: ( l_msg_index,
547: FND_API.G_FALSE );
548: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
549: l_msg_index := l_msg_index + 1;
550: l_msg_count := l_msg_count - 1;
551: END LOOP;
552: RAISE FND_API.G_EXC_ERROR;
636: WHILE l_msg_count > 0 LOOP
637: x_msg_data := FND_MSG_PUB.GET(
638: l_msg_index,
639: FND_API.G_FALSE );
640: csi_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
641: l_msg_index := l_msg_index + 1;
642: l_msg_count := l_msg_count - 1;
643: END LOOP;
644: RAISE FND_API.G_EXC_ERROR;
856: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
857:
858: -- If CSI_DEBUG_LEVEL = 1 then dump the procedure name
859: IF (l_csi_debug_level > 0) THEN
860: csi_gen_utility_pvt.put_line( 'update_inst_party_relationship ');
861: END IF;
862:
863:
864: -- If the debug level = 2 then dump all the parameters values.
862:
863:
864: -- If the debug level = 2 then dump all the parameters values.
865: IF (l_csi_debug_level > 1) THEN
866: csi_gen_utility_pvt.put_line( 'update_inst_party_relationship:' ||
867: p_api_version ||'-'||
868: p_commit ||'-'||
869: p_init_msg_list ||'-'||
870: p_validation_level );
868: p_commit ||'-'||
869: p_init_msg_list ||'-'||
870: p_validation_level );
871: -- Dump the records in the log file
872: csi_gen_utility_pvt.dump_party_tbl(p_party_tbl);
873: csi_gen_utility_pvt.dump_party_account_tbl(p_party_account_tbl);
874: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
875:
876: END IF;
869: p_init_msg_list ||'-'||
870: p_validation_level );
871: -- Dump the records in the log file
872: csi_gen_utility_pvt.dump_party_tbl(p_party_tbl);
873: csi_gen_utility_pvt.dump_party_account_tbl(p_party_account_tbl);
874: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
875:
876: END IF;
877:
870: p_validation_level );
871: -- Dump the records in the log file
872: csi_gen_utility_pvt.dump_party_tbl(p_party_tbl);
873: csi_gen_utility_pvt.dump_party_account_tbl(p_party_account_tbl);
874: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
875:
876: END IF;
877:
878: /***** srramakr commented for bug # 3304439
876: END IF;
877:
878: /***** srramakr commented for bug # 3304439
879: -- Check for the profile option and enable trace
880: l_flag:=csi_gen_utility_pvt.enable_trace(l_trace_flag => l_flag);
881: -- End enable trace
882: ****/
883:
884: -- Start API body
940: END IF; -- end if for l_pty_count > 0
941: -- End addition for bug 2151750
942: --
943: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
944: csi_gen_utility_pvt.populate_install_param_rec;
945: END IF;
946: --
947: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
948: --
1114: WHILE l_msg_count > 0 LOOP
1115: x_msg_data := FND_MSG_PUB.GET(
1116: l_msg_index,
1117: FND_API.G_FALSE );
1118: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
1119: l_msg_index := l_msg_index + 1;
1120: l_msg_count := l_msg_count - 1;
1121: END LOOP;
1122: RAISE FND_API.G_EXC_ERROR;
1227: WHILE l_msg_count > 0 LOOP
1228: x_msg_data := FND_MSG_PUB.GET(
1229: l_msg_index,
1230: FND_API.G_FALSE );
1231: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
1232: l_msg_index := l_msg_index + 1;
1233: l_msg_count := l_msg_count - 1;
1234: END LOOP;
1235: RAISE FND_API.G_EXC_ERROR;
1296: LOOP
1297: x_msg_data := FND_MSG_PUB.GET(
1298: l_msg_index,
1299: FND_API.G_FALSE );
1300: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
1301: l_msg_index := l_msg_index + 1;
1302: l_msg_count := l_msg_count - 1;
1303: END LOOP;
1304: RAISE FND_API.G_EXC_ERROR;
1310: l_exp_acct_rec.relationship_type_code := exp_acct_rec.relationship_type_code;
1311: l_exp_acct_rec.object_version_number := exp_acct_rec.object_version_number ;
1312: l_exp_acct_rec.active_end_date :=SYSDATE;
1313: l_exp_acct_rec.expire_flag :=fnd_api.g_true;
1314: csi_gen_utility_pvt.put_line('Expiring account record '||l_exp_acct_rec.ip_account_id||' of account type '||l_exp_acct_rec.relationship_type_code);
1315: IF l_exp_acct_rec.ip_account_id IS NOT NULL
1316: AND l_exp_acct_rec.ip_account_id <> fnd_api.g_miss_num
1317: THEN
1318: l_exp_acct_rec.grp_call_contracts := l_grp_call_contracts;
1334: WHILE l_msg_count > 0 LOOP
1335: x_msg_data := FND_MSG_PUB.GET(
1336: l_msg_index,
1337: FND_API.G_FALSE );
1338: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
1339: l_msg_index := l_msg_index + 1;
1340: l_msg_count := l_msg_count - 1;
1341: END LOOP;
1342: RAISE FND_API.G_EXC_ERROR;
1389: WHILE l_msg_count > 0 LOOP
1390: x_msg_data := FND_MSG_PUB.GET(
1391: l_msg_index,
1392: FND_API.G_FALSE );
1393: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
1394: l_msg_index := l_msg_index + 1;
1395: l_msg_count := l_msg_count - 1;
1396: END LOOP;
1397: RAISE FND_API.G_EXC_ERROR;
1662: WHILE l_msg_count > 0 LOOP
1663: x_msg_data := FND_MSG_PUB.GET(
1664: l_msg_index,
1665: FND_API.G_FALSE );
1666: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
1667: l_msg_index := l_msg_index + 1;
1668: l_msg_count := l_msg_count - 1;
1669: END LOOP;
1670: RAISE FND_API.G_EXC_ERROR;
1715: LOOP
1716: x_msg_data := FND_MSG_PUB.GET(
1717: l_msg_index,
1718: FND_API.G_FALSE );
1719: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
1720: l_msg_index := l_msg_index + 1;
1721: l_msg_count := l_msg_count - 1;
1722: END LOOP;
1723: RAISE FND_API.G_EXC_ERROR;
1773: WHILE l_msg_count > 0 LOOP
1774: x_msg_data := FND_MSG_PUB.GET(
1775: l_msg_index,
1776: FND_API.G_FALSE );
1777: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
1778: l_msg_index := l_msg_index + 1;
1779: l_msg_count := l_msg_count - 1;
1780: END LOOP;
1781: RAISE FND_API.G_EXC_ERROR;
1848: WHILE l_msg_count > 0 LOOP
1849: x_msg_data := FND_MSG_PUB.GET(
1850: l_msg_index,
1851: FND_API.G_FALSE );
1852: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
1853: l_msg_index := l_msg_index + 1;
1854: l_msg_count := l_msg_count - 1;
1855: END LOOP;
1856: RAISE FND_API.G_EXC_ERROR;
1974: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
1975:
1976: -- If CSI_DEBUG_LEVEL = 1 then dump the procedure name
1977: IF (l_csi_debug_level > 0) THEN
1978: csi_gen_utility_pvt.put_line( 'expire_inst_party_relationship');
1979: END IF;
1980:
1981: -- If the debug level = 2 then dump all the parameters values.
1982: IF (l_csi_debug_level > 1) THEN
1979: END IF;
1980:
1981: -- If the debug level = 2 then dump all the parameters values.
1982: IF (l_csi_debug_level > 1) THEN
1983: csi_gen_utility_pvt.put_line( 'expire_inst_party_relationship:' ||
1984: p_api_version ||'-'||
1985: p_commit ||'-'||
1986: p_init_msg_list ||'-'||
1987: p_validation_level );
1985: p_commit ||'-'||
1986: p_init_msg_list ||'-'||
1987: p_validation_level );
1988: -- Dump the records in the log file
1989: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
1990: csi_gen_utility_pvt.dump_party_tbl(p_instance_party_tbl);
1991: END IF;
1992:
1993: /***** srramakr commented for bug # 3304439
1986: p_init_msg_list ||'-'||
1987: p_validation_level );
1988: -- Dump the records in the log file
1989: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
1990: csi_gen_utility_pvt.dump_party_tbl(p_instance_party_tbl);
1991: END IF;
1992:
1993: /***** srramakr commented for bug # 3304439
1994: -- Check for the profile option and enable trace
1991: END IF;
1992:
1993: /***** srramakr commented for bug # 3304439
1994: -- Check for the profile option and enable trace
1995: l_flag:=csi_gen_utility_pvt.enable_trace(l_trace_flag => l_flag);
1996: -- End enable trace
1997: ****/
1998:
1999: -- Start API body
2018: WHILE l_msg_count > 0 LOOP
2019: x_msg_data := FND_MSG_PUB.GET(
2020: l_msg_index,
2021: FND_API.G_FALSE );
2022: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
2023: l_msg_index := l_msg_index + 1;
2024: l_msg_count := l_msg_count - 1;
2025: END LOOP;
2026: RAISE FND_API.G_EXC_ERROR;
2149: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
2150:
2151: -- If CSI_DEBUG_LEVEL = 1 then dump the procedure name
2152: IF (l_csi_debug_level > 0) THEN
2153: csi_gen_utility_pvt.put_line( 'get_inst_party_accounts');
2154: END IF;
2155:
2156: -- If the debug level = 2 then dump all the parameters values.
2157: IF (l_csi_debug_level > 1) THEN
2155:
2156: -- If the debug level = 2 then dump all the parameters values.
2157: IF (l_csi_debug_level > 1) THEN
2158:
2159: csi_gen_utility_pvt.put_line( 'get_inst_party_account:' ||
2160: p_api_version ||'-'||
2161: p_commit ||'-'||
2162: p_init_msg_list ||'-'||
2163: p_validation_level ||'-'||
2162: p_init_msg_list ||'-'||
2163: p_validation_level ||'-'||
2164: p_time_stamp );
2165: -- Dump the account query records
2166: csi_gen_utility_pvt.dump_account_query_rec(p_account_query_rec);
2167:
2168: END IF;
2169:
2170: /***** srramakr commented for bug # 3304439
2168: END IF;
2169:
2170: /***** srramakr commented for bug # 3304439
2171: -- Check for the profile option and enable trace
2172: l_flag:=csi_gen_utility_pvt.enable_trace(l_trace_flag => l_flag);
2173: -- End enable trace
2174: ****/
2175:
2176: -- Start API body
2354: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
2355:
2356: -- If CSI_DEBUG_LEVEL = 1 then dump the procedure name
2357: IF (l_csi_debug_level > 0) THEN
2358: csi_gen_utility_pvt.put_line( 'create_inst_party_account');
2359: END IF;
2360:
2361: -- If the debug level = 2 then dump all the parameters values.
2362: IF (l_csi_debug_level > 1) THEN
2359: END IF;
2360:
2361: -- If the debug level = 2 then dump all the parameters values.
2362: IF (l_csi_debug_level > 1) THEN
2363: csi_gen_utility_pvt.put_line( 'create_inst_party_account:'||
2364: p_api_version ||'-'||
2365: p_commit ||'-'||
2366: p_init_msg_list );
2367: -- Dump the records in the log file
2364: p_api_version ||'-'||
2365: p_commit ||'-'||
2366: p_init_msg_list );
2367: -- Dump the records in the log file
2368: csi_gen_utility_pvt.dump_party_account_tbl(p_party_account_tbl);
2369: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
2370: END IF;
2371:
2372: /***** srramakr commented for bug # 3304439
2365: p_commit ||'-'||
2366: p_init_msg_list );
2367: -- Dump the records in the log file
2368: csi_gen_utility_pvt.dump_party_account_tbl(p_party_account_tbl);
2369: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
2370: END IF;
2371:
2372: /***** srramakr commented for bug # 3304439
2373: -- Check for the profile option and enable trace
2370: END IF;
2371:
2372: /***** srramakr commented for bug # 3304439
2373: -- Check for the profile option and enable trace
2374: l_flag:=csi_gen_utility_pvt.enable_trace(l_trace_flag => l_flag);
2375: -- End enable trace
2376: ****/
2377:
2378: -- Start API body
2406: WHILE l_msg_count > 0 LOOP
2407: x_msg_data := FND_MSG_PUB.GET(
2408: l_msg_index,
2409: FND_API.G_FALSE );
2410: csi_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
2411: l_msg_index := l_msg_index + 1;
2412: l_msg_count := l_msg_count - 1;
2413: END LOOP;
2414: RAISE FND_API.G_EXC_ERROR;
2541: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
2542:
2543: -- If CSI_DEBUG_LEVEL = 1 then dump the procedure name
2544: IF (l_csi_debug_level > 0) THEN
2545: csi_gen_utility_pvt.put_line( 'update_inst_party_account');
2546: END IF;
2547:
2548: -- If the debug level = 2 then dump all the parameters values.
2549: IF (l_csi_debug_level > 1) THEN
2546: END IF;
2547:
2548: -- If the debug level = 2 then dump all the parameters values.
2549: IF (l_csi_debug_level > 1) THEN
2550: csi_gen_utility_pvt.put_line( 'update_inst_party_account:'||
2551: p_api_version ||'-'||
2552: p_commit ||'-'||
2553: p_init_msg_list );
2554: -- Dump the records in the log file
2551: p_api_version ||'-'||
2552: p_commit ||'-'||
2553: p_init_msg_list );
2554: -- Dump the records in the log file
2555: csi_gen_utility_pvt.dump_party_account_tbl(p_party_account_tbl);
2556: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
2557: END IF;
2558:
2559: /***** srramakr commented for bug # 3304439
2552: p_commit ||'-'||
2553: p_init_msg_list );
2554: -- Dump the records in the log file
2555: csi_gen_utility_pvt.dump_party_account_tbl(p_party_account_tbl);
2556: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
2557: END IF;
2558:
2559: /***** srramakr commented for bug # 3304439
2560: -- Check for the profile option and enable trace
2557: END IF;
2558:
2559: /***** srramakr commented for bug # 3304439
2560: -- Check for the profile option and enable trace
2561: l_flag:=csi_gen_utility_pvt.enable_trace(l_trace_flag => l_flag);
2562: -- End enable trace
2563: ****/
2564:
2565: -- Start API body
2608: WHILE l_msg_count > 0 LOOP
2609: x_msg_data := FND_MSG_PUB.GET(
2610: l_msg_index,
2611: FND_API.G_FALSE );
2612: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
2613: l_msg_index := l_msg_index + 1;
2614: l_msg_count := l_msg_count - 1;
2615: END LOOP;
2616: RAISE FND_API.G_EXC_ERROR;
2739: LOOP
2740: x_msg_data := FND_MSG_PUB.GET(
2741: l_msg_index,
2742: FND_API.G_FALSE );
2743: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
2744: l_msg_index := l_msg_index + 1;
2745: l_msg_count := l_msg_count - 1;
2746: END LOOP;
2747: RAISE FND_API.G_EXC_ERROR;
2862: l_csi_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
2863:
2864: -- If CSI_DEBUG_LEVEL = 1 then dump the procedure name
2865: IF (l_csi_debug_level > 0) THEN
2866: csi_gen_utility_pvt.put_line( 'expire_inst_party_account');
2867: END IF;
2868:
2869:
2870: -- If the debug level = 2 then dump all the parameters values.
2868:
2869:
2870: -- If the debug level = 2 then dump all the parameters values.
2871: IF (l_csi_debug_level > 1) THEN
2872: csi_gen_utility_pvt.put_line( 'expire_inst_party_account:'||
2873: p_api_version ||'-'||
2874: p_commit ||'-'||
2875: p_init_msg_list );
2876: -- Dump the records in the log file
2873: p_api_version ||'-'||
2874: p_commit ||'-'||
2875: p_init_msg_list );
2876: -- Dump the records in the log file
2877: csi_gen_utility_pvt.dump_party_account_tbl(p_party_account_tbl);
2878: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
2879: END IF;
2880:
2881: /***** srramakr commented for bug # 3304439
2874: p_commit ||'-'||
2875: p_init_msg_list );
2876: -- Dump the records in the log file
2877: csi_gen_utility_pvt.dump_party_account_tbl(p_party_account_tbl);
2878: csi_gen_utility_pvt.dump_txn_rec(p_txn_rec);
2879: END IF;
2880:
2881: /***** srramakr commented for bug # 3304439
2882: -- Check for the profile option and enable trace
2879: END IF;
2880:
2881: /***** srramakr commented for bug # 3304439
2882: -- Check for the profile option and enable trace
2883: l_flag:=csi_gen_utility_pvt.enable_trace(l_trace_flag => l_flag);
2884: -- End enable trace
2885: ****/
2886:
2887: -- Start API body
2907: WHILE l_msg_count > 0 LOOP
2908: x_msg_data := FND_MSG_PUB.GET(
2909: l_msg_index,
2910: FND_API.G_FALSE);
2911: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
2912: l_msg_index := l_msg_index + 1;
2913: l_msg_count := l_msg_count - 1;
2914: END LOOP;
2915: RAISE FND_API.G_EXC_ERROR;