R12 Bank Location Creation

I'm trying to create Bank and Location . Bank is getting created but the location is not being created.

Independently the API is creating location. not sure if something wrong in my code. Any help is appreciated.

Below is the Code using

PROCEDURE UPSERT_BANK (P_REFERENCE_NUMBER		IN		VARCHAR2,

	X_RETURN_STATUS		OUT		VARCHAR2,

	X_RETURN_MESSAGE		OUT		VARCHAR2)

AS


    CURSOR C_SUPPLIER_BANK (P_REF_NUM VARCHAR2)

    IS

		SELECT DISTINCT BANK.BANK_NAME,BANK.BANK_COUNTRY,BANK.BANK_ADDRESS1,BANK.BANK_CITY,BANK.BANK_STATE,BANK.BANK_POSTAL_CODE

		FROM PQINF.XXPQ_S2P_SUPPLIER_BANKS_STG BANK

		WHERE BANK.REFERENCE_NUMBER = P_REF_NUM