Sample Script API Hz_Party_Contact_V2pub.create_org_contact

  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
*/