Oracle Projects

Question

Hi ,
I am trying to create a project using the api in R12
/* Formatted on 2010/06/16 12:27 (Formatter Plus v4.8.5) */
SET SERVEROUTPUT ON
CREATE OR REPLACE PACKAGE BODY xxas_int004_proj_pkg
AS
PROCEDURE proj_int_proc (
errbuf OUT NOCOPY VARCHAR2
, retcode OUT NOCOPY NUMBER
IS
--DECLARE
CURSOR lc_project_data
IS
SELECT *
FROM pa_projects_all
WHERE project_id = 5149;
--cursor to fetch mandatory quick entry fields
CURSOR lc_mand_quick_entry --(pi_project_id IN NUMBER)
IS
SELECT field_name
, limiting_value
FROM pa_project_copy_overrides
WHERE project_id = 5149 AND mandatory_flag = 'Y';
CURSOR lc_temp_location --(pi_template_id IN NUMBER)
IS
SELECT pl.location_id
, country_code
, region
, city
FROM pa_projects_all ppa
, pa_locations pl
WHERE ppa.project_id = 5149 AND ppa.location_id = pl.location_id
-- AND EXISTS (SELECT field_name
-- FROM pa_project_copy_overrides
-- WHERE project_id = 5149
-- AND mandatory_flag='Y'
-- AND field_name IN ('COUNTRY','CITY','STATE_REGION'))
-- fetch customer details from template for mandatory quick entry fields
CURSOR lc_temp_customer (pi_template_id IN NUMBER)
IS
SELECT ppc.customer_id
, ppc.project_relationship_code
FROM pa_projects_all ppa
, pa_project_customers ppc
WHERE ppa.project_id = 5149 AND ppa.project_id = ppc.project_id
-- AND EXISTS (SELECT field_name
-- FROM pa_project_copy_overrides
-- WHERE project_id = 5149
-- AND mandatory_flag='Y'
-- AND field_name IN ('CUSTOMER_NAME'))
--cursor to fetch key members from template
CURSOR lc_key_mem (pi_template_id IN NUMBER)
IS
SELECT project_role_type
, person_id
, start_date_active
, end_date_active
FROM pa_projects_all ppa
, pa_project_players ppp
WHERE ppa.project_id = ppp.project_id AND ppa.project_id = 5149
-- AND project_role_type IN ( SELECT limiting_value
-- FROM pa_project_copy_overrides
-- WHERE project_id = 5149
-- AND mandatory_flag='Y'
-- AND field_name LIKE 'KEY_MEMBER')
-- fetch priority details from template for mandatory quick entry fields
CURSOR lc_temp_priority (pi_template_id IN NUMBER)
IS
SELECT ppa.priority_code
FROM pa_projects_all ppa
WHERE ppa.project_id = 5149
-- AND EXISTS (SELECT field_name
-- FROM pa_project_copy_overrides
-- WHERE project_id = 5149
-- AND mandatory_flag='Y'
-- AND field_name IN ('PRIORITY_CODE'))
--fetch class categories for mandatory quick entry fields from template
CURSOR lc_class_categories (pi_project_id IN NUMBER)
IS
SELECT class_code
, class_category
FROM pa_project_classes
WHERE project_id = 5149
-- AND class_category IN ( SELECT limiting_value
-- FROM pa_project_copy_overrides
-- WHERE project_id = 5149
-- AND mandatory_flag='Y'
-- AND field_name = 'CLASSIFICATION')
-- Variables needed for API standard parameters
ln_api_version_number NUMBER := 1.0;
lv_commit VARCHAR2 (1) := 'F';
lv_return_status VARCHAR2 (1);
lv_init_msg_list VARCHAR2 (1) := 'F';
ln_cnt NUMBER := 0;
ln_msg_count NUMBER;
ln_msg_index_out NUMBER;
lv_msg_data VARCHAR2 (2000);
lv_data VARCHAR2 (4000);
lv_workflow_started VARCHAR2 (1) := 'Y';
lv_pm_product_code VARCHAR2 (10);
l_err_msg VARCHAR2 (2000);
l_responsibility_id NUMBER;
l_user_id NUMBER;
-- Predefined Composite data types
l_project_in pa_project_pub.project_in_rec_type;
l_project_out pa_project_pub.project_out_rec_type;
l_cust_in pa_project_pub.customer_in_rec_type;
l_key_members pa_project_pub.project_role_tbl_type;
l_org_roles pa_project_pub.project_role_tbl_type;
l_key_members_rec pa_project_pub.project_role_rec_type;
l_class_categories pa_project_pub.class_category_tbl_type;
l_class_categories_rec pa_project_pub.class_category_rec_type;
l_tasks_in_rec pa_project_pub.task_in_rec_type;
l_tasks_in pa_project_pub.task_in_tbl_type;
l_tasks_out_rec pa_project_pub.task_out_rec_type;
l_tasks_out pa_project_pub.task_out_tbl_type;
l_structure_in pa_project_pub.structure_in_rec_type;
l_ext_attr_tbl_in pa_project_pub.pa_ext_attr_table_type;
l_deliverables_in pa_project_pub.deliverable_in_tbl_type;
l_deliverable_actions_in pa_project_pub.action_in_tbl_type;
api_error EXCEPTION;
BEGIN
--Get Global Values
SELECT user_id
, responsibility_id
INTO l_user_id
, l_responsibility_id
FROM pa_user_resp_v
WHERE (user_name) = 'OPERATIONS'
AND responsibility_name = 'Projects, Vision Operations (USA)';
-- need to get from Apps
-- SET GLOBAL VALUES
pa_interface_utils_pub.set_global_info
(p_api_version_number => 1.0
, p_responsibility_id => l_responsibility_id
, p_user_id => l_user_id
, p_msg_count => ln_msg_count
, p_msg_data => lv_msg_data
, p_return_status => lv_return_status
fnd_file.put_line (fnd_file.LOG
, ' Set Global Variables lv_return_status '
|| lv_return_status
-- Set parameters to public API
l_project_in.created_from_project_id := 5149;
l_project_in.project_name := 'TEST PROJECT NAME';
l_project_in.pm_project_reference := '1004';
l_project_in.description := 'TEST PROJ';
l_project_in.project_status_code := '';
l_project_in.carrying_out_organization_id := 204;
l_project_in.start_date := '03-JAN-2009';
l_project_in.completion_date := TRUNC (SYSDATE) + 5;
-- l_project_in.attribute6 := lr_project_rec.cust_name;
-- l_project_in.long_name := 'TEST CREATE PROJECT';
l_project_in.pa_project_number := '1111';
l_project_in.expected_approval_date := TRUNC (SYSDATE);
l_project_in.actual_finish_date := '';
l_project_in.early_start_date := '';
l_project_in.early_finish_date := '';
l_project_in.late_start_date := '';
l_project_in.late_finish_date := '';
-- populate key members from template
-- can be defaulted from the Template, but not from a Project
ln_cnt := ln_cnt + 1;
-- l_person_id := ; -- need to get from Apps
-- l_project_role_type := 'PROJECT MANAGER';
l_key_members (ln_cnt).person_id := 29241;
l_key_members (ln_cnt).project_role_type := 'PROJECT MANAGER';
l_key_members (ln_cnt).project_role_meaning := 'PROJECT MANAGER';
l_key_members (ln_cnt).start_date := '14-JUN-2010';
-- l_key_members (ln_cnt).end_date
-- l_key_members.DELETE;
--Product related Data
-- lv_pm_product_code := 'PJT'; -- can be user defined
fnd_file.put_line (fnd_file.LOG, ' Start xxsgn_gqmproj_imp_proc');
pa_project_pub.init_project;
BEGIN
pa_project_pub.create_project
(p_api_version_number => ln_api_version_number
, p_commit => lv_commit
, p_init_msg_list => lv_init_msg_list
, p_msg_count => ln_msg_count
, p_msg_data => lv_msg_data
, p_return_status => lv_return_status
, p_workflow_started => lv_workflow_started
, p_pm_product_code => lv_pm_product_code
--, p_op_validate_flag => 'Y'
, p_project_in => l_project_in
, p_project_out => l_project_out
-- , p_customers_in => l_cust_in
, p_key_members => l_key_members
, p_class_categories => l_class_categories
, p_tasks_in => l_tasks_in
, p_tasks_out => l_tasks_out
-- , p_org_roles => l_org_roles
-- , p_structure_in => l_structure_in
-- , p_ext_attr_tbl_in => l_ext_attr_tbl_in
-- , p_deliverables_in => l_deliverables_in
-- , p_deliverable_actions_in => l_deliverable_actions_in
COMMIT;
fnd_file.put_line (fnd_file.LOG
, ' Create Project lv_return_status '
|| lv_return_status
IF lv_return_status != 'S'
THEN
RAISE api_error;
fnd_file.put_line (fnd_file.LOG
, ' ERROR Status of API for project '
END IF;
IF ln_msg_count >= 1
THEN
FOR i IN 1 .. ln_msg_count
LOOP
pa_interface_utils_pub.get_messages
(p_msg_data => lv_msg_data
, p_encoded => 'F'
, p_data => lv_data
, p_msg_count => ln_msg_count
, p_msg_index => ln_msg_count
, p_msg_index_out => ln_msg_index_out
fnd_file.put_line (fnd_file.LOG
, 'error message for project '
--|| lr_project_rec.project_number
-- || ':'
|| lv_data
|| ' Status '
|| lv_return_status
END LOOP;
ROLLBACK;
END IF;
EXCEPTION
WHEN OTHERS
THEN
fnd_file.put_line (fnd_file.LOG, 'In API');
l_err_msg := SUBSTR (SQLERRM, 1, 210);
fnd_file.put_line (fnd_file.LOG, l_err_msg);
END;
EXCEPTION
WHEN OTHERS
THEN
fnd_file.put_line (fnd_file.LOG, 'In exception');
l_err_msg := SUBSTR (SQLERRM, 1, 210);
fnd_file.put_line (fnd_file.LOG, l_err_msg);
END proj_int_proc;
END xxas_int004_proj_pkg;
getting error as follows
Set Global Variables lv_return_status S
Start xxsgn_gqmproj_imp_proc
p_project_id = 5211
p_opportunity_value =
p_opp_value_currency_code =
p_expected_approval_date = 16-JUN-10
p_opportunity_value is null
Create Project lv_return_status E
error message for project You have submitted invalid parameters to this process, preventing its successful completion.
Please contact your system administrator. Status E
pls resolve.
Rgds,
Madhurita
Edited by: user1120005 on Jun 16, 2010 2:23 AM

Answer 1

You need to pass a valid value to the PM_PRODUCT_CODE, which should be a valid value in the system.
Hope this helps!
Sathish Raju
www.projectsaccounting.com