17: -- If p_action = null, then this procedure acts as a lock toggle (if the version was
18: -- originally locked, it would unlock the version)
19: -- If p_person_id is null, then it will find the person id based on p_user_id.
20: -- This procedure assumes that a person can only unlock the versions he/she has locked.
21: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
22:
23: PROCEDURE lock_unlock_version
24: (p_budget_version_id IN pa_budget_versions.budget_version_id%TYPE,
25: p_record_version_number IN pa_budget_versions.record_version_number%TYPE,
2203: x_return_status := FND_API.G_RET_STS_SUCCESS;
2204: IF p_pa_debug_mode = 'Y' THEN
2205: pa_debug.set_err_stack('PA_FIN_PLAN_PVT.CREATE_DRAFT');
2206: END IF;
2207: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2208: l_debug_mode := NVL(l_debug_mode, 'Y');
2209: IF P_PA_DEBUG_MODE = 'Y' THEN
2210: pa_debug.set_process('CREATE_DRAFT: ' || 'PLSQL','LOG',l_debug_mode);
2211: END IF;
3007:
3008: x_msg_count := 0;
3009: x_return_status := FND_API.G_RET_STS_SUCCESS;
3010:
3011: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3012: l_debug_mode := NVL(l_debug_mode, 'Y');
3013: IF p_pa_debug_mode = 'Y' THEN
3014: pa_debug.set_err_stack('pa_fin_plan_pvt.CREATE_FINPLAN_LINES');
3015: END IF;
3830: BEGIN
3831:
3832: x_msg_count := 0;
3833: x_return_status := FND_API.G_RET_STS_SUCCESS;
3834: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3835:
3836: IF p_pa_debug_mode = 'Y' THEN
3837: pa_debug.set_curr_function( p_function => 'convert_plan_type_name_to_id',
3838: p_debug_mode => l_debug_mode );
4011: BEGIN
4012:
4013: SAVEPOINT DELETE_WP_OPTION_SAVE;
4014:
4015: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4016: l_debug_mode := NVL(l_debug_mode, 'N');
4017: x_msg_count := 0;
4018: x_return_status := FND_API.G_RET_STS_SUCCESS;
4019: IF p_pa_debug_mode = 'Y' THEN
4237:
4238: BEGIN
4239: SAVEPOINT PA_FP_PUB_DELETE_VER;
4240:
4241: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4242: l_debug_mode := NVL(l_debug_mode, 'N');
4243: x_msg_count := 0;
4244: x_return_status := FND_API.G_RET_STS_SUCCESS;
4245: IF p_pa_debug_mode = 'Y' THEN
4435: BEGIN
4436:
4437: x_msg_count := 0;
4438: x_return_status := FND_API.G_RET_STS_SUCCESS;
4439: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4440: l_debug_mode := NVL(l_debug_mode, 'Y');
4441:
4442: IF p_pa_debug_mode = 'Y' THEN
4443: PA_DEBUG.Set_Curr_Function( p_function => 'PA_FIN_PLAN_PVT.ADD_FIN_PLAN_LINES',