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:
105:
106: --MT OrgRole changes: ext people are not schedulable
107: IF p_resource_type_id = 112 AND p_scheduled_flag = 'Y' THEN
108: x_return_status := FND_API.G_RET_STS_ERROR;
109: fnd_message.set_name('PA','PA_NO_SCHEDULE_HZ_PARTY');
110: fnd_msg_pub.ADD;
111: RETURN;
112: END IF;
113: --/MT
115: /*Code Addition for bug 2983546 -- Ext people are not allowed as project Managers */
116:
117: IF p_resource_type_id = 112 AND p_project_role_id=1 THEN
118: x_return_status := FND_API.G_RET_STS_ERROR;
119: fnd_message.set_name('PA','PA_NO_EXT_MANAGER');
120: fnd_msg_pub.ADD;
121: RETURN;
122: END IF;
123:
183: OR p_end_date_active BETWEEN start_date_active AND NVL(end_date_active,p_end_date_active));
184: EXCEPTION
185: WHEN NO_DATA_FOUND THEN
186: x_return_status := FND_API.G_RET_STS_ERROR;
187: fnd_message.set_name('PA','PA_ROLE_INACTIVE');
188: fnd_msg_pub.ADD;
189: END;
190: /* End of 3096700 */
191: --dbms_output.put_line('after validating dates'||x_return_status);
203: OPEN c_duplicate_customer_org;
204: FETCH c_duplicate_customer_org INTO l_dummy;
205: IF c_duplicate_customer_org%FOUND THEN
206: x_return_status := FND_API.G_RET_STS_ERROR;
207: fnd_message.set_name('PA','PA_DUPLICATE_CUSTOMER_ORG');
208: fnd_msg_pub.ADD;
209: CLOSE c_duplicate_customer_org;
210: RETURN;
211: END IF;
223: x_assignment_action := 'CREATE';
224: ELSE
225: --dbms_output.put_line('schedule is not allowed for this role');
226: x_return_status := FND_API.G_RET_STS_ERROR;
227: fnd_message.set_name('PA','PA_NO_SCHEDULE_ALLOWED');
228: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
229: --fnd_message.set_token('PROCEDURE_NAME','VALIDATE_PROJECT_PARTY');
230: fnd_msg_pub.ADD;
231: END IF;
224: ELSE
225: --dbms_output.put_line('schedule is not allowed for this role');
226: x_return_status := FND_API.G_RET_STS_ERROR;
227: fnd_message.set_name('PA','PA_NO_SCHEDULE_ALLOWED');
228: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
229: --fnd_message.set_token('PROCEDURE_NAME','VALIDATE_PROJECT_PARTY');
230: fnd_msg_pub.ADD;
231: END IF;
232: ELSE
225: --dbms_output.put_line('schedule is not allowed for this role');
226: x_return_status := FND_API.G_RET_STS_ERROR;
227: fnd_message.set_name('PA','PA_NO_SCHEDULE_ALLOWED');
228: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
229: --fnd_message.set_token('PROCEDURE_NAME','VALIDATE_PROJECT_PARTY');
230: fnd_msg_pub.ADD;
231: END IF;
232: ELSE
233: IF (p_debug_mode = 'Y') THEN
271: p_record_version_number := l_record_version_number;
272: ELSE
273: --dbms_output.put_line('cannot create duplicate record');
274: x_return_status := FND_API.G_RET_STS_ERROR;
275: fnd_message.set_name('PA','PA_XC_TOO_MANY_OMGRS');
276: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
277: --fnd_message.set_token('PROCEDURE_NAME','VALIDATE_PROJECT_PARTY');
278: fnd_msg_pub.ADD;
279: END IF;
272: ELSE
273: --dbms_output.put_line('cannot create duplicate record');
274: x_return_status := FND_API.G_RET_STS_ERROR;
275: fnd_message.set_name('PA','PA_XC_TOO_MANY_OMGRS');
276: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
277: --fnd_message.set_token('PROCEDURE_NAME','VALIDATE_PROJECT_PARTY');
278: fnd_msg_pub.ADD;
279: END IF;
280: END IF;
273: --dbms_output.put_line('cannot create duplicate record');
274: x_return_status := FND_API.G_RET_STS_ERROR;
275: fnd_message.set_name('PA','PA_XC_TOO_MANY_OMGRS');
276: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
277: --fnd_message.set_token('PROCEDURE_NAME','VALIDATE_PROJECT_PARTY');
278: fnd_msg_pub.ADD;
279: END IF;
280: END IF;
281: END IF;
344: RETURN l_scheduled_flag;
345:
346: EXCEPTION
347: WHEN NO_DATA_FOUND THEN
348: fnd_message.set_name('PA','PA_NO_SCHEDULE_ALLOWED');
349: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
350: --fnd_message.set_token('FUNCTION_NAME','GET_SCHEDULED_FLAG');
351: fnd_msg_pub.ADD;
352: RETURN 'X';
345:
346: EXCEPTION
347: WHEN NO_DATA_FOUND THEN
348: fnd_message.set_name('PA','PA_NO_SCHEDULE_ALLOWED');
349: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
350: --fnd_message.set_token('FUNCTION_NAME','GET_SCHEDULED_FLAG');
351: fnd_msg_pub.ADD;
352: RETURN 'X';
353: WHEN OTHERS THEN
346: EXCEPTION
347: WHEN NO_DATA_FOUND THEN
348: fnd_message.set_name('PA','PA_NO_SCHEDULE_ALLOWED');
349: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
350: --fnd_message.set_token('FUNCTION_NAME','GET_SCHEDULED_FLAG');
351: fnd_msg_pub.ADD;
352: RETURN 'X';
353: WHEN OTHERS THEN
354: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_UTILS',
423:
424: BEGIN
425: pa_debug.set_err_stack('Check_mandatory_fields');
426: IF p_project_Role_id IS NULL THEN
427: fnd_message.set_name('PA','PA_XC_NO_ROLE_TYPE');
428: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
429: --fnd_message.set_token('PROCEDURE_NAME','CHECK_MANDATORY_FIELDS');
430: fnd_msg_pub.ADD;
431: --dbms_output.put_line('PA_XC_NO_ROLE_TYPE');
424: BEGIN
425: pa_debug.set_err_stack('Check_mandatory_fields');
426: IF p_project_Role_id IS NULL THEN
427: fnd_message.set_name('PA','PA_XC_NO_ROLE_TYPE');
428: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
429: --fnd_message.set_token('PROCEDURE_NAME','CHECK_MANDATORY_FIELDS');
430: fnd_msg_pub.ADD;
431: --dbms_output.put_line('PA_XC_NO_ROLE_TYPE');
432: x_error_occured := 'Y';
425: pa_debug.set_err_stack('Check_mandatory_fields');
426: IF p_project_Role_id IS NULL THEN
427: fnd_message.set_name('PA','PA_XC_NO_ROLE_TYPE');
428: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
429: --fnd_message.set_token('PROCEDURE_NAME','CHECK_MANDATORY_FIELDS');
430: fnd_msg_pub.ADD;
431: --dbms_output.put_line('PA_XC_NO_ROLE_TYPE');
432: x_error_occured := 'Y';
433: END IF;
432: x_error_occured := 'Y';
433: END IF;
434:
435: IF p_resource_source_id IS NULL THEN
436: fnd_message.set_name('PA','PA_XC_NO_PERSON_ID');
437: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
438: --fnd_message.set_token('PROCEDURE_NAME','CHECK_MANDATORY_FIELDS');
439: fnd_msg_pub.ADD;
440: --dbms_output.put_line('PA_XC_NO_PERSON_ID');
433: END IF;
434:
435: IF p_resource_source_id IS NULL THEN
436: fnd_message.set_name('PA','PA_XC_NO_PERSON_ID');
437: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
438: --fnd_message.set_token('PROCEDURE_NAME','CHECK_MANDATORY_FIELDS');
439: fnd_msg_pub.ADD;
440: --dbms_output.put_line('PA_XC_NO_PERSON_ID');
441: x_error_occured := 'Y';
434:
435: IF p_resource_source_id IS NULL THEN
436: fnd_message.set_name('PA','PA_XC_NO_PERSON_ID');
437: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
438: --fnd_message.set_token('PROCEDURE_NAME','CHECK_MANDATORY_FIELDS');
439: fnd_msg_pub.ADD;
440: --dbms_output.put_line('PA_XC_NO_PERSON_ID');
441: x_error_occured := 'Y';
442: END IF;
441: x_error_occured := 'Y';
442: END IF;
443:
444: IF p_start_date_active IS NULL THEN
445: fnd_message.set_name('PA','PA_START_DATE_IS_MISSING');
446: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
447: --fnd_message.set_token('PROCEDURE_NAME','CHECK_MANDATORY_FIELDS');
448: fnd_msg_pub.ADD;
449: --dbms_output.put_line('PA_START_DATE_IS_MISSING');
442: END IF;
443:
444: IF p_start_date_active IS NULL THEN
445: fnd_message.set_name('PA','PA_START_DATE_IS_MISSING');
446: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
447: --fnd_message.set_token('PROCEDURE_NAME','CHECK_MANDATORY_FIELDS');
448: fnd_msg_pub.ADD;
449: --dbms_output.put_line('PA_START_DATE_IS_MISSING');
450: x_error_occured := 'Y';
443:
444: IF p_start_date_active IS NULL THEN
445: fnd_message.set_name('PA','PA_START_DATE_IS_MISSING');
446: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
447: --fnd_message.set_token('PROCEDURE_NAME','CHECK_MANDATORY_FIELDS');
448: fnd_msg_pub.ADD;
449: --dbms_output.put_line('PA_START_DATE_IS_MISSING');
450: x_error_occured := 'Y';
451: END IF;
452:
453: IF p_end_date_active IS NULL THEN
454: IF (p_scheduled_flag = 'Y' AND pa_project_parties_utils.validate_schedule_allowed(p_project_role_id)='Y') THEN
455: IF p_project_end_date IS NULL OR p_project_end_date < p_start_date_active THEN
456: fnd_message.set_name('PA','PA_END_DATE_IS_MISSING');
457: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
458: --fnd_message.set_token('PROCEDURE_NAME','CHECK_MANDATORY_FIELDS');
459: fnd_msg_pub.ADD;
460: x_error_occured := 'Y';
453: IF p_end_date_active IS NULL THEN
454: IF (p_scheduled_flag = 'Y' AND pa_project_parties_utils.validate_schedule_allowed(p_project_role_id)='Y') THEN
455: IF p_project_end_date IS NULL OR p_project_end_date < p_start_date_active THEN
456: fnd_message.set_name('PA','PA_END_DATE_IS_MISSING');
457: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
458: --fnd_message.set_token('PROCEDURE_NAME','CHECK_MANDATORY_FIELDS');
459: fnd_msg_pub.ADD;
460: x_error_occured := 'Y';
461: --dbms_output.put_line('PA_END_DATE_IS_MISSING');
454: IF (p_scheduled_flag = 'Y' AND pa_project_parties_utils.validate_schedule_allowed(p_project_role_id)='Y') THEN
455: IF p_project_end_date IS NULL OR p_project_end_date < p_start_date_active THEN
456: fnd_message.set_name('PA','PA_END_DATE_IS_MISSING');
457: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
458: --fnd_message.set_token('PROCEDURE_NAME','CHECK_MANDATORY_FIELDS');
459: fnd_msg_pub.ADD;
460: x_error_occured := 'Y';
461: --dbms_output.put_line('PA_END_DATE_IS_MISSING');
462: ELSE
478:
479: pa_debug.set_err_stack('Validate_dates');
480: IF p_end_date_active IS NOT NULL THEN
481: IF (p_end_date_active < p_start_date_active) THEN
482: fnd_message.set_name('PA','PA_SU_INVALID_DATES');
483: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
484: --fnd_message.set_token('PROCEDURE_NAME',pa_debug.g_err_stack);
485: fnd_msg_pub.ADD;
486: x_error_occured := 'Y';
479: pa_debug.set_err_stack('Validate_dates');
480: IF p_end_date_active IS NOT NULL THEN
481: IF (p_end_date_active < p_start_date_active) THEN
482: fnd_message.set_name('PA','PA_SU_INVALID_DATES');
483: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
484: --fnd_message.set_token('PROCEDURE_NAME',pa_debug.g_err_stack);
485: fnd_msg_pub.ADD;
486: x_error_occured := 'Y';
487: END IF;
480: IF p_end_date_active IS NOT NULL THEN
481: IF (p_end_date_active < p_start_date_active) THEN
482: fnd_message.set_name('PA','PA_SU_INVALID_DATES');
483: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
484: --fnd_message.set_token('PROCEDURE_NAME',pa_debug.g_err_stack);
485: fnd_msg_pub.ADD;
486: x_error_occured := 'Y';
487: END IF;
488: END IF;
514: OR NVL(end_Date_active,start_date_active) BETWEEN p_start_date_active AND NVL(p_end_date_active,start_date_active+1)
515: OR (p_start_date_active > start_date_active AND end_date_active IS NULL));
516:
517: x_error_occured := l_error_occured;
518: fnd_message.set_name('PA','PA_PR_TOO_MANY_MGRS');
519: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
520: --fnd_message.set_token('PROCEDURE_NAME','VALIDATE_NO_OVERLAP_MANAGER');
521: fnd_msg_pub.ADD;
522: --dbms_output.put_line('here');
515: OR (p_start_date_active > start_date_active AND end_date_active IS NULL));
516:
517: x_error_occured := l_error_occured;
518: fnd_message.set_name('PA','PA_PR_TOO_MANY_MGRS');
519: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
520: --fnd_message.set_token('PROCEDURE_NAME','VALIDATE_NO_OVERLAP_MANAGER');
521: fnd_msg_pub.ADD;
522: --dbms_output.put_line('here');
523: pa_debug.reset_err_stack;
516:
517: x_error_occured := l_error_occured;
518: fnd_message.set_name('PA','PA_PR_TOO_MANY_MGRS');
519: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
520: --fnd_message.set_token('PROCEDURE_NAME','VALIDATE_NO_OVERLAP_MANAGER');
521: fnd_msg_pub.ADD;
522: --dbms_output.put_line('here');
523: pa_debug.reset_err_stack;
524:
525: EXCEPTION
526: WHEN NO_DATA_FOUND THEN
527: x_error_occured := 'N';
528: WHEN TOO_MANY_ROWS THEN
529: fnd_message.set_name('PA','PA_PR_TOO_MANY_MGRS');
530: fnd_msg_pub.ADD;
531: x_error_occured := 'Y';
532: WHEN OTHERS THEN
533: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_UTILS',
565: OR (p_start_date_active > start_date_active AND end_date_active IS NULL));
566:
567: x_error_occured := l_error_occured;
568: --dbms_output.put_line(l_error_occured);
569: fnd_message.set_name('PA','PA_XC_TOO_MANY_OMGRS');
570: --fnd_message.set_token('PKG_NAME',to_char(p_project_role_id));
571: --fnd_message.set_token('PROCEDURE_NAME',to_char(p_resource_source_id));
572: fnd_msg_pub.ADD;
573: pa_debug.reset_err_stack;
566:
567: x_error_occured := l_error_occured;
568: --dbms_output.put_line(l_error_occured);
569: fnd_message.set_name('PA','PA_XC_TOO_MANY_OMGRS');
570: --fnd_message.set_token('PKG_NAME',to_char(p_project_role_id));
571: --fnd_message.set_token('PROCEDURE_NAME',to_char(p_resource_source_id));
572: fnd_msg_pub.ADD;
573: pa_debug.reset_err_stack;
574: EXCEPTION WHEN NO_DATA_FOUND THEN
567: x_error_occured := l_error_occured;
568: --dbms_output.put_line(l_error_occured);
569: fnd_message.set_name('PA','PA_XC_TOO_MANY_OMGRS');
570: --fnd_message.set_token('PKG_NAME',to_char(p_project_role_id));
571: --fnd_message.set_token('PROCEDURE_NAME',to_char(p_resource_source_id));
572: fnd_msg_pub.ADD;
573: pa_debug.reset_err_stack;
574: EXCEPTION WHEN NO_DATA_FOUND THEN
575: x_error_occured := 'N';
573: pa_debug.reset_err_stack;
574: EXCEPTION WHEN NO_DATA_FOUND THEN
575: x_error_occured := 'N';
576: WHEN TOO_MANY_ROWS THEN
577: fnd_message.set_name('PA','PA_XC_TOO_MANY_OMGRS');
578: fnd_msg_pub.ADD;
579: x_error_occured := 'Y';
580: WHEN OTHERS THEN
581: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_UTILS',
597: WHERE (meaning = p_project_role_type AND p_calling_module <> 'FORM')
598: OR (project_role_type = p_project_role_type AND p_calling_module = 'FORM');
599: RETURN l_project_role_id;
600: EXCEPTION WHEN NO_DATA_FOUND THEN
601: fnd_message.set_name('PA','PA_XC_NO_ROLE_TYPE');
602: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
603: --fnd_message.set_token('PROCEDURE_NAME','GET_PROJECT_ROLE_ID');
604: fnd_msg_pub.ADD;
605: RETURN -999;
598: OR (project_role_type = p_project_role_type AND p_calling_module = 'FORM');
599: RETURN l_project_role_id;
600: EXCEPTION WHEN NO_DATA_FOUND THEN
601: fnd_message.set_name('PA','PA_XC_NO_ROLE_TYPE');
602: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
603: --fnd_message.set_token('PROCEDURE_NAME','GET_PROJECT_ROLE_ID');
604: fnd_msg_pub.ADD;
605: RETURN -999;
606: END;
599: RETURN l_project_role_id;
600: EXCEPTION WHEN NO_DATA_FOUND THEN
601: fnd_message.set_name('PA','PA_XC_NO_ROLE_TYPE');
602: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
603: --fnd_message.set_token('PROCEDURE_NAME','GET_PROJECT_ROLE_ID');
604: fnd_msg_pub.ADD;
605: RETURN -999;
606: END;
607: ELSE
604: fnd_msg_pub.ADD;
605: RETURN -999;
606: END;
607: ELSE
608: fnd_message.set_name('PA','PA_XC_NO_ROLE_TYPE');
609: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
610: --fnd_message.set_token('PROCEDURE_NAME','GET_PROJECT_ROLE_ID');
611: fnd_msg_pub.ADD;
612: RETURN -999;
605: RETURN -999;
606: END;
607: ELSE
608: fnd_message.set_name('PA','PA_XC_NO_ROLE_TYPE');
609: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
610: --fnd_message.set_token('PROCEDURE_NAME','GET_PROJECT_ROLE_ID');
611: fnd_msg_pub.ADD;
612: RETURN -999;
613: END IF;
606: END;
607: ELSE
608: fnd_message.set_name('PA','PA_XC_NO_ROLE_TYPE');
609: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
610: --fnd_message.set_token('PROCEDURE_NAME','GET_PROJECT_ROLE_ID');
611: fnd_msg_pub.ADD;
612: RETURN -999;
613: END IF;
614: END;
623: WHERE full_name = p_resource_name
624: AND active = '*';
625: RETURN l_resource_id;
626: EXCEPTION WHEN NO_DATA_FOUND THEN
627: fnd_message.set_name('PA','PA_XC_NO_PERSON_ID');
628: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
629: --fnd_message.set_token('PROCEDURE_NAME','GET_RESOURCE_SOURCE_ID');
630: fnd_msg_pub.ADD;
631: RETURN -999;
624: AND active = '*';
625: RETURN l_resource_id;
626: EXCEPTION WHEN NO_DATA_FOUND THEN
627: fnd_message.set_name('PA','PA_XC_NO_PERSON_ID');
628: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
629: --fnd_message.set_token('PROCEDURE_NAME','GET_RESOURCE_SOURCE_ID');
630: fnd_msg_pub.ADD;
631: RETURN -999;
632: WHEN TOO_MANY_ROWS THEN
625: RETURN l_resource_id;
626: EXCEPTION WHEN NO_DATA_FOUND THEN
627: fnd_message.set_name('PA','PA_XC_NO_PERSON_ID');
628: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
629: --fnd_message.set_token('PROCEDURE_NAME','GET_RESOURCE_SOURCE_ID');
630: fnd_msg_pub.ADD;
631: RETURN -999;
632: WHEN TOO_MANY_ROWS THEN
633: fnd_message.set_name('PA','PA_TOO_MANY_PERSONS');
629: --fnd_message.set_token('PROCEDURE_NAME','GET_RESOURCE_SOURCE_ID');
630: fnd_msg_pub.ADD;
631: RETURN -999;
632: WHEN TOO_MANY_ROWS THEN
633: fnd_message.set_name('PA','PA_TOO_MANY_PERSONS');
634: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
635: --fnd_message.set_token('PROCEDURE_NAME','GET_RESOURCE_SOURCE_ID');
636: fnd_msg_pub.ADD;
637: RETURN -999;
630: fnd_msg_pub.ADD;
631: RETURN -999;
632: WHEN TOO_MANY_ROWS THEN
633: fnd_message.set_name('PA','PA_TOO_MANY_PERSONS');
634: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
635: --fnd_message.set_token('PROCEDURE_NAME','GET_RESOURCE_SOURCE_ID');
636: fnd_msg_pub.ADD;
637: RETURN -999;
638: END;
631: RETURN -999;
632: WHEN TOO_MANY_ROWS THEN
633: fnd_message.set_name('PA','PA_TOO_MANY_PERSONS');
634: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
635: --fnd_message.set_token('PROCEDURE_NAME','GET_RESOURCE_SOURCE_ID');
636: fnd_msg_pub.ADD;
637: RETURN -999;
638: END;
639: ELSE
636: fnd_msg_pub.ADD;
637: RETURN -999;
638: END;
639: ELSE
640: fnd_message.set_name('PA','PA_XC_NO_PERSON_ID');
641: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
642: --fnd_message.set_token('PROCEDURE_NAME','GET_RESOURCE_SOURCE_ID');
643: fnd_msg_pub.ADD;
644: RETURN -999;
637: RETURN -999;
638: END;
639: ELSE
640: fnd_message.set_name('PA','PA_XC_NO_PERSON_ID');
641: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
642: --fnd_message.set_token('PROCEDURE_NAME','GET_RESOURCE_SOURCE_ID');
643: fnd_msg_pub.ADD;
644: RETURN -999;
645: END IF;
638: END;
639: ELSE
640: fnd_message.set_name('PA','PA_XC_NO_PERSON_ID');
641: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');
642: --fnd_message.set_token('PROCEDURE_NAME','GET_RESOURCE_SOURCE_ID');
643: fnd_msg_pub.ADD;
644: RETURN -999;
645: END IF;
646: END;
811: x_error_occured := 'N';
812:
813: IF (l_role_party_class = 'PERSON' AND l_party_type <> 'PERSON') OR
814: (l_role_party_class <> 'PERSON' AND l_party_type = 'PERSON') THEN
815: fnd_message.set_name('PA','PA_XC_NO_ROLE_TYPE');
816: fnd_msg_pub.ADD;
817: x_error_occured := 'Y';
818: END IF;
819: