Tuesday, March 22, 2011
API to Create a Customer Profile TCA R12 (HZ_CUSTOMER_PROFILE_V2PUB.CREATE_CUSTOMER_PROFILE)
DESCRIPTION: This routine is used to create a Customer Profile. The API creates a record in the HZ_CUSTOMER_PROFILES table. The profile can be created at party level, at customer level, or at customer site level. It also creates profile amounts based on the value passed for p_create_profile_amt. If the credit_hold parameter value is Y, then records are inserted into OE_HOLD_SOURCES and OE_ORDER_HOLDS to keep these tables synchronized
API: HZ_CUSTOMER_PROFILE_V2PUB.CREATE_CUSTOMER_PROFILE
BASE TABLES AFFECTED : HZ_CUSTOMER_PROFILES
TEST INSTANCE : R12.1.3
SCRIPT:
SET SERVEROUTPUT ON;
DECLARE
p_customer_profile_rec_type HZ_CUSTOMER_PROFILE_V2PUB.CUSTOMER_PROFILE_REC_TYPE;
x_cust_account_profile_id NUMBER;
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_customer_profile_rec_type.cust_account_id := 150734;
p_customer_profile_rec_type.created_by_module := 'BO_API';
DBMS_OUTPUT.PUT_LINE('Calling the API hz_customer_profile_v2pub.create_customer_profile');
HZ_CUSTOMER_PROFILE_V2PUB.CREATE_CUSTOMER_PROFILE
(
p_init_msg_list => FND_API.G_TRUE,
p_customer_profile_rec => p_customer_profile_rec_type,
p_create_profile_amt => FND_API.G_TRUE,
x_cust_account_profile_id => x_cust_account_profile_id,
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 Customer Profile is Successful ');
DBMS_OUTPUT.PUT_LINE('Output information ....');
dbms_output.put_line('Cust Account Id = '||TO_CHAR(p_customer_profile_rec_type.cust_account_id));
dbms_output.put_line('Cust Account Profile Id = '||TO_CHAR(x_cust_account_profile_id));
dbms_output.put_line('Status = '||p_customer_profile_rec_type.status);
dbms_output.put_line('Credit Checking = '||p_customer_profile_rec_type.credit_checking);
dbms_output.put_line('Interest Charges = '||p_customer_profile_rec_type.interest_charges);
ELSE
DBMS_OUTPUT.put_line ('Creation of Customer Profile got failed:'||x_msg_data);
ROLLBACK;
FOR i IN 1 .. x_msg_count
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');
END;
/
Do you think this Article is useful?
Subscribe to:
Post Comments (Atom)
0 Responses to “API to Create a Customer Profile TCA R12 (HZ_CUSTOMER_PROFILE_V2PUB.CREATE_CUSTOMER_PROFILE)”
Post a Comment