[Home] [Help]
307: WHEN OTHERS THEN
308: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
309: x_msg_data := SQLERRM;
310:
311: FND_MSG_PUB.add_exc_msg
312: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
313: , p_procedure_name => 'VALIDATE_FLEX_FIELD'
314: , p_error_text => x_msg_data);
315:
312: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
313: , p_procedure_name => 'VALIDATE_FLEX_FIELD'
314: , p_error_text => x_msg_data);
315:
316: x_msg_count := FND_MSG_PUB.count_msg;
317:
318: RAISE;
319: END VALIDATE_FLEX_FIELD;
320:
582: PA_DEBUG.set_curr_function(p_function => 'CREATE_REQUIREMENTS', p_debug_mode => l_debug_mode);
583: END IF;
584:
585: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
586: FND_MSG_PUB.initialize;
587: END IF;
588:
589: IF p_commit = FND_API.G_TRUE THEN
590: savepoint CREATE_REQUIREMENTS_SP;
719: l_missing_params := null;
720: l_req_rec := null;
721: l_valid_country := 'Y';
722:
723: l_start_msg_count := FND_MSG_PUB.count_msg;
724:
725: l_req_rec := p_requirement_in_tbl(i);
726:
727: -- Blank Out Parameters if not passed.
2521: x_requirement_id_tbl.extend(1);
2522: x_requirement_id_tbl(x_requirement_id_tbl.count):= -1;
2523: END IF;
2524:
2525: l_end_msg_count := FND_MSG_PUB.count_msg;
2526: IF l_debug_mode = 'Y' THEN
2527: pa_debug.write(l_module, 'l_start_msg_count='||l_start_msg_count, l_log_level);
2528: pa_debug.write(l_module, 'l_end_msg_count='||l_end_msg_count, l_log_level);
2529: END IF;
2538:
2539: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
2540: -- Always get from first location in stack i.e. l_start_msg_count+1
2541: -- Because stack moves down after delete
2542: FND_MSG_PUB.get (
2543: p_msg_index => l_start_msg_count+1,
2544: p_encoded => FND_API.G_FALSE,
2545: p_data => l_data,
2546: p_msg_index_out => l_msg_index_out );
2546: p_msg_index_out => l_msg_index_out );
2547:
2548: -- Always delete at first location in stack i.e. l_start_msg_count+1
2549: -- Because stack moves down after delete
2550: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
2551:
2552: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
2553: 'RECORD_NO', i,
2554: 'MESSAGE', l_data);
2562:
2563: IF l_debug_mode = 'Y' THEN
2564: pa_debug.write(l_module, 'All records are done', l_log_level);
2565: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
2566: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
2567: END IF;
2568:
2569: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
2570: RAISE FND_API.G_EXC_ERROR;
2565: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
2566: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
2567: END IF;
2568:
2569: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
2570: RAISE FND_API.G_EXC_ERROR;
2571: END IF;
2572:
2573: IF l_debug_mode = 'Y' THEN
2581:
2582: EXCEPTION
2583: WHEN FND_API.G_EXC_ERROR THEN
2584: x_return_status := FND_API.G_RET_STS_ERROR;
2585: l_msg_count := FND_MSG_PUB.count_msg;
2586:
2587: IF p_commit = FND_API.G_TRUE THEN
2588: ROLLBACK TO CREATE_REQUIREMENTS_SP;
2589: END IF;
2615: IF p_commit = FND_API.G_TRUE THEN
2616: ROLLBACK TO CREATE_REQUIREMENTS_SP;
2617: END IF;
2618:
2619: FND_MSG_PUB.add_exc_msg
2620: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
2621: , p_procedure_name => 'CREATE_REQUIREMENTS'
2622: , p_error_text => x_msg_data);
2623:
2620: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
2621: , p_procedure_name => 'CREATE_REQUIREMENTS'
2622: , p_error_text => x_msg_data);
2623:
2624: x_msg_count := FND_MSG_PUB.count_msg;
2625:
2626: IF l_debug_mode = 'Y' THEN
2627: PA_DEBUG.reset_curr_function;
2628: END IF;
2815: PA_DEBUG.set_curr_function(p_function => 'UPDATE_REQUIREMENTS', p_debug_mode => l_debug_mode);
2816: END IF;
2817:
2818: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
2819: FND_MSG_PUB.initialize;
2820: END IF;
2821:
2822: IF p_commit = FND_API.G_TRUE THEN
2823: savepoint UPDATE_REQUIREMENTS_SP;
2958: l_fin_info_changed := 'N';
2959: l_fin_bill_rate_info_changed := 'N';
2960: l_fin_tp_rate_info_changed := 'N';
2961:
2962: l_start_msg_count := FND_MSG_PUB.count_msg;
2963:
2964: l_req_rec := p_requirement_in_tbl(i);
2965:
2966: -- Mandatory Parameters Check
4530: END IF;
4531: END IF;
4532: END IF;
4533:
4534: l_end_msg_count := FND_MSG_PUB.count_msg;
4535: IF l_debug_mode = 'Y' THEN
4536: pa_debug.write(l_module, 'l_start_msg_count='||l_start_msg_count, l_log_level);
4537: pa_debug.write(l_module, 'l_end_msg_count='||l_end_msg_count, l_log_level);
4538: END IF;
4547:
4548: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
4549: -- Always get from first location in stack i.e. l_start_msg_count+1
4550: -- Because stack moves down after delete
4551: FND_MSG_PUB.get (
4552: p_msg_index => l_start_msg_count+1,
4553: p_encoded => FND_API.G_FALSE,
4554: p_data => l_data,
4555: p_msg_index_out => l_msg_index_out );
4555: p_msg_index_out => l_msg_index_out );
4556:
4557: -- Always delete at first location in stack i.e. l_start_msg_count+1
4558: -- Because stack moves down after delete
4559: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
4560:
4561: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
4562: 'RECORD_NO', i,
4563: 'MESSAGE', l_data);
4571:
4572: IF l_debug_mode = 'Y' THEN
4573: pa_debug.write(l_module, 'All records are done', l_log_level);
4574: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
4575: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
4576: END IF;
4577:
4578: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
4579: RAISE FND_API.G_EXC_ERROR;
4574: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
4575: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
4576: END IF;
4577:
4578: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
4579: RAISE FND_API.G_EXC_ERROR;
4580: END IF;
4581:
4582: IF l_debug_mode = 'Y' THEN
4590:
4591: EXCEPTION
4592: WHEN FND_API.G_EXC_ERROR THEN
4593: x_return_status := FND_API.G_RET_STS_ERROR;
4594: l_msg_count := FND_MSG_PUB.count_msg;
4595:
4596: IF p_commit = FND_API.G_TRUE THEN
4597: ROLLBACK TO UPDATE_REQUIREMENTS_SP;
4598: END IF;
4624: IF p_commit = FND_API.G_TRUE THEN
4625: ROLLBACK TO UPDATE_REQUIREMENTS_SP;
4626: END IF;
4627:
4628: FND_MSG_PUB.add_exc_msg
4629: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
4630: , p_procedure_name => 'UPDATE_REQUIREMENTS'
4631: , p_error_text => x_msg_data);
4632:
4629: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
4630: , p_procedure_name => 'UPDATE_REQUIREMENTS'
4631: , p_error_text => x_msg_data);
4632:
4633: x_msg_count := FND_MSG_PUB.count_msg;
4634:
4635: IF l_debug_mode = 'Y' THEN
4636: PA_DEBUG.reset_curr_function;
4637: END IF;
4755: PA_DEBUG.set_curr_function(p_function => 'DELETE_REQUIREMENTS', p_debug_mode => l_debug_mode);
4756: END IF;
4757:
4758: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
4759: FND_MSG_PUB.initialize;
4760: END IF;
4761: --------------------------------------------------
4762: -- Create Savepoint
4763: --------------------------------------------------
4794: l_error_flag_local := 'N';
4795: l_missing_params := null;
4796: l_req_rec := null;
4797:
4798: l_start_msg_count := FND_MSG_PUB.count_msg;
4799:
4800: l_req_rec := p_requirement_in_tbl(i);
4801:
4802: -- Blank Out Parameters if not passed.
4932: l_error_flag_local := 'Y';
4933: END IF;
4934: END IF;
4935:
4936: l_end_msg_count := FND_MSG_PUB.count_msg;
4937: l_loop_msg_count := l_end_msg_count - l_start_msg_count;
4938:
4939: IF l_error_flag_local = 'Y' OR l_loop_msg_count > 0 THEN
4940: l_error_flag := 'Y';
4941:
4942: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
4943: -- Always get from first location in stack i.e. l_start_msg_count+1
4944: -- Because stack moves down after delete
4945: FND_MSG_PUB.get (
4946: p_msg_index => l_start_msg_count+1,
4947: p_encoded => FND_API.G_FALSE,
4948: p_data => l_data,
4949: p_msg_index_out => l_msg_index_out );
4949: p_msg_index_out => l_msg_index_out );
4950:
4951: -- Always delete at first location in stack i.e. l_start_msg_count+1
4952: -- Because stack moves down after delete
4953: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
4954:
4955: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
4956: 'RECORD_NO', i,
4957: 'MESSAGE', l_data);
4959: END IF;
4960: i := p_requirement_in_tbl.next(i);
4961: END LOOP;
4962:
4963: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
4964: RAISE FND_API.G_EXC_ERROR;
4965: END IF;
4966:
4967: IF l_debug_mode = 'Y' THEN
4975:
4976: EXCEPTION
4977: WHEN FND_API.G_EXC_ERROR THEN
4978: x_return_status := FND_API.G_RET_STS_ERROR;
4979: l_msg_count := FND_MSG_PUB.count_msg;
4980:
4981: IF p_commit = FND_API.G_TRUE THEN
4982: ROLLBACK TO DELETE_REQUIREMENTS_SP;
4983: END IF;
5025: IF c_get_system_status%ISOPEN THEN
5026: CLOSE c_get_system_status ;
5027: END IF;
5028:
5029: FND_MSG_PUB.add_exc_msg
5030: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
5031: , p_procedure_name => 'DELETE_REQUIREMENTS'
5032: , p_error_text => x_msg_data);
5033:
5030: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
5031: , p_procedure_name => 'DELETE_REQUIREMENTS'
5032: , p_error_text => x_msg_data);
5033:
5034: x_msg_count := FND_MSG_PUB.count_msg;
5035:
5036: IF l_debug_mode = 'Y' THEN
5037: PA_DEBUG.reset_curr_function;
5038: END IF;
5201: PA_DEBUG.set_curr_function(p_function => 'STAFF_REQUIREMENTS', p_debug_mode => l_debug_mode);
5202: END IF;
5203:
5204: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
5205: FND_MSG_PUB.initialize;
5206: END IF;
5207: --------------------------------------------------
5208: -- Create Savepoint
5209: --------------------------------------------------
5239: WHILE i is not NULL LOOP
5240: l_error_flag_local := 'N';
5241: l_missing_params := null;
5242: l_staff_rec := NULL ;
5243: l_start_msg_count := FND_MSG_PUB.count_msg;
5244:
5245: l_staff_rec := P_STAFF_REQUIREMENT_TBL(i);
5246:
5247: ------------------------------------------------------------------------------------------
5529: IF l_debug_mode = 'Y' THEN
5530: pa_debug.write(l_module, 'Calling PA_ASSIGNMENTS_PUB.Execute_Staff_Assign_From_Open for record number ' || i, l_log_level);
5531: END IF;
5532:
5533: l_before_api_msg_count := FND_MSG_PUB.count_msg;
5534: PA_ASSIGNMENTS_PUB.Execute_Staff_Assign_From_Open
5535: ( p_asgn_creation_mode => l_requirement_creation_mode
5536: ,p_record_version_number => l_record_version_number
5537: ,p_multiple_status_flag => 'N'
5556: ,x_msg_count => l_msg_count
5557: ,x_msg_data => l_msg_data
5558: );
5559:
5560: l_after_api_msg_count := FND_MSG_PUB.count_msg;
5561: IF l_debug_mode = 'Y' THEN
5562: pa_debug.write(l_module, 'After main API Call l_return_status ' || l_return_status,l_log_level);
5563: pa_debug.write(l_module, 'l_msg_count is ' || l_msg_count ||' and l_msg_data is ' ||l_msg_data);
5564: END IF;
5581: END IF;
5582: END IF;
5583:
5584: ---------------------------------------------------------------------------------------------
5585: l_end_msg_count := FND_MSG_PUB.count_msg;
5586:
5587: l_loop_msg_count := l_end_msg_count - l_start_msg_count;
5588:
5589: IF l_error_flag_local = 'Y' OR l_loop_msg_count > 0 THEN
5591:
5592: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
5593: -- Always get from first location in stack i.e. l_start_msg_count+1
5594: -- Because stack moves down after delete
5595: FND_MSG_PUB.get (
5596: p_msg_index => l_start_msg_count+1,
5597: p_encoded => FND_API.G_FALSE,
5598: p_data => l_data,
5599: p_msg_index_out => l_msg_index_out );
5599: p_msg_index_out => l_msg_index_out );
5600:
5601: -- Always delete at first location in stack i.e. l_start_msg_count+1
5602: -- Because stack moves down after delete
5603: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
5604:
5605: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
5606: 'RECORD_NO', i,'MESSAGE', l_data);
5607: END LOOP;
5610: END IF;
5611: i := P_STAFF_REQUIREMENT_TBL.NEXT(i);
5612: END LOOP;
5613:
5614: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
5615: RAISE FND_API.G_EXC_ERROR;
5616: END IF;
5617:
5618: IF l_debug_mode = 'Y' THEN
5625:
5626: EXCEPTION
5627: WHEN FND_API.G_EXC_ERROR THEN
5628: x_return_status := FND_API.G_RET_STS_ERROR;
5629: l_msg_count := FND_MSG_PUB.count_msg;
5630:
5631: IF p_commit = FND_API.G_TRUE THEN
5632: ROLLBACK TO STAFF_REQUIREMENTS_SP;
5633: END IF;
5699: IF c_valid_unfilled_status_name%ISOPEN THEN
5700: CLOSE c_valid_unfilled_status_name ;
5701: END IF;
5702:
5703: FND_MSG_PUB.add_exc_msg
5704: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
5705: , p_procedure_name => 'STAFF_REQUIREMENTS'
5706: , p_error_text => x_msg_data);
5707:
5704: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
5705: , p_procedure_name => 'STAFF_REQUIREMENTS'
5706: , p_error_text => x_msg_data);
5707:
5708: x_msg_count := FND_MSG_PUB.count_msg;
5709:
5710: IF l_debug_mode = 'Y' THEN
5711: PA_DEBUG.reset_curr_function;
5712: END IF;
5839: PA_DEBUG.set_curr_function(p_function => 'COPY_TEAM_ROLES', p_debug_mode => l_debug_mode);
5840: END IF;
5841:
5842: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
5843: FND_MSG_PUB.initialize;
5844: END IF;
5845: --------------------------------------------------
5846: -- Create Savepoint
5847: --------------------------------------------------
5878: l_missing_params := null;
5879: l_req_asgn_id := null;
5880: l_req_rec := NULL ;
5881:
5882: l_start_msg_count := FND_MSG_PUB.count_msg;
5883:
5884: l_req_rec := p_req_asgn_id_tbl(i);
5885:
5886: l_req_asgn_id := l_req_rec;
5995: IF l_debug_mode = 'Y' THEN
5996: pa_debug.write(l_module, 'Calling PA_ASSIGNMENTS_PUB.COPY_TEAM_ROLES for record number'||i, l_log_level);
5997: END IF;
5998:
5999: l_before_api_msg_count := FND_MSG_PUB.count_msg;
6000: PA_ASSIGNMENTS_PUB.Copy_Team_Role
6001: (
6002: p_assignment_id => l_req_asgn_id,
6003: x_new_assignment_id => l_out_req_asgn_id ,
6006: x_return_status => l_return_status,
6007: x_msg_count => l_msg_count,
6008: x_msg_data => l_msg_data
6009: );
6010: l_after_api_msg_count := FND_MSG_PUB.count_msg;
6011:
6012: IF l_debug_mode = 'Y' THEN
6013: pa_debug.write(l_module, 'After call PA_ASSIGNMENTS_PUB.COPY_TEAM_ROLES l_return_status='||l_return_status, l_log_level);
6014: END IF;
6027: END IF;
6028: END IF;
6029: END IF;
6030:
6031: l_end_msg_count := FND_MSG_PUB.count_msg;
6032: l_loop_msg_count := l_end_msg_count - l_start_msg_count;
6033:
6034: IF l_error_flag_local = 'Y' OR l_loop_msg_count > 0 THEN
6035: l_error_flag := 'Y';
6038: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
6039: -- Always get from first location in stack i.e. l_start_msg_count+1
6040: -- Because stack moves down after delete
6041:
6042: FND_MSG_PUB.get (
6043: p_msg_index => l_start_msg_count+1,
6044: p_encoded => FND_API.G_FALSE,
6045: p_data => l_data,
6046: p_msg_index_out => l_msg_index_out );
6046: p_msg_index_out => l_msg_index_out );
6047:
6048: -- Always delete at first location in stack i.e. l_start_msg_count+1
6049: -- Because stack moves down after delete
6050: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
6051:
6052: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
6053: 'RECORD_NO', i,
6054: 'MESSAGE', l_data);
6057:
6058: i := p_req_asgn_id_tbl.next(i);
6059: END LOOP;
6060:
6061: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
6062: RAISE FND_API.G_EXC_ERROR;
6063: END IF;
6064:
6065: IF l_debug_mode = 'Y' THEN
6071: END IF;
6072: EXCEPTION
6073: WHEN FND_API.G_EXC_ERROR THEN
6074: x_return_status := FND_API.G_RET_STS_ERROR;
6075: l_msg_count := FND_MSG_PUB.count_msg;
6076:
6077: IF p_commit = FND_API.G_TRUE THEN
6078: ROLLBACK TO COPY_TEAM_ROLES_SP;
6079: END IF;
6122: IF c_get_system_status%ISOPEN THEN
6123: CLOSE c_get_system_status ;
6124: END IF;
6125:
6126: FND_MSG_PUB.add_exc_msg
6127: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
6128: , p_procedure_name => 'COPY_TEAM_ROLES'
6129: , p_error_text => x_msg_data);
6130:
6127: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
6128: , p_procedure_name => 'COPY_TEAM_ROLES'
6129: , p_error_text => x_msg_data);
6130:
6131: x_msg_count := FND_MSG_PUB.count_msg;
6132:
6133: IF l_debug_mode = 'Y' THEN
6134: PA_DEBUG.reset_curr_function;
6135: END IF;
6392: PA_DEBUG.set_curr_function(p_function => 'CREATE_ASSIGNMENTS', p_debug_mode => l_debug_mode);
6393: END IF;
6394:
6395: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
6396: FND_MSG_PUB.initialize;
6397: END IF;
6398:
6399: IF p_commit = FND_API.G_TRUE THEN
6400: savepoint CREATE_ASSIGNMENTS_SP;
6507: l_asgn_rec := null;
6508: l_valid_country := 'Y';
6509: PA_STAFFED_ASSIGNMENT_PVT.G_AUTO_APPROVE := NULL ;
6510:
6511: l_start_msg_count := FND_MSG_PUB.count_msg;
6512:
6513: l_asgn_rec := p_assignment_in_tbl(i);
6514:
6515: -- Blank Out Parameters if not passed.
7811: END IF;
7812: END IF;
7813: END IF;
7814:
7815: l_end_msg_count := FND_MSG_PUB.count_msg;
7816: IF l_debug_mode = 'Y' THEN
7817: pa_debug.write(l_module, 'l_start_msg_count='||l_start_msg_count, l_log_level);
7818: pa_debug.write(l_module, 'l_end_msg_count='||l_end_msg_count, l_log_level);
7819: END IF;
7828:
7829: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
7830: -- Always get from first location in stack i.e. l_start_msg_count+1
7831: -- Because stack moves down after delete
7832: FND_MSG_PUB.get (
7833: p_msg_index => l_start_msg_count+1,
7834: p_encoded => FND_API.G_FALSE,
7835: p_data => l_data,
7836: p_msg_index_out => l_msg_index_out );
7836: p_msg_index_out => l_msg_index_out );
7837:
7838: -- Always delete at first location in stack i.e. l_start_msg_count+1
7839: -- Because stack moves down after delete
7840: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
7841:
7842: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
7843: 'RECORD_NO', i,
7844: 'MESSAGE', l_data);
7852:
7853: IF l_debug_mode = 'Y' THEN
7854: pa_debug.write(l_module, 'All records are done', l_log_level);
7855: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
7856: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
7857: END IF;
7858:
7859: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
7860: RAISE FND_API.G_EXC_ERROR;
7855: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
7856: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
7857: END IF;
7858:
7859: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
7860: RAISE FND_API.G_EXC_ERROR;
7861: END IF;
7862:
7863: IF l_debug_mode = 'Y' THEN
7871:
7872: EXCEPTION
7873: WHEN FND_API.G_EXC_ERROR THEN
7874: x_return_status := FND_API.G_RET_STS_ERROR;
7875: l_msg_count := FND_MSG_PUB.count_msg;
7876:
7877: IF p_commit = FND_API.G_TRUE THEN
7878: ROLLBACK TO CREATE_ASSIGNMENTS_SP;
7879: END IF;
7905: IF p_commit = FND_API.G_TRUE THEN
7906: ROLLBACK TO CREATE_ASSIGNMENTS_SP;
7907: END IF;
7908:
7909: FND_MSG_PUB.add_exc_msg
7910: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
7911: , p_procedure_name => 'CREATE_ASSIGNMENTS'
7912: , p_error_text => x_msg_data);
7913:
7910: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
7911: , p_procedure_name => 'CREATE_ASSIGNMENTS'
7912: , p_error_text => x_msg_data);
7913:
7914: x_msg_count := FND_MSG_PUB.count_msg;
7915:
7916: IF l_debug_mode = 'Y' THEN
7917: PA_DEBUG.reset_curr_function;
7918: END IF;
8099: PA_DEBUG.set_curr_function(p_function => 'UPDATE_ASSIGNMENTS', p_debug_mode => l_debug_mode);
8100: END IF;
8101:
8102: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
8103: FND_MSG_PUB.initialize;
8104: END IF;
8105: --------------------------------------------------
8106: -- Create Savepoint
8107: --------------------------------------------------
8143: l_fin_info_changed := 'N';
8144: l_fin_bill_rate_info_changed := 'N';
8145: l_fin_tp_rate_info_changed := 'N';
8146:
8147: l_start_msg_count := FND_MSG_PUB.count_msg;
8148:
8149: l_asgn_rec := p_assignment_in_tbl(i);
8150:
8151: /*--Bug 6511907 PJR Date Validation Enhancement ----- Start--*/
9095: IF l_debug_mode = 'Y' THEN
9096: pa_debug.write(l_module, 'Checking Project Level Security for PA_ASN_BASIC_INFO_ED', l_log_level);
9097: END IF ;
9098:
9099: l_before_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9100: PA_SECURITY_PVT.CHECK_USER_PRIVILEGE(
9101: x_ret_code => l_ret_code
9102: , x_return_status => l_return_status
9103: , x_msg_count => l_msg_count
9105: , p_privilege => l_privilege
9106: , p_object_name => l_object_name
9107: , p_object_key => l_object_key
9108: , p_init_msg_list => FND_API.G_FALSE);
9109: l_after_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9110:
9111: IF l_debug_mode = 'Y' THEN
9112: pa_debug.write(l_module, 'Project Level Security for PA_ASN_BASIC_INFO_ED l_ret_code '|| l_ret_code , l_log_level);
9113: END IF ;
9129:
9130: l_object_name := 'PA_PROJECT_ASSIGNMENTS';
9131: l_object_key := l_asgn_rec.assignment_id;
9132:
9133: l_before_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9134: PA_SECURITY_PVT.CHECK_USER_PRIVILEGE(
9135: x_ret_code => l_ret_code
9136: , x_return_status => l_return_status
9137: , x_msg_count => l_msg_count
9139: , p_privilege => l_privilege
9140: , p_object_name => l_object_name
9141: , p_object_key => l_object_key
9142: , p_init_msg_list => FND_API.G_FALSE );
9143: l_after_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9144:
9145: IF l_debug_mode = 'Y' THEN
9146: pa_debug.write(l_module,'Assignment Level Security for PA_ASN_BASIC_INFO_ED l_ret_code='||l_ret_code, l_log_level);
9147: END IF ;
9171: IF l_debug_mode = 'Y' THEN
9172: pa_debug.write(l_module, 'Checking Project Level Security for PA_ASN_FCST_INFO_ED', l_log_level);
9173: END IF ;
9174:
9175: l_before_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9176: PA_SECURITY_PVT.CHECK_USER_PRIVILEGE(
9177: x_ret_code => l_ret_code
9178: , x_return_status => l_return_status
9179: , x_msg_count => l_msg_count
9181: , p_privilege => l_privilege
9182: , p_object_name => l_object_name
9183: , p_object_key => l_object_key
9184: , p_init_msg_list => FND_API.G_FALSE);
9185: l_after_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9186:
9187: IF l_debug_mode = 'Y' THEN
9188: pa_debug.write(l_module, 'Project Level Security for PA_ASN_FCST_INFO_ED l_ret_code '|| l_ret_code , l_log_level);
9189: END IF ;
9204:
9205: l_object_name := 'PA_PROJECT_ASSIGNMENTS';
9206: l_object_key := l_asgn_rec.assignment_id;
9207:
9208: l_before_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9209: PA_SECURITY_PVT.CHECK_USER_PRIVILEGE(
9210: x_ret_code => l_ret_code
9211: , x_return_status => l_return_status
9212: , x_msg_count => l_msg_count
9214: , p_privilege => l_privilege
9215: , p_object_name => l_object_name
9216: , p_object_key => l_object_key
9217: , p_init_msg_list => FND_API.G_FALSE );
9218: l_after_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9219:
9220: IF l_debug_mode = 'Y' THEN
9221: pa_debug.write(l_module,'Requirement Level Security for PA_ASN_FCST_INFO_ED l_ret_code='||l_ret_code, l_log_level);
9222: END IF ;
9241: IF l_debug_mode = 'Y' THEN
9242: pa_debug.write(l_module, 'Checking Project Level Security for PA_ASN_FCST_INFO_BILL_ED', l_log_level);
9243: END IF ;
9244:
9245: l_before_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9246: PA_SECURITY_PVT.CHECK_USER_PRIVILEGE(
9247: x_ret_code => l_ret_code
9248: , x_return_status => l_return_status
9249: , x_msg_count => l_msg_count
9251: , p_privilege => l_privilege
9252: , p_object_name => l_object_name
9253: , p_object_key => l_object_key
9254: , p_init_msg_list => FND_API.G_FALSE);
9255: l_after_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9256:
9257: IF l_debug_mode = 'Y' THEN
9258: pa_debug.write(l_module, 'Project Level Security for PA_ASN_FCST_INFO_BILL_ED l_ret_code '|| l_ret_code , l_log_level);
9259: END IF ;
9269: l_privilege := 'PA_ASN_FCST_INFO_BILL_ED';
9270: l_object_name := 'PA_PROJECT_ASSIGNMENTS';
9271: l_object_key := l_asgn_rec.assignment_id;
9272:
9273: l_before_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9274: PA_SECURITY_PVT.CHECK_USER_PRIVILEGE(
9275: x_ret_code => l_ret_code
9276: , x_return_status => l_return_status
9277: , x_msg_count => l_msg_count
9279: , p_privilege => l_privilege
9280: , p_object_name => l_object_name
9281: , p_object_key => l_object_key
9282: , p_init_msg_list => FND_API.G_FALSE);
9283: l_after_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9284:
9285: IF l_debug_mode = 'Y' THEN
9286: pa_debug.write(l_module,'Assignment Level Security for PA_ASN_FCST_INFO_BILL_ED l_ret_code='||l_ret_code, l_log_level);
9287: END IF ;
9305: IF l_debug_mode = 'Y' THEN
9306: pa_debug.write(l_module, 'Checking Project Level Security for PA_ASN_FCST_INFO_TP_ED', l_log_level);
9307: END IF ;
9308:
9309: l_before_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9310: PA_SECURITY_PVT.CHECK_USER_PRIVILEGE(
9311: x_ret_code => l_ret_code
9312: , x_return_status => l_return_status
9313: , x_msg_count => l_msg_count
9315: , p_privilege => l_privilege
9316: , p_object_name => l_object_name
9317: , p_object_key => l_object_key
9318: , p_init_msg_list => FND_API.G_FALSE);
9319: l_after_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9320:
9321: IF l_debug_mode = 'Y' THEN
9322: pa_debug.write(l_module, 'Project Level Security for PA_ASN_FCST_INFO_TP_ED l_ret_code '|| l_ret_code , l_log_level);
9323: END IF ;
9333: l_privilege := 'PA_ASN_FCST_INFO_TP_ED';
9334: l_object_name := 'PA_PROJECT_ASSIGNMENTS';
9335: l_object_key := l_asgn_rec.assignment_id;
9336:
9337: l_before_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9338: PA_SECURITY_PVT.CHECK_USER_PRIVILEGE(
9339: x_ret_code => l_ret_code
9340: , x_return_status => l_return_status
9341: , x_msg_count => l_msg_count
9343: , p_privilege => l_privilege
9344: , p_object_name => l_object_name
9345: , p_object_key => l_object_key
9346: , p_init_msg_list => FND_API.G_FALSE );
9347: l_after_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9348:
9349: IF l_debug_mode = 'Y' THEN
9350: pa_debug.write(l_module,'Assignment Level Security for PA_ASN_FCST_INFO_TP_ED l_ret_code='||l_ret_code, l_log_level);
9351: pa_debug.write(l_module,'Assignment Level Security for PA_ASN_FCST_INFO_TP_ED l_return_status='||l_return_status, l_log_level);
9371: IF l_debug_mode = 'Y' THEN
9372: pa_debug.write(l_module, 'Calling PA_ASSIGNMENTS_PUB.EXECUTE_UPDATE_ASSIGNMENT for Record No.'||i, l_log_level);
9373: END IF;
9374:
9375: l_before_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9376:
9377: --Before calling API ,Make location_id as NULL
9378: --If country code is made NULL
9379:
9490: ,x_return_status => l_return_status
9491: ,x_msg_count => l_msg_count
9492: ,x_msg_data => l_msg_data
9493: );
9494: l_after_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9495:
9496: IF l_debug_mode = 'Y' THEN
9497: pa_debug.write(l_module, 'After call PA_ASSIGNMENTS_PUB.EXECUTE_UPDATE_ASSIGNMENT l_return_status='||l_return_status, l_log_level);
9498: END IF;
9522: END IF;
9523: END IF;
9524: END IF;
9525:
9526: l_end_msg_count := FND_MSG_PUB.count_msg;
9527: IF l_debug_mode = 'Y' THEN
9528: pa_debug.write(l_module, 'l_start_msg_count='||l_start_msg_count, l_log_level);
9529: pa_debug.write(l_module, 'l_end_msg_count='||l_end_msg_count, l_log_level);
9530: END IF;
9539:
9540: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
9541: -- Always get from first location in stack i.e. l_start_msg_count+1
9542: -- Because stack moves down after delete
9543: FND_MSG_PUB.get (
9544: p_msg_index => l_start_msg_count+1,
9545: p_encoded => FND_API.G_FALSE,
9546: p_data => l_data,
9547: p_msg_index_out => l_msg_index_out );
9547: p_msg_index_out => l_msg_index_out );
9548:
9549: -- Always delete at first location in stack i.e. l_start_msg_count+1
9550: -- Because stack moves down after delete
9551: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
9552:
9553: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
9554: 'RECORD_NO', i,
9555: 'MESSAGE', l_data);
9562: i := p_assignment_in_tbl.next(i);
9563:
9564: END LOOP ;
9565:
9566: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
9567: RAISE FND_API.G_EXC_ERROR;
9568: END IF;
9569:
9570: IF l_debug_mode = 'Y' THEN
9576: END IF;
9577: EXCEPTION
9578: WHEN FND_API.G_EXC_ERROR THEN
9579: x_return_status := FND_API.G_RET_STS_ERROR;
9580: l_msg_count := FND_MSG_PUB.count_msg;
9581:
9582: IF p_commit = FND_API.G_TRUE THEN
9583: ROLLBACK TO UPDATE_ASSIGNMENTS_SP;
9584: END IF;
9610: IF p_commit = FND_API.G_TRUE THEN
9611: ROLLBACK TO UPDATE_ASSIGNMENTS_SP;
9612: END IF;
9613:
9614: FND_MSG_PUB.add_exc_msg
9615: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
9616: , p_procedure_name => 'UPDATE_ASSIGNMENTS'
9617: , p_error_text => x_msg_data);
9618:
9615: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
9616: , p_procedure_name => 'UPDATE_ASSIGNMENTS'
9617: , p_error_text => x_msg_data);
9618:
9619: x_msg_count := FND_MSG_PUB.count_msg;
9620:
9621: IF l_debug_mode = 'Y' THEN
9622: PA_DEBUG.reset_curr_function;
9623: END IF;
9736: PA_DEBUG.set_curr_function(p_function => 'DELETE_ASSIGNMENTS', p_debug_mode => l_debug_mode);
9737: END IF;
9738:
9739: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
9740: FND_MSG_PUB.initialize;
9741: END IF;
9742:
9743: IF p_commit = FND_API.G_TRUE THEN
9744: savepoint DELETE_ASSIGNMENTS_SP;
9843: l_error_flag_local := 'N';
9844: l_missing_params := null;
9845: l_req_rec := null;
9846:
9847: l_start_msg_count := FND_MSG_PUB.count_msg;
9848:
9849: l_req_rec := p_assignment_in_tbl(i);
9850:
9851: IF l_debug_mode = 'Y' THEN
10008: l_error_flag_local := 'Y';
10009: END IF;
10010: END IF;
10011:
10012: l_end_msg_count := FND_MSG_PUB.count_msg;
10013: l_loop_msg_count := l_end_msg_count - l_start_msg_count;
10014:
10015: IF l_error_flag_local = 'Y' OR l_loop_msg_count > 0 THEN
10016: l_error_flag := 'Y';
10017:
10018: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
10019: -- Always get from first location in stack i.e. l_start_msg_count+1
10020: -- Because stack moves down after delete
10021: FND_MSG_PUB.get (
10022: p_msg_index => l_start_msg_count+1
10023: , p_encoded => FND_API.G_FALSE
10024: , p_data => l_data
10025: , p_msg_index_out => l_msg_index_out );
10025: , p_msg_index_out => l_msg_index_out );
10026:
10027: -- Always delete at first location in stack i.e. l_start_msg_count+1
10028: -- Because stack moves down after delete
10029: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
10030:
10031: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
10032: 'RECORD_NO', i,
10033: 'MESSAGE', l_data);
10035: END IF;
10036: i := p_assignment_in_tbl.next(i);
10037: END LOOP;
10038:
10039: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
10040: RAISE FND_API.G_EXC_ERROR;
10041: END IF;
10042:
10043: IF l_debug_mode = 'Y' THEN
10050:
10051: EXCEPTION
10052: WHEN FND_API.G_EXC_ERROR THEN
10053: x_return_status := FND_API.G_RET_STS_ERROR;
10054: l_msg_count := FND_MSG_PUB.count_msg;
10055:
10056: IF p_commit = FND_API.G_TRUE THEN
10057: ROLLBACK TO DELETE_ASSIGNMENTS_SP;
10058: END IF;
10100: IF cur_get_system_status%ISOPEN THEN
10101: CLOSE cur_get_system_status ;
10102: END IF;
10103:
10104: FND_MSG_PUB.add_exc_msg (
10105: p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
10106: , p_procedure_name => 'DELETE_REQUIREMENTS'
10107: , p_error_text => x_msg_data);
10108:
10105: p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
10106: , p_procedure_name => 'DELETE_REQUIREMENTS'
10107: , p_error_text => x_msg_data);
10108:
10109: x_msg_count := FND_MSG_PUB.count_msg;
10110:
10111: IF l_debug_mode = 'Y' THEN
10112: PA_DEBUG.reset_curr_function;
10113: END IF;
10268: PA_DEBUG.set_curr_function(p_function => 'SUBMIT_ASSIGNMENTS', p_debug_mode => l_debug_mode);
10269: END IF;
10270:
10271: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
10272: FND_MSG_PUB.initialize;
10273: END IF;
10274: --------------------------------------------------
10275: -- Create Savepoint
10276: --------------------------------------------------
10306: l_error_flag_local := 'N';
10307: l_missing_params := null;
10308: l_asgn_rec := NULL ;
10309:
10310: l_start_msg_count := FND_MSG_PUB.count_msg;
10311:
10312: l_asgn_rec := p_submit_assignment_in_tbl(i);
10313:
10314: -- Blank Out Parameters if not passed.
10426: IF l_debug_mode = 'Y' THEN
10427: pa_debug.write(l_module, 'Before Calling PA_ASSIGNMENT_APPROVAL_PUB.Populate_Changed_Items_Table for record number '||i, l_log_level);
10428: END IF;
10429:
10430: l_before_api_msg_count := FND_MSG_PUB.count_msg;
10431: PA_ASSIGNMENT_APPROVAL_PUB.Populate_Changed_Items_Table
10432: (
10433: p_assignment_id => l_assignment_id
10434: ,x_new_assignment_flag => l_out_new_assignment_flag
10438: ,x_msg_count => l_msg_count
10439: ,x_msg_data => l_msg_data
10440: );
10441:
10442: l_after_api_msg_count := FND_MSG_PUB.count_msg;
10443: -- Dont rely on l_return_status as inside above API
10444: -- IF no of msgs in stack is > 0 ,they set it as error
10445: -- So, Just rely on (l_after_api_msg_count - l_before_api_msg_count) value
10446:
10517: IF l_debug_mode = 'Y' THEN
10518: pa_debug.write(l_module, 'Calling Start_Assignment_Approvals',l_log_level);
10519: END IF;
10520:
10521: l_before_api_msg_count := FND_MSG_PUB.count_msg;
10522:
10523: -- Call API PA_ASSIGNMENT_APPROVAL_PUB.Start_Assignment_Approvals
10524: PA_ASSIGNMENT_APPROVAL_PUB.Start_Assignment_Approvals
10525: (
10534: ,x_return_status => l_return_status
10535: ,x_msg_count => l_msg_count
10536: ,x_msg_data => l_msg_data
10537: );
10538: l_after_api_msg_count := FND_MSG_PUB.count_msg;
10539:
10540: IF l_debug_mode = 'Y' THEN
10541: pa_debug.write(l_module, 'l_overcommitment_flag ' ||l_overcommitment_flag,l_log_level);
10542: pa_debug.write(l_module, 'l_conflict_group_id ' ||l_conflict_group_id,l_log_level);
10615: ELSE
10616: l_validate_only := FND_API.G_FALSE;
10617: END IF;
10618:
10619: l_before_api_msg_count := FND_MSG_PUB.count_msg;
10620: PA_ASSIGNMENT_APPROVAL_PUB.Start_Assignment_Approvals
10621: (
10622: p_assignment_id => l_assignment_id
10623: ,p_new_assignment_flag => l_out_new_assignment_flag
10638: );
10639: --l_apr_person_name1:= pa_resource_utils.get_person_name_no_date(l_apr_person_id_1);
10640: --l_apr_person_name2:=pa_resource_utils.get_person_name_no_date(l_apr_person_id_2);
10641:
10642: l_after_api_msg_count := FND_MSG_PUB.count_msg;
10643:
10644: IF l_debug_mode = 'Y' THEN
10645: pa_debug.write(l_module, 'l_overcommitment_flag ' ||l_overcommitment_flag,l_log_level);
10646: pa_debug.write(l_module, 'l_conflict_group_id ' ||l_conflict_group_id,l_log_level);
10658:
10659: IF (l_error_flag_local <> 'Y' AND l_apr_person_id_2 IS NOT NULL) THEN
10660: -- Call API for Approver 2
10661: l_validate_only := FND_API.G_FALSE; -- Added for Bug 5245870
10662: l_before_api_msg_count := FND_MSG_PUB.count_msg;
10663: PA_ASSIGNMENT_APPROVAL_PUB.Start_Assignment_Approvals
10664: (
10665: p_assignment_id => l_assignment_id
10666: ,p_new_assignment_flag => l_out_new_assignment_flag
10681: );
10682: --l_apr_person_name1:= pa_resource_utils.get_person_name_no_date(l_apr_person_id_1);
10683: --l_apr_person_name2:=pa_resource_utils.get_person_name_no_date(l_apr_person_id_2);
10684:
10685: l_after_api_msg_count := FND_MSG_PUB.count_msg;
10686: IF (l_after_api_msg_count - l_before_api_msg_count) > 0 THEN
10687: l_error_flag_local := 'Y';
10688: -- Dont check l_return_status as internal API
10689: -- sets return status as E if there are any msgs in stack
10694:
10695: END IF; -- l_error_flag_local <> Y --------- (2)
10696: END IF; -- l_error_flag_local <> Y --------- (1)
10697:
10698: l_end_msg_count := FND_MSG_PUB.count_msg;
10699:
10700: l_loop_msg_count := l_end_msg_count - l_start_msg_count;
10701:
10702: IF l_error_flag_local = 'Y' OR l_loop_msg_count > 0 THEN
10708:
10709: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
10710: -- Always get from first location in stack i.e. l_start_msg_count+1
10711: -- Because stack moves down after delete
10712: FND_MSG_PUB.get (
10713: p_msg_index => l_start_msg_count+1,
10714: p_encoded => FND_API.G_FALSE,
10715: p_data => l_data,
10716: p_msg_index_out => l_msg_index_out );
10716: p_msg_index_out => l_msg_index_out );
10717:
10718: -- Always delete at first location in stack i.e. l_start_msg_count+1
10719: -- Because stack moves down after delete
10720: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
10721:
10722: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
10723: 'RECORD_NO', i,
10724: 'MESSAGE', l_data);
10729: END IF;
10730: i:= p_submit_assignment_in_tbl.next(i);
10731: END LOOP;
10732:
10733: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
10734: RAISE FND_API.G_EXC_ERROR;
10735: END IF;
10736:
10737: IF l_debug_mode = 'Y' THEN
10745: EXCEPTION
10746: WHEN FND_API.G_EXC_ERROR THEN
10747:
10748: x_return_status := FND_API.G_RET_STS_ERROR;
10749: l_msg_count := FND_MSG_PUB.count_msg;
10750:
10751: IF c_valid_asgn_id%ISOPEN THEN
10752: CLOSE c_valid_asgn_id ;
10753: END IF;
10795: IF p_commit = FND_API.G_TRUE THEN
10796: ROLLBACK TO SUBMIT_ASSIGNMENTS_SP;
10797: END IF;
10798:
10799: FND_MSG_PUB.add_exc_msg
10800: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
10801: , p_procedure_name => 'SUBMIT_ASSIGNMENTS'
10802: , p_error_text => x_msg_data);
10803:
10800: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
10801: , p_procedure_name => 'SUBMIT_ASSIGNMENTS'
10802: , p_error_text => x_msg_data);
10803:
10804: x_msg_count := FND_MSG_PUB.count_msg;
10805:
10806: IF l_debug_mode = 'Y' THEN
10807: PA_DEBUG.reset_curr_function;
10808: END IF;
10933: PA_DEBUG.set_curr_function(p_function => 'CREATE_REQUIREMENT_COMPETENCE', p_debug_mode => l_debug_mode);
10934: END IF;
10935:
10936: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
10937: FND_MSG_PUB.initialize;
10938: END IF;
10939:
10940: IF P_COMMIT = FND_API.G_TRUE THEN
10941: SAVEPOINT CREATE_REQU_COMPETENCE_SP;
10997: pa_debug.write(l_module, '-------------------------------', l_debug_level);
10998: END IF ;
10999:
11000: l_local_error_flag := 'N';
11001: l_start_msg_count := FND_MSG_PUB.count_msg;
11002: l_competence_in_rec:=NULL ;
11003: l_miss_params := NULL;
11004: l_competence_in_rec := p_competence_in_tbl(i);
11005: -- Nulling out unpassed parameters
11245: x_competence_element_id_tbl.extend(1);
11246: x_competence_element_id_tbl(x_competence_element_id_tbl.count):= -1;
11247: END IF ;
11248: -- Taking end count of loop
11249: l_end_msg_count := FND_MSG_PUB.count_msg;
11250: l_loop_msg_count := l_end_msg_count - l_start_msg_count;
11251:
11252: IF l_debug_mode = 'Y' THEN
11253: pa_debug.write(l_module, 'Error Flag for Record '|| i || ' is l_local_error_flag '|| l_local_error_flag , l_debug_level);
11260: pa_debug.write(l_module, 'After Calling PA_COMPETENCE_PUB.ADD_COMPETENCE_ELEMENT ', l_debug_level);
11261: END IF ;
11262:
11263: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
11264: FND_MSG_PUB.get (
11265: p_msg_index => l_start_msg_count+1
11266: , p_encoded => FND_API.G_FALSE
11267: , p_data => l_data
11268: , p_msg_index_out => l_msg_index_out );
11266: , p_encoded => FND_API.G_FALSE
11267: , p_data => l_data
11268: , p_msg_index_out => l_msg_index_out );
11269:
11270: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
11271: -- Adding Record Number to The Message.
11272: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
11273: 'RECORD_NO', i,
11274: 'MESSAGE', l_data);
11281: IF l_debug_mode = 'Y' THEN
11282: pa_debug.write(l_module, 'Out Of PA_COMPETENCE_PUB.ADD_COMPETENCE_ELEMENT API calling Loop', l_debug_level);
11283: END IF ;
11284:
11285: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
11286: RAISE FND_API.G_EXC_ERROR;
11287: END IF;
11288:
11289: IF l_debug_mode = 'Y' THEN
11296:
11297: EXCEPTION
11298: WHEN FND_API.G_EXC_ERROR THEN
11299: x_return_status := FND_API.G_RET_STS_ERROR;
11300: l_msg_count := FND_MSG_PUB.count_msg;
11301:
11302: IF l_debug_mode = 'Y' THEN
11303: pa_debug.write(l_module, 'In Side Exception Block FND_API.G_EXC_ERROR', l_debug_level);
11304: pa_debug.write(l_module, 'Closing CURSORS if OPEN', l_debug_level);
11356: IF p_commit = FND_API.G_TRUE THEN
11357: ROLLBACK TO CREATE_REQU_COMPETENCE_SP;
11358: END IF;
11359:
11360: FND_MSG_PUB.add_exc_msg (
11361: p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
11362: , p_procedure_name => 'CREATE_REQUIREMENT_COMPETENCE'
11363: , p_error_text => x_msg_data);
11364:
11361: p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
11362: , p_procedure_name => 'CREATE_REQUIREMENT_COMPETENCE'
11363: , p_error_text => x_msg_data);
11364:
11365: x_msg_count := FND_MSG_PUB.count_msg;
11366:
11367: IF l_debug_mode = 'Y' THEN
11368: PA_DEBUG.reset_curr_function;
11369: END IF;
11516: END IF;
11517:
11518: -- Resetting the Error Stack.
11519: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
11520: FND_MSG_PUB.initialize;
11521: END IF;
11522:
11523: IF P_COMMIT = FND_API.G_TRUE THEN
11524: SAVEPOINT UPDATE_REQU_COMPETENCE_SP;
11581: pa_debug.write(l_module, 'Inside Loop For Record '|| i , l_debug_level);
11582: END IF ;
11583: -- setting the Params at the starting of the loop
11584: l_local_error_flag := 'N';
11585: l_start_msg_count := FND_MSG_PUB.count_msg;
11586: l_competence_in_rec := NULL ;
11587: l_miss_params := NULL;
11588: l_competence_in_rec := P_COMPETENCE_IN_TBL(i);
11589:
11826: pa_debug.write(l_module, 'l_return_status '|| l_return_status || 'for record '|| i , l_debug_level);
11827: END IF ;
11828: END IF;-- end of API call..
11829:
11830: l_end_msg_count := FND_MSG_PUB.count_msg;
11831: l_loop_msg_count := l_end_msg_count - l_start_msg_count;
11832:
11833: IF l_debug_mode = 'Y' THEN
11834: pa_debug.write(l_module, 'Error Flag for Record '|| i || ' is l_local_error_flag '|| l_local_error_flag , l_debug_level);
11839: IF l_debug_mode = 'Y' THEN
11840: pa_debug.write(l_module, 'After Calling PA_COMPETENCE_PUB.UPDATE_COMPETENCE_ELEMENT ', l_debug_level);
11841: END IF ;
11842: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
11843: FND_MSG_PUB.get (
11844: p_msg_index => l_start_msg_count+1
11845: , p_encoded => FND_API.G_FALSE
11846: , p_data => l_data
11847: , p_msg_index_out => l_msg_index_out );
11845: , p_encoded => FND_API.G_FALSE
11846: , p_data => l_data
11847: , p_msg_index_out => l_msg_index_out );
11848:
11849: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
11850: -- Adding Record Number to The Message.
11851: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
11852: 'RECORD_NO', i,
11853: 'MESSAGE', l_data);
11860: IF l_debug_mode = 'Y' THEN
11861: pa_debug.write(l_module,'Out Of PA_COMPETENCE_PUB.UPDATE_COMPETENCE_ELEMENT API calling Loop', l_debug_level);
11862: END IF ;
11863:
11864: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
11865: RAISE FND_API.G_EXC_ERROR;
11866: END IF;
11867:
11868: IF l_debug_mode = 'Y' THEN
11875:
11876: EXCEPTION
11877: WHEN FND_API.G_EXC_ERROR THEN
11878: x_return_status := FND_API.G_RET_STS_ERROR;
11879: l_msg_count := FND_MSG_PUB.count_msg;
11880:
11881: IF l_debug_mode = 'Y' THEN
11882: pa_debug.write(l_module,'In Side Exception Block FND_API.G_EXC_ERROR', l_debug_level);
11883: pa_debug.write(l_module,'Closing CURSORS if OPEN', l_debug_level);
11943: IF p_commit = FND_API.G_TRUE THEN
11944: ROLLBACK TO UPDATE_REQU_COMPETENCE_SP;
11945: END IF;
11946:
11947: FND_MSG_PUB.ADD_EXC_MSG(
11948: p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
11949: , p_procedure_name => 'CREATE_REQUIREMENT_COMPETENCE'
11950: , p_error_text => x_msg_data);
11951:
11948: p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
11949: , p_procedure_name => 'CREATE_REQUIREMENT_COMPETENCE'
11950: , p_error_text => x_msg_data);
11951:
11952: x_msg_count := FND_MSG_PUB.count_msg;
11953:
11954: IF l_debug_mode = 'Y' THEN
11955: PA_DEBUG.reset_curr_function;
11956: END IF;
12088: END IF;
12089:
12090: -- Resetting the Error Stack.
12091: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
12092: FND_MSG_PUB.initialize;
12093: END IF;
12094:
12095: IF P_COMMIT = FND_API.G_TRUE THEN
12096: SAVEPOINT DELETE_REQU_COMPETENCE_SP;
12148: pa_debug.write(l_module,'Inside Loop For Record '|| i , l_debug_level);
12149: END IF ;
12150: -- Initializing the local Params for loop
12151: l_local_error_flag := 'N';
12152: l_start_msg_count := FND_MSG_PUB.count_msg;
12153: l_competence_in_rec := NULL ;
12154: l_miss_params := NULL;
12155: l_competence_in_rec := P_COMPETENCE_IN_TBL(i);
12156: -- check for missparams.......
12331: END IF ;
12332:
12333: END IF;-- end of API call..
12334:
12335: l_end_msg_count := FND_MSG_PUB.count_msg;
12336: l_loop_msg_count := l_end_msg_count - l_start_msg_count;
12337:
12338: IF l_debug_mode = 'Y' THEN
12339: pa_debug.write(l_module,'Error Flag for Record '|| i || ' is l_local_error_flag '|| l_local_error_flag , l_debug_level);
12344: IF l_debug_mode = 'Y' THEN
12345: pa_debug.write(l_module,'After Calling PA_COMPETENCE_PUB.DELETE_COMPETENCE_ELEMENT ', l_debug_level);
12346: END IF ;
12347: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
12348: FND_MSG_PUB.GET (
12349: p_msg_index => l_start_msg_count+1
12350: , p_encoded => FND_API.G_FALSE
12351: , p_data => l_data
12352: , p_msg_index_out => l_msg_index_out );
12350: , p_encoded => FND_API.G_FALSE
12351: , p_data => l_data
12352: , p_msg_index_out => l_msg_index_out );
12353:
12354: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
12355: -- Adding Record Number to The Message.
12356: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
12357: 'RECORD_NO', i,
12358: 'MESSAGE', l_data);
12364: IF l_debug_mode = 'Y' THEN
12365: pa_debug.write(l_module,'Out Of PA_COMPETENCE_PUB.DELETE_COMPETENCE_ELEMENT API calling Loop', l_debug_level);
12366: END IF ;
12367:
12368: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
12369: RAISE FND_API.G_EXC_ERROR;
12370: END IF;
12371:
12372: IF l_debug_mode = 'Y' THEN
12379:
12380: EXCEPTION
12381: WHEN FND_API.G_EXC_ERROR THEN
12382: x_return_status := FND_API.G_RET_STS_ERROR;
12383: l_msg_count := FND_MSG_PUB.count_msg;
12384:
12385: IF l_debug_mode = 'Y' THEN
12386: pa_debug.write(l_module,'In Side Exception Block FND_API.G_EXC_ERROR', l_debug_level);
12387: pa_debug.write(l_module,'Closing CURSORS if OPEN', l_debug_level);
12447: IF p_commit = FND_API.G_TRUE THEN
12448: ROLLBACK TO DELETE_REQU_COMPETENCE_SP;
12449: END IF;
12450:
12451: FND_MSG_PUB.ADD_EXC_MSG(
12452: p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
12453: , p_procedure_name => 'CREATE_REQUIREMENT_COMPETENCE'
12454: , p_error_text => x_msg_data);
12455:
12452: p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
12453: , p_procedure_name => 'CREATE_REQUIREMENT_COMPETENCE'
12454: , p_error_text => x_msg_data);
12455:
12456: x_msg_count := FND_MSG_PUB.count_msg;
12457:
12458: IF l_debug_mode = 'Y' THEN
12459: PA_DEBUG.reset_curr_function;
12460: END IF;
12601: PA_DEBUG.set_curr_function(p_function => 'CREATE_CANDIDATES', p_debug_mode => l_debug_mode);
12602: END IF;
12603:
12604: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
12605: FND_MSG_PUB.initialize;
12606: END IF;
12607:
12608: IF p_commit = FND_API.G_TRUE THEN
12609: savepoint CREATE_CANDIDATES_SP;
12661: WHILE i is not NULL LOOP
12662:
12663: l_missing_params := null;
12664: l_error_flag_local := 'N';
12665: l_start_msg_count := FND_MSG_PUB.count_msg;
12666:
12667: l_candidate_in_rec := p_candidate_in_tbl(i);
12668:
12669: IF l_debug_mode = 'Y' THEN
12934: x_candidate_id_tbl.extend(1);
12935: x_candidate_id_tbl(x_candidate_id_tbl.COUNT) := -1;
12936: END IF;
12937:
12938: l_end_msg_count := FND_MSG_PUB.count_msg;
12939: IF l_debug_mode = 'Y' THEN
12940: pa_debug.write(l_module, 'l_start_msg_count='||l_start_msg_count, l_log_level);
12941: pa_debug.write(l_module, 'l_end_msg_count='||l_end_msg_count, l_log_level);
12942: END IF;
12951:
12952: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
12953: -- Always get from first location in stack i.e. l_start_msg_count+1
12954: -- Because stack moves down after delete
12955: FND_MSG_PUB.get (
12956: p_msg_index => l_start_msg_count+1,
12957: p_encoded => FND_API.G_FALSE,
12958: p_data => l_data,
12959: p_msg_index_out => l_msg_index_out );
12959: p_msg_index_out => l_msg_index_out );
12960:
12961: -- Always delete at first location in stack i.e. l_start_msg_count+1
12962: -- Because stack moves down after delete
12963: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
12964:
12965: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
12966: 'RECORD_NO', i,
12967: 'MESSAGE', l_data);
12977:
12978: IF l_debug_mode = 'Y' THEN
12979: pa_debug.write(l_module, 'All records are done', l_log_level);
12980: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
12981: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
12982: END IF;
12983:
12984: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
12985: RAISE FND_API.G_EXC_ERROR;
12980: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
12981: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
12982: END IF;
12983:
12984: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
12985: RAISE FND_API.G_EXC_ERROR;
12986: END IF;
12987:
12988: IF l_debug_mode = 'Y' THEN
12996: EXCEPTION
12997:
12998: WHEN FND_API.G_EXC_ERROR THEN
12999: x_return_status := FND_API.G_RET_STS_ERROR;
13000: l_msg_count := FND_MSG_PUB.count_msg;
13001:
13002: IF c_get_requirement_info%ISOPEN THEN
13003: CLOSE c_get_requirement_info;
13004: END IF;
13070: IF p_commit = FND_API.G_TRUE THEN
13071: ROLLBACK TO CREATE_CANDIDATES_SP;
13072: END IF;
13073:
13074: FND_MSG_PUB.add_exc_msg
13075: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
13076: , p_procedure_name => 'CREATE_CANDIDATES'
13077: , p_error_text => x_msg_data);
13078:
13075: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
13076: , p_procedure_name => 'CREATE_CANDIDATES'
13077: , p_error_text => x_msg_data);
13078:
13079: x_msg_count := FND_MSG_PUB.count_msg;
13080:
13081: IF l_debug_mode = 'Y' THEN
13082: PA_DEBUG.reset_curr_function;
13083: END IF;
13195: PA_DEBUG.set_curr_function(p_function => 'UPDATE_CANDIDATES', p_debug_mode => l_debug_mode);
13196: END IF;
13197:
13198: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
13199: FND_MSG_PUB.initialize;
13200: END IF;
13201:
13202: IF p_commit = FND_API.G_TRUE THEN
13203: savepoint UPDATE_CANDIDATES_SP;
13249:
13250: WHILE i IS NOT NULL LOOP
13251: l_error_flag_local := 'N';
13252: l_missing_params := null;
13253: l_start_msg_count := FND_MSG_PUB.count_msg;
13254:
13255: l_candidate_in_rec := p_candidate_in_tbl(i);
13256: l_cand_rec := null;
13257:
13470: END IF;
13471: END IF;
13472: END IF;
13473:
13474: l_end_msg_count := FND_MSG_PUB.count_msg;
13475: IF l_debug_mode = 'Y' THEN
13476: pa_debug.write(l_module, 'l_start_msg_count='||l_start_msg_count, l_log_level);
13477: pa_debug.write(l_module, 'l_end_msg_count='||l_end_msg_count, l_log_level);
13478: END IF;
13487:
13488: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
13489: -- Always get from first location in stack i.e. l_start_msg_count+1
13490: -- Because stack moves down after delete
13491: FND_MSG_PUB.get (
13492: p_msg_index => l_start_msg_count+1,
13493: p_encoded => FND_API.G_FALSE,
13494: p_data => l_data,
13495: p_msg_index_out => l_msg_index_out );
13495: p_msg_index_out => l_msg_index_out );
13496:
13497: -- Always delete at first location in stack i.e. l_start_msg_count+1
13498: -- Because stack moves down after delete
13499: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
13500:
13501: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
13502: 'RECORD_NO', i,
13503: 'MESSAGE', l_data);
13513:
13514: IF l_debug_mode = 'Y' THEN
13515: pa_debug.write(l_module, 'All records are done', l_log_level);
13516: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
13517: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
13518: END IF;
13519:
13520: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
13521: RAISE FND_API.G_EXC_ERROR;
13516: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
13517: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
13518: END IF;
13519:
13520: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
13521: RAISE FND_API.G_EXC_ERROR;
13522: END IF;
13523:
13524: IF l_debug_mode = 'Y' THEN
13533:
13534: WHEN FND_API.G_EXC_ERROR THEN
13535:
13536: x_return_status := FND_API.G_RET_STS_ERROR;
13537: l_msg_count := FND_MSG_PUB.count_msg;
13538:
13539: IF c_get_candidate_details%ISOPEN THEN
13540: CLOSE c_get_candidate_details;
13541: END IF;
13575: IF p_commit = FND_API.G_TRUE THEN
13576: ROLLBACK TO UPDATE_CANDIDATES_SP;
13577: END IF;
13578:
13579: FND_MSG_PUB.add_exc_msg
13580: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
13581: , p_procedure_name => 'UPDATE_CANDIDATES'
13582: , p_error_text => x_msg_data);
13583:
13580: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
13581: , p_procedure_name => 'UPDATE_CANDIDATES'
13582: , p_error_text => x_msg_data);
13583:
13584: x_msg_count := FND_MSG_PUB.count_msg;
13585:
13586: IF l_debug_mode = 'Y' THEN
13587: PA_DEBUG.reset_curr_function;
13588: END IF;
13688: PA_DEBUG.set_curr_function(p_function => 'DELETE_CANDIDATES', p_debug_mode => l_debug_mode);
13689: END IF;
13690:
13691: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
13692: FND_MSG_PUB.initialize;
13693: END IF;
13694:
13695: IF p_commit = FND_API.G_TRUE THEN
13696: savepoint DELETE_CANDIDATES_SP;
13742:
13743: WHILE i IS NOT NULL LOOP
13744: l_error_flag_local := 'N';
13745: l_missing_params := null;
13746: l_start_msg_count := FND_MSG_PUB.count_msg;
13747:
13748: l_candidate_in_rec := p_candidate_in_tbl(i);
13749: l_record_version_number := 0;
13750: l_project_id := 0;
13911: END IF;
13912: END IF;
13913: END IF;
13914:
13915: l_end_msg_count := FND_MSG_PUB.count_msg;
13916: IF l_debug_mode = 'Y' THEN
13917: pa_debug.write(l_module, 'l_start_msg_count='||l_start_msg_count, l_log_level);
13918: pa_debug.write(l_module, 'l_end_msg_count='||l_end_msg_count, l_log_level);
13919: END IF;
13928:
13929: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
13930: -- Always get from first location in stack i.e. l_start_msg_count+1
13931: -- Because stack moves down after delete
13932: FND_MSG_PUB.get (
13933: p_msg_index => l_start_msg_count+1,
13934: p_encoded => FND_API.G_FALSE,
13935: p_data => l_data,
13936: p_msg_index_out => l_msg_index_out );
13936: p_msg_index_out => l_msg_index_out );
13937:
13938: -- Always delete at first location in stack i.e. l_start_msg_count+1
13939: -- Because stack moves down after delete
13940: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
13941:
13942: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
13943: 'RECORD_NO', i,
13944: 'MESSAGE', l_data);
13954:
13955: IF l_debug_mode = 'Y' THEN
13956: pa_debug.write(l_module, 'All records are done', l_log_level);
13957: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
13958: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
13959: END IF;
13960:
13961: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
13962: RAISE FND_API.G_EXC_ERROR;
13957: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
13958: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
13959: END IF;
13960:
13961: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
13962: RAISE FND_API.G_EXC_ERROR;
13963: END IF;
13964:
13965: IF l_debug_mode = 'Y' THEN
13974:
13975: WHEN FND_API.G_EXC_ERROR THEN
13976:
13977: x_return_status := FND_API.G_RET_STS_ERROR;
13978: l_msg_count := FND_MSG_PUB.count_msg;
13979:
13980: IF c_get_requirement_info%ISOPEN THEN
13981: CLOSE c_get_requirement_info;
13982: END IF;
14016: IF p_commit = FND_API.G_TRUE THEN
14017: ROLLBACK TO DELETE_CANDIDATES_SP;
14018: END IF;
14019:
14020: FND_MSG_PUB.add_exc_msg
14021: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
14022: , p_procedure_name => 'DELETE_CANDIDATES'
14023: , p_error_text => x_msg_data);
14024:
14021: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
14022: , p_procedure_name => 'DELETE_CANDIDATES'
14023: , p_error_text => x_msg_data);
14024:
14025: x_msg_count := FND_MSG_PUB.count_msg;
14026:
14027: IF l_debug_mode = 'Y' THEN
14028: PA_DEBUG.reset_curr_function;
14029: END IF;
14149: PA_DEBUG.set_curr_function(p_function => 'CREATE_CANDIDATE_LOG', p_debug_mode => l_debug_mode);
14150: END IF;
14151:
14152: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
14153: FND_MSG_PUB.initialize;
14154: END IF;
14155:
14156: IF p_commit = FND_API.G_TRUE THEN
14157: savepoint CREATE_CANDIDATE_LOG_SP;
14198:
14199: WHILE i IS NOT NULL LOOP
14200: l_error_flag_local := 'N';
14201: l_missing_params := null;
14202: l_start_msg_count := FND_MSG_PUB.count_msg;
14203:
14204: l_candidate_log_tbl := p_candidate_log_tbl(i);
14205: l_cand_rec := null;
14206:
14391: x_candidate_review_id_tbl.extend(1);
14392: x_candidate_review_id_tbl(x_candidate_review_id_tbl.COUNT) := -1;
14393: END IF;
14394:
14395: l_end_msg_count := FND_MSG_PUB.count_msg;
14396: IF l_debug_mode = 'Y' THEN
14397: pa_debug.write(l_module, 'l_start_msg_count='||l_start_msg_count, l_log_level);
14398: pa_debug.write(l_module, 'l_end_msg_count='||l_end_msg_count, l_log_level);
14399: END IF;
14408:
14409: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
14410: -- Always get from first location in stack i.e. l_start_msg_count+1
14411: -- Because stack moves down after delete
14412: FND_MSG_PUB.get (
14413: p_msg_index => l_start_msg_count+1,
14414: p_encoded => FND_API.G_FALSE,
14415: p_data => l_data,
14416: p_msg_index_out => l_msg_index_out );
14416: p_msg_index_out => l_msg_index_out );
14417:
14418: -- Always delete at first location in stack i.e. l_start_msg_count+1
14419: -- Because stack moves down after delete
14420: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
14421:
14422: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
14423: 'RECORD_NO', i,
14424: 'MESSAGE', l_data);
14435:
14436: IF l_debug_mode = 'Y' THEN
14437: pa_debug.write(l_module, 'All records are done', l_log_level);
14438: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
14439: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
14440: END IF;
14441:
14442: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
14443: RAISE FND_API.G_EXC_ERROR;
14438: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
14439: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
14440: END IF;
14441:
14442: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
14443: RAISE FND_API.G_EXC_ERROR;
14444: END IF;
14445:
14446: IF l_debug_mode = 'Y' THEN
14455:
14456: WHEN FND_API.G_EXC_ERROR THEN
14457:
14458: x_return_status := FND_API.G_RET_STS_ERROR;
14459: l_msg_count := FND_MSG_PUB.count_msg;
14460:
14461: IF c_get_candidate_details%ISOPEN THEN
14462: CLOSE c_get_candidate_details;
14463: END IF;
14505: IF p_commit = FND_API.G_TRUE THEN
14506: ROLLBACK TO CREATE_CANDIDATE_LOG_SP;
14507: END IF;
14508:
14509: FND_MSG_PUB.add_exc_msg
14510: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
14511: , p_procedure_name => 'CREATE_CANDIDATE_LOG'
14512: , p_error_text => x_msg_data);
14513:
14510: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
14511: , p_procedure_name => 'CREATE_CANDIDATE_LOG'
14512: , p_error_text => x_msg_data);
14513:
14514: x_msg_count := FND_MSG_PUB.count_msg;
14515:
14516: IF l_debug_mode = 'Y' THEN
14517: PA_DEBUG.reset_curr_function;
14518: END IF;