API to Create Party Site for Bank Branch with Location in Oracle Apps R12
DECLARE
p_party_site_rec HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE;
x_party_site_id NUMBER;
x_party_site_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_party_site_rec.party_id := 530682;
p_party_site_rec.location_id := 28215;
p_party_site_rec.identifying_address_flag := ‘Y’;
p_party_site_rec.created_by_module := ‘BO_API’;
DBMS_OUTPUT.PUT_LINE(‘Calling the API hz_party_site_v2pub.create_party_site’);
HZ_PARTY_SITE_V2PUB.CREATE_PARTY_SITE
( p_init_msg_list => FND_API.G_TRUE,
p_party_site_rec => p_party_site_rec,
x_party_site_id => x_party_site_id,
x_party_site_number => x_party_site_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 Site is Successful ‘);
DBMS_OUTPUT.PUT_LINE(‘Output information ….’);
DBMS_OUTPUT.PUT_LINE(‘Party Site Id = ‘ || x_party_site_id);
DBMS_OUTPUT.PUT_LINE(‘Party Site Number = ‘ || x_party_site_number);
ELSE
DBMS_OUTPUT.put_line (‘Creation of Party Site 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’);
COMMIT;
EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
dbms_output.put_line(SQLERRM);
END;
/
SHOW ERR;