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

2 comments: