283:
284:
285: -- Debug Message
286: IF l_debug THEN
287: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
288: 'Private API1 ' || l_api_name || ' start');
289: END IF;
290:
291:
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;
348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
349: END IF;
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;
379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
380: END IF;
397: IF l_freeze_flag = 'Y'
398: THEN
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;
419: --FND_MESSAGE.Set_Token ('ROW', 'AS_OPP_SALES_CREDIT', TRUE);
420: --FND_MESSAGE.Set_Token ('RECORD_NUM', to_char(I), FALSE);
421: --FND_MSG_PUB.Add;
422: IF l_debug THEN
423: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
424: 'Processing AS_OPP_SALES_CREDIT row number '||to_char(I));
425: END IF;
426: END IF;
427:
428: l_sales_credit_rec := p_SALES_CREDIT_tbl(I);
429:
430: -- Debug message
431: IF l_debug THEN
432: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
433: 'Private API3 Validate_sales_credit');
434: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
435: l_sales_credit_rec.partner_customer_id);
436: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
430: -- Debug message
431: IF l_debug THEN
432: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
433: 'Private API3 Validate_sales_credit');
434: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
435: l_sales_credit_rec.partner_customer_id);
436: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
437: l_sales_credit_rec.person_id);
438: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
432: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
433: 'Private API3 Validate_sales_credit');
434: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
435: l_sales_credit_rec.partner_customer_id);
436: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
437: l_sales_credit_rec.person_id);
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;
434: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
435: l_sales_credit_rec.partner_customer_id);
436: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
437: l_sales_credit_rec.person_id);
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
453: close C_Partner_Id;
454: END IF;
455: END IF;
456: IF l_debug THEN
457: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
458: 'Before sales group');
459: END IF;
460:
461: -- Get partner contact's sales group id
467: fetch C_Group_Id into l_group_id_str;
468: close C_Group_Id;
469: END IF;
470: IF l_debug THEN
471: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
472: l_group_id_str);
473: END IF;
474:
475:
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,
494: x_msg_count => x_msg_count,
495: x_msg_data => x_msg_data);
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;
502: RAISE FND_API.G_EXC_ERROR;
503: END IF;
504:
505:
506: -- Debug Message
507: IF l_debug THEN
508: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
509: 'Private API5 Calling create table handler');
510: END IF;
511:
512: Select lead.win_probability, status.win_loss_indicator,
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 );
600: END IF;
601:
602: END IF;
640: nvl(FND_PROFILE.Value('AS_DEFAULT_FREEZE_FLAG'), 'Y');
641:
642: -- Debug Message
643: IF l_debug THEN
644: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
645: 'Calling Create_SalesTeam');
646: END IF;
647:
648: AS_ACCESS_PUB.Create_SalesTeam (
663: );
664:
665: -- Debug Message
666: IF l_debug THEN
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
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;
676: RAISE FND_API.G_EXC_ERROR;
677: END IF;
705: ,x_access_id => l_Access_Id );
706:
707: -- Debug Message
708: IF l_debug THEN
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
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;
718: RAISE FND_API.G_EXC_ERROR;
719: END IF;
734:
735:
736: -- Debug Message
737: IF l_debug THEN
738: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
739: 'Private API7 ' || l_api_name || 'end');
740: END IF;
741:
742:
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
773: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
770: P_MODULE => l_module
771: ,P_API_NAME => L_API_NAME
772: ,P_PKG_NAME => G_PKG_NAME
773: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
774: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
775: ,X_MSG_COUNT => X_MSG_COUNT
776: ,X_MSG_DATA => X_MSG_DATA
777: ,X_RETURN_STATUS => X_RETURN_STATUS);
778:
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
784: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
781: P_MODULE => l_module
782: ,P_API_NAME => L_API_NAME
783: ,P_PKG_NAME => G_PKG_NAME
784: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
785: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
786: ,X_MSG_COUNT => X_MSG_COUNT
787: ,X_MSG_DATA => X_MSG_DATA
788: ,X_RETURN_STATUS => X_RETURN_STATUS);
789:
787: ,X_MSG_DATA => X_MSG_DATA
788: ,X_RETURN_STATUS => X_RETURN_STATUS);
789:
790: WHEN OTHERS THEN
791: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
792: P_MODULE => l_module
793: ,P_API_NAME => L_API_NAME
794: ,P_PKG_NAME => G_PKG_NAME
795: ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
791: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
792: P_MODULE => l_module
793: ,P_API_NAME => L_API_NAME
794: ,P_PKG_NAME => G_PKG_NAME
795: ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
796: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
797: ,X_MSG_COUNT => X_MSG_COUNT
798: ,X_MSG_DATA => X_MSG_DATA
799: ,X_RETURN_STATUS => X_RETURN_STATUS);
792: P_MODULE => l_module
793: ,P_API_NAME => L_API_NAME
794: ,P_PKG_NAME => G_PKG_NAME
795: ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
796: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
797: ,X_MSG_COUNT => X_MSG_COUNT
798: ,X_MSG_DATA => X_MSG_DATA
799: ,X_RETURN_STATUS => X_RETURN_STATUS);
800: End Create_sales_credits;
975:
976:
977: -- Debug Message
978: IF l_debug THEN
979: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
980: 'Private API8 ' || l_api_name || ' start');
981: END IF;
982:
983:
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;
1025: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1026: END IF;
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;
1055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1056: END IF;
1073: IF l_freeze_flag = 'Y'
1074: THEN
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;
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,
1091: 'Private API10processing sales_credit_id: ' || P_SALES_CREDIT_tbl(I).sales_credit_id );
1092: END IF;
1093:
1094:
1098: --FND_MESSAGE.Set_Token ('ROW', 'AS_OPP_SALES_CREDIT', TRUE);
1099: --FND_MESSAGE.Set_Token ('RECORD_NUM', to_char(I), FALSE);
1100: --FND_MSG_PUB.Add;
1101: IF l_debug THEN
1102: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1103: 'Processing AS_OPP_SALES_CREDIT row number '||to_char(I));
1104: END IF;
1105: END IF;
1106:
1107: l_sales_credit_rec := p_SALES_CREDIT_tbl(I);
1108:
1109: -- Debug Message
1110: IF l_debug THEN
1111: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1112: 'Private API11- Open Cursor to Select');
1113:
1114: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1115: 'Private API1 SALES_CREDIT_ID = ' ||l_tar_SALES_CREDIT_rec.SALES_CREDIT_ID);
1110: IF l_debug THEN
1111: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1112: 'Private API11- Open Cursor to Select');
1113:
1114: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1115: 'Private API1 SALES_CREDIT_ID = ' ||l_tar_SALES_CREDIT_rec.SALES_CREDIT_ID);
1116: END IF;
1117:
1118:
1168:
1169: If ( C_Get_sales_credit%NOTFOUND) Then
1170:
1171: IF l_debug THEN
1172: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1173: 'Private14PI: C_Get_sales_credit%NOTFOUND ');
1174: END IF;
1175:
1176: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
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
1209: End if;
1210:
1211: -- Debug message
1212: IF l_debug THEN
1213: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1214: 'Private API15Validate_sales_credit');
1215:
1216: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1217: l_sales_credit_rec.partner_customer_id);
1212: IF l_debug THEN
1213: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1214: 'Private API15Validate_sales_credit');
1215:
1216: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1217: l_sales_credit_rec.partner_customer_id);
1218: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1219: l_sales_credit_rec.salesforce_id);
1220: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1214: 'Private API15Validate_sales_credit');
1215:
1216: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1217: l_sales_credit_rec.partner_customer_id);
1218: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1219: l_sales_credit_rec.salesforce_id);
1220: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1221: l_sales_credit_rec.person_id);
1222: END IF;
1216: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1217: l_sales_credit_rec.partner_customer_id);
1218: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1219: l_sales_credit_rec.salesforce_id);
1220: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1221: l_sales_credit_rec.person_id);
1222: END IF;
1223:
1224:
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,
1247: x_msg_count => x_msg_count,
1248: x_msg_data => x_msg_data);
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;
1255: RAISE FND_API.G_EXC_ERROR;
1256: END IF;
1258: -- Hint: Add corresponding Master-Detail business logic here if necessary.
1259:
1260: -- Debug Message
1261: IF l_debug THEN
1262: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1263: 'Private API: Calling update table handler');
1264: END IF;
1265:
1266: Select lead.win_probability, status.win_loss_indicator,
1386: X_SALES_CREDIT_out_tbl(I).SALES_CREDIT_ID := l_sales_credit_rec.SALES_CREDIT_ID;
1387: X_SALES_CREDIT_out_tbl(I).return_status := x_return_status;
1388:
1389: IF l_debug THEN
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)
1433: nvl(FND_PROFILE.Value('AS_DEFAULT_FREEZE_FLAG'), 'Y');
1434:
1435: -- Debug Message
1436: IF l_debug THEN
1437: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1438: 'Calling Create_SalesTeam');
1439: END IF;
1440:
1441: AS_ACCESS_PUB.Create_SalesTeam (
1456: );
1457:
1458: -- Debug Message
1459: IF l_debug THEN
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
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;
1469: RAISE FND_API.G_EXC_ERROR;
1470: END IF;
1498: ,x_access_id => l_Access_Id );
1499:
1500: -- Debug Message
1501: IF l_debug THEN
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
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;
1511: RAISE FND_API.G_EXC_ERROR;
1512: END IF;
1544: nvl(FND_PROFILE.Value('AS_DEFAULT_FREEZE_FLAG'), 'Y');
1545:
1546: -- Debug Message
1547: IF l_debug THEN
1548: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1549: 'Calling Create_SalesTeam');
1550: END IF;
1551:
1552: AS_ACCESS_PUB.Create_SalesTeam (
1567: );
1568:
1569: -- Debug Message
1570: IF l_debug THEN
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
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;
1580: RAISE FND_API.G_EXC_ERROR;
1581: END IF;
1598:
1599:
1600: -- Debug Message
1601: IF l_debug THEN
1602: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1603: 'Private API: ' || l_api_name || 'end');
1604: END IF;
1605:
1606:
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
1640: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1637: P_MODULE => l_module
1638: ,P_API_NAME => L_API_NAME
1639: ,P_PKG_NAME => G_PKG_NAME
1640: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1641: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
1642: ,X_MSG_COUNT => X_MSG_COUNT
1643: ,X_MSG_DATA => X_MSG_DATA
1644: ,X_RETURN_STATUS => X_RETURN_STATUS);
1645:
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
1651: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1648: P_MODULE => l_module
1649: ,P_API_NAME => L_API_NAME
1650: ,P_PKG_NAME => G_PKG_NAME
1651: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1652: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
1653: ,X_MSG_COUNT => X_MSG_COUNT
1654: ,X_MSG_DATA => X_MSG_DATA
1655: ,X_RETURN_STATUS => X_RETURN_STATUS);
1656:
1654: ,X_MSG_DATA => X_MSG_DATA
1655: ,X_RETURN_STATUS => X_RETURN_STATUS);
1656:
1657: WHEN OTHERS THEN
1658: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1659: P_MODULE => l_module
1660: ,P_API_NAME => L_API_NAME
1661: ,P_PKG_NAME => G_PKG_NAME
1662: ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
1658: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1659: P_MODULE => l_module
1660: ,P_API_NAME => L_API_NAME
1661: ,P_PKG_NAME => G_PKG_NAME
1662: ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
1663: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
1664: ,X_MSG_COUNT => X_MSG_COUNT
1665: ,X_MSG_DATA => X_MSG_DATA
1666: ,X_RETURN_STATUS => X_RETURN_STATUS);
1659: P_MODULE => l_module
1660: ,P_API_NAME => L_API_NAME
1661: ,P_PKG_NAME => G_PKG_NAME
1662: ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
1663: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
1664: ,X_MSG_COUNT => X_MSG_COUNT
1665: ,X_MSG_DATA => X_MSG_DATA
1666: ,X_RETURN_STATUS => X_RETURN_STATUS);
1667: End Update_sales_credits;
1753:
1754:
1755: -- Debug Message
1756: IF l_debug THEN
1757: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1758: 'Private API 18: ' || l_api_name || ' start');
1759: END IF;
1760:
1761: -- Initialize API return status to SUCCESS
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;
1783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1784: END IF;
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;
1813: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1814: END IF;
1835: IF l_freeze_flag = 'Y'
1836: THEN
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:
1846: IF l_forecast_credit_type_id IS NULL THEN
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;
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);
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;
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
1913:
1914: -- 100% Validation
1915: IF nvl(l_total_forecast_percent, 0) <> 100 THEN
1916: IF l_debug THEN
1917: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
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;
1915: IF nvl(l_total_forecast_percent, 0) <> 100 THEN
1916: IF l_debug THEN
1917: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
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;
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;
1930: RAISE FND_API.G_EXC_ERROR;
1931: END IF;
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;
1999: END IF;
2000: END IF;
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;
2034: END IF;
2035: END IF;
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;
2069: END IF;
2070: END IF;
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:
2108:
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
2139:
2150:
2151:
2152: -- Debug Message
2153: IF l_debug THEN
2154: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2155: 'Private API 28: ' || l_api_name || 'end');
2156: END IF;
2157:
2158: -- Standard call to get message count and if count is 1, get message info.
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
2171: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2168: P_MODULE => l_module
2169: ,P_API_NAME => L_API_NAME
2170: ,P_PKG_NAME => G_PKG_NAME
2171: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2172: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
2173: ,X_MSG_COUNT => X_MSG_COUNT
2174: ,X_MSG_DATA => X_MSG_DATA
2175: ,X_RETURN_STATUS => X_RETURN_STATUS);
2176:
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
2182: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2179: P_MODULE => l_module
2180: ,P_API_NAME => L_API_NAME
2181: ,P_PKG_NAME => G_PKG_NAME
2182: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2183: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
2184: ,X_MSG_COUNT => X_MSG_COUNT
2185: ,X_MSG_DATA => X_MSG_DATA
2186: ,X_RETURN_STATUS => X_RETURN_STATUS);
2187:
2185: ,X_MSG_DATA => X_MSG_DATA
2186: ,X_RETURN_STATUS => X_RETURN_STATUS);
2187:
2188: WHEN OTHERS THEN
2189: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2190: P_MODULE => l_module
2191: ,P_API_NAME => L_API_NAME
2192: ,P_PKG_NAME => G_PKG_NAME
2193: ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
2189: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2190: P_MODULE => l_module
2191: ,P_API_NAME => L_API_NAME
2192: ,P_PKG_NAME => G_PKG_NAME
2193: ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
2194: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
2195: ,X_MSG_COUNT => X_MSG_COUNT
2196: ,X_MSG_DATA => X_MSG_DATA
2197: ,X_RETURN_STATUS => X_RETURN_STATUS);
2190: P_MODULE => l_module
2191: ,P_API_NAME => L_API_NAME
2192: ,P_PKG_NAME => G_PKG_NAME
2193: ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
2194: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
2195: ,X_MSG_COUNT => X_MSG_COUNT
2196: ,X_MSG_DATA => X_MSG_DATA
2197: ,X_RETURN_STATUS => X_RETURN_STATUS);
2198:
2258:
2259:
2260: -- Debug Message
2261: IF l_debug THEN
2262: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2263: 'Private API 29: ' || l_api_name || 'start');
2264: END IF;
2265:
2266:
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;
2310: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2311: END IF;
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;
2340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2341: END IF;
2358: IF l_freeze_flag = 'Y'
2359: THEN
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;
2379: --FND_MESSAGE.Set_Token ('ROW', 'AS_OPP_SALES_CREDIT', TRUE);
2380: --FND_MESSAGE.Set_Token ('RECORD_NUM', to_char(I), FALSE);
2381: --FND_MSG_PUB.Add;
2382: IF l_debug THEN
2383: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2384: 'Processing AS_OPP_SALES_CREDIT row number '||to_char(I));
2385: END IF;
2386: END IF;
2387:
2386: END IF;
2387:
2388: -- Debug Message
2389: IF l_debug THEN
2390: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2391: 'Private API 31: Calling delete table handler');
2392: END IF;
2393:
2394: AS_SALES_CREDITS_PKG.Delete_Row(
2413:
2414:
2415: -- Debug Message
2416: IF l_debug THEN
2417: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2418: 'Private API 32: ' || l_api_name || 'end');
2419: END IF;
2420:
2421: -- Standard call to get message count and if count is 1, get message info.
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
2453: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2450: P_MODULE => l_module
2451: ,P_API_NAME => L_API_NAME
2452: ,P_PKG_NAME => G_PKG_NAME
2453: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2454: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
2455: ,X_MSG_COUNT => X_MSG_COUNT
2456: ,X_MSG_DATA => X_MSG_DATA
2457: ,X_RETURN_STATUS => X_RETURN_STATUS);
2458:
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
2464: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2461: P_MODULE => l_module
2462: ,P_API_NAME => L_API_NAME
2463: ,P_PKG_NAME => G_PKG_NAME
2464: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2465: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
2466: ,X_MSG_COUNT => X_MSG_COUNT
2467: ,X_MSG_DATA => X_MSG_DATA
2468: ,X_RETURN_STATUS => X_RETURN_STATUS);
2469:
2467: ,X_MSG_DATA => X_MSG_DATA
2468: ,X_RETURN_STATUS => X_RETURN_STATUS);
2469:
2470: WHEN OTHERS THEN
2471: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2472: P_MODULE => l_module
2473: ,P_API_NAME => L_API_NAME
2474: ,P_PKG_NAME => G_PKG_NAME
2475: ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
2471: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2472: P_MODULE => l_module
2473: ,P_API_NAME => L_API_NAME
2474: ,P_PKG_NAME => G_PKG_NAME
2475: ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
2476: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
2477: ,X_MSG_COUNT => X_MSG_COUNT
2478: ,X_MSG_DATA => X_MSG_DATA
2479: ,X_RETURN_STATUS => X_RETURN_STATUS);
2472: P_MODULE => l_module
2473: ,P_API_NAME => L_API_NAME
2474: ,P_PKG_NAME => G_PKG_NAME
2475: ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
2476: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
2477: ,X_MSG_COUNT => X_MSG_COUNT
2478: ,X_MSG_DATA => X_MSG_DATA
2479: ,X_RETURN_STATUS => X_RETURN_STATUS);
2480: End Delete_sales_credits;
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)
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);
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
2524: IF l_debug 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;
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
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)');
2543: END IF;
2544: x_return_status := FND_API.G_RET_STS_ERROR;
2545: ELSE
2547: FETCH C_Sales_Credit_Id_Exists into l_val;
2548: IF C_Sales_Credit_Id_Exists%NOTFOUND
2549: THEN
2550: IF l_debug THEN
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;
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)');
2609: END IF;
2610:
2611: x_return_status := FND_API.G_RET_STS_ERROR;
2614: FETCH C_Lead_Id_Exists into l_val;
2615: IF C_Lead_Id_Exists%NOTFOUND
2616: THEN
2617: IF l_debug THEN
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;
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)');
2673: END IF;
2674:
2675: x_return_status := FND_API.G_RET_STS_ERROR;
2678: FETCH C_Lead_Line_Id_Exists into l_val;
2679: IF C_Lead_Line_Id_Exists%NOTFOUND
2680: THEN
2681: IF l_debug THEN
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;
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)');
2737: END IF;
2738:
2739: x_return_status := FND_API.G_RET_STS_ERROR;
2742: FETCH C_Salesforce_Id_Exists into l_val;
2743: IF C_Salesforce_Id_Exists%NOTFOUND
2744: THEN
2745: IF l_debug THEN
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;
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
2801: IF l_debug 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;
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
2868: IF l_debug 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;
2877: OPEN C_PRTNR_SALES_GROUP_ID_Exists (p_SALESGROUP_ID);
2878: FETCH C_PRTNR_SALES_GROUP_ID_Exists into l_val;
2879: IF C_PRTNR_SALES_GROUP_ID_Exists%NOTFOUND THEN
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;
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
2937: IF l_debug 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;
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
2993: IF l_debug 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;
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:
3049: AS_UTILITY_PVT.Set_Message(
3050: p_module => l_module,
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:
3049: AS_UTILITY_PVT.Set_Message(
3050: p_module => l_module,
3051: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3052: p_msg_name => 'API_MISSING_ID',
3053: p_token1 => 'COLUMN',
3060: FETCH C_Credit_Type_Id_Exists into l_val;
3061: IF C_Credit_Type_Id_Exists%NOTFOUND
3062: THEN
3063: IF l_debug THEN
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;
3079: END Validate_CREDIT_TYPE_ID;
3080:
3081:
3082: -- Hint: inter-field level validation can be added here.
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,
3137: END IF;
3138:
3139: -- Debug Message
3140: IF l_debug THEN
3141: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3142: 'Private API 47: ' || l_api_name || ' start');
3143: END IF;
3144:
3145:
3151: --
3152: -- Member must exist
3153: --
3154: IF l_debug THEN
3155: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'salesforce id' || p_sales_credit_rec.salesforce_id);
3156:
3157: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'person_id' || p_sales_credit_rec.person_id);
3158: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'partner_customer_id' || p_sales_credit_rec.partner_customer_id);
3159: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'partner_customer_id' || p_sales_credit_rec.salesgroup_id);
3153: --
3154: IF l_debug THEN
3155: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'salesforce id' || p_sales_credit_rec.salesforce_id);
3156:
3157: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'person_id' || p_sales_credit_rec.person_id);
3158: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'partner_customer_id' || p_sales_credit_rec.partner_customer_id);
3159: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'partner_customer_id' || p_sales_credit_rec.salesgroup_id);
3160: END IF;
3161:
3154: IF l_debug THEN
3155: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'salesforce id' || p_sales_credit_rec.salesforce_id);
3156:
3157: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'person_id' || p_sales_credit_rec.person_id);
3158: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'partner_customer_id' || p_sales_credit_rec.partner_customer_id);
3159: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'partner_customer_id' || p_sales_credit_rec.salesgroup_id);
3160: END IF;
3161:
3162:
3155: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'salesforce id' || p_sales_credit_rec.salesforce_id);
3156:
3157: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'person_id' || p_sales_credit_rec.person_id);
3158: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'partner_customer_id' || p_sales_credit_rec.partner_customer_id);
3159: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'partner_customer_id' || p_sales_credit_rec.salesgroup_id);
3160: END IF;
3161:
3162:
3163: IF p_sales_credit_rec.salesforce_id is NULL
3169: FND_MSG_PUB.ADD;
3170: END IF;
3171:
3172: IF l_debug THEN
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;
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
3273: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3274: 'Private API 50: ' || l_api_name || ' end');
3275: END IF;
3276:
3277:
3300: BEGIN
3301:
3302: -- Debug Message
3303: IF l_debug THEN
3304: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3305: 'Private API 51: ' || l_api_name || 'start');
3306: END IF;
3307:
3308:
3314: -- Hint: We provide validation procedure for every column. Developer should delete
3315: -- unnecessary validation procedures.
3316:
3317: IF l_debug THEN
3318: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3319: 'Private API 52: Validate Items start');
3320: END IF;
3321: -- Begin Added for ASNB
3322: IF nvl(fnd_profile.value('AS_ACTIVATE_SALES_INTEROP'), 'N') = 'Y' AND
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,
3337: 'Private API 53: Validated SALES_CREDIT_ID');
3338: END IF;
3339: END IF;
3340: -- End Added for ASNB
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,
3355: 'Private API 53: Validated SALES_CREDIT_ID');
3356: END IF;
3357:
3358:
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,
3372: 'Private API 54: Validated LEAD_ID');
3373: END IF;
3374:
3375:
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,
3389: 'Private API 55: Validated LEAD_LINE_ID');
3390:
3391: END IF;
3392:
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,
3431: 'Private API 56: Validated SALESGROUP_ID');
3432: END IF;
3433:
3434:
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 ');
3472:
3473: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3474: 'Private API 58: Validate Items end');
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 ');
3472:
3473: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3474: 'Private API 58: Validate Items end');
3475: END IF;
3476:
3477:
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;
3497:
3498: raise FND_API.G_EXC_ERROR;
3511: END IF;
3512:
3513: -- Debug Message
3514: IF l_debug THEN
3515: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3516: 'Private API 60: ' || l_api_name || 'end');
3517: END IF;
3518:
3519:
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;