2350:
2351: SAVEPOINT Get_Header_Info_PVT;
2352:
2353: -- Standard call to check for call compatibility.
2354: IF NOT FND_API.Compatible_API_Call (l_api_version,
2355: p_api_version,
2356: l_api_name,
2357: G_PKG_NAME) THEN
2358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2354: IF NOT FND_API.Compatible_API_Call (l_api_version,
2355: p_api_version,
2356: l_api_name,
2357: G_PKG_NAME) THEN
2358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2359: END IF;
2360:
2361: -- Check p_init_msg_list
2362: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2359: END IF;
2360:
2361: -- Check p_init_msg_list
2362: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2363: FND_MSG_PUB.initialize;
2364: END IF;
2365:
2366: x_return_status := FND_API.G_RET_STS_SUCCESS;
2362: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2363: FND_MSG_PUB.initialize;
2364: END IF;
2365:
2366: x_return_status := FND_API.G_RET_STS_SUCCESS;
2367:
2368:
2369: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':p_party_type=' || p_party_type || ':p_org_party_id' || p_org_party_id
2370: || ':p_person_paryt_id=' || p_person_party_id || ':p_rel_party_id=' || p_rel_party_id);
2448: x_msg_data => x_msg_data,
2449: x_location_info_rec => x_location_info_rec);
2450:
2451: -- Standard check of p_commit
2452: IF FND_API.To_Boolean(p_commit) THEN
2453: COMMIT WORK;
2454: END IF;
2455:
2456: -- Standard call to get message count and if count is 1, get message info
2458:
2459:
2460: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':end');
2461: EXCEPTION
2462: WHEN FND_API.G_EXC_ERROR THEN
2463: ROLLBACK TO Get_Header_Info_PVT;
2464: x_return_status := FND_API.G_RET_STS_ERROR;
2465: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2466:
2460: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':end');
2461: EXCEPTION
2462: WHEN FND_API.G_EXC_ERROR THEN
2463: ROLLBACK TO Get_Header_Info_PVT;
2464: x_return_status := FND_API.G_RET_STS_ERROR;
2465: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2466:
2467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2468: ROLLBACK TO Get_Header_Info_PVT;
2463: ROLLBACK TO Get_Header_Info_PVT;
2464: x_return_status := FND_API.G_RET_STS_ERROR;
2465: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2466:
2467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2468: ROLLBACK TO Get_Header_Info_PVT;
2469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2470: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2471:
2465: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2466:
2467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2468: ROLLBACK TO Get_Header_Info_PVT;
2469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2470: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2471:
2472: WHEN OTHERS THEN
2473: ROLLBACK TO Get_Header_Info_PVT;
2470: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2471:
2472: WHEN OTHERS THEN
2473: ROLLBACK TO Get_Header_Info_PVT;
2474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2475: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2476: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2477: END IF;
2478: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2568:
2569: SAVEPOINT Create_Default_Contact_PVT;
2570:
2571: -- Standard call to check for call compatibility.
2572: IF NOT FND_API.Compatible_API_Call (l_api_version,
2573: p_api_version,
2574: l_api_name,
2575: G_PKG_NAME) THEN
2576: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2572: IF NOT FND_API.Compatible_API_Call (l_api_version,
2573: p_api_version,
2574: l_api_name,
2575: G_PKG_NAME) THEN
2576: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2577: END IF;
2578:
2579: -- Check p_init_msg_list
2580: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2576: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2577: END IF;
2578:
2579: -- Check p_init_msg_list
2580: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2581: FND_MSG_PUB.initialize;
2582: END IF;
2583:
2584: x_return_status := FND_API.G_RET_STS_SUCCESS;
2580: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2581: FND_MSG_PUB.initialize;
2582: END IF;
2583:
2584: x_return_status := FND_API.G_RET_STS_SUCCESS;
2585:
2586: l_party_rel_create_rec := AST_API_RECORDS_V2PKG.INIT_HZ_PARTY_REL_REC_TYPE_V2;
2587: l_org_contact_create_rec := AST_API_RECORDS_V2PKG.INIT_HZ_ORG_CONTACT_REC_V2;
2588:
2649: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_cont_object_version_number=' || l_cont_object_version_number);
2650: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_rel_object_version_number=' || l_rel_object_version_number);
2651: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_party_object_version_number=' || l_party_object_version_number);
2652:
2653: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2654: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2655: RAISE FND_API.G_EXC_ERROR;
2656: END IF;
2657:
2650: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_rel_object_version_number=' || l_rel_object_version_number);
2651: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_party_object_version_number=' || l_party_object_version_number);
2652:
2653: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2654: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2655: RAISE FND_API.G_EXC_ERROR;
2656: END IF;
2657:
2658: END LOOP;
2651: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_party_object_version_number=' || l_party_object_version_number);
2652:
2653: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2654: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2655: RAISE FND_API.G_EXC_ERROR;
2656: END IF;
2657:
2658: END LOOP;
2659:
2719:
2720: x_party_id := l_party_id;
2721: x_relationship_id := l_party_relationship_id;
2722:
2723: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2724: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2725: RAISE FND_API.G_EXC_ERROR;
2726: END IF;
2727:
2720: x_party_id := l_party_id;
2721: x_relationship_id := l_party_relationship_id;
2722:
2723: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2724: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2725: RAISE FND_API.G_EXC_ERROR;
2726: END IF;
2727:
2728: IF p_phone_contact_point_id IS NOT NULL THEN
2721: x_relationship_id := l_party_relationship_id;
2722:
2723: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2724: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2725: RAISE FND_API.G_EXC_ERROR;
2726: END IF;
2727:
2728: IF p_phone_contact_point_id IS NOT NULL THEN
2729: OPEN c_contact_point(p_phone_contact_point_id);
2789: x_contact_point_id => l_contact_point_id);
2790:
2791: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_return_status=' || l_return_status || ':l_contact_point_id=' || l_contact_point_id);
2792:
2793: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2794: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2795: RAISE FND_API.G_EXC_ERROR;
2796: END IF;
2797:
2790:
2791: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_return_status=' || l_return_status || ':l_contact_point_id=' || l_contact_point_id);
2792:
2793: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2794: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2795: RAISE FND_API.G_EXC_ERROR;
2796: END IF;
2797:
2798: END IF; /* IF p_phone_contact_point_id IS NOT NULL THEN */
2791: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_return_status=' || l_return_status || ':l_contact_point_id=' || l_contact_point_id);
2792:
2793: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2794: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2795: RAISE FND_API.G_EXC_ERROR;
2796: END IF;
2797:
2798: END IF; /* IF p_phone_contact_point_id IS NOT NULL THEN */
2799:
2857: x_contact_point_id => l_contact_point_id);
2858:
2859: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_return_status=' || l_return_status || ':l_contact_point_id=' || l_contact_point_id);
2860:
2861: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2862: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2863: RAISE FND_API.G_EXC_ERROR;
2864: END IF;
2865:
2858:
2859: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_return_status=' || l_return_status || ':l_contact_point_id=' || l_contact_point_id);
2860:
2861: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2862: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2863: RAISE FND_API.G_EXC_ERROR;
2864: END IF;
2865:
2866: END IF; /* IF p_email_contact_point_id IS NOT NULL THEN */
2859: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_return_status=' || l_return_status || ':l_contact_point_id=' || l_contact_point_id);
2860:
2861: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2862: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2863: RAISE FND_API.G_EXC_ERROR;
2864: END IF;
2865:
2866: END IF; /* IF p_email_contact_point_id IS NOT NULL THEN */
2867:
2922: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_party_site_id=' || l_party_site_id);
2923:
2924: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_return_status=' || l_return_status);
2925:
2926: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2927: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2928: RAISE FND_API.G_EXC_ERROR;
2929: END IF;
2930:
2923:
2924: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_return_status=' || l_return_status);
2925:
2926: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2927: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2928: RAISE FND_API.G_EXC_ERROR;
2929: END IF;
2930:
2931: END IF; /*End of if l_Call_Api true loop for Party Site*/
2924: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_return_status=' || l_return_status);
2925:
2926: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2927: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2928: RAISE FND_API.G_EXC_ERROR;
2929: END IF;
2930:
2931: END IF; /*End of if l_Call_Api true loop for Party Site*/
2932:
2987:
2988: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_return_status=' || l_return_status);
2989: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_party_site_id=' || l_party_site_id);
2990:
2991: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2992: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2993: RAISE FND_API.G_EXC_ERROR;
2994: END IF;
2995:
2988: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_return_status=' || l_return_status);
2989: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_party_site_id=' || l_party_site_id);
2990:
2991: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2992: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2993: RAISE FND_API.G_EXC_ERROR;
2994: END IF;
2995:
2996: END IF; /*End of if l_Call_Api true loop for Party Site*/
2989: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_party_site_id=' || l_party_site_id);
2990:
2991: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2992: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2993: RAISE FND_API.G_EXC_ERROR;
2994: END IF;
2995:
2996: END IF; /*End of if l_Call_Api true loop for Party Site*/
2997:
2997:
2998: END IF; /* IF p_location_id IS NOT NULL THEN */
2999:
3000: -- Standard check of p_commit
3001: IF FND_API.To_Boolean(p_commit) THEN
3002: COMMIT WORK;
3003: END IF;
3004:
3005: -- Standard call to get message count and if count is 1, get message info
3007:
3008:
3009: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':end');
3010: EXCEPTION
3011: WHEN FND_API.G_EXC_ERROR THEN
3012: ROLLBACK TO Create_Default_Contact_PVT;
3013: x_return_status := FND_API.G_RET_STS_ERROR;
3014: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3015:
3009: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':end');
3010: EXCEPTION
3011: WHEN FND_API.G_EXC_ERROR THEN
3012: ROLLBACK TO Create_Default_Contact_PVT;
3013: x_return_status := FND_API.G_RET_STS_ERROR;
3014: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3015:
3016: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3017: ROLLBACK TO Create_Default_Contact_PVT;
3012: ROLLBACK TO Create_Default_Contact_PVT;
3013: x_return_status := FND_API.G_RET_STS_ERROR;
3014: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3015:
3016: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3017: ROLLBACK TO Create_Default_Contact_PVT;
3018: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3019: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3020:
3014: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3015:
3016: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3017: ROLLBACK TO Create_Default_Contact_PVT;
3018: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3019: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3020:
3021: WHEN OTHERS THEN
3022: ROLLBACK TO Create_Default_Contact_PVT;
3019: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3020:
3021: WHEN OTHERS THEN
3022: ROLLBACK TO Create_Default_Contact_PVT;
3023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3024: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3025: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3026: END IF;
3027: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);