Problem in creating SR from Projects

Question

Hi,
I am trying to call API cs_servicerequest_pub.Create_ServiceRequest to create Service Request from Oracle Projects, But getting error, Can anybody tell me what m i missing to pass in the api.
Below is the code, which I am using to create SR.
declare
lx_return_status VARCHAR2(1);
lx_msg_count NUMBER;
lx_msg_data VARCHAR2(2000);
lx_request_id NUMBER;
lx_request_number VARCHAR2(50);
lx_interaction_id NUMBER;
lx_workflow_process_id NUMBER;
l_sr_rec CS_ServiceRequest_PUB.service_request_rec_type;
l_notes_table CS_SERVICEREQUEST_PUB.notes_table;
l_contacts_tab CS_SERVICEREQUEST_PUB.contacts_table;
begin
l_sr_rec.summary := 'Testing SR';
l_sr_rec.request_date := sysdate;
l_sr_rec.type_id := 14002; NORDIC Depot Repair -1
l_sr_rec.status_id := 1; open2
l_sr_rec.severity_id := 2; medium3
l_sr_rec.verify_cp_flag := 'N';
l_sr_rec.problem_code := 'Testing SR11'; --4
l_sr_rec.caller_type := 'ORGANIZATION'; --'PERSON'; --5
l_sr_rec.customer_id := 593243; --636125;
--l_contacts_tab.CONTACT_TYPE := 'CUSTOMER';
cs_servicerequest_pub.Create_ServiceRequest(p_api_version => 2.0,
p_init_msg_list => FND_API.G_TRUE,
p_commit => FND_API.G_TRUE,
x_return_status => lx_return_status,
x_msg_count => lx_msg_count,
x_msg_data => lx_msg_data,
p_resp_appl_id => null,
p_resp_id => null,
p_user_id => null,
p_login_id => null,
p_request_id => NULL,
p_request_number => NULL,
p_service_request_rec => l_sr_rec,
p_notes => l_notes_table,
p_contacts => l_contacts_tab,
x_request_id => lx_request_id,
x_request_number => lx_request_number,
x_interaction_id => lx_interaction_id,
x_workflow_process_id => lx_workflow_process_id);
IF (lx_return_status = FND_API.G_RET_STS_SUCCESS) then
dbms_output.put_line('Service Request Created : ' || lx_request_number);
end if;
IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) then
dbms_output.put_line ('ERROR');
END IF;
end;
------------------------------------------------------------------------------------------------------------------------

Answer 1

First time when I created SR, I missed out giving Project Number, Now when I gave that number, it is giving me error, and I guess errors are so many in numbers, that not able to print them also.
Below is the code which I am using ..(I have commented out the problem_code, because this is not a mandatory paramter on front screen while creating SR)
declare
lx_return_status VARCHAR2(1);
lx_msg_count NUMBER;
lx_msg_data VARCHAR2(2000);
lx_request_id NUMBER;
lx_request_number VARCHAR2(50);
lx_interaction_id NUMBER;
lx_workflow_process_id NUMBER;
lx_msg_index_out NUMBER;
v_msg varchar2(240);
l_sr_rec CS_ServiceRequest_PUB.service_request_rec_type;
l_notes_table CS_SERVICEREQUEST_PUB.notes_table;
l_contacts_tab CS_SERVICEREQUEST_PUB.contacts_table;
begin
l_sr_rec.summary := 'Testing SR from Projects';
l_sr_rec.request_date := sysdate;
l_sr_rec.type_id := 14002; --NORDIC Depot Repair
l_sr_rec.status_id := 1; --open
l_sr_rec.severity_id := 2; --medium
l_sr_rec.verify_cp_flag := 'N';
-- l_sr_rec.problem_code := ''; --4
l_sr_rec.caller_type := 'ORGANIZATION'; --'PERSON';
l_sr_rec.customer_id := 636125;
l_sr_rec.sr_creation_channel := 'PHONE';
l_sr_rec.project_number := '81';
--l_contacts_tab.CONTACT_TYPE := 'CUSTOMER';
cs_servicerequest_pub.Create_ServiceRequest(p_api_version => 2.0,
p_init_msg_list => FND_API.G_TRUE,
p_commit => FND_API.G_TRUE,
x_return_status => lx_return_status,
x_msg_count => lx_msg_count,
x_msg_data => lx_msg_data,
p_resp_appl_id => null,
p_resp_id => null,
p_user_id => null,
p_login_id => null,
p_request_id => NULL,
p_request_number => NULL,
p_service_request_rec => l_sr_rec,
p_notes => l_notes_table,
p_contacts => l_contacts_tab,
x_request_id => lx_request_id,
x_request_number => lx_request_number,
x_interaction_id => lx_interaction_id,
x_workflow_process_id => lx_workflow_process_id);
IF (lx_return_status = FND_API.G_RET_STS_SUCCESS) then
dbms_output.put_line('Service Request Created : ' || lx_request_number);
end if;
IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) then
IF (FND_MSG_PUB.Count_Msg > 1) THEN
FOR j in 1 .. FND_MSG_PUB.Count_Msg LOOP
FND_MSG_PUB.Get(p_msg_index => j,
p_encoded => 'F',
p_data => lx_msg_data,
p_msg_index_out => lx_msg_index_out);
dbms_output.put_line(lx_msg_data);
IF lx_msg_data IS NOT NULL THEN
v_msg := lx_msg_data;
END IF;
END LOOP;
ELSE
FND_MSG_PUB.Get(p_msg_index => 1,
p_encoded => 'F',
p_data => lx_msg_data,
p_msg_index_out => lx_msg_index_out);
dbms_output.put_line(lx_msg_data);
dbms_output.put_line(lx_msg_index_out);
v_msg := lx_msg_data;
END IF;
END IF;
COMMIT;
end;
.......................................................................................................................