[Home] [Help]
2: /* $Header: PAFPGNPB.pls 120.6.12010000.2 2009/06/25 11:01:43 rthumma ship $ */
3: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
4:
5: PROCEDURE UPDATE_RES_DEFAULTS
6: (P_PROJECT_ID IN pa_projects_all.PROJECT_ID%TYPE,
7: P_BUDGET_VERSION_ID IN PA_BUDGET_VERSIONS.BUDGET_VERSION_ID%TYPE,
8: P_CALLED_MODE IN VARCHAR2,
9: P_COMMIT_FLAG IN VARCHAR2,
10: P_INIT_MSG_FLAG IN VARCHAR2,
743: l_time_phase PA_PROJ_FP_OPTIONS.COST_TIME_PHASED_CODE%TYPE;
744: l_start_date PA_BUDGET_LINES.START_DATE%TYPE;
745: l_end_date PA_BUDGET_LINES.END_DATE%TYPE;
746: l_period_name PA_BUDGET_LINES.PERIOD_NAME%TYPE;
747: l_pc_currency_code PA_PROJECTS_ALL.PROJECT_CURRENCY_CODE%TYPE;
748: l_pfc_currency_code PA_PROJECTS_ALL.PROJFUNC_CURRENCY_CODE%TYPE;
749:
750: /* Plan amount pl/sql tables */
751: l_plan_ra_id_tab PA_PLSQL_DATATYPES.IdTabTyp;
744: l_start_date PA_BUDGET_LINES.START_DATE%TYPE;
745: l_end_date PA_BUDGET_LINES.END_DATE%TYPE;
746: l_period_name PA_BUDGET_LINES.PERIOD_NAME%TYPE;
747: l_pc_currency_code PA_PROJECTS_ALL.PROJECT_CURRENCY_CODE%TYPE;
748: l_pfc_currency_code PA_PROJECTS_ALL.PROJFUNC_CURRENCY_CODE%TYPE;
749:
750: /* Plan amount pl/sql tables */
751: l_plan_ra_id_tab PA_PLSQL_DATATYPES.IdTabTyp;
752: l_plan_txn_cur_code_tab PA_PLSQL_DATATYPES.Char30TabTyp;
1587: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1588: X_MSG_COUNT OUT NOCOPY NUMBER,
1589: X_MSG_DATA OUT NOCOPY VARCHAR2) IS
1590:
1591: l_project_currency_code pa_projects_all.project_currency_code%TYPE;
1592: l_org_id pa_projects_all.org_id%TYPE;
1593: l_target_ver_period_type pa_proj_fp_options.cost_time_phased_code%TYPE;
1594: l_target_set_of_books_id pa_implementations_all.set_of_books_id%TYPE;
1595: l_target_period_name pa_budget_lines.period_name%TYPE;
1588: X_MSG_COUNT OUT NOCOPY NUMBER,
1589: X_MSG_DATA OUT NOCOPY VARCHAR2) IS
1590:
1591: l_project_currency_code pa_projects_all.project_currency_code%TYPE;
1592: l_org_id pa_projects_all.org_id%TYPE;
1593: l_target_ver_period_type pa_proj_fp_options.cost_time_phased_code%TYPE;
1594: l_target_set_of_books_id pa_implementations_all.set_of_books_id%TYPE;
1595: l_target_period_name pa_budget_lines.period_name%TYPE;
1596: l_target_start_date pa_budget_lines.start_date%TYPE;
1611: l_pc_revenue NUMBER;
1612:
1613: --Cursor used to select the PA period that contains the amts_thru_date and later
1614: CURSOR pa_period_csr(c_amt_thru PA_PERIODS_ALL.END_DATE%TYPE,
1615: c_org_id PA_PROJECTS_ALL.ORG_ID%TYPE) IS
1616: SELECT period_name, start_date, end_date
1617: FROM pa_periods_all
1618: WHERE org_id = c_org_id and -- R12 MOAC 4447573: nvl(org_id,-99) = nvl(c_org_id,-99)
1619: c_amt_thru between start_date and end_date;
1672: l_source_ver_period_type,
1673: l_source_set_of_books_id,
1674: l_source_bv_id
1675: from pa_resource_assignments ra,
1676: pa_projects_all p,
1677: pa_proj_fp_options po,
1678: pa_implementations_all pia
1679: where ra.resource_assignment_id = p_src_res_asg_id_tab(1) and
1680: ra.project_id = p.project_id and
2011: l_module_name VARCHAR2(100) := 'pa.plsql.PA_FP_GEN_PUB.' ||
2012: 'COPY_SRC_ATTRS_TO_TARGET_FCST';
2013: l_log_level CONSTANT PLS_INTEGER := 5;
2014:
2015: l_stru_sharing_code PA_PROJECTS_ALL.STRUCTURE_SHARING_CODE%TYPE;
2016:
2017: l_src_version_id_tab PA_PLSQL_DATATYPES.IdTabTyp;
2018: l_gen_etc_src_code_tab PA_PLSQL_DATATYPES.Char30TabTyp;
2019: l_src_version_id PA_BUDGET_VERSIONS.BUDGET_VERSION_ID%TYPE;