Update R12 Supplier Contact details Using API

DECLARE
l_contact_point_rec HZ_CONTACT_POINT_V2PUB.contact_point_rec_type;
l_email_rec HZ_CONTACT_POINT_V2PUB.email_rec_type;
l_contact_point_id NUMBER;
x_return_status VARCHAR2(2000);
x_msg_count NUMBER;
x_msg_data VARCHAR2(2000);
BEGIN
l_contact_point_rec.owner_table_id := 226285;
l_contact_point_rec.contact_point_type :='EMAIL';
l_contact_point_rec.owner_table_name := 'HZ_PARTIES';
l_contact_point_rec.created_by_module :='POS_SUPPLIER_MGMT';
l_email_rec.email_address := 'aaaa@bbbbb.ae' ;
HZ_CONTACT_POINT_V2PUB.create_email_contact_point
(
p_contact_point_rec => l_contact_point_rec,
p_email_rec => l_email_rec,
x_contact_point_id => l_contact_point_id,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
IF (x_return_status <> 'S') THEN
dbms_output.put_line('Encountered ERROR in supplier contact !!!');
dbms_output.put_line('--------------------------------------');
dbms_output.put_line(x_msg_data);
IF x_msg_count > 1 THEN
FOR i IN 1..x_msg_count
LOOP
dbms_output.put_line(SUBSTR(FND_MSG_PUB.Get( p_encoded =>
FND_API.G_FALSE ),1,255));
END LOOP;
END IF;
ELSE
dbms_output.put_line('Supplier Contact updated !!!!!!'||l_contact_point_id)
;
END IF;
END;