[Home] [Help]
108: and x_end_period_end_date;
109:
110: cursor get_budget_amount_code is
111: select budget_amount_code
112: from pa_budget_versions b,pa_budget_types t
113: where b.budget_version_id = x_version_id
114: and b.budget_type_code = t.budget_type_code;
115:
116: -- Added for bug 3896747
3985:
3986: begin
3987: select 'Y'
3988: into l_target_is_baselined
3989: from pa_budget_versions
3990: where budget_status_code = 'B'
3991: and budget_version_id = x_dest_version_id;
3992: exception
3993: when no_data_found then
4218: cursor get_info is
4219: select pbv.resource_list_id,
4220: pbem.time_phased_type_code,
4221: pbv.budget_version_id
4222: from pa_budget_versions pbv,
4223: pa_budget_entry_methods pbem
4224: where pbem.budget_entry_method_code = pbv.budget_entry_method_code
4225: and pbv.project_id = x_project_id
4226: and pbv.budget_type_code = x_budget_type_code
4225: and pbv.project_id = x_project_id
4226: and pbv.budget_type_code = x_budget_type_code
4227: and pbv.budget_status_code = 'W';
4228:
4229: cursor get_budget_amount_code(x_version_id pa_budget_versions.budget_version_id%type) is
4230: select budget_amount_code
4231: from pa_budget_versions b,
4232: pa_budget_types t
4233: where b.budget_version_id = x_version_id
4227: and pbv.budget_status_code = 'W';
4228:
4229: cursor get_budget_amount_code(x_version_id pa_budget_versions.budget_version_id%type) is
4230: select budget_amount_code
4231: from pa_budget_versions b,
4232: pa_budget_types t
4233: where b.budget_version_id = x_version_id
4234: and b.budget_type_code = t.budget_type_code;
4235:
4236: l_resource_list_id pa_resource_lists_all_bg.resource_list_id%type;
4237: l_time_phased_type_code pa_budget_entry_methods.time_phased_type_code%type;
4238: l_start_period_name pa_periods_all.period_name%type;
4239: l_start_period_date pa_periods_all.start_date%type;
4240: l_budget_version_id pa_budget_versions.budget_version_id%type;
4241: l_budget_amount_code pa_budget_types.budget_amount_code%type;
4242: x_err_code number;
4243: x_err_stage varchar2(2000);
4244: x_err_stack varchar2(2000);
4303: Autonomous transaction is used as the value should appear in the database. Based on this value
4304: copy actuals is allowed or restricted through budget form and/or concurrent request
4305: *********************************************************************************************/
4306: procedure update_budget_version (x_request_id number default null,
4307: x_budget_version_id pa_budget_versions.budget_version_id%type)
4308: is
4309: pragma autonomous_transaction;
4310: begin
4311: update pa_budget_versions
4307: x_budget_version_id pa_budget_versions.budget_version_id%type)
4308: is
4309: pragma autonomous_transaction;
4310: begin
4311: update pa_budget_versions
4312: set request_id = x_request_id
4313: where budget_version_id = x_budget_version_id;
4314: commit;
4315: end;
4329: cursor get_budget_info is
4330: select pbv.resource_list_id,
4331: pbv.budget_entry_method_code,
4332: pbv.budget_version_id
4333: from pa_budget_versions pbv
4334: where pbv.project_id = x_project_id
4335: and pbv.budget_type_code = x_budget_type_code
4336: and pbv.budget_status_code = 'W';
4337:
4339: x_err_stack varchar2(2000);
4340: x_err_stage varchar2(2000);
4341: l_resource_list_id pa_resource_lists_all_bg.resource_list_id%type;
4342: l_budget_entry_method_code pa_budget_entry_methods.time_phased_type_code%type;
4343: l_budget_version_id pa_budget_versions.budget_version_id%type;
4344:
4345:
4346: l_start_period_date pa_periods_all.start_date%type;
4347: l_end_period_date pa_periods_all.end_date%type;
4369: End if;
4370:
4371: select request_id
4372: into l_request_id
4373: from pa_budget_versions
4374: where project_id = x_project_id
4375: and budget_type_code = x_budget_type_code
4376: and budget_status_code = 'W';
4377:
4417: If p_debug_mode = 'Y' and g_calling_mode = 'CONCURRENT REQUEST' then
4418: fnd_file.put_line(1, errbuf);
4419: End if;
4420:
4421: update pa_budget_versions
4422: set request_id = NULL
4423: where budget_version_id = l_budget_version_id;
4424:
4425: else