2: /* $Header: PAPCPVTB.pls 120.42.12020000.7 2013/06/06 09:47:14 djambhek ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PA_PROGRESS_PVT';
5:
6: g1_debug_mode varchar2(1) := NVL(FND_PROFILE.value_specific('PA_DEBUG_MODE',fnd_global.user_id,fnd_global.login_id,275,null,null), 'N');
7:
8: -- Start of comments
9: -- API name : ROLLUP_PROGRESS_PVT
10: -- Type : Public
1429: -- 4. Entire WBS using structure version id.
1430: -- 5. Program Rollup
1431:
1432:
1433: g1_debug_mode := NVL(FND_PROFILE.value_specific('PA_DEBUG_MODE',fnd_global.user_id,fnd_global.login_id,275,null,null), 'N');
1434:
1435: IF g1_debug_mode = 'Y' THEN
1436: pa_debug.init_err_stack ('PA_PROGRESS_PVT.ROLLUP_PROGRESS_PVT');
1437: END IF;
4219: l_base_struct_ver_id NUMBER; -- Bug 4573257
4220: l_last_as_of_date DATE; -- Bug 4573257
4221: BEGIN
4222:
4223: g1_debug_mode := NVL(FND_PROFILE.value_specific('PA_DEBUG_MODE',fnd_global.user_id,fnd_global.login_id,275,null,null), 'N');
4224:
4225: IF g1_debug_mode = 'Y' THEN
4226: pa_debug.init_err_stack ('PA_PROGRESS_PVT.ROLLUP_FUTURE_PROGRESS_PVT');
4227: END IF;
4589: --Open Question:
4590: --1. The parent Project progress record should go to the parent project cycle date.
4591: --As of now it is going with just passed as of date.
4592: --2.
4593: g1_debug_mode := NVL(FND_PROFILE.value_specific('PA_DEBUG_MODE',fnd_global.user_id,fnd_global.login_id,275,null,null), 'N');
4594:
4595: IF g1_debug_mode = 'Y' THEN
4596: pa_debug.init_err_stack ('PA_PROGRESS_PVT.PROGRAM_ROLLUP_PVT');
4597: END IF;
6912: l_subproj_task_version_id NUMBER;--4582956
6913:
6914: BEGIN
6915:
6916: g1_debug_mode := NVL(FND_PROFILE.value_specific('PA_DEBUG_MODE',fnd_global.user_id,fnd_global.login_id,275,null,null), 'N');
6917:
6918: IF g1_debug_mode = 'Y' THEN
6919: pa_debug.init_err_stack ('PA_PROGRESS_PVT.ASGN_DLV_TO_TASK_ROLLUP_PVT');
6920: END IF;
9195: -- Bug 4661350 end
9196:
9197: BEGIN
9198:
9199: g1_debug_mode := NVL(FND_PROFILE.value_specific('PA_DEBUG_MODE',fnd_global.user_id,fnd_global.login_id,275,null,null), 'N');
9200:
9201: IF g1_debug_mode = 'Y' THEN
9202: pa_debug.init_err_stack ('PA_PROGRESS_PVT.convert_task_prog_to_assgn');
9203: END IF;
9837: BEGIN
9838: x_msg_count := 0;
9839: x_return_status := FND_API.G_RET_STS_SUCCESS;
9840:
9841: l_debug_mode := NVL(FND_PROFILE.value_specific('PA_DEBUG_MODE',fnd_global.user_id,fnd_global.login_id,275,null,null), 'N');
9842:
9843: -- Set curr function
9844: pa_debug.set_curr_function(
9845: p_function =>'pa_fp_copy_from_pkg.copy_actuals_for_workplan'
10331: order by a.prg_level desc; --select the lowest level of projects first.
10332:
10333: BEGIN
10334:
10335: g1_debug_mode := NVL(FND_PROFILE.value_specific('PA_DEBUG_MODE',fnd_global.user_id,fnd_global.login_id,275,null,null), 'N');
10336:
10337: IF g1_debug_mode = 'Y' THEN
10338: pa_debug.init_err_stack ('PA_PROGRESS_PVT.ROLLUP_PROG_FROM_SUBPROJS');
10339: END IF;
11723: -- 3. Financial Structure Rollup.
11724: -- 4. Entire WBS using structure version id.
11725: -- 5. Program Rollup
11726:
11727: g1_debug_mode := NVL(FND_PROFILE.value_specific('PA_DEBUG_MODE',fnd_global.user_id,fnd_global.login_id,275,null,null), 'N');
11728:
11729: IF g1_debug_mode = 'Y' THEN
11730: pa_debug.init_err_stack ('PA_PROGRESS_PVT.ROLLUP_PVT');
11731: END IF;
15293: -- 3. Financial Structure Rollup.
15294: -- 4. Entire WBS using structure version id.
15295: -- 5. Program Rollup
15296:
15297: g1_debug_mode := NVL(FND_PROFILE.value_specific('PA_DEBUG_MODE',fnd_global.user_id,fnd_global.login_id,275,null,null), 'N');
15298:
15299: IF g1_debug_mode = 'Y' THEN
15300: pa_debug.init_err_stack ('PA_PROGRESS_PVT.ROLLUP_PVT');
15301: END IF;