65: END IF;
66:
67: -- Initialize message list if p_init_msg_list is set to TRUE.
68: IF FND_API.to_Boolean( p_init_msg_list ) THEN
69: FND_MSG_PUB.initialize;
70: END IF;
71:
72: -- Initialize API return status to success
73: x_return_status := FND_API.G_RET_STS_SUCCESS;
106: AND (p_party_query_rec.party_id = FND_API.G_MISS_NUM)
107: AND (p_party_query_rec.relationship_type_code = FND_API.G_MISS_CHAR) THEN
108:
109: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INVALID_PARAMETERS');
110: FND_MSG_PUB.Add;
111: RAISE FND_API.G_EXC_ERROR;
112: END IF;
113:
114: -- Generate the where clause dynamically
152: -- is < than sysdate
153: csi_party_relationships_pvt.Construct_pty_from_hist(x_party_header_tbl, p_time_stamp);
154: ELSE
155: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INVALID_HIST_PARAMS');
156: FND_MSG_PUB.ADD;
157: RAISE FND_API.G_EXC_ERROR;
158: END IF;
159: END IF;
160: --start of the new code for resolve_id_columns 08/24/01
319: -- End disable trace
320: ****/
321:
322: -- Standard call to get message count and if count is get message info.
323: FND_MSG_PUB.Count_And_Get
324: (p_count => x_msg_count ,
325: p_data => x_msg_data );
326: EXCEPTION
327: WHEN FND_API.G_EXC_ERROR THEN
326: EXCEPTION
327: WHEN FND_API.G_EXC_ERROR THEN
328: -- ROLLBACK TO get_inst_party_rel_pub;
329: x_return_status := FND_API.G_RET_STS_ERROR ;
330: FND_MSG_PUB.Count_And_Get
331: ( p_count => x_msg_count,
332: p_data => x_msg_data );
333: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
334: -- ROLLBACK TO get_inst_party_rel_pub;
332: p_data => x_msg_data );
333: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
334: -- ROLLBACK TO get_inst_party_rel_pub;
335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
336: FND_MSG_PUB.Count_And_Get
337: ( p_count => x_msg_count,
338: p_data => x_msg_data );
339: WHEN OTHERS THEN
340: IF DBMS_SQL.IS_OPEN(l_get_party_cursor_id) THEN
341: DBMS_SQL.CLOSE_CURSOR(l_get_party_cursor_id);
342: END IF;
343: -- ROLLBACK TO get_inst_party_rel_pub;
344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
345: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
346: FND_MSG_PUB.Add_Exc_Msg
347: ( g_pkg_name ,
348: l_api_name );
349: END IF;
342: END IF;
343: -- ROLLBACK TO get_inst_party_rel_pub;
344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
345: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
346: FND_MSG_PUB.Add_Exc_Msg
347: ( g_pkg_name ,
348: l_api_name );
349: END IF;
350: FND_MSG_PUB.Count_And_Get
346: FND_MSG_PUB.Add_Exc_Msg
347: ( g_pkg_name ,
348: l_api_name );
349: END IF;
350: FND_MSG_PUB.Count_And_Get
351: ( p_count => x_msg_count,
352: p_data => x_msg_data );
353:
354: END get_inst_party_relationships;
410: END IF;
411:
412: -- Initialize message list if p_init_msg_list is set to TRUE.
413: IF FND_API.to_Boolean( p_init_msg_list ) THEN
414: FND_MSG_PUB.initialize;
415: END IF;
416:
417: -- Initialize API return status to success
418: x_return_status := FND_API.G_RET_STS_SUCCESS;
455: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
456: --
457: IF l_internal_party_id IS NULL THEN
458: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
459: FND_MSG_PUB.ADD;
460: RAISE FND_API.G_EXC_ERROR;
461: END IF;
462: -- Check if the table is not empty and then loop
463: IF p_party_tbl.count > 0 THEN
479: OR (p_party_account_tbl(l_acct_row).parent_tbl_index = FND_API.G_MISS_NUM)
480: OR (NOT(p_party_tbl.EXISTS(p_party_account_tbl(l_acct_row).parent_tbl_index)))
481: ) THEN
482: FND_MESSAGE.SET_NAME('CSI','CSI_API_PARTY_ACCT_NOT_MAPPED');
483: FND_MSG_PUB.Add;
484: RAISE FND_API.G_EXC_ERROR;
485: END IF;
486:
487: IF ((p_party_account_tbl(l_acct_row).parent_tbl_index = l_party_row)
495: -- Raise an exception if external parties don't have an owner account
496: IF NOT l_party_has_correct_acct THEN
497: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_OWNER_ACCT');
498: FND_MESSAGE.SET_TOKEN('PARTY_ID',p_party_tbl(l_party_row).party_id);
499: FND_MSG_PUB.ADD;
500: RAISE FND_API.G_EXC_ERROR;
501: END IF;
502:
503: END IF;
541: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
542: l_msg_index := 1;
543: l_msg_count := x_msg_count;
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;
563: OR (p_party_account_tbl(l_acct_row).parent_tbl_index = FND_API.G_MISS_NUM)
564: OR (NOT(p_party_tbl.EXISTS(p_party_account_tbl(l_acct_row).parent_tbl_index)))
565: ) THEN
566: FND_MESSAGE.SET_NAME('CSI','CSI_API_PARTY_ACCT_NOT_MAPPED');
567: FND_MSG_PUB.Add;
568: RAISE FND_API.G_EXC_ERROR;
569: END IF;
570:
571: p_party_account_tbl(l_acct_row).instance_party_id :=
633: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
634: l_msg_index := 1;
635: l_msg_count := x_msg_count;
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;
664: -- End disable trace
665: ****/
666:
667: -- Standard call to get message count and if count is get message info.
668: FND_MSG_PUB.Count_And_Get
669: (p_count => x_msg_count ,
670: p_data => x_msg_data );
671: EXCEPTION
672: WHEN FND_API.G_EXC_ERROR THEN
671: EXCEPTION
672: WHEN FND_API.G_EXC_ERROR THEN
673: x_return_status := FND_API.G_RET_STS_ERROR ;
674: ROLLBACK TO create_inst_party_rel_pub;
675: FND_MSG_PUB.Count_And_Get
676: ( p_count => x_msg_count,
677: p_data => x_msg_data );
678:
679: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
678:
679: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
681: ROLLBACK TO create_inst_party_rel_pub;
682: FND_MSG_PUB.Count_And_Get
683: ( p_count => x_msg_count,
684: p_data => x_msg_data );
685:
686: WHEN OTHERS THEN
685:
686: WHEN OTHERS THEN
687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
688: ROLLBACK TO create_inst_party_rel_pub;
689: IF FND_MSG_PUB.Check_Msg_Level
690: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
691: THEN
692: FND_MSG_PUB.Add_Exc_Msg
693: ( g_pkg_name ,
686: WHEN OTHERS THEN
687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
688: ROLLBACK TO create_inst_party_rel_pub;
689: IF FND_MSG_PUB.Check_Msg_Level
690: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
691: THEN
692: FND_MSG_PUB.Add_Exc_Msg
693: ( g_pkg_name ,
694: l_api_name );
688: ROLLBACK TO create_inst_party_rel_pub;
689: IF FND_MSG_PUB.Check_Msg_Level
690: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
691: THEN
692: FND_MSG_PUB.Add_Exc_Msg
693: ( g_pkg_name ,
694: l_api_name );
695: END IF;
696: FND_MSG_PUB.Count_And_Get
692: FND_MSG_PUB.Add_Exc_Msg
693: ( g_pkg_name ,
694: l_api_name );
695: END IF;
696: FND_MSG_PUB.Count_And_Get
697: ( p_count => x_msg_count,
698: p_data => x_msg_data );
699: END create_inst_party_relationship;
700:
849: END IF;
850:
851: -- Initialize message list if p_init_msg_list is set to TRUE.
852: IF FND_API.to_Boolean( p_init_msg_list ) THEN
853: FND_MSG_PUB.initialize;
854: END IF;
855:
856:
857: -- Initialize API return status to success
954: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
955: --
956: IF l_internal_party_id IS NULL THEN
957: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
958: FND_MSG_PUB.ADD;
959: RAISE FND_API.G_EXC_ERROR;
960: END IF;
961: -- Check if the table is not empty
962: IF p_party_tbl.count > 0 THEN
993: OR (p_party_account_tbl(l_acct_row).parent_tbl_index = FND_API.G_MISS_NUM)
994: OR (NOT(p_party_tbl.EXISTS(p_party_account_tbl(l_acct_row).parent_tbl_index)))
995: ) THEN
996: FND_MESSAGE.SET_NAME('CSI','CSI_API_PARTY_ACCT_NOT_MAPPED');
997: FND_MSG_PUB.Add;
998: RAISE FND_API.G_EXC_ERROR;
999: END IF;
1000:
1001: IF ((p_party_account_tbl(l_acct_row).parent_tbl_index = l_party_row)
1020: -- Raise an exception if external parties don't have an owner account
1021: IF NOT l_party_has_correct_acct THEN
1022: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_OWNER_ACCT');
1023: FND_MESSAGE.SET_TOKEN('PARTY_ID',p_party_tbl(l_party_row).party_id);
1024: FND_MSG_PUB.ADD;
1025: RAISE FND_API.G_EXC_ERROR;
1026: END IF;
1027:
1028: END IF;
1118: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1119: l_msg_index := 1;
1120: l_msg_count := x_msg_count;
1121: WHILE l_msg_count > 0 LOOP
1122: x_msg_data := FND_MSG_PUB.GET(
1123: l_msg_index,
1124: FND_API.G_FALSE );
1125: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
1126: l_msg_index := l_msg_index + 1;
1231: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1232: l_msg_index := 1;
1233: l_msg_count := x_msg_count;
1234: WHILE l_msg_count > 0 LOOP
1235: x_msg_data := FND_MSG_PUB.GET(
1236: l_msg_index,
1237: FND_API.G_FALSE );
1238: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
1239: l_msg_index := l_msg_index + 1;
1312: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1313: l_msg_index := 1;
1314: l_msg_count := x_msg_count;
1315: WHILE l_msg_count > 0 LOOP
1316: x_msg_data := FND_MSG_PUB.GET(
1317: l_msg_index,
1318: FND_API.G_FALSE );
1319: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
1320: l_msg_index := l_msg_index + 1;
1364: l_msg_index := 1;
1365: l_msg_count := x_msg_count;
1366: WHILE l_msg_count > 0
1367: LOOP
1368: x_msg_data := FND_MSG_PUB.GET(
1369: l_msg_index,
1370: FND_API.G_FALSE );
1371: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
1372: l_msg_index := l_msg_index + 1;
1417: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1418: l_msg_index := 1;
1419: l_msg_count := x_msg_count;
1420: WHILE l_msg_count > 0 LOOP
1421: x_msg_data := FND_MSG_PUB.GET(
1422: l_msg_index,
1423: FND_API.G_FALSE );
1424: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
1425: l_msg_index := l_msg_index + 1;
1578: );
1579: --
1580: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1581: FND_MESSAGE.SET_NAME('CSI','CSI_API_GET_CHILDREN_ERROR');
1582: FND_MSG_PUB.Add;
1583: RAISE FND_API.G_EXC_ERROR;
1584: END IF;
1585: END IF;
1586: --
1708: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1709: l_msg_index := 1;
1710: l_msg_count := x_msg_count;
1711: WHILE l_msg_count > 0 LOOP
1712: x_msg_data := FND_MSG_PUB.GET(
1713: l_msg_index,
1714: FND_API.G_FALSE );
1715: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
1716: l_msg_index := l_msg_index + 1;
1761: l_msg_index := 1;
1762: l_msg_count := x_msg_count;
1763: WHILE l_msg_count > 0
1764: LOOP
1765: x_msg_data := FND_MSG_PUB.GET(
1766: l_msg_index,
1767: FND_API.G_FALSE );
1768: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
1769: l_msg_index := l_msg_index + 1;
1819: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1820: l_msg_index := 1;
1821: l_msg_count := x_msg_count;
1822: WHILE l_msg_count > 0 LOOP
1823: x_msg_data := FND_MSG_PUB.GET(
1824: l_msg_index,
1825: FND_API.G_FALSE );
1826: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
1827: l_msg_index := l_msg_index + 1;
1894: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1895: l_msg_index := 1;
1896: l_msg_count := x_msg_count;
1897: WHILE l_msg_count > 0 LOOP
1898: x_msg_data := FND_MSG_PUB.GET(
1899: l_msg_index,
1900: FND_API.G_FALSE );
1901: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
1902: l_msg_index := l_msg_index + 1;
1936: -- End disable trace
1937: ****/
1938:
1939: -- Standard call to get message count and if count is get message info.
1940: FND_MSG_PUB.Count_And_Get
1941: (p_count => x_msg_count ,
1942: p_data => x_msg_data );
1943: EXCEPTION
1944: WHEN FND_API.G_EXC_ERROR THEN
1943: EXCEPTION
1944: WHEN FND_API.G_EXC_ERROR THEN
1945: ROLLBACK TO update_inst_party_rel_pub;
1946: x_return_status := FND_API.G_RET_STS_ERROR ;
1947: FND_MSG_PUB.Count_And_Get
1948: ( p_count => x_msg_count,
1949: p_data => x_msg_data );
1950: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1951: ROLLBACK TO update_inst_party_rel_pub;
1949: p_data => x_msg_data );
1950: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1951: ROLLBACK TO update_inst_party_rel_pub;
1952: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1953: FND_MSG_PUB.Count_And_Get
1954: ( p_count => x_msg_count,
1955: p_data => x_msg_data );
1956: WHEN OTHERS THEN
1957: ROLLBACK TO update_inst_party_rel_pub;
1955: p_data => x_msg_data );
1956: WHEN OTHERS THEN
1957: ROLLBACK TO update_inst_party_rel_pub;
1958: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1959: IF FND_MSG_PUB.Check_Msg_Level
1960: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1961: THEN
1962: FND_MSG_PUB.Add_Exc_Msg
1963: ( g_pkg_name, l_api_name );
1956: WHEN OTHERS THEN
1957: ROLLBACK TO update_inst_party_rel_pub;
1958: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1959: IF FND_MSG_PUB.Check_Msg_Level
1960: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1961: THEN
1962: FND_MSG_PUB.Add_Exc_Msg
1963: ( g_pkg_name, l_api_name );
1964: END IF;
1958: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1959: IF FND_MSG_PUB.Check_Msg_Level
1960: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1961: THEN
1962: FND_MSG_PUB.Add_Exc_Msg
1963: ( g_pkg_name, l_api_name );
1964: END IF;
1965: FND_MSG_PUB.Count_And_Get
1966: ( p_count => x_msg_count,
1961: THEN
1962: FND_MSG_PUB.Add_Exc_Msg
1963: ( g_pkg_name, l_api_name );
1964: END IF;
1965: FND_MSG_PUB.Count_And_Get
1966: ( p_count => x_msg_count,
1967: p_data => x_msg_data );
1968: END update_inst_party_relationship ;
1969:
2012: END IF;
2013:
2014: -- Initialize message list if p_init_msg_list is set to TRUE.
2015: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2016: FND_MSG_PUB.initialize;
2017: END IF;
2018:
2019: -- Initialize API return status to success
2020: x_return_status := FND_API.G_RET_STS_SUCCESS;
2064: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2065: l_msg_index := 1;
2066: l_msg_count := x_msg_count;
2067: WHILE l_msg_count > 0 LOOP
2068: x_msg_data := FND_MSG_PUB.GET(
2069: l_msg_index,
2070: FND_API.G_FALSE );
2071: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
2072: l_msg_index := l_msg_index + 1;
2093: -- End disable trace
2094: ****/
2095:
2096: -- Standard call to get message count and if count is get message info.
2097: FND_MSG_PUB.Count_And_Get
2098: (p_count => x_msg_count ,
2099: p_data => x_msg_data );
2100: EXCEPTION
2101: WHEN FND_API.G_EXC_ERROR THEN
2100: EXCEPTION
2101: WHEN FND_API.G_EXC_ERROR THEN
2102: ROLLBACK TO expire_inst_party_rel_pub;
2103: x_return_status := FND_API.G_RET_STS_ERROR ;
2104: FND_MSG_PUB.Count_And_Get
2105: ( p_count => x_msg_count,
2106: p_data => x_msg_data );
2107:
2108: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2107:
2108: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2109: ROLLBACK TO expire_inst_party_rel_pub;
2110: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2111: FND_MSG_PUB.Count_And_Get
2112: ( p_count => x_msg_count,
2113: p_data => x_msg_data );
2114:
2115: WHEN OTHERS THEN
2114:
2115: WHEN OTHERS THEN
2116: ROLLBACK TO expire_inst_party_relationship;
2117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2118: IF FND_MSG_PUB.Check_Msg_Level
2119: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2120: THEN
2121: FND_MSG_PUB.Add_Exc_Msg
2122: ( g_pkg_name, l_api_name );
2115: WHEN OTHERS THEN
2116: ROLLBACK TO expire_inst_party_relationship;
2117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2118: IF FND_MSG_PUB.Check_Msg_Level
2119: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2120: THEN
2121: FND_MSG_PUB.Add_Exc_Msg
2122: ( g_pkg_name, l_api_name );
2123: END IF;
2117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2118: IF FND_MSG_PUB.Check_Msg_Level
2119: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2120: THEN
2121: FND_MSG_PUB.Add_Exc_Msg
2122: ( g_pkg_name, l_api_name );
2123: END IF;
2124: FND_MSG_PUB.Count_And_Get
2125: ( p_count => x_msg_count,
2120: THEN
2121: FND_MSG_PUB.Add_Exc_Msg
2122: ( g_pkg_name, l_api_name );
2123: END IF;
2124: FND_MSG_PUB.Count_And_Get
2125: ( p_count => x_msg_count,
2126: p_data => x_msg_data );
2127:
2128: END expire_inst_party_relationship;
2187: END IF;
2188:
2189: -- Initialize message list if p_init_msg_list is set to TRUE.
2190: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2191: FND_MSG_PUB.initialize;
2192: END IF;
2193:
2194: -- Initialize API return status to success
2195: x_return_status := FND_API.G_RET_STS_SUCCESS;
2229: AND (p_account_query_rec.party_account_id = FND_API.G_MISS_NUM)
2230: AND (p_account_query_rec.relationship_type_code = FND_API.G_MISS_CHAR) THEN
2231:
2232: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INVALID_PARAMETERS');
2233: FND_MSG_PUB.ADD;
2234: RAISE FND_API.G_EXC_ERROR;
2235: END IF;
2236:
2237: -- Generate the where clause
2272: -- Contruct from the history if p_time_stamp is less than sysdate
2273: csi_party_relationships_pvt.Construct_acct_from_hist(x_account_header_tbl, p_time_stamp);
2274: ELSE
2275: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INVALID_HIST_PARAMS');
2276: FND_MSG_PUB.ADD;
2277: RAISE FND_API.G_EXC_ERROR;
2278: END IF;
2279: END IF;
2280:
2306: -- End disable trace
2307: ****/
2308:
2309: -- Standard call to get message count and if count is get message info.
2310: FND_MSG_PUB.Count_And_Get
2311: (p_count => x_msg_count ,
2312: p_data => x_msg_data );
2313: EXCEPTION
2314: WHEN FND_API.G_EXC_ERROR THEN
2313: EXCEPTION
2314: WHEN FND_API.G_EXC_ERROR THEN
2315: -- ROLLBACK TO get_inst_party_acct_pub;
2316: x_return_status := FND_API.G_RET_STS_ERROR ;
2317: FND_MSG_PUB.Count_And_Get
2318: ( p_count => x_msg_count,
2319: p_data => x_msg_data );
2320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2321: -- ROLLBACK TO get_inst_party_acct_pub;
2319: p_data => x_msg_data );
2320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2321: -- ROLLBACK TO get_inst_party_acct_pub;
2322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2323: FND_MSG_PUB.Count_And_Get
2324: ( p_count => x_msg_count,
2325: p_data => x_msg_data );
2326: WHEN OTHERS THEN
2327: IF dbms_sql.is_open(l_get_acct_cursor_id) then
2328: dbms_sql.close_cursor(l_get_acct_cursor_id);
2329: END IF;
2330: -- ROLLBACK TO get_inst_party_acct_pub;
2331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2332: IF FND_MSG_PUB.Check_Msg_Level
2333: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2334: THEN
2335: FND_MSG_PUB.Add_Exc_Msg
2336: ( g_pkg_name, l_api_name );
2329: END IF;
2330: -- ROLLBACK TO get_inst_party_acct_pub;
2331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2332: IF FND_MSG_PUB.Check_Msg_Level
2333: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2334: THEN
2335: FND_MSG_PUB.Add_Exc_Msg
2336: ( g_pkg_name, l_api_name );
2337: END IF;
2331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2332: IF FND_MSG_PUB.Check_Msg_Level
2333: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2334: THEN
2335: FND_MSG_PUB.Add_Exc_Msg
2336: ( g_pkg_name, l_api_name );
2337: END IF;
2338: FND_MSG_PUB.Count_And_Get
2339: ( p_count => x_msg_count,
2334: THEN
2335: FND_MSG_PUB.Add_Exc_Msg
2336: ( g_pkg_name, l_api_name );
2337: END IF;
2338: FND_MSG_PUB.Count_And_Get
2339: ( p_count => x_msg_count,
2340: p_data => x_msg_data );
2341: END get_inst_party_accountS ;
2342:
2392: END IF;
2393:
2394: -- Initialize message list if p_init_msg_list is set to TRUE.
2395: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2396: FND_MSG_PUB.initialize;
2397: END IF;
2398:
2399: -- Initialize API return status to success
2400: x_return_status := FND_API.G_RET_STS_SUCCESS;
2452: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2453: l_msg_index := 1;
2454: l_msg_count := x_msg_count;
2455: WHILE l_msg_count > 0 LOOP
2456: x_msg_data := FND_MSG_PUB.GET(
2457: l_msg_index,
2458: FND_API.G_FALSE );
2459: csi_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
2460: l_msg_index := l_msg_index + 1;
2481: -- End disable trace
2482: ****/
2483:
2484: -- Standard call to get message count and if count is get message info.
2485: FND_MSG_PUB.Count_And_Get
2486: (p_count => x_msg_count ,
2487: p_data => x_msg_data );
2488: EXCEPTION
2489: WHEN FND_API.G_EXC_ERROR THEN
2488: EXCEPTION
2489: WHEN FND_API.G_EXC_ERROR THEN
2490: ROLLBACK TO create_inst_party_acct_pub;
2491: x_return_status := FND_API.G_RET_STS_ERROR ;
2492: FND_MSG_PUB.Count_And_Get
2493: ( p_count => x_msg_count,
2494: p_data => x_msg_data );
2495: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2496: ROLLBACK TO create_inst_party_acct_pub;
2494: p_data => x_msg_data );
2495: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2496: ROLLBACK TO create_inst_party_acct_pub;
2497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2498: FND_MSG_PUB.Count_And_Get
2499: ( p_count => x_msg_count,
2500: p_data => x_msg_data );
2501: WHEN OTHERS THEN
2502: ROLLBACK TO create_inst_party_acct_pub;
2500: p_data => x_msg_data );
2501: WHEN OTHERS THEN
2502: ROLLBACK TO create_inst_party_acct_pub;
2503: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2504: IF FND_MSG_PUB.Check_Msg_Level
2505: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2506: THEN
2507: FND_MSG_PUB.Add_Exc_Msg
2508: ( g_pkg_name, l_api_name );
2501: WHEN OTHERS THEN
2502: ROLLBACK TO create_inst_party_acct_pub;
2503: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2504: IF FND_MSG_PUB.Check_Msg_Level
2505: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2506: THEN
2507: FND_MSG_PUB.Add_Exc_Msg
2508: ( g_pkg_name, l_api_name );
2509: END IF;
2503: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2504: IF FND_MSG_PUB.Check_Msg_Level
2505: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2506: THEN
2507: FND_MSG_PUB.Add_Exc_Msg
2508: ( g_pkg_name, l_api_name );
2509: END IF;
2510: FND_MSG_PUB.Count_And_Get
2511: ( p_count => x_msg_count,
2506: THEN
2507: FND_MSG_PUB.Add_Exc_Msg
2508: ( g_pkg_name, l_api_name );
2509: END IF;
2510: FND_MSG_PUB.Count_And_Get
2511: ( p_count => x_msg_count,
2512: p_data => x_msg_data );
2513: END create_inst_party_account;
2514:
2579: END IF;
2580:
2581: -- Initialize message list if p_init_msg_list is set to TRUE.
2582: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2583: FND_MSG_PUB.initialize;
2584: END IF;
2585:
2586: -- Initialize API return status to success
2587: x_return_status := FND_API.G_RET_STS_SUCCESS;
2654: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2655: l_msg_index := 1;
2656: l_msg_count := x_msg_count;
2657: WHILE l_msg_count > 0 LOOP
2658: x_msg_data := FND_MSG_PUB.GET(
2659: l_msg_index,
2660: FND_API.G_FALSE );
2661: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
2662: l_msg_index := l_msg_index + 1;
2732: );
2733: --
2734: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2735: FND_MESSAGE.SET_NAME('CSI','CSI_API_GET_CHILDREN_ERROR');
2736: FND_MSG_PUB.Add;
2737: RAISE FND_API.G_EXC_ERROR;
2738: END IF;
2739: --
2740: IF l_rel_tbl.count > 0 THEN
2785: l_msg_index := 1;
2786: l_msg_count := x_msg_count;
2787: WHILE l_msg_count > 0
2788: LOOP
2789: x_msg_data := FND_MSG_PUB.GET(
2790: l_msg_index,
2791: FND_API.G_FALSE );
2792: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
2793: l_msg_index := l_msg_index + 1;
2821: -- End disable trace
2822: ****/
2823:
2824: -- Standard call to get message count and if count is get message info.
2825: FND_MSG_PUB.Count_And_Get
2826: (p_count => x_msg_count ,
2827: p_data => x_msg_data );
2828: EXCEPTION
2829: WHEN FND_API.G_EXC_ERROR THEN
2828: EXCEPTION
2829: WHEN FND_API.G_EXC_ERROR THEN
2830: ROLLBACK TO update_inst_party_acct_pub;
2831: x_return_status := FND_API.G_RET_STS_ERROR ;
2832: FND_MSG_PUB.Count_And_Get
2833: ( p_count => x_msg_count,
2834: p_data => x_msg_data );
2835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2836: ROLLBACK TO update_inst_party_acct_pub;
2834: p_data => x_msg_data );
2835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2836: ROLLBACK TO update_inst_party_acct_pub;
2837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2838: FND_MSG_PUB.Count_And_Get
2839: ( p_count => x_msg_count,
2840: p_data => x_msg_data );
2841: WHEN OTHERS THEN
2842: ROLLBACK TO update_inst_party_acct_pub;
2840: p_data => x_msg_data );
2841: WHEN OTHERS THEN
2842: ROLLBACK TO update_inst_party_acct_pub;
2843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2844: IF FND_MSG_PUB.Check_Msg_Level
2845: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2846: THEN
2847: FND_MSG_PUB.Add_Exc_Msg
2848: ( g_pkg_name, l_api_name );
2841: WHEN OTHERS THEN
2842: ROLLBACK TO update_inst_party_acct_pub;
2843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2844: IF FND_MSG_PUB.Check_Msg_Level
2845: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2846: THEN
2847: FND_MSG_PUB.Add_Exc_Msg
2848: ( g_pkg_name, l_api_name );
2849: END IF;
2843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2844: IF FND_MSG_PUB.Check_Msg_Level
2845: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2846: THEN
2847: FND_MSG_PUB.Add_Exc_Msg
2848: ( g_pkg_name, l_api_name );
2849: END IF;
2850:
2851: FND_MSG_PUB.Count_And_Get
2847: FND_MSG_PUB.Add_Exc_Msg
2848: ( g_pkg_name, l_api_name );
2849: END IF;
2850:
2851: FND_MSG_PUB.Count_And_Get
2852: ( p_count => x_msg_count,
2853: p_data => x_msg_data );
2854: END update_inst_party_account ;
2855:
2900: END IF;
2901:
2902: -- Initialize message list if p_init_msg_list is set to TRUE.
2903: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2904: FND_MSG_PUB.initialize;
2905: END IF;
2906:
2907: -- Initialize API return status to success
2908: x_return_status := FND_API.G_RET_STS_SUCCESS;
2953: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2954: l_msg_index := 1;
2955: l_msg_count := x_msg_count;
2956: WHILE l_msg_count > 0 LOOP
2957: x_msg_data := FND_MSG_PUB.GET(
2958: l_msg_index,
2959: FND_API.G_FALSE);
2960: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
2961: l_msg_index := l_msg_index + 1;
2982: -- End disable trace
2983: ****/
2984:
2985: -- Standard call to get message count and if count is get message info.
2986: FND_MSG_PUB.Count_And_Get
2987: (p_count => x_msg_count ,
2988: p_data => x_msg_data );
2989: EXCEPTION
2990: WHEN FND_API.G_EXC_ERROR THEN
2989: EXCEPTION
2990: WHEN FND_API.G_EXC_ERROR THEN
2991: ROLLBACK TO expire_inst_party_acct_pub;
2992: x_return_status := FND_API.G_RET_STS_ERROR ;
2993: FND_MSG_PUB.Count_And_Get
2994: ( p_count => x_msg_count,
2995: p_data => x_msg_data );
2996:
2997: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2996:
2997: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2998: ROLLBACK TO expire_inst_party_acct_pub;
2999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3000: FND_MSG_PUB.Count_And_Get
3001: ( p_count => x_msg_count,
3002: p_data => x_msg_data );
3003: WHEN OTHERS THEN
3004: ROLLBACK TO expire_inst_party_acct_pub;
3003: WHEN OTHERS THEN
3004: ROLLBACK TO expire_inst_party_acct_pub;
3005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3006:
3007: IF FND_MSG_PUB.Check_Msg_Level
3008: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3009: THEN
3010: FND_MSG_PUB.Add_Exc_Msg
3011: ( g_pkg_name, l_api_name );
3004: ROLLBACK TO expire_inst_party_acct_pub;
3005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3006:
3007: IF FND_MSG_PUB.Check_Msg_Level
3008: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3009: THEN
3010: FND_MSG_PUB.Add_Exc_Msg
3011: ( g_pkg_name, l_api_name );
3012: END IF;
3006:
3007: IF FND_MSG_PUB.Check_Msg_Level
3008: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3009: THEN
3010: FND_MSG_PUB.Add_Exc_Msg
3011: ( g_pkg_name, l_api_name );
3012: END IF;
3013: FND_MSG_PUB.Count_And_Get
3014: ( p_count => x_msg_count,
3009: THEN
3010: FND_MSG_PUB.Add_Exc_Msg
3011: ( g_pkg_name, l_api_name );
3012: END IF;
3013: FND_MSG_PUB.Count_And_Get
3014: ( p_count => x_msg_count,
3015: p_data => x_msg_data );
3016: END expire_inst_party_account ;
3017: END csi_party_relationships_pub ;