[Home] [Help]
2: /* $Header: PAFPGNPB.pls 120.6 2007/02/06 10:00:11 dthakker 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,
730: l_time_phase PA_PROJ_FP_OPTIONS.COST_TIME_PHASED_CODE%TYPE;
731: l_start_date PA_BUDGET_LINES.START_DATE%TYPE;
732: l_end_date PA_BUDGET_LINES.END_DATE%TYPE;
733: l_period_name PA_BUDGET_LINES.PERIOD_NAME%TYPE;
734: l_pc_currency_code PA_PROJECTS_ALL.PROJECT_CURRENCY_CODE%TYPE;
735: l_pfc_currency_code PA_PROJECTS_ALL.PROJFUNC_CURRENCY_CODE%TYPE;
736:
737: /* Plan amount pl/sql tables */
738: l_plan_ra_id_tab PA_PLSQL_DATATYPES.IdTabTyp;
731: l_start_date PA_BUDGET_LINES.START_DATE%TYPE;
732: l_end_date PA_BUDGET_LINES.END_DATE%TYPE;
733: l_period_name PA_BUDGET_LINES.PERIOD_NAME%TYPE;
734: l_pc_currency_code PA_PROJECTS_ALL.PROJECT_CURRENCY_CODE%TYPE;
735: l_pfc_currency_code PA_PROJECTS_ALL.PROJFUNC_CURRENCY_CODE%TYPE;
736:
737: /* Plan amount pl/sql tables */
738: l_plan_ra_id_tab PA_PLSQL_DATATYPES.IdTabTyp;
739: l_plan_txn_cur_code_tab PA_PLSQL_DATATYPES.Char30TabTyp;
1574: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1575: X_MSG_COUNT OUT NOCOPY NUMBER,
1576: X_MSG_DATA OUT NOCOPY VARCHAR2) IS
1577:
1578: l_project_currency_code pa_projects_all.project_currency_code%TYPE;
1579: l_org_id pa_projects_all.org_id%TYPE;
1580: l_target_ver_period_type pa_proj_fp_options.cost_time_phased_code%TYPE;
1581: l_target_set_of_books_id pa_implementations_all.set_of_books_id%TYPE;
1582: l_target_period_name pa_budget_lines.period_name%TYPE;
1575: X_MSG_COUNT OUT NOCOPY NUMBER,
1576: X_MSG_DATA OUT NOCOPY VARCHAR2) IS
1577:
1578: l_project_currency_code pa_projects_all.project_currency_code%TYPE;
1579: l_org_id pa_projects_all.org_id%TYPE;
1580: l_target_ver_period_type pa_proj_fp_options.cost_time_phased_code%TYPE;
1581: l_target_set_of_books_id pa_implementations_all.set_of_books_id%TYPE;
1582: l_target_period_name pa_budget_lines.period_name%TYPE;
1583: l_target_start_date pa_budget_lines.start_date%TYPE;
1598: l_pc_revenue NUMBER;
1599:
1600: --Cursor used to select the PA period that contains the amts_thru_date and later
1601: CURSOR pa_period_csr(c_amt_thru PA_PERIODS_ALL.END_DATE%TYPE,
1602: c_org_id PA_PROJECTS_ALL.ORG_ID%TYPE) IS
1603: SELECT period_name, start_date, end_date
1604: FROM pa_periods_all
1605: WHERE org_id = c_org_id and -- R12 MOAC 4447573: nvl(org_id,-99) = nvl(c_org_id,-99)
1606: c_amt_thru between start_date and end_date;
1659: l_source_ver_period_type,
1660: l_source_set_of_books_id,
1661: l_source_bv_id
1662: from pa_resource_assignments ra,
1663: pa_projects_all p,
1664: pa_proj_fp_options po,
1665: pa_implementations_all pia
1666: where ra.resource_assignment_id = p_src_res_asg_id_tab(1) and
1667: ra.project_id = p.project_id and
1998: l_module_name VARCHAR2(100) := 'pa.plsql.PA_FP_GEN_PUB.' ||
1999: 'COPY_SRC_ATTRS_TO_TARGET_FCST';
2000: l_log_level CONSTANT PLS_INTEGER := 5;
2001:
2002: l_stru_sharing_code PA_PROJECTS_ALL.STRUCTURE_SHARING_CODE%TYPE;
2003:
2004: l_src_version_id_tab PA_PLSQL_DATATYPES.IdTabTyp;
2005: l_gen_etc_src_code_tab PA_PLSQL_DATATYPES.Char30TabTyp;
2006: l_src_version_id PA_BUDGET_VERSIONS.BUDGET_VERSION_ID%TYPE;