7:
8:
9: procedure Validate_Salesteam (
10: p_api_version_number IN NUMBER,
11: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
12: p_commit IN VARCHAR2 := FND_API.G_FALSE,
13: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
14: p_access_id IN NUMBER,
15: p_lead_id IN NUMBER,
8:
9: procedure Validate_Salesteam (
10: p_api_version_number IN NUMBER,
11: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
12: p_commit IN VARCHAR2 := FND_API.G_FALSE,
13: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
14: p_access_id IN NUMBER,
15: p_lead_id IN NUMBER,
16: p_salesforce_id IN NUMBER,
9: procedure Validate_Salesteam (
10: p_api_version_number IN NUMBER,
11: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
12: p_commit IN VARCHAR2 := FND_API.G_FALSE,
13: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
14: p_access_id IN NUMBER,
15: p_lead_id IN NUMBER,
16: p_salesforce_id IN NUMBER,
17: p_mode IN VARCHAR2, -- The mode can be CREATE, UPDATE, DELETE
129: BEGIN
130: --FND_MSG_PUB.G_MSG_LEVEL_THRESHOLD := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
131:
132: -- Standard call to check for call compatibility.
133: IF NOT FND_API.Compatible_API_Call(l_api_version_number,
134: p_api_version_number,
135: l_api_name,
136: G_PKG_NAME)
137: THEN
134: p_api_version_number,
135: l_api_name,
136: G_PKG_NAME)
137: THEN
138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
139: END IF;
140:
141: -- Initialize message list if p_init_msg_list is set to TRUE.
142: IF FND_API.to_Boolean( p_init_msg_list ) THEN
138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
139: END IF;
140:
141: -- Initialize message list if p_init_msg_list is set to TRUE.
142: IF FND_API.to_Boolean( p_init_msg_list ) THEN
143: fnd_msg_pub.initialize;
144: END IF;
145:
146: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
149: fnd_msg_pub.Add;
150: END IF;
151:
152: -- Initialize API return status to success
153: x_return_status := FND_API.G_RET_STS_SUCCESS;
154:
155: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
156: fnd_message.Set_Name('PV', 'PV_DEBUG_MESSAGE');
157: fnd_message.Set_Token('TEXT', 'before pv_assignment_pvt.GetWorkflowID');
164: end if;
165:
166: -- call getWorkflowId to check the Workflow status
167: pv_assign_util_pvt.GetWorkflowID (p_api_version_number => 1.0,
168: p_init_msg_list => FND_API.G_FALSE,
169: p_commit => FND_API.G_FALSE,
170: p_validation_level => p_validation_level,
171: p_lead_id => l_lead_id,
172: p_entity => l_entity,
165:
166: -- call getWorkflowId to check the Workflow status
167: pv_assign_util_pvt.GetWorkflowID (p_api_version_number => 1.0,
168: p_init_msg_list => FND_API.G_FALSE,
169: p_commit => FND_API.G_FALSE,
170: p_validation_level => p_validation_level,
171: p_lead_id => l_lead_id,
172: p_entity => l_entity,
173: x_itemType => l_itemType,
177: x_return_status => x_return_status,
178: x_msg_count => x_msg_count,
179: x_msg_data => x_msg_data);
180:
181: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
182: RAISE FND_API.G_EXC_ERROR;
183: END IF;
184:
185: -- Debug Message
178: x_msg_count => x_msg_count,
179: x_msg_data => x_msg_data);
180:
181: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
182: RAISE FND_API.G_EXC_ERROR;
183: END IF;
184:
185: -- Debug Message
186: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
225: return;
226: ELSIF l_relationship_type = 'PARTNER_OF' THEN
227: fnd_message.SET_NAME('PV', 'PV_ADDSLSTEAM_NOT_ALLOWED'); -- Change message 1 ********************
228: fnd_msg_pub.ADD;
229: RAISE FND_API.G_EXC_ERROR;
230: END IF;
231:
232: ELSIF p_mode = 'DELETE' or p_mode = 'UPDATE' then
233:
250:
251: IF (l_prm_keep_flag = 'Y') THEN
252: fnd_message.SET_NAME('PV', 'PV_UPDSLSTEAM_NOT_ALLOWED'); -- Change message 1 ********************
253: fnd_msg_pub.ADD;
254: RAISE FND_API.G_EXC_ERROR;
255: END IF;
256:
257: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
258: fnd_message.Set_Name('PV', 'PV_DEBUG_MESSAGE');
302: --FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',p_attribute_rec.name );
303: --FND_MESSAGE.Set_Token('RESPONSIBILITY_LIST',substr(l_being_used_list,2) );
304: FND_MSG_PUB.Add;
305: END IF;
306: RAISE FND_API.G_EXC_ERROR;
307: end if;
308: end if;
309:
310:
309:
310:
311:
312: -- Standard call to get message count and if count is 1, get message info.
313: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
314: p_count => x_msg_count,
315: p_data => x_msg_data);
316:
317: EXCEPTION
322: fnd_message.Set_Token('TEXT', 'NO Data found ..');
323: fnd_msg_pub.Add;
324: END IF;
325:
326: WHEN FND_API.G_EXC_ERROR THEN
327:
328: x_return_status := FND_API.G_RET_STS_ERROR ;
329: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
330: p_count => x_msg_count,
324: END IF;
325:
326: WHEN FND_API.G_EXC_ERROR THEN
327:
328: x_return_status := FND_API.G_RET_STS_ERROR ;
329: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
330: p_count => x_msg_count,
331: p_data => x_msg_data);
332:
325:
326: WHEN FND_API.G_EXC_ERROR THEN
327:
328: x_return_status := FND_API.G_RET_STS_ERROR ;
329: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
330: p_count => x_msg_count,
331: p_data => x_msg_data);
332:
333: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
329: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
330: p_count => x_msg_count,
331: p_data => x_msg_data);
332:
333: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
334:
335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
336: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
337: p_count => x_msg_count,
331: p_data => x_msg_data);
332:
333: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
334:
335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
336: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
337: p_count => x_msg_count,
338: p_data => x_msg_data);
339:
332:
333: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
334:
335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
336: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
337: p_count => x_msg_count,
338: p_data => x_msg_data);
339:
340: WHEN OTHERS THEN
338: p_data => x_msg_data);
339:
340: WHEN OTHERS THEN
341:
342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
343: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
344: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
345: p_count => x_msg_count,
346: p_data => x_msg_data);
340: WHEN OTHERS THEN
341:
342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
343: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
344: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
345: p_count => x_msg_count,
346: p_data => x_msg_data);
347:
348: END Validate_Salesteam;
349:
350:
351: procedure Create_Salesteam_Pre (
352: p_api_version_number IN NUMBER,
353: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
354: p_commit IN VARCHAR2 := FND_API.G_FALSE,
355: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
356: p_lead_id IN NUMBER,
357: p_salesforce_id IN NUMBER,
350:
351: procedure Create_Salesteam_Pre (
352: p_api_version_number IN NUMBER,
353: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
354: p_commit IN VARCHAR2 := FND_API.G_FALSE,
355: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
356: p_lead_id IN NUMBER,
357: p_salesforce_id IN NUMBER,
358: x_return_status OUT NOCOPY VARCHAR2,
351: procedure Create_Salesteam_Pre (
352: p_api_version_number IN NUMBER,
353: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
354: p_commit IN VARCHAR2 := FND_API.G_FALSE,
355: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
356: p_lead_id IN NUMBER,
357: p_salesforce_id IN NUMBER,
358: x_return_status OUT NOCOPY VARCHAR2,
359: x_msg_count OUT NOCOPY NUMBER,
366:
367: BEGIN
368: --FND_MSG_PUB.G_MSG_LEVEL_THRESHOLD := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
369: -- Standard call to check for call compatibility.
370: IF NOT FND_API.Compatible_API_Call(l_api_version_number,
371: p_api_version_number,
372: l_api_name,
373: G_PKG_NAME)
374: THEN
371: p_api_version_number,
372: l_api_name,
373: G_PKG_NAME)
374: THEN
375: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
376: END IF;
377:
378: -- Initialize message list if p_init_msg_list is set to TRUE.
379: IF FND_API.to_Boolean( p_init_msg_list ) THEN
375: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
376: END IF;
377:
378: -- Initialize message list if p_init_msg_list is set to TRUE.
379: IF FND_API.to_Boolean( p_init_msg_list ) THEN
380: fnd_msg_pub.initialize;
381: END IF;
382:
383: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
386: fnd_msg_pub.Add;
387: END IF;
388:
389: -- Initialize API return status to success
390: x_return_status := FND_API.G_RET_STS_SUCCESS;
391:
392: -- if its a customer, lead_id will be null
393: if p_lead_id is null then
394: return;
406: x_return_status => x_return_status,
407: x_msg_count => x_msg_count,
408: x_msg_data => x_msg_data);
409:
410: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
411: RAISE FND_API.G_EXC_ERROR;
412: END IF;
413:
414: -- Standard call to get message count and if count is 1, get message info.
407: x_msg_count => x_msg_count,
408: x_msg_data => x_msg_data);
409:
410: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
411: RAISE FND_API.G_EXC_ERROR;
412: END IF;
413:
414: -- Standard call to get message count and if count is 1, get message info.
415: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
411: RAISE FND_API.G_EXC_ERROR;
412: END IF;
413:
414: -- Standard call to get message count and if count is 1, get message info.
415: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
416: p_count => x_msg_count,
417: p_data => x_msg_data);
418:
419: EXCEPTION
417: p_data => x_msg_data);
418:
419: EXCEPTION
420:
421: WHEN FND_API.G_EXC_ERROR THEN
422:
423: x_return_status := FND_API.G_RET_STS_ERROR ;
424: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
425: p_count => x_msg_count,
419: EXCEPTION
420:
421: WHEN FND_API.G_EXC_ERROR THEN
422:
423: x_return_status := FND_API.G_RET_STS_ERROR ;
424: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
425: p_count => x_msg_count,
426: p_data => x_msg_data);
427:
420:
421: WHEN FND_API.G_EXC_ERROR THEN
422:
423: x_return_status := FND_API.G_RET_STS_ERROR ;
424: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
425: p_count => x_msg_count,
426: p_data => x_msg_data);
427:
428: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
424: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
425: p_count => x_msg_count,
426: p_data => x_msg_data);
427:
428: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
429:
430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
431: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
432: p_count => x_msg_count,
426: p_data => x_msg_data);
427:
428: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
429:
430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
431: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
432: p_count => x_msg_count,
433: p_data => x_msg_data);
434:
427:
428: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
429:
430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
431: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
432: p_count => x_msg_count,
433: p_data => x_msg_data);
434:
435: WHEN OTHERS THEN
433: p_data => x_msg_data);
434:
435: WHEN OTHERS THEN
436:
437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
438: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
439: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
440: p_count => x_msg_count,
441: p_data => x_msg_data);
435: WHEN OTHERS THEN
436:
437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
438: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
439: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
440: p_count => x_msg_count,
441: p_data => x_msg_data);
442:
443: END Create_Salesteam_Pre;
443: END Create_Salesteam_Pre;
444:
445: procedure Update_Salesteam_Pre (
446: p_api_version_number IN NUMBER,
447: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
448: p_commit IN VARCHAR2 := FND_API.G_FALSE,
449: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
450: p_access_id IN NUMBER,
451: p_lead_id IN NUMBER,
444:
445: procedure Update_Salesteam_Pre (
446: p_api_version_number IN NUMBER,
447: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
448: p_commit IN VARCHAR2 := FND_API.G_FALSE,
449: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
450: p_access_id IN NUMBER,
451: p_lead_id IN NUMBER,
452: x_return_status OUT NOCOPY VARCHAR2,
445: procedure Update_Salesteam_Pre (
446: p_api_version_number IN NUMBER,
447: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
448: p_commit IN VARCHAR2 := FND_API.G_FALSE,
449: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
450: p_access_id IN NUMBER,
451: p_lead_id IN NUMBER,
452: x_return_status OUT NOCOPY VARCHAR2,
453: x_msg_count OUT NOCOPY NUMBER,
458:
459: l_mode CONSTANT VARCHAR2(20) := 'UPDATE';
460: BEGIN
461: -- Standard call to check for call compatibility.
462: IF NOT FND_API.Compatible_API_Call(l_api_version_number,
463: p_api_version_number,
464: l_api_name,
465: G_PKG_NAME)
466: THEN
463: p_api_version_number,
464: l_api_name,
465: G_PKG_NAME)
466: THEN
467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
468: END IF;
469:
470: -- Initialize message list if p_init_msg_list is set to TRUE.
471: IF FND_API.to_Boolean( p_init_msg_list ) THEN
467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
468: END IF;
469:
470: -- Initialize message list if p_init_msg_list is set to TRUE.
471: IF FND_API.to_Boolean( p_init_msg_list ) THEN
472: fnd_msg_pub.initialize;
473: END IF;
474:
475: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
478: fnd_msg_pub.Add;
479: END IF;
480:
481: -- Initialize API return status to success
482: x_return_status := FND_API.G_RET_STS_SUCCESS;
483:
484: Validate_Salesteam (
485: p_api_version_number => l_api_version_number,
486: p_init_msg_list => p_init_msg_list,
494: x_msg_count => x_msg_count,
495: x_msg_data => x_msg_data);
496:
497:
498: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
499: RAISE FND_API.G_EXC_ERROR;
500: END IF;
501:
502: -- Standard call to get message count and if count is 1, get message info.
495: x_msg_data => x_msg_data);
496:
497:
498: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
499: RAISE FND_API.G_EXC_ERROR;
500: END IF;
501:
502: -- Standard call to get message count and if count is 1, get message info.
503: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
499: RAISE FND_API.G_EXC_ERROR;
500: END IF;
501:
502: -- Standard call to get message count and if count is 1, get message info.
503: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
504: p_count => x_msg_count,
505: p_data => x_msg_data);
506:
507: EXCEPTION
505: p_data => x_msg_data);
506:
507: EXCEPTION
508:
509: WHEN FND_API.G_EXC_ERROR THEN
510:
511: x_return_status := FND_API.G_RET_STS_ERROR ;
512: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
513: p_count => x_msg_count,
507: EXCEPTION
508:
509: WHEN FND_API.G_EXC_ERROR THEN
510:
511: x_return_status := FND_API.G_RET_STS_ERROR ;
512: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
513: p_count => x_msg_count,
514: p_data => x_msg_data);
515:
508:
509: WHEN FND_API.G_EXC_ERROR THEN
510:
511: x_return_status := FND_API.G_RET_STS_ERROR ;
512: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
513: p_count => x_msg_count,
514: p_data => x_msg_data);
515:
516: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
512: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
513: p_count => x_msg_count,
514: p_data => x_msg_data);
515:
516: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
517:
518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
519: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
520: p_count => x_msg_count,
514: p_data => x_msg_data);
515:
516: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
517:
518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
519: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
520: p_count => x_msg_count,
521: p_data => x_msg_data);
522:
515:
516: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
517:
518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
519: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
520: p_count => x_msg_count,
521: p_data => x_msg_data);
522:
523: WHEN OTHERS THEN
521: p_data => x_msg_data);
522:
523: WHEN OTHERS THEN
524:
525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
526: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
527: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
528: p_count => x_msg_count,
529: p_data => x_msg_data);
523: WHEN OTHERS THEN
524:
525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
526: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
527: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
528: p_count => x_msg_count,
529: p_data => x_msg_data);
530:
531: END Update_Salesteam_Pre;
531: END Update_Salesteam_Pre;
532:
533: procedure Delete_Salesteam_Pre (
534: p_api_version_number IN NUMBER,
535: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
536: p_commit IN VARCHAR2 := FND_API.G_FALSE,
537: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
538: p_access_id IN NUMBER,
539: p_lead_id IN NUMBER,
532:
533: procedure Delete_Salesteam_Pre (
534: p_api_version_number IN NUMBER,
535: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
536: p_commit IN VARCHAR2 := FND_API.G_FALSE,
537: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
538: p_access_id IN NUMBER,
539: p_lead_id IN NUMBER,
540: x_return_status OUT NOCOPY VARCHAR2,
533: procedure Delete_Salesteam_Pre (
534: p_api_version_number IN NUMBER,
535: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
536: p_commit IN VARCHAR2 := FND_API.G_FALSE,
537: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
538: p_access_id IN NUMBER,
539: p_lead_id IN NUMBER,
540: x_return_status OUT NOCOPY VARCHAR2,
541: x_msg_count OUT NOCOPY NUMBER,
549:
550: --FND_MSG_PUB.g_msg_level_threshold := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
551:
552: -- Standard call to check for call compatibility.
553: IF NOT FND_API.Compatible_API_Call(l_api_version_number,
554: p_api_version_number,
555: l_api_name,
556: G_PKG_NAME)
557: THEN
554: p_api_version_number,
555: l_api_name,
556: G_PKG_NAME)
557: THEN
558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
559: END IF;
560:
561: -- Initialize message list if p_init_msg_list is set to TRUE.
562: IF FND_API.to_Boolean( p_init_msg_list ) THEN
558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
559: END IF;
560:
561: -- Initialize message list if p_init_msg_list is set to TRUE.
562: IF FND_API.to_Boolean( p_init_msg_list ) THEN
563: fnd_msg_pub.initialize;
564: END IF;
565:
566:
570: fnd_msg_pub.Add;
571: END IF;
572:
573: -- Initialize API return status to success
574: x_return_status := FND_API.G_RET_STS_SUCCESS;
575:
576: Validate_Salesteam (
577: p_api_version_number => l_api_version_number,
578: p_init_msg_list => p_init_msg_list,
585: x_return_status => x_return_status,
586: x_msg_count => x_msg_count,
587: x_msg_data => x_msg_data);
588:
589: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
590: RAISE FND_API.G_EXC_ERROR;
591: END IF;
592:
593: -- Standard call to get message count and if count is 1, get message info.
586: x_msg_count => x_msg_count,
587: x_msg_data => x_msg_data);
588:
589: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
590: RAISE FND_API.G_EXC_ERROR;
591: END IF;
592:
593: -- Standard call to get message count and if count is 1, get message info.
594: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
590: RAISE FND_API.G_EXC_ERROR;
591: END IF;
592:
593: -- Standard call to get message count and if count is 1, get message info.
594: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
595: p_count => x_msg_count,
596: p_data => x_msg_data);
597:
598: EXCEPTION
596: p_data => x_msg_data);
597:
598: EXCEPTION
599:
600: WHEN FND_API.G_EXC_ERROR THEN
601:
602: x_return_status := FND_API.G_RET_STS_ERROR ;
603: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
604: p_count => x_msg_count,
598: EXCEPTION
599:
600: WHEN FND_API.G_EXC_ERROR THEN
601:
602: x_return_status := FND_API.G_RET_STS_ERROR ;
603: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
604: p_count => x_msg_count,
605: p_data => x_msg_data);
606:
599:
600: WHEN FND_API.G_EXC_ERROR THEN
601:
602: x_return_status := FND_API.G_RET_STS_ERROR ;
603: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
604: p_count => x_msg_count,
605: p_data => x_msg_data);
606:
607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
603: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
604: p_count => x_msg_count,
605: p_data => x_msg_data);
606:
607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
608:
609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
610: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
611: p_count => x_msg_count,
605: p_data => x_msg_data);
606:
607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
608:
609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
610: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
611: p_count => x_msg_count,
612: p_data => x_msg_data);
613:
606:
607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
608:
609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
610: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
611: p_count => x_msg_count,
612: p_data => x_msg_data);
613:
614: WHEN OTHERS THEN
612: p_data => x_msg_data);
613:
614: WHEN OTHERS THEN
615:
616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
617: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
618: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
619: p_count => x_msg_count,
620: p_data => x_msg_data);
614: WHEN OTHERS THEN
615:
616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
617: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
618: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
619: p_count => x_msg_count,
620: p_data => x_msg_data);
621:
622: END Delete_Salesteam_Pre;