[Home] [Help]
370: PA_DEBUG.Reset_Curr_Function;
371: END IF;
372: EXCEPTION
373: WHEN OTHERS THEN
374: FND_MSG_PUB.add_exc_msg
375: ( p_pkg_name => 'PA_FP_CI_MERGE.' ||
376: 'fp_ci_link_control_items'
377: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
378: IF p_pa_debug_mode = 'Y' THEN
433: IF p_pa_debug_mode = 'Y' THEN
434: pa_debug.init_err_stack('PAFPCIMB.FP_CI_UPDATE_EST_AMOUNTS');
435: END IF;
436: IF NVL(p_init_msg_list,'N') = 'Y' THEN
437: FND_MSG_PUB.initialize;
438: END IF;
439: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
440: l_debug_mode := NVL(l_debug_mode, 'Y');
441: IF p_pa_debug_mode = 'Y' THEN
649: COMMIT;
650: END IF;
651: EXCEPTION
652: WHEN OTHERS THEN
653: FND_MSG_PUB.add_exc_msg
654: ( p_pkg_name => 'PA_FP_CI_MERGE.' ||
655: 'fp_ci_update_est_amounts'
656: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
657: IF p_pa_debug_mode = 'Y' THEN
707: IF p_pa_debug_mode = 'Y' THEN
708: pa_debug.init_err_stack('PAFPCIMB.FP_CI_UPDATE_IMPACT');
709: END IF;
710: IF NVL(p_init_msg_list,'N') = 'Y' THEN
711: FND_MSG_PUB.initialize;
712: END IF;
713: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
714: l_debug_mode := NVL(l_debug_mode, 'Y');
715: IF p_pa_debug_mode = 'Y' THEN
807: COMMIT;
808: END IF;
809: EXCEPTION
810: WHEN OTHERS THEN
811: FND_MSG_PUB.add_exc_msg
812: ( p_pkg_name => 'PA_FP_CI_MERGE.' ||
813: 'fp_ci_update_impact'
814: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
815: IF p_pa_debug_mode = 'Y' THEN
942: IF p_pa_debug_mode = 'Y' THEN
943: pa_debug.init_err_stack('PAFPINCB.FP_CI_MERGE_CI_ITEMS');
944: END IF;
945: IF NVL(p_init_msg_list,'N') = 'Y' THEN
946: FND_MSG_PUB.initialize;
947: END IF;
948: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
949: l_debug_mode := NVL(l_debug_mode, 'Y');
950: IF p_pa_debug_mode = 'Y' THEN
1836: END IF;
1837: EXCEPTION
1838: WHEN OTHERS THEN
1839: ROLLBACK TO before_fp_ci_copy;
1840: FND_MSG_PUB.add_exc_msg
1841: ( p_pkg_name => 'PA_FP_CI_MERGE.' ||
1842: 'fp_ci_merge_ci_items'
1843: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
1844: IF p_pa_debug_mode = 'Y' THEN
2156:
2157: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2158:
2159: x_return_status := FND_API.G_RET_STS_ERROR;
2160: l_msg_count := FND_MSG_PUB.count_msg;
2161: IF l_msg_count = 1 THEN
2162: PA_INTERFACE_UTILS_PUB.get_messages
2163: (p_encoded => FND_API.G_TRUE
2164: ,p_msg_index => 1
2180:
2181: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2182: x_msg_count := 1;
2183: x_msg_data := SQLERRM;
2184: FND_MSG_PUB.add_exc_msg
2185: ( p_pkg_name => 'PA_FP_CI_MERGE'
2186: ,p_procedure_name => 'copy_merged_ctrl_items'
2187: ,p_error_text => sqlerrm);
2188: IF p_pa_debug_mode = 'Y' THEN
2600:
2601: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2602:
2603: x_return_status := FND_API.G_RET_STS_ERROR;
2604: l_msg_count := FND_MSG_PUB.count_msg;
2605:
2606: IF l_msg_count = 1 and x_msg_data IS NULL THEN
2607: PA_INTERFACE_UTILS_PUB.get_messages
2608: (p_encoded => FND_API.G_TRUE
2626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2627: x_msg_count := 1;
2628: x_msg_data := SQLERRM;
2629:
2630: FND_MSG_PUB.add_exc_msg
2631: ( p_pkg_name => 'PA_FP_CI_MERGE'
2632: ,p_procedure_name => 'FP_CI_MANUAL_MERGE'
2633: ,p_error_text => x_msg_data);
2634:
3342:
3343: l_spread_curve_id pa_spread_curves_b.spread_curve_id%TYPE; -- Bug 8350296
3344:
3345: BEGIN
3346: FND_MSG_PUB.initialize;
3347:
3348: IF p_pa_debug_mode = 'Y' THEN
3349: pa_debug.set_curr_function( p_function => 'implement_ci_into_single_ver',
3350: p_debug_mode => P_PA_debug_mode );
10311: pa_debug.reset_curr_function;
10312: END IF;
10313: EXCEPTION
10314: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10315: l_msg_count := FND_MSG_PUB.count_msg;
10316:
10317: IF l_msg_count = 1 and x_msg_data IS NULL THEN
10318: PA_INTERFACE_UTILS_PUB.get_messages
10319: (p_encoded => FND_API.G_TRUE
10339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10340: x_msg_count := 1;
10341: x_msg_data := SQLERRM;
10342:
10343: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CI_MERGE'
10344: ,p_procedure_name => 'implement_ci_into_single_ver');
10345: IF P_PA_DEBUG_MODE = 'Y' THEN
10346: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
10347: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10487: l_debug_mode := NVL(l_debug_mode, 'Y');
10488: x_msg_count := 0;
10489: x_return_status := FND_API.G_RET_STS_SUCCESS;
10490: IF p_context='CI_MERGE' THEN
10491: l_init_msg_count:= FND_MSG_PUB.count_msg;
10492: END IF;
10493: IF p_pa_debug_mode = 'Y' THEN
10494: PA_DEBUG.Set_Curr_Function( p_function => 'PAFPCIMB.validate_ci_merge_input_data',
10495: p_debug_mode => l_debug_mode );
11259:
11260: END IF;
11261:
11262: IF l_debug_mode = 'Y' THEN
11263: pa_debug.g_err_stage:= 'After lock unlock verson msg pub count'||FND_MSG_PUB.count_msg;
11264: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11265:
11266: pa_debug.g_err_stage:= 'After lock unlock verson x_msg_data '||x_msg_data;
11267: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11641: END IF;
11642:
11643: -- For Bug 3855500
11644: IF p_context='CI_MERGE' THEN
11645: l_msg_count_at_end := fnd_msg_pub.count_msg;
11646: IF l_init_msg_count <> l_msg_count_at_end THEN
11647:
11648: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11649:
11666:
11667: EXCEPTION
11668:
11669: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
11670: l_msg_count := FND_MSG_PUB.count_msg;
11671: IF l_msg_count = 1 THEN
11672: PA_INTERFACE_UTILS_PUB.get_messages
11673: (p_encoded => FND_API.G_TRUE
11674: ,p_msg_index => 1
11690:
11691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11692: x_msg_count := 1;
11693: x_msg_data := SQLERRM;
11694: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CI_MERGE'
11695: ,p_procedure_name => 'validate_ci_merge_input_data');
11696:
11697: IF l_debug_mode = 'Y' THEN
11698: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
11817: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
11818: p_debug_mode => l_debug_mode );
11819:
11820: END IF;
11821: FND_MSG_PUB.initialize;
11822:
11823: IF l_debug_mode = 'Y' THEN
11824: pa_debug.g_err_stage:= 'Entering impl_ci_into_autobaseline_proj';
11825: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
12461: pa_debug.reset_curr_function;
12462: END IF;
12463: EXCEPTION
12464: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12465: l_msg_count := FND_MSG_PUB.count_msg;
12466: IF l_msg_count = 1 THEN
12467: PA_INTERFACE_UTILS_PUB.get_messages
12468: (p_encoded => FND_API.G_TRUE
12469: ,p_msg_index => 1
12484: WHEN OTHERS THEN
12485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12486: x_msg_count := 1;
12487: x_msg_data := SQLERRM;
12488: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CI_MERGE'
12489: ,p_procedure_name => 'impl_ci_into_autobaseline_proj');
12490:
12491: IF l_debug_mode = 'Y' THEN
12492: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
12512: ----impact can be implemented into the corresponding element in p_budget_version_id_tbl
12513: ----p_submit_version_flag_tbl can contain Y or N, if passed. It indicates whether the target budget version id
12514: ----should be baselined after implementation or not
12515: --4.p_agreement_id, p_update_agreement_amt_flag, p_funding_category are related to the agreement chosen
12516: --5.p_add_msg_to_stack lets the API know whether the error messages should be added to the fnd_msg_pub or not. If
12517: ----Y the messages will be added. They will not be added otherwise
12518: --6.x_translated_msgs_tbl contains the translated error messages. x_translated_err_msg_count indicates the no. of
12519: ----elements in x_translated_err_msg_count. x_translated_err_msg_level indicates whether the level of the message is
12520: ----EXCEPTION, WARNING OR INFORMATION. They will be populated only if p_add_msg_to_stack is N
12619: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
12620: l_debug_mode := NVL(l_debug_mode, 'Y');
12621: x_msg_count := 0;
12622: x_return_status := FND_API.G_RET_STS_SUCCESS;
12623: l_init_msg_count:= FND_MSG_PUB.count_msg;
12624: IF p_pa_debug_mode = 'Y' THEN
12625: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
12626: p_debug_mode => l_debug_mode );
12627: END IF;
12625: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
12626: p_debug_mode => l_debug_mode );
12627: END IF;
12628: -- For bug 3866629
12629: FND_MSG_PUB.initialize;
12630:
12631: -- Bug#13960733 start.
12632: l_context_mode := mo_global.get_access_mode;
12633: if l_context_mode = 'M' then
12736: IF p_add_msg_to_stack='N' THEN
12737:
12738: --Add the messages from the error stack to the output translated error messages table. These error messages
12739: --will be displayed on the OA pages
12740: l_msg_count := fnd_msg_pub.count_msg;
12741:
12742: IF l_debug_mode = 'Y' THEN
12743: pa_debug.g_err_stage:='Inside Loop for l_msg_count : '||l_msg_count;
12744: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
12763:
12764: END LOOP;
12765:
12766: --Initialise the msg pub so that these errors will not get added again to the translated err msg table
12767: FND_MSG_PUB.initialize;
12768:
12769: END IF;
12770:
12771: IF l_debug_mode = 'Y' THEN
12997: IF p_add_msg_to_stack='N' THEN
12998:
12999: --Add the messages from the error stack to the output translated error messages table. These error messages
13000: --will be displayed on the OA pages
13001: l_msg_count := fnd_msg_pub.count_msg;
13002: FOR l_msg_counter IN REVERSE 1..l_msg_count LOOP
13003:
13004: PA_UTILS.Get_Encoded_Msg(p_index => l_msg_counter,
13005: p_msg_out => l_encoded_msg);
13014:
13015: END LOOP;
13016:
13017: --Initialise the msg pub so that these errors will not get added again to the translated err msg table
13018: FND_MSG_PUB.initialize;
13019:
13020: END IF;
13021:
13022: END IF;--IF l_ci_bv_merge_possible_map_tbl(l_index) <> 'NONE' THEN
13122: IF p_add_msg_to_stack='N' THEN
13123:
13124: --Add the messages from the error stack to the output translated error messages table. These error messages
13125: --will be displayed on the OA pages
13126: l_msg_count := fnd_msg_pub.count_msg;
13127: FOR l_msg_counter IN REVERSE 1..l_msg_count LOOP
13128:
13129: PA_UTILS.Get_Encoded_Msg(p_index => l_msg_counter,
13130: p_msg_out => l_encoded_msg);
13138: x_translated_err_msg_level_tbl(x_translated_err_msg_level_tbl.COUNT):='INFORMATION';
13139:
13140: END LOOP;
13141: --Initialise the msg pub so that these errors will not get added again to the translated err msg table
13142: FND_MSG_PUB.initialize;
13143:
13144: END IF;
13145:
13146: --dbms_output.put_line('M8');
13162:
13163:
13164:
13165: ELSE
13166: l_msg_count_at_end := fnd_msg_pub.count_msg;
13167:
13168: /* -- Commenting out this code for Setting the x_return_status as this would be taken
13169: -- care in the Calling Module. (This Else Part is primarily when this API is called
13170: -- from Generation Flow -- Bug 3749556
13182:
13183:
13184: IF l_debug_mode = 'Y' THEN
13185:
13186: pa_debug.g_err_stage:= 'Exiting implement_change_document count :' || fnd_msg_pub.count_msg;
13187: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
13188: pa_debug.reset_curr_function;
13189: END IF;
13190: EXCEPTION
13188: pa_debug.reset_curr_function;
13189: END IF;
13190: EXCEPTION
13191: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
13192: l_msg_count := FND_MSG_PUB.count_msg;
13193: IF l_msg_count = 1 THEN
13194: PA_INTERFACE_UTILS_PUB.get_messages
13195: (p_encoded => FND_API.G_TRUE
13196: ,p_msg_index => 1
13217:
13218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13219: x_msg_count := 1;
13220: x_msg_data := SQLERRM;
13221: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CI_MERGE'
13222: ,p_procedure_name => 'implement_change_document');
13223:
13224: IF l_debug_mode = 'Y' THEN
13225: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
13607: EXCEPTION
13608: WHEN OTHERS THEN
13609: ROLLBACK TO copy_supp_det;
13610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13611: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_FP_CI_MERGE',
13612: p_procedure_name => 'copy_supplier_cost_data',
13613: p_error_text => SUBSTRB(SQLERRM,1,240));
13614:
13615: fnd_msg_pub.count_and_get(p_count => x_msg_count,
13611: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_FP_CI_MERGE',
13612: p_procedure_name => 'copy_supplier_cost_data',
13613: p_error_text => SUBSTRB(SQLERRM,1,240));
13614:
13615: fnd_msg_pub.count_and_get(p_count => x_msg_count,
13616: p_data => x_msg_data);
13617: RAISE;
13618: end copy_supplier_cost_data;
13619: /* Added for 12.1.3 for Enc to copy the direct cost data */
14033: EXCEPTION
14034: WHEN OTHERS THEN
14035: ROLLBACK TO copy_dir_cost_det;
14036: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14037: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_FP_CI_MERGE',
14038: p_procedure_name => 'copy_direct_cost_data',
14039: p_error_text => SUBSTRB(SQLERRM,1,240));
14040: fnd_msg_pub.count_and_get(p_count => x_msg_count,
14041: p_data => x_msg_data);
14036: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14037: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_FP_CI_MERGE',
14038: p_procedure_name => 'copy_direct_cost_data',
14039: p_error_text => SUBSTRB(SQLERRM,1,240));
14040: fnd_msg_pub.count_and_get(p_count => x_msg_count,
14041: p_data => x_msg_data);
14042: RAISE;
14043: end copy_direct_cost_data;
14044: --end of PACKAGE pa_fp_ci_merge