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 158: x_return_status := FND_API.G_RET_STS_SUCCESS;

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:
160: -- get AUTO BASELINED FLAG
161: x_auto_baseline_flag :=
162: Pa_Fp_Control_Items_Utils.IsFpAutoBaselineEnabled(p_project_id);

Line 181: x_return_status := FND_API.G_RET_STS_ERROR;

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

Line 216: x_return_status := FND_API.G_RET_STS_ERROR;

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

Line 235: x_return_status := FND_API.G_RET_STS_ERROR;

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

Line 270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

266: pa_debug.reset_err_stack;
267:
268: exception
269: when others then
270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271: x_msg_count := 1;
272: x_msg_data := SQLERRM;
273: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'pa_fin_plan_maint_ver_global',
274: p_procedure_name => 'Maintain_Versions_Init');

Line 275: raise FND_API.G_EXC_UNEXPECTED_ERROR;

271: x_msg_count := 1;
272: x_msg_data := SQLERRM;
273: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'pa_fin_plan_maint_ver_global',
274: p_procedure_name => 'Maintain_Versions_Init');
275: raise FND_API.G_EXC_UNEXPECTED_ERROR;
276: end Maintain_Versions_Init;
277:
278:
279: procedure Create_Working_Copy

Line 309: if l_return_status = FND_API.G_RET_STS_SUCCESS then

305: px_target_version_id => px_target_version_id,
306: x_return_status => l_return_status,
307: x_msg_count => l_msg_count,
308: x_msg_data => l_msg_data);
309: if l_return_status = FND_API.G_RET_STS_SUCCESS then
310: -- prepend 'Copy: ' to version name
311: select version_name
312: into l_version_name
313: from pa_budget_versions

Line 324: x_return_status := FND_API.G_RET_STS_SUCCESS;

320: l_version_name := substr(l_version_name, 1, 60);
321: update pa_budget_versions
322: set version_name = l_version_name
323: where budget_version_id = px_target_version_id;
324: x_return_status := FND_API.G_RET_STS_SUCCESS;
325: else
326: rollback to create_working_copy;
327: x_return_status := FND_API.G_RET_STS_ERROR;
328: x_msg_count := FND_MSG_PUB.Count_Msg;

Line 327: x_return_status := FND_API.G_RET_STS_ERROR;

323: where budget_version_id = px_target_version_id;
324: x_return_status := FND_API.G_RET_STS_SUCCESS;
325: else
326: rollback to create_working_copy;
327: x_return_status := FND_API.G_RET_STS_ERROR;
328: x_msg_count := FND_MSG_PUB.Count_Msg;
329: if x_msg_count = 1 then
330: PA_INTERFACE_UTILS_PUB.get_messages
331: (p_encoded => FND_API.G_TRUE,

Line 331: (p_encoded => FND_API.G_TRUE,

327: x_return_status := FND_API.G_RET_STS_ERROR;
328: x_msg_count := FND_MSG_PUB.Count_Msg;
329: if x_msg_count = 1 then
330: PA_INTERFACE_UTILS_PUB.get_messages
331: (p_encoded => FND_API.G_TRUE,
332: p_msg_index => 1,
333: p_data => x_msg_data,
334: p_msg_index_out => l_msg_index_out);
335: end if;

Line 340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

336: return;
337: end if; -- status=SUCCESS
338: exception
339: when others then
340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
341: x_msg_count := 1;
342: x_msg_data := SQLERRM;
343: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'pa_fin_plan_maint_ver_global',
344: p_procedure_name => 'Create_Working_Copy');

Line 345: raise FND_API.G_EXC_UNEXPECTED_ERROR;

341: x_msg_count := 1;
342: x_msg_data := SQLERRM;
343: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'pa_fin_plan_maint_ver_global',
344: p_procedure_name => 'Create_Working_Copy');
345: raise FND_API.G_EXC_UNEXPECTED_ERROR;
346: END Create_Working_Copy;
347:
348:
349: PROCEDURE Resubmit_Concurrent_Process

Line 368: x_return_status := FND_API.G_RET_STS_SUCCESS;

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:
370: -- retrieve l_structure_version_id
371: l_structure_version_id :=
372: PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(p_project_id);

Line 379: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

375: p_structure_version_id => l_structure_version_id,
376: x_return_status => l_return_status,
377: x_msg_count => l_msg_count,
378: x_msg_data => l_msg_data);
379: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
380: x_return_status := FND_API.G_RET_STS_ERROR;
381: x_msg_count := FND_MSG_PUB.Count_Msg;
382: if x_msg_count = 1 then
383: PA_INTERFACE_UTILS_PUB.get_messages

Line 380: x_return_status := FND_API.G_RET_STS_ERROR;

376: x_return_status => l_return_status,
377: x_msg_count => l_msg_count,
378: x_msg_data => l_msg_data);
379: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
380: x_return_status := FND_API.G_RET_STS_ERROR;
381: x_msg_count := FND_MSG_PUB.Count_Msg;
382: if x_msg_count = 1 then
383: PA_INTERFACE_UTILS_PUB.get_messages
384: (p_encoded => FND_API.G_TRUE,

Line 384: (p_encoded => FND_API.G_TRUE,

380: x_return_status := FND_API.G_RET_STS_ERROR;
381: x_msg_count := FND_MSG_PUB.Count_Msg;
382: if x_msg_count = 1 then
383: PA_INTERFACE_UTILS_PUB.get_messages
384: (p_encoded => FND_API.G_TRUE,
385: p_msg_index => 1,
386: p_data => x_msg_data,
387: p_msg_index_out => l_msg_index_out);
388: end if;

Line 393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

389: end if;
390: return;
391: exception
392: when others then
393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
394: x_msg_count := 1;
395: x_msg_data := SQLERRM;
396: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'pa_fin_plan_maint_ver_global',
397: p_procedure_name => 'Resubmit_Concurrent_Process');

Line 398: raise FND_API.G_EXC_UNEXPECTED_ERROR;

394: x_msg_count := 1;
395: x_msg_data := SQLERRM;
396: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'pa_fin_plan_maint_ver_global',
397: p_procedure_name => 'Resubmit_Concurrent_Process');
398: raise FND_API.G_EXC_UNEXPECTED_ERROR;
399: END Resubmit_Concurrent_Process;
400:
401: END pa_fin_plan_maint_ver_global;