[Home] [Help]
31: CURSOR C_renue_opp_forst_tot IS
32: SELECT nvl(sum(OPP_FORECAST_AMOUNT),0) credit_total
33: FROM as_sales_credits
34: WHERE lead_id = p_lead_id
35: AND credit_type_id = FND_PROFILE.VALUE('AS_FORECAST_CREDIT_TYPE_ID');
36:
37: l_line_total NUMBER;
38: l_tot_revenue_opp_forecast_amt NUMBER := 0; --Added for ASNB
39:
78: p_opp_forecast_amount IN NUMBER,
79: p_opp_best_forecast_amount IN NUMBER
80: )
81: IS
82: l_forecast_credit_type_id CONSTANT NUMBER := FND_PROFILE.Value('AS_FORECAST_CREDIT_TYPE_ID');
83: l_opp_worst_forecast_amount NUMBER := p_opp_worst_forecast_amount;
84: l_opp_forecast_amount NUMBER := p_opp_forecast_amount;
85: l_opp_best_forecast_amount NUMBER := p_opp_best_forecast_amount;
86: BEGIN
132: p_opp_best_forecast_amount IN NUMBER,
133: x_return_status OUT NOCOPY VARCHAR2
134: )
135: IS
136: l_forecast_credit_type_id CONSTANT NUMBER := FND_PROFILE.Value('AS_FORECAST_CREDIT_TYPE_ID');
137: CURSOR C_sales_credits(c_lead_line_id NUMBER ) IS
138: SELECT sales_credit_id,
139: credit_amount,
140: credit_percent,
145: l_credit_percent NUMBER;
146: l_credit_amount NUMBER;
147: l_line_amount_old NUMBER := nvl( p_line_amount_old, 0);
148: l_line_amount_new NUMBER := nvl( p_line_amount_new, 0);
149: l_credit_type_id NUMBER := FND_PROFILE.Value('AS_FORECAST_CREDIT_TYPE_ID');
150: l_temp_bool BOOLEAN;
151: l_opp_worst_forecast_amount NUMBER;
152: l_opp_forecast_amount NUMBER;
153: l_opp_best_forecast_amount NUMBER;
450: END IF;
451:
452: -- Jean add in 6/5 for the bug 1801521
453: -- No need to check for this profile as profile is obsoleted
454: -- IF (FND_PROFILE.VALUE('AS_INV_CATEGORIES_FLAG') = 'Y')
455: --THEN
456: IF p_interest_type_id is NOT NULL and
457: p_interest_type_id <> FND_API.G_MISS_NUM and
458: p_inventory_item_id is NOT NULL and
779: l_sales_credit_rec AS_OPPORTUNITY_PUB.Sales_Credit_Rec_type;
780: -- l_salesgroup_id NUMBER;
781: x_sales_credit_out_tbl AS_OPPORTUNITY_PUB.Sales_Credit_Out_Tbl_Type;
782:
783: l_forecast_credit_type_id NUMBER := FND_PROFILE.Value('AS_FORECAST_CREDIT_TYPE_ID');
784: l_isd_credit_type_id NUMBER := FND_PROFILE.Value('AS_ISD_CREDIT_TYPE_ID');
785: l_isd_sales_group_id NUMBER := FND_PROFILE.Value('AS_ISD_SALES_GROUP_ID');
786:
787:
780: -- l_salesgroup_id NUMBER;
781: x_sales_credit_out_tbl AS_OPPORTUNITY_PUB.Sales_Credit_Out_Tbl_Type;
782:
783: l_forecast_credit_type_id NUMBER := FND_PROFILE.Value('AS_FORECAST_CREDIT_TYPE_ID');
784: l_isd_credit_type_id NUMBER := FND_PROFILE.Value('AS_ISD_CREDIT_TYPE_ID');
785: l_isd_sales_group_id NUMBER := FND_PROFILE.Value('AS_ISD_SALES_GROUP_ID');
786:
787:
788: l_freeze_flag VARCHAR2(1) := 'N'; -- solin, for bug 1554330
781: x_sales_credit_out_tbl AS_OPPORTUNITY_PUB.Sales_Credit_Out_Tbl_Type;
782:
783: l_forecast_credit_type_id NUMBER := FND_PROFILE.Value('AS_FORECAST_CREDIT_TYPE_ID');
784: l_isd_credit_type_id NUMBER := FND_PROFILE.Value('AS_ISD_CREDIT_TYPE_ID');
785: l_isd_sales_group_id NUMBER := FND_PROFILE.Value('AS_ISD_SALES_GROUP_ID');
786:
787:
788: l_freeze_flag VARCHAR2(1) := 'N'; -- solin, for bug 1554330
789: l_allow_flag VARCHAR2(1); -- solin, for bug 1554330
833: /*
834: -- Un-comment the following statements when AS_CALLOUT_PKG is ready.
835: -- if profile AS_PRE_CUSTOM_ENABLED is set to 'Y', callout procedure is
836: -- invoked for customization purpose
837: IF(FND_PROFILE.VALUE('AS_PRE_CUSTOM_ENABLED')='Y')
838: THEN
839: AS_CALLOUT_PKG.Create_opp_lines_BC(
840: p_api_version_number => 2.0,
841: p_init_msg_list => FND_API.G_FALSE,
955: CLOSE c_get_opp_freeze_flag;
956:
957: IF l_freeze_flag = 'Y'
958: THEN
959: l_allow_flag := NVL(FND_PROFILE.VALUE('AS_ALLOW_UPDATE_FROZEN_OPP'),'Y');
960: IF l_allow_flag <> 'Y' THEN
961: AS_UTILITY_PVT.Set_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
962: 'API_OPP_FROZEN');
963: RAISE FND_API.G_EXC_ERROR;
1001: l_line_rec.inventory_item_id <> FND_API.G_MISS_NUM AND
1002: (l_line_rec.organization_id IS NULL OR
1003: l_line_rec.organization_id = FND_API.G_MISS_NUM ))
1004: THEN
1005: --l_line_rec.organization_id := FND_PROFILE.Value('ASO_PRODUCT_ORGANIZATION_ID');
1006: org_id := FND_PROFILE.Value('ORG_ID');
1007: --l_line_rec.organization_id := FND_PROFILE.Value('OE_ORGANIZATION_ID');
1008: l_line_rec.organization_id := oe_profile.value('OE_ORGANIZATION_ID', org_id);
1009:
1002: (l_line_rec.organization_id IS NULL OR
1003: l_line_rec.organization_id = FND_API.G_MISS_NUM ))
1004: THEN
1005: --l_line_rec.organization_id := FND_PROFILE.Value('ASO_PRODUCT_ORGANIZATION_ID');
1006: org_id := FND_PROFILE.Value('ORG_ID');
1007: --l_line_rec.organization_id := FND_PROFILE.Value('OE_ORGANIZATION_ID');
1008: l_line_rec.organization_id := oe_profile.value('OE_ORGANIZATION_ID', org_id);
1009:
1010: END IF;
1003: l_line_rec.organization_id = FND_API.G_MISS_NUM ))
1004: THEN
1005: --l_line_rec.organization_id := FND_PROFILE.Value('ASO_PRODUCT_ORGANIZATION_ID');
1006: org_id := FND_PROFILE.Value('ORG_ID');
1007: --l_line_rec.organization_id := FND_PROFILE.Value('OE_ORGANIZATION_ID');
1008: l_line_rec.organization_id := oe_profile.value('OE_ORGANIZATION_ID', org_id);
1009:
1010: END IF;
1011: */
1024: IF (l_line_rec.FORECAST_DATE is NULL OR
1025: l_line_rec.FORECAST_DATE = FND_API.G_MISS_Date ) THEN
1026:
1027: /* Fix for bug# 4111558 */
1028: IF nvl(fnd_profile.value('AS_ACTIVATE_SALES_INTEROP'),'N') = 'Y' then
1029: l_line_rec.ROLLING_FORECAST_FLAG := 'N';
1030: else
1031: OPEN c_decision_date (l_line_rec.lead_id);
1032: FETCH c_decision_date INTO l_line_rec.FORECAST_DATE;
1273: END IF;
1274:
1275: -- Default sales credit for iSD sales group for orcale internal only
1276:
1277: IF ( nvl( FND_PROFILE.Value('ASF_IS_ORACLE_INTERNAL'), 'N') = 'Y') AND
1278: ( l_isd_credit_type_id IS NOT NULL ) AND
1279: ( l_isd_sales_group_id IS NOT NULL ) THEN
1280:
1281: l_sales_credit_rec.credit_type_id := l_isd_credit_type_id;
1396: -- Un-comment the following statements when AS_CALLOUT_PKG is ready.
1397: /*
1398: -- if profile AS_POST_CUSTOM_ENABLED is set to 'Y', callout procedure is
1399: -- invoked for customization purpose
1400: IF(FND_PROFILE.VALUE('AS_POST_CUSTOM_ENABLED')='Y')
1401: THEN
1402: AS_CALLOUT_PKG.Create_opp_lines_AC(
1403: p_api_version_number => 2.0,
1404: p_init_msg_list => FND_API.G_FALSE,
1545: -- Un-comment the following statements when AS_CALLOUT_PKG is ready.
1546: /*
1547: -- if profile AS_PRE_CUSTOM_ENABLED is set to 'Y', callout procedure is
1548: -- invoked for customization purpose
1549: IF(FND_PROFILE.VALUE('AS_PRE_CUSTOM_ENABLED')='Y')
1550: THEN
1551: AS_CALLOUT_PKG.Update_opp_lines_BU(
1552: p_api_version_number => 2.0,
1553: p_init_msg_list => FND_API.G_FALSE,
1629: CLOSE c_get_opp_freeze_flag;
1630:
1631: IF l_freeze_flag = 'Y'
1632: THEN
1633: l_allow_flag := NVL(FND_PROFILE.VALUE('AS_ALLOW_UPDATE_FROZEN_OPP'),'Y');
1634: IF l_allow_flag <> 'Y' THEN
1635: AS_UTILITY_PVT.Set_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
1636: 'API_OPP_FROZEN');
1637: RAISE FND_API.G_EXC_ERROR;
1736:
1737: -- Default forecast date for the purchase line
1738: IF (l_line_rec.FORECAST_DATE is NULL ) THEN
1739: --Fix for bug# 4111558
1740: IF nvl(fnd_profile.value('AS_ACTIVATE_SALES_INTEROP'),'N') = 'Y' then
1741: l_line_rec.ROLLING_FORECAST_FLAG := 'N';
1742: else
1743: OPEN c_decision_date (l_line_rec.lead_id);
1744: FETCH c_decision_date INTO l_line_rec.FORECAST_DATE;
1914: -- Un-comment the following statements when AS_CALLOUT_PKG is ready.
1915: /*
1916: -- if profile AS_POST_CUSTOM_ENABLED is set to 'Y', callout procedure is
1917: -- invoked for customization purpose
1918: IF(FND_PROFILE.VALUE('AS_POST_CUSTOM_ENABLED')='Y')
1919: THEN
1920: AS_CALLOUT_PKG.Update_opp_lines_AU(
1921: p_api_version_number => 2.0,
1922: p_init_msg_list => FND_API.G_FALSE,
2067: -- Un-comment the following statements when AS_CALLOUT_PKG is ready.
2068: /*
2069: -- if profile AS_PRE_CUSTOM_ENABLED is set to 'Y', callout procedure is
2070: -- invoked for customization purpose
2071: IF(FND_PROFILE.VALUE('AS_PRE_CUSTOM_ENABLED')='Y')
2072: THEN
2073: AS_CALLOUT_PKG.Delete_opp_lines_BD(
2074: p_api_version_number => 2.0,
2075: p_init_msg_list => FND_API.G_FALSE,
2150: CLOSE c_get_opp_freeze_flag;
2151:
2152: IF l_freeze_flag = 'Y'
2153: THEN
2154: l_allow_flag := NVL(FND_PROFILE.VALUE('AS_ALLOW_UPDATE_FROZEN_OPP'),'Y');
2155: IF l_allow_flag <> 'Y' THEN
2156: AS_UTILITY_PVT.Set_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
2157: 'API_OPP_FROZEN');
2158: RAISE FND_API.G_EXC_ERROR;
2278:
2279: -- Un-comment the following statements when AS_CALLOUT_PKG is ready.
2280: /*
2281: -- if profile AS_POST_CUSTOM_ENABLED is set to 'Y', callout procedure is invoked for customization purpose
2282: IF(FND_PROFILE.VALUE('AS_POST_CUSTOM_ENABLED')='Y')
2283: THEN
2284: AS_CALLOUT_PKG.Delete_opp_lines_AD(
2285: p_api_version_number => 2.0,
2286: p_init_msg_list => FND_API.G_FALSE,