305: -- -------------------------------------------------
306: Debug('Calling pv_benft_status_change.status_change_raise...');
307: pv_benft_status_change.status_change_raise(
308: p_api_version_number => 1.0,
309: p_init_msg_list => FND_API.G_FALSE,
310: p_commit => FND_API.G_FALSE,
311: p_event_name => 'oracle.apps.pv.benefit.referral.statusChange',
312: p_benefit_id => x.benefit_id,
313: p_entity_id => x.referral_id,
306: Debug('Calling pv_benft_status_change.status_change_raise...');
307: pv_benft_status_change.status_change_raise(
308: p_api_version_number => 1.0,
309: p_init_msg_list => FND_API.G_FALSE,
310: p_commit => FND_API.G_FALSE,
311: p_event_name => 'oracle.apps.pv.benefit.referral.statusChange',
312: p_benefit_id => x.benefit_id,
313: p_entity_id => x.referral_id,
314: p_status_code => 'CLOSED_LOST_OPPTY',
320: x_msg_data => l_msg_data);
321:
322: Debug('Return Status: ' || l_return_status);
323:
324: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
325: RAISE FND_API.G_EXC_ERROR;
326:
327: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
328: RAISE FND_API.g_exc_unexpected_error;
321:
322: Debug('Return Status: ' || l_return_status);
323:
324: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
325: RAISE FND_API.G_EXC_ERROR;
326:
327: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
328: RAISE FND_API.g_exc_unexpected_error;
329: END IF;
323:
324: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
325: RAISE FND_API.G_EXC_ERROR;
326:
327: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
328: RAISE FND_API.g_exc_unexpected_error;
329: END IF;
330:
331:
324: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
325: RAISE FND_API.G_EXC_ERROR;
326:
327: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
328: RAISE FND_API.g_exc_unexpected_error;
329: END IF;
330:
331:
332: -- -------------------------------------------------
334: -- -------------------------------------------------
335: Debug('Calling pv_benft_status_change.STATUS_CHANGE_LOGGING...');
336: pv_benft_status_change.STATUS_CHANGE_LOGGING(
337: p_api_version_number => 1.0,
338: p_init_msg_list => FND_API.G_FALSE,
339: p_commit => FND_API.G_FALSE,
340: p_benefit_id => x.benefit_id,
341: P_STATUS => 'CLOSED_LOST_OPPTY',
342: p_entity_id => x.referral_id,
335: Debug('Calling pv_benft_status_change.STATUS_CHANGE_LOGGING...');
336: pv_benft_status_change.STATUS_CHANGE_LOGGING(
337: p_api_version_number => 1.0,
338: p_init_msg_list => FND_API.G_FALSE,
339: p_commit => FND_API.G_FALSE,
340: p_benefit_id => x.benefit_id,
341: P_STATUS => 'CLOSED_LOST_OPPTY',
342: p_entity_id => x.referral_id,
343: p_partner_id => x.partner_id,
347: );
348:
349: Debug('Return Status: ' || l_return_status);
350:
351: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
352: RAISE FND_API.G_EXC_ERROR;
353:
354: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
355: RAISE FND_API.g_exc_unexpected_error;
348:
349: Debug('Return Status: ' || l_return_status);
350:
351: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
352: RAISE FND_API.G_EXC_ERROR;
353:
354: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
355: RAISE FND_API.g_exc_unexpected_error;
356: END IF;
350:
351: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
352: RAISE FND_API.G_EXC_ERROR;
353:
354: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
355: RAISE FND_API.g_exc_unexpected_error;
356: END IF;
357:
358: --------------------------- Exception --------------------------------
351: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
352: RAISE FND_API.G_EXC_ERROR;
353:
354: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
355: RAISE FND_API.g_exc_unexpected_error;
356: END IF;
357:
358: --------------------------- Exception --------------------------------
359: EXCEPTION
356: END IF;
357:
358: --------------------------- Exception --------------------------------
359: EXCEPTION
360: WHEN FND_API.G_EXC_ERROR THEN
361: g_RETCODE := '1';
362:
363: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
364: p_count => l_msg_count,
359: EXCEPTION
360: WHEN FND_API.G_EXC_ERROR THEN
361: g_RETCODE := '1';
362:
363: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
364: p_count => l_msg_count,
365: p_data => l_msg_data);
366:
367: WHEN FND_API.g_exc_unexpected_error THEN
363: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
364: p_count => l_msg_count,
365: p_data => l_msg_data);
366:
367: WHEN FND_API.g_exc_unexpected_error THEN
368: g_RETCODE := '1';
369:
370: FND_MSG_PUB.count_and_get(
371: p_encoded => FND_API.g_false,
367: WHEN FND_API.g_exc_unexpected_error THEN
368: g_RETCODE := '1';
369:
370: FND_MSG_PUB.count_and_get(
371: p_encoded => FND_API.g_false,
372: p_count => l_msg_count,
373: p_data => l_msg_data
374: );
375:
376: WHEN OTHERS THEN
377: g_RETCODE := '1';
378:
379: FND_MSG_PUB.count_and_get(
380: p_encoded => FND_API.g_false,
381: p_count => l_msg_count,
382: p_data => l_msg_data
383: );
384:
411: -- -------------------------------------------------
412: Debug('Calling pv_benft_status_change.status_change_raise...');
413: pv_benft_status_change.status_change_raise(
414: p_api_version_number => 1.0,
415: p_init_msg_list => FND_API.G_FALSE,
416: p_commit => FND_API.G_FALSE,
417: p_event_name => 'oracle.apps.pv.benefit.referral.statusChange',
418: p_benefit_id => x.benefit_id,
419: p_entity_id => x.referral_id,
412: Debug('Calling pv_benft_status_change.status_change_raise...');
413: pv_benft_status_change.status_change_raise(
414: p_api_version_number => 1.0,
415: p_init_msg_list => FND_API.G_FALSE,
416: p_commit => FND_API.G_FALSE,
417: p_event_name => 'oracle.apps.pv.benefit.referral.statusChange',
418: p_benefit_id => x.benefit_id,
419: p_entity_id => x.referral_id,
420: p_status_code => 'CLOSED_OPPTY_WON',
426: x_msg_data => l_msg_data);
427:
428: Debug('Return Status: ' || l_return_status);
429:
430: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
431: RAISE FND_API.G_EXC_ERROR;
432:
433: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
434: RAISE FND_API.g_exc_unexpected_error;
427:
428: Debug('Return Status: ' || l_return_status);
429:
430: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
431: RAISE FND_API.G_EXC_ERROR;
432:
433: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
434: RAISE FND_API.g_exc_unexpected_error;
435: END IF;
429:
430: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
431: RAISE FND_API.G_EXC_ERROR;
432:
433: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
434: RAISE FND_API.g_exc_unexpected_error;
435: END IF;
436:
437: -- -------------------------------------------------
430: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
431: RAISE FND_API.G_EXC_ERROR;
432:
433: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
434: RAISE FND_API.g_exc_unexpected_error;
435: END IF;
436:
437: -- -------------------------------------------------
438: -- Log the event.
439: -- -------------------------------------------------
440: Debug('Calling pv_benft_status_change.STATUS_CHANGE_LOGGING...');
441: pv_benft_status_change.STATUS_CHANGE_LOGGING(
442: p_api_version_number => 1.0,
443: p_init_msg_list => FND_API.G_FALSE,
444: p_commit => FND_API.G_FALSE,
445: p_benefit_id => x.benefit_id,
446: P_STATUS => 'CLOSED_OPPTY_WON',
447: p_entity_id => x.referral_id,
440: Debug('Calling pv_benft_status_change.STATUS_CHANGE_LOGGING...');
441: pv_benft_status_change.STATUS_CHANGE_LOGGING(
442: p_api_version_number => 1.0,
443: p_init_msg_list => FND_API.G_FALSE,
444: p_commit => FND_API.G_FALSE,
445: p_benefit_id => x.benefit_id,
446: P_STATUS => 'CLOSED_OPPTY_WON',
447: p_entity_id => x.referral_id,
448: p_partner_id => x.partner_id,
452: );
453:
454: Debug('Return Status: ' || l_return_status);
455:
456: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
457: RAISE FND_API.G_EXC_ERROR;
458:
459: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
460: RAISE FND_API.g_exc_unexpected_error;
453:
454: Debug('Return Status: ' || l_return_status);
455:
456: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
457: RAISE FND_API.G_EXC_ERROR;
458:
459: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
460: RAISE FND_API.g_exc_unexpected_error;
461: END IF;
455:
456: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
457: RAISE FND_API.G_EXC_ERROR;
458:
459: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
460: RAISE FND_API.g_exc_unexpected_error;
461: END IF;
462:
463: --------------------------- Exception --------------------------------
456: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
457: RAISE FND_API.G_EXC_ERROR;
458:
459: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
460: RAISE FND_API.g_exc_unexpected_error;
461: END IF;
462:
463: --------------------------- Exception --------------------------------
464: EXCEPTION
461: END IF;
462:
463: --------------------------- Exception --------------------------------
464: EXCEPTION
465: WHEN FND_API.G_EXC_ERROR THEN
466: g_RETCODE := '1';
467:
468: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
469: p_count => l_msg_count,
464: EXCEPTION
465: WHEN FND_API.G_EXC_ERROR THEN
466: g_RETCODE := '1';
467:
468: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
469: p_count => l_msg_count,
470: p_data => l_msg_data);
471:
472: WHEN FND_API.g_exc_unexpected_error THEN
468: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
469: p_count => l_msg_count,
470: p_data => l_msg_data);
471:
472: WHEN FND_API.g_exc_unexpected_error THEN
473: g_RETCODE := '1';
474:
475: FND_MSG_PUB.count_and_get(
476: p_encoded => FND_API.g_false,
472: WHEN FND_API.g_exc_unexpected_error THEN
473: g_RETCODE := '1';
474:
475: FND_MSG_PUB.count_and_get(
476: p_encoded => FND_API.g_false,
477: p_count => l_msg_count,
478: p_data => l_msg_data
479: );
480:
481: WHEN OTHERS THEN
482: g_RETCODE := '1';
483:
484: FND_MSG_PUB.count_and_get(
485: p_encoded => FND_API.g_false,
486: p_count => l_msg_count,
487: p_data => l_msg_data
488: );
489:
514: -- -------------------------------------------------
515: Debug('Calling pv_benft_status_change.status_change_raise...');
516: pv_benft_status_change.status_change_raise(
517: p_api_version_number => 1.0,
518: p_init_msg_list => FND_API.G_FALSE,
519: p_commit => FND_API.G_FALSE,
520: p_event_name => 'oracle.apps.pv.benefit.referral.statusChange',
521: p_benefit_id => x.benefit_id,
522: p_entity_id => x.referral_id,
515: Debug('Calling pv_benft_status_change.status_change_raise...');
516: pv_benft_status_change.status_change_raise(
517: p_api_version_number => 1.0,
518: p_init_msg_list => FND_API.G_FALSE,
519: p_commit => FND_API.G_FALSE,
520: p_event_name => 'oracle.apps.pv.benefit.referral.statusChange',
521: p_benefit_id => x.benefit_id,
522: p_entity_id => x.referral_id,
523: p_status_code => 'CLOSED_DEAD_LEAD',
529: x_msg_data => l_msg_data);
530:
531: Debug('Return Status: ' || l_return_status);
532:
533: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
534: RAISE FND_API.G_EXC_ERROR;
535:
536: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
537: RAISE FND_API.g_exc_unexpected_error;
530:
531: Debug('Return Status: ' || l_return_status);
532:
533: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
534: RAISE FND_API.G_EXC_ERROR;
535:
536: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
537: RAISE FND_API.g_exc_unexpected_error;
538: END IF;
532:
533: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
534: RAISE FND_API.G_EXC_ERROR;
535:
536: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
537: RAISE FND_API.g_exc_unexpected_error;
538: END IF;
539:
540: -- -------------------------------------------------
533: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
534: RAISE FND_API.G_EXC_ERROR;
535:
536: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
537: RAISE FND_API.g_exc_unexpected_error;
538: END IF;
539:
540: -- -------------------------------------------------
541: -- Log the event.
542: -- -------------------------------------------------
543: Debug('Calling pv_benft_status_change.STATUS_CHANGE_LOGGING...');
544: pv_benft_status_change.STATUS_CHANGE_LOGGING(
545: p_api_version_number => 1.0,
546: p_init_msg_list => FND_API.G_FALSE,
547: p_commit => FND_API.G_FALSE,
548: p_benefit_id => x.benefit_id,
549: P_STATUS => 'CLOSED_DEAD_LEAD',
550: p_entity_id => x.referral_id,
543: Debug('Calling pv_benft_status_change.STATUS_CHANGE_LOGGING...');
544: pv_benft_status_change.STATUS_CHANGE_LOGGING(
545: p_api_version_number => 1.0,
546: p_init_msg_list => FND_API.G_FALSE,
547: p_commit => FND_API.G_FALSE,
548: p_benefit_id => x.benefit_id,
549: P_STATUS => 'CLOSED_DEAD_LEAD',
550: p_entity_id => x.referral_id,
551: p_partner_id => x.partner_id,
555: );
556:
557: Debug('Return Status: ' || l_return_status);
558:
559: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
560: RAISE FND_API.G_EXC_ERROR;
561:
562: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
563: RAISE FND_API.g_exc_unexpected_error;
556:
557: Debug('Return Status: ' || l_return_status);
558:
559: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
560: RAISE FND_API.G_EXC_ERROR;
561:
562: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
563: RAISE FND_API.g_exc_unexpected_error;
564: END IF;
558:
559: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
560: RAISE FND_API.G_EXC_ERROR;
561:
562: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
563: RAISE FND_API.g_exc_unexpected_error;
564: END IF;
565:
566: --------------------------- Exception --------------------------------
559: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
560: RAISE FND_API.G_EXC_ERROR;
561:
562: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
563: RAISE FND_API.g_exc_unexpected_error;
564: END IF;
565:
566: --------------------------- Exception --------------------------------
567: EXCEPTION
564: END IF;
565:
566: --------------------------- Exception --------------------------------
567: EXCEPTION
568: WHEN FND_API.G_EXC_ERROR THEN
569: g_RETCODE := '1';
570:
571: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
572: p_count => l_msg_count,
567: EXCEPTION
568: WHEN FND_API.G_EXC_ERROR THEN
569: g_RETCODE := '1';
570:
571: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
572: p_count => l_msg_count,
573: p_data => l_msg_data);
574:
575: WHEN FND_API.g_exc_unexpected_error THEN
571: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
572: p_count => l_msg_count,
573: p_data => l_msg_data);
574:
575: WHEN FND_API.g_exc_unexpected_error THEN
576: g_RETCODE := '1';
577:
578: FND_MSG_PUB.count_and_get(
579: p_encoded => FND_API.g_false,
575: WHEN FND_API.g_exc_unexpected_error THEN
576: g_RETCODE := '1';
577:
578: FND_MSG_PUB.count_and_get(
579: p_encoded => FND_API.g_false,
580: p_count => l_msg_count,
581: p_data => l_msg_data
582: );
583:
584: WHEN OTHERS THEN
585: g_RETCODE := '1';
586:
587: FND_MSG_PUB.count_and_get(
588: p_encoded => FND_API.g_false,
589: p_count => l_msg_count,
590: p_data => l_msg_data
591: );
592:
618: -- -------------------------------------------------
619: Debug('Calling pv_benft_status_change.status_change_raise...');
620: pv_benft_status_change.status_change_raise(
621: p_api_version_number => 1.0,
622: p_init_msg_list => FND_API.G_FALSE,
623: p_commit => FND_API.G_FALSE,
624: p_event_name => 'oracle.apps.pv.benefit.referral.statusChange',
625: p_benefit_id => x.benefit_id,
626: p_entity_id => x.referral_id,
619: Debug('Calling pv_benft_status_change.status_change_raise...');
620: pv_benft_status_change.status_change_raise(
621: p_api_version_number => 1.0,
622: p_init_msg_list => FND_API.G_FALSE,
623: p_commit => FND_API.G_FALSE,
624: p_event_name => 'oracle.apps.pv.benefit.referral.statusChange',
625: p_benefit_id => x.benefit_id,
626: p_entity_id => x.referral_id,
627: p_status_code => 'EXPIRED',
633: x_msg_data => l_msg_data);
634:
635: Debug('Return Status: ' || l_return_status);
636:
637: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
638: RAISE FND_API.G_EXC_ERROR;
639:
640: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
641: RAISE FND_API.g_exc_unexpected_error;
634:
635: Debug('Return Status: ' || l_return_status);
636:
637: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
638: RAISE FND_API.G_EXC_ERROR;
639:
640: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
641: RAISE FND_API.g_exc_unexpected_error;
642: END IF;
636:
637: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
638: RAISE FND_API.G_EXC_ERROR;
639:
640: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
641: RAISE FND_API.g_exc_unexpected_error;
642: END IF;
643:
644: -- -------------------------------------------------
637: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
638: RAISE FND_API.G_EXC_ERROR;
639:
640: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
641: RAISE FND_API.g_exc_unexpected_error;
642: END IF;
643:
644: -- -------------------------------------------------
645: -- Log the event.
646: -- -------------------------------------------------
647: Debug('Calling pv_benft_status_change.STATUS_CHANGE_LOGGING...');
648: pv_benft_status_change.STATUS_CHANGE_LOGGING(
649: p_api_version_number => 1.0,
650: p_init_msg_list => FND_API.G_FALSE,
651: p_commit => FND_API.G_FALSE,
652: p_benefit_id => x.benefit_id,
653: P_STATUS => 'EXPIRED',
654: p_entity_id => x.referral_id,
647: Debug('Calling pv_benft_status_change.STATUS_CHANGE_LOGGING...');
648: pv_benft_status_change.STATUS_CHANGE_LOGGING(
649: p_api_version_number => 1.0,
650: p_init_msg_list => FND_API.G_FALSE,
651: p_commit => FND_API.G_FALSE,
652: p_benefit_id => x.benefit_id,
653: P_STATUS => 'EXPIRED',
654: p_entity_id => x.referral_id,
655: p_partner_id => x.partner_id,
659: );
660:
661: Debug('Return Status: ' || l_return_status);
662:
663: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
664: RAISE FND_API.G_EXC_ERROR;
665:
666: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
667: RAISE FND_API.g_exc_unexpected_error;
660:
661: Debug('Return Status: ' || l_return_status);
662:
663: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
664: RAISE FND_API.G_EXC_ERROR;
665:
666: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
667: RAISE FND_API.g_exc_unexpected_error;
668: END IF;
662:
663: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
664: RAISE FND_API.G_EXC_ERROR;
665:
666: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
667: RAISE FND_API.g_exc_unexpected_error;
668: END IF;
669:
670:
663: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
664: RAISE FND_API.G_EXC_ERROR;
665:
666: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
667: RAISE FND_API.g_exc_unexpected_error;
668: END IF;
669:
670:
671:
670:
671:
672: --------------------------- Exception --------------------------------
673: EXCEPTION
674: WHEN FND_API.G_EXC_ERROR THEN
675: g_RETCODE := '1';
676:
677: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
678: p_count => l_msg_count,
673: EXCEPTION
674: WHEN FND_API.G_EXC_ERROR THEN
675: g_RETCODE := '1';
676:
677: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
678: p_count => l_msg_count,
679: p_data => l_msg_data);
680:
681: WHEN FND_API.g_exc_unexpected_error THEN
677: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
678: p_count => l_msg_count,
679: p_data => l_msg_data);
680:
681: WHEN FND_API.g_exc_unexpected_error THEN
682: g_RETCODE := '1';
683:
684: FND_MSG_PUB.count_and_get(
685: p_encoded => FND_API.g_false,
681: WHEN FND_API.g_exc_unexpected_error THEN
682: g_RETCODE := '1';
683:
684: FND_MSG_PUB.count_and_get(
685: p_encoded => FND_API.g_false,
686: p_count => l_msg_count,
687: p_data => l_msg_data
688: );
689:
690: WHEN OTHERS THEN
691: g_RETCODE := '1';
692:
693: FND_MSG_PUB.count_and_get(
694: p_encoded => FND_API.g_false,
695: p_count => l_msg_count,
696: p_data => l_msg_data
697: );
698:
740: x_msg_data => l_msg_data);
741:
742: Debug('Return Status: ' || l_return_status);
743:
744: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
745: RAISE FND_API.G_EXC_ERROR;
746:
747: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
748: RAISE FND_API.g_exc_unexpected_error;
741:
742: Debug('Return Status: ' || l_return_status);
743:
744: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
745: RAISE FND_API.G_EXC_ERROR;
746:
747: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
748: RAISE FND_API.g_exc_unexpected_error;
749: END IF;
743:
744: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
745: RAISE FND_API.G_EXC_ERROR;
746:
747: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
748: RAISE FND_API.g_exc_unexpected_error;
749: END IF;
750:
751:
744: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
745: RAISE FND_API.G_EXC_ERROR;
746:
747: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
748: RAISE FND_API.g_exc_unexpected_error;
749: END IF;
750:
751:
752: --------------------------- Exception --------------------------------
750:
751:
752: --------------------------- Exception --------------------------------
753: EXCEPTION
754: WHEN FND_API.G_EXC_ERROR THEN
755: g_RETCODE := '1';
756:
757: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
758: p_count => l_msg_count,
753: EXCEPTION
754: WHEN FND_API.G_EXC_ERROR THEN
755: g_RETCODE := '1';
756:
757: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
758: p_count => l_msg_count,
759: p_data => l_msg_data);
760:
761: WHEN FND_API.g_exc_unexpected_error THEN
757: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
758: p_count => l_msg_count,
759: p_data => l_msg_data);
760:
761: WHEN FND_API.g_exc_unexpected_error THEN
762: g_RETCODE := '1';
763:
764: FND_MSG_PUB.count_and_get(
765: p_encoded => FND_API.g_false,
761: WHEN FND_API.g_exc_unexpected_error THEN
762: g_RETCODE := '1';
763:
764: FND_MSG_PUB.count_and_get(
765: p_encoded => FND_API.g_false,
766: p_count => l_msg_count,
767: p_data => l_msg_data
768: );
769:
770: WHEN OTHERS THEN
771: g_RETCODE := '1';
772:
773: FND_MSG_PUB.count_and_get(
774: p_encoded => FND_API.g_false,
775: p_count => l_msg_count,
776: p_data => l_msg_data
777: );
778:
816: --| |
817: --==============================================================================
818: PROCEDURE Create_Lead_Opportunity (
819: p_api_version IN NUMBER,
820: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
821: p_commit IN VARCHAR2 := FND_API.g_false,
822: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
823: p_referral_id IN NUMBER,
824: p_customer_party_id IN NUMBER := NULL,
817: --==============================================================================
818: PROCEDURE Create_Lead_Opportunity (
819: p_api_version IN NUMBER,
820: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
821: p_commit IN VARCHAR2 := FND_API.g_false,
822: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
823: p_referral_id IN NUMBER,
824: p_customer_party_id IN NUMBER := NULL,
825: p_customer_party_site_id IN NUMBER := NULL,
818: PROCEDURE Create_Lead_Opportunity (
819: p_api_version IN NUMBER,
820: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
821: p_commit IN VARCHAR2 := FND_API.g_false,
822: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
823: p_referral_id IN NUMBER,
824: p_customer_party_id IN NUMBER := NULL,
825: p_customer_party_site_id IN NUMBER := NULL,
826: p_customer_org_contact_id IN NUMBER := NULL,
1010: Debug('API called: ' || g_pkg_name || '.' || g_api_name);
1011:
1012:
1013: -------------------- initialize -------------------------
1014: IF FND_API.to_boolean(p_init_msg_list) THEN
1015: FND_MSG_PUB.initialize;
1016: END IF;
1017:
1018: IF NOT FND_API.compatible_api_call(
1014: IF FND_API.to_boolean(p_init_msg_list) THEN
1015: FND_MSG_PUB.initialize;
1016: END IF;
1017:
1018: IF NOT FND_API.compatible_api_call(
1019: l_api_version,
1020: p_api_version,
1021: g_api_name,
1022: g_pkg_name
1020: p_api_version,
1021: g_api_name,
1022: g_pkg_name
1023: ) THEN
1024: RAISE FND_API.g_exc_unexpected_error;
1025: END IF;
1026:
1027: x_return_status := FND_API.G_RET_STS_SUCCESS;
1028:
1023: ) THEN
1024: RAISE FND_API.g_exc_unexpected_error;
1025: END IF;
1026:
1027: x_return_status := FND_API.G_RET_STS_SUCCESS;
1028:
1029:
1030: Debug('user_id : ' || fnd_global.user_id());
1031: Debug('resp_id : ' || fnd_global.resp_id());
1107: p_msg_name => 'PV_RESOURCE_NO_SALES_GROUP',
1108: p_token1 => 'Invoker Resource ID',
1109: p_token1_value => l_invoker_resource_id);
1110:
1111: --RAISE FND_API.G_EXC_ERROR;
1112: END IF;
1113:
1114:
1115: Debug('l_invoker_resource_id = ' || l_invoker_resource_id);
1200: Set_Message(p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1201: p_msg_name => 'PV_NO_INDIRECT_CHANNEL_TYPE',
1202: p_token1 => null,
1203: p_token1_value => null);
1204: RAISE FND_API.G_EXC_ERROR;
1205: ELSE
1206: r_header_rec.channel_code := l_PV_INDIRECT_CHANNEL_TYPE;
1207: END IF;
1208:
1216: Set_Message(p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1217: p_msg_name => 'PV_NO_INDIRECT_CHANNEL_TYPE',
1218: p_token1 => null,
1219: p_token1_value => null);
1220: RAISE FND_API.G_EXC_ERROR;
1221: ELSE
1222: r_header_rec.channel_code := l_PV_INDIRECT_CHANNEL_TYPE;
1223: END IF;
1224:
1246: l_org_id := mo_utils.get_default_oRG_ID();
1247: MO_GLOBAL.set_policy_context('S', l_org_id);
1248: EXCEPTION
1249: WHEN OTHERS THEN
1250: RAISE FND_API.G_EXC_ERROR;
1251: END;
1252: r_header_rec.org_id := l_org_id;
1253:
1254:
1269: );
1270:
1271: Debug('Return Status: ' || x_return_status);
1272:
1273: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1274: RAISE FND_API.G_EXC_ERROR;
1275:
1276: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1277: RAISE FND_API.g_exc_unexpected_error;
1270:
1271: Debug('Return Status: ' || x_return_status);
1272:
1273: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1274: RAISE FND_API.G_EXC_ERROR;
1275:
1276: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1277: RAISE FND_API.g_exc_unexpected_error;
1278: END IF;
1272:
1273: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1274: RAISE FND_API.G_EXC_ERROR;
1275:
1276: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1277: RAISE FND_API.g_exc_unexpected_error;
1278: END IF;
1279:
1280: x_entity_type := 'LEAD';
1273: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1274: RAISE FND_API.G_EXC_ERROR;
1275:
1276: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1277: RAISE FND_API.g_exc_unexpected_error;
1278: END IF;
1279:
1280: x_entity_type := 'LEAD';
1281:
1316: );
1317:
1318: Debug('Return Status: ' || x_return_status);
1319:
1320: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1321: RAISE FND_API.G_EXC_ERROR;
1322:
1323: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1324: RAISE FND_API.g_exc_unexpected_error;
1317:
1318: Debug('Return Status: ' || x_return_status);
1319:
1320: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1321: RAISE FND_API.G_EXC_ERROR;
1322:
1323: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1324: RAISE FND_API.g_exc_unexpected_error;
1325: END IF;
1319:
1320: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1321: RAISE FND_API.G_EXC_ERROR;
1322:
1323: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1324: RAISE FND_API.g_exc_unexpected_error;
1325: END IF;
1326:
1327:
1320: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1321: RAISE FND_API.G_EXC_ERROR;
1322:
1323: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1324: RAISE FND_API.g_exc_unexpected_error;
1325: END IF;
1326:
1327:
1328: -- -------------------------------------------------------------------
1356:
1357: Debug('Return Status: ' || x_return_status);
1358: Debug('# of Contacts: ' || l_contact_out_tbl.COUNT);
1359:
1360: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1361: RAISE FND_API.G_EXC_ERROR;
1362:
1363: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1364: RAISE FND_API.g_exc_unexpected_error;
1357: Debug('Return Status: ' || x_return_status);
1358: Debug('# of Contacts: ' || l_contact_out_tbl.COUNT);
1359:
1360: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1361: RAISE FND_API.G_EXC_ERROR;
1362:
1363: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1364: RAISE FND_API.g_exc_unexpected_error;
1365: END IF;
1359:
1360: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1361: RAISE FND_API.G_EXC_ERROR;
1362:
1363: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1364: RAISE FND_API.g_exc_unexpected_error;
1365: END IF;
1366:
1367:
1360: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1361: RAISE FND_API.G_EXC_ERROR;
1362:
1363: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1364: RAISE FND_API.g_exc_unexpected_error;
1365: END IF;
1366:
1367:
1368: -- -------------------------------------------------------------------
1534: );
1535:
1536: Debug('Return Status: ' || x_return_status);
1537:
1538: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1539: RAISE FND_API.G_EXC_ERROR;
1540:
1541: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1542: RAISE FND_API.g_exc_unexpected_error;
1535:
1536: Debug('Return Status: ' || x_return_status);
1537:
1538: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1539: RAISE FND_API.G_EXC_ERROR;
1540:
1541: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1542: RAISE FND_API.g_exc_unexpected_error;
1543: END IF;
1537:
1538: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1539: RAISE FND_API.G_EXC_ERROR;
1540:
1541: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1542: RAISE FND_API.g_exc_unexpected_error;
1543: END IF;
1544:
1545:
1538: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1539: RAISE FND_API.G_EXC_ERROR;
1540:
1541: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1542: RAISE FND_API.g_exc_unexpected_error;
1543: END IF;
1544:
1545:
1546: x_entity_type := 'SALES_LEAD';
1622: p_msg_name => 'PV_RESOURCE_NO_SALES_GROUP',
1623: p_token1 => 'Approver Resource ID',
1624: p_token1_value => x.approver_resource_id);
1625:
1626: --RAISE FND_API.G_EXC_ERROR;
1627:
1628: ELSE
1629: as_access_pub.Create_SalesTeam(
1630: p_api_version_number => 2,
1627:
1628: ELSE
1629: as_access_pub.Create_SalesTeam(
1630: p_api_version_number => 2,
1631: p_init_msg_list => FND_API.G_FALSE,
1632: p_commit => FND_API.G_FALSE,
1633: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1634: p_access_profile_rec => l_access_profile_rec,
1635: p_check_access_flag => 'N',
1628: ELSE
1629: as_access_pub.Create_SalesTeam(
1630: p_api_version_number => 2,
1631: p_init_msg_list => FND_API.G_FALSE,
1632: p_commit => FND_API.G_FALSE,
1633: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1634: p_access_profile_rec => l_access_profile_rec,
1635: p_check_access_flag => 'N',
1636: p_admin_flag => 'N',
1629: as_access_pub.Create_SalesTeam(
1630: p_api_version_number => 2,
1631: p_init_msg_list => FND_API.G_FALSE,
1632: p_commit => FND_API.G_FALSE,
1633: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1634: p_access_profile_rec => l_access_profile_rec,
1635: p_check_access_flag => 'N',
1636: p_admin_flag => 'N',
1637: p_admin_group_id => null,
1643: x_access_id => l_access_id);
1644:
1645: Debug('Return Status: ' || x_return_status);
1646:
1647: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1648: RAISE FND_API.G_EXC_ERROR;
1649:
1650: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1651: RAISE FND_API.g_exc_unexpected_error;
1644:
1645: Debug('Return Status: ' || x_return_status);
1646:
1647: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1648: RAISE FND_API.G_EXC_ERROR;
1649:
1650: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1651: RAISE FND_API.g_exc_unexpected_error;
1652: END IF;
1646:
1647: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1648: RAISE FND_API.G_EXC_ERROR;
1649:
1650: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1651: RAISE FND_API.g_exc_unexpected_error;
1652: END IF;
1653: END IF;
1654:
1647: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1648: RAISE FND_API.G_EXC_ERROR;
1649:
1650: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1651: RAISE FND_API.g_exc_unexpected_error;
1652: END IF;
1653: END IF;
1654:
1655: END IF;
1749: p_msg_name => 'PV_RESOURCE_NO_SALES_GROUP',
1750: p_token1 => 'Channel Manager Resource ID',
1751: p_token1_value => l_channel_manager_tbl(i).resource_id);
1752:
1753: --RAISE FND_API.G_EXC_ERROR;
1754: END IF;
1755:
1756:
1757: as_access_pub.Create_SalesTeam(
1755:
1756:
1757: as_access_pub.Create_SalesTeam(
1758: p_api_version_number => 2,
1759: p_init_msg_list => FND_API.G_FALSE,
1760: p_commit => FND_API.G_FALSE,
1761: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1762: p_access_profile_rec => l_access_profile_rec,
1763: p_check_access_flag => 'N',
1756:
1757: as_access_pub.Create_SalesTeam(
1758: p_api_version_number => 2,
1759: p_init_msg_list => FND_API.G_FALSE,
1760: p_commit => FND_API.G_FALSE,
1761: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1762: p_access_profile_rec => l_access_profile_rec,
1763: p_check_access_flag => 'N',
1764: p_admin_flag => 'N',
1757: as_access_pub.Create_SalesTeam(
1758: p_api_version_number => 2,
1759: p_init_msg_list => FND_API.G_FALSE,
1760: p_commit => FND_API.G_FALSE,
1761: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1762: p_access_profile_rec => l_access_profile_rec,
1763: p_check_access_flag => 'N',
1764: p_admin_flag => 'N',
1765: p_admin_group_id => null,
1771: x_access_id => l_access_id);
1772:
1773: Debug('Return Status: ' || x_return_status);
1774:
1775: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1776: RAISE FND_API.G_EXC_ERROR;
1777:
1778: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1779: RAISE FND_API.g_exc_unexpected_error;
1772:
1773: Debug('Return Status: ' || x_return_status);
1774:
1775: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1776: RAISE FND_API.G_EXC_ERROR;
1777:
1778: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1779: RAISE FND_API.g_exc_unexpected_error;
1780: END IF;
1774:
1775: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1776: RAISE FND_API.G_EXC_ERROR;
1777:
1778: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1779: RAISE FND_API.g_exc_unexpected_error;
1780: END IF;
1781: END IF;
1782: END LOOP;
1775: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1776: RAISE FND_API.G_EXC_ERROR;
1777:
1778: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1779: RAISE FND_API.g_exc_unexpected_error;
1780: END IF;
1781: END IF;
1782: END LOOP;
1783: END IF;
1808: p_msg_name => 'PV_RESOURCE_NO_SALES_GROUP',
1809: p_token1 => 'Partner Contact Resource ID',
1810: p_token1_value => l_partner_contact_rs_id);
1811:
1812: --RAISE FND_API.G_EXC_ERROR;
1813: END IF;
1814:
1815:
1816: -- ----------------------------------------------------------
1830: l_access_profile_rec := null; -- always set it to null
1831:
1832: as_access_pub.Create_SalesTeam(
1833: p_api_version_number => 2,
1834: p_init_msg_list => FND_API.G_FALSE,
1835: p_commit => FND_API.G_FALSE,
1836: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1837: p_access_profile_rec => l_access_profile_rec,
1838: p_check_access_flag => 'N', -- disable certain validations.
1831:
1832: as_access_pub.Create_SalesTeam(
1833: p_api_version_number => 2,
1834: p_init_msg_list => FND_API.G_FALSE,
1835: p_commit => FND_API.G_FALSE,
1836: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1837: p_access_profile_rec => l_access_profile_rec,
1838: p_check_access_flag => 'N', -- disable certain validations.
1839: -- use this option for running in the background
1832: as_access_pub.Create_SalesTeam(
1833: p_api_version_number => 2,
1834: p_init_msg_list => FND_API.G_FALSE,
1835: p_commit => FND_API.G_FALSE,
1836: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1837: p_access_profile_rec => l_access_profile_rec,
1838: p_check_access_flag => 'N', -- disable certain validations.
1839: -- use this option for running in the background
1840: p_admin_flag => 'N',
1848: -- we don't need it.
1849:
1850: Debug('Return Status: ' || x_return_status);
1851:
1852: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1853: RAISE FND_API.G_EXC_ERROR;
1854:
1855: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1856: RAISE FND_API.g_exc_unexpected_error;
1849:
1850: Debug('Return Status: ' || x_return_status);
1851:
1852: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1853: RAISE FND_API.G_EXC_ERROR;
1854:
1855: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1856: RAISE FND_API.g_exc_unexpected_error;
1857: END IF;
1851:
1852: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1853: RAISE FND_API.G_EXC_ERROR;
1854:
1855: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1856: RAISE FND_API.g_exc_unexpected_error;
1857: END IF;
1858:
1859:
1852: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1853: RAISE FND_API.G_EXC_ERROR;
1854:
1855: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1856: RAISE FND_API.g_exc_unexpected_error;
1857: END IF;
1858:
1859:
1860:
1894: Debug('l_partner_contact_username: ' || l_partner_contact_username);
1895:
1896: pv_opportunity_vhuk.Notify_CM_On_Create_Oppty (
1897: p_api_version_number => 1.0,
1898: p_init_msg_list => FND_API.G_FALSE,
1899: p_commit => FND_API.G_FALSE,
1900: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1901: p_oppty_header_rec => r_opp_header_rec,
1902: p_salesforce_id => l_partner_contact_rs_id,
1895:
1896: pv_opportunity_vhuk.Notify_CM_On_Create_Oppty (
1897: p_api_version_number => 1.0,
1898: p_init_msg_list => FND_API.G_FALSE,
1899: p_commit => FND_API.G_FALSE,
1900: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1901: p_oppty_header_rec => r_opp_header_rec,
1902: p_salesforce_id => l_partner_contact_rs_id,
1903: p_relationship_type => 'PARTNER_OF',
1896: pv_opportunity_vhuk.Notify_CM_On_Create_Oppty (
1897: p_api_version_number => 1.0,
1898: p_init_msg_list => FND_API.G_FALSE,
1899: p_commit => FND_API.G_FALSE,
1900: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1901: p_oppty_header_rec => r_opp_header_rec,
1902: p_salesforce_id => l_partner_contact_rs_id,
1903: p_relationship_type => 'PARTNER_OF',
1904: p_party_relation_id => l_partner_id,
1911: );
1912:
1913: Debug('Return Status: ' || x_return_status);
1914:
1915: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1916: RAISE FND_API.G_EXC_ERROR;
1917:
1918: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1919: RAISE FND_API.g_exc_unexpected_error;
1912:
1913: Debug('Return Status: ' || x_return_status);
1914:
1915: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1916: RAISE FND_API.G_EXC_ERROR;
1917:
1918: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1919: RAISE FND_API.g_exc_unexpected_error;
1920: END IF;
1914:
1915: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1916: RAISE FND_API.G_EXC_ERROR;
1917:
1918: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1919: RAISE FND_API.g_exc_unexpected_error;
1920: END IF;
1921:
1922: END IF;
1915: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1916: RAISE FND_API.G_EXC_ERROR;
1917:
1918: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1919: RAISE FND_API.g_exc_unexpected_error;
1920: END IF;
1921:
1922: END IF;
1923:
1924: -- -------------------------------------------------------------------
1925: --settting it to Success because to avoid returing Warning return status which is being thrown by SALes LEad APIS.
1926: --for bug# 3899855
1927: -- -------------------------------------------------------------------
1928: x_return_status := FND_API.G_RET_STS_SUCCESS;
1929:
1930: -------------------- Exception --------------------------
1931: EXCEPTION
1932: WHEN FND_API.G_EXC_ERROR THEN
1928: x_return_status := FND_API.G_RET_STS_SUCCESS;
1929:
1930: -------------------- Exception --------------------------
1931: EXCEPTION
1932: WHEN FND_API.G_EXC_ERROR THEN
1933: ROLLBACK;
1934: x_return_status := FND_API.G_RET_STS_ERROR;
1935: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
1936: p_count => x_msg_count,
1930: -------------------- Exception --------------------------
1931: EXCEPTION
1932: WHEN FND_API.G_EXC_ERROR THEN
1933: ROLLBACK;
1934: x_return_status := FND_API.G_RET_STS_ERROR;
1935: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
1936: p_count => x_msg_count,
1937: p_data => x_msg_data);
1938:
1931: EXCEPTION
1932: WHEN FND_API.G_EXC_ERROR THEN
1933: ROLLBACK;
1934: x_return_status := FND_API.G_RET_STS_ERROR;
1935: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
1936: p_count => x_msg_count,
1937: p_data => x_msg_data);
1938:
1939: WHEN FND_API.g_exc_unexpected_error THEN
1935: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
1936: p_count => x_msg_count,
1937: p_data => x_msg_data);
1938:
1939: WHEN FND_API.g_exc_unexpected_error THEN
1940: ROLLBACK;
1941: x_return_status := FND_API.g_ret_sts_unexp_error;
1942: FND_MSG_PUB.count_and_get(
1943: p_encoded => FND_API.g_false,
1937: p_data => x_msg_data);
1938:
1939: WHEN FND_API.g_exc_unexpected_error THEN
1940: ROLLBACK;
1941: x_return_status := FND_API.g_ret_sts_unexp_error;
1942: FND_MSG_PUB.count_and_get(
1943: p_encoded => FND_API.g_false,
1944: p_count => x_msg_count,
1945: p_data => x_msg_data
1939: WHEN FND_API.g_exc_unexpected_error THEN
1940: ROLLBACK;
1941: x_return_status := FND_API.g_ret_sts_unexp_error;
1942: FND_MSG_PUB.count_and_get(
1943: p_encoded => FND_API.g_false,
1944: p_count => x_msg_count,
1945: p_data => x_msg_data
1946: );
1947:
1950: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1951: FND_MSG_PUB.add_exc_msg(g_pkg_name, g_api_name);
1952: END IF;
1953:
1954: x_return_status := FND_API.G_RET_STS_ERROR;
1955: FND_MSG_PUB.count_and_get(
1956: p_encoded => FND_API.g_false,
1957: p_count => x_msg_count,
1958: p_data => x_msg_data
1952: END IF;
1953:
1954: x_return_status := FND_API.G_RET_STS_ERROR;
1955: FND_MSG_PUB.count_and_get(
1956: p_encoded => FND_API.g_false,
1957: p_count => x_msg_count,
1958: p_data => x_msg_data
1959: );
1960:
1979: --| |
1980: --==============================================================================
1981: PROCEDURE Link_Lead_Opportunity (
1982: p_api_version IN NUMBER,
1983: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1984: p_commit IN VARCHAR2 := FND_API.g_false,
1985: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1986: p_referral_id IN VARCHAR2,
1987: p_entity_type IN VARCHAR2, -- 'LEAD', 'SALES_LEAD'
1980: --==============================================================================
1981: PROCEDURE Link_Lead_Opportunity (
1982: p_api_version IN NUMBER,
1983: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1984: p_commit IN VARCHAR2 := FND_API.g_false,
1985: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1986: p_referral_id IN VARCHAR2,
1987: p_entity_type IN VARCHAR2, -- 'LEAD', 'SALES_LEAD'
1988: p_entity_id IN NUMBER,
1981: PROCEDURE Link_Lead_Opportunity (
1982: p_api_version IN NUMBER,
1983: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1984: p_commit IN VARCHAR2 := FND_API.g_false,
1985: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1986: p_referral_id IN VARCHAR2,
1987: p_entity_type IN VARCHAR2, -- 'LEAD', 'SALES_LEAD'
1988: p_entity_id IN NUMBER,
1989: x_a_link_already_exists OUT NOCOPY VARCHAR2,
2027: g_api_name := 'Link_Lead_Opportunity';
2028: Debug('API called: ' || g_pkg_name || '.' || g_api_name);
2029:
2030: -------------------- initialize -------------------------
2031: IF FND_API.to_boolean(p_init_msg_list) THEN
2032: FND_MSG_PUB.initialize;
2033: END IF;
2034:
2035: IF NOT FND_API.compatible_api_call(
2031: IF FND_API.to_boolean(p_init_msg_list) THEN
2032: FND_MSG_PUB.initialize;
2033: END IF;
2034:
2035: IF NOT FND_API.compatible_api_call(
2036: l_api_version,
2037: p_api_version,
2038: g_api_name,
2039: g_pkg_name
2037: p_api_version,
2038: g_api_name,
2039: g_pkg_name
2040: ) THEN
2041: RAISE FND_API.g_exc_unexpected_error;
2042: END IF;
2043:
2044: x_return_status := FND_API.G_RET_STS_SUCCESS;
2045: x_a_link_already_exists := 'N';
2040: ) THEN
2041: RAISE FND_API.g_exc_unexpected_error;
2042: END IF;
2043:
2044: x_return_status := FND_API.G_RET_STS_SUCCESS;
2045: x_a_link_already_exists := 'N';
2046:
2047: FOR x IN (SELECT referral_code
2048: FROM pv_referrals_b
2101: x_msg_data => x_msg_data);
2102:
2103: Debug('Return Status: ' || x_return_status);
2104:
2105: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2106: RAISE FND_API.G_EXC_ERROR;
2107:
2108: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2109: RAISE FND_API.g_exc_unexpected_error;
2102:
2103: Debug('Return Status: ' || x_return_status);
2104:
2105: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2106: RAISE FND_API.G_EXC_ERROR;
2107:
2108: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2109: RAISE FND_API.g_exc_unexpected_error;
2110: END IF;
2104:
2105: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2106: RAISE FND_API.G_EXC_ERROR;
2107:
2108: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2109: RAISE FND_API.g_exc_unexpected_error;
2110: END IF;
2111:
2112:
2105: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2106: RAISE FND_API.G_EXC_ERROR;
2107:
2108: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2109: RAISE FND_API.g_exc_unexpected_error;
2110: END IF;
2111:
2112:
2113: END IF;
2149: x_msg_data => x_msg_data);
2150:
2151: Debug('Return Status: ' || x_return_status);
2152:
2153: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2154: RAISE FND_API.G_EXC_ERROR;
2155:
2156: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2157: RAISE FND_API.g_exc_unexpected_error;
2150:
2151: Debug('Return Status: ' || x_return_status);
2152:
2153: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2154: RAISE FND_API.G_EXC_ERROR;
2155:
2156: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2157: RAISE FND_API.g_exc_unexpected_error;
2158: END IF;
2152:
2153: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2154: RAISE FND_API.G_EXC_ERROR;
2155:
2156: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2157: RAISE FND_API.g_exc_unexpected_error;
2158: END IF;
2159:
2160: ELSE
2153: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2154: RAISE FND_API.G_EXC_ERROR;
2155:
2156: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2157: RAISE FND_API.g_exc_unexpected_error;
2158: END IF;
2159:
2160: ELSE
2161: l_count := 0;
2181: END IF;
2182:
2183: -------------------- Exception --------------------------
2184: EXCEPTION
2185: WHEN FND_API.G_EXC_ERROR THEN
2186: ROLLBACK;
2187: x_return_status := FND_API.G_RET_STS_ERROR;
2188: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
2189: p_count => x_msg_count,
2183: -------------------- Exception --------------------------
2184: EXCEPTION
2185: WHEN FND_API.G_EXC_ERROR THEN
2186: ROLLBACK;
2187: x_return_status := FND_API.G_RET_STS_ERROR;
2188: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
2189: p_count => x_msg_count,
2190: p_data => x_msg_data);
2191:
2184: EXCEPTION
2185: WHEN FND_API.G_EXC_ERROR THEN
2186: ROLLBACK;
2187: x_return_status := FND_API.G_RET_STS_ERROR;
2188: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
2189: p_count => x_msg_count,
2190: p_data => x_msg_data);
2191:
2192: WHEN FND_API.g_exc_unexpected_error THEN
2188: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
2189: p_count => x_msg_count,
2190: p_data => x_msg_data);
2191:
2192: WHEN FND_API.g_exc_unexpected_error THEN
2193: ROLLBACK;
2194: x_return_status := FND_API.g_ret_sts_unexp_error;
2195: FND_MSG_PUB.count_and_get(
2196: p_encoded => FND_API.g_false,
2190: p_data => x_msg_data);
2191:
2192: WHEN FND_API.g_exc_unexpected_error THEN
2193: ROLLBACK;
2194: x_return_status := FND_API.g_ret_sts_unexp_error;
2195: FND_MSG_PUB.count_and_get(
2196: p_encoded => FND_API.g_false,
2197: p_count => x_msg_count,
2198: p_data => x_msg_data
2192: WHEN FND_API.g_exc_unexpected_error THEN
2193: ROLLBACK;
2194: x_return_status := FND_API.g_ret_sts_unexp_error;
2195: FND_MSG_PUB.count_and_get(
2196: p_encoded => FND_API.g_false,
2197: p_count => x_msg_count,
2198: p_data => x_msg_data
2199: );
2200:
2203: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2204: FND_MSG_PUB.add_exc_msg(g_pkg_name, g_api_name);
2205: END IF;
2206:
2207: x_return_status := FND_API.G_RET_STS_ERROR;
2208: FND_MSG_PUB.count_and_get(
2209: p_encoded => FND_API.g_false,
2210: p_count => x_msg_count,
2211: p_data => x_msg_data
2205: END IF;
2206:
2207: x_return_status := FND_API.G_RET_STS_ERROR;
2208: FND_MSG_PUB.count_and_get(
2209: p_encoded => FND_API.g_false,
2210: p_count => x_msg_count,
2211: p_data => x_msg_data
2212: );
2213: END Link_Lead_Opportunity;