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;