[Home] [Help]
3: -- Bug Fix: 4569365. Removed MRC code.
4: -- g_mrc_exception EXCEPTION; /* FPB2 */
5:
6: l_module_name VARCHAR2(100) := 'pa.plsql.pa_fp_ci_merge';
7: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
8:
9: --This record type will contain items for budget version id, ci id and the code which indicates whether
10: --the type of impact that can be implemented into the target version. Bug 3550073
11: --The valid values for impact_type can be
108: BEGIN
109: IF p_pa_debug_mode = 'Y' THEN
110: pa_debug.init_err_stack('PAFPCIMB.FP_CI_LINK_CONTROL_ITEMS');
111: END IF;
112: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
113: l_debug_mode := NVL(l_debug_mode, 'Y');
114: IF p_pa_debug_mode = 'Y' THEN
115: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
116: p_debug_mode => l_debug_mode );
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
442: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
443: END IF;
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
716: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
717: END IF;
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
951: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
952: END IF;
1895: x_return_status := FND_API.G_RET_STS_SUCCESS;
1896: IF p_pa_debug_mode = 'Y' THEN
1897: pa_debug.set_err_stack('PA_FP_CI_MERGE.copy_merged_ctrl_items');
1898: END IF;
1899: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1900: l_debug_mode := NVL(l_debug_mode, 'Y');
1901: IF p_pa_debug_mode = 'Y' THEN
1902: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1903: -- Check for business rules violations
2260: BEGIN
2261:
2262: x_msg_count := 0;
2263: x_return_status := FND_API.G_RET_STS_SUCCESS;
2264: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2265: IF l_debug_mode = 'Y' THEN
2266: pa_debug.set_err_stack('PA_FP_CI_MERGE.FP_CI_MANUAL_MERGE');
2267: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2268: END IF;
10482: l_ci_all_res_cls_flag VARCHAR2(1) := 'Y';
10483: l_targ_resource_cls_flag VARCHAR2(1) := 'Y';
10484: --CBS 12.2 enhancement changes End here
10485: BEGIN
10486: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
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
11807: --Bug 4136238
11808: l_partial_impl_rev_amt pa_budget_lines.txn_revenue%TYPE;
11809:
11810: BEGIN
11811: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
11812: l_debug_mode := NVL(l_debug_mode, 'Y');
11813: x_msg_count := 0;
11814: x_return_status := FND_API.G_RET_STS_SUCCESS;
11815:
12615: l_context_mode VARCHAR2(1) := null;
12616:
12617:
12618: BEGIN
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;
13339:
13340: IF p_pa_debug_mode = 'Y' THEN
13341: pa_debug.init_err_stack('PAFPCIMB.copy_supplier_cost_data');
13342: END IF;
13343: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
13344: l_debug_mode := NVL(l_debug_mode, 'Y');
13345: IF p_pa_debug_mode = 'Y' THEN
13346: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
13347: END IF;