What are privilage for user is required to create project api

Question

Hi
I have to create project using project template I have given info manual to create project manually.
But key member should not be null....error occurs
I have given person I'd and person role type as project manager.
Please help me in this regard.

Answer 1

this is the code i have used ...
declare
v_responsibility_id NUMBER; --- PA Supervisor responsibility id
v_user_id NUMBER;
--deriving global parameters-
-- Variables needed for API standard parameters
v_api_version_number NUMBER := 1.0;
v_commit VARCHAR2(1) := 'F';
v_return_status VARCHAR2(1);
v_init_msg_list VARCHAR2(1) := 'F';
v_msg_count NUMBER;
v_msg_index_out NUMBER;
v_msg_data VARCHAR2(2000);
v_data VARCHAR2(2000);
v_workflow_started VARCHAR2(1) := 'Y';
v_pm_product_code VARCHAR2(10);
---variables for catching errors---
v_error_flag number:=0;
-- Predefined Composite data types
v_project_in PA_PROJECT_PUB.PROJECT_IN_REC_TYPE;
v_project_out PA_PROJECT_PUB.PROJECT_OUT_REC_TYPE;
v_key_members PA_PROJECT_PUB.PROJECT_ROLE_TBL_TYPE;
v_key_member_rec pa_project_pub.project_role_rec_type;
v_class_categories PA_PROJECT_PUB.CLASS_CATEGORY_TBL_TYPE;
v_tasks_in_rec PA_PROJECT_PUB.TASK_IN_REC_TYPE;
v_tasks_in PA_PROJECT_PUB.TASK_IN_TBL_TYPE;
v_tasks_out_rec PA_PROJECT_PUB.TASK_OUT_REC_TYPE;
v_tasks_out PA_PROJECT_PUB.TASK_OUT_TBL_TYPE;
v_CREATED_FROM_PROJECT_ID varchar2(20);
v_CARRYING_OUT_ORGANIZATION_ID varchar2(20);
v_person_id NUMBER;
v_project_role_type VARCHAR2(20);
API_ERROR EXCEPTION;
v_a NUMBER;
--cursor for project in data
/*CURSOR cur_project_in_data IS SELECT * FROM XXPA_PROJECT_IN_STG;
--cursor for task data
CURSOR cur_task_in_data IS SELECT * FROM XXPA_TASK_IN_STG;*/
------------------------Cursors used for validations----------------------------------
--cursor for product code used for validation
cursor cprc is select distinct PROJECT_RELATIONSHIP_CODE from PA_PROJECT_CUSTOMERS;
--cursor for distribution rule-
cursor cdr is select DISTRIBUTION_RULE from PA_DISTRIBUTION_RULES;
--cursor for project status code
cursor cpsc is SELECT PROJECT_STATUS_CODE, PROJECT_STATUS_NAME FROM PA_PROJECT_STATUSES WHERE STATUS_TYPE = 'PROJECT';
--cursor for template/created from project id
cursor ccpid is select project_id from pa_projects where template_flag='Y'; */
BEGIN
begin
mo_global.set_policy_context('S',85);
mo_global.init('PA');
end;
fnd_global.apps_initialize ( 50321,56533,275);
select user_id, responsibility_id into v_user_id, v_responsibility_id
from PA_USER_RESP_V
where user_name like 'SVENKAT'
and responsibility_name like'GB Projects Implementation Superuser';
-- --Fnd_global.apps_initialize(user_id,resp_id, resp_appl_id);
-- Fnd_global.apps_initialize(v_user_id,v_responsibility_id,275);
-- -------calling global parameters---
pa_interface_utils_pub.set_global_info
p_api_version_number =>v_api_version_number,
p_responsibility_id =>v_responsibility_id,
p_user_id =>v_user_id,
p_msg_count =>v_msg_count,
p_msg_data =>v_msg_data,
p_return_status =>v_return_status
dbms_output.put_line ('Set Global status ->' || v_return_status);
----Cursor for PRODUCT RELATED DATA-----------
--FOR REC IN cur_project_in_data LOOP
-----PASSING VALUES TO THE COMPOSITE DATA TYPE(PROJECT_IN_REC_TYPE)-------
----retrieving product code-----
select lookup_code into v_pm_product_code
from pa_lookups
where lookup_type = 'PM_PRODUCT_CODE'
and meaning = 'Oracle Project Manufacturing';
-----retrieving and validating created from project id----
BEGIN
select project_id
into v_CREATED_FROM_PROJECT_ID
from pa_projects_all
where name='GB_NRE_Template';--rec.created_from_project_name;
EXCEPTION
when others then
null;
/*O_Retcode := '1';
O_Errbuf :='Incorrent CREATED_FROM_PROJECT_NAME';*/
--Fnd_File.Put_Line (Fnd_File.LOG, O_Errbuf);
/*UPDATE XXPA.XXPA_PROJECT_IN_STG
SET ERROR_FLAG ='1' ,last_updation_date='sysdate' where created_from_project_name = rec.CREATED_FROM_PROJECT_NAME;*/
END;
-----retrieving --  validating carrying out organization id-----
BEGIN
select distinct(CARRYING_OUT_ORGANIZATION_ID)
into v_CARRYING_OUT_ORGANIZATION_ID
from pa_projects_prm_v
where CARRYING_OUT_ORGANIZATION_NAME='IT Project Organization';--rec.carrying_out_organization_name;
EXCEPTION
when others then
dbms_output.put_line ('error in carrying org');
/*O_Retcode := '1';
O_Errbuf :='Incorrent Carrying Out Organization name';
Fnd_File.Put_Line (Fnd_File.LOG, O_Errbuf);*/
/*UPDATE XXPA.XXPA_PROJECT_IN_STG
SET ERROR_FLAG ='1' ,last_updation_date='sysdate' where carrying_out_organization_name = rec.carrying_out_organization_name;*/
END ;
v_project_in.pm_project_reference :='GB_NRE_Template'; --rec.segment1;
v_project_in.project_name :='VENKAT_TEST'; --rec.PROJECT_NAME;
v_project_in.created_from_project_id := v_CREATED_FROM_PROJECT_ID;
v_project_in.carrying_out_organization_id := 85;
v_project_in.project_status_code :='UNAPPROVED'; --rec.PROJECT_STATUS_CODE;
v_project_in.description := 'interface';--rec.PROJECT_DESCRIPTION;
v_project_in.start_date := sysdate;--rec.PROJECT_START_DATE;
v_project_in.completion_date := sysdate + 30; --rec.PROJECT_COMPLETION_DATE;
v_project_in.distribution_rule := 'EVENT/EVENT';--rec.DISTRIBUTION_RULE;
--v_project_in.project_relationship_code := ;--rec.PROJECT_RELATIONSHIP_CODE;
-------------------------Validation of incoming project data--------------------------------
v_error_flag := 1;
--project relationship code validation
/*BEGIN
--for prc in cprc
--loop
if (rec.PROJECT_RELATIONSHIP_CODE=prc.PROJECT_RELATIONSHIP_CODE) or (rec.PROJECT_RELATIONSHIP_CODE is null)--can be overridden from template
then
v_error_flag :=0;
else null;
end if;
--end loop;
END; */
/*--project distribution rule validation
BEGIN
for dr in cdr
loop
if (rec.DISTRIBUTION_RULE=dr.DISTRIBUTION_RULE) or (rec.DISTRIBUTION_RULE is null) --null since the value can be taken from template too
then
v_error_flag :=0;
else null;
end if;
end loop;
END; */
--m := 1;
   -- l_person_id := 38506;--v_personid;                      -- need to get from Apps
   -- l_project_role_type := 'Project Manager';
        /* v_key_member_rec.person_id := 83369;--v_personid;
          v_key_member_rec.project_role_type :='PROJECT MANAGER';
          v_key_member_rec.project_role_meaning := 'Project Manager';
          v_key_members(1) := v_key_member_rec;*/
           v_key_members(1).person_id := 83369;
            v_key_members(1).project_role_type :='PROJECT MANAGER';
            dbms_output.put_line('persion id for key member '||v_key_members(1).person_id);
