22: /*========================================================================
23: This procedure is used to acquie required locks for copy_plan
24: =======================================================================*/
25:
26: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
27:
28: PROCEDURE Acquire_Locks_For_Copy_Plan(
29: p_source_plan_version_id IN NUMBER
30: ,p_target_plan_version_id IN NUMBER
74:
75: IF P_PA_DEBUG_MODE = 'Y' THEN
76: pa_debug.set_err_stack('Acquire_Locks_For_Copy_Plan');
77: END IF;
78: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
79: l_debug_mode := NVL(l_debug_mode, 'Y');
80: IF P_PA_DEBUG_MODE = 'Y' THEN
81: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
82: END IF;
362:
363: IF P_PA_DEBUG_MODE = 'Y' THEN
364: pa_debug.init_err_stack('PA_FP_COPY_FROM_PKG.Copy_Plan');
365: END IF;
366: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
367: l_debug_mode := NVL(l_debug_mode, 'Y');
368: IF P_PA_DEBUG_MODE = 'Y' THEN
369: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
370: END IF;
835:
836: IF P_PA_DEBUG_MODE = 'Y' THEN
837: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Acquire_Lock_For_Copy_Actual');
838: END IF;
839: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
840: l_debug_mode := NVL(l_debug_mode, 'Y');
841:
842: /*
843: * Acquire lock on pa_proj_fp_options and pa_budget_versions so that
1146: x_msg_count := 0;
1147: x_return_status := FND_API.G_RET_STS_SUCCESS;
1148: IF p_pa_debug_mode = 'Y' THEN
1149: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Budget_Version');
1150: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1151: l_debug_mode := NVL(l_debug_mode, 'Y');
1152: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
1153: END IF;
1154:
1943:
1944: x_msg_count := 0;
1945: x_return_status := FND_API.G_RET_STS_SUCCESS;
1946:
1947: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1948: l_debug_mode := NVL(l_debug_mode, 'Y');
1949:
1950: -- Set curr function
1951: IF l_debug_mode = 'Y' THEN
2277: x_return_status := FND_API.G_RET_STS_SUCCESS;
2278: IF P_PA_DEBUG_MODE = 'Y' THEN
2279: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Resource_Assignments');
2280: END IF;
2281: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2282: l_debug_mode := NVL(l_debug_mode, 'Y');
2283: IF P_PA_DEBUG_MODE = 'Y' THEN
2284: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2285: END IF;
4145:
4146: x_msg_count := 0;
4147: x_return_status := FND_API.G_RET_STS_SUCCESS;
4148:
4149: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4150: l_debug_mode := NVL(l_debug_mode, 'Y');
4151: l_module_name := 'PAFPCPFB.mis_amts_chk_neg_qty';
4152:
4153: -- Set curr function
4764: x_return_status := FND_API.G_RET_STS_SUCCESS;
4765: IF P_PA_DEBUG_MODE = 'Y' THEN
4766: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Budget_Lines');
4767: END IF;
4768: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4769: l_debug_mode := NVL(l_debug_mode, 'Y');
4770: IF P_PA_DEBUG_MODE = 'Y' THEN
4771: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4772: END IF;
5295: x_return_status := FND_API.G_RET_STS_SUCCESS;
5296: IF P_PA_DEBUG_MODE = 'Y' THEN
5297: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Periods_Denorm');
5298: END IF;
5299: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
5300: l_debug_mode := NVL(l_debug_mode, 'Y');
5301: IF P_PA_DEBUG_MODE = 'Y' THEN
5302: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
5303: END IF;
7360: x_return_status := FND_API.G_RET_STS_SUCCESS;
7361: IF P_PA_DEBUG_MODE = 'Y' THEN
7362: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Budget_Lines');
7363: END IF;
7364: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7365: l_debug_mode := NVL(l_debug_mode, 'Y');
7366: IF P_PA_DEBUG_MODE = 'Y' THEN
7367: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
7368: END IF;
8825: x_msg_count := 0;
8826: x_return_status := FND_API.G_RET_STS_SUCCESS;
8827: SAVEPOINT copy_wp_budget_versions;
8828:
8829: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
8830: l_debug_mode := NVL(l_debug_mode, 'Y');
8831:
8832: -- Set curr function
8833:
9510: x_return_status := FND_API.G_RET_STS_SUCCESS;
9511: IF P_PA_DEBUG_MODE = 'Y' THEN
9512: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Budget_Lines_Appr_Rev');
9513: END IF;
9514: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9515: l_debug_mode := NVL(l_debug_mode, 'Y');
9516: IF P_PA_DEBUG_MODE = 'Y' THEN
9517: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
9518: END IF;
10177:
10178: x_msg_count := 0;
10179: x_return_status := FND_API.G_RET_STS_SUCCESS;
10180:
10181: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
10182: l_debug_mode := NVL(l_debug_mode, 'Y');
10183:
10184: -- Set curr function
10185: IF l_debug_mode = 'Y' THEN