DBA Data[Home] [Help]

APPS.PA_PROJECT_PARTIES_UTILS dependencies on PA_PROJECT_PARTIES_UTILS

Line 1: PACKAGE BODY PA_PROJECT_PARTIES_UTILS AS

1: PACKAGE BODY PA_PROJECT_PARTIES_UTILS AS
2: /* $Header: PARPPU2B.pls 120.7 2006/03/28 00:24:38 sunkalya noship $ */
3:
4: P_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
5:

Line 51: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');

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;

Line 131: pa_project_parties_utils.check_mandatory_fields(p_project_role_id => p_project_role_id,

127: --- call to check all mandatory fields are given
128: IF (p_debug_mode = 'Y') THEN
129: pa_debug.debug('Validate_project_party: Calling check_mandatory_fields.');
130: END IF;
131: pa_project_parties_utils.check_mandatory_fields(p_project_role_id => p_project_role_id,
132: p_resource_type_id => p_resource_type_id,
133: p_resource_source_id => p_resource_source_id,
134: p_start_date_active => p_start_date_active,
135: p_end_date_active => p_end_date_active,

Line 151: pa_project_parties_utils.Validate_role_party(p_project_role_id => p_project_role_id,

147: IF (p_debug_mode = 'Y') THEN
148: pa_debug.debug('Validate_role_party: Calling Validate_role_party.');
149: END IF;
150:
151: pa_project_parties_utils.Validate_role_party(p_project_role_id => p_project_role_id,
152: p_resource_type_id => p_resource_type_id,
153: p_resource_source_id => p_resource_source_id,
154: x_error_occured => l_error_occured);
155:

Line 165: pa_project_parties_utils.validate_dates(p_start_date_active => p_start_date_active,

161: --- call to validate the start and end dates for the person
162: IF (p_debug_mode = 'Y') THEN
163: pa_debug.debug('Validate_project_party: Calling validate_dates.');
164: END IF;
165: pa_project_parties_utils.validate_dates(p_start_date_active => p_start_date_active,
166: p_end_date_active => p_end_date_active,
167: x_error_occured => l_error_occured);
168:
169: IF (l_error_occured = 'Y') THEN

Line 196: IF (p_action = 'INSERT' OR pa_project_parties_utils.get_scheduled_flag(p_project_party_id, p_record_version_number) <> p_scheduled_flag) THEN

192: x_assignment_action := 'NOACTION';
193:
194: IF (p_calling_module NOT IN ('EXCHANGE','FORM')) THEN
195:
196: IF (p_action = 'INSERT' OR pa_project_parties_utils.get_scheduled_flag(p_project_party_id, p_record_version_number) <> p_scheduled_flag) THEN
197:
198: IF p_resource_type_id = 112 THEN
199: IF (p_debug_mode = 'Y') THEN
200: pa_debug.debug('Validate_project_party: Looking for customer org duplicate.');

Line 228: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');

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

Line 256: pa_project_parties_utils.get_person_party_id(p_object_type => p_object_type,

252: --dbms_output.put_line('trying to get person id');
253: IF (p_debug_mode = 'Y') THEN
254: pa_debug.debug('Validate_project_party: Getting the project party id.');
255: END IF;
256: pa_project_parties_utils.get_person_party_id(p_object_type => p_object_type,
257: p_object_id => p_object_id,
258: p_project_role_id => p_project_role_id,
259: p_resource_type_id => p_resource_type_id,
260: p_resource_source_id => p_resource_source_id,

Line 269: IF pa_project_parties_utils.get_scheduled_flag(l_project_party_id, l_record_version_number) <> 'Y' THEN

265:
266: --dbms_output.put_line('person id'||to_char(l_project_party_id));
267: IF l_project_party_id <> -999 THEN
268: x_call_overlap := 'N';
269: IF pa_project_parties_utils.get_scheduled_flag(l_project_party_id, l_record_version_number) <> 'Y' THEN
270: p_project_party_id := l_project_party_id;
271: p_record_version_number := l_record_version_number;
272: ELSE
273: --dbms_output.put_line('cannot create duplicate record');

Line 276: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');

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;

Line 291: pa_project_parties_utils.validate_no_overlap_manager(p_object_type => p_object_type,

287: IF p_project_role_id = 1 THEN -- hard coded for Project Manager
288: IF (p_debug_mode = 'Y') THEN
289: pa_debug.debug('Validate_project_party: Calling validate_no_overlap_manager.');
290: END IF;
291: pa_project_parties_utils.validate_no_overlap_manager(p_object_type => p_object_type,
292: p_object_id => p_object_id,
293: p_project_role_id => p_project_role_id,
294: p_project_party_id => p_project_party_id,
295: p_start_date_active => p_start_date_active,

Line 306: pa_project_parties_utils.validate_person_not_overlapped(p_object_type => p_object_type,

302: ELSE
303: IF (p_debug_mode = 'Y') THEN
304: pa_debug.debug('Validate_project_party: Calling validate_person_not_overlapped.');
305: END IF;
306: pa_project_parties_utils.validate_person_not_overlapped(p_object_type => p_object_type,
307: p_object_id => p_object_id,
308: p_project_role_id => p_project_role_id,
309: p_project_party_id => p_project_party_id,
310: p_resource_type_id => p_resource_type_id,

Line 325: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_UTILS',

321:
322: EXCEPTION WHEN OTHERS THEN
323: p_end_date_active := l_end_date_active; --Bug 4565156 NOCOPY changes
324: x_return_status := fnd_api.g_ret_sts_unexp_error;
325: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_UTILS',
326: p_procedure_name => 'VALIDATE_PROJECT_PARTY',
327: p_error_text => SUBSTRB(SQLERRM,1,240));
328: RAISE;
329:

Line 349: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');

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

Line 354: fnd_msg_pub.add_exc_msg(p_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',
355: p_procedure_name => pa_debug.g_err_stack,
356: p_error_text => SUBSTRB(SQLERRM,1,240));
357: RAISE;
358: END GET_SCHEDULED_FLAG;

Line 373: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_UTILS',

369:
370: RETURN x_sch_flag;
371:
372: EXCEPTION WHEN OTHERS THEN
373: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_UTILS',
374: p_procedure_name => pa_debug.g_err_stack,
375: p_error_text => SUBSTRB(SQLERRM,1,240));
376: RAISE;
377: END VALIDATE_SCHEDULE_ALLOWED;

Line 408: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_UTILS',

404:
405: EXCEPTION WHEN NO_DATA_FOUND THEN
406: x_project_party_id := -999;
407: WHEN OTHERS THEN
408: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_UTILS',
409: p_procedure_name => pa_debug.g_err_stack,
410: p_error_text => SUBSTRB(SQLERRM,1,240));
411: RAISE;
412: END GET_PERSON_PARTY_ID;

Line 428: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');

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';

Line 437: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');

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';

Line 446: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');

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';

Line 454: IF (p_scheduled_flag = 'Y' AND pa_project_parties_utils.validate_schedule_allowed(p_project_role_id)='Y') THEN

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');

Line 457: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');

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');

Line 483: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');

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;

Line 519: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');

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;

Line 533: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_UTILS',

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',
534: p_procedure_name => pa_debug.g_err_stack,
535: p_error_text => SUBSTRB(SQLERRM,1,240));
536: RAISE;
537: END VALIDATE_NO_OVERLAP_MANAGER;

Line 581: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_UTILS',

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',
582: p_procedure_name => pa_debug.g_err_stack,
583: p_error_text => SUBSTRB(SQLERRM,1,240));
584: RAISE;
585:

Line 602: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');

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;

Line 609: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');

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;

Line 628: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');

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

Line 634: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');

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;

Line 641: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_UTILS');

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;

Line 675: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_UTILS',

671:
672: EXCEPTION WHEN NO_DATA_FOUND THEN
673: RETURN NULL;
674: WHEN OTHERS THEN
675: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_UTILS',
676: p_procedure_name => pa_debug.g_err_stack,
677: p_error_text => SUBSTRB(SQLERRM,1,240));
678: RAISE;
679: END;

Line 754: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_UTILS',

750: WHEN NO_DATA_FOUND THEN
751: x_return_status := FND_API.G_RET_STS_ERROR;
752: x_error_message_code := 'PA_NO_PROJ_MGR_EXISTS';
753: WHEN OTHERS THEN
754: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_UTILS',
755: p_procedure_name => pa_debug.g_err_stack,
756: p_error_text => SUBSTRB(SQLERRM,1,240));
757: RAISE;
758: END GET_CURR_PROJ_MGR_DETAILS;

Line 823: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_UTILS',

819:
820: pa_debug.reset_err_stack;
821: EXCEPTION
822: WHEN OTHERS THEN
823: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_UTILS',
824: p_procedure_name => pa_debug.g_err_stack,
825: p_error_text => SUBSTRB(SQLERRM,1,240));
826: RAISE;
827: END VALIDATE_ROLE_PARTY;

Line 853: PA_PROJECT_PARTIES_UTILS.G_PROJECT_MANAGER_ID := null;

849: l_project_start_date DATE;
850:
851: BEGIN
852:
853: PA_PROJECT_PARTIES_UTILS.G_PROJECT_MANAGER_ID := null;
854:
855: l_project_finish_date := PA_PROJECT_DATES_UTILS.Get_Project_Finish_Date(p_project_id);
856:
857: -- return project manager as of project finish date for past projects

Line 880: PA_PROJECT_PARTIES_UTILS.G_PROJECT_MANAGER_ID := l_return_value;

876: END IF;
877:
878: END IF;
879:
880: PA_PROJECT_PARTIES_UTILS.G_PROJECT_MANAGER_ID := l_return_value;
881: RETURN l_return_value;
882:
883: END;
884:

Line 899: IF PA_PROJECT_PARTIES_UTILS.G_PROJECT_MANAGER_ID is not null THEN

895:
896: l_return_value VARCHAR2(250);
897: BEGIN
898:
899: IF PA_PROJECT_PARTIES_UTILS.G_PROJECT_MANAGER_ID is not null THEN
900:
901: OPEN C1(PA_PROJECT_PARTIES_UTILS.G_PROJECT_MANAGER_ID);
902: FETCH C1 INTO l_return_value;
903: CLOSE C1;

Line 901: OPEN C1(PA_PROJECT_PARTIES_UTILS.G_PROJECT_MANAGER_ID);

897: BEGIN
898:
899: IF PA_PROJECT_PARTIES_UTILS.G_PROJECT_MANAGER_ID is not null THEN
900:
901: OPEN C1(PA_PROJECT_PARTIES_UTILS.G_PROJECT_MANAGER_ID);
902: FETCH C1 INTO l_return_value;
903: CLOSE C1;
904: END IF;
905:

Line 1253: ( p_pkg_name => 'PA_PROJECT_PARTIES_UTILS.VALIDATE_ONE_MANAGER_EXISTS'

1249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1250: x_msg_count := 1;
1251: x_msg_data := SQLERRM;
1252: FND_MSG_PUB.add_exc_msg
1253: ( p_pkg_name => 'PA_PROJECT_PARTIES_UTILS.VALIDATE_ONE_MANAGER_EXISTS'
1254: ,p_procedure_name => pa_debug.G_Err_Stack );
1255: IF P_DEBUG_MODE = 'Y' THEN
1256: pa_debug.write('VALIDATE_ONE_MANAGER_EXISTS: ', SQLERRM, 3);
1257: pa_debug.write('VALIDATE_ONE_MANAGER_EXISTS: ', pa_debug.G_Err_Stack, 3);

Line 1296: PA_PROJECT_PARTIES_UTILS.G_PROJECT_MANAGER_ID := null;

1292:
1293: l_return_value NUMBER(10);
1294: BEGIN
1295:
1296: PA_PROJECT_PARTIES_UTILS.G_PROJECT_MANAGER_ID := null;
1297:
1298: OPEN C1 (sysdate);
1299: FETCH C1 INTO l_return_value;
1300: CLOSE C1;

Line 1303: PA_PROJECT_PARTIES_UTILS.G_PROJECT_MANAGER_ID := l_return_value;

1299: FETCH C1 INTO l_return_value;
1300: CLOSE C1;
1301:
1302:
1303: PA_PROJECT_PARTIES_UTILS.G_PROJECT_MANAGER_ID := l_return_value;
1304: RETURN l_return_value;
1305:
1306: END GET_CURRENT_PROJECT_MANAGER;
1307:

Line 1354: END PA_PROJECT_PARTIES_UTILS;

1350:
1351: RETURN l_return_value;
1352: END GET_CURRENT_PROJ_MANAGER_NAME;
1353:
1354: END PA_PROJECT_PARTIES_UTILS;
1355: