78: IF (fnd_conc_global.request_data IS NULL) THEN
79:
80: -- Log
81: IF (p_debug_flag = 'Y' AND
82: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
83: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
84: 'Start:' || 'p_num_workers=' || p_num_workers ||
85: ',p_commit_flag=' || p_commit_flag ||
86: ',p_debug_flag=' || p_debug_flag);
79:
80: -- Log
81: IF (p_debug_flag = 'Y' AND
82: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
83: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
84: 'Start:' || 'p_num_workers=' || p_num_workers ||
85: ',p_commit_flag=' || p_commit_flag ||
86: ',p_debug_flag=' || p_debug_flag);
87: END IF;
87: END IF;
88:
89: -- Log
90: IF (p_debug_flag = 'Y' AND
91: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
92: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
93: 'Disable AS_SALES_CREDITS_BIUD trigger');
94: END IF;
95:
88:
89: -- Log
90: IF (p_debug_flag = 'Y' AND
91: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
92: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
93: 'Disable AS_SALES_CREDITS_BIUD trigger');
94: END IF;
95:
96: --
259: ELSE
260:
261: -- Log
262: IF (p_debug_flag = 'Y' AND
263: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
264: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
265: 'Re-entering:' || 'p_num_workers=' || p_num_workers ||
266: ',p_commit_flag=' || p_commit_flag ||
267: ',p_debug_flag='||p_debug_flag);
260:
261: -- Log
262: IF (p_debug_flag = 'Y' AND
263: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
264: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
265: 'Re-entering:' || 'p_num_workers=' || p_num_workers ||
266: ',p_commit_flag=' || p_commit_flag ||
267: ',p_debug_flag='||p_debug_flag);
268: END IF;
268: END IF;
269:
270: -- Log
271: IF (p_debug_flag = 'Y' AND
272: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
273: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
274: 'Enable AS_SALES_CREDITS_BIUD trigger');
275: END IF;
276:
269:
270: -- Log
271: IF (p_debug_flag = 'Y' AND
272: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
273: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
274: 'Enable AS_SALES_CREDITS_BIUD trigger');
275: END IF;
276:
277: errbuf := 'Migration completed';
278: retcode := 0;
279:
280: -- Log
281: IF (p_debug_flag = 'Y' AND
282: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
283: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
284: 'Done:' || 'p_num_workers=' || p_num_workers ||
285: ',p_commit_flag=' || p_commit_flag ||
286: ',p_debug_flag='||p_debug_flag);
279:
280: -- Log
281: IF (p_debug_flag = 'Y' AND
282: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
283: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
284: 'Done:' || 'p_num_workers=' || p_num_workers ||
285: ',p_commit_flag=' || p_commit_flag ||
286: ',p_debug_flag='||p_debug_flag);
287: END IF;
292:
293: WHEN OTHERS THEN
294: ROLLBACK;
295:
296: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
297:
298: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
299: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
300: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
298: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
299: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
300: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
301: FND_MESSAGE.Set_Token('REASON', SQLERRM);
302: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, l_module_name, true);
303: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
304: l_api_name||':'||sqlcode||':'||sqlerrm);
305: END IF;
306: END Mig_SlsCred_Owner_Main;
299: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
300: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
301: FND_MESSAGE.Set_Token('REASON', SQLERRM);
302: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, l_module_name, true);
303: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
304: l_api_name||':'||sqlcode||':'||sqlerrm);
305: END IF;
306: END Mig_SlsCred_Owner_Main;
307:
376: BEGIN
377:
378: -- Log
379: IF (p_debug_flag = 'Y' AND
380: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
381: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
382: 'Start:' || 'p_start_id=' || p_start_id ||
383: ',p_end_id='||p_end_id ||
384: ',p_debug_flag='||p_debug_flag);
377:
378: -- Log
379: IF (p_debug_flag = 'Y' AND
380: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
381: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
382: 'Start:' || 'p_start_id=' || p_start_id ||
383: ',p_end_id='||p_end_id ||
384: ',p_debug_flag='||p_debug_flag);
385: END IF;
392: FND_PROFILE.Value_Specific('AS_FORECAST_CREDIT_TYPE_ID', null, null, null);
393:
394: -- Log
395: IF (p_debug_flag = 'Y' AND
396: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
397: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
398: 'l_credit_type_id=' || l_credit_type_id);
399: END IF;
400:
393:
394: -- Log
395: IF (p_debug_flag = 'Y' AND
396: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
397: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
398: 'l_credit_type_id=' || l_credit_type_id);
399: END IF;
400:
401: --
404: --
405:
406: -- Log
407: IF (p_debug_flag = 'Y' AND
408: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
409: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
410: 'Opening cursor');
411: END IF;
412:
405:
406: -- Log
407: IF (p_debug_flag = 'Y' AND
408: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
409: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
410: 'Opening cursor');
411: END IF;
412:
413: -- Open cursor
413: -- Open cursor
414: OPEN c1(l_credit_type_id, p_start_id, p_end_id);
415:
416: IF (p_debug_flag = 'Y' AND
417: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
418: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
419: 'Opened cursor');
420: END IF;
421:
414: OPEN c1(l_credit_type_id, p_start_id, p_end_id);
415:
416: IF (p_debug_flag = 'Y' AND
417: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
418: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
419: 'Opened cursor');
420: END IF;
421:
422: -- Start loop
423: LOOP
424:
425: -- Log
426: IF (p_debug_flag = 'Y' AND
427: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
428: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
429: 'Inside loop');
430: END IF;
431:
424:
425: -- Log
426: IF (p_debug_flag = 'Y' AND
427: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
428: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
429: 'Inside loop');
430: END IF;
431:
432: -- Fetch rows
442: ,l_ranks LIMIT 10000;
443:
444: -- Log
445: IF (p_debug_flag = 'Y' AND
446: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
447: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
448: 'After fetch. Num rows:' ||
449: l_sales_credit_ids.COUNT || ':');
450: END IF;
443:
444: -- Log
445: IF (p_debug_flag = 'Y' AND
446: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
447: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
448: 'After fetch. Num rows:' ||
449: l_sales_credit_ids.COUNT || ':');
450: END IF;
451:
452: EXIT WHEN l_sales_credit_ids.COUNT <= 0;
453:
454: -- Log
455: IF (p_debug_flag = 'Y' AND
456: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
457: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
458: 'After exit and processing number of rows =' ||
459: c1%ROWCOUNT);
460: END IF;
453:
454: -- Log
455: IF (p_debug_flag = 'Y' AND
456: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
457: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
458: 'After exit and processing number of rows =' ||
459: c1%ROWCOUNT);
460: END IF;
461:
464: --
465:
466: -- Log
467: IF (p_debug_flag = 'Y' AND
468: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
469: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
470: 'Updating owner in as_leads_all');
471: END IF;
472:
465:
466: -- Log
467: IF (p_debug_flag = 'Y' AND
468: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
469: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
470: 'Updating owner in as_leads_all');
471: END IF;
472:
473: FORALL i IN l_sales_credit_ids.FIRST..l_sales_credit_ids.LAST
488: OR ALA.owner_sales_group_id IS NULL);
489:
490: -- Log
491: IF (p_debug_flag = 'Y' AND
492: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
493: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
494: 'Updated owner in as_leads_all: number of rows =' ||
495: sql%ROWCOUNT);
496: END IF;
489:
490: -- Log
491: IF (p_debug_flag = 'Y' AND
492: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
493: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
494: 'Updated owner in as_leads_all: number of rows =' ||
495: sql%ROWCOUNT);
496: END IF;
497:
501: --
502:
503: -- Log
504: IF (p_debug_flag = 'Y' AND
505: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
506: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
507: 'Updating as_accesses_all to have owner flag reset');
508: END IF;
509:
502:
503: -- Log
504: IF (p_debug_flag = 'Y' AND
505: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
506: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
507: 'Updating as_accesses_all to have owner flag reset');
508: END IF;
509:
510: FORALL i IN l_sales_credit_ids.FIRST..l_sales_credit_ids.LAST
521: AND ACS.owner_flag = 'Y';
522:
523: -- Log
524: IF (p_debug_flag = 'Y' AND
525: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
526: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
527: 'Updated as_accesses_all to have owner flag reset = ' ||
528: sql%ROWCOUNT);
529: END IF;
522:
523: -- Log
524: IF (p_debug_flag = 'Y' AND
525: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
526: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
527: 'Updated as_accesses_all to have owner flag reset = ' ||
528: sql%ROWCOUNT);
529: END IF;
530:
533: --
534:
535: -- Log
536: IF (p_debug_flag = 'Y' AND
537: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
538: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
539: 'Updating as_accesses_all to have owner flag set for new owner');
540: END IF;
541:
534:
535: -- Log
536: IF (p_debug_flag = 'Y' AND
537: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
538: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
539: 'Updating as_accesses_all to have owner flag set for new owner');
540: END IF;
541:
542: FORALL i IN l_sales_credit_ids.FIRST..l_sales_credit_ids.LAST
557: AND ACS.sales_group_id = l_sales_group_ids(i);
558:
559: -- Log
560: IF (p_debug_flag = 'Y' AND
561: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
562: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
563: 'Updated as_accesses_all to have owner flag set for new owner = ' ||
564: sql%ROWCOUNT);
565: END IF;
558:
559: -- Log
560: IF (p_debug_flag = 'Y' AND
561: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
562: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
563: 'Updated as_accesses_all to have owner flag set for new owner = ' ||
564: sql%ROWCOUNT);
565: END IF;
566:
570: --
571:
572: -- Log
573: IF (p_debug_flag = 'Y' AND
574: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
575: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
576: 'Inserting into as_accesses_all');
577: END IF;
578:
571:
572: -- Log
573: IF (p_debug_flag = 'Y' AND
574: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
575: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
576: 'Inserting into as_accesses_all');
577: END IF;
578:
579: FORALL i IN l_sales_credit_ids.FIRST..l_sales_credit_ids.LAST
637:
638:
639: -- Log
640: IF (p_debug_flag = 'Y' AND
641: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
642: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
643: 'Inserted into as_accesses_all = ' ||
644: sql%ROWCOUNT);
645: END IF;
638:
639: -- Log
640: IF (p_debug_flag = 'Y' AND
641: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
642: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
643: 'Inserted into as_accesses_all = ' ||
644: sql%ROWCOUNT);
645: END IF;
646:
648: IF (p_commit_flag = 'Y') THEN
649:
650: -- Log
651: IF (p_debug_flag = 'Y' AND
652: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
653: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
654: 'Committing');
655: END IF;
656:
649:
650: -- Log
651: IF (p_debug_flag = 'Y' AND
652: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
653: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
654: 'Committing');
655: END IF;
656:
657: COMMIT;
659: ELSE
660:
661: -- Log
662: IF (p_debug_flag = 'Y' AND
663: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
664: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
665: 'Rolling back');
666: END IF;
667:
660:
661: -- Log
662: IF (p_debug_flag = 'Y' AND
663: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
664: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
665: 'Rolling back');
666: END IF;
667:
668: ROLLBACK;
674: CLOSE c1;
675:
676: -- Log
677: IF (p_debug_flag = 'Y' AND
678: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
679: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
680: 'Done:' || 'p_start_id=' || p_start_id ||
681: ',p_end_id='||p_end_id ||
682: ',p_debug_flag='||p_debug_flag);
675:
676: -- Log
677: IF (p_debug_flag = 'Y' AND
678: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
679: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
680: 'Done:' || 'p_start_id=' || p_start_id ||
681: ',p_end_id='||p_end_id ||
682: ',p_debug_flag='||p_debug_flag);
683: END IF;
686:
687: WHEN OTHERS THEN
688: ROLLBACK;
689:
690: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
691:
692: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
693: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
694: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
692: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
693: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
694: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
695: FND_MESSAGE.Set_Token('REASON', SQLERRM);
696: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, l_module_name, true);
697: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
698: l_api_name||':'||sqlcode||':'||sqlerrm);
699:
700: END IF;
693: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
694: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
695: FND_MESSAGE.Set_Token('REASON', SQLERRM);
696: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, l_module_name, true);
697: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
698: l_api_name||':'||sqlcode||':'||sqlerrm);
699:
700: END IF;
701:
745:
746: BEGIN
747:
748: IF (p_debug_flag = 'Y' AND
749: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
750: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
751: 'Start Link_to_Partners');
752: END IF;
753:
746: BEGIN
747:
748: IF (p_debug_flag = 'Y' AND
749: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
750: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
751: 'Start Link_to_Partners');
752: END IF;
753:
754: OPEN lc_get_lwf(pc_lead_id => p_orig_lead_id);
781: RAISE FND_API.G_EXC_ERROR;
782: end if;
783:
784: IF (p_debug_flag = 'Y' AND
785: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
786: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
787: 'Lead workflow id: ' || l_itemkey);
788: END IF;
789:
782: end if;
783:
784: IF (p_debug_flag = 'Y' AND
785: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
786: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
787: 'Lead workflow id: ' || l_itemkey);
788: END IF;
789:
790: FOR c1 IN lc_get_la(pc_itemtype => l_lead_workflow_rec.wf_item_type,
819: RAISE FND_API.G_EXC_ERROR;
820: END IF;
821:
822: IF (p_debug_flag = 'Y' AND
823: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
824: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
825: 'Lead assignment id: ' || l_assignment_id);
826: END IF;
827:
820: END IF;
821:
822: IF (p_debug_flag = 'Y' AND
823: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
824: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
825: 'Lead assignment id: ' || l_assignment_id);
826: END IF;
827:
828: FOR c2 IN lc_get_pn(pc_assignment_id => c1.lead_assignment_id) LOOP
852: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
853: RAISE FND_API.G_EXC_ERROR;
854: END IF;
855: IF (p_debug_flag = 'Y' AND
856: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
857: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
858: 'Party Notification id: ' || l_party_notification_id);
859: END IF;
860:
853: RAISE FND_API.G_EXC_ERROR;
854: END IF;
855: IF (p_debug_flag = 'Y' AND
856: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
857: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
858: 'Party Notification id: ' || l_party_notification_id);
859: END IF;
860:
861: END LOOP;
864: END IF;
865: CLOSE lc_get_lwf;
866:
867: IF (p_debug_flag = 'Y' AND
868: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
869: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
870: 'End Link_to_Partners');
871: END IF;
872: END Link_to_Partners;
865: CLOSE lc_get_lwf;
866:
867: IF (p_debug_flag = 'Y' AND
868: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
869: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
870: 'End Link_to_Partners');
871: END IF;
872: END Link_to_Partners;
873:
920:
921: BEGIN
922:
923: IF (p_debug_flag = 'Y' AND
924: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
925: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
926: 'Begin Update_sc_for_rep');
927: END IF;
928:
921: BEGIN
922:
923: IF (p_debug_flag = 'Y' AND
924: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
925: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
926: 'Begin Update_sc_for_rep');
927: END IF;
928:
929: x_return_status := FND_API.G_RET_STS_SUCCESS;
1114: RAISE FND_API.G_EXC_ERROR;
1115: END IF;
1116:
1117: IF (p_debug_flag = 'Y' AND
1118: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1119: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1120: 'End Update_sc_for_rep');
1121: END IF;
1122:
1115: END IF;
1116:
1117: IF (p_debug_flag = 'Y' AND
1118: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1119: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1120: 'End Update_sc_for_rep');
1121: END IF;
1122:
1123: EXCEPTION
1124: WHEN OTHERS then
1125: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1126: x_return_status := FND_API.G_RET_STS_ERROR;
1127: END IF;
1128: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1129: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1130: 'In When others (Update_sc_for_rep). lead_id: '
1131: || p_lead_id || ' Exception SQlerr is : ' ||
1132: substr(SQLERRM, 1, 1950));
1125: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1126: x_return_status := FND_API.G_RET_STS_ERROR;
1127: END IF;
1128: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1129: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1130: 'In When others (Update_sc_for_rep). lead_id: '
1131: || p_lead_id || ' Exception SQlerr is : ' ||
1132: substr(SQLERRM, 1, 1950));
1133: END IF;
1188:
1189: BEGIN
1190:
1191: IF (p_debug_flag = 'Y' AND
1192: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1193: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1194: 'Begin Update_sc_for_rep');
1195: END IF;
1196:
1189: BEGIN
1190:
1191: IF (p_debug_flag = 'Y' AND
1192: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1193: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1194: 'Begin Update_sc_for_rep');
1195: END IF;
1196:
1197: x_return_status := FND_API.G_RET_STS_SUCCESS;
1382: RAISE FND_API.G_EXC_ERROR;
1383: END IF;
1384:
1385: IF (p_debug_flag = 'Y' AND
1386: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1387: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1388: 'End Update_sc_for_rep');
1389: END IF;
1390:
1383: END IF;
1384:
1385: IF (p_debug_flag = 'Y' AND
1386: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1387: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1388: 'End Update_sc_for_rep');
1389: END IF;
1390:
1391: EXCEPTION
1392: WHEN OTHERS then
1393: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1394: x_return_status := FND_API.G_RET_STS_ERROR;
1395: END IF;
1396: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1397: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1398: 'In When others (Update_sc_for_rep). lead_id: '
1399: || p_lead_id || ' Exception SQlerr is : ' ||
1400: substr(SQLERRM, 1, 1950));
1393: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1394: x_return_status := FND_API.G_RET_STS_ERROR;
1395: END IF;
1396: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1397: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
1398: 'In When others (Update_sc_for_rep). lead_id: '
1399: || p_lead_id || ' Exception SQlerr is : ' ||
1400: substr(SQLERRM, 1, 1950));
1401: END IF;
1862: IF (fnd_conc_global.request_data IS NULL) THEN
1863:
1864: -- Log
1865: IF (p_debug_flag = 'Y' AND
1866: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1867: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1868: 'Start:' || 'p_num_workers=' || p_num_workers ||
1869: ',p_commit_flag=' || p_commit_flag ||
1870: ',p_debug_flag=' || p_debug_flag);
1863:
1864: -- Log
1865: IF (p_debug_flag = 'Y' AND
1866: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1867: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1868: 'Start:' || 'p_num_workers=' || p_num_workers ||
1869: ',p_commit_flag=' || p_commit_flag ||
1870: ',p_debug_flag=' || p_debug_flag);
1871: END IF;
1871: END IF;
1872:
1873: -- Log
1874: IF (p_debug_flag = 'Y' AND
1875: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1876: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1877: 'Disable AS_SALES_CREDITS_BIUD trigger');
1878: END IF;
1879:
1872:
1873: -- Log
1874: IF (p_debug_flag = 'Y' AND
1875: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1876: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
1877: 'Disable AS_SALES_CREDITS_BIUD trigger');
1878: END IF;
1879:
1880: --
2043: ELSE
2044:
2045: -- Log
2046: IF (p_debug_flag = 'Y' AND
2047: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2048: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
2049: 'Re-entering:' || 'p_num_workers=' || p_num_workers ||
2050: ',p_commit_flag=' || p_commit_flag ||
2051: ',p_debug_flag='||p_debug_flag);
2044:
2045: -- Log
2046: IF (p_debug_flag = 'Y' AND
2047: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2048: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
2049: 'Re-entering:' || 'p_num_workers=' || p_num_workers ||
2050: ',p_commit_flag=' || p_commit_flag ||
2051: ',p_debug_flag='||p_debug_flag);
2052: END IF;
2052: END IF;
2053:
2054: -- Log
2055: IF (p_debug_flag = 'Y' AND
2056: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2057: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
2058: 'Enable AS_SALES_CREDITS_BIUD trigger');
2059: END IF;
2060:
2053:
2054: -- Log
2055: IF (p_debug_flag = 'Y' AND
2056: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2057: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
2058: 'Enable AS_SALES_CREDITS_BIUD trigger');
2059: END IF;
2060:
2061: errbuf := 'Migration completed';
2062: retcode := 0;
2063:
2064: -- Log
2065: IF (p_debug_flag = 'Y' AND
2066: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2067: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
2068: 'Done:' || 'p_num_workers=' || p_num_workers ||
2069: ',p_commit_flag=' || p_commit_flag ||
2070: ',p_debug_flag='||p_debug_flag);
2063:
2064: -- Log
2065: IF (p_debug_flag = 'Y' AND
2066: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2067: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
2068: 'Done:' || 'p_num_workers=' || p_num_workers ||
2069: ',p_commit_flag=' || p_commit_flag ||
2070: ',p_debug_flag='||p_debug_flag);
2071: END IF;
2076:
2077: WHEN OTHERS THEN
2078: ROLLBACK;
2079:
2080: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2081:
2082: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2083: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2084: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2082: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2083: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2084: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2085: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2086: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, l_module_name, true);
2087: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2088: l_api_name||':'||sqlcode||':'||sqlerrm);
2089: END IF;
2090:
2083: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2084: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2085: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2086: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, l_module_name, true);
2087: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2088: l_api_name||':'||sqlcode||':'||sqlerrm);
2089: END IF;
2090:
2091: END Mig_Multi_SalesRep_Opp_Main;
2323: BEGIN
2324:
2325: -- Log
2326: IF (p_debug_flag = 'Y' AND
2327: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2328: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
2329: 'Begin OSO->ASN Multiple Sales Credits Opportunity Data Migration.');
2330: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
2331: 'Start:' || 'p_start_id=' || p_start_id ||
2324:
2325: -- Log
2326: IF (p_debug_flag = 'Y' AND
2327: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2328: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
2329: 'Begin OSO->ASN Multiple Sales Credits Opportunity Data Migration.');
2330: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
2331: 'Start:' || 'p_start_id=' || p_start_id ||
2332: ',p_end_id='||p_end_id ||
2326: IF (p_debug_flag = 'Y' AND
2327: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2328: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
2329: 'Begin OSO->ASN Multiple Sales Credits Opportunity Data Migration.');
2330: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,
2331: 'Start:' || 'p_start_id=' || p_start_id ||
2332: ',p_end_id='||p_end_id ||
2333: ',p_debug_flag='||p_debug_flag);
2334: END IF;
2335:
2336: l_user_id := FND_GLOBAL.user_id;
2337:
2338: IF l_user_id IS NULL THEN
2339: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2340: FND_LOG.STRING(FND_LOG.LEVEL_ERROR, l_module_name,
2341: 'Error: Global User Id is not set');
2342: END IF;
2343: RETURN;
2336: l_user_id := FND_GLOBAL.user_id;
2337:
2338: IF l_user_id IS NULL THEN
2339: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2340: FND_LOG.STRING(FND_LOG.LEVEL_ERROR, l_module_name,
2341: 'Error: Global User Id is not set');
2342: END IF;
2343: RETURN;
2344: END IF;
2345:
2346: -- Step 1. Initialize p_credit_type_id (l_forecast_credit_type_id in code)
2347: l_forecast_credit_type_id := FND_PROFILE.Value('AS_FORECAST_CREDIT_TYPE_ID');
2348: IF l_forecast_credit_type_id IS NULL THEN
2349: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2350: FND_LOG.STRING(FND_LOG.LEVEL_ERROR, l_module_name,
2351: 'Error: Profile AS_FORECAST_CREDIT_TYPE_ID is not set');
2352: END IF;
2353: RETURN;
2346: -- Step 1. Initialize p_credit_type_id (l_forecast_credit_type_id in code)
2347: l_forecast_credit_type_id := FND_PROFILE.Value('AS_FORECAST_CREDIT_TYPE_ID');
2348: IF l_forecast_credit_type_id IS NULL THEN
2349: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2350: FND_LOG.STRING(FND_LOG.LEVEL_ERROR, l_module_name,
2351: 'Error: Profile AS_FORECAST_CREDIT_TYPE_ID is not set');
2352: END IF;
2353: RETURN;
2354: END IF;
2354: END IF;
2355:
2356: -- Log
2357: IF (p_debug_flag = 'Y' AND
2358: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2359: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
2360: 'l_forecast_credit_type_id =' || l_forecast_credit_type_id);
2361: END IF;
2362:
2355:
2356: -- Log
2357: IF (p_debug_flag = 'Y' AND
2358: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2359: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
2360: 'l_forecast_credit_type_id =' || l_forecast_credit_type_id);
2361: END IF;
2362:
2363: -- Step 1.a. Set profile options to avoid errors during Copy Opp.
2423: l_total_credit, l_line_amount;
2424: l_proceed_with_opp := c_bad_opp%NOTFOUND;
2425: CLOSE c_bad_opp;
2426: IF NOT l_proceed_with_opp THEN
2427: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2428: FND_LOG.STRING(FND_LOG.LEVEL_ERROR, l_module_name,
2429: 'Error: Skipping Opp Id: ' || l_lead_id(i)
2430: || 'with bad Sales Credits. For Line Id: '
2431: || l_lead_line_id || ', Total Credit Percent: '
2424: l_proceed_with_opp := c_bad_opp%NOTFOUND;
2425: CLOSE c_bad_opp;
2426: IF NOT l_proceed_with_opp THEN
2427: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2428: FND_LOG.STRING(FND_LOG.LEVEL_ERROR, l_module_name,
2429: 'Error: Skipping Opp Id: ' || l_lead_id(i)
2430: || 'with bad Sales Credits. For Line Id: '
2431: || l_lead_line_id || ', Total Credit Percent: '
2432: || l_total_percent || ' <> 100 OR Total Credit Amount: '
2438: --Place for Bad Data --- End
2439:
2440: FOR I IN l_lead_id.first..l_lead_id.last LOOP
2441: IF (p_debug_flag = 'Y' AND
2442: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2443: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
2444: 'processing lead_id '||l_lead_id(i));
2445: END IF;
2446: END LOOP;
2439:
2440: FOR I IN l_lead_id.first..l_lead_id.last LOOP
2441: IF (p_debug_flag = 'Y' AND
2442: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2443: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
2444: 'processing lead_id '||l_lead_id(i));
2445: END IF;
2446: END LOOP;
2447:
2528: FOR multicredit_opps_rec IN c_multicredit_opps(l_lead_id(j),l_forecast_credit_type_id)
2529: LOOP
2530:
2531: IF (p_debug_flag = 'Y' AND
2532: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2533: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
2534: 'processing lead_id line id'||multicredit_opps_rec.lead_line_id);
2535: END IF;
2536:
2529: LOOP
2530:
2531: IF (p_debug_flag = 'Y' AND
2532: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2533: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
2534: 'processing lead_id line id'||multicredit_opps_rec.lead_line_id);
2535: END IF;
2536:
2537: IF (p_debug_flag = 'Y' AND
2534: 'processing lead_id line id'||multicredit_opps_rec.lead_line_id);
2535: END IF;
2536:
2537: IF (p_debug_flag = 'Y' AND
2538: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2539: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
2540: 'Processing Opp Id: ' || l_lead_id(j));
2541: END IF;
2542:
2535: END IF;
2536:
2537: IF (p_debug_flag = 'Y' AND
2538: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2539: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
2540: 'Processing Opp Id: ' || l_lead_id(j));
2541: END IF;
2542:
2543: IF l_process_lead_first = 'Y' THEN
2690: last_update_login = FND_GLOBAL.conc_login_id
2691: WHERE lead_id = l_lead_id(j);
2692:
2693: IF (p_debug_flag = 'Y' AND
2694: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2695: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
2696: 'Successfully Assigned Salesforce Id: '
2697: || l_org_owner_sf_id || ' SlsGrp Id: '
2698: || l_org_owner_sg_id
2691: WHERE lead_id = l_lead_id(j);
2692:
2693: IF (p_debug_flag = 'Y' AND
2694: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2695: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
2696: 'Successfully Assigned Salesforce Id: '
2697: || l_org_owner_sf_id || ' SlsGrp Id: '
2698: || l_org_owner_sg_id
2699: || ' For NULL owner in Opp Header');
2702:
2703: -- Log error message and continue to next Opportunity
2704: -- if owner could not be assigned.
2705: IF l_org_owner_sf_id IS NULL THEN
2706: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2707: FND_LOG.STRING(FND_LOG.LEVEL_ERROR, l_module_name,
2708: 'Error: Cannot reassign Partner Credits for Opportunity Id'
2709: || l_lead_id(j)
2710: || '. It does not have an owner or an employee in the SalesTeam who can be assigned as the owner');
2703: -- Log error message and continue to next Opportunity
2704: -- if owner could not be assigned.
2705: IF l_org_owner_sf_id IS NULL THEN
2706: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2707: FND_LOG.STRING(FND_LOG.LEVEL_ERROR, l_module_name,
2708: 'Error: Cannot reassign Partner Credits for Opportunity Id'
2709: || l_lead_id(j)
2710: || '. It does not have an owner or an employee in the SalesTeam who can be assigned as the owner');
2711: END IF;
2743: l_sf_id := credit_receiver_rec.salesforce_id;
2744: l_sg_id := credit_receiver_rec.salesgroup_id;
2745:
2746: IF (p_debug_flag = 'Y' AND
2747: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2748: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
2749: 'Processing SalesForceId: ' || l_sf_id ||
2750: ', SalesGroupId: ' || l_sg_id);
2751: END IF;
2744: l_sg_id := credit_receiver_rec.salesgroup_id;
2745:
2746: IF (p_debug_flag = 'Y' AND
2747: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2748: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
2749: 'Processing SalesForceId: ' || l_sf_id ||
2750: ', SalesGroupId: ' || l_sg_id);
2751: END IF;
2752:
2758: l_first_sf_id := l_sf_id;
2759: l_first_sg_id := l_sg_id;
2760:
2761: IF (p_debug_flag = 'Y' AND
2762: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2763: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
2764: 'firstsf-37 lprocess lead first Y '||multicredit_opps_rec.lead_line_id||'-' ||l_sf_id);
2765: END IF;
2766:
2759: l_first_sg_id := l_sg_id;
2760:
2761: IF (p_debug_flag = 'Y' AND
2762: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2763: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
2764: 'firstsf-37 lprocess lead first Y '||multicredit_opps_rec.lead_line_id||'-' ||l_sf_id);
2765: END IF;
2766:
2767: ELSE
2796: RAISE FND_API.G_EXC_ERROR;
2797: END IF;
2798:
2799: IF (p_debug_flag = 'Y' AND
2800: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2801: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
2802: 'Got Copied Opp Id: ' || l_new_lead_id);
2803: END IF;
2804:
2797: END IF;
2798:
2799: IF (p_debug_flag = 'Y' AND
2800: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2801: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
2802: 'Got Copied Opp Id: ' || l_new_lead_id);
2803: END IF;
2804:
2805:
2940: AND ascr.SALES_CREDIT_ID <> maxid);
2941:
2942: FOR I IN l_lead_id.first..l_lead_id.last LOOP
2943: IF (p_debug_flag = 'Y' AND
2944: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2945: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
2946: 'Successfully processed Opp Id: ' || l_lead_id(i));
2947: END IF;
2948: l_uncommitted_opps := l_uncommitted_opps + 1;
2941:
2942: FOR I IN l_lead_id.first..l_lead_id.last LOOP
2943: IF (p_debug_flag = 'Y' AND
2944: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2945: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
2946: 'Successfully processed Opp Id: ' || l_lead_id(i));
2947: END IF;
2948: l_uncommitted_opps := l_uncommitted_opps + 1;
2949: IF l_uncommitted_opps >= p_batch_size THEN
2948: l_uncommitted_opps := l_uncommitted_opps + 1;
2949: IF l_uncommitted_opps >= p_batch_size THEN
2950: IF p_commit_flag = 'Y' THEN
2951: IF (p_debug_flag = 'Y' AND
2952: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2953: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
2954: 'Calling Commit after processing ' || l_uncommitted_opps || ' Opportunities');
2955: END IF;
2956: COMMIT;
2949: IF l_uncommitted_opps >= p_batch_size THEN
2950: IF p_commit_flag = 'Y' THEN
2951: IF (p_debug_flag = 'Y' AND
2952: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2953: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
2954: 'Calling Commit after processing ' || l_uncommitted_opps || ' Opportunities');
2955: END IF;
2956: COMMIT;
2957: ELSE
2965: WHEN NO_DATA_FOUND THEN
2966: Rollback to CURR_OPP;
2967:
2968: IF (p_debug_flag = 'Y' AND
2969: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2970: l_bulk_errors := SQL%BULK_EXCEPTIONS.COUNT;
2971: FOR i IN 1..l_bulk_errors LOOP
2972: l_bulk_errors_idx :=SQL%BULK_EXCEPTIONS(i).ERROR_INDEX;
2973: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
2969: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2970: l_bulk_errors := SQL%BULK_EXCEPTIONS.COUNT;
2971: FOR i IN 1..l_bulk_errors LOOP
2972: l_bulk_errors_idx :=SQL%BULK_EXCEPTIONS(i).ERROR_INDEX;
2973: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
2974: 'Ignoring Non Existent Opp Id: ' || l_lead_id(l_bulk_errors_idx));
2975: COMMIT;
2976: END LOOP;
2977: END IF;
2981: l_bulk_errors := SQL%BULK_EXCEPTIONS.COUNT;
2982: FOR i IN 1..l_bulk_errors LOOP
2983: l_bulk_errors_idx :=SQL%BULK_EXCEPTIONS(i).ERROR_INDEX;
2984:
2985: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2986: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2987: 'Error Processing Opp Id : ' || l_lead_id(l_bulk_errors_idx));
2988:
2989: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2982: FOR i IN 1..l_bulk_errors LOOP
2983: l_bulk_errors_idx :=SQL%BULK_EXCEPTIONS(i).ERROR_INDEX;
2984:
2985: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2986: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2987: 'Error Processing Opp Id : ' || l_lead_id(l_bulk_errors_idx));
2988:
2989: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2990: 'Begin Error Info, lead_id: ' || l_lead_id(l_bulk_errors_idx));
2985: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2986: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2987: 'Error Processing Opp Id : ' || l_lead_id(l_bulk_errors_idx));
2988:
2989: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
2990: 'Begin Error Info, lead_id: ' || l_lead_id(l_bulk_errors_idx));
2991:
2992: fnd_msg_pub.count_and_get( p_encoded => 'F'
2993: ,p_count => l_error_count
2997:
2998: IF l_error_count > 0 THEN
2999: IF l_error_count > 10 THEN
3000: l_i := l_error_count - 10;
3001: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3002: 'Last 10 API Messages, lead_id:' || l_lead_id(l_bulk_errors_idx));
3003:
3004: ELSE
3005: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3001: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3002: 'Last 10 API Messages, lead_id:' || l_lead_id(l_bulk_errors_idx));
3003:
3004: ELSE
3005: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3006: l_module_name,
3007: 'API Messages, lead_id:' || l_lead_id(l_bulk_errors_idx));
3008: END IF;
3009: END IF;
3012:
3013: l_i := l_i + 1;
3014: l_error_msg := fnd_msg_pub.get(p_msg_index => l_i,
3015: p_encoded => 'F');
3016: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3017: l_module_name, '(lead_id: ' || l_lead_id(l_bulk_errors_idx) ||
3018: '): ' || substr(l_error_msg,1,1950));
3019:
3020: END LOOP;
3018: '): ' || substr(l_error_msg,1,1950));
3019:
3020: END LOOP;
3021:
3022: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3023: 'SQL Error Msg, lead_id: ' || l_lead_id(l_bulk_errors_idx) || ': '
3024: || substr(SQLERRM, 1, 1950));
3025:
3026: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3022: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3023: 'SQL Error Msg, lead_id: ' || l_lead_id(l_bulk_errors_idx) || ': '
3024: || substr(SQLERRM, 1, 1950));
3025:
3026: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3027: 'End Error Info, lead_id: ' || l_lead_id(l_bulk_errors_idx));
3028:
3029: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3030: 'ERROR PROCESSING Opp Id: ' || l_lead_id(l_bulk_errors_idx));
3025:
3026: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3027: 'End Error Info, lead_id: ' || l_lead_id(l_bulk_errors_idx));
3028:
3029: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3030: 'ERROR PROCESSING Opp Id: ' || l_lead_id(l_bulk_errors_idx));
3031:
3032: END IF;
3033:
3041: --Commit;
3042: IF (p_commit_flag = 'Y') THEN
3043: -- Log
3044: IF (p_debug_flag = 'Y' AND
3045: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3046: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
3047: 'Committing');
3048: END IF;
3049:
3042: IF (p_commit_flag = 'Y') THEN
3043: -- Log
3044: IF (p_debug_flag = 'Y' AND
3045: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3046: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
3047: 'Committing');
3048: END IF;
3049:
3050: COMMIT;
3050: COMMIT;
3051: ELSE
3052: -- Log
3053: IF (p_debug_flag = 'Y' AND
3054: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3055: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
3056: 'Rolling back');
3057: END IF;
3058: ROLLBACK;
3051: ELSE
3052: -- Log
3053: IF (p_debug_flag = 'Y' AND
3054: FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3055: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
3056: 'Rolling back');
3057: END IF;
3058: ROLLBACK;
3059: END IF;
3058: ROLLBACK;
3059: END IF;
3060:
3061: IF (p_debug_flag = 'Y' AND
3062: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3063: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name, 'End of OSO->ASN Multiple Sales Credits Opportunity Data Migration.');
3064: END IF;
3065:
3066: End Mig_Multi_SalesRep_Opp_sub;
3059: END IF;
3060:
3061: IF (p_debug_flag = 'Y' AND
3062: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3063: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name, 'End of OSO->ASN Multiple Sales Credits Opportunity Data Migration.');
3064: END IF;
3065:
3066: End Mig_Multi_SalesRep_Opp_sub;
3067: