[Home] [Help]
4138: IF g_debug_mode='Y' THEN
4139: Pji_Utils.write2log( 'calling APPLY_LP_PROG_ON_CWV :p_calling_Context: '||p_calling_Context||'p_deffered_mode:'||p_deffered_mode||'l_new_wbs_version_id:'||l_new_wbs_version_id ,null,3);
4140: end if;
4141: IF p_calling_Context='APPLY_PROGRESS' and p_deffered_mode='Y' THEN
4142: PA_PROGRESS_PUB.APPLY_LP_PROG_ON_CWV(
4143: p_project_id => l_project_id,
4144: p_working_str_version_id => l_new_wbs_version_id,
4145: x_return_status => l_return_status,
4146: x_msg_count => l_msg_count ,
6624:
6625: -----------------------------------------------------------------
6626: --This API inserts rows for handling ETC calculations in apply
6627: --progress flow for version disabled workplan structures
6628: --If the global variable PA_PROGRESS_PUB.G_WBS_APPLY_PROG
6629: --is set, it means plan_update API is being called in apply
6630: --flow for version disabled workplan structure
6631: -----------------------------------------------------------------
6632: PROCEDURE INSERT_APPLY_PROG_VD IS
6631: -----------------------------------------------------------------
6632: PROCEDURE INSERT_APPLY_PROG_VD IS
6633: BEGIN
6634:
6635: IF PA_PROGRESS_PUB.G_WBS_APPLY_PROG IS NOT NULL THEN
6636:
6637: --------------------------------------------------------
6638: --If the ETC column is null and the PLAN column has some
6639: --value, we copy the plan value to the ETC columns
6660: 0, 0, 0, 0
6661: FROM
6662: pji_fm_extr_plan_lines
6663: WHERE
6664: STRUCT_VER_ID = PA_PROGRESS_PUB.G_WBS_APPLY_PROG
6665: GROUP BY
6666: PROJECT_ID, PROJECT_ORG_ID, PROJECT_ELEMENT_ID, STRUCT_VER_ID,
6667: PERIOD_NAME, CALENDAR_TYPE, START_DATE, END_DATE, RBS_ELEMENT_ID,
6668: RBS_VERSION_ID, PLAN_VERSION_ID, PLAN_TYPE_ID, WP_VERSION_FLAG,