DBA Data[Home] [Help]

APPS.PA_FIN_PLAN_MAINT_VER_GLOBAL dependencies on FND_API

Line 52: x_return_status := FND_API.G_RET_STS_SUCCESS;

48: x_msg_count OUT NOCOPY NUMBER,
49: x_msg_data OUT NOCOPY VARCHAR2 ) IS
50: begin
51: x_msg_count := 0;
52: x_return_status := FND_API.G_RET_STS_SUCCESS;
53:
54: IF(paFinplanSecType = 'Submit') THEN pa_fin_plan_maint_ver_global.G_SECURITY_S := paFinplanSec;
55: ELSIF(paFinplanSecType = 'Rework') THEN pa_fin_plan_maint_ver_global.G_SECURITY_R := paFinplanSec;
56: ELSIF(paFinplanSecType = 'Baseline') THEN pa_fin_plan_maint_ver_global.G_SECURITY_B := paFinplanSec;

Line 62: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

58:
59:
60: exception
61: when others then
62: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
63: x_msg_count := 1;
64: x_msg_data := SQLERRM;
65: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_MAIN_VER_GLOBAL',
66: p_procedure_name => 'set_global_finplan_security');

Line 84: x_return_status := FND_API.G_RET_STS_SUCCESS;

80: l_resource_id VARCHAR2(80);
81: l_resource_name VARCHAR(240); /* Added this line for bug 3456811 */
82: begin
83: x_msg_count := 0;
84: x_return_status := FND_API.G_RET_STS_SUCCESS;
85: pa_fin_plan_maint_ver_global.G_PROJECT_ID := p_project_id;
86: pa_fin_plan_maint_ver_global.G_FIN_PLAN_TYPE_ID := p_fin_plan_type_id;
87:
88: PA_COMP_PROFILE_PUB.GET_USER_INFO

Line 98: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

94: pa_fin_plan_maint_ver_global.G_LOGIN_PERSON_ID := l_person_id;
95:
96: exception
97: when others then
98: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
99: x_msg_count := 1;
100: x_msg_data := SQLERRM;
101: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_MAIN_VER_GLOBAL',
102: p_procedure_name => 'set_global_values');

Line 159: x_return_status := FND_API.G_RET_STS_SUCCESS;

155: IF P_PA_DEBUG_MODE = 'Y' THEN
156: pa_debug.init_err_stack('pa_fin_plan_maint_ver_global.Maintain_Versions_Init');
157: END IF;
158: x_msg_count := 0;
159: x_return_status := FND_API.G_RET_STS_SUCCESS;
160:
161: -- get AUTO BASELINED FLAG
162: x_auto_baseline_flag :=
163: Pa_Fp_Control_Items_Utils.IsFpAutoBaselineEnabled(p_project_id);

Line 182: x_return_status := FND_API.G_RET_STS_ERROR;

178: where
179: proj_fp_options_id=p_fin_plan_options_id;
180: if (l_fin_plan_pref_code is null) then
181: l_msg_count := l_msg_count + 1;
182: x_return_status := FND_API.G_RET_STS_ERROR;
183: else
184: x_fin_plan_pref_code := l_fin_plan_pref_code;
185: x_derive_margin_from_code := l_derive_margin_from_code;
186: x_report_labor_hrs_code := l_report_labor_hrs_from_code;

Line 217: x_return_status := FND_API.G_RET_STS_ERROR;

213: p.org_id = pt.org_id; -- R12 MOAC 4447573: nvl(p.org_id, -99) = nvl(pt.org_id, -99)
214:
215: if (l_currency_code is null) or (l_proj_currency_code is null) then
216: l_msg_count := l_msg_count + 1;
217: x_return_status := FND_API.G_RET_STS_ERROR;
218: else
219: x_currency_code := l_currency_code;
220: x_proj_currency_code := l_proj_currency_code;
221: end if;

Line 236: x_return_status := FND_API.G_RET_STS_ERROR;

232: and language = USERENV('LANG');
233:
234: if (l_fin_plan_type_name is null) then
235: l_msg_count := l_msg_count +1;
236: x_return_status := FND_API.G_RET_STS_ERROR;
237: else
238: x_fin_plan_type_name := l_fin_plan_type_name;
239: end if;
240:

Line 281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

277: pa_debug.reset_err_stack;
278:
279: exception
280: when others then
281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
282: x_msg_count := 1;
283: x_msg_data := SQLERRM;
284: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'pa_fin_plan_maint_ver_global',
285: p_procedure_name => 'Maintain_Versions_Init');

Line 286: raise FND_API.G_EXC_UNEXPECTED_ERROR;

282: x_msg_count := 1;
283: x_msg_data := SQLERRM;
284: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'pa_fin_plan_maint_ver_global',
285: p_procedure_name => 'Maintain_Versions_Init');
286: raise FND_API.G_EXC_UNEXPECTED_ERROR;
287: end Maintain_Versions_Init;
288:
289:
290: procedure Create_Working_Copy

Line 320: if l_return_status = FND_API.G_RET_STS_SUCCESS then

