[Home] [Help]
148:
149: -- Hint: Primary key needs to be returned.
150: PROCEDURE Create_sales_credits(
151: P_Api_Version_Number IN NUMBER,
152: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
153: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
154: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
155: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
156: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
149: -- Hint: Primary key needs to be returned.
150: PROCEDURE Create_sales_credits(
151: P_Api_Version_Number IN NUMBER,
152: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
153: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
154: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
155: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
156: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
157: P_Admin_Group_Id IN NUMBER,
150: PROCEDURE Create_sales_credits(
151: P_Api_Version_Number IN NUMBER,
152: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
153: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
154: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
155: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
156: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
157: P_Admin_Group_Id IN NUMBER,
158: P_Identity_Salesforce_Id IN NUMBER := NULL,
151: P_Api_Version_Number IN NUMBER,
152: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
153: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
154: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
155: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
156: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
157: P_Admin_Group_Id IN NUMBER,
158: P_Identity_Salesforce_Id IN NUMBER := NULL,
159: P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
152: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
153: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
154: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
155: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
156: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
157: P_Admin_Group_Id IN NUMBER,
158: P_Identity_Salesforce_Id IN NUMBER := NULL,
159: P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
160: p_partner_cont_party_id IN NUMBER := FND_API.G_MISS_NUM,
156: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
157: P_Admin_Group_Id IN NUMBER,
158: P_Identity_Salesforce_Id IN NUMBER := NULL,
159: P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
160: p_partner_cont_party_id IN NUMBER := FND_API.G_MISS_NUM,
161: P_SALES_CREDIT_tbl IN AS_OPPORTUNITY_PUB.SALES_CREDIT_tbl_Type
162: := AS_OPPORTUNITY_PUB.G_MISS_SALES_CREDIT_tbl,
163: X_SALES_CREDIT_out_tbl OUT NOCOPY AS_OPPORTUNITY_PUB.sales_credit_out_tbl_type,
164: X_Return_Status OUT NOCOPY VARCHAR2,
264: -- Standard Start of API savepoint
265: SAVEPOINT CREATE_SALES_CREDITS_PVT;
266:
267: -- Standard call to check for call compatibility.
268: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
269: p_api_version_number,
270: l_api_name,
271: G_PKG_NAME)
272: THEN
269: p_api_version_number,
270: l_api_name,
271: G_PKG_NAME)
272: THEN
273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
274: END IF;
275:
276: --FND_MSG_PUB.G_MSG_LEVEL_THRESHOLD := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
277:
275:
276: --FND_MSG_PUB.G_MSG_LEVEL_THRESHOLD := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
277:
278: -- Initialize message list if p_init_msg_list is set to TRUE.
279: IF FND_API.to_Boolean( p_init_msg_list )
280: THEN
281: FND_MSG_PUB.initialize;
282: END IF;
283:
289: END IF;
290:
291:
292: -- Initialize API return status to SUCCESS
293: x_return_status := FND_API.G_RET_STS_SUCCESS;
294:
295: --
296: -- API body
297: --
303: IF(FND_PROFILE.VALUE('AS_PRE_CUSTOM_ENABLED')='Y')
304: THEN
305: AS_CALLOUT_PKG.Create_sales_credit_BC(
306: p_api_version_number => 2.0,
307: p_init_msg_list => FND_API.G_FALSE,
308: p_commit => FND_API.G_FALSE,
309: p_validation_level => p_validation_level,
310: P_SALES_CREDIT_Rec => P_SALES_CREDIT_Rec,
311: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
304: THEN
305: AS_CALLOUT_PKG.Create_sales_credit_BC(
306: p_api_version_number => 2.0,
307: p_init_msg_list => FND_API.G_FALSE,
308: p_commit => FND_API.G_FALSE,
309: p_validation_level => p_validation_level,
310: P_SALES_CREDIT_Rec => P_SALES_CREDIT_Rec,
311: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
312: x_return_status => x_return_status,
325: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
326: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
327: FND_MSG_PUB.ADD;
328: END IF;
329: RAISE FND_API.G_EXC_ERROR;
330: END IF;
331:
332: IF(P_Check_Access_Flag = 'Y') THEN
333: AS_SALES_ORG_MANAGER_PVT.Get_CurrentUser(
339: ,x_msg_count => x_msg_count
340: ,x_msg_data => x_msg_data
341: ,x_sales_member_rec => l_identity_sales_member_rec);
342:
343: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
344: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
345: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
346: 'Private API2 Get_CurrentUser fail');
347: END IF;
344: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
345: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
346: 'Private API2 Get_CurrentUser fail');
347: END IF;
348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
349: END IF;
350:
351:
352: -- Call Get_Access_Profiles to get access_profile_rec
370: ,x_msg_count => x_msg_count
371: ,x_msg_data => x_msg_data
372: ,x_update_access_flag => l_update_access_flag );
373:
374: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
375: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
376: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
377: 'has_updateOpportunityAccess fail');
378: END IF;
375: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
376: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
377: 'has_updateOpportunityAccess fail');
378: END IF;
379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
380: END IF;
381:
382: IF (l_update_access_flag <> 'Y') THEN
383: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
384: FND_MESSAGE.Set_Name('AS', 'API_NO_UPDATE_PRIVILEGE');
385: FND_MESSAGE.Set_Token('INFO', 'CUSTOMER_ID,OPPORTUNITY_ID,SALESFORCE_ID', FALSE);
386: FND_MSG_PUB.ADD;
387: END IF;
388: RAISE FND_API.G_EXC_ERROR;
389: END IF;
390: END IF;
391:
392: -- solin, for bug 1554330
399: l_allow_flag := NVL(FND_PROFILE.VALUE('AS_ALLOW_UPDATE_FROZEN_OPP'),'Y');
400: IF l_allow_flag <> 'Y' THEN
401: AS_UTILITY_PVT.Set_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
402: 'API_OPP_FROZEN');
403: RAISE FND_API.G_EXC_ERROR;
404: END IF;
405: END IF;
406: -- end 1554330
407:
407:
408: FOR I in 1 .. l_sales_credit_count LOOP
409: -- Invoke table handler(AS_SALES_CREDITS_PKG.Insert_Row)
410:
411: X_SALES_CREDIT_out_tbl(I).return_status := FND_API.G_RET_STS_SUCCESS;
412: l_SALES_CREDIT_ID := p_SALES_CREDIT_Tbl(I).SALES_CREDIT_ID;
413:
414: -- Progress Message
415: --
438: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
439: l_sales_credit_rec.salesforce_id);
440: END IF;
441:
442: IF nvl(l_sales_credit_rec.partner_customer_id, fnd_api.g_miss_num) = fnd_api.g_miss_num and
443: nvl(l_sales_credit_rec.person_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
444: THEN
445: open C_Person_Id(l_sales_credit_rec.salesforce_id);
446: fetch C_Person_Id into l_sales_credit_rec.person_id;
439: l_sales_credit_rec.salesforce_id);
440: END IF;
441:
442: IF nvl(l_sales_credit_rec.partner_customer_id, fnd_api.g_miss_num) = fnd_api.g_miss_num and
443: nvl(l_sales_credit_rec.person_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
444: THEN
445: open C_Person_Id(l_sales_credit_rec.salesforce_id);
446: fetch C_Person_Id into l_sales_credit_rec.person_id;
447: close C_Person_Id;
444: THEN
445: open C_Person_Id(l_sales_credit_rec.salesforce_id);
446: fetch C_Person_Id into l_sales_credit_rec.person_id;
447: close C_Person_Id;
448: IF nvl(l_sales_credit_rec.person_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
449: THEN
450: open C_Partner_Id(l_sales_credit_rec.salesforce_id);
451: fetch C_Partner_Id into l_sales_credit_rec.partner_customer_id,
452: l_sales_credit_rec.partner_address_id;
458: 'Before sales group');
459: END IF;
460:
461: -- Get partner contact's sales group id
462: IF nvl(l_sales_credit_rec.person_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
463: AND nvl(l_sales_credit_rec.salesgroup_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
464:
465: THEN
466: open C_Group_Id(l_sales_credit_rec.salesforce_id);
459: END IF;
460:
461: -- Get partner contact's sales group id
462: IF nvl(l_sales_credit_rec.person_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
463: AND nvl(l_sales_credit_rec.salesgroup_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
464:
465: THEN
466: open C_Group_Id(l_sales_credit_rec.salesforce_id);
467: fetch C_Group_Id into l_group_id_str;
485: END IF;
486:
487: -- Invoke validation procedures
488: Validate_sales_credit(
489: p_init_msg_list => FND_API.G_FALSE,
490: p_validation_level => p_validation_level,
491: p_validation_mode => AS_UTILITY_PVT.G_CREATE,
492: P_SALES_CREDIT_Rec => l_SALES_CREDIT_Rec,
493: x_return_status => x_return_status,
493: x_return_status => x_return_status,
494: x_msg_count => x_msg_count,
495: x_msg_data => x_msg_data);
496:
497: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
498: IF l_debug THEN
499: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
500: 'Private API4 Validate_sales_credit fail');
501: END IF;
498: IF l_debug THEN
499: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
500: 'Private API4 Validate_sales_credit fail');
501: END IF;
502: RAISE FND_API.G_EXC_ERROR;
503: END IF;
504:
505:
506: -- Debug Message
525: l_sales_credit_rec.OPP_FORECAST_AMOUNT,
526: l_sales_credit_rec.OPP_BEST_FORECAST_AMOUNT);
527: -- Begin Added for ASNB
528: IF (l_sales_credit_rec.DEFAULTED_FROM_OWNER_FLAG IS NULL or
529: l_sales_credit_rec.DEFAULTED_FROM_OWNER_FLAG = FND_API.G_MISS_CHAR) AND
530: nvl(fnd_profile.value('AS_ACTIVATE_SALES_INTEROP'), 'N') = 'Y' AND
531: nvl(fnd_profile.value('AS_FORECAST_CREDIT_TYPE_ID'), 'N') = l_sales_credit_rec.CREDIT_TYPE_ID
532: THEN
533: l_sales_credit_rec.DEFAULTED_FROM_OWNER_FLAG := 'Y';
590:
591: X_SALES_CREDIT_out_tbl(I).SALES_CREDIT_ID := l_SALES_CREDIT_ID;
592: X_SALES_CREDIT_out_tbl(I).return_status := x_return_status;
593:
594: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
595: RAISE FND_API.G_EXC_ERROR;
596: ELSE
597: IF l_debug THEN
598: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
591: X_SALES_CREDIT_out_tbl(I).SALES_CREDIT_ID := l_SALES_CREDIT_ID;
592: X_SALES_CREDIT_out_tbl(I).return_status := x_return_status;
593:
594: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
595: RAISE FND_API.G_EXC_ERROR;
596: ELSE
597: IF l_debug THEN
598: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
599: 'Private API6 Created sales credit: ' ||l_SALES_CREDIT_ID );
610: CLOSE lead_customer;
611:
612: OPEN get_dup_sales_team(l_customer_id,l_address_id ,l_sales_credit_rec.LEAD_ID , l_sales_credit_rec.SALESFORCE_ID, l_sales_credit_rec.SALESGROUP_ID );
613: FETCH get_dup_sales_team into l_upd_team_flag,l_upd_date,l_upd_access_id;
614: l_Sales_Team_Rec.team_leader_flag := FND_API.G_MISS_CHAR;
615: l_Sales_Team_Rec.lead_id := l_sales_credit_rec.LEAD_ID;
616: l_Sales_Team_Rec.customer_id := l_Customer_Id;
617: l_Sales_Team_Rec.address_id := l_Address_Id;
618: l_Sales_Team_Rec.salesforce_id := l_sales_credit_rec.SALESFORCE_ID;
625: -- the following condition added for ASNB
626: IF nvl(fnd_profile.value('AS_ACTIVATE_SALES_INTEROP'), 'N') = 'Y' then
627: l_Sales_Team_Rec.team_leader_flag := 'Y';
628: ELSE
629: IF(l_sales_credit_rec.CREDIT_TYPE_ID = FND_PROFILE.VALUE('AS_FORECAST_CREDIT_TYPE_ID') AND (l_sales_team_rec.partner_customer_id IS NULL OR l_sales_team_rec.partner_customer_id = FND_API.G_MISS_NUM))
630: THEN
631: l_Sales_Team_Rec.team_leader_flag := 'Y';
632: ELSE
633: l_Sales_Team_Rec.team_leader_flag := 'N';
646: END IF;
647:
648: AS_ACCESS_PUB.Create_SalesTeam (
649: p_api_version_number => 2.0
650: ,p_init_msg_list => FND_API.G_FALSE
651: ,p_commit => FND_API.G_FALSE
652: ,p_validation_level => p_Validation_Level
653: ,p_access_profile_rec => l_access_profile_rec
654: ,p_check_access_flag => P_Check_Access_flag
647:
648: AS_ACCESS_PUB.Create_SalesTeam (
649: p_api_version_number => 2.0
650: ,p_init_msg_list => FND_API.G_FALSE
651: ,p_commit => FND_API.G_FALSE
652: ,p_validation_level => p_Validation_Level
653: ,p_access_profile_rec => l_access_profile_rec
654: ,p_check_access_flag => P_Check_Access_flag
655: ,p_admin_flag => P_Admin_Flag
667: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
668: 'Create_SalesTeam: l_access_id = ' || l_access_id);
669: END IF;
670:
671: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
672: IF l_debug THEN
673: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
674: 'Create_SalesTeam fail');
675: END IF;
672: IF l_debug THEN
673: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
674: 'Create_SalesTeam fail');
675: END IF;
676: RAISE FND_API.G_EXC_ERROR;
677: END IF;
678: -- The following else part added for ASNB
679: /*
680: Modified for bug# 4168544.
689: l_Sales_Team_Rec.access_id := l_upd_access_id;
690: l_Sales_Team_Rec.team_leader_flag := 'Y';
691: AS_ACCESS_PUB.Update_SalesTeam (
692: p_api_version_number => 2.0
693: ,p_init_msg_list => FND_API.G_FALSE
694: ,p_commit => FND_API.G_FALSE
695: ,p_validation_level => p_Validation_Level
696: ,p_access_profile_rec => l_access_profile_rec
697: ,p_check_access_flag => P_Check_Access_flag
690: l_Sales_Team_Rec.team_leader_flag := 'Y';
691: AS_ACCESS_PUB.Update_SalesTeam (
692: p_api_version_number => 2.0
693: ,p_init_msg_list => FND_API.G_FALSE
694: ,p_commit => FND_API.G_FALSE
695: ,p_validation_level => p_Validation_Level
696: ,p_access_profile_rec => l_access_profile_rec
697: ,p_check_access_flag => P_Check_Access_flag
698: ,p_admin_flag => P_Admin_Flag
709: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
710: 'update_SalesTeam: l_access_id = ' || l_access_id);
711: END IF;
712:
713: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
714: IF l_debug THEN
715: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
716: 'update_SalesTeam fail');
717: END IF;
714: IF l_debug THEN
715: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
716: 'update_SalesTeam fail');
717: END IF;
718: RAISE FND_API.G_EXC_ERROR;
719: END IF;
720: END IF;
721: END IF;
722: CLOSE get_dup_sales_team;
726: -- End of API body
727: --
728:
729: -- Standard check for p_commit
730: IF FND_API.to_Boolean( p_commit )
731: THEN
732: COMMIT WORK;
733: END IF;
734:
753: IF(FND_PROFILE.VALUE('AS_POST_CUSTOM_ENABLED')='Y')
754: THEN
755: AS_CALLOUT_PKG.Create_sales_credit_AC(
756: p_api_version_number => 2.0,
757: p_init_msg_list => FND_API.G_FALSE,
758: p_commit => FND_API.G_FALSE,
759: p_validation_level => p_validation_level,
760: P_SALES_CREDIT_Rec => P_SALES_CREDIT_Rec,
761: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
754: THEN
755: AS_CALLOUT_PKG.Create_sales_credit_AC(
756: p_api_version_number => 2.0,
757: p_init_msg_list => FND_API.G_FALSE,
758: p_commit => FND_API.G_FALSE,
759: p_validation_level => p_validation_level,
760: P_SALES_CREDIT_Rec => P_SALES_CREDIT_Rec,
761: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
762: x_return_status => x_return_status,
764: x_msg_data => x_msg_data);
765: END IF;
766: */
767: EXCEPTION
768: WHEN FND_API.G_EXC_ERROR THEN
769: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
770: P_MODULE => l_module
771: ,P_API_NAME => L_API_NAME
772: ,P_PKG_NAME => G_PKG_NAME
775: ,X_MSG_COUNT => X_MSG_COUNT
776: ,X_MSG_DATA => X_MSG_DATA
777: ,X_RETURN_STATUS => X_RETURN_STATUS);
778:
779: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
780: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
781: P_MODULE => l_module
782: ,P_API_NAME => L_API_NAME
783: ,P_PKG_NAME => G_PKG_NAME
802:
803: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
804: PROCEDURE Update_sales_credits(
805: P_Api_Version_Number IN NUMBER,
806: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
807: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
808: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
809: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
810: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
803: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
804: PROCEDURE Update_sales_credits(
805: P_Api_Version_Number IN NUMBER,
806: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
807: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
808: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
809: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
810: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
811: P_Admin_Group_Id IN NUMBER,
804: PROCEDURE Update_sales_credits(
805: P_Api_Version_Number IN NUMBER,
806: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
807: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
808: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
809: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
810: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
811: P_Admin_Group_Id IN NUMBER,
812: P_Identity_Salesforce_Id IN NUMBER := NULL,
805: P_Api_Version_Number IN NUMBER,
806: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
807: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
808: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
809: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
810: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
811: P_Admin_Group_Id IN NUMBER,
812: P_Identity_Salesforce_Id IN NUMBER := NULL,
813: P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
806: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
807: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
808: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
809: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
810: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
811: P_Admin_Group_Id IN NUMBER,
812: P_Identity_Salesforce_Id IN NUMBER := NULL,
813: P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
814: p_partner_cont_party_id IN NUMBER := FND_API.G_MISS_NUM,
810: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
811: P_Admin_Group_Id IN NUMBER,
812: P_Identity_Salesforce_Id IN NUMBER := NULL,
813: P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
814: p_partner_cont_party_id IN NUMBER := FND_API.G_MISS_NUM,
815: P_SALES_CREDIT_tbl IN AS_OPPORTUNITY_PUB.SALES_CREDIT_tbl_Type,
816: X_SALES_CREDIT_out_tbl OUT NOCOPY AS_OPPORTUNITY_PUB.sales_credit_out_tbl_type,
817: X_Return_Status OUT NOCOPY VARCHAR2,
818: X_Msg_Count OUT NOCOPY NUMBER,
957: -- Standard Start of API savepoint
958: SAVEPOINT UPDATE_SALES_CREDITS_PVT;
959:
960: -- Standard call to check for call compatibility.
961: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
962: p_api_version_number,
963: l_api_name,
964: G_PKG_NAME)
965: THEN
962: p_api_version_number,
963: l_api_name,
964: G_PKG_NAME)
965: THEN
966: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
967: END IF;
968:
969:
970: -- Initialize message list if p_init_msg_list is set to TRUE.
967: END IF;
968:
969:
970: -- Initialize message list if p_init_msg_list is set to TRUE.
971: IF FND_API.to_Boolean( p_init_msg_list )
972: THEN
973: FND_MSG_PUB.initialize;
974: END IF;
975:
982:
983:
984:
985: -- Initialize API return status to SUCCESS
986: x_return_status := FND_API.G_RET_STS_SUCCESS;
987:
988: --
989: -- Api body
990: --
995: IF(FND_PROFILE.VALUE('AS_PRE_CUSTOM_ENABLED')='Y')
996: THEN
997: AS_CALLOUT_PKG.Update_sales_credit_BU(
998: p_api_version_number => 2.0,
999: p_init_msg_list => FND_API.G_FALSE,
1000: p_commit => FND_API.G_FALSE,
1001: p_validation_level => p_validation_level,
1002: p_identity_salesforce_id => p_identity_salesforce_id,
1003: P_SALES_CREDIT_Rec => P_SALES_CREDIT_Rec,
996: THEN
997: AS_CALLOUT_PKG.Update_sales_credit_BU(
998: p_api_version_number => 2.0,
999: p_init_msg_list => FND_API.G_FALSE,
1000: p_commit => FND_API.G_FALSE,
1001: p_validation_level => p_validation_level,
1002: p_identity_salesforce_id => p_identity_salesforce_id,
1003: P_SALES_CREDIT_Rec => P_SALES_CREDIT_Rec,
1004: x_return_status => x_return_status,
1016: ,x_return_status => x_return_status
1017: ,x_msg_count => x_msg_count
1018: ,x_msg_data => x_msg_data
1019: ,x_sales_member_rec => l_identity_sales_member_rec);
1020: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1021: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1022: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1023: 'Private API9 Get_CurrentUser fail');
1024: END IF;
1021: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1022: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1023: 'Private API9 Get_CurrentUser fail');
1024: END IF;
1025: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1026: END IF;
1027:
1028: -- Call Get_Access_Profiles to get access_profile_rec
1029: AS_OPPORTUNITY_PUB.Get_Access_Profiles(
1046: ,x_msg_count => x_msg_count
1047: ,x_msg_data => x_msg_data
1048: ,x_update_access_flag => l_update_access_flag );
1049:
1050: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1051: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1052: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1053: 'has_updateOpportunityAccess fail');
1054: END IF;
1051: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1052: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1053: 'has_updateOpportunityAccess fail');
1054: END IF;
1055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1056: END IF;
1057:
1058: IF (l_update_access_flag <> 'Y') THEN
1059: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1060: FND_MESSAGE.Set_Name('AS', 'API_NO_UPDATE_PRIVILEGE');
1061: FND_MESSAGE.Set_Token('INFO', 'CUSTOMER_ID,OPPORTUNITY_ID,SALESFORCE_ID', FALSE);
1062: FND_MSG_PUB.ADD;
1063: END IF;
1064: RAISE FND_API.G_EXC_ERROR;
1065: END IF;
1066: END IF;
1067:
1068: -- solin, for bug 1554330
1075: l_allow_flag := NVL(FND_PROFILE.VALUE('AS_ALLOW_UPDATE_FROZEN_OPP'),'Y');
1076: IF l_allow_flag <> 'Y' THEN
1077: AS_UTILITY_PVT.Set_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
1078: 'API_OPP_FROZEN');
1079: RAISE FND_API.G_EXC_ERROR;
1080: END IF;
1081: END IF;
1082: -- end 1554330
1083:
1082: -- end 1554330
1083:
1084: FOR I in 1 .. P_SALES_CREDIT_tbl.count LOOP
1085:
1086: X_SALES_CREDIT_out_tbl(I).return_status := FND_API.G_RET_STS_SUCCESS;
1087: l_tar_SALES_CREDIT_rec := P_SALES_CREDIT_tbl(I);
1088:
1089: IF l_debug THEN
1090: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1178: FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
1179: FND_MESSAGE.Set_Token ('INFO', 'sales_credit', FALSE);
1180: FND_MSG_PUB.Add;
1181: END IF;
1182: raise FND_API.G_EXC_ERROR;
1183: END IF;
1184: -- Debug Message
1185: IF l_debug THEN
1186: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Close Cursor');
1187: END IF;
1188: Close C_Get_sales_credit;
1189:
1190: If (l_tar_SALES_CREDIT_rec.last_update_date is NULL or
1191: l_tar_SALES_CREDIT_rec.last_update_date = FND_API.G_MISS_Date ) Then
1192: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1193: THEN
1194: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1195: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
1194: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1195: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
1196: FND_MSG_PUB.ADD;
1197: END IF;
1198: raise FND_API.G_EXC_ERROR;
1199: End if;
1200: -- Check Whether record has been changed by someone else
1201: If (l_tar_SALES_CREDIT_rec.last_update_date <> l_ref_SALES_CREDIT_rec.last_update_date) Then
1202: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1204: FND_MESSAGE.Set_Name('AS', 'API_RECORD_CHANGED');
1205: FND_MESSAGE.Set_Token('INFO', 'sales_credit', FALSE);
1206: FND_MSG_PUB.ADD;
1207: END IF;
1208: raise FND_API.G_EXC_ERROR;
1209: End if;
1210:
1211: -- Debug message
1212: IF l_debug THEN
1221: l_sales_credit_rec.person_id);
1222: END IF;
1223:
1224:
1225: IF nvl(l_sales_credit_rec.partner_customer_id, fnd_api.g_miss_num) = fnd_api.g_miss_num and
1226: nvl(l_sales_credit_rec.person_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
1227: THEN
1228: open C_Person_Id(l_sales_credit_rec.salesforce_id);
1229: fetch C_Person_Id into l_sales_credit_rec.person_id;
1222: END IF;
1223:
1224:
1225: IF nvl(l_sales_credit_rec.partner_customer_id, fnd_api.g_miss_num) = fnd_api.g_miss_num and
1226: nvl(l_sales_credit_rec.person_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
1227: THEN
1228: open C_Person_Id(l_sales_credit_rec.salesforce_id);
1229: fetch C_Person_Id into l_sales_credit_rec.person_id;
1230: close C_Person_Id;
1227: THEN
1228: open C_Person_Id(l_sales_credit_rec.salesforce_id);
1229: fetch C_Person_Id into l_sales_credit_rec.person_id;
1230: close C_Person_Id;
1231: IF nvl(l_sales_credit_rec.person_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
1232: THEN
1233: open C_Partner_Id(l_sales_credit_rec.salesforce_id);
1234: fetch C_Partner_Id into l_sales_credit_rec.partner_customer_id,
1235: l_sales_credit_rec.partner_address_id;
1238: END IF;
1239:
1240: -- Invoke validation procedures
1241: Validate_sales_credit(
1242: p_init_msg_list => FND_API.G_FALSE,
1243: p_validation_level => p_validation_level,
1244: p_validation_mode => AS_UTILITY_PVT.G_UPDATE,
1245: P_SALES_CREDIT_Rec => l_SALES_CREDIT_Rec,
1246: x_return_status => x_return_status,
1246: x_return_status => x_return_status,
1247: x_msg_count => x_msg_count,
1248: x_msg_data => x_msg_data);
1249:
1250: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1251: IF l_debug THEN
1252: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1253: 'Private API: Validate_sales_credit fail');
1254: END IF;
1251: IF l_debug THEN
1252: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1253: 'Private API: Validate_sales_credit fail');
1254: END IF;
1255: RAISE FND_API.G_EXC_ERROR;
1256: END IF;
1257:
1258: -- Hint: Add corresponding Master-Detail business logic here if necessary.
1259:
1280: ELSE
1281: l_opp_worst_forecast_amount := NULL;
1282: l_opp_forecast_amount := NULL;
1283: l_opp_best_forecast_amount := NULL;
1284: IF l_sales_credit_rec.OPP_WORST_FORECAST_AMOUNT <> FND_API.G_MISS_NUM THEN
1285: l_opp_worst_forecast_amount := l_sales_credit_rec.OPP_WORST_FORECAST_AMOUNT;
1286: END IF;
1287: IF l_sales_credit_rec.OPP_FORECAST_AMOUNT <> FND_API.G_MISS_NUM THEN
1288: l_opp_forecast_amount := l_sales_credit_rec.OPP_FORECAST_AMOUNT;
1283: l_opp_best_forecast_amount := NULL;
1284: IF l_sales_credit_rec.OPP_WORST_FORECAST_AMOUNT <> FND_API.G_MISS_NUM THEN
1285: l_opp_worst_forecast_amount := l_sales_credit_rec.OPP_WORST_FORECAST_AMOUNT;
1286: END IF;
1287: IF l_sales_credit_rec.OPP_FORECAST_AMOUNT <> FND_API.G_MISS_NUM THEN
1288: l_opp_forecast_amount := l_sales_credit_rec.OPP_FORECAST_AMOUNT;
1289: END IF;
1290: IF l_sales_credit_rec.OPP_BEST_FORECAST_AMOUNT <> FND_API.G_MISS_NUM THEN
1291: l_opp_best_forecast_amount := l_sales_credit_rec.OPP_BEST_FORECAST_AMOUNT;
1286: END IF;
1287: IF l_sales_credit_rec.OPP_FORECAST_AMOUNT <> FND_API.G_MISS_NUM THEN
1288: l_opp_forecast_amount := l_sales_credit_rec.OPP_FORECAST_AMOUNT;
1289: END IF;
1290: IF l_sales_credit_rec.OPP_BEST_FORECAST_AMOUNT <> FND_API.G_MISS_NUM THEN
1291: l_opp_best_forecast_amount := l_sales_credit_rec.OPP_BEST_FORECAST_AMOUNT;
1292: END IF;
1293:
1294: IF l_opp_worst_forecast_amount IS NULL OR
1319:
1320: -- Begin Added for ASNB
1321: IF nvl(fnd_profile.value('AS_ACTIVATE_SALES_INTEROP'), 'N') = 'Y'
1322: and (l_sales_credit_rec.DEFAULTED_FROM_OWNER_FLAG IS NULL or
1323: l_sales_credit_rec.DEFAULTED_FROM_OWNER_FLAG = FND_API.G_MISS_CHAR)
1324: THEN
1325: IF nvl(fnd_profile.value('AS_FORECAST_CREDIT_TYPE_ID'), -1) = l_sales_credit_rec.CREDIT_TYPE_ID
1326: THEN
1327: l_sales_credit_rec.DEFAULTED_FROM_OWNER_FLAG := 'Y';
1334: AS_SALES_CREDITS_PKG.Update_Row(
1335: p_SALES_CREDIT_ID => l_sales_credit_rec.SALES_CREDIT_ID,
1336: p_LAST_UPDATE_DATE => SYSDATE,
1337: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
1338: p_CREATION_DATE => FND_API.G_MISS_DATE,
1339: p_CREATED_BY => FND_API.G_MISS_NUM,
1340: p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID,
1341: p_REQUEST_ID => l_sales_credit_rec.REQUEST_ID,
1342: p_PROGRAM_APPLICATION_ID => l_sales_credit_rec.PROGRAM_APPLICATION_ID,
1335: p_SALES_CREDIT_ID => l_sales_credit_rec.SALES_CREDIT_ID,
1336: p_LAST_UPDATE_DATE => SYSDATE,
1337: p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
1338: p_CREATION_DATE => FND_API.G_MISS_DATE,
1339: p_CREATED_BY => FND_API.G_MISS_NUM,
1340: p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID,
1341: p_REQUEST_ID => l_sales_credit_rec.REQUEST_ID,
1342: p_PROGRAM_APPLICATION_ID => l_sales_credit_rec.PROGRAM_APPLICATION_ID,
1343: p_PROGRAM_ID => l_sales_credit_rec.PROGRAM_ID,
1390: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1391: 'Private API17: Updated sales credit: ' ||l_sales_credit_rec.SALES_CREDIT_ID );
1392: END IF;
1393:
1394: if (l_sales_credit_rec.SALESGROUP_ID <> fnd_api.g_miss_num OR nvl(l_sales_credit_rec.PARTNER_CUSTOMER_ID, fnd_api.g_miss_num) <> fnd_api.g_miss_num)
1395: then
1396: -- Add access for the salesforce who is assigned the sales credit
1397:
1398: OPEN lead_customer(l_sales_credit_rec.LEAD_ID);
1398: OPEN lead_customer(l_sales_credit_rec.LEAD_ID);
1399: FETCH lead_customer INTO l_customer_id, l_address_id;
1400: CLOSE lead_customer;
1401:
1402: IF nvl(l_sales_credit_rec.PARTNER_CUSTOMER_ID, fnd_api.g_miss_num) =fnd_api.g_miss_num
1403: THEN
1404: OPEN get_dup_sales_team(l_customer_id,l_address_id ,l_sales_credit_rec.LEAD_ID , l_sales_credit_rec.SALESFORCE_ID, l_sales_credit_rec.SALESGROUP_ID );
1405: FETCH get_dup_sales_team into l_upd_team_flag,l_upd_date,l_upd_access_id;
1406: l_Sales_Team_Rec.team_leader_flag := FND_API.G_MISS_CHAR;
1402: IF nvl(l_sales_credit_rec.PARTNER_CUSTOMER_ID, fnd_api.g_miss_num) =fnd_api.g_miss_num
1403: THEN
1404: OPEN get_dup_sales_team(l_customer_id,l_address_id ,l_sales_credit_rec.LEAD_ID , l_sales_credit_rec.SALESFORCE_ID, l_sales_credit_rec.SALESGROUP_ID );
1405: FETCH get_dup_sales_team into l_upd_team_flag,l_upd_date,l_upd_access_id;
1406: l_Sales_Team_Rec.team_leader_flag := FND_API.G_MISS_CHAR;
1407: l_Sales_Team_Rec.lead_id := l_sales_credit_rec.LEAD_ID;
1408: l_Sales_Team_Rec.customer_id := l_Customer_Id;
1409: l_Sales_Team_Rec.address_id := l_Address_Id;
1410: l_Sales_Team_Rec.salesforce_id := l_sales_credit_rec.SALESFORCE_ID;
1418: -- The followng condition added for ASNB
1419: IF nvl(fnd_profile.value('AS_ACTIVATE_SALES_INTEROP'), 'N') = 'Y' then
1420: l_Sales_Team_Rec.team_leader_flag := 'Y';
1421: ELSE
1422: IF(l_sales_credit_rec.CREDIT_TYPE_ID = FND_PROFILE.VALUE('AS_FORECAST_CREDIT_TYPE_ID') AND (l_sales_team_rec.partner_customer_id IS NULL OR l_sales_team_rec.partner_customer_id = FND_API.G_MISS_NUM))
1423: THEN
1424: l_Sales_Team_Rec.team_leader_flag := 'Y';
1425: ELSE
1426: l_Sales_Team_Rec.team_leader_flag := 'N';
1439: END IF;
1440:
1441: AS_ACCESS_PUB.Create_SalesTeam (
1442: p_api_version_number => 2.0
1443: ,p_init_msg_list => FND_API.G_FALSE
1444: ,p_commit => FND_API.G_FALSE
1445: ,p_validation_level => p_Validation_Level
1446: ,p_access_profile_rec => l_access_profile_rec
1447: ,p_check_access_flag => P_Check_Access_flag
1440:
1441: AS_ACCESS_PUB.Create_SalesTeam (
1442: p_api_version_number => 2.0
1443: ,p_init_msg_list => FND_API.G_FALSE
1444: ,p_commit => FND_API.G_FALSE
1445: ,p_validation_level => p_Validation_Level
1446: ,p_access_profile_rec => l_access_profile_rec
1447: ,p_check_access_flag => P_Check_Access_flag
1448: ,p_admin_flag => P_Admin_Flag
1460: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1461: 'Create_SalesTeam: l_access_id = ' || l_access_id);
1462: END IF;
1463:
1464: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1465: IF l_debug THEN
1466: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1467: 'Create_SalesTeam fail');
1468: END IF;
1465: IF l_debug THEN
1466: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1467: 'Create_SalesTeam fail');
1468: END IF;
1469: RAISE FND_API.G_EXC_ERROR;
1470: END IF;
1471: -- The following else part added for ASNB
1472: /*
1473: Modified for bug# 4168544.
1482: l_Sales_Team_Rec.access_id := l_upd_access_id;
1483: l_Sales_Team_Rec.team_leader_flag := 'Y';
1484: AS_ACCESS_PUB.Update_SalesTeam (
1485: p_api_version_number => 2.0
1486: ,p_init_msg_list => FND_API.G_FALSE
1487: ,p_commit => FND_API.G_FALSE
1488: ,p_validation_level => p_Validation_Level
1489: ,p_access_profile_rec => l_access_profile_rec
1490: ,p_check_access_flag => P_Check_Access_flag
1483: l_Sales_Team_Rec.team_leader_flag := 'Y';
1484: AS_ACCESS_PUB.Update_SalesTeam (
1485: p_api_version_number => 2.0
1486: ,p_init_msg_list => FND_API.G_FALSE
1487: ,p_commit => FND_API.G_FALSE
1488: ,p_validation_level => p_Validation_Level
1489: ,p_access_profile_rec => l_access_profile_rec
1490: ,p_check_access_flag => P_Check_Access_flag
1491: ,p_admin_flag => P_Admin_Flag
1502: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1503: 'update_SalesTeam: l_access_id = ' || l_access_id);
1504: END IF;
1505:
1506: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1507: IF l_debug THEN
1508: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1509: 'update_SalesTeam fail');
1510: END IF;
1507: IF l_debug THEN
1508: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1509: 'update_SalesTeam fail');
1510: END IF;
1511: RAISE FND_API.G_EXC_ERROR;
1512: END IF;
1513: END IF;
1514: END IF;
1515: CLOSE get_dup_sales_team;
1514: END IF;
1515: CLOSE get_dup_sales_team;
1516: END IF;
1517:
1518: IF nvl(l_sales_credit_rec.PARTNER_CUSTOMER_ID, fnd_api.g_miss_num) <>fnd_api.g_miss_num
1519: THEN
1520:
1521: OPEN get_dup_sales_partner(l_customer_id,l_address_id ,l_sales_credit_rec.LEAD_ID , l_sales_credit_rec.SALESFORCE_ID, l_sales_credit_rec.SALESGROUP_ID );
1522: FETCH get_dup_sales_partner into l_val;
1520:
1521: OPEN get_dup_sales_partner(l_customer_id,l_address_id ,l_sales_credit_rec.LEAD_ID , l_sales_credit_rec.SALESFORCE_ID, l_sales_credit_rec.SALESGROUP_ID );
1522: FETCH get_dup_sales_partner into l_val;
1523: IF get_dup_sales_partner%NOTFOUND THEN
1524: l_Sales_Team_Rec.team_leader_flag := FND_API.G_MISS_CHAR;
1525: l_Sales_Team_Rec.lead_id := l_sales_credit_rec.LEAD_ID;
1526: l_Sales_Team_Rec.customer_id := l_Customer_Id;
1527: l_Sales_Team_Rec.address_id := l_Address_Id;
1528: l_Sales_Team_Rec.salesforce_id := l_sales_credit_rec.SALESFORCE_ID;
1530: l_sales_team_rec.person_id := l_sales_credit_rec.PERSON_ID;
1531: l_sales_team_rec.partner_customer_id := l_sales_credit_rec.PARTNER_CUSTOMER_ID;
1532: l_sales_team_rec.partner_address_id := l_sales_credit_rec.PARTNER_ADDRESS_ID;
1533: -- Jean 5/11, for bug 1610145
1534: IF(l_sales_credit_rec.CREDIT_TYPE_ID = FND_PROFILE.VALUE('AS_FORECAST_CREDIT_TYPE_ID') AND (l_sales_team_rec.partner_customer_id IS NULL OR l_sales_team_rec.partner_customer_id = FND_API.G_MISS_NUM))
1535: THEN
1536: l_Sales_Team_Rec.team_leader_flag := 'Y';
1537: ELSE
1538: l_Sales_Team_Rec.team_leader_flag := 'N';
1550: END IF;
1551:
1552: AS_ACCESS_PUB.Create_SalesTeam (
1553: p_api_version_number => 2.0
1554: ,p_init_msg_list => FND_API.G_FALSE
1555: ,p_commit => FND_API.G_FALSE
1556: ,p_validation_level => p_Validation_Level
1557: ,p_access_profile_rec => l_access_profile_rec
1558: ,p_check_access_flag => P_Check_Access_flag
1551:
1552: AS_ACCESS_PUB.Create_SalesTeam (
1553: p_api_version_number => 2.0
1554: ,p_init_msg_list => FND_API.G_FALSE
1555: ,p_commit => FND_API.G_FALSE
1556: ,p_validation_level => p_Validation_Level
1557: ,p_access_profile_rec => l_access_profile_rec
1558: ,p_check_access_flag => P_Check_Access_flag
1559: ,p_admin_flag => P_Admin_Flag
1571: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1572: 'Create_SalesTeam: l_access_id = ' || l_access_id);
1573: END IF;
1574:
1575: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1576: IF l_debug THEN
1577: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1578: 'Create_SalesTeam fail');
1579: END IF;
1576: IF l_debug THEN
1577: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1578: 'Create_SalesTeam fail');
1579: END IF;
1580: RAISE FND_API.G_EXC_ERROR;
1581: END IF;
1582: END IF;
1583: CLOSE get_dup_sales_partner;
1584: END IF;
1590: -- End of API body.
1591: --
1592:
1593: -- Standard check for p_commit
1594: IF FND_API.to_Boolean( p_commit )
1595: THEN
1596: COMMIT WORK;
1597: END IF;
1598:
1618: IF(FND_PROFILE.VALUE('AS_POST_CUSTOM_ENABLED')='Y')
1619: THEN
1620: AS_CALLOUT_PKG.Update_sales_credit_AU(
1621: p_api_version_number => 2.0,
1622: p_init_msg_list => FND_API.G_FALSE,
1623: p_commit => FND_API.G_FALSE,
1624: p_validation_level => p_validation_level,
1625: p_identity_salesforce_id => p_identity_salesforce_id,
1626: P_SALES_CREDIT_Rec => P_SALES_CREDIT_Rec,
1619: THEN
1620: AS_CALLOUT_PKG.Update_sales_credit_AU(
1621: p_api_version_number => 2.0,
1622: p_init_msg_list => FND_API.G_FALSE,
1623: p_commit => FND_API.G_FALSE,
1624: p_validation_level => p_validation_level,
1625: p_identity_salesforce_id => p_identity_salesforce_id,
1626: P_SALES_CREDIT_Rec => P_SALES_CREDIT_Rec,
1627: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
1631: END IF;
1632: */
1633:
1634: EXCEPTION
1635: WHEN FND_API.G_EXC_ERROR THEN
1636: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1637: P_MODULE => l_module
1638: ,P_API_NAME => L_API_NAME
1639: ,P_PKG_NAME => G_PKG_NAME
1642: ,X_MSG_COUNT => X_MSG_COUNT
1643: ,X_MSG_DATA => X_MSG_DATA
1644: ,X_RETURN_STATUS => X_RETURN_STATUS);
1645:
1646: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1647: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1648: P_MODULE => l_module
1649: ,P_API_NAME => L_API_NAME
1650: ,P_PKG_NAME => G_PKG_NAME
1668:
1669:
1670: PROCEDURE modify_sales_credits(
1671: P_Api_Version_Number IN NUMBER,
1672: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1673: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1674: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1675: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
1676: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
1669:
1670: PROCEDURE modify_sales_credits(
1671: P_Api_Version_Number IN NUMBER,
1672: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1673: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1674: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1675: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
1676: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
1677: P_Admin_Group_Id IN NUMBER,
1670: PROCEDURE modify_sales_credits(
1671: P_Api_Version_Number IN NUMBER,
1672: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1673: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1674: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1675: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
1676: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
1677: P_Admin_Group_Id IN NUMBER,
1678: P_Identity_Salesforce_Id IN NUMBER := NULL,
1671: P_Api_Version_Number IN NUMBER,
1672: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1673: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1674: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1675: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
1676: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
1677: P_Admin_Group_Id IN NUMBER,
1678: P_Identity_Salesforce_Id IN NUMBER := NULL,
1679: P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
1672: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1673: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1674: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1675: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
1676: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
1677: P_Admin_Group_Id IN NUMBER,
1678: P_Identity_Salesforce_Id IN NUMBER := NULL,
1679: P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
1680: p_partner_cont_party_id IN NUMBER := FND_API.G_MISS_NUM,
1676: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
1677: P_Admin_Group_Id IN NUMBER,
1678: P_Identity_Salesforce_Id IN NUMBER := NULL,
1679: P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
1680: p_partner_cont_party_id IN NUMBER := FND_API.G_MISS_NUM,
1681: P_SALES_CREDIT_tbl IN AS_OPPORTUNITY_PUB.SALES_CREDIT_tbl_Type,
1682: X_SALES_CREDIT_out_tbl OUT NOCOPY AS_OPPORTUNITY_PUB.sales_credit_out_tbl_type,
1683: X_Return_Status OUT NOCOPY VARCHAR2,
1684: X_Msg_Count OUT NOCOPY NUMBER,
1735: -- Standard Start of API savepoint
1736: SAVEPOINT MODIFY_SALES_CREDITS_PVT;
1737:
1738: -- Standard call to check for call compatibility.
1739: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1740: p_api_version_number,
1741: l_api_name,
1742: G_PKG_NAME)
1743: THEN
1740: p_api_version_number,
1741: l_api_name,
1742: G_PKG_NAME)
1743: THEN
1744: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1745: END IF;
1746:
1747:
1748: -- Initialize message list if p_init_msg_list is set to TRUE.
1745: END IF;
1746:
1747:
1748: -- Initialize message list if p_init_msg_list is set to TRUE.
1749: IF FND_API.to_Boolean( p_init_msg_list )
1750: THEN
1751: FND_MSG_PUB.initialize;
1752: END IF;
1753:
1758: 'Private API 18: ' || l_api_name || ' start');
1759: END IF;
1760:
1761: -- Initialize API return status to SUCCESS
1762: x_return_status := FND_API.G_RET_STS_SUCCESS;
1763:
1764: --
1765: -- Api body
1766: --
1774: ,x_return_status => x_return_status
1775: ,x_msg_count => x_msg_count
1776: ,x_msg_data => x_msg_data
1777: ,x_sales_member_rec => l_identity_sales_member_rec);
1778: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1779: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1780: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1781: 'Private API 19: Get_CurrentUser fail');
1782: END IF;
1779: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1780: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1781: 'Private API 19: Get_CurrentUser fail');
1782: END IF;
1783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1784: END IF;
1785:
1786: -- Call Get_Access_Profiles to get access_profile_rec
1787: AS_OPPORTUNITY_PUB.Get_Access_Profiles(
1804: ,x_msg_count => x_msg_count
1805: ,x_msg_data => x_msg_data
1806: ,x_update_access_flag => l_update_access_flag );
1807:
1808: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1809: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1810: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1811: 'has_updateOpportunityAccess fail');
1812: END IF;
1809: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1810: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1811: 'has_updateOpportunityAccess fail');
1812: END IF;
1813: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1814: END IF;
1815:
1816: IF (l_update_access_flag <> 'Y') THEN
1817: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1818: FND_MESSAGE.Set_Name('AS', 'API_NO_UPDATE_PRIVILEGE');
1819: FND_MESSAGE.Set_Token('INFO', 'CUSTOMER_ID,OPPORTUNITY_ID,SALESFORCE_ID', FALSE);
1820: FND_MSG_PUB.ADD;
1821: END IF;
1822: RAISE FND_API.G_EXC_ERROR;
1823: END IF;
1824: END IF;
1825:
1826: -- Jean correct here
1837: l_allow_flag := NVL(FND_PROFILE.VALUE('AS_ALLOW_UPDATE_FROZEN_OPP'),'Y');
1838: IF l_allow_flag <> 'Y' THEN
1839: AS_UTILITY_PVT.Set_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
1840: 'API_OPP_FROZEN');
1841: RAISE FND_API.G_EXC_ERROR;
1842: END IF;
1843: END IF;
1844: -- end 1554330
1845:
1847: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1848: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1849: 'The profile AS_FORECAST_CREDIT_TYPE_ID is null');
1850: END IF;
1851: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1852: END IF;
1853:
1854: -- Jean Correct the fix for the bug 2422928
1855: -- Filter out empty rows, Bug 2422928
1880: l_sales_credit_rec := r_SALES_CREDIT_tbl(I);
1881:
1882: -- Invoke validation procedures
1883: Validate_sales_credit(
1884: p_init_msg_list => FND_API.G_FALSE,
1885: p_validation_level => p_validation_level,
1886: p_validation_mode => FND_API.G_MISS_CHAR, --AS_UTILITY_PVT.G_CREATE,
1887: P_SALES_CREDIT_Rec => l_SALES_CREDIT_Rec,
1888: x_return_status => x_return_status,
1882: -- Invoke validation procedures
1883: Validate_sales_credit(
1884: p_init_msg_list => FND_API.G_FALSE,
1885: p_validation_level => p_validation_level,
1886: p_validation_mode => FND_API.G_MISS_CHAR, --AS_UTILITY_PVT.G_CREATE,
1887: P_SALES_CREDIT_Rec => l_SALES_CREDIT_Rec,
1888: x_return_status => x_return_status,
1889: x_msg_count => x_msg_count,
1890: x_msg_data => x_msg_data);
1888: x_return_status => x_return_status,
1889: x_msg_count => x_msg_count,
1890: x_msg_data => x_msg_data);
1891:
1892: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1893: IF l_debug THEN
1894: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1895: 'Private API 21: Validate_sales_credit fail');
1896: END IF;
1893: IF l_debug THEN
1894: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1895: 'Private API 21: Validate_sales_credit fail');
1896: END IF;
1897: RAISE FND_API.G_EXC_ERROR;
1898: END IF;
1899:
1900:
1901: IF l_sales_credit_rec.credit_type_id <> l_forecast_credit_type_id THEN
1902: IF l_debug THEN
1903: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1904: 'Private API: Credit_type is not forecast credit type');
1905: END IF;
1906: RAISE FND_API.G_EXC_ERROR;
1907: ELSE
1908: l_total_forecast_amount := l_total_forecast_amount + l_sales_credit_rec.credit_amount;
1909: l_total_forecast_percent := l_total_forecast_percent + l_sales_credit_rec.credit_percent;
1910: END IF;
1918: 'Private API 23: 100% Forecast Credit validation fail');
1919: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1920: 'Private API 24: l_total_percent = '||l_total_forecast_percent );
1921: END IF;
1922: RAISE FND_API.G_EXC_ERROR;
1923: END IF;
1924:
1925: IF l_lead_line_id IS NULL OR l_lead_line_id = FND_API.G_MISS_NUM THEN
1926: IF l_debug THEN
1921: END IF;
1922: RAISE FND_API.G_EXC_ERROR;
1923: END IF;
1924:
1925: IF l_lead_line_id IS NULL OR l_lead_line_id = FND_API.G_MISS_NUM THEN
1926: IF l_debug THEN
1927: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1928: 'Private API 25: lead_line_id is missing in the first sales credit record');
1929: END IF;
1926: IF l_debug THEN
1927: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1928: 'Private API 25: lead_line_id is missing in the first sales credit record');
1929: END IF;
1930: RAISE FND_API.G_EXC_ERROR;
1931: END IF;
1932:
1933:
1934: -- Fix for the bug 2902247
1936:
1937: NL := 1;
1938: UL :=1;
1939: FOR I in 1 .. r_SALES_CREDIT_tbl.count LOOP
1940: IF r_SALES_CREDIT_tbl(I).sales_credit_id IS NULL OR r_SALES_CREDIT_tbl(I).sales_credit_id = FND_API.G_MISS_NUM THEN
1941: n_SALES_CREDIT_tbl(NL) := r_SALES_CREDIT_tbl(I);
1942: NL := NL + 1;
1943: ELSE
1944: u_SALES_CREDIT_tbl(UL) := r_SALES_CREDIT_tbl(I);
1968: IF (DL <> 1)
1969: THEN
1970: AS_OPP_sales_credit_PVT.Delete_sales_credits(
1971: P_Api_Version_Number => 2.0,
1972: P_Init_Msg_List => FND_API.G_FALSE,
1973: P_Commit => FND_API.G_FALSE,
1974: P_Validation_Level => FND_API.G_VALID_LEVEL_NONE,
1975: P_Check_Access_Flag => FND_API.G_FALSE,
1976: P_Admin_Flag => P_Admin_Flag,
1969: THEN
1970: AS_OPP_sales_credit_PVT.Delete_sales_credits(
1971: P_Api_Version_Number => 2.0,
1972: P_Init_Msg_List => FND_API.G_FALSE,
1973: P_Commit => FND_API.G_FALSE,
1974: P_Validation_Level => FND_API.G_VALID_LEVEL_NONE,
1975: P_Check_Access_Flag => FND_API.G_FALSE,
1976: P_Admin_Flag => P_Admin_Flag,
1977: P_Admin_Group_Id => P_Admin_Group_Id,
1970: AS_OPP_sales_credit_PVT.Delete_sales_credits(
1971: P_Api_Version_Number => 2.0,
1972: P_Init_Msg_List => FND_API.G_FALSE,
1973: P_Commit => FND_API.G_FALSE,
1974: P_Validation_Level => FND_API.G_VALID_LEVEL_NONE,
1975: P_Check_Access_Flag => FND_API.G_FALSE,
1976: P_Admin_Flag => P_Admin_Flag,
1977: P_Admin_Group_Id => P_Admin_Group_Id,
1978: P_Profile_Tbl => P_Profile_tbl,
1971: P_Api_Version_Number => 2.0,
1972: P_Init_Msg_List => FND_API.G_FALSE,
1973: P_Commit => FND_API.G_FALSE,
1974: P_Validation_Level => FND_API.G_VALID_LEVEL_NONE,
1975: P_Check_Access_Flag => FND_API.G_FALSE,
1976: P_Admin_Flag => P_Admin_Flag,
1977: P_Admin_Group_Id => P_Admin_Group_Id,
1978: P_Profile_Tbl => P_Profile_tbl,
1979: P_Partner_Cont_Party_Id => p_partner_cont_party_id,
1984: X_Msg_Count => x_msg_count,
1985: X_Msg_Data => x_msg_data);
1986:
1987: -- Check return status from the above procedure call
1988: IF x_return_status = FND_API.G_RET_STS_ERROR then
1989: raise FND_API.G_EXC_ERROR;
1990: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1991: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1992: END IF;
1985: X_Msg_Data => x_msg_data);
1986:
1987: -- Check return status from the above procedure call
1988: IF x_return_status = FND_API.G_RET_STS_ERROR then
1989: raise FND_API.G_EXC_ERROR;
1990: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1991: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1992: END IF;
1993:
1986:
1987: -- Check return status from the above procedure call
1988: IF x_return_status = FND_API.G_RET_STS_ERROR then
1989: raise FND_API.G_EXC_ERROR;
1990: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1991: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1992: END IF;
1993:
1994: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1987: -- Check return status from the above procedure call
1988: IF x_return_status = FND_API.G_RET_STS_ERROR then
1989: raise FND_API.G_EXC_ERROR;
1990: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1991: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1992: END IF;
1993:
1994: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1995: IF l_debug THEN
1990: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1991: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1992: END IF;
1993:
1994: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1995: IF l_debug THEN
1996: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1997: 'Private API 26: Delete_Sales_credits fail');
1998: END IF;
2002: IF (NL <> 1)
2003: THEN
2004: AS_OPP_sales_credit_PVT.Create_sales_credits(
2005: P_Api_Version_Number => 2.0,
2006: P_Init_Msg_List => FND_API.G_FALSE,
2007: P_Commit => FND_API.G_FALSE,
2008: P_Validation_Level => FND_API.G_VALID_LEVEL_NONE,
2009: P_Check_Access_Flag => FND_API.G_FALSE,
2010: P_Admin_Flag => P_Admin_Flag ,
2003: THEN
2004: AS_OPP_sales_credit_PVT.Create_sales_credits(
2005: P_Api_Version_Number => 2.0,
2006: P_Init_Msg_List => FND_API.G_FALSE,
2007: P_Commit => FND_API.G_FALSE,
2008: P_Validation_Level => FND_API.G_VALID_LEVEL_NONE,
2009: P_Check_Access_Flag => FND_API.G_FALSE,
2010: P_Admin_Flag => P_Admin_Flag ,
2011: P_Admin_Group_Id => P_Admin_Group_Id,
2004: AS_OPP_sales_credit_PVT.Create_sales_credits(
2005: P_Api_Version_Number => 2.0,
2006: P_Init_Msg_List => FND_API.G_FALSE,
2007: P_Commit => FND_API.G_FALSE,
2008: P_Validation_Level => FND_API.G_VALID_LEVEL_NONE,
2009: P_Check_Access_Flag => FND_API.G_FALSE,
2010: P_Admin_Flag => P_Admin_Flag ,
2011: P_Admin_Group_Id => P_Admin_Group_Id,
2012: P_Identity_Salesforce_Id => P_Identity_Salesforce_Id,
2005: P_Api_Version_Number => 2.0,
2006: P_Init_Msg_List => FND_API.G_FALSE,
2007: P_Commit => FND_API.G_FALSE,
2008: P_Validation_Level => FND_API.G_VALID_LEVEL_NONE,
2009: P_Check_Access_Flag => FND_API.G_FALSE,
2010: P_Admin_Flag => P_Admin_Flag ,
2011: P_Admin_Group_Id => P_Admin_Group_Id,
2012: P_Identity_Salesforce_Id => P_Identity_Salesforce_Id,
2013: P_Partner_Cont_Party_Id => p_partner_cont_party_id,
2019: X_Msg_Data => x_msg_data);
2020:
2021:
2022: -- Check return status from the above procedure call
2023: IF x_return_status = FND_API.G_RET_STS_ERROR then
2024: raise FND_API.G_EXC_ERROR;
2025: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2026: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2027: END IF;
2020:
2021:
2022: -- Check return status from the above procedure call
2023: IF x_return_status = FND_API.G_RET_STS_ERROR then
2024: raise FND_API.G_EXC_ERROR;
2025: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2026: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2027: END IF;
2028:
2021:
2022: -- Check return status from the above procedure call
2023: IF x_return_status = FND_API.G_RET_STS_ERROR then
2024: raise FND_API.G_EXC_ERROR;
2025: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2026: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2027: END IF;
2028:
2029: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2022: -- Check return status from the above procedure call
2023: IF x_return_status = FND_API.G_RET_STS_ERROR then
2024: raise FND_API.G_EXC_ERROR;
2025: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2026: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2027: END IF;
2028:
2029: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2030: IF l_debug THEN
2025: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2026: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2027: END IF;
2028:
2029: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2030: IF l_debug THEN
2031: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2032: 'Private API 27: Create_Sales_credits fail');
2033: END IF;
2037: IF (UL <>1)
2038: THEN
2039: AS_OPP_sales_credit_PVT.Update_sales_credits(
2040: P_Api_Version_Number => 2.0,
2041: P_Init_Msg_List => FND_API.G_FALSE,
2042: P_Commit => FND_API.G_FALSE,
2043: P_Validation_Level => FND_API.G_VALID_LEVEL_NONE,
2044: P_Check_Access_Flag => FND_API.G_FALSE,
2045: P_Admin_Flag => P_Admin_Flag ,
2038: THEN
2039: AS_OPP_sales_credit_PVT.Update_sales_credits(
2040: P_Api_Version_Number => 2.0,
2041: P_Init_Msg_List => FND_API.G_FALSE,
2042: P_Commit => FND_API.G_FALSE,
2043: P_Validation_Level => FND_API.G_VALID_LEVEL_NONE,
2044: P_Check_Access_Flag => FND_API.G_FALSE,
2045: P_Admin_Flag => P_Admin_Flag ,
2046: P_Admin_Group_Id => P_Admin_Group_Id,
2039: AS_OPP_sales_credit_PVT.Update_sales_credits(
2040: P_Api_Version_Number => 2.0,
2041: P_Init_Msg_List => FND_API.G_FALSE,
2042: P_Commit => FND_API.G_FALSE,
2043: P_Validation_Level => FND_API.G_VALID_LEVEL_NONE,
2044: P_Check_Access_Flag => FND_API.G_FALSE,
2045: P_Admin_Flag => P_Admin_Flag ,
2046: P_Admin_Group_Id => P_Admin_Group_Id,
2047: P_Identity_Salesforce_Id => P_Identity_Salesforce_Id,
2040: P_Api_Version_Number => 2.0,
2041: P_Init_Msg_List => FND_API.G_FALSE,
2042: P_Commit => FND_API.G_FALSE,
2043: P_Validation_Level => FND_API.G_VALID_LEVEL_NONE,
2044: P_Check_Access_Flag => FND_API.G_FALSE,
2045: P_Admin_Flag => P_Admin_Flag ,
2046: P_Admin_Group_Id => P_Admin_Group_Id,
2047: P_Identity_Salesforce_Id => P_Identity_Salesforce_Id,
2048: P_Partner_Cont_Party_Id => p_partner_cont_party_id,
2054: X_Msg_Data => x_msg_data);
2055:
2056:
2057: -- Check return status from the above procedure call
2058: IF x_return_status = FND_API.G_RET_STS_ERROR then
2059: raise FND_API.G_EXC_ERROR;
2060: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2061: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2062: END IF;
2055:
2056:
2057: -- Check return status from the above procedure call
2058: IF x_return_status = FND_API.G_RET_STS_ERROR then
2059: raise FND_API.G_EXC_ERROR;
2060: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2061: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2062: END IF;
2063:
2056:
2057: -- Check return status from the above procedure call
2058: IF x_return_status = FND_API.G_RET_STS_ERROR then
2059: raise FND_API.G_EXC_ERROR;
2060: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2061: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2062: END IF;
2063:
2064: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2057: -- Check return status from the above procedure call
2058: IF x_return_status = FND_API.G_RET_STS_ERROR then
2059: raise FND_API.G_EXC_ERROR;
2060: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2061: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2062: END IF;
2063:
2064: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2065: IF l_debug THEN
2060: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2061: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2062: END IF;
2063:
2064: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2065: IF l_debug THEN
2066: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2067: 'Private API 28: Update_Sales_credits fail');
2068: END IF;
2077: --END LOOP;
2078:
2079: --AS_OPP_sales_credit_PVT.Delete_sales_credits(
2080: -- P_Api_Version_Number => 2.0,
2081: -- P_Init_Msg_List => FND_API.G_FALSE,
2082: -- P_Commit => FND_API.G_FALSE,
2083: -- P_Validation_Level => FND_API.G_VALID_LEVEL_NONE,
2084: -- P_Check_Access_Flag => FND_API.G_FALSE,
2085: -- P_Admin_Flag => P_Admin_Flag,
2078:
2079: --AS_OPP_sales_credit_PVT.Delete_sales_credits(
2080: -- P_Api_Version_Number => 2.0,
2081: -- P_Init_Msg_List => FND_API.G_FALSE,
2082: -- P_Commit => FND_API.G_FALSE,
2083: -- P_Validation_Level => FND_API.G_VALID_LEVEL_NONE,
2084: -- P_Check_Access_Flag => FND_API.G_FALSE,
2085: -- P_Admin_Flag => P_Admin_Flag,
2086: -- P_Admin_Group_Id => P_Admin_Group_Id,
2079: --AS_OPP_sales_credit_PVT.Delete_sales_credits(
2080: -- P_Api_Version_Number => 2.0,
2081: -- P_Init_Msg_List => FND_API.G_FALSE,
2082: -- P_Commit => FND_API.G_FALSE,
2083: -- P_Validation_Level => FND_API.G_VALID_LEVEL_NONE,
2084: -- P_Check_Access_Flag => FND_API.G_FALSE,
2085: -- P_Admin_Flag => P_Admin_Flag,
2086: -- P_Admin_Group_Id => P_Admin_Group_Id,
2087: -- P_Profile_Tbl => P_Profile_tbl,
2080: -- P_Api_Version_Number => 2.0,
2081: -- P_Init_Msg_List => FND_API.G_FALSE,
2082: -- P_Commit => FND_API.G_FALSE,
2083: -- P_Validation_Level => FND_API.G_VALID_LEVEL_NONE,
2084: -- P_Check_Access_Flag => FND_API.G_FALSE,
2085: -- P_Admin_Flag => P_Admin_Flag,
2086: -- P_Admin_Group_Id => P_Admin_Group_Id,
2087: -- P_Profile_Tbl => P_Profile_tbl,
2088: -- P_Partner_Cont_Party_Id => p_partner_cont_party_id,
2093: -- X_Msg_Count => x_msg_count,
2094: -- X_Msg_Data => x_msg_data);
2095:
2096: -- Check return status from the above procedure call
2097: --IF x_return_status = FND_API.G_RET_STS_ERROR then
2098: -- raise FND_API.G_EXC_ERROR;
2099: --elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2100: -- raise FND_API.G_EXC_UNEXPECTED_ERROR;
2101: --END IF;
2094: -- X_Msg_Data => x_msg_data);
2095:
2096: -- Check return status from the above procedure call
2097: --IF x_return_status = FND_API.G_RET_STS_ERROR then
2098: -- raise FND_API.G_EXC_ERROR;
2099: --elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2100: -- raise FND_API.G_EXC_UNEXPECTED_ERROR;
2101: --END IF;
2102:
2095:
2096: -- Check return status from the above procedure call
2097: --IF x_return_status = FND_API.G_RET_STS_ERROR then
2098: -- raise FND_API.G_EXC_ERROR;
2099: --elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2100: -- raise FND_API.G_EXC_UNEXPECTED_ERROR;
2101: --END IF;
2102:
2103: --IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2096: -- Check return status from the above procedure call
2097: --IF x_return_status = FND_API.G_RET_STS_ERROR then
2098: -- raise FND_API.G_EXC_ERROR;
2099: --elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2100: -- raise FND_API.G_EXC_UNEXPECTED_ERROR;
2101: --END IF;
2102:
2103: --IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2104: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2099: --elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2100: -- raise FND_API.G_EXC_UNEXPECTED_ERROR;
2101: --END IF;
2102:
2103: --IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2104: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2105: -- 'Private API 26: Delete_Sales_credits fail');
2106: --END IF;
2107:
2107:
2108:
2109: --AS_OPP_sales_credit_PVT.Create_sales_credits(
2110: -- P_Api_Version_Number => 2.0,
2111: -- P_Init_Msg_List => FND_API.G_FALSE,
2112: -- P_Commit => FND_API.G_FALSE,
2113: -- P_Validation_Level => FND_API.G_VALID_LEVEL_NONE,
2114: -- P_Check_Access_Flag => FND_API.G_FALSE,
2115: -- P_Admin_Flag => P_Admin_Flag ,
2108:
2109: --AS_OPP_sales_credit_PVT.Create_sales_credits(
2110: -- P_Api_Version_Number => 2.0,
2111: -- P_Init_Msg_List => FND_API.G_FALSE,
2112: -- P_Commit => FND_API.G_FALSE,
2113: -- P_Validation_Level => FND_API.G_VALID_LEVEL_NONE,
2114: -- P_Check_Access_Flag => FND_API.G_FALSE,
2115: -- P_Admin_Flag => P_Admin_Flag ,
2116: -- P_Admin_Group_Id => P_Admin_Group_Id,
2109: --AS_OPP_sales_credit_PVT.Create_sales_credits(
2110: -- P_Api_Version_Number => 2.0,
2111: -- P_Init_Msg_List => FND_API.G_FALSE,
2112: -- P_Commit => FND_API.G_FALSE,
2113: -- P_Validation_Level => FND_API.G_VALID_LEVEL_NONE,
2114: -- P_Check_Access_Flag => FND_API.G_FALSE,
2115: -- P_Admin_Flag => P_Admin_Flag ,
2116: -- P_Admin_Group_Id => P_Admin_Group_Id,
2117: -- P_Identity_Salesforce_Id => P_Identity_Salesforce_Id,
2110: -- P_Api_Version_Number => 2.0,
2111: -- P_Init_Msg_List => FND_API.G_FALSE,
2112: -- P_Commit => FND_API.G_FALSE,
2113: -- P_Validation_Level => FND_API.G_VALID_LEVEL_NONE,
2114: -- P_Check_Access_Flag => FND_API.G_FALSE,
2115: -- P_Admin_Flag => P_Admin_Flag ,
2116: -- P_Admin_Group_Id => P_Admin_Group_Id,
2117: -- P_Identity_Salesforce_Id => P_Identity_Salesforce_Id,
2118: -- P_Partner_Cont_Party_Id => p_partner_cont_party_id,
2124: -- X_Msg_Data => x_msg_data);
2125:
2126:
2127: -- Check return status from the above procedure call
2128: --IF x_return_status = FND_API.G_RET_STS_ERROR then
2129: -- raise FND_API.G_EXC_ERROR;
2130: --elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2131: -- raise FND_API.G_EXC_UNEXPECTED_ERROR;
2132: --END IF;
2125:
2126:
2127: -- Check return status from the above procedure call
2128: --IF x_return_status = FND_API.G_RET_STS_ERROR then
2129: -- raise FND_API.G_EXC_ERROR;
2130: --elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2131: -- raise FND_API.G_EXC_UNEXPECTED_ERROR;
2132: --END IF;
2133:
2126:
2127: -- Check return status from the above procedure call
2128: --IF x_return_status = FND_API.G_RET_STS_ERROR then
2129: -- raise FND_API.G_EXC_ERROR;
2130: --elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2131: -- raise FND_API.G_EXC_UNEXPECTED_ERROR;
2132: --END IF;
2133:
2134: --IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2127: -- Check return status from the above procedure call
2128: --IF x_return_status = FND_API.G_RET_STS_ERROR then
2129: -- raise FND_API.G_EXC_ERROR;
2130: --elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2131: -- raise FND_API.G_EXC_UNEXPECTED_ERROR;
2132: --END IF;
2133:
2134: --IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2135: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2130: --elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2131: -- raise FND_API.G_EXC_UNEXPECTED_ERROR;
2132: --END IF;
2133:
2134: --IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2135: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2136: -- 'Private API 27: Create_Sales_credits fail');
2137: --END IF;
2138: -- end of the fix for the bug 2902247
2142: -- End of API body.
2143: --
2144:
2145: -- Standard check for p_commit
2146: IF FND_API.to_Boolean( p_commit )
2147: THEN
2148: COMMIT WORK;
2149: END IF;
2150:
2162: );
2163:
2164:
2165: EXCEPTION
2166: WHEN FND_API.G_EXC_ERROR THEN
2167: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2168: P_MODULE => l_module
2169: ,P_API_NAME => L_API_NAME
2170: ,P_PKG_NAME => G_PKG_NAME
2173: ,X_MSG_COUNT => X_MSG_COUNT
2174: ,X_MSG_DATA => X_MSG_DATA
2175: ,X_RETURN_STATUS => X_RETURN_STATUS);
2176:
2177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2178: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2179: P_MODULE => l_module
2180: ,P_API_NAME => L_API_NAME
2181: ,P_PKG_NAME => G_PKG_NAME
2202: -- Hint: Add corresponding delete detail table procedures if it's master-detail relationship.
2203: -- The Master delete procedure may not be needed depends on different business requirements.
2204: PROCEDURE Delete_sales_credits(
2205: P_Api_Version_Number IN NUMBER,
2206: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2207: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2208: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2209: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
2210: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
2203: -- The Master delete procedure may not be needed depends on different business requirements.
2204: PROCEDURE Delete_sales_credits(
2205: P_Api_Version_Number IN NUMBER,
2206: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2207: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2208: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2209: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
2210: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
2211: P_Admin_Group_Id IN NUMBER,
2204: PROCEDURE Delete_sales_credits(
2205: P_Api_Version_Number IN NUMBER,
2206: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2207: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2208: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2209: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
2210: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
2211: P_Admin_Group_Id IN NUMBER,
2212: P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
2205: P_Api_Version_Number IN NUMBER,
2206: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2207: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2208: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2209: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
2210: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
2211: P_Admin_Group_Id IN NUMBER,
2212: P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
2213: P_identity_salesforce_id IN NUMBER := NULL,
2206: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2207: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2208: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2209: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
2210: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
2211: P_Admin_Group_Id IN NUMBER,
2212: P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
2213: P_identity_salesforce_id IN NUMBER := NULL,
2214: p_partner_cont_party_id IN NUMBER := FND_API.G_MISS_NUM,
2210: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
2211: P_Admin_Group_Id IN NUMBER,
2212: P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
2213: P_identity_salesforce_id IN NUMBER := NULL,
2214: p_partner_cont_party_id IN NUMBER := FND_API.G_MISS_NUM,
2215: P_SALES_CREDIT_tbl IN AS_OPPORTUNITY_PUB.SALES_CREDIT_tbl_type,
2216: X_SALES_CREDIT_out_tbl OUT NOCOPY AS_OPPORTUNITY_PUB.sales_credit_out_tbl_type,
2217: X_Return_Status OUT NOCOPY VARCHAR2,
2218: X_Msg_Count OUT NOCOPY NUMBER,
2240: -- Standard Start of API savepoint
2241: SAVEPOINT DELETE_SALES_CREDITS_PVT;
2242:
2243: -- Standard call to check for call compatibility.
2244: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2245: p_api_version_number,
2246: l_api_name,
2247: G_PKG_NAME)
2248: THEN
2245: p_api_version_number,
2246: l_api_name,
2247: G_PKG_NAME)
2248: THEN
2249: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2250: END IF;
2251:
2252:
2253: -- Initialize message list if p_init_msg_list is set to TRUE.
2250: END IF;
2251:
2252:
2253: -- Initialize message list if p_init_msg_list is set to TRUE.
2254: IF FND_API.to_Boolean( p_init_msg_list )
2255: THEN
2256: FND_MSG_PUB.initialize;
2257: END IF;
2258:
2265:
2266:
2267:
2268: -- Initialize API return status to SUCCESS
2269: x_return_status := FND_API.G_RET_STS_SUCCESS;
2270:
2271: --
2272: -- Api body
2273: --
2278: IF(FND_PROFILE.VALUE('AS_PRE_CUSTOM_ENABLED')='Y')
2279: THEN
2280: AS_CALLOUT_PKG.Delete_sales_credit_BD(
2281: p_api_version_number => 2.0,
2282: p_init_msg_list => FND_API.G_FALSE,
2283: p_commit => FND_API.G_FALSE,
2284: p_validation_level => p_validation_level,
2285: p_identity_salesforce_id => p_identity_salesforce_id,
2286: P_SALES_CREDIT_Rec => P_SALES_CREDIT_Rec,
2279: THEN
2280: AS_CALLOUT_PKG.Delete_sales_credit_BD(
2281: p_api_version_number => 2.0,
2282: p_init_msg_list => FND_API.G_FALSE,
2283: p_commit => FND_API.G_FALSE,
2284: p_validation_level => p_validation_level,
2285: p_identity_salesforce_id => p_identity_salesforce_id,
2286: P_SALES_CREDIT_Rec => P_SALES_CREDIT_Rec,
2287: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
2301: ,x_return_status => x_return_status
2302: ,x_msg_count => x_msg_count
2303: ,x_msg_data => x_msg_data
2304: ,x_sales_member_rec => l_identity_sales_member_rec);
2305: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2306: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2307: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2308: 'Private API 30: Get_CurrentUser fail');
2309: END IF;
2306: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2307: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2308: 'Private API 30: Get_CurrentUser fail');
2309: END IF;
2310: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2311: END IF;
2312:
2313: -- Call Get_Access_Profiles to get access_profile_rec
2314: AS_OPPORTUNITY_PUB.Get_Access_Profiles(
2331: ,x_msg_count => x_msg_count
2332: ,x_msg_data => x_msg_data
2333: ,x_update_access_flag => l_update_access_flag );
2334:
2335: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2336: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2337: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2338: 'has_updateOpportunityAccess fail');
2339: END IF;
2336: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2337: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2338: 'has_updateOpportunityAccess fail');
2339: END IF;
2340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2341: END IF;
2342:
2343: IF (l_update_access_flag <> 'Y') THEN
2344: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2345: FND_MESSAGE.Set_Name('AS', 'API_NO_UPDATE_PRIVILEGE');
2346: FND_MESSAGE.Set_Token('INFO', 'CUSTOMER_ID,OPPORTUNITY_ID,SALESFORCE_ID', FALSE);
2347: FND_MSG_PUB.ADD;
2348: END IF;
2349: RAISE FND_API.G_EXC_ERROR;
2350: END IF;
2351: END IF;
2352:
2353: -- solin, for bug 1554330
2360: l_allow_flag := NVL(FND_PROFILE.VALUE('AS_ALLOW_UPDATE_FROZEN_OPP'),'Y');
2361: IF l_allow_flag <> 'Y' THEN
2362: AS_UTILITY_PVT.Set_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
2363: 'API_OPP_FROZEN');
2364: RAISE FND_API.G_EXC_ERROR;
2365: END IF;
2366: END IF;
2367: -- end 1554330
2368:
2368:
2369: -- Invoke table handler(AS_SALES_CREDITS_PKG.Delete_Row)
2370: FOR I in 1 .. P_SALES_CREDIT_tbl.count LOOP
2371:
2372: X_SALES_CREDIT_out_tbl(I).return_status := FND_API.G_RET_STS_SUCCESS;
2373:
2374: -- Progress Message
2375: --
2376: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
2396:
2397: X_SALES_CREDIT_out_tbl(I).SALES_CREDIT_ID := p_SALES_CREDIT_tbl(I).SALES_CREDIT_ID;
2398: X_SALES_CREDIT_out_tbl(I).return_status := x_return_status;
2399:
2400: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2401: RAISE FND_API.G_EXC_ERROR;
2402: END IF;
2403: END LOOP;
2404: --
2397: X_SALES_CREDIT_out_tbl(I).SALES_CREDIT_ID := p_SALES_CREDIT_tbl(I).SALES_CREDIT_ID;
2398: X_SALES_CREDIT_out_tbl(I).return_status := x_return_status;
2399:
2400: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2401: RAISE FND_API.G_EXC_ERROR;
2402: END IF;
2403: END LOOP;
2404: --
2405: -- End of API body
2405: -- End of API body
2406: --
2407:
2408: -- Standard check for p_commit
2409: IF FND_API.to_Boolean( p_commit )
2410: THEN
2411: COMMIT WORK;
2412: END IF;
2413:
2431: IF(FND_PROFILE.VALUE('AS_POST_CUSTOM_ENABLED')='Y')
2432: THEN
2433: AS_CALLOUT_PKG.Delete_sales_credit_AD(
2434: p_api_version_number => 2.0,
2435: p_init_msg_list => FND_API.G_FALSE,
2436: p_commit => FND_API.G_FALSE,
2437: p_validation_level => p_validation_level,
2438: p_identity_salesforce_id => p_identity_salesforce_id,
2439: P_SALES_CREDIT_Rec => P_SALES_CREDIT_Rec,
2432: THEN
2433: AS_CALLOUT_PKG.Delete_sales_credit_AD(
2434: p_api_version_number => 2.0,
2435: p_init_msg_list => FND_API.G_FALSE,
2436: p_commit => FND_API.G_FALSE,
2437: p_validation_level => p_validation_level,
2438: p_identity_salesforce_id => p_identity_salesforce_id,
2439: P_SALES_CREDIT_Rec => P_SALES_CREDIT_Rec,
2440: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
2444: END IF;
2445: */
2446:
2447: EXCEPTION
2448: WHEN FND_API.G_EXC_ERROR THEN
2449: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2450: P_MODULE => l_module
2451: ,P_API_NAME => L_API_NAME
2452: ,P_PKG_NAME => G_PKG_NAME
2455: ,X_MSG_COUNT => X_MSG_COUNT
2456: ,X_MSG_DATA => X_MSG_DATA
2457: ,X_RETURN_STATUS => X_RETURN_STATUS);
2458:
2459: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2460: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2461: P_MODULE => l_module
2462: ,P_API_NAME => L_API_NAME
2463: ,P_PKG_NAME => G_PKG_NAME
2481:
2482:
2483: -- Item-level validation procedures
2484: PROCEDURE Validate_SALES_CREDIT_ID (
2485: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2486: P_Validation_mode IN VARCHAR2,
2487: P_SALES_CREDIT_ID IN NUMBER,
2488: X_Return_Status OUT NOCOPY VARCHAR2,
2489: X_Msg_Count OUT NOCOPY NUMBER,
2502:
2503: BEGIN
2504:
2505: -- Initialize message list if p_init_msg_list is set to TRUE.
2506: IF FND_API.to_Boolean( p_init_msg_list )
2507: THEN
2508: FND_MSG_PUB.initialize;
2509: END IF;
2510:
2509: END IF;
2510:
2511:
2512: -- Initialize API return status to SUCCESS
2513: x_return_status := FND_API.G_RET_STS_SUCCESS;
2514:
2515:
2516: -- Calling from Create API
2517: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
2515:
2516: -- Calling from Create API
2517: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
2518: THEN
2519: IF (p_SALES_CREDIT_ID is NOT NULL) and (p_SALES_CREDIT_ID <> FND_API.G_MISS_NUM)
2520: THEN
2521: OPEN C_Sales_Credit_Id_Exists (p_Sales_Credit_Id);
2522: FETCH C_Sales_Credit_Id_Exists into l_val;
2523: IF C_Sales_Credit_Id_Exists%FOUND THEN
2525: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
2526: 'Private API 33: SALES_CREDIT_ID exist');
2527: END IF;
2528:
2529: x_return_status := FND_API.G_RET_STS_ERROR;
2530: END IF;
2531: CLOSE C_Sales_Credit_Id_Exists;
2532: END IF;
2533:
2534: -- Calling from Update API
2535: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
2536: THEN
2537: -- validate NOT NULL column
2538: IF (p_SALES_CREDIT_ID is NULL) or (p_SALES_CREDIT_ID = FND_API.G_MISS_NUM)
2539: THEN
2540: IF l_debug THEN
2541: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
2542: 'Private API 34: Violate NOT NULL constraint(SALES_CREDIT_ID)');
2540: IF l_debug THEN
2541: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
2542: 'Private API 34: Violate NOT NULL constraint(SALES_CREDIT_ID)');
2543: END IF;
2544: x_return_status := FND_API.G_RET_STS_ERROR;
2545: ELSE
2546: OPEN C_Sales_Credit_Id_Exists (p_Sales_Credit_Id);
2547: FETCH C_Sales_Credit_Id_Exists into l_val;
2548: IF C_Sales_Credit_Id_Exists%NOTFOUND
2551: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
2552: 'Private API 35: SALES_CREDIT_ID is not valid');
2553: END IF;
2554:
2555: x_return_status := FND_API.G_RET_STS_ERROR;
2556: END IF;
2557: CLOSE C_Sales_Credit_Id_Exists;
2558: END IF;
2559:
2568: END Validate_SALES_CREDIT_ID;
2569:
2570:
2571: PROCEDURE Validate_LEAD_ID (
2572: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2573: P_Validation_mode IN VARCHAR2,
2574: P_LEAD_ID IN NUMBER,
2575: X_Return_Status OUT NOCOPY VARCHAR2,
2576: X_Msg_Count OUT NOCOPY NUMBER,
2590:
2591: BEGIN
2592:
2593: -- Initialize message list if p_init_msg_list is set to TRUE.
2594: IF FND_API.to_Boolean( p_init_msg_list )
2595: THEN
2596: FND_MSG_PUB.initialize;
2597: END IF;
2598:
2597: END IF;
2598:
2599:
2600: -- Initialize API return status to SUCCESS
2601: x_return_status := FND_API.G_RET_STS_SUCCESS;
2602:
2603:
2604: IF (p_LEAD_ID is NULL) or (p_LEAD_ID = FND_API.G_MISS_NUM)
2605: THEN
2600: -- Initialize API return status to SUCCESS
2601: x_return_status := FND_API.G_RET_STS_SUCCESS;
2602:
2603:
2604: IF (p_LEAD_ID is NULL) or (p_LEAD_ID = FND_API.G_MISS_NUM)
2605: THEN
2606: IF l_debug THEN
2607: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
2608: 'Private API 36: Violate NOT NULL constraint(LEAD_ID)');
2607: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
2608: 'Private API 36: Violate NOT NULL constraint(LEAD_ID)');
2609: END IF;
2610:
2611: x_return_status := FND_API.G_RET_STS_ERROR;
2612: ELSE
2613: OPEN C_Lead_Id_Exists (p_Lead_Id);
2614: FETCH C_Lead_Id_Exists into l_val;
2615: IF C_Lead_Id_Exists%NOTFOUND
2618: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
2619: 'Private API 37: LEAD_ID is not valid');
2620: END IF;
2621:
2622: x_return_status := FND_API.G_RET_STS_ERROR;
2623: END IF;
2624: CLOSE C_Lead_Id_Exists;
2625: END IF;
2626:
2633: END Validate_LEAD_ID;
2634:
2635:
2636: PROCEDURE Validate_LEAD_LINE_ID (
2637: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2638: P_Validation_mode IN VARCHAR2,
2639: P_LEAD_LINE_ID IN NUMBER,
2640: X_Return_Status OUT NOCOPY VARCHAR2,
2641: X_Msg_Count OUT NOCOPY NUMBER,
2654:
2655: BEGIN
2656:
2657: -- Initialize message list if p_init_msg_list is set to TRUE.
2658: IF FND_API.to_Boolean( p_init_msg_list )
2659: THEN
2660: FND_MSG_PUB.initialize;
2661: END IF;
2662:
2661: END IF;
2662:
2663:
2664: -- Initialize API return status to SUCCESS
2665: x_return_status := FND_API.G_RET_STS_SUCCESS;
2666:
2667:
2668: IF (p_LEAD_LINE_ID is NULL) or (p_LEAD_LINE_ID = FND_API.G_MISS_NUM)
2669: THEN
2664: -- Initialize API return status to SUCCESS
2665: x_return_status := FND_API.G_RET_STS_SUCCESS;
2666:
2667:
2668: IF (p_LEAD_LINE_ID is NULL) or (p_LEAD_LINE_ID = FND_API.G_MISS_NUM)
2669: THEN
2670: IF l_debug THEN
2671: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
2672: 'Private API 38: Violate NOT NULL constraint(LEAD_LINE_ID)');
2671: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
2672: 'Private API 38: Violate NOT NULL constraint(LEAD_LINE_ID)');
2673: END IF;
2674:
2675: x_return_status := FND_API.G_RET_STS_ERROR;
2676: ELSE
2677: OPEN C_Lead_Line_Id_Exists (p_Lead_Line_Id);
2678: FETCH C_Lead_Line_Id_Exists into l_val;
2679: IF C_Lead_Line_Id_Exists%NOTFOUND
2682: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
2683: 'Private API 39: LEAD_LINE_ID is not valid');
2684: END IF;
2685:
2686: x_return_status := FND_API.G_RET_STS_ERROR;
2687: END IF;
2688: CLOSE C_Lead_Line_Id_Exists;
2689: END IF;
2690:
2697: END Validate_LEAD_LINE_ID;
2698:
2699:
2700: PROCEDURE Validate_SALESFORCE_ID (
2701: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2702: P_Validation_mode IN VARCHAR2,
2703: P_SALESFORCE_ID IN NUMBER,
2704: X_Return_Status OUT NOCOPY VARCHAR2,
2705: X_Msg_Count OUT NOCOPY NUMBER,
2718:
2719: BEGIN
2720:
2721: -- Initialize message list if p_init_msg_list is set to TRUE.
2722: IF FND_API.to_Boolean( p_init_msg_list )
2723: THEN
2724: FND_MSG_PUB.initialize;
2725: END IF;
2726:
2725: END IF;
2726:
2727:
2728: -- Initialize API return status to SUCCESS
2729: x_return_status := FND_API.G_RET_STS_SUCCESS;
2730:
2731:
2732: IF (p_SALESFORCE_ID is NULL) or (p_SALESFORCE_ID = FND_API.G_MISS_NUM)
2733: THEN
2728: -- Initialize API return status to SUCCESS
2729: x_return_status := FND_API.G_RET_STS_SUCCESS;
2730:
2731:
2732: IF (p_SALESFORCE_ID is NULL) or (p_SALESFORCE_ID = FND_API.G_MISS_NUM)
2733: THEN
2734: IF l_debug THEN
2735: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
2736: 'Private API 40: Violate NOT NULL constraint(SALESFORCE_ID)');
2735: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
2736: 'Private API 40: Violate NOT NULL constraint(SALESFORCE_ID)');
2737: END IF;
2738:
2739: x_return_status := FND_API.G_RET_STS_ERROR;
2740: ELSE
2741: OPEN C_Salesforce_Id_Exists (p_Salesforce_Id);
2742: FETCH C_Salesforce_Id_Exists into l_val;
2743: IF C_Salesforce_Id_Exists%NOTFOUND
2746: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
2747: 'Private API 41: SALESFORCE_ID is not valid');
2748: END IF;
2749:
2750: x_return_status := FND_API.G_RET_STS_ERROR;
2751: END IF;
2752: CLOSE C_Salesforce_Id_Exists;
2753: END IF;
2754:
2761: END Validate_SALESFORCE_ID;
2762:
2763:
2764: PROCEDURE Validate_PERSON_ID (
2765: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2766: P_Validation_mode IN VARCHAR2,
2767: P_PERSON_ID IN NUMBER,
2768: X_Return_Status OUT NOCOPY VARCHAR2,
2769: X_Msg_Count OUT NOCOPY NUMBER,
2782:
2783: BEGIN
2784:
2785: -- Initialize message list if p_init_msg_list is set to TRUE.
2786: IF FND_API.to_Boolean( p_init_msg_list )
2787: THEN
2788: FND_MSG_PUB.initialize;
2789: END IF;
2790:
2789: END IF;
2790:
2791:
2792: -- Initialize API return status to SUCCESS
2793: x_return_status := FND_API.G_RET_STS_SUCCESS;
2794:
2795: IF (p_PERSON_ID is NOT NULL) and
2796: (p_PERSON_ID <> FND_API.G_MISS_NUM)
2797: THEN
2792: -- Initialize API return status to SUCCESS
2793: x_return_status := FND_API.G_RET_STS_SUCCESS;
2794:
2795: IF (p_PERSON_ID is NOT NULL) and
2796: (p_PERSON_ID <> FND_API.G_MISS_NUM)
2797: THEN
2798: OPEN C_PERSON_ID_Exists (p_PERSON_ID);
2799: FETCH C_PERSON_ID_Exists into l_val;
2800: IF C_PERSON_ID_Exists%NOTFOUND THEN
2802: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
2803: 'Private API 42: PERSON_ID is invalid');
2804: END IF;
2805:
2806: x_return_status := FND_API.G_RET_STS_ERROR;
2807: END IF;
2808: CLOSE C_PERSON_ID_Exists;
2809: END IF;
2810:
2817: END Validate_PERSON_ID;
2818:
2819:
2820: PROCEDURE Validate_SALESGROUP_ID(
2821: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2822: P_Validation_mode IN VARCHAR2,
2823: P_SALESGROUP_ID IN NUMBER,
2824: P_PERSON_ID IN NUMBER,
2825: X_Return_Status OUT NOCOPY VARCHAR2,
2847:
2848: BEGIN
2849:
2850: -- Initialize message list if p_init_msg_list is set to TRUE.
2851: IF FND_API.to_Boolean( p_init_msg_list )
2852: THEN
2853: FND_MSG_PUB.initialize;
2854: END IF;
2855:
2854: END IF;
2855:
2856:
2857: -- Initialize API return status to SUCCESS
2858: x_return_status := FND_API.G_RET_STS_SUCCESS;
2859:
2860: /* IF (p_SALESGROUP_ID is NOT NULL) and (p_SALESGROUP_ID <>
2861: FND_API.G_MISS_NUM)
2862: THEN
2857: -- Initialize API return status to SUCCESS
2858: x_return_status := FND_API.G_RET_STS_SUCCESS;
2859:
2860: /* IF (p_SALESGROUP_ID is NOT NULL) and (p_SALESGROUP_ID <>
2861: FND_API.G_MISS_NUM)
2862: THEN
2863: IF (p_PERSON_ID is NOT NULL) and (p_PERSON_ID <> FND_API.G_MISS_NUM)
2864: THEN
2865: OPEN C_SALES_GROUP_ID_Exists (p_SALESGROUP_ID);
2859:
2860: /* IF (p_SALESGROUP_ID is NOT NULL) and (p_SALESGROUP_ID <>
2861: FND_API.G_MISS_NUM)
2862: THEN
2863: IF (p_PERSON_ID is NOT NULL) and (p_PERSON_ID <> FND_API.G_MISS_NUM)
2864: THEN
2865: OPEN C_SALES_GROUP_ID_Exists (p_SALESGROUP_ID);
2866: FETCH C_SALES_GROUP_ID_Exists into l_val;
2867: IF C_SALES_GROUP_ID_Exists%NOTFOUND THEN
2869: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
2870: 'SALES_GROUP_ID1 is invalid');
2871: END IF;
2872:
2873: x_return_status := FND_API.G_RET_STS_ERROR;
2874: END IF;
2875: CLOSE C_SALES_GROUP_ID_Exists;
2876: ELSE
2877: OPEN C_PRTNR_SALES_GROUP_ID_Exists (p_SALESGROUP_ID);
2880: IF l_debug THEN
2881: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
2882: 'SALES_GROUP_ID2 is invalid');
2883: END IF;
2884: x_return_status := FND_API.G_RET_STS_ERROR;
2885: END IF;
2886: CLOSE C_PRTNR_SALES_GROUP_ID_Exists;
2887: END IF;
2888: END IF;
2897: END Validate_SALESGROUP_ID;
2898:
2899:
2900: PROCEDURE Validate_PARTNER_CUSTOMER_ID (
2901: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2902: P_Validation_mode IN VARCHAR2,
2903: P_PARTNER_CUSTOMER_ID IN NUMBER,
2904: X_Return_Status OUT NOCOPY VARCHAR2,
2905: X_Msg_Count OUT NOCOPY NUMBER,
2918:
2919: BEGIN
2920:
2921: -- Initialize message list if p_init_msg_list is set to TRUE.
2922: IF FND_API.to_Boolean( p_init_msg_list )
2923: THEN
2924: FND_MSG_PUB.initialize;
2925: END IF;
2926:
2925: END IF;
2926:
2927:
2928: -- Initialize API return status to SUCCESS
2929: x_return_status := FND_API.G_RET_STS_SUCCESS;
2930:
2931: IF (p_PARTNER_CUSTOMER_ID is NOT NULL) and
2932: (p_PARTNER_CUSTOMER_ID <> FND_API.G_MISS_NUM)
2933: THEN
2928: -- Initialize API return status to SUCCESS
2929: x_return_status := FND_API.G_RET_STS_SUCCESS;
2930:
2931: IF (p_PARTNER_CUSTOMER_ID is NOT NULL) and
2932: (p_PARTNER_CUSTOMER_ID <> FND_API.G_MISS_NUM)
2933: THEN
2934: OPEN C_PARTNER_CUSTOMER_ID_Exists (p_PARTNER_CUSTOMER_ID);
2935: FETCH C_PARTNER_CUSTOMER_ID_Exists into l_val;
2936: IF C_PARTNER_CUSTOMER_ID_Exists%NOTFOUND THEN
2938: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
2939: 'Private API 43: PARTNER_CUSTOMER_ID is invalid');
2940: END IF;
2941:
2942: x_return_status := FND_API.G_RET_STS_ERROR;
2943: END IF;
2944: CLOSE C_PARTNER_CUSTOMER_ID_Exists;
2945: END IF;
2946:
2953: END Validate_PARTNER_CUSTOMER_ID;
2954:
2955:
2956: PROCEDURE Validate_PARTNER_ADDRESS_ID (
2957: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2958: P_Validation_mode IN VARCHAR2,
2959: P_PARTNER_ADDRESS_ID IN NUMBER,
2960: X_Return_Status OUT NOCOPY VARCHAR2,
2961: X_Msg_Count OUT NOCOPY NUMBER,
2974:
2975: BEGIN
2976:
2977: -- Initialize message list if p_init_msg_list is set to TRUE.
2978: IF FND_API.to_Boolean( p_init_msg_list )
2979: THEN
2980: FND_MSG_PUB.initialize;
2981: END IF;
2982:
2981: END IF;
2982:
2983:
2984: -- Initialize API return status to SUCCESS
2985: x_return_status := FND_API.G_RET_STS_SUCCESS;
2986:
2987: IF (p_PARTNER_ADDRESS_ID is NOT NULL) and
2988: (p_PARTNER_ADDRESS_ID <> FND_API.G_MISS_NUM)
2989: THEN
2984: -- Initialize API return status to SUCCESS
2985: x_return_status := FND_API.G_RET_STS_SUCCESS;
2986:
2987: IF (p_PARTNER_ADDRESS_ID is NOT NULL) and
2988: (p_PARTNER_ADDRESS_ID <> FND_API.G_MISS_NUM)
2989: THEN
2990: OPEN C_PARTNER_ADDRESS_ID_Exists (p_PARTNER_ADDRESS_ID);
2991: FETCH C_PARTNER_ADDRESS_ID_Exists into l_val;
2992: IF C_PARTNER_ADDRESS_ID_Exists%NOTFOUND THEN
2994: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
2995: 'Private API 44: PARTNER_ADDRESS_ID is invalid');
2996: END IF;
2997:
2998: x_return_status := FND_API.G_RET_STS_ERROR;
2999: END IF;
3000: CLOSE C_PARTNER_ADDRESS_ID_Exists;
3001: END IF;
3002:
3009: END Validate_PARTNER_ADDRESS_ID;
3010:
3011:
3012: PROCEDURE Validate_CREDIT_TYPE_ID (
3013: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3014: P_Validation_mode IN VARCHAR2,
3015: P_CREDIT_TYPE_ID IN NUMBER,
3016: X_Return_Status OUT NOCOPY VARCHAR2,
3017: X_Msg_Count OUT NOCOPY NUMBER,
3030:
3031: BEGIN
3032:
3033: -- Initialize message list if p_init_msg_list is set to TRUE.
3034: IF FND_API.to_Boolean( p_init_msg_list )
3035: THEN
3036: FND_MSG_PUB.initialize;
3037: END IF;
3038:
3037: END IF;
3038:
3039:
3040: -- Initialize API return status to SUCCESS
3041: x_return_status := FND_API.G_RET_STS_SUCCESS;
3042:
3043:
3044: IF (p_CREDIT_TYPE_ID is NULL) or (p_CREDIT_TYPE_ID = FND_API.G_MISS_NUM)
3045: THEN
3040: -- Initialize API return status to SUCCESS
3041: x_return_status := FND_API.G_RET_STS_SUCCESS;
3042:
3043:
3044: IF (p_CREDIT_TYPE_ID is NULL) or (p_CREDIT_TYPE_ID = FND_API.G_MISS_NUM)
3045: THEN
3046: --AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3047: -- 'Private API 45: Violate NOT NULL constraint(CREDIT_TYPE_ID)');
3048:
3053: p_token1 => 'COLUMN',
3054: p_token1_value => 'CREDIT_TYPE_ID');
3055:
3056:
3057: x_return_status := FND_API.G_RET_STS_ERROR;
3058: ELSE
3059: OPEN C_Credit_Type_Id_Exists (p_Credit_Type_Id);
3060: FETCH C_Credit_Type_Id_Exists into l_val;
3061: IF C_Credit_Type_Id_Exists%NOTFOUND
3064: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
3065: 'Private API 46: CREDIT_TYPE_ID is not valid');
3066: END IF;
3067:
3068: x_return_status := FND_API.G_RET_STS_ERROR;
3069: END IF;
3070: CLOSE C_Credit_Type_Id_Exists;
3071: END IF;
3072:
3083: -- Hint: If p_validation_mode = AS_UTILITY_PVT.G_VALIDATE_UPDATE, we should use cursor
3084: -- to get old values for all fields used in inter-field validation and set all
3085: -- G_MISS_XXX fields to original value stored in database table.
3086: PROCEDURE Validate_SALES_CREDIT_rec(
3087: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3088: P_Validation_mode IN VARCHAR2,
3089: P_SALES_CREDIT_Rec IN AS_OPPORTUNITY_PUB.SALES_CREDIT_Rec_Type,
3090: X_Return_Status OUT NOCOPY VARCHAR2,
3091: X_Msg_Count OUT NOCOPY NUMBER,
3130:
3131: BEGIN
3132:
3133: -- Initialize message list if p_init_msg_list is set to TRUE.
3134: IF FND_API.to_Boolean( p_init_msg_list )
3135: THEN
3136: FND_MSG_PUB.initialize;
3137: END IF;
3138:
3144:
3145:
3146:
3147: -- Initialize API return status to SUCCESS
3148: x_return_status := FND_API.G_RET_STS_SUCCESS;
3149:
3150: -- Validate member columns
3151: --
3152: -- Member must exist
3173: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3174: 'Private API 48: SALESFORCE_ID is NULL');
3175: END IF;
3176:
3177: x_return_status := FND_API.G_RET_STS_ERROR;
3178:
3179: -- Employee and Partner cannot exist in the same record
3180: --
3181: -- ELSIF ( nvl(p_sales_credit_rec.partner_customer_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num or
3177: x_return_status := FND_API.G_RET_STS_ERROR;
3178:
3179: -- Employee and Partner cannot exist in the same record
3180: --
3181: -- ELSIF ( nvl(p_sales_credit_rec.partner_customer_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num or
3182: -- nvl(p_sales_credit_rec.partner_address_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num ) and
3183: -- ( nvl(p_sales_credit_rec.person_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num or
3184: -- nvl(p_sales_credit_rec.salesgroup_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num )
3185: ELSIF ( nvl(p_sales_credit_rec.partner_customer_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num) and
3178:
3179: -- Employee and Partner cannot exist in the same record
3180: --
3181: -- ELSIF ( nvl(p_sales_credit_rec.partner_customer_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num or
3182: -- nvl(p_sales_credit_rec.partner_address_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num ) and
3183: -- ( nvl(p_sales_credit_rec.person_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num or
3184: -- nvl(p_sales_credit_rec.salesgroup_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num )
3185: ELSIF ( nvl(p_sales_credit_rec.partner_customer_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num) and
3186: (nvl(p_sales_credit_rec.person_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num)
3179: -- Employee and Partner cannot exist in the same record
3180: --
3181: -- ELSIF ( nvl(p_sales_credit_rec.partner_customer_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num or
3182: -- nvl(p_sales_credit_rec.partner_address_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num ) and
3183: -- ( nvl(p_sales_credit_rec.person_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num or
3184: -- nvl(p_sales_credit_rec.salesgroup_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num )
3185: ELSIF ( nvl(p_sales_credit_rec.partner_customer_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num) and
3186: (nvl(p_sales_credit_rec.person_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num)
3187:
3180: --
3181: -- ELSIF ( nvl(p_sales_credit_rec.partner_customer_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num or
3182: -- nvl(p_sales_credit_rec.partner_address_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num ) and
3183: -- ( nvl(p_sales_credit_rec.person_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num or
3184: -- nvl(p_sales_credit_rec.salesgroup_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num )
3185: ELSIF ( nvl(p_sales_credit_rec.partner_customer_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num) and
3186: (nvl(p_sales_credit_rec.person_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num)
3187:
3188:
3181: -- ELSIF ( nvl(p_sales_credit_rec.partner_customer_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num or
3182: -- nvl(p_sales_credit_rec.partner_address_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num ) and
3183: -- ( nvl(p_sales_credit_rec.person_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num or
3184: -- nvl(p_sales_credit_rec.salesgroup_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num )
3185: ELSIF ( nvl(p_sales_credit_rec.partner_customer_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num) and
3186: (nvl(p_sales_credit_rec.person_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num)
3187:
3188:
3189: THEN
3182: -- nvl(p_sales_credit_rec.partner_address_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num ) and
3183: -- ( nvl(p_sales_credit_rec.person_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num or
3184: -- nvl(p_sales_credit_rec.salesgroup_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num )
3185: ELSIF ( nvl(p_sales_credit_rec.partner_customer_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num) and
3186: (nvl(p_sales_credit_rec.person_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num)
3187:
3188:
3189: THEN
3190: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3192: FND_MESSAGE.Set_Name('AS', 'API_MEMBER_TOO_MANY_VALUES');
3193: FND_MSG_PUB.ADD;
3194: END IF;
3195:
3196: x_return_status := FND_API.G_RET_STS_ERROR;
3197:
3198: -- Validate employee if one exists
3199: --
3200: ELSIF nvl(p_sales_credit_rec.person_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
3196: x_return_status := FND_API.G_RET_STS_ERROR;
3197:
3198: -- Validate employee if one exists
3199: --
3200: ELSIF nvl(p_sales_credit_rec.person_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
3201: THEN
3202:
3203: -- First sales group must exist for employee sales credit record
3204: --
3213: -- FND_MESSAGE.Set_Token('COLUMN', 'SALESGROUP_ID', FALSE);
3214: -- FND_MSG_PUB.ADD;
3215: -- END IF;
3216: --
3217: -- l_return_status := FND_API.G_RET_STS_ERROR;
3218: --
3219: -- ELSE
3220:
3221: OPEN C_Salesforce_Person_Exists (p_sales_credit_rec.salesforce_id,
3231: p_sales_credit_rec.person_id, FALSE);
3232: FND_MSG_PUB.ADD;
3233: END IF;
3234:
3235: x_return_status := FND_API.G_RET_STS_ERROR;
3236: END IF;
3237: CLOSE C_Salesforce_Person_Exists;
3238:
3239: -- Validate that partner exists
3237: CLOSE C_Salesforce_Person_Exists;
3238:
3239: -- Validate that partner exists
3240: --
3241: ELSIF nvl(p_sales_credit_rec.partner_customer_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
3242: THEN
3243: OPEN C_Salesforce_Partner_Exists (p_sales_credit_rec.salesforce_id,
3244: p_sales_credit_rec.partner_customer_id);
3245: FETCH C_Salesforce_Partner_Exists INTO l_val;
3255: p_sales_credit_rec.partner_address_id , FALSE);
3256: FND_MSG_PUB.ADD;
3257: END IF;
3258:
3259: x_return_status := FND_API.G_RET_STS_ERROR;
3260: END IF;
3261: CLOSE C_Salesforce_Partner_Exists;
3262: ELSE
3263: IF l_debug THEN
3264: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3265: 'Private API 49: Both PERSON_ID and PARTNER_CUSTOMER_ID are NULL');
3266: END IF;
3267:
3268: x_return_status := FND_API.G_RET_STS_ERROR;
3269: END IF;
3270:
3271: -- Debug Message
3272: IF l_debug THEN
3283:
3284: END Validate_SALES_CREDIT_Rec;
3285:
3286: PROCEDURE Validate_sales_credit(
3287: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3288: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3289: P_Validation_mode IN VARCHAR2,
3290: P_SALES_CREDIT_Rec IN AS_OPPORTUNITY_PUB.SALES_CREDIT_Rec_Type,
3291: X_Return_Status OUT NOCOPY VARCHAR2,
3284: END Validate_SALES_CREDIT_Rec;
3285:
3286: PROCEDURE Validate_sales_credit(
3287: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3288: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3289: P_Validation_mode IN VARCHAR2,
3290: P_SALES_CREDIT_Rec IN AS_OPPORTUNITY_PUB.SALES_CREDIT_Rec_Type,
3291: X_Return_Status OUT NOCOPY VARCHAR2,
3292: X_Msg_Count OUT NOCOPY NUMBER,
3307:
3308:
3309:
3310: -- Initialize API return status to SUCCESS
3311: x_return_status := FND_API.G_RET_STS_SUCCESS;
3312:
3313: IF (p_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_ITEM) THEN
3314: -- Hint: We provide validation procedure for every column. Developer should delete
3315: -- unnecessary validation procedures.
3321: -- Begin Added for ASNB
3322: IF nvl(fnd_profile.value('AS_ACTIVATE_SALES_INTEROP'), 'N') = 'Y' AND
3323: nvl(fnd_profile.value('AS_FORECAST_CREDIT_TYPE_ID'), 'N') <> P_SALES_CREDIT_Rec.CREDIT_TYPE_ID THEN
3324: duplicate_sales_credit(
3325: p_init_msg_list => FND_API.G_FALSE,
3326: p_validation_mode => p_validation_mode,
3327: P_SALES_CREDIT_Rec => P_SALES_CREDIT_Rec,
3328: x_return_status => x_return_status,
3329: x_msg_count => x_msg_count,
3327: P_SALES_CREDIT_Rec => P_SALES_CREDIT_Rec,
3328: x_return_status => x_return_status,
3329: x_msg_count => x_msg_count,
3330: x_msg_data => x_msg_data);
3331: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3332: raise FND_API.G_EXC_ERROR;
3333: END IF;
3334:
3335: IF l_debug THEN
3328: x_return_status => x_return_status,
3329: x_msg_count => x_msg_count,
3330: x_msg_data => x_msg_data);
3331: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3332: raise FND_API.G_EXC_ERROR;
3333: END IF;
3334:
3335: IF l_debug THEN
3336: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3339: END IF;
3340: -- End Added for ASNB
3341:
3342: Validate_SALES_CREDIT_ID(
3343: p_init_msg_list => FND_API.G_FALSE,
3344: p_validation_mode => p_validation_mode,
3345: p_SALES_CREDIT_ID => P_SALES_CREDIT_Rec.SALES_CREDIT_ID,
3346: x_return_status => x_return_status,
3347: x_msg_count => x_msg_count,
3345: p_SALES_CREDIT_ID => P_SALES_CREDIT_Rec.SALES_CREDIT_ID,
3346: x_return_status => x_return_status,
3347: x_msg_count => x_msg_count,
3348: x_msg_data => x_msg_data);
3349: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3350: raise FND_API.G_EXC_ERROR;
3351: END IF;
3352:
3353: IF l_debug THEN
3346: x_return_status => x_return_status,
3347: x_msg_count => x_msg_count,
3348: x_msg_data => x_msg_data);
3349: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3350: raise FND_API.G_EXC_ERROR;
3351: END IF;
3352:
3353: IF l_debug THEN
3354: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3356: END IF;
3357:
3358:
3359: Validate_LEAD_ID(
3360: p_init_msg_list => FND_API.G_FALSE,
3361: p_validation_mode => p_validation_mode,
3362: p_LEAD_ID => P_SALES_CREDIT_Rec.LEAD_ID,
3363: x_return_status => x_return_status,
3364: x_msg_count => x_msg_count,
3362: p_LEAD_ID => P_SALES_CREDIT_Rec.LEAD_ID,
3363: x_return_status => x_return_status,
3364: x_msg_count => x_msg_count,
3365: x_msg_data => x_msg_data);
3366: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3367: raise FND_API.G_EXC_ERROR;
3368: END IF;
3369:
3370: IF l_debug THEN
3363: x_return_status => x_return_status,
3364: x_msg_count => x_msg_count,
3365: x_msg_data => x_msg_data);
3366: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3367: raise FND_API.G_EXC_ERROR;
3368: END IF;
3369:
3370: IF l_debug THEN
3371: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3373: END IF;
3374:
3375:
3376: Validate_LEAD_LINE_ID(
3377: p_init_msg_list => FND_API.G_FALSE,
3378: p_validation_mode => p_validation_mode,
3379: p_LEAD_LINE_ID => P_SALES_CREDIT_Rec.LEAD_LINE_ID,
3380: x_return_status => x_return_status,
3381: x_msg_count => x_msg_count,
3379: p_LEAD_LINE_ID => P_SALES_CREDIT_Rec.LEAD_LINE_ID,
3380: x_return_status => x_return_status,
3381: x_msg_count => x_msg_count,
3382: x_msg_data => x_msg_data);
3383: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3384: raise FND_API.G_EXC_ERROR;
3385: END IF;
3386:
3387: IF l_debug THEN
3380: x_return_status => x_return_status,
3381: x_msg_count => x_msg_count,
3382: x_msg_data => x_msg_data);
3383: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3384: raise FND_API.G_EXC_ERROR;
3385: END IF;
3386:
3387: IF l_debug THEN
3388: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3391: END IF;
3392:
3393: /* validated in record level
3394: Validate_SALESFORCE_ID(
3395: p_init_msg_list => FND_API.G_FALSE,
3396: p_validation_mode => p_validation_mode,
3397: p_SALESFORCE_ID => P_SALES_CREDIT_Rec.SALESFORCE_ID,
3398: x_return_status => x_return_status,
3399: x_msg_count => x_msg_count,
3397: p_SALESFORCE_ID => P_SALES_CREDIT_Rec.SALESFORCE_ID,
3398: x_return_status => x_return_status,
3399: x_msg_count => x_msg_count,
3400: x_msg_data => x_msg_data);
3401: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3402: raise FND_API.G_EXC_ERROR;
3403: END IF;
3404:
3405: Validate_PERSON_ID(
3398: x_return_status => x_return_status,
3399: x_msg_count => x_msg_count,
3400: x_msg_data => x_msg_data);
3401: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3402: raise FND_API.G_EXC_ERROR;
3403: END IF;
3404:
3405: Validate_PERSON_ID(
3406: p_init_msg_list => FND_API.G_FALSE,
3402: raise FND_API.G_EXC_ERROR;
3403: END IF;
3404:
3405: Validate_PERSON_ID(
3406: p_init_msg_list => FND_API.G_FALSE,
3407: p_validation_mode => p_validation_mode,
3408: p_PERSON_ID => P_SALES_CREDIT_Rec.PERSON_ID,
3409: x_return_status => x_return_status,
3410: x_msg_count => x_msg_count,
3408: p_PERSON_ID => P_SALES_CREDIT_Rec.PERSON_ID,
3409: x_return_status => x_return_status,
3410: x_msg_count => x_msg_count,
3411: x_msg_data => x_msg_data);
3412: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3413: raise FND_API.G_EXC_ERROR;
3414: END IF;
3415: */
3416:
3409: x_return_status => x_return_status,
3410: x_msg_count => x_msg_count,
3411: x_msg_data => x_msg_data);
3412: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3413: raise FND_API.G_EXC_ERROR;
3414: END IF;
3415: */
3416:
3417: Validate_SALESGROUP_ID(
3414: END IF;
3415: */
3416:
3417: Validate_SALESGROUP_ID(
3418: p_init_msg_list => FND_API.G_FALSE,
3419: p_validation_mode => p_validation_mode,
3420: p_SALESGROUP_ID => P_SALES_CREDIT_Rec.SALESGROUP_ID,
3421: p_PERSON_ID => P_SALES_CREDIT_Rec.PERSON_ID,
3422: x_return_status => x_return_status,
3421: p_PERSON_ID => P_SALES_CREDIT_Rec.PERSON_ID,
3422: x_return_status => x_return_status,
3423: x_msg_count => x_msg_count,
3424: x_msg_data => x_msg_data);
3425: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3426: raise FND_API.G_EXC_ERROR;
3427: END IF;
3428:
3429: IF l_debug THEN
3422: x_return_status => x_return_status,
3423: x_msg_count => x_msg_count,
3424: x_msg_data => x_msg_data);
3425: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3426: raise FND_API.G_EXC_ERROR;
3427: END IF;
3428:
3429: IF l_debug THEN
3430: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3433:
3434:
3435: /* Validated in record level
3436: Validate_PARTNER_CUSTOMER_ID(
3437: p_init_msg_list => FND_API.G_FALSE,
3438: p_validation_mode => p_validation_mode,
3439: p_PARTNER_CUSTOMER_ID => P_SALES_CREDIT_Rec.PARTNER_CUSTOMER_ID,
3440: x_return_status => x_return_status,
3441: x_msg_count => x_msg_count,
3439: p_PARTNER_CUSTOMER_ID => P_SALES_CREDIT_Rec.PARTNER_CUSTOMER_ID,
3440: x_return_status => x_return_status,
3441: x_msg_count => x_msg_count,
3442: x_msg_data => x_msg_data);
3443: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3444: raise FND_API.G_EXC_ERROR;
3445: END IF;
3446:
3447: Validate_PARTNER_ADDRESS_ID(
3440: x_return_status => x_return_status,
3441: x_msg_count => x_msg_count,
3442: x_msg_data => x_msg_data);
3443: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3444: raise FND_API.G_EXC_ERROR;
3445: END IF;
3446:
3447: Validate_PARTNER_ADDRESS_ID(
3448: p_init_msg_list => FND_API.G_FALSE,
3444: raise FND_API.G_EXC_ERROR;
3445: END IF;
3446:
3447: Validate_PARTNER_ADDRESS_ID(
3448: p_init_msg_list => FND_API.G_FALSE,
3449: p_validation_mode => p_validation_mode,
3450: p_PARTNER_ADDRESS_ID => P_SALES_CREDIT_Rec.PARTNER_ADDRESS_ID,
3451: x_return_status => x_return_status,
3452: x_msg_count => x_msg_count,
3450: p_PARTNER_ADDRESS_ID => P_SALES_CREDIT_Rec.PARTNER_ADDRESS_ID,
3451: x_return_status => x_return_status,
3452: x_msg_count => x_msg_count,
3453: x_msg_data => x_msg_data);
3454: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3455: raise FND_API.G_EXC_ERROR;
3456: END IF;
3457: */
3458:
3451: x_return_status => x_return_status,
3452: x_msg_count => x_msg_count,
3453: x_msg_data => x_msg_data);
3454: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3455: raise FND_API.G_EXC_ERROR;
3456: END IF;
3457: */
3458:
3459: Validate_CREDIT_TYPE_ID(
3456: END IF;
3457: */
3458:
3459: Validate_CREDIT_TYPE_ID(
3460: p_init_msg_list => FND_API.G_FALSE,
3461: p_validation_mode => p_validation_mode,
3462: p_CREDIT_TYPE_ID => P_SALES_CREDIT_Rec.CREDIT_TYPE_ID,
3463: x_return_status => x_return_status,
3464: x_msg_count => x_msg_count,
3462: p_CREDIT_TYPE_ID => P_SALES_CREDIT_Rec.CREDIT_TYPE_ID,
3463: x_return_status => x_return_status,
3464: x_msg_count => x_msg_count,
3465: x_msg_data => x_msg_data);
3466: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3467: raise FND_API.G_EXC_ERROR;
3468: END IF;
3469: IF l_debug THEN
3470: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3463: x_return_status => x_return_status,
3464: x_msg_count => x_msg_count,
3465: x_msg_data => x_msg_data);
3466: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3467: raise FND_API.G_EXC_ERROR;
3468: END IF;
3469: IF l_debug THEN
3470: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3471: 'Private API 57: Validated CREDIT_TYPE_ID ');
3481: IF (p_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_RECORD) THEN
3482: -- Hint: Inter-field level validation can be added here
3483: -- invoke record level validation procedures
3484: Validate_SALES_CREDIT_Rec(
3485: p_init_msg_list => FND_API.G_FALSE,
3486: p_validation_mode => p_validation_mode,
3487: P_SALES_CREDIT_Rec => P_SALES_CREDIT_Rec,
3488: x_return_status => x_return_status,
3489: x_msg_count => x_msg_count,
3488: x_return_status => x_return_status,
3489: x_msg_count => x_msg_count,
3490: x_msg_data => x_msg_data);
3491:
3492: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3493: IF l_debug THEN
3494: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3495: 'Private API 59: SALES_CREDIT_Rec is invalid');
3496: END IF;
3494: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3495: 'Private API 59: SALES_CREDIT_Rec is invalid');
3496: END IF;
3497:
3498: raise FND_API.G_EXC_ERROR;
3499: END IF;
3500: END IF;
3501:
3502:
3519:
3520: END Validate_sales_credit;
3521: -- The following procedure added for ASNB
3522: PROCEDURE duplicate_sales_credit(
3523: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3524: P_Validation_mode IN VARCHAR2,
3525: P_SALES_CREDIT_Rec IN AS_OPPORTUNITY_PUB.SALES_CREDIT_Rec_Type,
3526: X_Return_Status OUT NOCOPY VARCHAR2,
3527: X_Msg_Count OUT NOCOPY NUMBER,
3535: AND salesforce_id = P_SALES_CREDIT_Rec.salesforce_id
3536: AND person_id =P_SALES_CREDIT_Rec.person_id
3537: AND salesgroup_id =P_SALES_CREDIT_Rec.salesgroup_id
3538: AND credit_type_id = P_SALES_CREDIT_Rec.credit_type_id
3539: AND (P_SALES_CREDIT_Rec.sales_credit_id is null or P_SALES_CREDIT_Rec.sales_credit_id = fnd_api.g_miss_num
3540: OR sales_credit_id <> P_SALES_CREDIT_Rec.sales_credit_id);
3541: l_val VARCHAR2(1);
3542: l_module CONSTANT VARCHAR2(255) := 'as.plsql.lscpv.duplicate_sales_credit';
3543: BEGIN
3541: l_val VARCHAR2(1);
3542: l_module CONSTANT VARCHAR2(255) := 'as.plsql.lscpv.duplicate_sales_credit';
3543: BEGIN
3544: -- Initialize message list if p_init_msg_list is set to TRUE.
3545: IF FND_API.to_Boolean( p_init_msg_list )
3546: THEN
3547: FND_MSG_PUB.initialize;
3548: END IF;
3549:
3548: END IF;
3549:
3550:
3551: -- Initialize API return status to SUCCESS
3552: x_return_status := FND_API.G_RET_STS_SUCCESS;
3553:
3554: OPEN C_dup_Sales_Credit_Exists;
3555: FETCH C_dup_Sales_Credit_Exists into l_val;
3556: IF C_dup_Sales_Credit_Exists%FOUND THEN
3557: AS_UTILITY_PVT.Set_Message(
3558: p_module => l_module,
3559: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3560: p_msg_name => 'AS_DUP_SALES_CREDITS');
3561: x_return_status := FND_API.G_RET_STS_ERROR;
3562: END IF;
3563: CLOSE C_dup_Sales_Credit_Exists;
3564: FND_MSG_PUB.Count_And_Get
3565: ( p_count => x_msg_count,