7: NOTE :
8: End of Comments
9: */
10:
11: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
12:
13: function get_project_id return NUMBER is
14: begin
15: return G_PROJECT_ID;
150: process_update_wbs_flag = 'Y';
151: wbs_errored_versions_rec wbs_errored_versions_csr%ROWTYPE;
152:
153: begin
154: IF P_PA_DEBUG_MODE = 'Y' THEN
155: pa_debug.init_err_stack('pa_fin_plan_maint_ver_global.Maintain_Versions_Init');
156: END IF;
157: x_msg_count := 0;
158: x_return_status := FND_API.G_RET_STS_SUCCESS;
151: wbs_errored_versions_rec wbs_errored_versions_csr%ROWTYPE;
152:
153: begin
154: IF P_PA_DEBUG_MODE = 'Y' THEN
155: pa_debug.init_err_stack('pa_fin_plan_maint_ver_global.Maintain_Versions_Init');
156: END IF;
157: x_msg_count := 0;
158: x_return_status := FND_API.G_RET_STS_SUCCESS;
159:
258: (p_project_id, p_fin_plan_type_id);
259: if l_msg_count > 0 then
260: x_msg_count := 1;
261: x_msg_data := SQLERRM;
262: pa_debug.reset_err_stack;
263: return;
264: end if;
265:
266: pa_debug.reset_err_stack;
262: pa_debug.reset_err_stack;
263: return;
264: end if;
265:
266: pa_debug.reset_err_stack;
267:
268: exception
269: when others then
270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
360: l_msg_data VARCHAR2(1000);
361: l_msg_index_out NUMBER;
362:
363: BEGIN
364: IF P_PA_DEBUG_MODE = 'Y' THEN
365: pa_debug.init_err_stack('pa_fin_plan_maint_ver_global.Maintain_Versions_Init');
366: END IF;
367: x_msg_count := 0;
368: x_return_status := FND_API.G_RET_STS_SUCCESS;
361: l_msg_index_out NUMBER;
362:
363: BEGIN
364: IF P_PA_DEBUG_MODE = 'Y' THEN
365: pa_debug.init_err_stack('pa_fin_plan_maint_ver_global.Maintain_Versions_Init');
366: END IF;
367: x_msg_count := 0;
368: x_return_status := FND_API.G_RET_STS_SUCCESS;
369: