172:
173: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
174: IF ( l_msg_count > 1 ) THEN
175: FOR l_msg_index IN 1..l_msg_count LOOP
176: apps.fnd_message.set_encoded(apps.fnd_msg_pub.get(l_msg_index));
177: FND_FILE.PUT_LINE(FND_FILE.LOG,' ' || substr(apps.fnd_message.get,1,254) );
178: END LOOP;
179: ELSE
180: -- Standard call to get message count and if count=1, get the message
173: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
174: IF ( l_msg_count > 1 ) THEN
175: FOR l_msg_index IN 1..l_msg_count LOOP
176: apps.fnd_message.set_encoded(apps.fnd_msg_pub.get(l_msg_index));
177: FND_FILE.PUT_LINE(FND_FILE.LOG,' ' || substr(apps.fnd_message.get,1,254) );
178: END LOOP;
179: ELSE
180: -- Standard call to get message count and if count=1, get the message
181: FND_MSG_PUB.Count_And_Get (
471:
472:
473: BEGIN
474:
475: fnd_message.set_name('PV','PV_MIGR_HEADER');
476: FND_MESSAGE.SET_TOKEN('STARTDATE',TO_char(SYSDATE,'MM/DD/YYYY hh:mm:ss'));
477: FND_MESSAGE.SET_TOKEN('USER',fnd_global.user_name);
478:
479: FND_MESSAGE.SET_TOKEN('PARAM1','Running_Mode');
472:
473: BEGIN
474:
475: fnd_message.set_name('PV','PV_MIGR_HEADER');
476: FND_MESSAGE.SET_TOKEN('STARTDATE',TO_char(SYSDATE,'MM/DD/YYYY hh:mm:ss'));
477: FND_MESSAGE.SET_TOKEN('USER',fnd_global.user_name);
478:
479: FND_MESSAGE.SET_TOKEN('PARAM1','Running_Mode');
480: FND_MESSAGE.SET_TOKEN('PARAM2','Overwrite');
473: BEGIN
474:
475: fnd_message.set_name('PV','PV_MIGR_HEADER');
476: FND_MESSAGE.SET_TOKEN('STARTDATE',TO_char(SYSDATE,'MM/DD/YYYY hh:mm:ss'));
477: FND_MESSAGE.SET_TOKEN('USER',fnd_global.user_name);
478:
479: FND_MESSAGE.SET_TOKEN('PARAM1','Running_Mode');
480: FND_MESSAGE.SET_TOKEN('PARAM2','Overwrite');
481: FND_MESSAGE.SET_TOKEN('PARAMVALUE1',p_running_mode);
475: fnd_message.set_name('PV','PV_MIGR_HEADER');
476: FND_MESSAGE.SET_TOKEN('STARTDATE',TO_char(SYSDATE,'MM/DD/YYYY hh:mm:ss'));
477: FND_MESSAGE.SET_TOKEN('USER',fnd_global.user_name);
478:
479: FND_MESSAGE.SET_TOKEN('PARAM1','Running_Mode');
480: FND_MESSAGE.SET_TOKEN('PARAM2','Overwrite');
481: FND_MESSAGE.SET_TOKEN('PARAMVALUE1',p_running_mode);
482: FND_MESSAGE.SET_TOKEN('PARAMVALUE2',p_Overwrite);
483:
476: FND_MESSAGE.SET_TOKEN('STARTDATE',TO_char(SYSDATE,'MM/DD/YYYY hh:mm:ss'));
477: FND_MESSAGE.SET_TOKEN('USER',fnd_global.user_name);
478:
479: FND_MESSAGE.SET_TOKEN('PARAM1','Running_Mode');
480: FND_MESSAGE.SET_TOKEN('PARAM2','Overwrite');
481: FND_MESSAGE.SET_TOKEN('PARAMVALUE1',p_running_mode);
482: FND_MESSAGE.SET_TOKEN('PARAMVALUE2',p_Overwrite);
483:
484: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
477: FND_MESSAGE.SET_TOKEN('USER',fnd_global.user_name);
478:
479: FND_MESSAGE.SET_TOKEN('PARAM1','Running_Mode');
480: FND_MESSAGE.SET_TOKEN('PARAM2','Overwrite');
481: FND_MESSAGE.SET_TOKEN('PARAMVALUE1',p_running_mode);
482: FND_MESSAGE.SET_TOKEN('PARAMVALUE2',p_Overwrite);
483:
484: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
485:
478:
479: FND_MESSAGE.SET_TOKEN('PARAM1','Running_Mode');
480: FND_MESSAGE.SET_TOKEN('PARAM2','Overwrite');
481: FND_MESSAGE.SET_TOKEN('PARAMVALUE1',p_running_mode);
482: FND_MESSAGE.SET_TOKEN('PARAMVALUE2',p_Overwrite);
483:
484: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
485:
486: SAVEPOINT migrate_partner_type;
480: FND_MESSAGE.SET_TOKEN('PARAM2','Overwrite');
481: FND_MESSAGE.SET_TOKEN('PARAMVALUE1',p_running_mode);
482: FND_MESSAGE.SET_TOKEN('PARAMVALUE2',p_Overwrite);
483:
484: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
485:
486: SAVEPOINT migrate_partner_type;
487:
488: --Validating the PV_PARTNER_TYPE_RNKING lookup setup.
494: and language = userenv('LANG')
495: and enabled_flag = 'Y';
496:
497: if not l_count > 0 then
498: FND_MESSAGE.set_name('PV','PV_MIGR_LKUP_SETUP');
499: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
500:
501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
502: end if;
495: and enabled_flag = 'Y';
496:
497: if not l_count > 0 then
498: FND_MESSAGE.set_name('PV','PV_MIGR_LKUP_SETUP');
499: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
500:
501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
502: end if;
503:
522: lookup_type = 'PV_PARTNER_TYPE_RANKING'and
523: enabled_flag = 'Y'
524: );
525: IF l_count > 0 THEN
526: FND_MESSAGE.set_name('PV','PV_MIGR_LKUP_INCOMPL');
527: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
528: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
529: end if;
530:
523: enabled_flag = 'Y'
524: );
525: IF l_count > 0 THEN
526: FND_MESSAGE.set_name('PV','PV_MIGR_LKUP_INCOMPL');
527: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
528: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
529: end if;
530:
531:
541: enabled_flag = 'Y' and
542: TAG IS NULL;
543:
544: if l_count > 0 then
545: FND_MESSAGE.set_name('PV','PV_MIGR_RANK_INCOMPL');
546: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
547:
548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
549: end if;
542: TAG IS NULL;
543:
544: if l_count > 0 then
545: FND_MESSAGE.set_name('PV','PV_MIGR_RANK_INCOMPL');
546: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
547:
548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
549: end if;
550:
561: language = userenv('LANG') and
562: TAG IS NOT NULL;
563: exception
564: when INVALID_NUMBER then
565: FND_MESSAGE.set_name('PV','PV_MIGR_RANK_NUMBER');
566: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
567:
568: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
569: end;
562: TAG IS NOT NULL;
563: exception
564: when INVALID_NUMBER then
565: FND_MESSAGE.set_name('PV','PV_MIGR_RANK_NUMBER');
566: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
567:
568: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
569: end;
570:
592: TAG IS NOT NULL;
593:
594:
595: if l_count <> l_distinct_count then
596: FND_MESSAGE.set_name('PV','PV_MIGR_RANK_UNIQUE');
597: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
598:
599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
600: end if;
593:
594:
595: if l_count <> l_distinct_count then
596: FND_MESSAGE.set_name('PV','PV_MIGR_RANK_UNIQUE');
597: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
598:
599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
600: end if;
601:
601:
602:
603: -- Writing the header information of the Log report.
604: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
605: FND_MESSAGE.set_name('PV','PV_MIGR_RANKING');
606: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
607: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
608:
609: for x in Get_Ranked_Partner_types
602:
603: -- Writing the header information of the Log report.
604: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
605: FND_MESSAGE.set_name('PV','PV_MIGR_RANKING');
606: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
607: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
608:
609: for x in Get_Ranked_Partner_types
610: loop
616:
617: -- Writing the 'Active' and 'Inactive' partner type count in the Log report.
618: for x in Get_Partner_Status_Count
619: loop
620: FND_MESSAGE.set_name('PV','PV_MIGR_DETAILS');
621: FND_MESSAGE.SET_TOKEN('ACTIVEPARTNERS',x.Active);
622: FND_MESSAGE.SET_TOKEN('INACTIVEPARTNERS',x.InActive);
623: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
624: end loop;
617: -- Writing the 'Active' and 'Inactive' partner type count in the Log report.
618: for x in Get_Partner_Status_Count
619: loop
620: FND_MESSAGE.set_name('PV','PV_MIGR_DETAILS');
621: FND_MESSAGE.SET_TOKEN('ACTIVEPARTNERS',x.Active);
622: FND_MESSAGE.SET_TOKEN('INACTIVEPARTNERS',x.InActive);
623: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
624: end loop;
625:
618: for x in Get_Partner_Status_Count
619: loop
620: FND_MESSAGE.set_name('PV','PV_MIGR_DETAILS');
621: FND_MESSAGE.SET_TOKEN('ACTIVEPARTNERS',x.Active);
622: FND_MESSAGE.SET_TOKEN('INACTIVEPARTNERS',x.InActive);
623: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
624: end loop;
625:
626: if p_OverWrite = 'N' then
619: loop
620: FND_MESSAGE.set_name('PV','PV_MIGR_DETAILS');
621: FND_MESSAGE.SET_TOKEN('ACTIVEPARTNERS',x.Active);
622: FND_MESSAGE.SET_TOKEN('INACTIVEPARTNERS',x.InActive);
623: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
624: end loop;
625:
626: if p_OverWrite = 'N' then
627: for x in Get_Unprocessed_Record_Count
881:
882: END IF;
883: -- FND_FILE.PUT_LINE(FND_FILE.LOG, ' Partner Type Number of Primary Partners');
884:
885: FND_MESSAGE.set_name('PV','PV_MIGR_PTNRTYP_COUNT');
886: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
887:
888: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
889:
882: END IF;
883: -- FND_FILE.PUT_LINE(FND_FILE.LOG, ' Partner Type Number of Primary Partners');
884:
885: FND_MESSAGE.set_name('PV','PV_MIGR_PTNRTYP_COUNT');
886: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
887:
888: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
889:
890: for x in Get_Primary_Partner_Type_count
893: end loop;
894:
895: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
896:
897: FND_MESSAGE.set_name('PV','PV_MIGR_FOOTER');
898: FND_MESSAGE.SET_TOKEN('PROCESSED',lpad(l_processed_count,5));
899: FND_MESSAGE.SET_TOKEN('UNPROCESSED',lpad(l_unprocessed_count,5));
900: FND_MESSAGE.SET_TOKEN('ENDDATE',TO_char(SYSDATE,'MM/DD/YYYY hh:mm:ss'));
901:
894:
895: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
896:
897: FND_MESSAGE.set_name('PV','PV_MIGR_FOOTER');
898: FND_MESSAGE.SET_TOKEN('PROCESSED',lpad(l_processed_count,5));
899: FND_MESSAGE.SET_TOKEN('UNPROCESSED',lpad(l_unprocessed_count,5));
900: FND_MESSAGE.SET_TOKEN('ENDDATE',TO_char(SYSDATE,'MM/DD/YYYY hh:mm:ss'));
901:
902: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
895: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
896:
897: FND_MESSAGE.set_name('PV','PV_MIGR_FOOTER');
898: FND_MESSAGE.SET_TOKEN('PROCESSED',lpad(l_processed_count,5));
899: FND_MESSAGE.SET_TOKEN('UNPROCESSED',lpad(l_unprocessed_count,5));
900: FND_MESSAGE.SET_TOKEN('ENDDATE',TO_char(SYSDATE,'MM/DD/YYYY hh:mm:ss'));
901:
902: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
903:
896:
897: FND_MESSAGE.set_name('PV','PV_MIGR_FOOTER');
898: FND_MESSAGE.SET_TOKEN('PROCESSED',lpad(l_processed_count,5));
899: FND_MESSAGE.SET_TOKEN('UNPROCESSED',lpad(l_unprocessed_count,5));
900: FND_MESSAGE.SET_TOKEN('ENDDATE',TO_char(SYSDATE,'MM/DD/YYYY hh:mm:ss'));
901:
902: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
903:
904: if p_Running_Mode = 'EVALUATION' then
898: FND_MESSAGE.SET_TOKEN('PROCESSED',lpad(l_processed_count,5));
899: FND_MESSAGE.SET_TOKEN('UNPROCESSED',lpad(l_unprocessed_count,5));
900: FND_MESSAGE.SET_TOKEN('ENDDATE',TO_char(SYSDATE,'MM/DD/YYYY hh:mm:ss'));
901:
902: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
903:
904: if p_Running_Mode = 'EVALUATION' then
905: ROLLBACK TO migrate_partner_type;
906: else
909:
910: EXCEPTION
911: WHEN OTHERS THEN
912: -- ROLLBACK;
913: FND_MESSAGE.SET_NAME('PV', 'PV_MIGR_ERROR');
914: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
915: errbuf := FND_MESSAGE.get;
916: retcode := 2;
917: FND_FILE.PUT_LINE(FND_FILE.LOG, 'SQLERRM: ' || SQLERRM);
910: EXCEPTION
911: WHEN OTHERS THEN
912: -- ROLLBACK;
913: FND_MESSAGE.SET_NAME('PV', 'PV_MIGR_ERROR');
914: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
915: errbuf := FND_MESSAGE.get;
916: retcode := 2;
917: FND_FILE.PUT_LINE(FND_FILE.LOG, 'SQLERRM: ' || SQLERRM);
918: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
911: WHEN OTHERS THEN
912: -- ROLLBACK;
913: FND_MESSAGE.SET_NAME('PV', 'PV_MIGR_ERROR');
914: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
915: errbuf := FND_MESSAGE.get;
916: retcode := 2;
917: FND_FILE.PUT_LINE(FND_FILE.LOG, 'SQLERRM: ' || SQLERRM);
918: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
919: FND_FILE.PUT_LINE(FND_FILE.LOG, 'message[' ||I||']=');