316: px_target_version_id => px_target_version_id,
317: x_return_status => l_return_status,
318: x_msg_count => l_msg_count,
319: x_msg_data => l_msg_data);
320: if l_return_status = FND_API.G_RET_STS_SUCCESS then
321: -- prepend 'Copy: ' to version name
322: select version_name
323: into l_version_name
324: from pa_budget_versions

Line 335: x_return_status := FND_API.G_RET_STS_SUCCESS;

331: l_version_name := substr(l_version_name, 1, 60);
332: update pa_budget_versions
333: set version_name = l_version_name
334: where budget_version_id = px_target_version_id;
335: x_return_status := FND_API.G_RET_STS_SUCCESS;
336: else
337: rollback to create_working_copy;
338: x_return_status := FND_API.G_RET_STS_ERROR;
339: x_msg_count := FND_MSG_PUB.Count_Msg;

Line 338: x_return_status := FND_API.G_RET_STS_ERROR;

334: where budget_version_id = px_target_version_id;
335: x_return_status := FND_API.G_RET_STS_SUCCESS;
336: else
337: rollback to create_working_copy;
338: x_return_status := FND_API.G_RET_STS_ERROR;
339: x_msg_count := FND_MSG_PUB.Count_Msg;
340: if x_msg_count = 1 then
341: PA_INTERFACE_UTILS_PUB.get_messages
342: (p_encoded => FND_API.G_TRUE,

Line 342: (p_encoded => FND_API.G_TRUE,

338: x_return_status := FND_API.G_RET_STS_ERROR;
339: x_msg_count := FND_MSG_PUB.Count_Msg;
340: if x_msg_count = 1 then
341: PA_INTERFACE_UTILS_PUB.get_messages
342: (p_encoded => FND_API.G_TRUE,
343: p_msg_index => 1,
344: p_data => x_msg_data,
345: p_msg_index_out => l_msg_index_out);
346: end if;

Line 351: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

347: return;
348: end if; -- status=SUCCESS
349: exception
350: when others then
351: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
352: x_msg_count := 1;
353: x_msg_data := SQLERRM;
354: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'pa_fin_plan_maint_ver_global',
355: p_procedure_name => 'Create_Working_Copy');

Line 356: raise FND_API.G_EXC_UNEXPECTED_ERROR;

352: x_msg_count := 1;
353: x_msg_data := SQLERRM;
354: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'pa_fin_plan_maint_ver_global',
355: p_procedure_name => 'Create_Working_Copy');
356: raise FND_API.G_EXC_UNEXPECTED_ERROR;
357: END Create_Working_Copy;
358:
359:
360: PROCEDURE Resubmit_Concurrent_Process

Line 379: x_return_status := FND_API.G_RET_STS_SUCCESS;

375: IF P_PA_DEBUG_MODE = 'Y' THEN
376: pa_debug.init_err_stack('pa_fin_plan_maint_ver_global.Maintain_Versions_Init');
377: END IF;
378: x_msg_count := 0;
379: x_return_status := FND_API.G_RET_STS_SUCCESS;
380:
381: -- retrieve l_structure_version_id
382: l_structure_version_id :=
383: PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(p_project_id);

Line 390: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

386: p_structure_version_id => l_structure_version_id,
387: x_return_status => l_return_status,
388: x_msg_count => l_msg_count,
389: x_msg_data => l_msg_data);
390: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
391: x_return_status := FND_API.G_RET_STS_ERROR;
392: x_msg_count := FND_MSG_PUB.Count_Msg;
393: if x_msg_count = 1 then
394: PA_INTERFACE_UTILS_PUB.get_messages

Line 391: x_return_status := FND_API.G_RET_STS_ERROR;

387: x_return_status => l_return_status,
388: x_msg_count => l_msg_count,
389: x_msg_data => l_msg_data);
390: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
391: x_return_status := FND_API.G_RET_STS_ERROR;
392: x_msg_count := FND_MSG_PUB.Count_Msg;
393: if x_msg_count = 1 then
394: PA_INTERFACE_UTILS_PUB.get_messages
395: (p_encoded => FND_API.G_TRUE,

Line 395: (p_encoded => FND_API.G_TRUE,

391: x_return_status := FND_API.G_RET_STS_ERROR;
392: x_msg_count := FND_MSG_PUB.Count_Msg;
393: if x_msg_count = 1 then
394: PA_INTERFACE_UTILS_PUB.get_messages
395: (p_encoded => FND_API.G_TRUE,
396: p_msg_index => 1,
397: p_data => x_msg_data,
398: p_msg_index_out => l_msg_index_out);
399: end if;

Line 404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

400: end if;
401: return;
402: exception
403: when others then
404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
405: x_msg_count := 1;
406: x_msg_data := SQLERRM;
407: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'pa_fin_plan_maint_ver_global',
408: p_procedure_name => 'Resubmit_Concurrent_Process');

Line 409: raise FND_API.G_EXC_UNEXPECTED_ERROR;

405: x_msg_count := 1;
406: x_msg_data := SQLERRM;
407: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'pa_fin_plan_maint_ver_global',
408: p_procedure_name => 'Resubmit_Concurrent_Process');
409: raise FND_API.G_EXC_UNEXPECTED_ERROR;
410: END Resubmit_Concurrent_Process;
411:
412: END pa_fin_plan_maint_ver_global;