--project status code validation
/*BEGIN
for sc in cpsc
loop
if (rec.PROJECT_STATUS_CODE=sc.PROJECT_STATUS_CODE) or (rec.PROJECT_STATUS_CODE is null)-- null since the value can be taken from template too
then
v_error_flag :=0;
else null;
end if;
end loop;
END;*/
dbms_output.put_line ('Error at PROJECT_STATUS_CODE>' ||v_error_flag);
/*validation logic for project start date
BEGIN
if TRUNC(rec.PROJECT_START_DATE) >= TRUNC(rec.PROJECT_COMPLETION_DATE)
THEN
v_error_flag := 1;
O_Retcode := '1';
O_Errbuf :='Project start date cannnot be greater than completion date';
Fnd_File.Put_Line (Fnd_File.LOG, O_Errbuf);
END IF;
END;
validation logic for project completion date
BEGIN
if (TRUNC(rec.PROJECT_COMPLETION_DATE)<=TRUNC(rec.PROJECT_START_DATE))
then
if ( rec.PROJECT_STATUS_CODE='CLOSED' and rec.PROJECT_COMPLETION_DATE>sysdate)
THEN
v_error_flag := 1;
O_Retcode := '1';
O_Errbuf :='completion date cannot be greater than sysdate for closed projects';
Fnd_File.Put_Line (Fnd_File.LOG, O_Errbuf);
END IF;
v_error_flag := 1;
O_Retcode := '1';
O_Errbuf :='Project closed date cannnot be less than start date';
end if;
END;*/
--------Update staging table for the error records--------
/*BEGIN
if v_error_flag =1
then
O_Retcode := '1';
O_Errbuf :='Incorrent project relationship code';
Fnd_File.Put_Line (Fnd_File.LOG, O_Errbuf);
UPDATE XXPA.XXPA_PROJECT_IN_STG
SET ERROR_FLAG ='1' ,last_updation_date='sysdate' where PROJECT_RELATIONSHIP_CODE = rec.PROJECT_RELATIONSHIP_CODE;
end if;
END;*/
-----------------------End of validation of incoming project data----------------------------------
---------------Project Task DATA-----------------
v_a:=1;
--FOR tsk IN cur_task_in_data LOOP
v_tasks_in_rec.pm_task_reference :='Labor';--tsk.task_reference ;
v_tasks_in_rec.task_name :='Labor';--tsk.task_name;
--v_tasks_in_rec.pm_parent_task_reference :=tsk.parent_task_reference ;
v_tasks_in_rec.task_start_date := sysdate;--tsk.task_start_date ;
v_tasks_in_rec.task_completion_date :=sysdate + 30;--tsk.task_completion_date ;
v_tasks_in(v_a) := v_tasks_in_rec;
--v_a:=v_a+1;
--end loop;
---------------end of task details------------------
--INIT_CREATE_PROJECT
pa_project_pub.init_project;
---------------------CREATE_PROJECT--------------------------
pa_project_pub.create_project(
p_api_version_number=> v_api_version_number,
p_commit => v_commit,
p_init_msg_list => v_init_msg_list,
p_msg_count => v_msg_count,
p_msg_data => v_msg_data,
p_return_status => v_return_status,
p_workflow_started => v_workflow_started,
p_pm_product_code => v_pm_product_code,
p_project_in => v_project_in,
p_project_out => v_project_out,
p_key_members => v_key_members,
p_class_categories => v_class_categories,
p_tasks_in => v_tasks_in,
p_tasks_out => v_tasks_out);
if v_return_status = 'S'
then
/*UPDATE XXPA.XXPA_PROJECT_IN_STG
SET INTERFACE_STATUS ='Success' where segment1 = v_project_out.pa_project_number; ---P->pending & S-> Success*/
dbms_output.put_line('New Project Id: ' || v_project_out.pa_project_id);
dbms_output.put_line('New Project Number: ' || v_project_out.pa_project_number);
else
/*UPDATE XXPA.XXPA_PROJECT_IN_STG
SET INTERFACE_STATUS ='Pending' where segment1 = v_project_out.pa_project_number;*/
raise API_ERROR;
end if;
--END LOOP;
Commit;
------Handling Exception--------
EXCEPTION
WHEN api_error THEN
dbms_output.put_line('An error occured during project creation');
IF (v_msg_count > 0 ) THEN
FOR i IN 1..v_msg_count LOOP
apps.PA_INTERFACE_UTILS_PUB.get_messages(
p_msg_count => v_msg_count,
p_encoded => 'F',
p_msg_index => i,
p_msg_data => v_msg_data,
p_data => v_data,
p_msg_index_out => v_msg_index_out);
dbms_output.put_line('Error message v_data ->'||v_data);
dbms_output.put_line('Error message v_msg_data ->'||v_msg_data);
dbms_output.put_line('Error message v_msg_index_out ->'||v_msg_index_out);
dbms_output.put_line('Error message p_msg_index ->'||i);
APPS.fnd_file.put_line(APPS.FND_FILE.LOG,v_data);
END LOOP;
END IF;
WHEN OTHERS THEN
dbms_output.put_line('An error occured during conversion, SQLCODE ->'|| SQLERRM);
IF (v_msg_count >=1 ) THEN
FOR i IN 1..v_msg_count LOOP
PA_INTERFACE_UTILS_PUB.get_messages(
p_msg_count => v_msg_count,
p_msg_index => i,
p_encoded => 'F',
p_msg_data => v_msg_data,
p_data => v_data,
p_msg_index_out => v_msg_index_out);
dbms_output.put_line('Error message ->'||v_data);
APPS.fnd_file.put_line(APPS.FND_FILE.LOG,v_data);
END LOOP;
END IF;
end; --end procedure
error .....
Set Global status ->S
persion id for key member 83369
Error at PROJECT_STATUS_CODE>1
An error occured during project creation
Error message v_data ->Key Member is a mandatory Quick Entry field. Values must be passed for project_role_type and person_ID. (PROJECT=GB_NRE_Template)
Error message v_msg_data ->PA