[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
935: IF p_pa_debug_mode = 'Y' THEN
936: pa_debug.init_err_stack('PAFPINCB.FP_CI_MERGE_CI_ITEMS');
937: END IF;
938: IF NVL(p_init_msg_list,'N') = 'Y' THEN
939: FND_MSG_PUB.initialize;
940: END IF;
941: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
942: l_debug_mode := NVL(l_debug_mode, 'Y');
943: IF p_pa_debug_mode = 'Y' THEN
2494: END IF;
2495: EXCEPTION
2496: WHEN OTHERS THEN
2497: ROLLBACK TO before_fp_ci_copy;
2498: FND_MSG_PUB.add_exc_msg
2499: ( p_pkg_name => 'PA_FP_CI_MERGE.' ||
2500: 'fp_ci_merge_ci_items'
2501: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2502: IF p_pa_debug_mode = 'Y' THEN
2800:
2801: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2802:
2803: x_return_status := FND_API.G_RET_STS_ERROR;
2804: l_msg_count := FND_MSG_PUB.count_msg;
2805: IF l_msg_count = 1 THEN
2806: PA_INTERFACE_UTILS_PUB.get_messages
2807: (p_encoded => FND_API.G_TRUE
2808: ,p_msg_index => 1
2824:
2825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2826: x_msg_count := 1;
2827: x_msg_data := SQLERRM;
2828: FND_MSG_PUB.add_exc_msg
2829: ( p_pkg_name => 'PA_FP_CI_MERGE'
2830: ,p_procedure_name => 'copy_merged_ctrl_items'
2831: ,p_error_text => sqlerrm);
2832: IF p_pa_debug_mode = 'Y' THEN
3244:
3245: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3246:
3247: x_return_status := FND_API.G_RET_STS_ERROR;
3248: l_msg_count := FND_MSG_PUB.count_msg;
3249:
3250: IF l_msg_count = 1 and x_msg_data IS NULL THEN
3251: PA_INTERFACE_UTILS_PUB.get_messages
3252: (p_encoded => FND_API.G_TRUE
3270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3271: x_msg_count := 1;
3272: x_msg_data := SQLERRM;
3273:
3274: FND_MSG_PUB.add_exc_msg
3275: ( p_pkg_name => 'PA_FP_CI_MERGE'
3276: ,p_procedure_name => 'FP_CI_MANUAL_MERGE'
3277: ,p_error_text => x_msg_data);
3278:
3980: l_derv_cost_impl_flag VARCHAR2(1);
3981: l_derv_rev_impl_flag VARCHAR2(1);
3982:
3983: BEGIN
3984: FND_MSG_PUB.initialize;
3985:
3986: IF p_pa_debug_mode = 'Y' THEN
3987: pa_debug.set_curr_function( p_function => 'implement_ci_into_single_ver',
3988: p_debug_mode => P_PA_debug_mode );
10905: pa_debug.reset_curr_function;
10906: END IF;
10907: EXCEPTION
10908: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10909: l_msg_count := FND_MSG_PUB.count_msg;
10910:
10911: IF l_msg_count = 1 and x_msg_data IS NULL THEN
10912: PA_INTERFACE_UTILS_PUB.get_messages
10913: (p_encoded => FND_API.G_TRUE
10933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10934: x_msg_count := 1;
10935: x_msg_data := SQLERRM;
10936:
10937: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CI_MERGE'
10938: ,p_procedure_name => 'implement_ci_into_single_ver');
10939: IF P_PA_DEBUG_MODE = 'Y' THEN
10940: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
10941: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
11070: l_debug_mode := NVL(l_debug_mode, 'Y');
11071: x_msg_count := 0;
11072: x_return_status := FND_API.G_RET_STS_SUCCESS;
11073: IF p_context='CI_MERGE' THEN
11074: l_init_msg_count:= FND_MSG_PUB.count_msg;
11075: END IF;
11076: IF p_pa_debug_mode = 'Y' THEN
11077: PA_DEBUG.Set_Curr_Function( p_function => 'PAFPCIMB.validate_ci_merge_input_data',
11078: p_debug_mode => l_debug_mode );
11822:
11823: END IF;
11824:
11825: IF l_debug_mode = 'Y' THEN
11826: pa_debug.g_err_stage:= 'After lock unlock verson msg pub count'||FND_MSG_PUB.count_msg;
11827: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11828:
11829: pa_debug.g_err_stage:= 'After lock unlock verson x_msg_data '||x_msg_data;
11830: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
12165: END IF;
12166:
12167: -- For Bug 3855500
12168: IF p_context='CI_MERGE' THEN
12169: l_msg_count_at_end := fnd_msg_pub.count_msg;
12170: IF l_init_msg_count <> l_msg_count_at_end THEN
12171:
12172: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12173:
12190:
12191: EXCEPTION
12192:
12193: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12194: l_msg_count := FND_MSG_PUB.count_msg;
12195: IF l_msg_count = 1 THEN
12196: PA_INTERFACE_UTILS_PUB.get_messages
12197: (p_encoded => FND_API.G_TRUE
12198: ,p_msg_index => 1
12214:
12215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12216: x_msg_count := 1;
12217: x_msg_data := SQLERRM;
12218: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CI_MERGE'
12219: ,p_procedure_name => 'validate_ci_merge_input_data');
12220:
12221: IF l_debug_mode = 'Y' THEN
12222: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
12341: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
12342: p_debug_mode => l_debug_mode );
12343:
12344: END IF;
12345: FND_MSG_PUB.initialize;
12346:
12347: IF l_debug_mode = 'Y' THEN
12348: pa_debug.g_err_stage:= 'Entering impl_ci_into_autobaseline_proj';
12349: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
12985: pa_debug.reset_curr_function;
12986: END IF;
12987: EXCEPTION
12988: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12989: l_msg_count := FND_MSG_PUB.count_msg;
12990: IF l_msg_count = 1 THEN
12991: PA_INTERFACE_UTILS_PUB.get_messages
12992: (p_encoded => FND_API.G_TRUE
12993: ,p_msg_index => 1
13008: WHEN OTHERS THEN
13009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13010: x_msg_count := 1;
13011: x_msg_data := SQLERRM;
13012: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CI_MERGE'
13013: ,p_procedure_name => 'impl_ci_into_autobaseline_proj');
13014:
13015: IF l_debug_mode = 'Y' THEN
13016: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
13036: ----impact can be implemented into the corresponding element in p_budget_version_id_tbl
13037: ----p_submit_version_flag_tbl can contain Y or N, if passed. It indicates whether the target budget version id
13038: ----should be baselined after implementation or not
13039: --4.p_agreement_id, p_update_agreement_amt_flag, p_funding_category are related to the agreement chosen
13040: --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
13041: ----Y the messages will be added. They will not be added otherwise
13042: --6.x_translated_msgs_tbl contains the translated error messages. x_translated_err_msg_count indicates the no. of
13043: ----elements in x_translated_err_msg_count. x_translated_err_msg_level indicates whether the level of the message is
13044: ----EXCEPTION, WARNING OR INFORMATION. They will be populated only if p_add_msg_to_stack is N
13141: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
13142: l_debug_mode := NVL(l_debug_mode, 'Y');
13143: x_msg_count := 0;
13144: x_return_status := FND_API.G_RET_STS_SUCCESS;
13145: l_init_msg_count:= FND_MSG_PUB.count_msg;
13146: IF p_pa_debug_mode = 'Y' THEN
13147: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
13148: p_debug_mode => l_debug_mode );
13149: END IF;
13147: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
13148: p_debug_mode => l_debug_mode );
13149: END IF;
13150: -- For bug 3866629
13151: FND_MSG_PUB.initialize;
13152:
13153: --dbms_output.put_line('M1');
13154:
13155: --If p_commit_flag is N then all the changes done thru this API should be rolled back whenever an error occurs.
13251: IF p_add_msg_to_stack='N' THEN
13252:
13253: --Add the messages from the error stack to the output translated error messages table. These error messages
13254: --will be displayed on the OA pages
13255: l_msg_count := fnd_msg_pub.count_msg;
13256:
13257: IF l_debug_mode = 'Y' THEN
13258: pa_debug.g_err_stage:='Inside Loop for l_msg_count : '||l_msg_count;
13259: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
13278:
13279: END LOOP;
13280:
13281: --Initialise the msg pub so that these errors will not get added again to the translated err msg table
13282: FND_MSG_PUB.initialize;
13283:
13284: END IF;
13285:
13286: IF l_debug_mode = 'Y' THEN
13508: IF p_add_msg_to_stack='N' THEN
13509:
13510: --Add the messages from the error stack to the output translated error messages table. These error messages
13511: --will be displayed on the OA pages
13512: l_msg_count := fnd_msg_pub.count_msg;
13513: FOR l_msg_counter IN REVERSE 1..l_msg_count LOOP
13514:
13515: PA_UTILS.Get_Encoded_Msg(p_index => l_msg_counter,
13516: p_msg_out => l_encoded_msg);
13525:
13526: END LOOP;
13527:
13528: --Initialise the msg pub so that these errors will not get added again to the translated err msg table
13529: FND_MSG_PUB.initialize;
13530:
13531: END IF;
13532:
13533: END IF;--IF l_ci_bv_merge_possible_map_tbl(l_index) <> 'NONE' THEN
13629: IF p_add_msg_to_stack='N' THEN
13630:
13631: --Add the messages from the error stack to the output translated error messages table. These error messages
13632: --will be displayed on the OA pages
13633: l_msg_count := fnd_msg_pub.count_msg;
13634: FOR l_msg_counter IN REVERSE 1..l_msg_count LOOP
13635:
13636: PA_UTILS.Get_Encoded_Msg(p_index => l_msg_counter,
13637: p_msg_out => l_encoded_msg);
13645: x_translated_err_msg_level_tbl(x_translated_err_msg_level_tbl.COUNT):='INFORMATION';
13646:
13647: END LOOP;
13648: --Initialise the msg pub so that these errors will not get added again to the translated err msg table
13649: FND_MSG_PUB.initialize;
13650:
13651: END IF;
13652:
13653: --dbms_output.put_line('M8');
13669:
13670:
13671:
13672: ELSE
13673: l_msg_count_at_end := fnd_msg_pub.count_msg;
13674:
13675: /* -- Commenting out this code for Setting the x_return_status as this would be taken
13676: -- care in the Calling Module. (This Else Part is primarily when this API is called
13677: -- from Generation Flow -- Bug 3749556
13689:
13690:
13691: IF l_debug_mode = 'Y' THEN
13692:
13693: pa_debug.g_err_stage:= 'Exiting implement_change_document count :' || fnd_msg_pub.count_msg;
13694: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
13695: pa_debug.reset_curr_function;
13696: END IF;
13697: EXCEPTION
13695: pa_debug.reset_curr_function;
13696: END IF;
13697: EXCEPTION
13698: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
13699: l_msg_count := FND_MSG_PUB.count_msg;
13700: IF l_msg_count = 1 THEN
13701: PA_INTERFACE_UTILS_PUB.get_messages
13702: (p_encoded => FND_API.G_TRUE
13703: ,p_msg_index => 1
13724:
13725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13726: x_msg_count := 1;
13727: x_msg_data := SQLERRM;
13728: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CI_MERGE'
13729: ,p_procedure_name => 'implement_change_document');
13730:
13731: IF l_debug_mode = 'Y' THEN
13732: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;