46:
47: /* Bug 2636791 - changes end */
48:
49: EXCEPTION WHEN OTHERS THEN
50: fnd_message.set_name('PA','PA_NO_PROJECT_ID');
51: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
52: fnd_message.set_token('PROCEDURE_NAME','GET_PROJECT_DATES');
53: fnd_msg_pub.ADD;
54: x_return_status := FND_API.G_RET_STS_ERROR;
47: /* Bug 2636791 - changes end */
48:
49: EXCEPTION WHEN OTHERS THEN
50: fnd_message.set_name('PA','PA_NO_PROJECT_ID');
51: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
52: fnd_message.set_token('PROCEDURE_NAME','GET_PROJECT_DATES');
53: fnd_msg_pub.ADD;
54: x_return_status := FND_API.G_RET_STS_ERROR;
55: END;
48:
49: EXCEPTION WHEN OTHERS THEN
50: fnd_message.set_name('PA','PA_NO_PROJECT_ID');
51: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
52: fnd_message.set_token('PROCEDURE_NAME','GET_PROJECT_DATES');
53: fnd_msg_pub.ADD;
54: x_return_status := FND_API.G_RET_STS_ERROR;
55: END;
56:
106:
107: --MT OrgRole changes: ext people are not schedulable
108: IF p_resource_type_id = 112 AND p_scheduled_flag = 'Y' THEN
109: x_return_status := FND_API.G_RET_STS_ERROR;
110: fnd_message.set_name('PA','PA_NO_SCHEDULE_HZ_PARTY');
111: fnd_msg_pub.ADD;
112: RETURN;
113: END IF;
114: --/MT
116: /*Code Addition for bug 2983546 -- Ext people are not allowed as project Managers */
117:
118: IF p_resource_type_id = 112 AND p_project_role_id=1 THEN
119: x_return_status := FND_API.G_RET_STS_ERROR;
120: fnd_message.set_name('PA','PA_NO_EXT_MANAGER');
121: fnd_msg_pub.ADD;
122: RETURN;
123: END IF;
124:
186: OR p_end_date_active BETWEEN start_date_active AND NVL(end_date_active,p_end_date_active));
187: EXCEPTION
188: WHEN NO_DATA_FOUND THEN
189: x_return_status := FND_API.G_RET_STS_ERROR;
190: fnd_message.set_name('PA','PA_ROLE_INACTIVE');
191: fnd_msg_pub.ADD;
192: END;
193: /* End of 3096700 */
194: --dbms_output.put_line('after validating dates'||x_return_status);
206: OPEN c_duplicate_customer_org;
207: FETCH c_duplicate_customer_org INTO l_dummy;
208: IF c_duplicate_customer_org%FOUND THEN
209: x_return_status := FND_API.G_RET_STS_ERROR;
210: fnd_message.set_name('PA','PA_DUPLICATE_CUSTOMER_ORG');
211: fnd_msg_pub.ADD;
212: CLOSE c_duplicate_customer_org;
213: RETURN;
214: END IF;
226: x_assignment_action := 'CREATE';
227: ELSE
228: --dbms_output.put_line('schedule is not allowed for this role');
229: x_return_status := FND_API.G_RET_STS_ERROR;
230: fnd_message.set_name('PA','PA_NO_SCHEDULE_ALLOWED');
231: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
232: --fnd_message.set_token('PROCEDURE_NAME','VALIDATE_PROJECT_PARTY');
233: fnd_msg_pub.ADD;
234: END IF;
227: ELSE
228: --dbms_output.put_line('schedule is not allowed for this role');
229: x_return_status := FND_API.G_RET_STS_ERROR;
230: fnd_message.set_name('PA','PA_NO_SCHEDULE_ALLOWED');
231: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
232: --fnd_message.set_token('PROCEDURE_NAME','VALIDATE_PROJECT_PARTY');
233: fnd_msg_pub.ADD;
234: END IF;
235: ELSE
228: --dbms_output.put_line('schedule is not allowed for this role');
229: x_return_status := FND_API.G_RET_STS_ERROR;
230: fnd_message.set_name('PA','PA_NO_SCHEDULE_ALLOWED');
231: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
232: --fnd_message.set_token('PROCEDURE_NAME','VALIDATE_PROJECT_PARTY');
233: fnd_msg_pub.ADD;
234: END IF;
235: ELSE
236: IF (p_debug_mode = 'Y') THEN
274: p_record_version_number := l_record_version_number;
275: ELSE
276: --dbms_output.put_line('cannot create duplicate record');
277: x_return_status := FND_API.G_RET_STS_ERROR;
278: fnd_message.set_name('PA','PA_XC_TOO_MANY_OMGRS');
279: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
280: --fnd_message.set_token('PROCEDURE_NAME','VALIDATE_PROJECT_PARTY');
281: fnd_msg_pub.ADD;
282: END IF;
275: ELSE
276: --dbms_output.put_line('cannot create duplicate record');
277: x_return_status := FND_API.G_RET_STS_ERROR;
278: fnd_message.set_name('PA','PA_XC_TOO_MANY_OMGRS');
279: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
280: --fnd_message.set_token('PROCEDURE_NAME','VALIDATE_PROJECT_PARTY');
281: fnd_msg_pub.ADD;
282: END IF;
283: END IF;
276: --dbms_output.put_line('cannot create duplicate record');
277: x_return_status := FND_API.G_RET_STS_ERROR;
278: fnd_message.set_name('PA','PA_XC_TOO_MANY_OMGRS');
279: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
280: --fnd_message.set_token('PROCEDURE_NAME','VALIDATE_PROJECT_PARTY');
281: fnd_msg_pub.ADD;
282: END IF;
283: END IF;
284: END IF;
347: RETURN l_scheduled_flag;
348:
349: EXCEPTION
350: WHEN NO_DATA_FOUND THEN
351: fnd_message.set_name('PA','PA_NO_SCHEDULE_ALLOWED');
352: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
353: --fnd_message.set_token('FUNCTION_NAME','GET_SCHEDULED_FLAG');
354: fnd_msg_pub.ADD;
355: RETURN 'X';
348:
349: EXCEPTION
350: WHEN NO_DATA_FOUND THEN
351: fnd_message.set_name('PA','PA_NO_SCHEDULE_ALLOWED');
352: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
353: --fnd_message.set_token('FUNCTION_NAME','GET_SCHEDULED_FLAG');
354: fnd_msg_pub.ADD;
355: RETURN 'X';
356: WHEN OTHERS THEN
349: EXCEPTION
350: WHEN NO_DATA_FOUND THEN
351: fnd_message.set_name('PA','PA_NO_SCHEDULE_ALLOWED');
352: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
353: --fnd_message.set_token('FUNCTION_NAME','GET_SCHEDULED_FLAG');
354: fnd_msg_pub.ADD;
355: RETURN 'X';
356: WHEN OTHERS THEN
357: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_UTILS',
426:
427: BEGIN
428: pa_debug.set_err_stack('Check_mandatory_fields');
429: IF p_project_Role_id IS NULL THEN
430: fnd_message.set_name('PA','PA_XC_NO_ROLE_TYPE');
431: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
432: --fnd_message.set_token('PROCEDURE_NAME','CHECK_MANDATORY_FIELDS');
433: fnd_msg_pub.ADD;
434: --dbms_output.put_line('PA_XC_NO_ROLE_TYPE');
427: BEGIN
428: pa_debug.set_err_stack('Check_mandatory_fields');
429: IF p_project_Role_id IS NULL THEN
430: fnd_message.set_name('PA','PA_XC_NO_ROLE_TYPE');
431: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
432: --fnd_message.set_token('PROCEDURE_NAME','CHECK_MANDATORY_FIELDS');
433: fnd_msg_pub.ADD;
434: --dbms_output.put_line('PA_XC_NO_ROLE_TYPE');
435: x_error_occured := 'Y';
428: pa_debug.set_err_stack('Check_mandatory_fields');
429: IF p_project_Role_id IS NULL THEN
430: fnd_message.set_name('PA','PA_XC_NO_ROLE_TYPE');
431: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
432: --fnd_message.set_token('PROCEDURE_NAME','CHECK_MANDATORY_FIELDS');
433: fnd_msg_pub.ADD;
434: --dbms_output.put_line('PA_XC_NO_ROLE_TYPE');
435: x_error_occured := 'Y';
436: END IF;
435: x_error_occured := 'Y';
436: END IF;
437:
438: IF p_resource_source_id IS NULL THEN
439: fnd_message.set_name('PA','PA_XC_NO_PERSON_ID');
440: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
441: --fnd_message.set_token('PROCEDURE_NAME','CHECK_MANDATORY_FIELDS');
442: fnd_msg_pub.ADD;
443: --dbms_output.put_line('PA_XC_NO_PERSON_ID');
436: END IF;
437:
438: IF p_resource_source_id IS NULL THEN
439: fnd_message.set_name('PA','PA_XC_NO_PERSON_ID');
440: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
441: --fnd_message.set_token('PROCEDURE_NAME','CHECK_MANDATORY_FIELDS');
442: fnd_msg_pub.ADD;
443: --dbms_output.put_line('PA_XC_NO_PERSON_ID');
444: x_error_occured := 'Y';
437:
438: IF p_resource_source_id IS NULL THEN
439: fnd_message.set_name('PA','PA_XC_NO_PERSON_ID');
440: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
441: --fnd_message.set_token('PROCEDURE_NAME','CHECK_MANDATORY_FIELDS');
442: fnd_msg_pub.ADD;
443: --dbms_output.put_line('PA_XC_NO_PERSON_ID');
444: x_error_occured := 'Y';
445: END IF;
444: x_error_occured := 'Y';
445: END IF;
446:
447: IF p_start_date_active IS NULL THEN
448: fnd_message.set_name('PA','PA_START_DATE_IS_MISSING');
449: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
450: --fnd_message.set_token('PROCEDURE_NAME','CHECK_MANDATORY_FIELDS');
451: fnd_msg_pub.ADD;
452: --dbms_output.put_line('PA_START_DATE_IS_MISSING');
445: END IF;
446:
447: IF p_start_date_active IS NULL THEN
448: fnd_message.set_name('PA','PA_START_DATE_IS_MISSING');
449: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
450: --fnd_message.set_token('PROCEDURE_NAME','CHECK_MANDATORY_FIELDS');
451: fnd_msg_pub.ADD;
452: --dbms_output.put_line('PA_START_DATE_IS_MISSING');
453: x_error_occured := 'Y';
446:
447: IF p_start_date_active IS NULL THEN
448: fnd_message.set_name('PA','PA_START_DATE_IS_MISSING');
449: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
450: --fnd_message.set_token('PROCEDURE_NAME','CHECK_MANDATORY_FIELDS');
451: fnd_msg_pub.ADD;
452: --dbms_output.put_line('PA_START_DATE_IS_MISSING');
453: x_error_occured := 'Y';
454: END IF;
455:
456: IF p_end_date_active IS NULL THEN
457: IF (p_scheduled_flag = 'Y' AND pa_project_parties_utils.validate_schedule_allowed(p_project_role_id)='Y') THEN
458: IF p_project_end_date IS NULL OR p_project_end_date < p_start_date_active THEN
459: fnd_message.set_name('PA','PA_END_DATE_IS_MISSING');
460: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
461: --fnd_message.set_token('PROCEDURE_NAME','CHECK_MANDATORY_FIELDS');
462: fnd_msg_pub.ADD;
463: x_error_occured := 'Y';
456: IF p_end_date_active IS NULL THEN
457: IF (p_scheduled_flag = 'Y' AND pa_project_parties_utils.validate_schedule_allowed(p_project_role_id)='Y') THEN
458: IF p_project_end_date IS NULL OR p_project_end_date < p_start_date_active THEN
459: fnd_message.set_name('PA','PA_END_DATE_IS_MISSING');
460: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
461: --fnd_message.set_token('PROCEDURE_NAME','CHECK_MANDATORY_FIELDS');
462: fnd_msg_pub.ADD;
463: x_error_occured := 'Y';
464: --dbms_output.put_line('PA_END_DATE_IS_MISSING');
457: IF (p_scheduled_flag = 'Y' AND pa_project_parties_utils.validate_schedule_allowed(p_project_role_id)='Y') THEN
458: IF p_project_end_date IS NULL OR p_project_end_date < p_start_date_active THEN
459: fnd_message.set_name('PA','PA_END_DATE_IS_MISSING');
460: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
461: --fnd_message.set_token('PROCEDURE_NAME','CHECK_MANDATORY_FIELDS');
462: fnd_msg_pub.ADD;
463: x_error_occured := 'Y';
464: --dbms_output.put_line('PA_END_DATE_IS_MISSING');
465: ELSE
481:
482: pa_debug.set_err_stack('Validate_dates');
483: IF p_end_date_active IS NOT NULL THEN
484: IF (p_end_date_active < p_start_date_active) THEN
485: fnd_message.set_name('PA','PA_SU_INVALID_DATES');
486: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
487: --fnd_message.set_token('PROCEDURE_NAME',pa_debug.g_err_stack);
488: fnd_msg_pub.ADD;
489: x_error_occured := 'Y';
482: pa_debug.set_err_stack('Validate_dates');
483: IF p_end_date_active IS NOT NULL THEN
484: IF (p_end_date_active < p_start_date_active) THEN
485: fnd_message.set_name('PA','PA_SU_INVALID_DATES');
486: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
487: --fnd_message.set_token('PROCEDURE_NAME',pa_debug.g_err_stack);
488: fnd_msg_pub.ADD;
489: x_error_occured := 'Y';
490: END IF;
483: IF p_end_date_active IS NOT NULL THEN
484: IF (p_end_date_active < p_start_date_active) THEN
485: fnd_message.set_name('PA','PA_SU_INVALID_DATES');
486: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
487: --fnd_message.set_token('PROCEDURE_NAME',pa_debug.g_err_stack);
488: fnd_msg_pub.ADD;
489: x_error_occured := 'Y';
490: END IF;
491: END IF;
517: OR NVL(end_Date_active,start_date_active) BETWEEN p_start_date_active AND NVL(p_end_date_active,start_date_active+1)
518: OR (p_start_date_active > start_date_active AND end_date_active IS NULL));
519:
520: x_error_occured := l_error_occured;
521: fnd_message.set_name('PA','PA_PR_TOO_MANY_MGRS');
522: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
523: --fnd_message.set_token('PROCEDURE_NAME','VALIDATE_NO_OVERLAP_MANAGER');
524: fnd_msg_pub.ADD;
525: --dbms_output.put_line('here');
518: OR (p_start_date_active > start_date_active AND end_date_active IS NULL));
519:
520: x_error_occured := l_error_occured;
521: fnd_message.set_name('PA','PA_PR_TOO_MANY_MGRS');
522: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
523: --fnd_message.set_token('PROCEDURE_NAME','VALIDATE_NO_OVERLAP_MANAGER');
524: fnd_msg_pub.ADD;
525: --dbms_output.put_line('here');
526: pa_debug.reset_err_stack;
519:
520: x_error_occured := l_error_occured;
521: fnd_message.set_name('PA','PA_PR_TOO_MANY_MGRS');
522: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
523: --fnd_message.set_token('PROCEDURE_NAME','VALIDATE_NO_OVERLAP_MANAGER');
524: fnd_msg_pub.ADD;
525: --dbms_output.put_line('here');
526: pa_debug.reset_err_stack;
527:
528: EXCEPTION
529: WHEN NO_DATA_FOUND THEN
530: x_error_occured := 'N';
531: WHEN TOO_MANY_ROWS THEN
532: fnd_message.set_name('PA','PA_PR_TOO_MANY_MGRS');
533: fnd_msg_pub.ADD;
534: x_error_occured := 'Y';
535: WHEN OTHERS THEN
536: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_UTILS',
568: OR (p_start_date_active > start_date_active AND end_date_active IS NULL));
569:
570: x_error_occured := l_error_occured;
571: --dbms_output.put_line(l_error_occured);
572: fnd_message.set_name('PA','PA_XC_TOO_MANY_OMGRS');
573: --fnd_message.set_token('PKG_NAME',to_char(p_project_role_id));
574: --fnd_message.set_token('PROCEDURE_NAME',to_char(p_resource_source_id));
575: fnd_msg_pub.ADD;
576: pa_debug.reset_err_stack;
569:
570: x_error_occured := l_error_occured;
571: --dbms_output.put_line(l_error_occured);
572: fnd_message.set_name('PA','PA_XC_TOO_MANY_OMGRS');
573: --fnd_message.set_token('PKG_NAME',to_char(p_project_role_id));
574: --fnd_message.set_token('PROCEDURE_NAME',to_char(p_resource_source_id));
575: fnd_msg_pub.ADD;
576: pa_debug.reset_err_stack;
577: EXCEPTION WHEN NO_DATA_FOUND THEN
570: x_error_occured := l_error_occured;
571: --dbms_output.put_line(l_error_occured);
572: fnd_message.set_name('PA','PA_XC_TOO_MANY_OMGRS');
573: --fnd_message.set_token('PKG_NAME',to_char(p_project_role_id));
574: --fnd_message.set_token('PROCEDURE_NAME',to_char(p_resource_source_id));
575: fnd_msg_pub.ADD;
576: pa_debug.reset_err_stack;
577: EXCEPTION WHEN NO_DATA_FOUND THEN
578: x_error_occured := 'N';
576: pa_debug.reset_err_stack;
577: EXCEPTION WHEN NO_DATA_FOUND THEN
578: x_error_occured := 'N';
579: WHEN TOO_MANY_ROWS THEN
580: fnd_message.set_name('PA','PA_XC_TOO_MANY_OMGRS');
581: fnd_msg_pub.ADD;
582: x_error_occured := 'Y';
583: WHEN OTHERS THEN
584: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_UTILS',
600: WHERE (meaning = p_project_role_type AND p_calling_module <> 'FORM')
601: OR (project_role_type = p_project_role_type AND p_calling_module = 'FORM');
602: RETURN l_project_role_id;
603: EXCEPTION WHEN NO_DATA_FOUND THEN
604: fnd_message.set_name('PA','PA_XC_NO_ROLE_TYPE');
605: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
606: --fnd_message.set_token('PROCEDURE_NAME','GET_PROJECT_ROLE_ID');
607: fnd_msg_pub.ADD;
608: RETURN -999;
601: OR (project_role_type = p_project_role_type AND p_calling_module = 'FORM');
602: RETURN l_project_role_id;
603: EXCEPTION WHEN NO_DATA_FOUND THEN
604: fnd_message.set_name('PA','PA_XC_NO_ROLE_TYPE');
605: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
606: --fnd_message.set_token('PROCEDURE_NAME','GET_PROJECT_ROLE_ID');
607: fnd_msg_pub.ADD;
608: RETURN -999;
609: END;
602: RETURN l_project_role_id;
603: EXCEPTION WHEN NO_DATA_FOUND THEN
604: fnd_message.set_name('PA','PA_XC_NO_ROLE_TYPE');
605: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
606: --fnd_message.set_token('PROCEDURE_NAME','GET_PROJECT_ROLE_ID');
607: fnd_msg_pub.ADD;
608: RETURN -999;
609: END;
610: ELSE
607: fnd_msg_pub.ADD;
608: RETURN -999;
609: END;
610: ELSE
611: fnd_message.set_name('PA','PA_XC_NO_ROLE_TYPE');
612: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
613: --fnd_message.set_token('PROCEDURE_NAME','GET_PROJECT_ROLE_ID');
614: fnd_msg_pub.ADD;
615: RETURN -999;
608: RETURN -999;
609: END;
610: ELSE
611: fnd_message.set_name('PA','PA_XC_NO_ROLE_TYPE');
612: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
613: --fnd_message.set_token('PROCEDURE_NAME','GET_PROJECT_ROLE_ID');
614: fnd_msg_pub.ADD;
615: RETURN -999;
616: END IF;
609: END;
610: ELSE
611: fnd_message.set_name('PA','PA_XC_NO_ROLE_TYPE');
612: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
613: --fnd_message.set_token('PROCEDURE_NAME','GET_PROJECT_ROLE_ID');
614: fnd_msg_pub.ADD;
615: RETURN -999;
616: END IF;
617: END;
626: WHERE full_name = p_resource_name
627: AND active = '*';
628: RETURN l_resource_id;
629: EXCEPTION WHEN NO_DATA_FOUND THEN
630: fnd_message.set_name('PA','PA_XC_NO_PERSON_ID');
631: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
632: --fnd_message.set_token('PROCEDURE_NAME','GET_RESOURCE_SOURCE_ID');
633: fnd_msg_pub.ADD;
634: RETURN -999;
627: AND active = '*';
628: RETURN l_resource_id;
629: EXCEPTION WHEN NO_DATA_FOUND THEN
630: fnd_message.set_name('PA','PA_XC_NO_PERSON_ID');
631: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
632: --fnd_message.set_token('PROCEDURE_NAME','GET_RESOURCE_SOURCE_ID');
633: fnd_msg_pub.ADD;
634: RETURN -999;
635: WHEN TOO_MANY_ROWS THEN
628: RETURN l_resource_id;
629: EXCEPTION WHEN NO_DATA_FOUND THEN
630: fnd_message.set_name('PA','PA_XC_NO_PERSON_ID');
631: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
632: --fnd_message.set_token('PROCEDURE_NAME','GET_RESOURCE_SOURCE_ID');
633: fnd_msg_pub.ADD;
634: RETURN -999;
635: WHEN TOO_MANY_ROWS THEN
636: fnd_message.set_name('PA','PA_TOO_MANY_PERSONS');
632: --fnd_message.set_token('PROCEDURE_NAME','GET_RESOURCE_SOURCE_ID');
633: fnd_msg_pub.ADD;
634: RETURN -999;
635: WHEN TOO_MANY_ROWS THEN
636: fnd_message.set_name('PA','PA_TOO_MANY_PERSONS');
637: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
638: --fnd_message.set_token('PROCEDURE_NAME','GET_RESOURCE_SOURCE_ID');
639: fnd_msg_pub.ADD;
640: RETURN -999;
633: fnd_msg_pub.ADD;
634: RETURN -999;
635: WHEN TOO_MANY_ROWS THEN
636: fnd_message.set_name('PA','PA_TOO_MANY_PERSONS');
637: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
638: --fnd_message.set_token('PROCEDURE_NAME','GET_RESOURCE_SOURCE_ID');
639: fnd_msg_pub.ADD;
640: RETURN -999;
641: END;
634: RETURN -999;
635: WHEN TOO_MANY_ROWS THEN
636: fnd_message.set_name('PA','PA_TOO_MANY_PERSONS');
637: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
638: --fnd_message.set_token('PROCEDURE_NAME','GET_RESOURCE_SOURCE_ID');
639: fnd_msg_pub.ADD;
640: RETURN -999;
641: END;
642: ELSE
639: fnd_msg_pub.ADD;
640: RETURN -999;
641: END;
642: ELSE
643: fnd_message.set_name('PA','PA_XC_NO_PERSON_ID');
644: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
645: --fnd_message.set_token('PROCEDURE_NAME','GET_RESOURCE_SOURCE_ID');
646: fnd_msg_pub.ADD;
647: RETURN -999;
640: RETURN -999;
641: END;
642: ELSE
643: fnd_message.set_name('PA','PA_XC_NO_PERSON_ID');
644: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
645: --fnd_message.set_token('PROCEDURE_NAME','GET_RESOURCE_SOURCE_ID');
646: fnd_msg_pub.ADD;
647: RETURN -999;
648: END IF;
641: END;
642: ELSE
643: fnd_message.set_name('PA','PA_XC_NO_PERSON_ID');
644: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
645: --fnd_message.set_token('PROCEDURE_NAME','GET_RESOURCE_SOURCE_ID');
646: fnd_msg_pub.ADD;
647: RETURN -999;
648: END IF;
649: END;
814: x_error_occured := 'N';
815:
816: IF (l_role_party_class = 'PERSON' AND l_party_type <> 'PERSON') OR
817: (l_role_party_class <> 'PERSON' AND l_party_type = 'PERSON') THEN
818: fnd_message.set_name('PA','PA_XC_NO_ROLE_TYPE');
819: fnd_msg_pub.ADD;
820: x_error_occured := 'Y';
821: END IF;
822: