Loading

Thursday, March 10, 2011

API to create Group in TCA R12 (HZ_PARTY_V2PUB.CREATE_GROUP)


API : HZ_PARTY_V2PUB.CREATE_GROUP
TEST INSTANCE: R12.1.3
DETAILS OF THE ROUTINE:
This API is used to create a group. The API creates a record in the HZ_PARTIES table with party type ‘GROUP’. The HZ_PARTIES table holds the basic information about the party. There is no profile information for a Group party unlike an Organization or Person party.
SCRIPT:

SET SERVEROUTPUT ON;
DECLARE
p_group_rec     HZ_PARTY_V2PUB.GROUP_REC_TYPE;
x_party_id      NUMBER;
x_party_number  VARCHAR2(2000);
x_return_status VARCHAR2(2000);
x_msg_count     NUMBER;
x_msg_data      VARCHAR2(2000);
BEGIN
-- Setting the Context --
mo_global.init('AR');
fnd_global.apps_initialize ( user_id      => 1318
                            ,resp_id      => 50559
                            ,resp_appl_id => 222);
mo_global.set_policy_context('S',204);
fnd_global.set_nls_context('AMERICAN');

-- Initializing the Mandatory API parameters
P_group_rec.group_name        := 'TEAM Group';
P_group_rec.group_type        := 'NGO';
p_group_rec.created_by_module := 'BO_API';

DBMS_OUTPUT.PUT_LINE('Calling the API hz_party_v2pub.create_group');

hz_party_v2pub.create_group
            (
              p_init_msg_list    => FND_API.G_TRUE,
              p_group_rec        => p_group_rec,
              x_party_id         => x_party_id,
              x_party_number     => x_party_number,
              x_return_status    => x_return_status,
              x_msg_count        => x_msg_count,
              x_msg_data         => x_msg_data
                  );


IF x_return_status = fnd_api.g_ret_sts_success THEN
    COMMIT;
    DBMS_OUTPUT.PUT_LINE('Creation of Party of Type Group is Successful ');
    DBMS_OUTPUT.PUT_LINE('Output information ....');
    DBMS_OUTPUT.PUT_LINE('Party Id = '||TO_CHAR(x_party_id));
    DBMS_OUTPUT.PUT_LINE('Party Number = '||x_party_number);  
ELSE
    DBMS_OUTPUT.put_line ('Creation of Party of Type Group failed:'||x_msg_data);
    ROLLBACK;
    FOR i IN 1 .. x_msg_count
    LOOP
      x_msg_data := FND_msg_pub.get( p_msg_index => i, p_encoded => 'F');
      dbms_output.put_line( i|| ') '|| x_msg_data);
    END LOOP;
END IF;
DBMS_OUTPUT.PUT_LINE('Completion of API hz_party_v2pub.create_group');
END;
/

0 Responses to “API to create Group in TCA R12 (HZ_PARTY_V2PUB.CREATE_GROUP)”

Post a Comment

Disclaimer

The ideas, thoughts and concepts expressed here are my own. They, in no way reflect those of my employer or any other organization/client that I am associated. The articles presented doesn't imply to any particular organization or client and are meant only for knowledge Sharing purpose. The articles can't be reproduced or copied without the Owner's knowledge or permission.