Grant Accounting Project Funding

Question

Hi,
Can any one provide a sample code for funding a project under an award using API ?
Has anyone used GMS_AWARD_PVT.ADD_FUNDING API?
Does the budgetary controls for the project need to be setup manually or does it have any API?
Thanks

Answer 1

create or replace procedure XX_PA_BUD(errbuf OUT VARCHAR2,
retcode OUT VARCHAR2,
x_project_id NUMBER,
x_budget_version_name VARCHAR2,
x_resource_list_id NUMBER,
x_filename VARCHAR2) as
v_api_version_number NUMBER; --:= PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM;
v_commit VARCHAR2(1); --:= FND_API.G_FALSE;
v_init_msg_list VARCHAR2(1); --:= FND_API.G_FALSE;
v_pm_product_code pa_budget_versions.pm_product_code%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_pm_finplan_reference pa_budget_versions.pm_budget_reference%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_pm_project_reference VARCHAR2(10); --pa_projects_all. PM_PROJECT_REFERENCE%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_pa_project_id NUMBER; --pa_budget_versions.project_id%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM;
v_fin_plan_type_id NUMBER; --pa_budget_versions.fin_plan_type_id%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM;
v_fin_plan_type_name pa_fin_plan_types_vl.name%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_version_type pa_budget_versions.version_type%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_time_phased_code pa_proj_fp_options.cost_time_phased_code%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_resource_list_name pa_resource_lists.name%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_resource_list_id NUMBER; --pa_budget_versions.resource_list_id%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM;
v_fin_plan_level_code pa_proj_fp_options.cost_fin_plan_level_code%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_PLAN_IN_MULTI_CURR_FLAG pa_proj_fp_options.plan_in_multi_curr_flag%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_budget_version_name pa_budget_versions.version_name%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_description pa_budget_versions.description%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_change_reason_code pa_budget_versions.change_reason_code%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_raw_cost_flag pa_fin_plan_amount_sets.raw_cost_flag%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_burdened_cost_flag pa_fin_plan_amount_sets.burdened_cost_flag%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_revenue_flag pa_fin_plan_amount_sets.revenue_flag%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_cost_qty_flag pa_fin_plan_amount_sets.cost_qty_flag%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_revenue_qty_flag pa_fin_plan_amount_sets.revenue_qty_flag%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_all_qty_flag pa_fin_plan_amount_sets.all_qty_flag%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_create_new_curr_working_flag VARCHAR2(1);
v_replace_current_working_flag VARCHAR2(1); -- := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_using_resource_lists_flag VARCHAR2(1); -- DEFAULT 'N';
v_finplan_trans_tab_in pa_budget_pub.FinPlan_Trans_Tab;
v_finplan_trans_in_rec pa_budget_pub.FinPlan_Trans_Rec;
v_finplan_trans_out pa_budget_pub.FinPlan_Trans_Tab;
v_attribute_category pa_budget_versions.attribute_category%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_attribute1 pa_budget_versions.attribute1%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_attribute2 pa_budget_versions.attribute2%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_attribute3 pa_budget_versions.attribute3%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_attribute4 pa_budget_versions.attribute4%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_attribute5 pa_budget_versions.attribute5%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_attribute6 pa_budget_versions.attribute6%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_attribute7 pa_budget_versions.attribute7%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_attribute8 pa_budget_versions.attribute8%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_attribute9 pa_budget_versions.attribute9%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_attribute10 pa_budget_versions.attribute10%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_attribute11 pa_budget_versions.attribute11%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_attribute12 pa_budget_versions.attribute12%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_attribute13 pa_budget_versions.attribute13%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_attribute14 pa_budget_versions.attribute14%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_attribute15 pa_budget_versions.attribute15%TYPE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
v_finplan_version_id NUMBER;
v_return_status VARCHAR2(1);
v_msg_count NUMBER;
v_msg_data VARCHAR2(2000);
v_data VARCHAR2(2000);
v_msg_index_out NUMBER;
API_ERROR EXCEPTION;
v_resp_id NUMBER;
v_user_id NUMBER;
v_resp_appl_id NUMBER;
vout_msg_count NUMBER;
vout_msg_data VARCHAR2(200);
vout_data VARCHAR2(2000);
vout_return_status VARCHAR2(1);
vout_msg_index_out NUMBER;
v_operating_unit NUMBER;
g NUMBER;
a NUMBER;
o NUMBER;
f NUMBER;
i NUMBER;
v_task_id NUMBER;
v_pm_task_ref VARCHAR2(25);
v_resource_alias VARCHAR2(80);
v_curr_code VARCHAR2(10);
v_uom VARCHAR2(10);
v_start_date VARCHAR2(11);
v_end_date VARCHAR2(11);
v_quantity NUMBER;
v_rate NUMBER;
v_burdened_cost NUMBER;
v_resource_list_member_id NUMBER;
v_top_task_name VARCHAR2(240);
v_alias_name VARCHAR2(50);
v_err_list_member_id NUMBER;
v_err_cost NUMBER;
v_err_qty NUMBER;
v_err_rec NUMBER;
v_err_uom VARCHAR2(10);
total_records NUMBER;
cursor v_top_task_cur is
select distinct top_task
from xx_pa_bid_calc
where file_name = x_filename
and top_task = 'Mobilization (Activity)';
cursor v_plan_details_cur(v_top_task varchar2) is
select sum(quantity) quantity,
sum(total_amount) total_amount,
uom,
planning_value,
top_task
from xx_pa_bid_calc
where top_task = v_top_task
and file_name = x_filename
and top_task = 'Mobilization (Activity)'
and substr(upload, 1, 1) = 'Y'
group by uom, planning_value, top_task;
begin
g := 0;
a := 0;
o := 0;
f := 0;
total_records := 0;
v_resp_id := fnd_profile.value('resp_id');
v_user_id := fnd_profile.value('user_id');
fnd_file.put_line(fnd_file.log, 'Testing the global values:');
fnd_file.put_line(fnd_file.log, 'Resp id:' || v_resp_id);
fnd_file.put_line(fnd_file.log, 'User Id:' || v_user_id);
fnd_file.put_line(fnd_file.log, 'Project_Id:' || x_project_id);
-- Setting the global variables
fnd_msg_pub.initialize;
Pa_Interface_Utils_Pub.SET_GLOBAL_INFO(p_api_version_number => 1.0,
p_responsibility_id => v_resp_id,
p_user_id => v_user_id,
p_msg_count => VOUT_MSG_COUNT,
p_msg_data => VOUT_MSG_DATA,
p_return_status => VOUT_RETURN_STATUS);
fnd_file.put_line(fnd_file.log,
'Set Global Info Return Status :' || VOUT_RETURN_STATUS);
fnd_file.put_line(fnd_file.log,
'Set Global Info MSG Count :' || VOUT_MSG_COUNT);
fnd_file.put_line(fnd_file.log,
'Starting the Create draft Plan Process:');
fnd_file.put_line(fnd_file.log,
PA_BUDGET_PUB.INIT_BUDGET;
v_api_version_number := 1;
v_commit := 'F';
v_init_msg_list := 'F';
v_fin_plan_type_name := 'Acquisition Bid';
v_pm_product_code := 'MSPROJECT'; --'GOK';
v_pm_finplan_reference := 10024;
v_pm_project_reference := x_project_id;
v_pa_project_id := x_project_id;
v_fin_plan_type_id := 10024;
v_version_type := 'COST';
v_time_phased_code := 'G';
--v_resource_list_name   :='Planning Resource List 02';
v_resource_list_id := x_resource_list_id;
v_fin_plan_level_code := 'L';
v_PLAN_IN_MULTI_CURR_FLAG := 'N'; --'Y';
v_budget_version_name := x_budget_version_name;
v_description := x_budget_version_name;
v_change_reason_code := NULL;
v_raw_cost_flag := 'Y';
v_burdened_cost_flag := 'Y';
v_revenue_flag := 'Y';
v_cost_qty_flag := 'Y'; --N
v_revenue_qty_flag := 'N'; --'Y';
v_all_qty_flag := 'Y';
v_create_new_curr_working_flag := 'Y';
v_replace_current_working_flag := 'N';
v_using_resource_lists_flag := 'Y';
v_attribute_category := NULL;
v_attribute1 := NULL;
v_attribute2 := NULL;
v_attribute3 := NULL;
v_attribute4 := NULL;
v_attribute5 := NULL;
v_attribute6 := NULL;
v_attribute7 := NULL;
v_attribute8 := NULL;
v_attribute9 := NULL;
v_attribute10 := NULL;
v_attribute11 := NULL;
v_attribute12 := NULL;
v_attribute13 := NULL;
v_attribute14 := NULL;
v_attribute15 := NULL;
v_finplan_trans_tab_in.delete;
--setting the variables for finplan_trans_rec
for v_top_task_rec in v_top_task_cur loop
fnd_file.put_line(fnd_file.output,
rpad('Project', 15, ' ') || ' ' ||
rpad('UOM', 15, ' ') || ' ' ||
rpad('Burd Cost', 25, ' ') || ' ' ||
rpad('Resource', 25, ' ') || ' ' ||
rpad('Task Name', 30, ' '));
fnd_file.put_line(fnd_file.output,
rpad('--------------', 15, ' ') || ' ' ||
rpad('-------------', 15, ' ') || ' ' ||
rpad('--------------------------', 25, ' ') || ' ' ||
rpad('-------------------------', 25, ' ') || ' ' ||
rpad('-------------------------------', 30, ' '));
v_err_qty := 0;
v_err_rec := 0;
v_err_cost := 0;
v_err_list_member_id := NULL;
v_task_id := NULL;
v_top_task_name := NULL;
--Getting the task id
Begin
select task_id
into v_task_id
from pa_tasks
where long_task_name = v_top_task_rec.top_task
and project_id = x_project_id;
exception
when no_data_found then
select task_id
into v_task_id
from pa_tasks
where task_number = 'ERROR'
and project_id = x_project_id;
v_top_task_name := 'ERROR';
when others then
select task_id
into v_task_id
from pa_tasks
where task_number = 'ERROR'
and project_id = x_project_id;
v_top_task_name := 'ERROR';
END;
select min(start_date), max(end_date)
into v_start_date, v_end_date
from xx_pa_bid_calc
where top_task = v_top_task_rec.top_task
and file_name = x_filename;
v_pm_task_ref := v_task_id;
v_top_task_name := v_top_task_rec.top_task;
fnd_file.put_line(fnd_file.output, 'Task Id: ' || v_task_id);
fnd_file.put_line(fnd_file.output, 'Task Name: ' || v_top_task_name);
fnd_file.put_line(fnd_file.output, 'Start Date: ' || v_start_date);
fnd_file.put_line(fnd_file.output, 'End Date: ' || v_end_date);
for v_plan_details_rec in v_plan_details_cur(v_top_task_name) LOOP
total_records := total_records + 1;
v_alias_name := v_plan_details_rec.planning_value;
v_resource_list_member_id := NULL;
v_err_list_member_id := NULL;
-- Getting the Resource Assignment.
Begin
select resource_list_member_id
into v_resource_list_member_id
from pa_resource_list_members
where resource_list_id = v_resource_list_id
and alias = v_plan_details_rec.planning_value
--and object_id = x_project_id
exception
when no_data_found then
select resource_list_member_id
into v_resource_list_member_id
from pa_resource_list_members
where resource_list_id = v_resource_list_id
and alias = 'Financial Elements'
--and object_id = x_project_id
v_alias_name := 'Financial Elements';
when others then
select resource_list_member_id
into v_resource_list_member_id
from pa_resource_list_members
where resource_list_id = v_resource_list_id
and alias = 'Financial Elements'
--and object_id = x_project_id
v_alias_name := 'Financial Elements';
END;
fnd_file.put_line(fnd_file.output,
rpad(x_project_id, 15, ' ') || ' ' ||
rpad(v_plan_details_rec.UOM, 15, ' ') || ' ' ||
rpad(v_plan_details_rec.total_amount, 25, ' ') || ' ' ||
rpad(v_alias_name, 25, ' ') || ' ' ||
rpad(v_plan_details_rec.top_task, 30, ' '));
if v_alias_name != 'Financial Elements' then
f := f + 1;
v_finplan_trans_tab_in(f).pm_product_code := 'MSPROJECT';
v_finplan_trans_tab_in(f).task_id := v_task_id;
v_finplan_trans_tab_in(f).pm_task_reference := v_task_id;
v_finplan_trans_tab_in(f).pm_res_asgmt_reference := NULL;
v_finplan_trans_tab_in(f).resource_alias := v_alias_name;
v_finplan_trans_tab_in(f).currency_code := 'USD';
v_finplan_trans_tab_in(f).unit_of_measure_code := v_plan_details_rec.UOM;
v_finplan_trans_tab_in(f).start_date := to_date('20-NOV-2008',
'DD-MON-YYYY'); --to_date(v_plan_details_rec.start_date,'MM/DD/YY');
v_finplan_trans_tab_in(f).end_date := to_date('30-NOV-2008',
'DD-MON-YYYY'); --to_date(v_plan_details_rec.end_date,'MM/DD/YY');
v_finplan_trans_tab_in(f).quantity := v_plan_details_rec.quantity;
v_finplan_trans_tab_in(f).raw_cost := v_plan_details_rec.total_amount;
v_finplan_trans_tab_in(f).burdened_cost := v_plan_details_rec.total_amount;
---v_finplan_trans_tab_in(f).revenue:=NULL;
v_finplan_trans_tab_in(f).resource_list_member_id := v_resource_list_member_id;
v_finplan_trans_tab_in(f).attribute_category := NULL;
v_finplan_trans_tab_in(f).attribute1 := NULL;
v_finplan_trans_tab_in(f).attribute1 := NULL;
v_finplan_trans_tab_in(f).attribute2 := NULL;
v_finplan_trans_tab_in(f).attribute3 := NULL;
v_finplan_trans_tab_in(f).attribute4 := NULL;
v_finplan_trans_tab_in(f).attribute5 := NULL;
v_finplan_trans_tab_in(f).attribute6 := NULL;
v_finplan_trans_tab_in(f).attribute7 := NULL;
v_finplan_trans_tab_in(f).attribute8 := NULL;
v_finplan_trans_tab_in(f).attribute9 := NULL;
v_finplan_trans_tab_in(f).attribute10 := NULL;
v_finplan_trans_tab_in(f).attribute11 := NULL;
v_finplan_trans_tab_in(f).attribute12 := NULL;
v_finplan_trans_tab_in(f).attribute13 := NULL;
v_finplan_trans_tab_in(f).attribute14 := NULL;
v_finplan_trans_tab_in(f).attribute15 := NULL;
v_finplan_trans_tab_in(f).attribute16 := NULL;
v_finplan_trans_tab_in(f).attribute17 := NULL;
v_finplan_trans_tab_in(f).attribute18 := NULL;
v_finplan_trans_tab_in(f).attribute19 := NULL;
v_finplan_trans_tab_in(f).attribute20 := NULL;
v_finplan_trans_tab_in(f).attribute21 := NULL;
v_finplan_trans_tab_in(f).attribute22 := NULL;
v_finplan_trans_tab_in(f).attribute23 := NULL;
v_finplan_trans_tab_in(f).attribute24 := NULL;
v_finplan_trans_tab_in(f).attribute25 := NULL;
v_finplan_trans_tab_in(f).attribute26 := NULL;
v_finplan_trans_tab_in(f).attribute27 := NULL;
v_finplan_trans_tab_in(f).attribute28 := NULL;
v_finplan_trans_tab_in(f).attribute29 := NULL;
v_finplan_trans_tab_in(f).attribute30 := NULL;
else
v_err_cost := v_err_cost +
v_plan_details_rec.total_amount;
v_err_qty := v_err_qty + v_plan_details_rec.quantity;
v_err_list_member_id := v_resource_list_member_id;
v_err_rec := v_err_rec + 1;
v_alias_name := 'Financial Elements';
v_err_uom := v_plan_details_rec.UOM;
end if;
END LOOP;
if v_err_rec > 0 then
f := f + 1;
select resource_list_member_id
into v_resource_list_member_id
from pa_resource_list_members
where resource_list_id = v_resource_list_id
and alias = 'Financial Elements';
v_finplan_trans_tab_in(f).pm_product_code := 'MSPROJECT';
v_finplan_trans_tab_in(f).task_id := v_task_id;
v_finplan_trans_tab_in(f).pm_task_reference := v_task_id;
v_finplan_trans_tab_in(f).pm_res_asgmt_reference := NULL;
v_finplan_trans_tab_in(f).resource_alias := v_alias_name;
v_finplan_trans_tab_in(f).currency_code := 'USD';
v_finplan_trans_tab_in(f).unit_of_measure_code := v_err_uom;
v_finplan_trans_tab_in(f).start_date := to_date('20-NOV-2008',
'DD-MON-YYYY'); --to_date(v_plan_details_rec.start_date,'MM/DD/YY');
v_finplan_trans_tab_in(f).end_date := to_date('27-NOV-2008',
'DD-MON-YYYY'); --to_date(v_plan_details_rec.end_date,'MM/DD/YY');
v_finplan_trans_tab_in(f).quantity := v_err_qty; --v_plan_details_rec.quantity;
v_finplan_trans_tab_in(f).raw_cost := v_err_cost; --v_plan_details_rec.total_amount;
v_finplan_trans_tab_in(f).burdened_cost := v_err_cost; --v_plan_details_rec.total_amount;
---v_finplan_trans_tab_in(f).revenue:=NULL;
v_finplan_trans_tab_in(f).resource_list_member_id := v_resource_list_member_id;
v_finplan_trans_tab_in(f).attribute_category := NULL;
v_finplan_trans_tab_in(f).attribute1 := NULL;
v_finplan_trans_tab_in(f).attribute1 := NULL;
v_finplan_trans_tab_in(f).attribute2 := NULL;
v_finplan_trans_tab_in(f).attribute3 := NULL;
v_finplan_trans_tab_in(f).attribute4 := NULL;
v_finplan_trans_tab_in(f).attribute5 := NULL;
v_finplan_trans_tab_in(f).attribute6 := NULL;
v_finplan_trans_tab_in(f).attribute7 := NULL;
v_finplan_trans_tab_in(f).attribute8 := NULL;
v_finplan_trans_tab_in(f).attribute9 := NULL;
v_finplan_trans_tab_in(f).attribute10 := NULL;
v_finplan_trans_tab_in(f).attribute11 := NULL;
v_finplan_trans_tab_in(f).attribute12 := NULL;
v_finplan_trans_tab_in(f).attribute13 := NULL;
v_finplan_trans_tab_in(f).attribute14 := NULL;
v_finplan_trans_tab_in(f).attribute15 := NULL;
v_finplan_trans_tab_in(f).attribute16 := NULL;
v_finplan_trans_tab_in(f).attribute17 := NULL;
v_finplan_trans_tab_in(f).attribute18 := NULL;
v_finplan_trans_tab_in(f).attribute19 := NULL;
v_finplan_trans_tab_in(f).attribute20 := NULL;
v_finplan_trans_tab_in(f).attribute21 := NULL;
v_finplan_trans_tab_in(f).attribute22 := NULL;
v_finplan_trans_tab_in(f).attribute23 := NULL;
v_finplan_trans_tab_in(f).attribute24 := NULL;
v_finplan_trans_tab_in(f).attribute25 := NULL;
v_finplan_trans_tab_in(f).attribute26 := NULL;
v_finplan_trans_tab_in(f).attribute27 := NULL;
v_finplan_trans_tab_in(f).attribute28 := NULL;
v_finplan_trans_tab_in(f).attribute29 := NULL;
v_finplan_trans_tab_in(f).attribute30 := NULL;
end if;
END LOOP;
--fnd_file.put_line(fnd_file.log, 'task_id:'||v_finplan_trans_tab_in(1).task_id);
pa_budget_pub.create_draft_finplan(p_api_version_number => 1.0 --v_api_version_number
p_commit => v_commit,
p_init_msg_list => v_init_msg_list,
p_pm_product_code => v_pm_product_code,
p_pm_finplan_reference => v_pm_finplan_reference,
p_pm_project_reference => v_pm_project_reference,
p_pa_project_id => v_pa_project_id,
p_fin_plan_type_id => v_fin_plan_type_id,
p_fin_plan_type_name => v_fin_plan_type_name,
p_version_type => v_version_type,
p_time_phased_code => v_time_phased_code,
p_resource_list_name => v_resource_list_name,
p_resource_list_id => v_resource_list_id,
p_fin_plan_level_code => v_fin_plan_level_code,
p_PLAN_IN_MULTI_CURR_FLAG => v_plan_in_multi_curr_flag,
p_budget_version_name => v_budget_version_name,
p_description => v_description,
p_change_reason_code => v_change_reason_code,
p_raw_cost_flag => v_raw_cost_flag,
p_burdened_cost_flag => v_burdened_cost_flag,
p_revenue_flag => v_revenue_flag,
p_cost_qty_flag => v_cost_qty_flag,
p_revenue_qty_flag => v_revenue_qty_flag,
p_all_qty_flag => v_all_qty_flag,
p_create_new_curr_working_flag => v_create_new_curr_working_flag,
p_replace_current_working_flag => v_replace_current_working_flag,
p_using_resource_lists_flag => v_using_resource_lists_flag,
p_finplan_trans_tab => v_finplan_trans_tab_in,
p_attribute_category => v_attribute_category,
p_attribute1 => v_attribute1,
p_attribute2 => v_attribute2,
p_attribute3 => v_attribute3,
p_attribute4 => v_attribute4,
p_attribute5 => v_attribute5,
p_attribute6 => v_attribute6,
p_attribute7 => v_attribute7,
p_attribute8 => v_attribute8,
p_attribute9 => v_attribute9,
p_attribute10 => v_attribute10,
p_attribute11 => v_attribute11,
p_attribute12 => v_attribute12,
p_attribute13 => v_attribute13,
p_attribute14 => v_attribute14,
p_attribute15 => v_attribute15,
x_finplan_version_id => v_finplan_version_id,
x_return_status => v_return_status,
x_msg_count => v_msg_count,
x_msg_data => v_msg_data);
fnd_file.put_line(fnd_file.log, 'Error Message:' || v_return_status);
fnd_file.put_line(fnd_file.log, 'Message Count:' || v_msg_count);
IF v_return_status = 'S' THEN
commit;
end if;
IF v_return_status != 'S' THEN
RAISE API_ERROR;
END IF;
EXCEPTION
WHEN API_ERROR THEN
FOR a IN 1 .. v_msg_count LOOP
pa_interface_utils_pub.get_messages(p_msg_data => v_msg_data,
p_data => v_data,
p_msg_index => a,
p_msg_count => v_msg_count,
p_msg_index_out => v_msg_index_out);
fnd_file.put_line(fnd_file.log,
'API Error Message DATA:' || ' ' ||
substr(v_data, 1, 500));
fnd_file.put_line(fnd_file.log,
'API Error Message MSG DATA:' || ' ' ||
substr(v_msg_data, 1, 200));
end loop;
WHEN OTHERS THEN
--fnd_msg_pub.initialize;
FOR a IN 1 .. v_msg_count LOOP
pa_interface_utils_pub.get_messages(p_encoded => 'F',
p_msg_data => v_msg_data,
p_data => v_data,
p_msg_count => v_msg_count,
p_msg_index_out => v_msg_index_out);
fnd_file.put_line(fnd_file.log, 'v data:' || substr(v_data, 1, 200));
fnd_file.put_line(fnd_file.log,
'vout msg data:' || substr(v_msg_data, 1, 80));
--o:=o+1;
end loop;
end;