Declare
l_api_version_number
NUMBER := 1.0;
l_init_msg_list
VARCHAR2 (1) := 'F';
l_commit
VARCHAR2 (1) := 'F';
l_debug_mode
VARCHAR2 (1) := 'N';
l_return_status
VARCHAR2 (1);
l_completion_date
DATE;
l_deliverable_id
NUMBER;
l_proj_source_reference
pa_proj_elements.pm_source_reference%TYPE := 'PGL_CONVERSION'; --pa_deliverables_v.pm_source_reference
l_action_in
pa_project_pub.action_in_tbl_type;
l_action_out
pa_project_pub.action_out_tbl_type;
l_pm_source_code
pa_proj_elements.pm_source_code%TYPE := NULL;
l_msg_count
NUMBER := 0;
l_msg_data
VARCHAR2 (4000);
v_msg_data
VARCHAR2(4000);
l_pgld_error_count
NUMBER := 0;
l_msg_dummy
VARCHAR2 (4000);
g_enter
VARCHAR2 (10) := CHR (10);
BEGIN
fnd_file.put_line (fnd_file.LOG,'nuan_deliverable_upd start');
l_deliverable_id := 4964900;--5103921;
pa_deliverables_v.proj_element_id
fnd_global.apps_initialize ( 120865--p_user_id
, 57461--l_resp_id
, 275--- l_appln_id
);
fnd_file.put_line (fnd_file.LOG,'l_deliverable_id:'||l_deliverable_id);
fnd_file.put_line (fnd_file.LOG,'pa_project_pub.update_deliverable start');
pa_project_pub.update_deliverable (
p_api_version
=> l_api_version_number
, p_init_msg_list
=> l_init_msg_list
, p_commit
=> l_commit
, p_debug_mode
=> l_debug_mode
, x_return_status
=> l_return_status
, p_deliverable_name
=> 'Upgrade Provider sss test1'--c_project_rec.name || l_prefix
--pa_deliverables_v.element_name
, p_deliverable_short_name
=> 'Training sss test1'--c_project_rec.short_name || l_prefix
--pa_deliverables_v.element_number
, p_deliverable_type_id
=> 10000--10020--v_deliverable_type_id_pgl
--pa_deliverables_v.dlvr_type_id
, p_deliverable_owner_id
=> 88733--c_project_rec.project_manager_id
--pa_deliverables_v.manager_person_id
, p_description
=> 'QTY 70 days of Upgrade Provider Training @ $2,000 ea = $140,000 sss test1'--c_project_rec.description
----pa_deliverables_v.manager_person_id
, p_status_code
=> 'DLVR_IN_PROGRESS'--'DLVR_COMPLETED'--NULL -- c_project_rec.status_code
--pa_deliverables_v.deliverable_system_status_code
, p_due_date
=> NULL--'23-MAR-2020'--l_completion_date
, p_completion_date
=> NULL--'23-MAR-2020'--NULL
, px_deliverable_id
=> l_deliverable_id
, p_pm_deliverable_reference
=> l_proj_source_reference
, p_project_id
=> 331512--334827--c_project_rec.project_id
--pa_deliverables_v.project_id
, p_action_in_tbl
=> l_action_in
, x_action_out_tbl
=> l_action_out
, p_pm_source_code
=> l_pm_source_code
, x_msg_count
=> l_msg_count
, x_msg_data
=> l_msg_data
);
commit;
fnd_file.put_line (fnd_file.LOG,'l_return_status:'||l_return_status);
fnd_file.put_line (fnd_file.LOG,'l_deliverable_id:'||l_deliverable_id);
IF l_return_status <> 'S' THEN
l_pgld_error_count := l_pgld_error_count + 1;
fnd_msg_pub.get (p_msg_index
=> 1
, p_encoded
=> 'F'
, p_data
=> l_msg_data
, p_msg_index_out
=> l_msg_dummy
);
l_msg_data := SUBSTR (l_msg_data, 1, 250);
fnd_file.put_line (fnd_file.LOG,'l_msg_data:'||l_msg_data);
v_msg_data := v_msg_data || g_enter || l_msg_data;
fnd_file.put_line (fnd_file.LOG,'v_msg_data:'||v_msg_data);
ELSE
fnd_file.put_line (fnd_file.LOG,'Deliverable updated successfully for deliverable_id:'||l_deliverable_id);
END IF;
END;