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.12 2011/12/06 21:14:11 skkoppul ship $ */
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 132: pa_project_parties_utils.check_mandatory_fields(p_project_role_id => p_project_role_id,

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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;

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

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;

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

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

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

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

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

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;

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

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;

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

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

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

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;

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

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;

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

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

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

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

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

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

Line 856: PA_PROJECT_PARTIES_UTILS.G_PROJECT_MANAGER_ID := null;

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

Line 883: PA_PROJECT_PARTIES_UTILS.G_PROJECT_MANAGER_ID := l_return_value;

879: END IF;
880:
881: END IF;
882:
883: PA_PROJECT_PARTIES_UTILS.G_PROJECT_MANAGER_ID := l_return_value;
884: RETURN l_return_value;
885:
886: END;
887:

Line 902: IF PA_PROJECT_PARTIES_UTILS.G_PROJECT_MANAGER_ID is not null THEN

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

Line 904: OPEN C1(PA_PROJECT_PARTIES_UTILS.G_PROJECT_MANAGER_ID);

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

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

1263: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1264: x_msg_count := 1;
1265: x_msg_data := SQLERRM;
1266: FND_MSG_PUB.add_exc_msg
1267: ( p_pkg_name => 'PA_PROJECT_PARTIES_UTILS.VALIDATE_ONE_MANAGER_EXISTS'
1268: ,p_procedure_name => pa_debug.G_Err_Stack );
1269: IF P_DEBUG_MODE = 'Y' THEN
1270: pa_debug.write('VALIDATE_ONE_MANAGER_EXISTS: ', SQLERRM, 3);
1271: pa_debug.write('VALIDATE_ONE_MANAGER_EXISTS: ', pa_debug.G_Err_Stack, 3);

Line 1310: PA_PROJECT_PARTIES_UTILS.G_PROJECT_MANAGER_ID := null;

1306:
1307: l_return_value NUMBER(10);
1308: BEGIN
1309:
1310: PA_PROJECT_PARTIES_UTILS.G_PROJECT_MANAGER_ID := null;
1311:
1312: OPEN C1 (sysdate);
1313: FETCH C1 INTO l_return_value;
1314: CLOSE C1;

Line 1317: PA_PROJECT_PARTIES_UTILS.G_PROJECT_MANAGER_ID := l_return_value;

1313: FETCH C1 INTO l_return_value;
1314: CLOSE C1;
1315:
1316:
1317: PA_PROJECT_PARTIES_UTILS.G_PROJECT_MANAGER_ID := l_return_value;
1318: RETURN l_return_value;
1319:
1320: END GET_CURRENT_PROJECT_MANAGER;
1321:

Line 1370: END PA_PROJECT_PARTIES_UTILS;

1366:
1367: RETURN l_return_value;
1368: END GET_CURRENT_PROJ_MANAGER_NAME;
1369:
1370: END PA_PROJECT_PARTIES_UTILS;
1371: