DBA Data[Home] [Help]

APPS.PA_GENERATE_FORECAST_PUB dependencies on PA_BUDGET_VERSIONS

Line 21: UPDATE PA_BUDGET_VERSIONS SET PLAN_PROCESSING_CODE = 'E'

17: END;
18:
19: PROCEDURE UPDATE_BUDG_VERSION(p_budget_version_id IN NUMBER ) IS
20: BEGIN
21: UPDATE PA_BUDGET_VERSIONS SET PLAN_PROCESSING_CODE = 'E'
22: WHERE
23: BUDGET_VERSION_ID = p_budget_version_id;
24: COMMIT;
25: END;

Line 80: FROM PA_BUDGET_VERSIONS

76: x_msg_data OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
77: x_return_status OUT NOCOPY VARCHAR2) IS --File.Sql.39 bug 4440895
78: CURSOR BUDGET_VERSION IS
79: SELECT BUDGET_VERSION_ID, PLAN_PROCESSING_CODE
80: FROM PA_BUDGET_VERSIONS
81: WHERE PROJECT_ID = p_project_id AND
82: BUDGET_TYPE_CODE = 'FORECASTING_BUDGET_TYPE';
83: l_ret_status VARCHAR2(100);
84: l_created_by NUMBER(15) := PA_FORECAST_GLOBAL.G_who_columns.G_created_by;

Line 91: l_fcst_def_bem PA_BUDGET_VERSIONS.BUDGET_ENTRY_METHOD_CODE%TYPE;

87: l_program_application_id NUMBER(15) := PA_FORECAST_GLOBAL.G_who_columns.G_program_application_id;
88: l_creation_date DATE := PA_FORECAST_GLOBAL.G_who_columns.G_creation_date;
89: l_program_update_date DATE := PA_FORECAST_GLOBAL.G_who_columns.G_last_update_date;
90:
91: l_fcst_def_bem PA_BUDGET_VERSIONS.BUDGET_ENTRY_METHOD_CODE%TYPE;
92: l_fcst_res_list PA_RESOURCE_LISTS_ALL_BG.RESOURCE_LIST_ID%TYPE;
93: l_fcst_period_type VARCHAR2(30);
94:
95: l_plan_processing_code PA_BUDGET_VERSIONS.PLAN_PROCESSING_CODE%TYPE;

Line 95: l_plan_processing_code PA_BUDGET_VERSIONS.PLAN_PROCESSING_CODE%TYPE;

91: l_fcst_def_bem PA_BUDGET_VERSIONS.BUDGET_ENTRY_METHOD_CODE%TYPE;
92: l_fcst_res_list PA_RESOURCE_LISTS_ALL_BG.RESOURCE_LIST_ID%TYPE;
93: l_fcst_period_type VARCHAR2(30);
94:
95: l_plan_processing_code PA_BUDGET_VERSIONS.PLAN_PROCESSING_CODE%TYPE;
96: l_rowid ROWID;
97: l_msg_data VARCHAR2(2000);
98: l_data VARCHAR2(2000);
99: l_msg_index_out NUMBER:=0;

Line 144: PA_DEBUG.g_err_stage := '630: before calling PA_BUDGET_VERSIONS_PKG.INSERT_ROW';

140: FETCH BUDGET_VERSION INTO
141: x_budget_version_id,
142: l_plan_processing_code;
143: IF BUDGET_VERSION%NOTFOUND THEN
144: PA_DEBUG.g_err_stage := '630: before calling PA_BUDGET_VERSIONS_PKG.INSERT_ROW';
145: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
146: PA_BUDGET_VERSIONS_PKG.Insert_Row(
147: X_ROWID => l_rowid,
148: X_BUDGET_VERSION_ID => x_budget_version_id,

Line 146: PA_BUDGET_VERSIONS_PKG.Insert_Row(

142: l_plan_processing_code;
143: IF BUDGET_VERSION%NOTFOUND THEN
144: PA_DEBUG.g_err_stage := '630: before calling PA_BUDGET_VERSIONS_PKG.INSERT_ROW';
145: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
146: PA_BUDGET_VERSIONS_PKG.Insert_Row(
147: X_ROWID => l_rowid,
148: X_BUDGET_VERSION_ID => x_budget_version_id,
149: X_PROJECT_ID => p_project_id,
150: X_BUDGET_TYPE_CODE => 'FORECASTING_BUDGET_TYPE',

Line 195: PA_DEBUG.g_err_stage := '660: after calling PA_BUDGET_VERSIONS_PKG.INSERT_ROW';

191: X_PM_PRODUCT_CODE => NULL,
192: X_PM_BUDGET_REFERENCE => NULL,
193: X_WF_STATUS_CODE => NULL,
194: X_PLAN_PROCESSING_CODE => p_plan_processing_code);
195: PA_DEBUG.g_err_stage := '660: after calling PA_BUDGET_VERSIONS_PKG.INSERT_ROW';
196: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
197: ELSE
198: IF l_plan_processing_code = 'P' THEN
199: l_ret_status := FND_API.G_RET_STS_ERROR;

Line 217: PA_DEBUG.g_err_stage := '680: before updating PA_BUDGET_VERSIONS';

213: CLOSE BUDGET_VERSION;
214: PA_DEBUG.reset_err_stack;
215: RETURN;
216: END IF;
217: PA_DEBUG.g_err_stage := '680: before updating PA_BUDGET_VERSIONS';
218: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
219:
220: UPDATE PA_BUDGET_VERSIONS SET
221: PLAN_PROCESSING_CODE = p_plan_processing_code,

Line 220: UPDATE PA_BUDGET_VERSIONS SET

216: END IF;
217: PA_DEBUG.g_err_stage := '680: before updating PA_BUDGET_VERSIONS';
218: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
219:
220: UPDATE PA_BUDGET_VERSIONS SET
221: PLAN_PROCESSING_CODE = p_plan_processing_code,
222: BUDGET_ENTRY_METHOD_CODE = l_fcst_def_bem
223: WHERE
224: BUDGET_VERSION_ID = x_budget_version_id;

Line 226: PA_DEBUG.g_err_stage := '690: after updating PA_BUDGET_VERSIONS';

222: BUDGET_ENTRY_METHOD_CODE = l_fcst_def_bem
223: WHERE
224: BUDGET_VERSION_ID = x_budget_version_id;
225:
226: PA_DEBUG.g_err_stage := '690: after updating PA_BUDGET_VERSIONS';
227: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
228:
229: END IF;
230: CLOSE BUDGET_VERSION;

Line 457: l_budget_version_id PA_BUDGET_VERSIONS.BUDGET_VERSION_ID%TYPE;

453:
454:
455: /* Added for Org Forecasting */
456:
457: l_budget_version_id PA_BUDGET_VERSIONS.BUDGET_VERSION_ID%TYPE;
458: l_version_number PA_BUDGET_VERSIONS.VERSION_NUMBER%TYPE;
459: l_plan_processing_code PA_BUDGET_VERSIONS.PLAN_PROCESSING_CODE%TYPE;
460:
461: l_prj_assignment_id PA_PROJECT_ASSIGNMENTS.ASSIGNMENT_ID%TYPE;

Line 458: l_version_number PA_BUDGET_VERSIONS.VERSION_NUMBER%TYPE;

454:
455: /* Added for Org Forecasting */
456:
457: l_budget_version_id PA_BUDGET_VERSIONS.BUDGET_VERSION_ID%TYPE;
458: l_version_number PA_BUDGET_VERSIONS.VERSION_NUMBER%TYPE;
459: l_plan_processing_code PA_BUDGET_VERSIONS.PLAN_PROCESSING_CODE%TYPE;
460:
461: l_prj_assignment_id PA_PROJECT_ASSIGNMENTS.ASSIGNMENT_ID%TYPE;
462: l_prj_start_date PA_PROJECT_ASSIGNMENTS.START_DATE%TYPE;

Line 459: l_plan_processing_code PA_BUDGET_VERSIONS.PLAN_PROCESSING_CODE%TYPE;

455: /* Added for Org Forecasting */
456:
457: l_budget_version_id PA_BUDGET_VERSIONS.BUDGET_VERSION_ID%TYPE;
458: l_version_number PA_BUDGET_VERSIONS.VERSION_NUMBER%TYPE;
459: l_plan_processing_code PA_BUDGET_VERSIONS.PLAN_PROCESSING_CODE%TYPE;
460:
461: l_prj_assignment_id PA_PROJECT_ASSIGNMENTS.ASSIGNMENT_ID%TYPE;
462: l_prj_start_date PA_PROJECT_ASSIGNMENTS.START_DATE%TYPE;
463: l_prj_resource_id PA_PROJECT_ASSIGNMENTS.RESOURCE_ID%TYPE;

Line 481: l_fcst_def_bem PA_BUDGET_VERSIONS.BUDGET_ENTRY_METHOD_CODE%TYPE;

477:
478:
479:
480:
481: l_fcst_def_bem PA_BUDGET_VERSIONS.BUDGET_ENTRY_METHOD_CODE%TYPE;
482: l_fcst_res_list PA_RESOURCE_LISTS_ALL_BG.RESOURCE_LIST_ID%TYPE;
483: l_fcst_period_type VARCHAR2(30);
484:
485: l_fcst_exp_org_id PA_FORECAST_ITEMS.EXPENDITURE_ORGANIZATION_ID%TYPE;

Line 2094: PA_DEBUG.g_err_stage := '3200: before updating PA_BUDGET_VERSIONS for PLAN_PROCESSING_CODE';

2090:
2091: PA_DEBUG.g_err_stage := '3100: after updating PA_RESOURCE_ASSIGNMENTS for REVENUE';
2092: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2093:
2094: PA_DEBUG.g_err_stage := '3200: before updating PA_BUDGET_VERSIONS for PLAN_PROCESSING_CODE';
2095: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2096:
2097: UPDATE PA_BUDGET_VERSIONS SET PLAN_PROCESSING_CODE = l_plan_processing_code,
2098: PLAN_RUN_DATE = SYSDATE

Line 2097: UPDATE PA_BUDGET_VERSIONS SET PLAN_PROCESSING_CODE = l_plan_processing_code,

2093:
2094: PA_DEBUG.g_err_stage := '3200: before updating PA_BUDGET_VERSIONS for PLAN_PROCESSING_CODE';
2095: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2096:
2097: UPDATE PA_BUDGET_VERSIONS SET PLAN_PROCESSING_CODE = l_plan_processing_code,
2098: PLAN_RUN_DATE = SYSDATE
2099: WHERE BUDGET_VERSION_ID = l_budget_version_id;
2100:
2101: PA_DEBUG.g_err_stage := '3300: after updating PA_BUDGET_VERSIONS for PLAN_PROCESSING_CODE';

Line 2101: PA_DEBUG.g_err_stage := '3300: after updating PA_BUDGET_VERSIONS for PLAN_PROCESSING_CODE';

2097: UPDATE PA_BUDGET_VERSIONS SET PLAN_PROCESSING_CODE = l_plan_processing_code,
2098: PLAN_RUN_DATE = SYSDATE
2099: WHERE BUDGET_VERSION_ID = l_budget_version_id;
2100:
2101: PA_DEBUG.g_err_stage := '3300: after updating PA_BUDGET_VERSIONS for PLAN_PROCESSING_CODE';
2102: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2103: ELSE -- else for l_budget_lines_tot_tbl.count greater than zero
2104: /* The budget version record will be deleted if no forecast lines are generated,
2105: this change is made to avoid the error from the page. */

Line 2106: DELETE FROM PA_BUDGET_VERSIONS WHERE BUDGET_VERSION_ID = l_budget_version_id;

2102: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2103: ELSE -- else for l_budget_lines_tot_tbl.count greater than zero
2104: /* The budget version record will be deleted if no forecast lines are generated,
2105: this change is made to avoid the error from the page. */
2106: DELETE FROM PA_BUDGET_VERSIONS WHERE BUDGET_VERSION_ID = l_budget_version_id;
2107: END IF; -- end if for l_budget_lines_tot_tbl.count greater than zero
2108:
2109: /* API call added for updating Average Bill rate in Project Assignments table. */
2110: l_prj_asg_id_tab.DELETE;

Line 2160: FROM pa_budget_versions

2156: RETURN DATE IS
2157: l_run_date DATE:= NULL;
2158: BEGIN
2159: SELECT plan_run_date INTO l_run_date
2160: FROM pa_budget_versions
2161: WHERE project_id = p_project_id AND
2162: budget_type_code = 'FORECASTING_BUDGET_TYPE';
2163: RETURN l_run_date;
2164: EXCEPTION