[Home] [Help]
579: BEGIN
580: -- Standard Start of API savepoint
581: SAVEPOINT DO_CHECK_ATP_INT;
582:
583: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
584:
585: IF aso_debug_pub.g_debug_flag = 'Y' THEN
586: aso_debug_pub.add('do_check_atp: Begin');
587: END IF;
1036: then get l_ship_from_org_id from the profile ASO_SHIP_FROM_ORG_ID and pass the
1037: source_organization_id as the value of l_ship_from_org_id.
1038: */
1039:
1040: l_use_sourcing_rule := fnd_profile.value(name => 'ASO_ATP_USE_SOURCING_RULE');
1041:
1042: if aso_debug_pub.g_debug_flag = 'Y' then
1043: aso_debug_pub.add('do_check_atp: ASO: Use Sourcing Rule profile value is: '||l_use_sourcing_rule,1,'Y');
1044: end if;
1045:
1046: if l_use_sourcing_rule IS NULL OR l_use_sourcing_rule = 'N' then
1047:
1048: -- Get the value for Ship from org Id.
1049: l_ship_from_org_id := fnd_profile.value(name => 'ASO_SHIP_FROM_ORG_ID');
1050:
1051: if aso_debug_pub.g_debug_flag = 'Y' then
1052: aso_debug_pub.add('do_check_atp: ASO: Default Ship From Org profile value is: '||l_ship_from_org_id, 1, 'Y');
1053: end if;
2011: BEGIN
2012: -- Standard Start of API savepoint
2013: SAVEPOINT CHECK_ATP_INT;
2014:
2015: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
2016:
2017: -- Standard call to check for call compatibility.
2018: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2019: p_api_version_number,
2080: source_organization_id as the value of l_ship_from_org_id else get Default Custo
2081: mer and site id for ATP and pass Source Organization id as null and a combinatio
2082: n of customer and site id so that mrp api can use sourcing rules */
2083:
2084: l_use_sourcing_rule := fnd_profile.value(name => 'ASO_ATP_USE_SOURCING_RULE');
2085:
2086: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2087: aso_debug_pub.add('Check_atp : use sourcing rule is '||l_use_sourcing_rule,1,'Y');
2088: END IF;
2089:
2090: IF l_use_sourcing_rule IS NULL OR l_use_sourcing_rule = 'N' THEN
2091:
2092: -- Get the value for Ship from org Id.
2093: l_ship_from_org_id := fnd_profile.value(name => 'ASO_SHIP_FROM_ORG_ID');
2094: If l_ship_from_org_id IS NULL Then
2095: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2096: select user_profile_option_name
2097: into l_profile_name
2094: If l_ship_from_org_id IS NULL Then
2095: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2096: select user_profile_option_name
2097: into l_profile_name
2098: from fnd_profile_options_vl
2099: where profile_option_name = 'ASO_SHIP_FROM_ORG_ID';
2100:
2101: FND_MESSAGE.Set_Name('ASO', 'ASO_API_NO_PROFILE_VALUE');
2102: fnd_message.set_token('PROFILE', l_profile_name);
2108: ELSE
2109: -- Sourcing rule is 'Y' so get the default customer and site id.
2110:
2111: -- To get the Default Customer Id from profile ASO: Atp Default Customer
2112: l_customer_id := fnd_profile.value(name => 'ASO_ATP_DEFAULT_CUSTOMER_ID');
2113:
2114: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2115: aso_debug_pub.add('Check_atp: Default Customer Id from profile'||l_customer_id,1,'Y');
2116: END IF;
2118: IF l_customer_id IS NULL Then
2119: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2120: select user_profile_option_name
2121: into l_profile_name
2122: from fnd_profile_options_vl
2123: where profile_option_name = 'ASO_ATP_DEFAULT_CUSTOMER_ID';
2124:
2125: FND_MESSAGE.Set_Name('ASO', 'ASO_API_NO_PROFILE_VALUE');
2126: fnd_message.set_token('PROFILE', l_profile_name);
2131:
2132:
2133: -- To get the Default Customer Ship to site Id from profile ASO: Atp Default SHip to Site id.
2134:
2135: l_cust_ship_site_id:= fnd_profile.value(name => 'ASO_ATP_SHIP_TO_SITE_ID');
2136:
2137: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2138: aso_debug_pub.add('Check_atp : Default Customer Site Id from profile'||l_cust_ship_site_id);
2139: END IF;
2141: IF l_cust_ship_site_id IS NULL Then
2142: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2143: select user_profile_option_name
2144: into l_profile_name
2145: from fnd_profile_options_vl
2146: where profile_option_name = 'ASO_ATP_SHIP_TO_SITE_ID';
2147:
2148: FND_MESSAGE.Set_Name('ASO', 'ASO_API_NO_PROFILE_VALUE');
2149: fnd_message.set_token('PROFILE', l_profile_name);
2371: l_qte_header_rec aso_quote_pub.qte_header_rec_type;
2372:
2373: Begin
2374: x_return_status := fnd_api.g_ret_sts_success;
2375: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
2376:
2377: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2378: aso_debug_pub.add('ASO_ATP_INT: Check_Atp Begin', 1, 'Y');
2379: END IF;
2483:
2484: -- Standard Start of API savepoint
2485: SAVEPOINT UPDATE_CONFIGURATION_INT;
2486:
2487: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
2488:
2489: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2490: aso_debug_pub.add('update_configuration: Begin');
2491: END IF;