2548:
2549: SAVEPOINT Get_Header_Info_PVT;
2550:
2551: -- Standard call to check for call compatibility.
2552: IF NOT FND_API.Compatible_API_Call (l_api_version,
2553: p_api_version,
2554: l_api_name,
2555: G_PKG_NAME) THEN
2556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2552: IF NOT FND_API.Compatible_API_Call (l_api_version,
2553: p_api_version,
2554: l_api_name,
2555: G_PKG_NAME) THEN
2556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2557: END IF;
2558:
2559: -- Check p_init_msg_list
2560: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2557: END IF;
2558:
2559: -- Check p_init_msg_list
2560: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2561: FND_MSG_PUB.initialize;
2562: END IF;
2563:
2564: x_return_status := FND_API.G_RET_STS_SUCCESS;
2560: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2561: FND_MSG_PUB.initialize;
2562: END IF;
2563:
2564: x_return_status := FND_API.G_RET_STS_SUCCESS;
2565:
2566:
2567: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':p_party_type=' || p_party_type || ':p_org_party_id' || p_org_party_id
2568: || ':p_person_paryt_id=' || p_person_party_id || ':p_rel_party_id=' || p_rel_party_id);
2646: x_msg_data => x_msg_data,
2647: x_location_info_rec => x_location_info_rec);
2648:
2649: -- Standard check of p_commit
2650: IF FND_API.To_Boolean(p_commit) THEN
2651: COMMIT WORK;
2652: END IF;
2653:
2654: -- Standard call to get message count and if count is 1, get message info
2656:
2657:
2658: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':end');
2659: EXCEPTION
2660: WHEN FND_API.G_EXC_ERROR THEN
2661: ROLLBACK TO Get_Header_Info_PVT;
2662: x_return_status := FND_API.G_RET_STS_ERROR;
2663: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2664:
2658: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':end');
2659: EXCEPTION
2660: WHEN FND_API.G_EXC_ERROR THEN
2661: ROLLBACK TO Get_Header_Info_PVT;
2662: x_return_status := FND_API.G_RET_STS_ERROR;
2663: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2664:
2665: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2666: ROLLBACK TO Get_Header_Info_PVT;
2661: ROLLBACK TO Get_Header_Info_PVT;
2662: x_return_status := FND_API.G_RET_STS_ERROR;
2663: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2664:
2665: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2666: ROLLBACK TO Get_Header_Info_PVT;
2667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2668: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2669:
2663: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2664:
2665: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2666: ROLLBACK TO Get_Header_Info_PVT;
2667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2668: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2669:
2670: WHEN OTHERS THEN
2671: ROLLBACK TO Get_Header_Info_PVT;
2668: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2669:
2670: WHEN OTHERS THEN
2671: ROLLBACK TO Get_Header_Info_PVT;
2672: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2673: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2674: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2675: END IF;
2676: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2795:
2796: SAVEPOINT Create_Default_Contact_PVT;
2797:
2798: -- Standard call to check for call compatibility.
2799: IF NOT FND_API.Compatible_API_Call (l_api_version,
2800: p_api_version,
2801: l_api_name,
2802: G_PKG_NAME) THEN
2803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2799: IF NOT FND_API.Compatible_API_Call (l_api_version,
2800: p_api_version,
2801: l_api_name,
2802: G_PKG_NAME) THEN
2803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2804: END IF;
2805:
2806: -- Check p_init_msg_list
2807: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2804: END IF;
2805:
2806: -- Check p_init_msg_list
2807: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2808: FND_MSG_PUB.initialize;
2809: END IF;
2810:
2811: x_return_status := FND_API.G_RET_STS_SUCCESS;
2807: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2808: FND_MSG_PUB.initialize;
2809: END IF;
2810:
2811: x_return_status := FND_API.G_RET_STS_SUCCESS;
2812:
2813: l_party_rel_create_rec := AST_API_RECORDS_V2PKG.INIT_HZ_PARTY_REL_REC_TYPE_V2;
2814: l_org_contact_create_rec := AST_API_RECORDS_V2PKG.INIT_HZ_ORG_CONTACT_REC_V2;
2815:
2876: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_cont_object_version_number=' || l_cont_object_version_number);
2877: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_rel_object_version_number=' || l_rel_object_version_number);
2878: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_party_object_version_number=' || l_party_object_version_number);
2879:
2880: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2881: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2882: RAISE FND_API.G_EXC_ERROR;
2883: END IF;
2884:
2877: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_rel_object_version_number=' || l_rel_object_version_number);
2878: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_party_object_version_number=' || l_party_object_version_number);
2879:
2880: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2881: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2882: RAISE FND_API.G_EXC_ERROR;
2883: END IF;
2884:
2885: END LOOP;
2878: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_party_object_version_number=' || l_party_object_version_number);
2879:
2880: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2881: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2882: RAISE FND_API.G_EXC_ERROR;
2883: END IF;
2884:
2885: END LOOP;
2886:
2956:
2957: x_party_id := l_party_id;
2958: x_relationship_id := l_party_relationship_id;
2959:
2960: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2961: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2962: RAISE FND_API.G_EXC_ERROR;
2963: END IF;
2964:
2957: x_party_id := l_party_id;
2958: x_relationship_id := l_party_relationship_id;
2959:
2960: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2961: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2962: RAISE FND_API.G_EXC_ERROR;
2963: END IF;
2964:
2965: IF p_phone_contact_point_id IS NOT NULL THEN
2958: x_relationship_id := l_party_relationship_id;
2959:
2960: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2961: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2962: RAISE FND_API.G_EXC_ERROR;
2963: END IF;
2964:
2965: IF p_phone_contact_point_id IS NOT NULL THEN
2966: --Begin Bug 6509624 31-Mar-2009 barathsr
3037: x_contact_point_id => l_contact_point_id);
3038:
3039: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_return_status=' || l_return_status || ':l_contact_point_id=' || l_contact_point_id);
3040:
3041: IF l_return_status = FND_API.G_RET_STS_ERROR OR
3042: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3043: RAISE FND_API.G_EXC_ERROR;
3044: END IF;
3045: END LOOP;--Added for Bug 6509624 31-Mar-2009 barathsr
3038:
3039: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_return_status=' || l_return_status || ':l_contact_point_id=' || l_contact_point_id);
3040:
3041: IF l_return_status = FND_API.G_RET_STS_ERROR OR
3042: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3043: RAISE FND_API.G_EXC_ERROR;
3044: END IF;
3045: END LOOP;--Added for Bug 6509624 31-Mar-2009 barathsr
3046: CLOSE c_phone_contact_point;--Added for Bug 6509624 31-Mar-2009 barathsr
3039: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_return_status=' || l_return_status || ':l_contact_point_id=' || l_contact_point_id);
3040:
3041: IF l_return_status = FND_API.G_RET_STS_ERROR OR
3042: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3043: RAISE FND_API.G_EXC_ERROR;
3044: END IF;
3045: END LOOP;--Added for Bug 6509624 31-Mar-2009 barathsr
3046: CLOSE c_phone_contact_point;--Added for Bug 6509624 31-Mar-2009 barathsr
3047:
3109: x_contact_point_id => l_contact_point_id);
3110:
3111: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_return_status=' || l_return_status || ':l_contact_point_id=' || l_contact_point_id);
3112:
3113: IF l_return_status = FND_API.G_RET_STS_ERROR OR
3114: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3115: RAISE FND_API.G_EXC_ERROR;
3116: END IF;
3117:
3110:
3111: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_return_status=' || l_return_status || ':l_contact_point_id=' || l_contact_point_id);
3112:
3113: IF l_return_status = FND_API.G_RET_STS_ERROR OR
3114: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3115: RAISE FND_API.G_EXC_ERROR;
3116: END IF;
3117:
3118: END IF; /* IF p_email_contact_point_id IS NOT NULL THEN */
3111: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_return_status=' || l_return_status || ':l_contact_point_id=' || l_contact_point_id);
3112:
3113: IF l_return_status = FND_API.G_RET_STS_ERROR OR
3114: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3115: RAISE FND_API.G_EXC_ERROR;
3116: END IF;
3117:
3118: END IF; /* IF p_email_contact_point_id IS NOT NULL THEN */
3119:
3127: exception
3128: when others then
3129: iex_debug_pub.logmessage(G_PKG_NAME || '.' || l_api_name ||'Exception from getting location ID...l_party_id ==> '||l_party_id);
3130: iex_debug_pub.logmessage(G_PKG_NAME || '.' || l_api_name ||'Error Code / Msg => '||sqlerrm);
3131: RAISE FND_API.G_EXC_ERROR;
3132: end;
3133: */
3134: iex_debug_pub.logmessage(G_PKG_NAME || '.' || l_api_name ||'Location Id => '||l_location_id);
3135: iex_debug_pub.logmessage(G_PKG_NAME || '.' || l_api_name ||'Party Site Id => '||l_party_site_id);
3174: when others then
3175: iex_debug_pub.logmessage(G_PKG_NAME || '.' || l_api_name ||'Exception from getting CUST_ACCT_SITE_ID...l_party_site_id ==> '||l_party_site_id);
3176: iex_debug_pub.logmessage(G_PKG_NAME || '.' || l_api_name ||'Exception from getting CUST_ACCT_SITE_ID...t_cust_account_id ==> '||t_cust_account_id);
3177: iex_debug_pub.logmessage(G_PKG_NAME || '.' || l_api_name ||'Error Code / Msg => '||sqlerrm);
3178: RAISE FND_API.G_EXC_ERROR;
3179: end;
3180: iex_debug_pub.logmessage(G_PKG_NAME || '.' || l_api_name ||'From getting CUST_ACCT_SITE_ID...l_cust_acct_site_id ==> '||l_cust_acct_site_id);
3181: -- end ER 13329879
3182:
3238: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_return_status=' || l_return_status);
3239: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_party_site_id=' || l_party_site_id);
3240: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_return_status=' || l_return_status);
3241:
3242: IF l_return_status = FND_API.G_RET_STS_ERROR OR
3243: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3244: RAISE FND_API.G_EXC_ERROR;
3245: END IF;
3246:
3239: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_party_site_id=' || l_party_site_id);
3240: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_return_status=' || l_return_status);
3241:
3242: IF l_return_status = FND_API.G_RET_STS_ERROR OR
3243: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3244: RAISE FND_API.G_EXC_ERROR;
3245: END IF;
3246:
3247: END IF; /*End of if l_Call_Api true loop for Party Site*/
3240: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_return_status=' || l_return_status);
3241:
3242: IF l_return_status = FND_API.G_RET_STS_ERROR OR
3243: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3244: RAISE FND_API.G_EXC_ERROR;
3245: END IF;
3246:
3247: END IF; /*End of if l_Call_Api true loop for Party Site*/
3248:
3273:
3274: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_return_status=' || l_return_status);
3275: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_cust_account_role_id=' || l_cust_account_role_id);
3276:
3277: IF l_return_status = FND_API.G_RET_STS_ERROR OR
3278: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3279: RAISE FND_API.G_EXC_ERROR;
3280: END IF;
3281: -- End ER 13329879
3274: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_return_status=' || l_return_status);
3275: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_cust_account_role_id=' || l_cust_account_role_id);
3276:
3277: IF l_return_status = FND_API.G_RET_STS_ERROR OR
3278: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3279: RAISE FND_API.G_EXC_ERROR;
3280: END IF;
3281: -- End ER 13329879
3282:
3275: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_cust_account_role_id=' || l_cust_account_role_id);
3276:
3277: IF l_return_status = FND_API.G_RET_STS_ERROR OR
3278: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3279: RAISE FND_API.G_EXC_ERROR;
3280: END IF;
3281: -- End ER 13329879
3282:
3283: -- Standard check of p_commit
3280: END IF;
3281: -- End ER 13329879
3282:
3283: -- Standard check of p_commit
3284: IF FND_API.To_Boolean(p_commit) THEN
3285: COMMIT WORK;
3286: END IF;
3287:
3288: -- Standard call to get message count and if count is 1, get message info
3290:
3291:
3292: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':end');
3293: EXCEPTION
3294: WHEN FND_API.G_EXC_ERROR THEN
3295: ROLLBACK TO Create_Default_Contact_PVT;
3296: x_return_status := FND_API.G_RET_STS_ERROR;
3297: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3298:
3292: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ':end');
3293: EXCEPTION
3294: WHEN FND_API.G_EXC_ERROR THEN
3295: ROLLBACK TO Create_Default_Contact_PVT;
3296: x_return_status := FND_API.G_RET_STS_ERROR;
3297: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3298:
3299: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3300: ROLLBACK TO Create_Default_Contact_PVT;
3295: ROLLBACK TO Create_Default_Contact_PVT;
3296: x_return_status := FND_API.G_RET_STS_ERROR;
3297: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3298:
3299: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3300: ROLLBACK TO Create_Default_Contact_PVT;
3301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3302: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3303:
3297: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3298:
3299: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3300: ROLLBACK TO Create_Default_Contact_PVT;
3301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3302: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3303:
3304: WHEN OTHERS THEN
3305: ROLLBACK TO Create_Default_Contact_PVT;
3302: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3303:
3304: WHEN OTHERS THEN
3305: ROLLBACK TO Create_Default_Contact_PVT;
3306: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3307: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3308: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3309: END IF;
3310: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);