[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.
2520: x_requirement_id_tbl.extend(1);
2521: x_requirement_id_tbl(x_requirement_id_tbl.count):= -1;
2522: END IF;
2523:
2524: l_end_msg_count := FND_MSG_PUB.count_msg;
2525: IF l_debug_mode = 'Y' THEN
2526: pa_debug.write(l_module, 'l_start_msg_count='||l_start_msg_count, l_log_level);
2527: pa_debug.write(l_module, 'l_end_msg_count='||l_end_msg_count, l_log_level);
2528: END IF;
2537:
2538: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
2539: -- Always get from first location in stack i.e. l_start_msg_count+1
2540: -- Because stack moves down after delete
2541: FND_MSG_PUB.get (
2542: p_msg_index => l_start_msg_count+1,
2543: p_encoded => FND_API.G_FALSE,
2544: p_data => l_data,
2545: p_msg_index_out => l_msg_index_out );
2545: p_msg_index_out => l_msg_index_out );
2546:
2547: -- Always delete at first location in stack i.e. l_start_msg_count+1
2548: -- Because stack moves down after delete
2549: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
2550:
2551: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
2552: 'RECORD_NO', i,
2553: 'MESSAGE', l_data);
2561:
2562: IF l_debug_mode = 'Y' THEN
2563: pa_debug.write(l_module, 'All records are done', l_log_level);
2564: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
2565: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
2566: END IF;
2567:
2568: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
2569: RAISE FND_API.G_EXC_ERROR;
2564: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
2565: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
2566: END IF;
2567:
2568: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
2569: RAISE FND_API.G_EXC_ERROR;
2570: END IF;
2571:
2572: IF l_debug_mode = 'Y' THEN
2580:
2581: EXCEPTION
2582: WHEN FND_API.G_EXC_ERROR THEN
2583: x_return_status := FND_API.G_RET_STS_ERROR;
2584: l_msg_count := FND_MSG_PUB.count_msg;
2585:
2586: IF p_commit = FND_API.G_TRUE THEN
2587: ROLLBACK TO CREATE_REQUIREMENTS_SP;
2588: END IF;
2614: IF p_commit = FND_API.G_TRUE THEN
2615: ROLLBACK TO CREATE_REQUIREMENTS_SP;
2616: END IF;
2617:
2618: FND_MSG_PUB.add_exc_msg
2619: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
2620: , p_procedure_name => 'CREATE_REQUIREMENTS'
2621: , p_error_text => x_msg_data);
2622:
2619: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
2620: , p_procedure_name => 'CREATE_REQUIREMENTS'
2621: , p_error_text => x_msg_data);
2622:
2623: x_msg_count := FND_MSG_PUB.count_msg;
2624:
2625: IF l_debug_mode = 'Y' THEN
2626: PA_DEBUG.reset_curr_function;
2627: END IF;
2814: PA_DEBUG.set_curr_function(p_function => 'UPDATE_REQUIREMENTS', p_debug_mode => l_debug_mode);
2815: END IF;
2816:
2817: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
2818: FND_MSG_PUB.initialize;
2819: END IF;
2820:
2821: IF p_commit = FND_API.G_TRUE THEN
2822: savepoint UPDATE_REQUIREMENTS_SP;
2957: l_fin_info_changed := 'N';
2958: l_fin_bill_rate_info_changed := 'N';
2959: l_fin_tp_rate_info_changed := 'N';
2960:
2961: l_start_msg_count := FND_MSG_PUB.count_msg;
2962:
2963: l_req_rec := p_requirement_in_tbl(i);
2964:
2965: -- Mandatory Parameters Check
4529: END IF;
4530: END IF;
4531: END IF;
4532:
4533: l_end_msg_count := FND_MSG_PUB.count_msg;
4534: IF l_debug_mode = 'Y' THEN
4535: pa_debug.write(l_module, 'l_start_msg_count='||l_start_msg_count, l_log_level);
4536: pa_debug.write(l_module, 'l_end_msg_count='||l_end_msg_count, l_log_level);
4537: END IF;
4546:
4547: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
4548: -- Always get from first location in stack i.e. l_start_msg_count+1
4549: -- Because stack moves down after delete
4550: FND_MSG_PUB.get (
4551: p_msg_index => l_start_msg_count+1,
4552: p_encoded => FND_API.G_FALSE,
4553: p_data => l_data,
4554: p_msg_index_out => l_msg_index_out );
4554: p_msg_index_out => l_msg_index_out );
4555:
4556: -- Always delete at first location in stack i.e. l_start_msg_count+1
4557: -- Because stack moves down after delete
4558: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
4559:
4560: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
4561: 'RECORD_NO', i,
4562: 'MESSAGE', l_data);
4570:
4571: IF l_debug_mode = 'Y' THEN
4572: pa_debug.write(l_module, 'All records are done', l_log_level);
4573: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
4574: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
4575: END IF;
4576:
4577: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
4578: RAISE FND_API.G_EXC_ERROR;
4573: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
4574: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
4575: END IF;
4576:
4577: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
4578: RAISE FND_API.G_EXC_ERROR;
4579: END IF;
4580:
4581: IF l_debug_mode = 'Y' THEN
4589:
4590: EXCEPTION
4591: WHEN FND_API.G_EXC_ERROR THEN
4592: x_return_status := FND_API.G_RET_STS_ERROR;
4593: l_msg_count := FND_MSG_PUB.count_msg;
4594:
4595: IF p_commit = FND_API.G_TRUE THEN
4596: ROLLBACK TO UPDATE_REQUIREMENTS_SP;
4597: END IF;
4623: IF p_commit = FND_API.G_TRUE THEN
4624: ROLLBACK TO UPDATE_REQUIREMENTS_SP;
4625: END IF;
4626:
4627: FND_MSG_PUB.add_exc_msg
4628: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
4629: , p_procedure_name => 'UPDATE_REQUIREMENTS'
4630: , p_error_text => x_msg_data);
4631:
4628: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
4629: , p_procedure_name => 'UPDATE_REQUIREMENTS'
4630: , p_error_text => x_msg_data);
4631:
4632: x_msg_count := FND_MSG_PUB.count_msg;
4633:
4634: IF l_debug_mode = 'Y' THEN
4635: PA_DEBUG.reset_curr_function;
4636: END IF;
4754: PA_DEBUG.set_curr_function(p_function => 'DELETE_REQUIREMENTS', p_debug_mode => l_debug_mode);
4755: END IF;
4756:
4757: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
4758: FND_MSG_PUB.initialize;
4759: END IF;
4760: --------------------------------------------------
4761: -- Create Savepoint
4762: --------------------------------------------------
4793: l_error_flag_local := 'N';
4794: l_missing_params := null;
4795: l_req_rec := null;
4796:
4797: l_start_msg_count := FND_MSG_PUB.count_msg;
4798:
4799: l_req_rec := p_requirement_in_tbl(i);
4800:
4801: -- Blank Out Parameters if not passed.
4931: l_error_flag_local := 'Y';
4932: END IF;
4933: END IF;
4934:
4935: l_end_msg_count := FND_MSG_PUB.count_msg;
4936: l_loop_msg_count := l_end_msg_count - l_start_msg_count;
4937:
4938: IF l_error_flag_local = 'Y' OR l_loop_msg_count > 0 THEN
4939: l_error_flag := 'Y';
4940:
4941: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
4942: -- Always get from first location in stack i.e. l_start_msg_count+1
4943: -- Because stack moves down after delete
4944: FND_MSG_PUB.get (
4945: p_msg_index => l_start_msg_count+1,
4946: p_encoded => FND_API.G_FALSE,
4947: p_data => l_data,
4948: p_msg_index_out => l_msg_index_out );
4948: p_msg_index_out => l_msg_index_out );
4949:
4950: -- Always delete at first location in stack i.e. l_start_msg_count+1
4951: -- Because stack moves down after delete
4952: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
4953:
4954: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
4955: 'RECORD_NO', i,
4956: 'MESSAGE', l_data);
4958: END IF;
4959: i := p_requirement_in_tbl.next(i);
4960: END LOOP;
4961:
4962: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
4963: RAISE FND_API.G_EXC_ERROR;
4964: END IF;
4965:
4966: IF l_debug_mode = 'Y' THEN
4974:
4975: EXCEPTION
4976: WHEN FND_API.G_EXC_ERROR THEN
4977: x_return_status := FND_API.G_RET_STS_ERROR;
4978: l_msg_count := FND_MSG_PUB.count_msg;
4979:
4980: IF p_commit = FND_API.G_TRUE THEN
4981: ROLLBACK TO DELETE_REQUIREMENTS_SP;
4982: END IF;
5024: IF c_get_system_status%ISOPEN THEN
5025: CLOSE c_get_system_status ;
5026: END IF;
5027:
5028: FND_MSG_PUB.add_exc_msg
5029: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
5030: , p_procedure_name => 'DELETE_REQUIREMENTS'
5031: , p_error_text => x_msg_data);
5032:
5029: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
5030: , p_procedure_name => 'DELETE_REQUIREMENTS'
5031: , p_error_text => x_msg_data);
5032:
5033: x_msg_count := FND_MSG_PUB.count_msg;
5034:
5035: IF l_debug_mode = 'Y' THEN
5036: PA_DEBUG.reset_curr_function;
5037: END IF;
5200: PA_DEBUG.set_curr_function(p_function => 'STAFF_REQUIREMENTS', p_debug_mode => l_debug_mode);
5201: END IF;
5202:
5203: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
5204: FND_MSG_PUB.initialize;
5205: END IF;
5206: --------------------------------------------------
5207: -- Create Savepoint
5208: --------------------------------------------------
5238: WHILE i is not NULL LOOP
5239: l_error_flag_local := 'N';
5240: l_missing_params := null;
5241: l_staff_rec := NULL ;
5242: l_start_msg_count := FND_MSG_PUB.count_msg;
5243:
5244: l_staff_rec := P_STAFF_REQUIREMENT_TBL(i);
5245:
5246: ------------------------------------------------------------------------------------------
5528: IF l_debug_mode = 'Y' THEN
5529: pa_debug.write(l_module, 'Calling PA_ASSIGNMENTS_PUB.Execute_Staff_Assign_From_Open for record number ' || i, l_log_level);
5530: END IF;
5531:
5532: l_before_api_msg_count := FND_MSG_PUB.count_msg;
5533: PA_ASSIGNMENTS_PUB.Execute_Staff_Assign_From_Open
5534: ( p_asgn_creation_mode => l_requirement_creation_mode
5535: ,p_record_version_number => l_record_version_number
5536: ,p_multiple_status_flag => 'N'
5555: ,x_msg_count => l_msg_count
5556: ,x_msg_data => l_msg_data
5557: );
5558:
5559: l_after_api_msg_count := FND_MSG_PUB.count_msg;
5560: IF l_debug_mode = 'Y' THEN
5561: pa_debug.write(l_module, 'After main API Call l_return_status ' || l_return_status,l_log_level);
5562: pa_debug.write(l_module, 'l_msg_count is ' || l_msg_count ||' and l_msg_data is ' ||l_msg_data);
5563: END IF;
5580: END IF;
5581: END IF;
5582:
5583: ---------------------------------------------------------------------------------------------
5584: l_end_msg_count := FND_MSG_PUB.count_msg;
5585:
5586: l_loop_msg_count := l_end_msg_count - l_start_msg_count;
5587:
5588: IF l_error_flag_local = 'Y' OR l_loop_msg_count > 0 THEN
5590:
5591: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
5592: -- Always get from first location in stack i.e. l_start_msg_count+1
5593: -- Because stack moves down after delete
5594: FND_MSG_PUB.get (
5595: p_msg_index => l_start_msg_count+1,
5596: p_encoded => FND_API.G_FALSE,
5597: p_data => l_data,
5598: p_msg_index_out => l_msg_index_out );
5598: p_msg_index_out => l_msg_index_out );
5599:
5600: -- Always delete at first location in stack i.e. l_start_msg_count+1
5601: -- Because stack moves down after delete
5602: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
5603:
5604: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
5605: 'RECORD_NO', i,'MESSAGE', l_data);
5606: END LOOP;
5609: END IF;
5610: i := P_STAFF_REQUIREMENT_TBL.NEXT(i);
5611: END LOOP;
5612:
5613: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
5614: RAISE FND_API.G_EXC_ERROR;
5615: END IF;
5616:
5617: IF l_debug_mode = 'Y' THEN
5624:
5625: EXCEPTION
5626: WHEN FND_API.G_EXC_ERROR THEN
5627: x_return_status := FND_API.G_RET_STS_ERROR;
5628: l_msg_count := FND_MSG_PUB.count_msg;
5629:
5630: IF p_commit = FND_API.G_TRUE THEN
5631: ROLLBACK TO STAFF_REQUIREMENTS_SP;
5632: END IF;
5698: IF c_valid_unfilled_status_name%ISOPEN THEN
5699: CLOSE c_valid_unfilled_status_name ;
5700: END IF;
5701:
5702: FND_MSG_PUB.add_exc_msg
5703: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
5704: , p_procedure_name => 'STAFF_REQUIREMENTS'
5705: , p_error_text => x_msg_data);
5706:
5703: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
5704: , p_procedure_name => 'STAFF_REQUIREMENTS'
5705: , p_error_text => x_msg_data);
5706:
5707: x_msg_count := FND_MSG_PUB.count_msg;
5708:
5709: IF l_debug_mode = 'Y' THEN
5710: PA_DEBUG.reset_curr_function;
5711: END IF;
5838: PA_DEBUG.set_curr_function(p_function => 'COPY_TEAM_ROLES', p_debug_mode => l_debug_mode);
5839: END IF;
5840:
5841: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
5842: FND_MSG_PUB.initialize;
5843: END IF;
5844: --------------------------------------------------
5845: -- Create Savepoint
5846: --------------------------------------------------
5877: l_missing_params := null;
5878: l_req_asgn_id := null;
5879: l_req_rec := NULL ;
5880:
5881: l_start_msg_count := FND_MSG_PUB.count_msg;
5882:
5883: l_req_rec := p_req_asgn_id_tbl(i);
5884:
5885: l_req_asgn_id := l_req_rec;
5994: IF l_debug_mode = 'Y' THEN
5995: pa_debug.write(l_module, 'Calling PA_ASSIGNMENTS_PUB.COPY_TEAM_ROLES for record number'||i, l_log_level);
5996: END IF;
5997:
5998: l_before_api_msg_count := FND_MSG_PUB.count_msg;
5999: PA_ASSIGNMENTS_PUB.Copy_Team_Role
6000: (
6001: p_assignment_id => l_req_asgn_id,
6002: x_new_assignment_id => l_out_req_asgn_id ,
6005: x_return_status => l_return_status,
6006: x_msg_count => l_msg_count,
6007: x_msg_data => l_msg_data
6008: );
6009: l_after_api_msg_count := FND_MSG_PUB.count_msg;
6010:
6011: IF l_debug_mode = 'Y' THEN
6012: pa_debug.write(l_module, 'After call PA_ASSIGNMENTS_PUB.COPY_TEAM_ROLES l_return_status='||l_return_status, l_log_level);
6013: END IF;
6026: END IF;
6027: END IF;
6028: END IF;
6029:
6030: l_end_msg_count := FND_MSG_PUB.count_msg;
6031: l_loop_msg_count := l_end_msg_count - l_start_msg_count;
6032:
6033: IF l_error_flag_local = 'Y' OR l_loop_msg_count > 0 THEN
6034: l_error_flag := 'Y';
6037: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
6038: -- Always get from first location in stack i.e. l_start_msg_count+1
6039: -- Because stack moves down after delete
6040:
6041: FND_MSG_PUB.get (
6042: p_msg_index => l_start_msg_count+1,
6043: p_encoded => FND_API.G_FALSE,
6044: p_data => l_data,
6045: p_msg_index_out => l_msg_index_out );
6045: p_msg_index_out => l_msg_index_out );
6046:
6047: -- Always delete at first location in stack i.e. l_start_msg_count+1
6048: -- Because stack moves down after delete
6049: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
6050:
6051: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
6052: 'RECORD_NO', i,
6053: 'MESSAGE', l_data);
6056:
6057: i := p_req_asgn_id_tbl.next(i);
6058: END LOOP;
6059:
6060: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
6061: RAISE FND_API.G_EXC_ERROR;
6062: END IF;
6063:
6064: IF l_debug_mode = 'Y' THEN
6070: END IF;
6071: EXCEPTION
6072: WHEN FND_API.G_EXC_ERROR THEN
6073: x_return_status := FND_API.G_RET_STS_ERROR;
6074: l_msg_count := FND_MSG_PUB.count_msg;
6075:
6076: IF p_commit = FND_API.G_TRUE THEN
6077: ROLLBACK TO COPY_TEAM_ROLES_SP;
6078: END IF;
6121: IF c_get_system_status%ISOPEN THEN
6122: CLOSE c_get_system_status ;
6123: END IF;
6124:
6125: FND_MSG_PUB.add_exc_msg
6126: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
6127: , p_procedure_name => 'COPY_TEAM_ROLES'
6128: , p_error_text => x_msg_data);
6129:
6126: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
6127: , p_procedure_name => 'COPY_TEAM_ROLES'
6128: , p_error_text => x_msg_data);
6129:
6130: x_msg_count := FND_MSG_PUB.count_msg;
6131:
6132: IF l_debug_mode = 'Y' THEN
6133: PA_DEBUG.reset_curr_function;
6134: END IF;
6391: PA_DEBUG.set_curr_function(p_function => 'CREATE_ASSIGNMENTS', p_debug_mode => l_debug_mode);
6392: END IF;
6393:
6394: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
6395: FND_MSG_PUB.initialize;
6396: END IF;
6397:
6398: IF p_commit = FND_API.G_TRUE THEN
6399: savepoint CREATE_ASSIGNMENTS_SP;
6506: l_asgn_rec := null;
6507: l_valid_country := 'Y';
6508: PA_STAFFED_ASSIGNMENT_PVT.G_AUTO_APPROVE := NULL ;
6509:
6510: l_start_msg_count := FND_MSG_PUB.count_msg;
6511:
6512: l_asgn_rec := p_assignment_in_tbl(i);
6513:
6514: -- Blank Out Parameters if not passed.
7809: END IF;
7810: END IF;
7811: END IF;
7812:
7813: l_end_msg_count := FND_MSG_PUB.count_msg;
7814: IF l_debug_mode = 'Y' THEN
7815: pa_debug.write(l_module, 'l_start_msg_count='||l_start_msg_count, l_log_level);
7816: pa_debug.write(l_module, 'l_end_msg_count='||l_end_msg_count, l_log_level);
7817: END IF;
7826:
7827: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
7828: -- Always get from first location in stack i.e. l_start_msg_count+1
7829: -- Because stack moves down after delete
7830: FND_MSG_PUB.get (
7831: p_msg_index => l_start_msg_count+1,
7832: p_encoded => FND_API.G_FALSE,
7833: p_data => l_data,
7834: p_msg_index_out => l_msg_index_out );
7834: p_msg_index_out => l_msg_index_out );
7835:
7836: -- Always delete at first location in stack i.e. l_start_msg_count+1
7837: -- Because stack moves down after delete
7838: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
7839:
7840: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
7841: 'RECORD_NO', i,
7842: 'MESSAGE', l_data);
7850:
7851: IF l_debug_mode = 'Y' THEN
7852: pa_debug.write(l_module, 'All records are done', l_log_level);
7853: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
7854: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
7855: END IF;
7856:
7857: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
7858: RAISE FND_API.G_EXC_ERROR;
7853: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
7854: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
7855: END IF;
7856:
7857: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
7858: RAISE FND_API.G_EXC_ERROR;
7859: END IF;
7860:
7861: IF l_debug_mode = 'Y' THEN
7869:
7870: EXCEPTION
7871: WHEN FND_API.G_EXC_ERROR THEN
7872: x_return_status := FND_API.G_RET_STS_ERROR;
7873: l_msg_count := FND_MSG_PUB.count_msg;
7874:
7875: IF p_commit = FND_API.G_TRUE THEN
7876: ROLLBACK TO CREATE_ASSIGNMENTS_SP;
7877: END IF;
7903: IF p_commit = FND_API.G_TRUE THEN
7904: ROLLBACK TO CREATE_ASSIGNMENTS_SP;
7905: END IF;
7906:
7907: FND_MSG_PUB.add_exc_msg
7908: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
7909: , p_procedure_name => 'CREATE_ASSIGNMENTS'
7910: , p_error_text => x_msg_data);
7911:
7908: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
7909: , p_procedure_name => 'CREATE_ASSIGNMENTS'
7910: , p_error_text => x_msg_data);
7911:
7912: x_msg_count := FND_MSG_PUB.count_msg;
7913:
7914: IF l_debug_mode = 'Y' THEN
7915: PA_DEBUG.reset_curr_function;
7916: END IF;
8097: PA_DEBUG.set_curr_function(p_function => 'UPDATE_ASSIGNMENTS', p_debug_mode => l_debug_mode);
8098: END IF;
8099:
8100: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
8101: FND_MSG_PUB.initialize;
8102: END IF;
8103: --------------------------------------------------
8104: -- Create Savepoint
8105: --------------------------------------------------
8141: l_fin_info_changed := 'N';
8142: l_fin_bill_rate_info_changed := 'N';
8143: l_fin_tp_rate_info_changed := 'N';
8144:
8145: l_start_msg_count := FND_MSG_PUB.count_msg;
8146:
8147: l_asgn_rec := p_assignment_in_tbl(i);
8148:
8149: /*--Bug 6511907 PJR Date Validation Enhancement ----- Start--*/
9093: IF l_debug_mode = 'Y' THEN
9094: pa_debug.write(l_module, 'Checking Project Level Security for PA_ASN_BASIC_INFO_ED', l_log_level);
9095: END IF ;
9096:
9097: l_before_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9098: PA_SECURITY_PVT.CHECK_USER_PRIVILEGE(
9099: x_ret_code => l_ret_code
9100: , x_return_status => l_return_status
9101: , x_msg_count => l_msg_count
9103: , p_privilege => l_privilege
9104: , p_object_name => l_object_name
9105: , p_object_key => l_object_key
9106: , p_init_msg_list => FND_API.G_FALSE);
9107: l_after_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9108:
9109: IF l_debug_mode = 'Y' THEN
9110: pa_debug.write(l_module, 'Project Level Security for PA_ASN_BASIC_INFO_ED l_ret_code '|| l_ret_code , l_log_level);
9111: END IF ;
9127:
9128: l_object_name := 'PA_PROJECT_ASSIGNMENTS';
9129: l_object_key := l_asgn_rec.assignment_id;
9130:
9131: l_before_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9132: PA_SECURITY_PVT.CHECK_USER_PRIVILEGE(
9133: x_ret_code => l_ret_code
9134: , x_return_status => l_return_status
9135: , x_msg_count => l_msg_count
9137: , p_privilege => l_privilege
9138: , p_object_name => l_object_name
9139: , p_object_key => l_object_key
9140: , p_init_msg_list => FND_API.G_FALSE );
9141: l_after_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9142:
9143: IF l_debug_mode = 'Y' THEN
9144: pa_debug.write(l_module,'Assignment Level Security for PA_ASN_BASIC_INFO_ED l_ret_code='||l_ret_code, l_log_level);
9145: END IF ;
9169: IF l_debug_mode = 'Y' THEN
9170: pa_debug.write(l_module, 'Checking Project Level Security for PA_ASN_FCST_INFO_ED', l_log_level);
9171: END IF ;
9172:
9173: l_before_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9174: PA_SECURITY_PVT.CHECK_USER_PRIVILEGE(
9175: x_ret_code => l_ret_code
9176: , x_return_status => l_return_status
9177: , x_msg_count => l_msg_count
9179: , p_privilege => l_privilege
9180: , p_object_name => l_object_name
9181: , p_object_key => l_object_key
9182: , p_init_msg_list => FND_API.G_FALSE);
9183: l_after_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9184:
9185: IF l_debug_mode = 'Y' THEN
9186: pa_debug.write(l_module, 'Project Level Security for PA_ASN_FCST_INFO_ED l_ret_code '|| l_ret_code , l_log_level);
9187: END IF ;
9202:
9203: l_object_name := 'PA_PROJECT_ASSIGNMENTS';
9204: l_object_key := l_asgn_rec.assignment_id;
9205:
9206: l_before_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9207: PA_SECURITY_PVT.CHECK_USER_PRIVILEGE(
9208: x_ret_code => l_ret_code
9209: , x_return_status => l_return_status
9210: , x_msg_count => l_msg_count
9212: , p_privilege => l_privilege
9213: , p_object_name => l_object_name
9214: , p_object_key => l_object_key
9215: , p_init_msg_list => FND_API.G_FALSE );
9216: l_after_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9217:
9218: IF l_debug_mode = 'Y' THEN
9219: pa_debug.write(l_module,'Requirement Level Security for PA_ASN_FCST_INFO_ED l_ret_code='||l_ret_code, l_log_level);
9220: END IF ;
9239: IF l_debug_mode = 'Y' THEN
9240: pa_debug.write(l_module, 'Checking Project Level Security for PA_ASN_FCST_INFO_BILL_ED', l_log_level);
9241: END IF ;
9242:
9243: l_before_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9244: PA_SECURITY_PVT.CHECK_USER_PRIVILEGE(
9245: x_ret_code => l_ret_code
9246: , x_return_status => l_return_status
9247: , x_msg_count => l_msg_count
9249: , p_privilege => l_privilege
9250: , p_object_name => l_object_name
9251: , p_object_key => l_object_key
9252: , p_init_msg_list => FND_API.G_FALSE);
9253: l_after_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9254:
9255: IF l_debug_mode = 'Y' THEN
9256: pa_debug.write(l_module, 'Project Level Security for PA_ASN_FCST_INFO_BILL_ED l_ret_code '|| l_ret_code , l_log_level);
9257: END IF ;
9267: l_privilege := 'PA_ASN_FCST_INFO_BILL_ED';
9268: l_object_name := 'PA_PROJECT_ASSIGNMENTS';
9269: l_object_key := l_asgn_rec.assignment_id;
9270:
9271: l_before_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9272: PA_SECURITY_PVT.CHECK_USER_PRIVILEGE(
9273: x_ret_code => l_ret_code
9274: , x_return_status => l_return_status
9275: , x_msg_count => l_msg_count
9277: , p_privilege => l_privilege
9278: , p_object_name => l_object_name
9279: , p_object_key => l_object_key
9280: , p_init_msg_list => FND_API.G_FALSE);
9281: l_after_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9282:
9283: IF l_debug_mode = 'Y' THEN
9284: pa_debug.write(l_module,'Assignment Level Security for PA_ASN_FCST_INFO_BILL_ED l_ret_code='||l_ret_code, l_log_level);
9285: END IF ;
9303: IF l_debug_mode = 'Y' THEN
9304: pa_debug.write(l_module, 'Checking Project Level Security for PA_ASN_FCST_INFO_TP_ED', l_log_level);
9305: END IF ;
9306:
9307: l_before_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9308: PA_SECURITY_PVT.CHECK_USER_PRIVILEGE(
9309: x_ret_code => l_ret_code
9310: , x_return_status => l_return_status
9311: , x_msg_count => l_msg_count
9313: , p_privilege => l_privilege
9314: , p_object_name => l_object_name
9315: , p_object_key => l_object_key
9316: , p_init_msg_list => FND_API.G_FALSE);
9317: l_after_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9318:
9319: IF l_debug_mode = 'Y' THEN
9320: pa_debug.write(l_module, 'Project Level Security for PA_ASN_FCST_INFO_TP_ED l_ret_code '|| l_ret_code , l_log_level);
9321: END IF ;
9331: l_privilege := 'PA_ASN_FCST_INFO_TP_ED';
9332: l_object_name := 'PA_PROJECT_ASSIGNMENTS';
9333: l_object_key := l_asgn_rec.assignment_id;
9334:
9335: l_before_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9336: PA_SECURITY_PVT.CHECK_USER_PRIVILEGE(
9337: x_ret_code => l_ret_code
9338: , x_return_status => l_return_status
9339: , x_msg_count => l_msg_count
9341: , p_privilege => l_privilege
9342: , p_object_name => l_object_name
9343: , p_object_key => l_object_key
9344: , p_init_msg_list => FND_API.G_FALSE );
9345: l_after_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9346:
9347: IF l_debug_mode = 'Y' THEN
9348: pa_debug.write(l_module,'Assignment Level Security for PA_ASN_FCST_INFO_TP_ED l_ret_code='||l_ret_code, l_log_level);
9349: pa_debug.write(l_module,'Assignment Level Security for PA_ASN_FCST_INFO_TP_ED l_return_status='||l_return_status, l_log_level);
9369: IF l_debug_mode = 'Y' THEN
9370: pa_debug.write(l_module, 'Calling PA_ASSIGNMENTS_PUB.EXECUTE_UPDATE_ASSIGNMENT for Record No.'||i, l_log_level);
9371: END IF;
9372:
9373: l_before_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9374:
9375: --Before calling API ,Make location_id as NULL
9376: --If country code is made NULL
9377:
9488: ,x_return_status => l_return_status
9489: ,x_msg_count => l_msg_count
9490: ,x_msg_data => l_msg_data
9491: );
9492: l_after_api_msg_count := FND_MSG_PUB.COUNT_MSG;
9493:
9494: IF l_debug_mode = 'Y' THEN
9495: pa_debug.write(l_module, 'After call PA_ASSIGNMENTS_PUB.EXECUTE_UPDATE_ASSIGNMENT l_return_status='||l_return_status, l_log_level);
9496: END IF;
9520: END IF;
9521: END IF;
9522: END IF;
9523:
9524: l_end_msg_count := FND_MSG_PUB.count_msg;
9525: IF l_debug_mode = 'Y' THEN
9526: pa_debug.write(l_module, 'l_start_msg_count='||l_start_msg_count, l_log_level);
9527: pa_debug.write(l_module, 'l_end_msg_count='||l_end_msg_count, l_log_level);
9528: END IF;
9537:
9538: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
9539: -- Always get from first location in stack i.e. l_start_msg_count+1
9540: -- Because stack moves down after delete
9541: FND_MSG_PUB.get (
9542: p_msg_index => l_start_msg_count+1,
9543: p_encoded => FND_API.G_FALSE,
9544: p_data => l_data,
9545: p_msg_index_out => l_msg_index_out );
9545: p_msg_index_out => l_msg_index_out );
9546:
9547: -- Always delete at first location in stack i.e. l_start_msg_count+1
9548: -- Because stack moves down after delete
9549: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
9550:
9551: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
9552: 'RECORD_NO', i,
9553: 'MESSAGE', l_data);
9560: i := p_assignment_in_tbl.next(i);
9561:
9562: END LOOP ;
9563:
9564: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
9565: RAISE FND_API.G_EXC_ERROR;
9566: END IF;
9567:
9568: IF l_debug_mode = 'Y' THEN
9574: END IF;
9575: EXCEPTION
9576: WHEN FND_API.G_EXC_ERROR THEN
9577: x_return_status := FND_API.G_RET_STS_ERROR;
9578: l_msg_count := FND_MSG_PUB.count_msg;
9579:
9580: IF p_commit = FND_API.G_TRUE THEN
9581: ROLLBACK TO UPDATE_ASSIGNMENTS_SP;
9582: END IF;
9608: IF p_commit = FND_API.G_TRUE THEN
9609: ROLLBACK TO UPDATE_ASSIGNMENTS_SP;
9610: END IF;
9611:
9612: FND_MSG_PUB.add_exc_msg
9613: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
9614: , p_procedure_name => 'UPDATE_ASSIGNMENTS'
9615: , p_error_text => x_msg_data);
9616:
9613: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
9614: , p_procedure_name => 'UPDATE_ASSIGNMENTS'
9615: , p_error_text => x_msg_data);
9616:
9617: x_msg_count := FND_MSG_PUB.count_msg;
9618:
9619: IF l_debug_mode = 'Y' THEN
9620: PA_DEBUG.reset_curr_function;
9621: END IF;
9734: PA_DEBUG.set_curr_function(p_function => 'DELETE_ASSIGNMENTS', p_debug_mode => l_debug_mode);
9735: END IF;
9736:
9737: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
9738: FND_MSG_PUB.initialize;
9739: END IF;
9740:
9741: IF p_commit = FND_API.G_TRUE THEN
9742: savepoint DELETE_ASSIGNMENTS_SP;
9841: l_error_flag_local := 'N';
9842: l_missing_params := null;
9843: l_req_rec := null;
9844:
9845: l_start_msg_count := FND_MSG_PUB.count_msg;
9846:
9847: l_req_rec := p_assignment_in_tbl(i);
9848:
9849: IF l_debug_mode = 'Y' THEN
10006: l_error_flag_local := 'Y';
10007: END IF;
10008: END IF;
10009:
10010: l_end_msg_count := FND_MSG_PUB.count_msg;
10011: l_loop_msg_count := l_end_msg_count - l_start_msg_count;
10012:
10013: IF l_error_flag_local = 'Y' OR l_loop_msg_count > 0 THEN
10014: l_error_flag := 'Y';
10015:
10016: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
10017: -- Always get from first location in stack i.e. l_start_msg_count+1
10018: -- Because stack moves down after delete
10019: FND_MSG_PUB.get (
10020: p_msg_index => l_start_msg_count+1
10021: , p_encoded => FND_API.G_FALSE
10022: , p_data => l_data
10023: , p_msg_index_out => l_msg_index_out );
10023: , p_msg_index_out => l_msg_index_out );
10024:
10025: -- Always delete at first location in stack i.e. l_start_msg_count+1
10026: -- Because stack moves down after delete
10027: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
10028:
10029: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
10030: 'RECORD_NO', i,
10031: 'MESSAGE', l_data);
10033: END IF;
10034: i := p_assignment_in_tbl.next(i);
10035: END LOOP;
10036:
10037: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
10038: RAISE FND_API.G_EXC_ERROR;
10039: END IF;
10040:
10041: IF l_debug_mode = 'Y' THEN
10048:
10049: EXCEPTION
10050: WHEN FND_API.G_EXC_ERROR THEN
10051: x_return_status := FND_API.G_RET_STS_ERROR;
10052: l_msg_count := FND_MSG_PUB.count_msg;
10053:
10054: IF p_commit = FND_API.G_TRUE THEN
10055: ROLLBACK TO DELETE_ASSIGNMENTS_SP;
10056: END IF;
10098: IF cur_get_system_status%ISOPEN THEN
10099: CLOSE cur_get_system_status ;
10100: END IF;
10101:
10102: FND_MSG_PUB.add_exc_msg (
10103: p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
10104: , p_procedure_name => 'DELETE_REQUIREMENTS'
10105: , p_error_text => x_msg_data);
10106:
10103: p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
10104: , p_procedure_name => 'DELETE_REQUIREMENTS'
10105: , p_error_text => x_msg_data);
10106:
10107: x_msg_count := FND_MSG_PUB.count_msg;
10108:
10109: IF l_debug_mode = 'Y' THEN
10110: PA_DEBUG.reset_curr_function;
10111: END IF;
10266: PA_DEBUG.set_curr_function(p_function => 'SUBMIT_ASSIGNMENTS', p_debug_mode => l_debug_mode);
10267: END IF;
10268:
10269: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
10270: FND_MSG_PUB.initialize;
10271: END IF;
10272: --------------------------------------------------
10273: -- Create Savepoint
10274: --------------------------------------------------
10304: l_error_flag_local := 'N';
10305: l_missing_params := null;
10306: l_asgn_rec := NULL ;
10307:
10308: l_start_msg_count := FND_MSG_PUB.count_msg;
10309:
10310: l_asgn_rec := p_submit_assignment_in_tbl(i);
10311:
10312: -- Blank Out Parameters if not passed.
10424: IF l_debug_mode = 'Y' THEN
10425: pa_debug.write(l_module, 'Before Calling PA_ASSIGNMENT_APPROVAL_PUB.Populate_Changed_Items_Table for record number '||i, l_log_level);
10426: END IF;
10427:
10428: l_before_api_msg_count := FND_MSG_PUB.count_msg;
10429: PA_ASSIGNMENT_APPROVAL_PUB.Populate_Changed_Items_Table
10430: (
10431: p_assignment_id => l_assignment_id
10432: ,x_new_assignment_flag => l_out_new_assignment_flag
10436: ,x_msg_count => l_msg_count
10437: ,x_msg_data => l_msg_data
10438: );
10439:
10440: l_after_api_msg_count := FND_MSG_PUB.count_msg;
10441: -- Dont rely on l_return_status as inside above API
10442: -- IF no of msgs in stack is > 0 ,they set it as error
10443: -- So, Just rely on (l_after_api_msg_count - l_before_api_msg_count) value
10444:
10515: IF l_debug_mode = 'Y' THEN
10516: pa_debug.write(l_module, 'Calling Start_Assignment_Approvals',l_log_level);
10517: END IF;
10518:
10519: l_before_api_msg_count := FND_MSG_PUB.count_msg;
10520:
10521: -- Call API PA_ASSIGNMENT_APPROVAL_PUB.Start_Assignment_Approvals
10522: PA_ASSIGNMENT_APPROVAL_PUB.Start_Assignment_Approvals
10523: (
10532: ,x_return_status => l_return_status
10533: ,x_msg_count => l_msg_count
10534: ,x_msg_data => l_msg_data
10535: );
10536: l_after_api_msg_count := FND_MSG_PUB.count_msg;
10537:
10538: IF l_debug_mode = 'Y' THEN
10539: pa_debug.write(l_module, 'l_overcommitment_flag ' ||l_overcommitment_flag,l_log_level);
10540: pa_debug.write(l_module, 'l_conflict_group_id ' ||l_conflict_group_id,l_log_level);
10613: ELSE
10614: l_validate_only := FND_API.G_FALSE;
10615: END IF;
10616:
10617: l_before_api_msg_count := FND_MSG_PUB.count_msg;
10618: PA_ASSIGNMENT_APPROVAL_PUB.Start_Assignment_Approvals
10619: (
10620: p_assignment_id => l_assignment_id
10621: ,p_new_assignment_flag => l_out_new_assignment_flag
10636: );
10637: --l_apr_person_name1:= pa_resource_utils.get_person_name_no_date(l_apr_person_id_1);
10638: --l_apr_person_name2:=pa_resource_utils.get_person_name_no_date(l_apr_person_id_2);
10639:
10640: l_after_api_msg_count := FND_MSG_PUB.count_msg;
10641:
10642: IF l_debug_mode = 'Y' THEN
10643: pa_debug.write(l_module, 'l_overcommitment_flag ' ||l_overcommitment_flag,l_log_level);
10644: pa_debug.write(l_module, 'l_conflict_group_id ' ||l_conflict_group_id,l_log_level);
10656:
10657: IF (l_error_flag_local <> 'Y' AND l_apr_person_id_2 IS NOT NULL) THEN
10658: -- Call API for Approver 2
10659: l_validate_only := FND_API.G_FALSE; -- Added for Bug 5245870
10660: l_before_api_msg_count := FND_MSG_PUB.count_msg;
10661: PA_ASSIGNMENT_APPROVAL_PUB.Start_Assignment_Approvals
10662: (
10663: p_assignment_id => l_assignment_id
10664: ,p_new_assignment_flag => l_out_new_assignment_flag
10679: );
10680: --l_apr_person_name1:= pa_resource_utils.get_person_name_no_date(l_apr_person_id_1);
10681: --l_apr_person_name2:=pa_resource_utils.get_person_name_no_date(l_apr_person_id_2);
10682:
10683: l_after_api_msg_count := FND_MSG_PUB.count_msg;
10684: IF (l_after_api_msg_count - l_before_api_msg_count) > 0 THEN
10685: l_error_flag_local := 'Y';
10686: -- Dont check l_return_status as internal API
10687: -- sets return status as E if there are any msgs in stack
10692:
10693: END IF; -- l_error_flag_local <> Y --------- (2)
10694: END IF; -- l_error_flag_local <> Y --------- (1)
10695:
10696: l_end_msg_count := FND_MSG_PUB.count_msg;
10697:
10698: l_loop_msg_count := l_end_msg_count - l_start_msg_count;
10699:
10700: IF l_error_flag_local = 'Y' OR l_loop_msg_count > 0 THEN
10706:
10707: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
10708: -- Always get from first location in stack i.e. l_start_msg_count+1
10709: -- Because stack moves down after delete
10710: FND_MSG_PUB.get (
10711: p_msg_index => l_start_msg_count+1,
10712: p_encoded => FND_API.G_FALSE,
10713: p_data => l_data,
10714: p_msg_index_out => l_msg_index_out );
10714: p_msg_index_out => l_msg_index_out );
10715:
10716: -- Always delete at first location in stack i.e. l_start_msg_count+1
10717: -- Because stack moves down after delete
10718: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
10719:
10720: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
10721: 'RECORD_NO', i,
10722: 'MESSAGE', l_data);
10727: END IF;
10728: i:= p_submit_assignment_in_tbl.next(i);
10729: END LOOP;
10730:
10731: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
10732: RAISE FND_API.G_EXC_ERROR;
10733: END IF;
10734:
10735: IF l_debug_mode = 'Y' THEN
10743: EXCEPTION
10744: WHEN FND_API.G_EXC_ERROR THEN
10745:
10746: x_return_status := FND_API.G_RET_STS_ERROR;
10747: l_msg_count := FND_MSG_PUB.count_msg;
10748:
10749: IF c_valid_asgn_id%ISOPEN THEN
10750: CLOSE c_valid_asgn_id ;
10751: END IF;
10793: IF p_commit = FND_API.G_TRUE THEN
10794: ROLLBACK TO SUBMIT_ASSIGNMENTS_SP;
10795: END IF;
10796:
10797: FND_MSG_PUB.add_exc_msg
10798: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
10799: , p_procedure_name => 'SUBMIT_ASSIGNMENTS'
10800: , p_error_text => x_msg_data);
10801:
10798: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
10799: , p_procedure_name => 'SUBMIT_ASSIGNMENTS'
10800: , p_error_text => x_msg_data);
10801:
10802: x_msg_count := FND_MSG_PUB.count_msg;
10803:
10804: IF l_debug_mode = 'Y' THEN
10805: PA_DEBUG.reset_curr_function;
10806: END IF;
10931: PA_DEBUG.set_curr_function(p_function => 'CREATE_REQUIREMENT_COMPETENCE', p_debug_mode => l_debug_mode);
10932: END IF;
10933:
10934: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
10935: FND_MSG_PUB.initialize;
10936: END IF;
10937:
10938: IF P_COMMIT = FND_API.G_TRUE THEN
10939: SAVEPOINT CREATE_REQU_COMPETENCE_SP;
10995: pa_debug.write(l_module, '-------------------------------', l_debug_level);
10996: END IF ;
10997:
10998: l_local_error_flag := 'N';
10999: l_start_msg_count := FND_MSG_PUB.count_msg;
11000: l_competence_in_rec:=NULL ;
11001: l_miss_params := NULL;
11002: l_competence_in_rec := p_competence_in_tbl(i);
11003: -- Nulling out unpassed parameters
11243: x_competence_element_id_tbl.extend(1);
11244: x_competence_element_id_tbl(x_competence_element_id_tbl.count):= -1;
11245: END IF ;
11246: -- Taking end count of loop
11247: l_end_msg_count := FND_MSG_PUB.count_msg;
11248: l_loop_msg_count := l_end_msg_count - l_start_msg_count;
11249:
11250: IF l_debug_mode = 'Y' THEN
11251: pa_debug.write(l_module, 'Error Flag for Record '|| i || ' is l_local_error_flag '|| l_local_error_flag , l_debug_level);
11258: pa_debug.write(l_module, 'After Calling PA_COMPETENCE_PUB.ADD_COMPETENCE_ELEMENT ', l_debug_level);
11259: END IF ;
11260:
11261: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
11262: FND_MSG_PUB.get (
11263: p_msg_index => l_start_msg_count+1
11264: , p_encoded => FND_API.G_FALSE
11265: , p_data => l_data
11266: , p_msg_index_out => l_msg_index_out );
11264: , p_encoded => FND_API.G_FALSE
11265: , p_data => l_data
11266: , p_msg_index_out => l_msg_index_out );
11267:
11268: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
11269: -- Adding Record Number to The Message.
11270: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
11271: 'RECORD_NO', i,
11272: 'MESSAGE', l_data);
11279: IF l_debug_mode = 'Y' THEN
11280: pa_debug.write(l_module, 'Out Of PA_COMPETENCE_PUB.ADD_COMPETENCE_ELEMENT API calling Loop', l_debug_level);
11281: END IF ;
11282:
11283: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
11284: RAISE FND_API.G_EXC_ERROR;
11285: END IF;
11286:
11287: IF l_debug_mode = 'Y' THEN
11294:
11295: EXCEPTION
11296: WHEN FND_API.G_EXC_ERROR THEN
11297: x_return_status := FND_API.G_RET_STS_ERROR;
11298: l_msg_count := FND_MSG_PUB.count_msg;
11299:
11300: IF l_debug_mode = 'Y' THEN
11301: pa_debug.write(l_module, 'In Side Exception Block FND_API.G_EXC_ERROR', l_debug_level);
11302: pa_debug.write(l_module, 'Closing CURSORS if OPEN', l_debug_level);
11354: IF p_commit = FND_API.G_TRUE THEN
11355: ROLLBACK TO CREATE_REQU_COMPETENCE_SP;
11356: END IF;
11357:
11358: FND_MSG_PUB.add_exc_msg (
11359: p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
11360: , p_procedure_name => 'CREATE_REQUIREMENT_COMPETENCE'
11361: , p_error_text => x_msg_data);
11362:
11359: p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
11360: , p_procedure_name => 'CREATE_REQUIREMENT_COMPETENCE'
11361: , p_error_text => x_msg_data);
11362:
11363: x_msg_count := FND_MSG_PUB.count_msg;
11364:
11365: IF l_debug_mode = 'Y' THEN
11366: PA_DEBUG.reset_curr_function;
11367: END IF;
11514: END IF;
11515:
11516: -- Resetting the Error Stack.
11517: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
11518: FND_MSG_PUB.initialize;
11519: END IF;
11520:
11521: IF P_COMMIT = FND_API.G_TRUE THEN
11522: SAVEPOINT UPDATE_REQU_COMPETENCE_SP;
11579: pa_debug.write(l_module, 'Inside Loop For Record '|| i , l_debug_level);
11580: END IF ;
11581: -- setting the Params at the starting of the loop
11582: l_local_error_flag := 'N';
11583: l_start_msg_count := FND_MSG_PUB.count_msg;
11584: l_competence_in_rec := NULL ;
11585: l_miss_params := NULL;
11586: l_competence_in_rec := P_COMPETENCE_IN_TBL(i);
11587:
11824: pa_debug.write(l_module, 'l_return_status '|| l_return_status || 'for record '|| i , l_debug_level);
11825: END IF ;
11826: END IF;-- end of API call..
11827:
11828: l_end_msg_count := FND_MSG_PUB.count_msg;
11829: l_loop_msg_count := l_end_msg_count - l_start_msg_count;
11830:
11831: IF l_debug_mode = 'Y' THEN
11832: pa_debug.write(l_module, 'Error Flag for Record '|| i || ' is l_local_error_flag '|| l_local_error_flag , l_debug_level);
11837: IF l_debug_mode = 'Y' THEN
11838: pa_debug.write(l_module, 'After Calling PA_COMPETENCE_PUB.UPDATE_COMPETENCE_ELEMENT ', l_debug_level);
11839: END IF ;
11840: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
11841: FND_MSG_PUB.get (
11842: p_msg_index => l_start_msg_count+1
11843: , p_encoded => FND_API.G_FALSE
11844: , p_data => l_data
11845: , p_msg_index_out => l_msg_index_out );
11843: , p_encoded => FND_API.G_FALSE
11844: , p_data => l_data
11845: , p_msg_index_out => l_msg_index_out );
11846:
11847: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
11848: -- Adding Record Number to The Message.
11849: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
11850: 'RECORD_NO', i,
11851: 'MESSAGE', l_data);
11858: IF l_debug_mode = 'Y' THEN
11859: pa_debug.write(l_module,'Out Of PA_COMPETENCE_PUB.UPDATE_COMPETENCE_ELEMENT API calling Loop', l_debug_level);
11860: END IF ;
11861:
11862: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
11863: RAISE FND_API.G_EXC_ERROR;
11864: END IF;
11865:
11866: IF l_debug_mode = 'Y' THEN
11873:
11874: EXCEPTION
11875: WHEN FND_API.G_EXC_ERROR THEN
11876: x_return_status := FND_API.G_RET_STS_ERROR;
11877: l_msg_count := FND_MSG_PUB.count_msg;
11878:
11879: IF l_debug_mode = 'Y' THEN
11880: pa_debug.write(l_module,'In Side Exception Block FND_API.G_EXC_ERROR', l_debug_level);
11881: pa_debug.write(l_module,'Closing CURSORS if OPEN', l_debug_level);
11941: IF p_commit = FND_API.G_TRUE THEN
11942: ROLLBACK TO UPDATE_REQU_COMPETENCE_SP;
11943: END IF;
11944:
11945: FND_MSG_PUB.ADD_EXC_MSG(
11946: p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
11947: , p_procedure_name => 'CREATE_REQUIREMENT_COMPETENCE'
11948: , p_error_text => x_msg_data);
11949:
11946: p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
11947: , p_procedure_name => 'CREATE_REQUIREMENT_COMPETENCE'
11948: , p_error_text => x_msg_data);
11949:
11950: x_msg_count := FND_MSG_PUB.count_msg;
11951:
11952: IF l_debug_mode = 'Y' THEN
11953: PA_DEBUG.reset_curr_function;
11954: END IF;
12086: END IF;
12087:
12088: -- Resetting the Error Stack.
12089: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
12090: FND_MSG_PUB.initialize;
12091: END IF;
12092:
12093: IF P_COMMIT = FND_API.G_TRUE THEN
12094: SAVEPOINT DELETE_REQU_COMPETENCE_SP;
12146: pa_debug.write(l_module,'Inside Loop For Record '|| i , l_debug_level);
12147: END IF ;
12148: -- Initializing the local Params for loop
12149: l_local_error_flag := 'N';
12150: l_start_msg_count := FND_MSG_PUB.count_msg;
12151: l_competence_in_rec := NULL ;
12152: l_miss_params := NULL;
12153: l_competence_in_rec := P_COMPETENCE_IN_TBL(i);
12154: -- check for missparams.......
12329: END IF ;
12330:
12331: END IF;-- end of API call..
12332:
12333: l_end_msg_count := FND_MSG_PUB.count_msg;
12334: l_loop_msg_count := l_end_msg_count - l_start_msg_count;
12335:
12336: IF l_debug_mode = 'Y' THEN
12337: pa_debug.write(l_module,'Error Flag for Record '|| i || ' is l_local_error_flag '|| l_local_error_flag , l_debug_level);
12342: IF l_debug_mode = 'Y' THEN
12343: pa_debug.write(l_module,'After Calling PA_COMPETENCE_PUB.DELETE_COMPETENCE_ELEMENT ', l_debug_level);
12344: END IF ;
12345: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
12346: FND_MSG_PUB.GET (
12347: p_msg_index => l_start_msg_count+1
12348: , p_encoded => FND_API.G_FALSE
12349: , p_data => l_data
12350: , p_msg_index_out => l_msg_index_out );
12348: , p_encoded => FND_API.G_FALSE
12349: , p_data => l_data
12350: , p_msg_index_out => l_msg_index_out );
12351:
12352: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
12353: -- Adding Record Number to The Message.
12354: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
12355: 'RECORD_NO', i,
12356: 'MESSAGE', l_data);
12362: IF l_debug_mode = 'Y' THEN
12363: pa_debug.write(l_module,'Out Of PA_COMPETENCE_PUB.DELETE_COMPETENCE_ELEMENT API calling Loop', l_debug_level);
12364: END IF ;
12365:
12366: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
12367: RAISE FND_API.G_EXC_ERROR;
12368: END IF;
12369:
12370: IF l_debug_mode = 'Y' THEN
12377:
12378: EXCEPTION
12379: WHEN FND_API.G_EXC_ERROR THEN
12380: x_return_status := FND_API.G_RET_STS_ERROR;
12381: l_msg_count := FND_MSG_PUB.count_msg;
12382:
12383: IF l_debug_mode = 'Y' THEN
12384: pa_debug.write(l_module,'In Side Exception Block FND_API.G_EXC_ERROR', l_debug_level);
12385: pa_debug.write(l_module,'Closing CURSORS if OPEN', l_debug_level);
12445: IF p_commit = FND_API.G_TRUE THEN
12446: ROLLBACK TO DELETE_REQU_COMPETENCE_SP;
12447: END IF;
12448:
12449: FND_MSG_PUB.ADD_EXC_MSG(
12450: p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
12451: , p_procedure_name => 'CREATE_REQUIREMENT_COMPETENCE'
12452: , p_error_text => x_msg_data);
12453:
12450: p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
12451: , p_procedure_name => 'CREATE_REQUIREMENT_COMPETENCE'
12452: , p_error_text => x_msg_data);
12453:
12454: x_msg_count := FND_MSG_PUB.count_msg;
12455:
12456: IF l_debug_mode = 'Y' THEN
12457: PA_DEBUG.reset_curr_function;
12458: END IF;
12599: PA_DEBUG.set_curr_function(p_function => 'CREATE_CANDIDATES', p_debug_mode => l_debug_mode);
12600: END IF;
12601:
12602: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
12603: FND_MSG_PUB.initialize;
12604: END IF;
12605:
12606: IF p_commit = FND_API.G_TRUE THEN
12607: savepoint CREATE_CANDIDATES_SP;
12659: WHILE i is not NULL LOOP
12660:
12661: l_missing_params := null;
12662: l_error_flag_local := 'N';
12663: l_start_msg_count := FND_MSG_PUB.count_msg;
12664:
12665: l_candidate_in_rec := p_candidate_in_tbl(i);
12666:
12667: IF l_debug_mode = 'Y' THEN
12913: x_candidate_id_tbl.extend(1);
12914: x_candidate_id_tbl(x_candidate_id_tbl.COUNT) := -1;
12915: END IF;
12916:
12917: l_end_msg_count := FND_MSG_PUB.count_msg;
12918: IF l_debug_mode = 'Y' THEN
12919: pa_debug.write(l_module, 'l_start_msg_count='||l_start_msg_count, l_log_level);
12920: pa_debug.write(l_module, 'l_end_msg_count='||l_end_msg_count, l_log_level);
12921: END IF;
12930:
12931: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
12932: -- Always get from first location in stack i.e. l_start_msg_count+1
12933: -- Because stack moves down after delete
12934: FND_MSG_PUB.get (
12935: p_msg_index => l_start_msg_count+1,
12936: p_encoded => FND_API.G_FALSE,
12937: p_data => l_data,
12938: p_msg_index_out => l_msg_index_out );
12938: p_msg_index_out => l_msg_index_out );
12939:
12940: -- Always delete at first location in stack i.e. l_start_msg_count+1
12941: -- Because stack moves down after delete
12942: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
12943:
12944: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
12945: 'RECORD_NO', i,
12946: 'MESSAGE', l_data);
12956:
12957: IF l_debug_mode = 'Y' THEN
12958: pa_debug.write(l_module, 'All records are done', l_log_level);
12959: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
12960: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
12961: END IF;
12962:
12963: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
12964: RAISE FND_API.G_EXC_ERROR;
12959: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
12960: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
12961: END IF;
12962:
12963: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
12964: RAISE FND_API.G_EXC_ERROR;
12965: END IF;
12966:
12967: IF l_debug_mode = 'Y' THEN
12975: EXCEPTION
12976:
12977: WHEN FND_API.G_EXC_ERROR THEN
12978: x_return_status := FND_API.G_RET_STS_ERROR;
12979: l_msg_count := FND_MSG_PUB.count_msg;
12980:
12981: IF c_get_requirement_info%ISOPEN THEN
12982: CLOSE c_get_requirement_info;
12983: END IF;
13049: IF p_commit = FND_API.G_TRUE THEN
13050: ROLLBACK TO CREATE_CANDIDATES_SP;
13051: END IF;
13052:
13053: FND_MSG_PUB.add_exc_msg
13054: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
13055: , p_procedure_name => 'CREATE_CANDIDATES'
13056: , p_error_text => x_msg_data);
13057:
13054: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
13055: , p_procedure_name => 'CREATE_CANDIDATES'
13056: , p_error_text => x_msg_data);
13057:
13058: x_msg_count := FND_MSG_PUB.count_msg;
13059:
13060: IF l_debug_mode = 'Y' THEN
13061: PA_DEBUG.reset_curr_function;
13062: END IF;
13174: PA_DEBUG.set_curr_function(p_function => 'UPDATE_CANDIDATES', p_debug_mode => l_debug_mode);
13175: END IF;
13176:
13177: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
13178: FND_MSG_PUB.initialize;
13179: END IF;
13180:
13181: IF p_commit = FND_API.G_TRUE THEN
13182: savepoint UPDATE_CANDIDATES_SP;
13228:
13229: WHILE i IS NOT NULL LOOP
13230: l_error_flag_local := 'N';
13231: l_missing_params := null;
13232: l_start_msg_count := FND_MSG_PUB.count_msg;
13233:
13234: l_candidate_in_rec := p_candidate_in_tbl(i);
13235: l_cand_rec := null;
13236:
13432: END IF;
13433: END IF;
13434: END IF;
13435:
13436: l_end_msg_count := FND_MSG_PUB.count_msg;
13437: IF l_debug_mode = 'Y' THEN
13438: pa_debug.write(l_module, 'l_start_msg_count='||l_start_msg_count, l_log_level);
13439: pa_debug.write(l_module, 'l_end_msg_count='||l_end_msg_count, l_log_level);
13440: END IF;
13449:
13450: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
13451: -- Always get from first location in stack i.e. l_start_msg_count+1
13452: -- Because stack moves down after delete
13453: FND_MSG_PUB.get (
13454: p_msg_index => l_start_msg_count+1,
13455: p_encoded => FND_API.G_FALSE,
13456: p_data => l_data,
13457: p_msg_index_out => l_msg_index_out );
13457: p_msg_index_out => l_msg_index_out );
13458:
13459: -- Always delete at first location in stack i.e. l_start_msg_count+1
13460: -- Because stack moves down after delete
13461: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
13462:
13463: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
13464: 'RECORD_NO', i,
13465: 'MESSAGE', l_data);
13475:
13476: IF l_debug_mode = 'Y' THEN
13477: pa_debug.write(l_module, 'All records are done', l_log_level);
13478: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
13479: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
13480: END IF;
13481:
13482: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
13483: RAISE FND_API.G_EXC_ERROR;
13478: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
13479: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
13480: END IF;
13481:
13482: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
13483: RAISE FND_API.G_EXC_ERROR;
13484: END IF;
13485:
13486: IF l_debug_mode = 'Y' THEN
13495:
13496: WHEN FND_API.G_EXC_ERROR THEN
13497:
13498: x_return_status := FND_API.G_RET_STS_ERROR;
13499: l_msg_count := FND_MSG_PUB.count_msg;
13500:
13501: IF c_get_candidate_details%ISOPEN THEN
13502: CLOSE c_get_candidate_details;
13503: END IF;
13537: IF p_commit = FND_API.G_TRUE THEN
13538: ROLLBACK TO UPDATE_CANDIDATES_SP;
13539: END IF;
13540:
13541: FND_MSG_PUB.add_exc_msg
13542: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
13543: , p_procedure_name => 'UPDATE_CANDIDATES'
13544: , p_error_text => x_msg_data);
13545:
13542: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
13543: , p_procedure_name => 'UPDATE_CANDIDATES'
13544: , p_error_text => x_msg_data);
13545:
13546: x_msg_count := FND_MSG_PUB.count_msg;
13547:
13548: IF l_debug_mode = 'Y' THEN
13549: PA_DEBUG.reset_curr_function;
13550: END IF;
13650: PA_DEBUG.set_curr_function(p_function => 'DELETE_CANDIDATES', p_debug_mode => l_debug_mode);
13651: END IF;
13652:
13653: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
13654: FND_MSG_PUB.initialize;
13655: END IF;
13656:
13657: IF p_commit = FND_API.G_TRUE THEN
13658: savepoint DELETE_CANDIDATES_SP;
13704:
13705: WHILE i IS NOT NULL LOOP
13706: l_error_flag_local := 'N';
13707: l_missing_params := null;
13708: l_start_msg_count := FND_MSG_PUB.count_msg;
13709:
13710: l_candidate_in_rec := p_candidate_in_tbl(i);
13711: l_record_version_number := 0;
13712: l_project_id := 0;
13873: END IF;
13874: END IF;
13875: END IF;
13876:
13877: l_end_msg_count := FND_MSG_PUB.count_msg;
13878: IF l_debug_mode = 'Y' THEN
13879: pa_debug.write(l_module, 'l_start_msg_count='||l_start_msg_count, l_log_level);
13880: pa_debug.write(l_module, 'l_end_msg_count='||l_end_msg_count, l_log_level);
13881: END IF;
13890:
13891: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
13892: -- Always get from first location in stack i.e. l_start_msg_count+1
13893: -- Because stack moves down after delete
13894: FND_MSG_PUB.get (
13895: p_msg_index => l_start_msg_count+1,
13896: p_encoded => FND_API.G_FALSE,
13897: p_data => l_data,
13898: p_msg_index_out => l_msg_index_out );
13898: p_msg_index_out => l_msg_index_out );
13899:
13900: -- Always delete at first location in stack i.e. l_start_msg_count+1
13901: -- Because stack moves down after delete
13902: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
13903:
13904: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
13905: 'RECORD_NO', i,
13906: 'MESSAGE', l_data);
13916:
13917: IF l_debug_mode = 'Y' THEN
13918: pa_debug.write(l_module, 'All records are done', l_log_level);
13919: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
13920: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
13921: END IF;
13922:
13923: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
13924: RAISE FND_API.G_EXC_ERROR;
13919: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
13920: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
13921: END IF;
13922:
13923: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
13924: RAISE FND_API.G_EXC_ERROR;
13925: END IF;
13926:
13927: IF l_debug_mode = 'Y' THEN
13936:
13937: WHEN FND_API.G_EXC_ERROR THEN
13938:
13939: x_return_status := FND_API.G_RET_STS_ERROR;
13940: l_msg_count := FND_MSG_PUB.count_msg;
13941:
13942: IF c_get_requirement_info%ISOPEN THEN
13943: CLOSE c_get_requirement_info;
13944: END IF;
13978: IF p_commit = FND_API.G_TRUE THEN
13979: ROLLBACK TO DELETE_CANDIDATES_SP;
13980: END IF;
13981:
13982: FND_MSG_PUB.add_exc_msg
13983: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
13984: , p_procedure_name => 'DELETE_CANDIDATES'
13985: , p_error_text => x_msg_data);
13986:
13983: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
13984: , p_procedure_name => 'DELETE_CANDIDATES'
13985: , p_error_text => x_msg_data);
13986:
13987: x_msg_count := FND_MSG_PUB.count_msg;
13988:
13989: IF l_debug_mode = 'Y' THEN
13990: PA_DEBUG.reset_curr_function;
13991: END IF;
14111: PA_DEBUG.set_curr_function(p_function => 'CREATE_CANDIDATE_LOG', p_debug_mode => l_debug_mode);
14112: END IF;
14113:
14114: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_TRUE)) THEN
14115: FND_MSG_PUB.initialize;
14116: END IF;
14117:
14118: IF p_commit = FND_API.G_TRUE THEN
14119: savepoint CREATE_CANDIDATE_LOG_SP;
14160:
14161: WHILE i IS NOT NULL LOOP
14162: l_error_flag_local := 'N';
14163: l_missing_params := null;
14164: l_start_msg_count := FND_MSG_PUB.count_msg;
14165:
14166: l_candidate_log_tbl := p_candidate_log_tbl(i);
14167: l_cand_rec := null;
14168:
14336: x_candidate_review_id_tbl.extend(1);
14337: x_candidate_review_id_tbl(x_candidate_review_id_tbl.COUNT) := -1;
14338: END IF;
14339:
14340: l_end_msg_count := FND_MSG_PUB.count_msg;
14341: IF l_debug_mode = 'Y' THEN
14342: pa_debug.write(l_module, 'l_start_msg_count='||l_start_msg_count, l_log_level);
14343: pa_debug.write(l_module, 'l_end_msg_count='||l_end_msg_count, l_log_level);
14344: END IF;
14353:
14354: FOR j in l_start_msg_count+1..l_end_msg_count LOOP
14355: -- Always get from first location in stack i.e. l_start_msg_count+1
14356: -- Because stack moves down after delete
14357: FND_MSG_PUB.get (
14358: p_msg_index => l_start_msg_count+1,
14359: p_encoded => FND_API.G_FALSE,
14360: p_data => l_data,
14361: p_msg_index_out => l_msg_index_out );
14361: p_msg_index_out => l_msg_index_out );
14362:
14363: -- Always delete at first location in stack i.e. l_start_msg_count+1
14364: -- Because stack moves down after delete
14365: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
14366:
14367: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
14368: 'RECORD_NO', i,
14369: 'MESSAGE', l_data);
14380:
14381: IF l_debug_mode = 'Y' THEN
14382: pa_debug.write(l_module, 'All records are done', l_log_level);
14383: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
14384: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
14385: END IF;
14386:
14387: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
14388: RAISE FND_API.G_EXC_ERROR;
14383: pa_debug.write(l_module, 'l_error_flag='||l_error_flag, l_log_level);
14384: pa_debug.write(l_module, 'FND_MSG_PUB.count_msg='||FND_MSG_PUB.count_msg, l_log_level);
14385: END IF;
14386:
14387: IF l_error_flag = 'Y' OR FND_MSG_PUB.count_msg > 0 THEN
14388: RAISE FND_API.G_EXC_ERROR;
14389: END IF;
14390:
14391: IF l_debug_mode = 'Y' THEN
14400:
14401: WHEN FND_API.G_EXC_ERROR THEN
14402:
14403: x_return_status := FND_API.G_RET_STS_ERROR;
14404: l_msg_count := FND_MSG_PUB.count_msg;
14405:
14406: IF c_get_candidate_details%ISOPEN THEN
14407: CLOSE c_get_candidate_details;
14408: END IF;
14450: IF p_commit = FND_API.G_TRUE THEN
14451: ROLLBACK TO CREATE_CANDIDATE_LOG_SP;
14452: END IF;
14453:
14454: FND_MSG_PUB.add_exc_msg
14455: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
14456: , p_procedure_name => 'CREATE_CANDIDATE_LOG'
14457: , p_error_text => x_msg_data);
14458:
14455: ( p_pkg_name => 'PA_RES_MANAGEMENT_AMG_PUB'
14456: , p_procedure_name => 'CREATE_CANDIDATE_LOG'
14457: , p_error_text => x_msg_data);
14458:
14459: x_msg_count := FND_MSG_PUB.count_msg;
14460:
14461: IF l_debug_mode = 'Y' THEN
14462: PA_DEBUG.reset_curr_function;
14463: END IF;