Search 800 + Posts
Mar 29, 2013
Source Code to create customer contact with TCA api
Code to create customer contact with TCA api
CREATE OR REPLACE PACKAGE BODY TCA001 AS
PROCEDURE CUST_CONTACT_RELATIONSHIP --(p_party_parent_id hz_parties.party_id%TYPE,
IS
p_org_contact_rec HZ_PARTY_CONTACT_V2PUB.ORG_CONTACT_REC_TYPE;
x_org_contact_id NUMBER;
x_party_rel_id NUMBER;
x_party_id NUMBER;
x_party_number VARCHAR2(2000);
x_return_status VARCHAR2(2000);
x_msg_count NUMBER;
x_msg_data VARCHAR2(2000);
BEGIN
p_org_contact_rec.decision_maker_flag := 'Y';
p_org_contact_rec.created_by_module := 'HZ_CPUI';--p_cust_rec.created_by_module;
p_org_contact_rec.party_rel_rec.subject_id := 324217;--p_party_id;
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 := 324212;--;p_party_parent_id ;
p_org_contact_rec.party_rel_rec.object_type := 'PERSON';
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.start_date := SYSDATE;
hz_party_contact_v2pub.create_org_contact(
'T',
p_org_contact_rec,
x_org_contact_id,
x_party_rel_id,
x_party_id,
x_party_number,
x_return_status,
x_msg_count,
x_msg_data);
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('p_cust_rec.error_message = '||x_msg_data);
END LOOP;
END IF;
END CUST_CONTACT_RELATIONSHIP;
END TCA001
Subscribe to:
Post Comments (Atom)
NOT WORKING
ReplyDeleteNOT EXECUTING
ReplyDelete