SQL & PL/SQL

So, I'm getting an error when I try to compile a procedure. Funny thing is, when I run this as an anonymous block, it works fine. But as soon as I try to make it a procedure, I get this error.




PROCEDURE APPS.XXCL_TT_UPDATE_TITLE2
On line: 1
PLS-00410: duplicate fields in RECORD,TABLE or argument list are not permitted




Any help would be greatly appriciated!!


create or replace PROCEDURE XXCL_TT_UPDATE_TITLE2(
p_relationship_id_in in number,
p_contact_title_in in varchar2,
xxcl_return_status out nocopy varchar2) AS

p_program_name varchar2(50) := 'XXCL_TT_CREATE_CONTACT';
p_email_address varchar2(50) := 'x@x.com';
p_program_record_id varchar2(10) := '0';
p_error_number number := 0;
ora_error_msg varchar2(1000);
ora_error_num number;
p_comments varchar2(100);
v_progress varchar2(100);
x_return_status VARCHAR2(2000);
x_msg_count NUMBER;
x_msg_data VARCHAR2(2000);
p_created_by_module varchar2(50) := 'TCA_V2_API';
xxcl_return_status number;

-- create relationship variables
p_org_contact_rec HZ_PARTY_CONTACT_V2PUB.ORG_CONTACT_REC_TYPE;
x_org_contact_id NUMBER;
x_party_rel_id NUMBER;
x_relationship_party_id NUMBER;
x_party_id number;
x_party_number number;
p_cont_object_version_number number;
p_party_object_version_number number;
p_rel_object_version_number number;
p_org_cont_id number;

title_update_failure exception;

BEGIN

Fnd_client_info.set_org_context(83);

p_org_contact_rec.job_title := p_contact_title_in;

select
max(oc.object_version_number) p_cont_object_version_number
,max(p.object_version_number) p_party_object_version_number
,max(r.object_version_number) p_rel_object_version_number
,max(oc.org_contact_id) p_org_cont_id
into
p_cont_object_version_number,
p_party_object_version_number,
p_rel_object_version_number,
p_org_cont_id
from
hz_parties p,
hz_relationships r,
hz_org_contacts oc
where
oc.party_relationship_id = r.relationship_id and
r.party_id = p.party_id and
p.party_id = p_relationship_id_in;

select distinct relationship_id into p_org_contact_rec.party_rel_rec.relationship_id from hz_relationships where party_id = p_relationship_id_in;
p_org_contact_rec.org_contact_id := p_org_cont_id;

apps.hz_party_contact_v2pub.update_org_contact(
'T',
p_org_contact_rec,
p_cont_object_version_number,
p_rel_object_version_number,
p_party_object_version_number,
x_return_status,
x_msg_count,
x_msg_data);

IF x_return_status != 'S' THEN
p_comments := 'Return status not S';
RAISE title_update_failure;
xxcl_return_status := 'F';
END IF;

p_comments := 'setting return status to S';
xxcl_return_status := 'S';
xxcust.xxcust_insert_log(p_program_name,null,p_comments);
commit;


EXCEPTION
WHEN title_update_failure THEN
p_comments := 'Title not updated';
apps.xxcust_insert_error(x_msg_count,x_msg_data, p_program_name ,p_comments, p_email_address, p_program_record_id);
xxcl_return_status := 'F';
rollback;
WHEN others THEN
ora_error_msg := substr(sqlerrm,1,900);
ora_error_num := sqlcode;
apps.xxcust_insert_error(ora_error_num,ora_error_msg, p_program_name ,p_comments, p_email_address, p_program_record_id);
xxcl_return_status := 'F';
rollback;

END XXCL_TT_UPDATE_TITLE2;