set serveroutput on;
declare
x_org_contact_id NUMBER;
x_party_rel_id NUMBER;
x_org_party_id NUMBER;
x_org_party_number VARCHAR2(2000);
x_return_status VARCHAR2 (10);
x_msg_count NUMBER;
x_msg_data VARCHAR2 (20000);
l_msg_index_out NUMBER;
l_error_message VARCHAR2 (20000) := NULL;
p_org_contact_rec Hz_Party_Contact_V2pub.org_contact_rec_type;
BEGIN
p_org_contact_rec.party_site_id := 8787727;
p_org_contact_rec.party_rel_rec.subject_id := 10572128;
p_org_contact_rec.created_by_module := 'TCA_V2_API';
p_org_contact_rec.party_rel_rec.subject_type := 'PERSON';
p_org_contact_rec.party_rel_rec.subject_table_name := 'HZ_PARTIES';
p_org_contact_rec.party_rel_rec.object_id := 10122562;
p_org_contact_rec.party_rel_rec.object_type := 'ORGANIZATION';
p_org_contact_rec.party_rel_rec.object_table_name := 'HZ_PARTIES';
p_org_contact_rec.party_rel_rec.relationship_code := 'CONTACT_OF';
p_org_contact_rec.party_rel_rec.relationship_type := 'CONTACT';
p_org_contact_rec.party_rel_rec.status := 'A';
p_org_contact_rec.party_rel_rec.start_date := SYSDATE;
apps.Fnd_Msg_Pub.delete_msg (NULL);
apps.Fnd_Msg_Pub.initialize ();
Hz_Party_Contact_V2pub.create_org_contact
(p_init_msg_list => Fnd_Api.g_true,
p_org_contact_rec => p_org_contact_rec,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_org_contact_id => x_org_contact_id,
x_party_rel_id => x_party_rel_id,
x_party_id => x_org_party_id,
x_party_number => x_org_party_number
);
IF x_return_status != 'S'
THEN
l_error_message := NULL;
DBMS_OUTPUT.put_line ('Creation of Org Contact got failed:'||x_msg_data);
FOR i IN 1 .. x_msg_count
LOOP
apps.Fnd_Msg_Pub.get (p_msg_index => i,
p_encoded => Fnd_Api.g_false,
p_data => x_msg_data,
p_msg_index_out => l_msg_index_out
);
IF l_error_message IS NULL
THEN
l_error_message := SUBSTR (x_msg_data, 1, 250);
ELSE
l_error_message :=
l_error_message || ' /' || SUBSTR (x_msg_data, 1, 250);
END IF;
DBMS_OUTPUT.put_line ('Error: '||l_error_message);
END LOOP;
else
DBMS_OUTPUT.PUT_LINE('Creation of Org Contat is Successful ');
DBMS_OUTPUT.PUT_LINE('Output information ....');
DBMS_OUTPUT.PUT_LINE('x_org_contact_id = '||x_org_contact_id);
DBMS_OUTPUT.PUT_LINE('x_party_rel_id = '||x_party_rel_id);
DBMS_OUTPUT.PUT_LINE('x_org_party_id = '||x_org_party_id);
DBMS_OUTPUT.PUT_LINE('x_org_party_number = '||x_org_party_number);
END IF;
EXCEPTION
WHEN OTHERS
THEN
x_party_rel_id := NULL;
x_org_party_id := NULL;
END;
/*
Output information ....
x_org_contact_id = 5969901
x_party_rel_id = 6047470
x_org_party_id = 10572137
x_org_party_number = 4934314
*/