The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE UPDATE_LAST_INT_CAL_DATE(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_contract_id IN NUMBER,
p_last_interest_cal_date IN DATE
)
IS
BEGIN
OKL_VARIABLE_INTEREST_PVT.print_debug('Before updating Last Interest Calculation Date:' || p_last_interest_cal_date);
UPDATE okl_k_headers khr
SET khr.date_last_interim_interest_cal = p_last_interest_cal_date
WHERE khr.id = p_contract_id;
OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception raised in procedure UPDATE_LAST_INT_CAL_DATE');
END UPDATE_LAST_INT_CAL_DATE;
PROCEDURE INSERT_PRINCIPAL_BAL_TXN(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_vpb_tbl IN OKL_VARIABLE_INTEREST_PVT.vpb_tbl_type) IS
l_index NUMBER := 0;
OKL_VARIABLE_INTEREST_PVT.print_debug('Executing procedure INSERT_PRINCIPAL_BAL_TXN using following parameters : ');
INSERT INTO OKL_VAR_PRINCIPAL_BAL_TXN VALUES p_vpb_tbl(l_index);
OKL_VARIABLE_INTEREST_PVT.print_debug ('No. of records inserted : '|| SQL%rowcount);
OKL_VARIABLE_INTEREST_PVT.print_error_message('Exception raised in procedure INSERT_PRINCIPAL_BAL_TXN');
OKL_VARIABLE_INTEREST_PVT.print_debug ('Exception during bulk insert');
END INSERT_PRINCIPAL_BAL_TXN;
PROCEDURE INSERT_VIR_PARAMS(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_vir_tbl IN OKL_VARIABLE_INTEREST_PVT.vir_tbl_type) IS
l_index NUMBER := 0;
OKL_VARIABLE_INTEREST_PVT.print_debug('Executing procedure INSERT_VIR_PARAMS using following parameters : ');
INSERT INTO okl_var_int_params VALUES p_vir_tbl(l_index);
OKL_VARIABLE_INTEREST_PVT.print_debug ('No. of records inserted : '|| SQL%rowcount);
OKL_VARIABLE_INTEREST_PVT.print_debug ('Exception during bulk insert');
END INSERT_VIR_PARAMS;