Create Internal Bank Branch API in Oracle Apps R12

DECLARE
p_init_msg_list                      VARCHAR2(200);
p_branch_name                    VARCHAR2(200);
p_branch_number               VARCHAR2(200);
p_branch_type                      VARCHAR2(200);
p_alternate_branch_name VARCHAR2(200);
p_description                        VARCHAR2(200);
p_rfc_identifier                    VARCHAR2(200);
p_bank_id                              NUMBER;
p_count                                  NUMBER;

x_return_status                   VARCHAR2(200);
x_msg_data                          VARCHAR2(200);
x_branch_id                         NUMBER;
x_msg_count                        NUMBER;

BEGIN
p_init_msg_list                      := fnd_api.g_true;
p_bank_id                              := 530705;
p_branch_name                    := ‘Test Branch’;
p_alternate_branch_name := ‘Alternate Branch Name’;
p_description                        := ‘TEST Branch description’;
p_branch_number               := 111000025;

— Validated against AR_LOOKUPS with lookup_type = BANK_BRANCH_TYPE
p_branch_type := ‘ABA’;

— Validated against CE_LOOKUPS with lookup_type = RFC_IDENTIFIER
p_rfc_identifier := ‘AFC’;

CE_BANK_PUB.CREATE_BANK_BRANCH
( — Input data elements
p_init_msg_list                      => p_init_msg_list,
p_bank_id                              => p_bank_id,
p_branch_name                    => p_branch_name,
p_branch_number               => p_branch_number,
p_branch_type                      => p_branch_type,
p_alternate_branch_name => p_alternate_branch_name,
p_description                        => p_description,
p_rfc_identifier                     => p_rfc_identifier,
— Output data elements
x_branch_id                           => x_branch_id,
x_return_status                     => x_return_status,
x_msg_count                          => x_msg_count,
x_msg_data                            => x_msg_data
);

dbms_output.put_line (‘BRANCH_ID/PARTY_ID = ‘ || x_branch_id);

IF (x_msg_count = 1)
THEN
dbms_output.put_line(‘x_msg_data ‘ || x_msg_data);

ELSIF (x_msg_count > 1)
THEN
LOOP
p_count := p_count + 1;
x_msg_data := fnd_msg_pub.get (fnd_msg_pub.g_next, fnd_api.g_false);

IF (x_msg_data IS NULL)
THEN
EXIT;
END IF;

dbms_output.put_line (‘Message’ || p_count || ‘ —‘ || x_msg_data);
END LOOP;
END IF;

COMMIT;

EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
dbms_output.put_line(SQLERRM);
END;
/

SHOW ERR;