DBA Data[Home] [Help]

APPS.PA_PROJECT_PARTIES_PVT dependencies on PA_PROJECT_PARTIES

Line 1: package body PA_PROJECT_PARTIES_PVT as

1: package body PA_PROJECT_PARTIES_PVT as
2: /* $Header: PARPPUTB.pls 120.12.12010000.3 2008/11/30 08:49:36 jcgeorge ship $ */
3:
4: P_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
5:

Line 84: pa_project_parties_utils.validate_project_party(

80: pa_debug.debug('Create_project_party: Calling validate_project_party.');
81: END IF;
82: end if;
83: pa_debug.G_err_stage := 'Calling validate_project_party';
84: pa_project_parties_utils.validate_project_party(
85: p_validation_level,
86: p_debug_mode,
87: p_object_id,
88: p_OBJECT_TYPE,

Line 262: PA_PROJECT_PARTIES_PKG.UPDATE_ROW (

258: x_resource_id := l_resource_id;
259:
260: --dbms_output.put_line('calling update');
261: pa_debug.G_err_stage := 'Calling update_row from create_project_party';
262: PA_PROJECT_PARTIES_PKG.UPDATE_ROW (
263: X_PROJECT_PARTY_ID => l_project_party_id,
264: X_PROJECT_ID => l_project_id,
265: X_RESOURCE_SOURCE_ID => p_resource_source_id,
266: X_RESOURCE_TYPE_ID => p_resource_type_id,

Line 280: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');

276: X_RETURN_STATUS => x_return_status);
277: if (x_return_status = 'N') then
278: if p_calling_module = 'FORM' then
279: fnd_message.set_name('FND','FORM_RECORD_CHANGED');
280: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
281: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
282: fnd_msg_pub.add;
283: else
284: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');

Line 285: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');

281: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
282: fnd_msg_pub.add;
283: else
284: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');
285: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
286: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
287: fnd_msg_pub.add;
288:
289: end if;

Line 318: PA_PROJECT_PARTIES_PKG.INSERT_ROW (

314: END IF;
315: end if;
316: pa_debug.G_err_stage := 'Calling insert_row';
317: ----dbms_output.put_line('calling insert');
318: PA_PROJECT_PARTIES_PKG.INSERT_ROW (
319: X_PROJECT_PARTY_ID => x_project_party_id,
320: X_OBJECT_ID => p_object_id,
321: X_OBJECT_TYPE => p_object_type,
322: X_PROJECT_ID => l_project_id,

Line 376: PA_PROJECT_PARTIES_UTILS.validate_manager_date_range( p_mode => 'SS'

372: Manager exists for the complete duration of the Project. */
373:
374: IF (p_mgr_validation_type = 'SS' OR p_calling_module = 'ASSIGNMENT') THEN
375: l_error_occured := 'N';
376: PA_PROJECT_PARTIES_UTILS.validate_manager_date_range( p_mode => 'SS'
377: ,p_project_id => l_project_id
378: ,x_start_no_mgr_date => l_start_no_mgr_date
379: ,x_end_no_mgr_date => l_end_no_mgr_date
380: ,x_error_occured => l_error_occured);

Line 402: PA_PROJECT_PARTIES_UTILS.VALIDATE_ONE_MANAGER_EXISTS( p_project_id => l_project_id

398: /* Throw an error if there are no Project Managers assigned.
399: This has to be thrown irrespective of whether there are any Key Member records
400: being passed or not. So, it cannot be done in the above IF condition. */
401: IF l_project_id IS NOT NULL THEN
402: PA_PROJECT_PARTIES_UTILS.VALIDATE_ONE_MANAGER_EXISTS( p_project_id => l_project_id
403: ,x_return_status => x_return_status
404: ,x_msg_count => x_msg_count
405: ,x_msg_data => x_msg_data );
406:

Line 454: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');

450:
451: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
453: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
454: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
455: fnd_message.set_token('PROCEDURE_NAME','CREATE_PROJECT_PARTY');
456: fnd_msg_pub.add();
457: fnd_msg_pub.count_and_get(p_count => x_msg_count,
458: p_data => x_msg_data);

Line 466: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_PUB',

462: if p_commit = FND_API.G_TRUE then
463: rollback to project_parties;
464: end if;
465: x_return_status := fnd_api.g_ret_sts_unexp_error;
466: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_PUB',
467: p_procedure_name => pa_debug.G_err_stack,
468: p_error_text => SUBSTRB(SQLERRM,1,240));
469: raise;
470:

Line 557: pa_project_parties_utils.validate_project_party(

553: pa_debug.debug('Update_project_party: Calling validate_project_party.');
554: END IF;
555: end if;
556: pa_debug.g_err_stage := 'Calling validate_project_party';
557: pa_project_parties_utils.validate_project_party(
558: p_validation_level,
559: p_debug_mode,
560: p_object_id,
561: p_OBJECT_TYPE,

Line 643: pa_project_parties_pvt.l_delete_proj_party := 'N';

639: -- call delete assignments api
640: --MT Only call the api if assignment_id is passed in
641: IF p_assignment_id > 0 THEN
642:
643: pa_project_parties_pvt.l_delete_proj_party := 'N';
644:
645: PA_ASSIGNMENTS_PUB.Delete_Assignment
646: ( p_assignment_id => p_assignment_id
647: ,p_assignment_type => 'STAFFED_ASSIGNMENT'

Line 657: pa_project_parties_pvt.l_delete_proj_party := 'Y';

653: ,x_msg_data => x_msg_data);
654:
655: END IF;
656:
657: pa_project_parties_pvt.l_delete_proj_party := 'Y';
658:
659: /* Code added for Bug 6501489 */
660: /*elsif x_assignment_action = 'NOACTION' THEN
661:

Line 704: l_grant_id := pa_project_parties_utils.get_grant_id(p_project_party_id => p_project_party_id);

700: END IF;
701: end if;
702:
703: /* FP-L status-based security
704: l_grant_id := pa_project_parties_utils.get_grant_id(p_project_party_id => p_project_party_id);
705:
706: if x_return_status = FND_API.G_RET_STS_SUCCESS and l_grant_id > 0 then
707: -- call fnd_grants
708: IF p_resource_type_id = 112 THEN

Line 736: PA_PROJECT_PARTIES_PKG.UPDATE_ROW (

732: l_grant_id := null;
733:
734: ----dbms_output.put_line('calling update api');
735: pa_debug.g_err_stage := 'Calling Update_row';
736: PA_PROJECT_PARTIES_PKG.UPDATE_ROW (
737: X_PROJECT_PARTY_ID => p_project_party_id,
738: X_PROJECT_ID => p_project_id,
739: X_RESOURCE_SOURCE_ID => p_resource_source_id,
740: X_RESOURCE_TYPE_ID => p_resource_type_id,

Line 755: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');

751: if (x_return_status = 'N') then
752: x_return_status := FND_API.G_RET_STS_ERROR;
753: if p_calling_module = 'FORM' then
754: fnd_message.set_name('FND','FORM_RECORD_CHANGED');
755: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
756: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
757: fnd_msg_pub.add;
758: else
759: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');

Line 787: PA_PROJECT_PARTIES_UTILS.validate_manager_date_range( p_mode => 'SS'

783: Manager exists for the complete duration of the Project. */
784:
785: IF ( p_mgr_validation_type = 'SS' OR p_calling_module = 'ASSIGNMENT') THEN
786: l_error_occured := 'N';
787: PA_PROJECT_PARTIES_UTILS.validate_manager_date_range( p_mode => 'SS'
788: ,p_project_id => p_project_id
789: ,x_start_no_mgr_date => l_start_no_mgr_date
790: ,x_end_no_mgr_date => l_end_no_mgr_date
791: ,x_error_occured => l_error_occured);

Line 813: PA_PROJECT_PARTIES_UTILS.VALIDATE_ONE_MANAGER_EXISTS( p_project_id => p_project_id

809: /* Throw an error if there are no Project Managers assigned.
810: This has to be thrown irrespective of whether there are any Key Member records
811: being passed or not. So, it cannot be done in the above IF condition. */
812: IF p_project_id IS NOT NULL THEN
813: PA_PROJECT_PARTIES_UTILS.VALIDATE_ONE_MANAGER_EXISTS( p_project_id => p_project_id
814: ,x_return_status => x_return_status
815: ,x_msg_count => x_msg_count
816: ,x_msg_data => x_msg_data );
817:

Line 865: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');

861:
862: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
864: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
865: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
866: fnd_message.set_token('PROCEDURE_NAME','UPDATE_PROJECT_PARTY');
867: fnd_msg_pub.add();
868: fnd_msg_pub.count_and_get(p_count => x_msg_count,
869: p_data => x_msg_data);

Line 878: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_PUB',

874: if p_commit = fnd_api.G_TRUE then
875: rollback to project_parties;
876: end if;
877: x_return_status := fnd_api.g_ret_sts_unexp_error;
878: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_PUB',
879: p_procedure_name => pa_debug.g_err_stack,
880: p_error_text => SUBSTRB(SQLERRM,1,240));
881: fnd_msg_pub.count_and_get(p_count => x_msg_count,
882: p_data => x_msg_data);

Line 924: FROM pa_project_parties po,

920: /*
921: CURSOR c_ext_people IS
922: SELECT pp.project_party_id project_party_id,
923: pp.record_version_number record_version_number
924: FROM pa_project_parties po,
925: pa_project_parties pp,
926: hz_party_relationships hzr
927: WHERE po.resource_type_id = 112
928: AND po.project_party_id = p_project_party_id

Line 925: pa_project_parties pp,

921: CURSOR c_ext_people IS
922: SELECT pp.project_party_id project_party_id,
923: pp.record_version_number record_version_number
924: FROM pa_project_parties po,
925: pa_project_parties pp,
926: hz_party_relationships hzr
927: WHERE po.resource_type_id = 112
928: AND po.project_party_id = p_project_party_id
929: AND pp.resource_type_id = 112

Line 940: FROM pa_project_parties po,

936:
937: CURSOR c_ext_people IS
938: SELECT pp.project_party_id project_party_id,
939: pp.record_version_number record_version_number
940: FROM pa_project_parties po,
941: pa_project_parties pp,
942: hz_relationships hzr
943: WHERE po.resource_type_id = 112
944: AND po.project_party_id = p_project_party_id

Line 941: pa_project_parties pp,

937: CURSOR c_ext_people IS
938: SELECT pp.project_party_id project_party_id,
939: pp.record_version_number record_version_number
940: FROM pa_project_parties po,
941: pa_project_parties pp,
942: hz_relationships hzr
943: WHERE po.resource_type_id = 112
944: AND po.project_party_id = p_project_party_id
945: AND pp.resource_type_id = 112

Line 1005: FROM pa_project_parties

1001: ( nvl(p_project_party_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM )) THEN
1002:
1003: SELECT project_id
1004: INTO l_project_id
1005: FROM pa_project_parties
1006: WHERE project_party_id = p_project_party_id;
1007:
1008: END IF;
1009:

Line 1010: if (pa_project_parties_pvt.l_delete_proj_party = 'Y') then

1006: WHERE project_party_id = p_project_party_id;
1007:
1008: END IF;
1009:
1010: if (pa_project_parties_pvt.l_delete_proj_party = 'Y') then
1011:
1012: if pa_project_parties_utils.validate_delete_party_ok(l_project_id,p_project_party_id) = 'Y' then
1013:
1014: --Deleting all external people before deleting the org.

Line 1012: if pa_project_parties_utils.validate_delete_party_ok(l_project_id,p_project_party_id) = 'Y' then

1008: END IF;
1009:
1010: if (pa_project_parties_pvt.l_delete_proj_party = 'Y') then
1011:
1012: if pa_project_parties_utils.validate_delete_party_ok(l_project_id,p_project_party_id) = 'Y' then
1013:
1014: --Deleting all external people before deleting the org.
1015: FOR rec IN c_ext_people LOOP
1016: pa_project_parties_pvt.delete_project_party(

Line 1016: pa_project_parties_pvt.delete_project_party(

1012: if pa_project_parties_utils.validate_delete_party_ok(l_project_id,p_project_party_id) = 'Y' then
1013:
1014: --Deleting all external people before deleting the org.
1015: FOR rec IN c_ext_people LOOP
1016: pa_project_parties_pvt.delete_project_party(
1017: p_commit => p_commit,
1018: p_validate_only => p_validate_only,
1019: p_validation_level => p_validation_level,
1020: p_debug_mode => p_debug_mode,

Line 1054: l_grant_id := pa_project_parties_utils.get_grant_id(p_project_party_id => p_project_party_id);

1050: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1051: RETURN;
1052: END IF;
1053:
1054: l_grant_id := pa_project_parties_utils.get_grant_id(p_project_party_id => p_project_party_id);
1055: pa_debug.g_err_stage := 'Calling delete_row';
1056: pa_project_parties_pkg.delete_row(x_project_id => l_project_id,
1057: x_project_party_id => p_project_party_id,
1058: x_record_version_number => p_record_version_number);

Line 1056: pa_project_parties_pkg.delete_row(x_project_id => l_project_id,

1052: END IF;
1053:
1054: l_grant_id := pa_project_parties_utils.get_grant_id(p_project_party_id => p_project_party_id);
1055: pa_debug.g_err_stage := 'Calling delete_row';
1056: pa_project_parties_pkg.delete_row(x_project_id => l_project_id,
1057: x_project_party_id => p_project_party_id,
1058: x_record_version_number => p_record_version_number);
1059: end if;
1060:

Line 1083: PA_PROJECT_PARTIES_UTILS.validate_manager_date_range( p_mode => 'SS'

1079: Manager exists for the complete duration of the Project. */
1080:
1081: IF ( p_mgr_validation_type = 'SS' OR p_calling_module = 'ASSIGNMENT') THEN
1082: l_error_occured := 'N';
1083: PA_PROJECT_PARTIES_UTILS.validate_manager_date_range( p_mode => 'SS'
1084: ,p_project_id => l_project_id
1085: ,x_start_no_mgr_date => l_start_no_mgr_date
1086: ,x_end_no_mgr_date => l_end_no_mgr_date
1087: ,x_error_occured => l_error_occured);

Line 1109: PA_PROJECT_PARTIES_UTILS.VALIDATE_ONE_MANAGER_EXISTS( p_project_id => l_project_id

1105: /* Throw an error if there are no Project Managers assigned.
1106: This has to be thrown irrespective of whether there are any Key Member records
1107: being passed or not. So, it cannot be done in the above IF condition. */
1108: IF p_project_id IS NOT NULL THEN
1109: PA_PROJECT_PARTIES_UTILS.VALIDATE_ONE_MANAGER_EXISTS( p_project_id => l_project_id
1110: ,x_return_status => x_return_status
1111: ,x_msg_count => x_msg_count
1112: ,x_msg_data => x_msg_data );
1113:

Line 1143: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PVT');

1139:
1140: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1142: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
1143: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PVT');
1144: fnd_message.set_token('PROCEDURE_NAME','DELETE_PROJECT_PARTY');
1145: fnd_msg_pub.add();
1146: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1147: p_data => x_msg_data);

Line 1189: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_PUB',

1185: FND_MESSAGE.Set_Name('PA', 'PA_XC_ROW_ALREADY_LOCKED');
1186: x_msg_data := FND_MESSAGE.get;
1187: x_return_status := FND_API.G_RET_STS_ERROR;
1188: else
1189: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_PUB',
1190: p_procedure_name => pa_debug.g_err_stack,
1191: p_error_text => SUBSTRB(SQLERRM,1,240));
1192: x_return_status := FND_API.G_RET_STS_ERROR;
1193: end if;