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.6 2009/08/21 12:00:43 nkapling ship $ */
3:
4: P_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
5:

Line 86: pa_project_parties_utils.validate_project_party(

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

Line 281: PA_PROJECT_PARTIES_PKG.UPDATE_ROW (

277: x_resource_id := l_resource_id;
278:
279: --dbms_output.put_line('calling update');
280: pa_debug.G_err_stage := 'Calling update_row from create_project_party';
281: PA_PROJECT_PARTIES_PKG.UPDATE_ROW (
282: X_PROJECT_PARTY_ID => l_project_party_id,
283: X_PROJECT_ID => l_project_id,
284: X_RESOURCE_SOURCE_ID => p_resource_source_id,
285: X_RESOURCE_TYPE_ID => p_resource_type_id,

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

295: X_RETURN_STATUS => x_return_status);
296: if (x_return_status = 'N') then
297: if p_calling_module = 'FORM' then
298: fnd_message.set_name('FND','FORM_RECORD_CHANGED');
299: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
300: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
301: fnd_msg_pub.add;
302: else
303: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');

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

300: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
301: fnd_msg_pub.add;
302: else
303: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');
304: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
305: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
306: fnd_msg_pub.add;
307:
308: end if;

Line 337: PA_PROJECT_PARTIES_PKG.INSERT_ROW (

333: END IF;
334: end if;
335: pa_debug.G_err_stage := 'Calling insert_row';
336: ----dbms_output.put_line('calling insert');
337: PA_PROJECT_PARTIES_PKG.INSERT_ROW (
338: X_PROJECT_PARTY_ID => x_project_party_id,
339: X_OBJECT_ID => p_object_id,
340: X_OBJECT_TYPE => p_object_type,
341: X_PROJECT_ID => l_project_id,

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

391: Manager exists for the complete duration of the Project. */
392:
393: IF (p_mgr_validation_type = 'SS' OR p_calling_module = 'ASSIGNMENT') THEN
394: l_error_occured := 'N';
395: PA_PROJECT_PARTIES_UTILS.validate_manager_date_range( p_mode => 'SS'
396: ,p_project_id => l_project_id
397: ,x_start_no_mgr_date => l_start_no_mgr_date
398: ,x_end_no_mgr_date => l_end_no_mgr_date
399: ,x_error_occured => l_error_occured);

Line 421: PA_PROJECT_PARTIES_UTILS.VALIDATE_ONE_MANAGER_EXISTS( p_project_id => l_project_id

417: /* Throw an error if there are no Project Managers assigned.
418: This has to be thrown irrespective of whether there are any Key Member records
419: being passed or not. So, it cannot be done in the above IF condition. */
420: IF l_project_id IS NOT NULL THEN
421: PA_PROJECT_PARTIES_UTILS.VALIDATE_ONE_MANAGER_EXISTS( p_project_id => l_project_id
422: ,x_return_status => x_return_status
423: ,x_msg_count => x_msg_count
424: ,x_msg_data => x_msg_data );
425:

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

469:
470: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
472: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
473: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
474: fnd_message.set_token('PROCEDURE_NAME','CREATE_PROJECT_PARTY');
475: fnd_msg_pub.add();
476: fnd_msg_pub.count_and_get(p_count => x_msg_count,
477: p_data => x_msg_data);

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

481: if p_commit = FND_API.G_TRUE then
482: rollback to project_parties;
483: end if;
484: x_return_status := fnd_api.g_ret_sts_unexp_error;
485: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_PUB',
486: p_procedure_name => pa_debug.G_err_stack,
487: p_error_text => SUBSTRB(SQLERRM,1,240));
488: raise;
489:

Line 577: pa_project_parties_utils.validate_project_party(

573: pa_debug.debug('Update_project_party: Calling validate_project_party.');
574: END IF;
575: end if;
576: pa_debug.g_err_stage := 'Calling validate_project_party';
577: pa_project_parties_utils.validate_project_party(
578: p_validation_level,
579: p_debug_mode,
580: p_object_id,
581: p_OBJECT_TYPE,

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

676: -- call delete assignments api
677: --MT Only call the api if assignment_id is passed in
678: IF p_assignment_id > 0 THEN
679:
680: pa_project_parties_pvt.l_delete_proj_party := 'N';
681:
682: PA_ASSIGNMENTS_PUB.Delete_Assignment
683: ( p_assignment_id => p_assignment_id
684: ,p_assignment_type => 'STAFFED_ASSIGNMENT'

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

690: ,x_msg_data => x_msg_data);
691:
692: END IF;
693:
694: pa_project_parties_pvt.l_delete_proj_party := 'Y';
695:
696: /* Code added for Bug 6631033 */
697: elsif x_assignment_action = 'NOACTION' THEN
698:

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

737: END IF;
738: end if;
739:
740: /* FP-L status-based security
741: l_grant_id := pa_project_parties_utils.get_grant_id(p_project_party_id => p_project_party_id);
742:
743: if x_return_status = FND_API.G_RET_STS_SUCCESS and l_grant_id > 0 then
744: -- call fnd_grants
745: IF p_resource_type_id = 112 THEN

Line 773: PA_PROJECT_PARTIES_PKG.UPDATE_ROW (

769: l_grant_id := null;
770:
771: ----dbms_output.put_line('calling update api');
772: pa_debug.g_err_stage := 'Calling Update_row';
773: PA_PROJECT_PARTIES_PKG.UPDATE_ROW (
774: X_PROJECT_PARTY_ID => p_project_party_id,
775: X_PROJECT_ID => p_project_id,
776: X_RESOURCE_SOURCE_ID => p_resource_source_id,
777: X_RESOURCE_TYPE_ID => p_resource_type_id,

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

788: if (x_return_status = 'N') then
789: x_return_status := FND_API.G_RET_STS_ERROR;
790: if p_calling_module = 'FORM' then
791: fnd_message.set_name('FND','FORM_RECORD_CHANGED');
792: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
793: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
794: fnd_msg_pub.add;
795: else
796: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');

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

820: Manager exists for the complete duration of the Project. */
821:
822: IF ( p_mgr_validation_type = 'SS' OR p_calling_module = 'ASSIGNMENT') THEN
823: l_error_occured := 'N';
824: PA_PROJECT_PARTIES_UTILS.validate_manager_date_range( p_mode => 'SS'
825: ,p_project_id => p_project_id
826: ,x_start_no_mgr_date => l_start_no_mgr_date
827: ,x_end_no_mgr_date => l_end_no_mgr_date
828: ,x_error_occured => l_error_occured);

Line 850: PA_PROJECT_PARTIES_UTILS.VALIDATE_ONE_MANAGER_EXISTS( p_project_id => p_project_id

846: /* Throw an error if there are no Project Managers assigned.
847: This has to be thrown irrespective of whether there are any Key Member records
848: being passed or not. So, it cannot be done in the above IF condition. */
849: IF p_project_id IS NOT NULL THEN
850: PA_PROJECT_PARTIES_UTILS.VALIDATE_ONE_MANAGER_EXISTS( p_project_id => p_project_id
851: ,x_return_status => x_return_status
852: ,x_msg_count => x_msg_count
853: ,x_msg_data => x_msg_data );
854:

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

898:
899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
901: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
902: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
903: fnd_message.set_token('PROCEDURE_NAME','UPDATE_PROJECT_PARTY');
904: fnd_msg_pub.add();
905: fnd_msg_pub.count_and_get(p_count => x_msg_count,
906: p_data => x_msg_data);

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

911: if p_commit = fnd_api.G_TRUE then
912: rollback to project_parties;
913: end if;
914: x_return_status := fnd_api.g_ret_sts_unexp_error;
915: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_PUB',
916: p_procedure_name => pa_debug.g_err_stack,
917: p_error_text => SUBSTRB(SQLERRM,1,240));
918: fnd_msg_pub.count_and_get(p_count => x_msg_count,
919: p_data => x_msg_data);

Line 961: FROM pa_project_parties po,

957: /*
958: CURSOR c_ext_people IS
959: SELECT pp.project_party_id project_party_id,
960: pp.record_version_number record_version_number
961: FROM pa_project_parties po,
962: pa_project_parties pp,
963: hz_party_relationships hzr
964: WHERE po.resource_type_id = 112
965: AND po.project_party_id = p_project_party_id

Line 962: pa_project_parties pp,

958: CURSOR c_ext_people IS
959: SELECT pp.project_party_id project_party_id,
960: pp.record_version_number record_version_number
961: FROM pa_project_parties po,
962: pa_project_parties pp,
963: hz_party_relationships hzr
964: WHERE po.resource_type_id = 112
965: AND po.project_party_id = p_project_party_id
966: AND pp.resource_type_id = 112

Line 977: FROM pa_project_parties po,

973:
974: CURSOR c_ext_people IS
975: SELECT pp.project_party_id project_party_id,
976: pp.record_version_number record_version_number
977: FROM pa_project_parties po,
978: pa_project_parties pp,
979: hz_relationships hzr
980: WHERE po.resource_type_id = 112
981: AND po.project_party_id = p_project_party_id

Line 978: pa_project_parties pp,

974: CURSOR c_ext_people IS
975: SELECT pp.project_party_id project_party_id,
976: pp.record_version_number record_version_number
977: FROM pa_project_parties po,
978: pa_project_parties pp,
979: hz_relationships hzr
980: WHERE po.resource_type_id = 112
981: AND po.project_party_id = p_project_party_id
982: AND pp.resource_type_id = 112

Line 1042: FROM pa_project_parties

1038: ( nvl(p_project_party_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM )) THEN
1039:
1040: SELECT project_id
1041: INTO l_project_id
1042: FROM pa_project_parties
1043: WHERE project_party_id = p_project_party_id;
1044:
1045: END IF;
1046:

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

1043: WHERE project_party_id = p_project_party_id;
1044:
1045: END IF;
1046:
1047: if (pa_project_parties_pvt.l_delete_proj_party = 'Y') then
1048:
1049: if pa_project_parties_utils.validate_delete_party_ok(l_project_id,p_project_party_id) = 'Y' then
1050:
1051: --Deleting all external people before deleting the org.

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

1045: END IF;
1046:
1047: if (pa_project_parties_pvt.l_delete_proj_party = 'Y') then
1048:
1049: if pa_project_parties_utils.validate_delete_party_ok(l_project_id,p_project_party_id) = 'Y' then
1050:
1051: --Deleting all external people before deleting the org.
1052: FOR rec IN c_ext_people LOOP
1053: pa_project_parties_pvt.delete_project_party(

Line 1053: pa_project_parties_pvt.delete_project_party(

1049: if pa_project_parties_utils.validate_delete_party_ok(l_project_id,p_project_party_id) = 'Y' then
1050:
1051: --Deleting all external people before deleting the org.
1052: FOR rec IN c_ext_people LOOP
1053: pa_project_parties_pvt.delete_project_party(
1054: p_commit => p_commit,
1055: p_validate_only => p_validate_only,
1056: p_validation_level => p_validation_level,
1057: p_debug_mode => p_debug_mode,

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

1087: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1088: RETURN;
1089: END IF;
1090:
1091: l_grant_id := pa_project_parties_utils.get_grant_id(p_project_party_id => p_project_party_id);
1092: pa_debug.g_err_stage := 'Calling delete_row';
1093: pa_project_parties_pkg.delete_row(x_project_id => l_project_id,
1094: x_project_party_id => p_project_party_id,
1095: x_record_version_number => p_record_version_number);

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

1089: END IF;
1090:
1091: l_grant_id := pa_project_parties_utils.get_grant_id(p_project_party_id => p_project_party_id);
1092: pa_debug.g_err_stage := 'Calling delete_row';
1093: pa_project_parties_pkg.delete_row(x_project_id => l_project_id,
1094: x_project_party_id => p_project_party_id,
1095: x_record_version_number => p_record_version_number);
1096: end if;
1097:

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

1116: Manager exists for the complete duration of the Project. */
1117:
1118: IF ( p_mgr_validation_type = 'SS' OR p_calling_module = 'ASSIGNMENT') THEN
1119: l_error_occured := 'N';
1120: PA_PROJECT_PARTIES_UTILS.validate_manager_date_range( p_mode => 'SS'
1121: ,p_project_id => l_project_id
1122: ,x_start_no_mgr_date => l_start_no_mgr_date
1123: ,x_end_no_mgr_date => l_end_no_mgr_date
1124: ,x_error_occured => l_error_occured);

Line 1146: PA_PROJECT_PARTIES_UTILS.VALIDATE_ONE_MANAGER_EXISTS( p_project_id => l_project_id

1142: /* Throw an error if there are no Project Managers assigned.
1143: This has to be thrown irrespective of whether there are any Key Member records
1144: being passed or not. So, it cannot be done in the above IF condition. */
1145: IF p_project_id IS NOT NULL THEN
1146: PA_PROJECT_PARTIES_UTILS.VALIDATE_ONE_MANAGER_EXISTS( p_project_id => l_project_id
1147: ,x_return_status => x_return_status
1148: ,x_msg_count => x_msg_count
1149: ,x_msg_data => x_msg_data );
1150:

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

1176:
1177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1179: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
1180: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PVT');
1181: fnd_message.set_token('PROCEDURE_NAME','DELETE_PROJECT_PARTY');
1182: fnd_msg_pub.add();
1183: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1184: p_data => x_msg_data);

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

1222: FND_MESSAGE.Set_Name('PA', 'PA_XC_ROW_ALREADY_LOCKED');
1223: x_msg_data := FND_MESSAGE.get;
1224: x_return_status := FND_API.G_RET_STS_ERROR;
1225: else
1226: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_PUB',
1227: p_procedure_name => pa_debug.g_err_stack,
1228: p_error_text => SUBSTRB(SQLERRM,1,240));
1229: x_return_status := FND_API.G_RET_STS_ERROR;
1230: end if;