191:
192:
193: -- Debug Message
194: IF l_debug THEN
195: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
196: 'Private API: ' || l_api_name || ' start');
197: END IF;
198:
199:
216:
217: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
218: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
219: IF l_debug THEN
220: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
221: 'Private API: Get_CurrentUser fail');
222: END IF;
223: END IF;
224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
254:
255: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
256: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
257: IF l_debug THEN
258: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
259: 'has_viewCustomerAccess fail');
260: END IF;
261:
262: END IF;
280: IF p_lead_id is null or p_lead_id = fnd_api.g_miss_num
281: THEN
282: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
283: IF l_debug THEN
284: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
285: 'Private API: p_lead_id is null');
286: END IF;
287:
288: END IF;
429:
430: IF l_debug THEN
431: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
432:
433: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
434: 'Private API: Create_opp_header fail');
435: ELSE
436: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
437: 'Private API: Created lead '|| x_lead_id);
432:
433: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
434: 'Private API: Create_opp_header fail');
435: ELSE
436: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
437: 'Private API: Created lead '|| x_lead_id);
438: END IF;
439: END IF;
440:
523: end if;
524:
525: if (l_insert) then
526: IF l_debug THEN
527: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
528: 'Calling Create_SalesTeam');
529: END IF;
530:
531: AS_ACCESS_PUB.Create_SalesTeam (
546: );
547:
548: -- Debug Message
549: IF l_debug THEN
550: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
551: 'Create_SalesTeam:l_access_id > ' || l_access_id);
552:
553: END IF;
554:
586: END IF;
587: -- End Added for ASNB
588: ELSE
589: IF l_debug THEN
590: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
591: 'Calling Update_SalesTeam: access_id > ' || l_val);
592: END IF;
593: l_Sales_Team_Rec.last_update_date := l_date;
594: l_Sales_Team_Rec.access_id := l_val;
612: );
613:
614: -- Debug Message
615: IF l_debug THEN
616: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
617: 'Update_SalesTeam: Done');
618: END IF;
619:
620: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
690: p_PRODUCT_CAT_SET_ID => lr.PRODUCT_CAT_SET_ID);
691:
692: IF l_lead_line_id is null THEN
693: IF l_debug THEN
694: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
695: 'Private API: as_lead_lines_pkg.insert_row fail');
696: END IF;
697:
698: RAISE FND_API.G_EXC_ERROR;
697:
698: RAISE FND_API.G_EXC_ERROR;
699: ELSE
700: IF l_debug THEN
701: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
702: 'Private API: as_lead_lines_pkg.insert_row '|| l_lead_line_id);
703: END IF;
704:
705: END IF;
760: );
761:
762: IF l_sales_credit_id is null THEN
763: IF l_debug THEN
764: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
765: 'Private API: as_sales_credits_pkg.insert_row fail');
766: END IF;
767:
768: RAISE FND_API.G_EXC_ERROR;
767:
768: RAISE FND_API.G_EXC_ERROR;
769: ELSE
770: IF l_debug THEN
771: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
772: 'Private API: as_sales_credits_pkg.insert_row '|| l_sales_credit_id);
773: END IF;
774:
775: END IF;
779: ELSE -- default sales credits to the user
780: IF l_forecast_credit_type_id IS NULL THEN
781: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
782: IF l_debug THEN
783: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
784: 'The profile AS_FORECAST_CREDIT_TYPE_ID is null');
785: END IF;
786:
787: END IF;
834: -- Check return status from the above procedure call
835: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
836: THEN
837: IF l_debug THEN
838: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
839: 'Copy Line: Create_Sales_credit fail' );
840: END IF;
841:
842: raise FND_API.G_EXC_ERROR;
895: p_CREATION_DATE => SYSDATE);
896:
897: IF l_lead_competitor_prod_id is null THEN
898: IF l_debug THEN
899: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
900: 'Private API: as_lead_comp_products_pkg.insert_row fail');
901: END IF;
902:
903: RAISE FND_API.G_EXC_ERROR;
902:
903: RAISE FND_API.G_EXC_ERROR;
904: ELSE
905: IF l_debug THEN
906: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
907: 'Private API: as_lead_comp_products_pkg.insert_row '|| l_lead_competitor_prod_id);
908: END IF;
909:
910: END IF;
946: p_CREATION_DATE => SYSDATE);
947:
948: IF l_lead_decision_factor_id is null THEN
949: IF l_debug THEN
950: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
951: 'Private API: as_lead_decision_factors_pkg.insert_row fail');
952: END IF;
953:
954: RAISE FND_API.G_EXC_ERROR;
953:
954: RAISE FND_API.G_EXC_ERROR;
955: ELSE
956: IF l_debug THEN
957: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
958: 'Private API: as_lead_decision_factors_pkg.insert_row '|| l_lead_decision_factor_id );
959: END IF;
960: END IF;
961: END LOOP; -- DFC loop
1011: p_CONTACT_PARTY_ID => cnr.CONTACT_PARTY_ID);
1012:
1013: IF l_lead_contact_id is null THEN
1014: IF l_debug THEN
1015: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1016: 'Private API: as_lead_lines_pkg.insert_row fail');
1017: END IF;
1018:
1019: RAISE FND_API.G_EXC_ERROR;
1018:
1019: RAISE FND_API.G_EXC_ERROR;
1020: ELSE
1021: IF l_debug THEN
1022: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1023: 'Private API: as_lead_contacts_pkg.insert_row '|| l_lead_contact_id);
1024: END IF;
1025:
1026: END IF;
1073: p_COMPETITOR_ID => cmpr.COMPETITOR_ID);
1074:
1075: IF l_lead_competitor_id is null THEN
1076: IF l_debug THEN
1077: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1078: 'Private API: as_lead_competitors_pkg.insert_row fail');
1079: END IF;
1080: RAISE FND_API.G_EXC_ERROR;
1081: ELSE
1079: END IF;
1080: RAISE FND_API.G_EXC_ERROR;
1081: ELSE
1082: IF l_debug THEN
1083: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1084: 'Private API: as_lead_competitors_pkg.insert_row '|| l_lead_competitor_id);
1085: END IF;
1086: END IF;
1087: END IF;
1103: -- Check return status from the above procedure call
1104: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1105: THEN
1106: IF l_debug THEN
1107: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1108: 'Territory Assignment Call Failed' );
1109: END IF;
1110: raise FND_API.G_EXC_ERROR;
1111: END IF;
1111: END IF;
1112:
1113: EXCEPTION
1114: WHEN FND_API.G_EXC_ERROR THEN
1115: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1116: P_MODULE => l_module
1117: ,P_API_NAME => L_API_NAME
1118: ,P_PKG_NAME => G_PKG_NAME
1119: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1116: P_MODULE => l_module
1117: ,P_API_NAME => L_API_NAME
1118: ,P_PKG_NAME => G_PKG_NAME
1119: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1120: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
1121: ,X_MSG_COUNT => X_MSG_COUNT
1122: ,X_MSG_DATA => X_MSG_DATA
1123: ,X_RETURN_STATUS => X_RETURN_STATUS);
1124:
1122: ,X_MSG_DATA => X_MSG_DATA
1123: ,X_RETURN_STATUS => X_RETURN_STATUS);
1124:
1125: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1126: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1127: P_MODULE => l_module
1128: ,P_API_NAME => L_API_NAME
1129: ,P_PKG_NAME => G_PKG_NAME
1130: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1127: P_MODULE => l_module
1128: ,P_API_NAME => L_API_NAME
1129: ,P_PKG_NAME => G_PKG_NAME
1130: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1131: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
1132: ,X_MSG_COUNT => X_MSG_COUNT
1133: ,X_MSG_DATA => X_MSG_DATA
1134: ,X_RETURN_STATUS => X_RETURN_STATUS);
1135:
1133: ,X_MSG_DATA => X_MSG_DATA
1134: ,X_RETURN_STATUS => X_RETURN_STATUS);
1135:
1136: WHEN OTHERS THEN
1137: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1138: P_MODULE => l_module
1139: ,P_API_NAME => L_API_NAME
1140: ,P_PKG_NAME => G_PKG_NAME
1141: ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
1137: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1138: P_MODULE => l_module
1139: ,P_API_NAME => L_API_NAME
1140: ,P_PKG_NAME => G_PKG_NAME
1141: ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
1142: ,P_SQLCODE => SQLCODE
1143: ,P_SQLERRM => SQLERRM
1144: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
1145: ,X_MSG_COUNT => X_MSG_COUNT
1140: ,P_PKG_NAME => G_PKG_NAME
1141: ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
1142: ,P_SQLCODE => SQLCODE
1143: ,P_SQLERRM => SQLERRM
1144: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
1145: ,X_MSG_COUNT => X_MSG_COUNT
1146: ,X_MSG_DATA => X_MSG_DATA
1147: ,X_RETURN_STATUS => X_RETURN_STATUS);
1148: