The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
ID,
OBJECT_VERSION_NUMBER,
LINE_NUMBER,
VERSION,
FROM_DATE,
ARO_CODE,
RIGHT_OPERAND_LITERAL,
ACRO_CODE,
NVL(ARLO_CODE, G_MISS_CHAR) ARLO_CODE,
NVL(LEFT_PARENTHESES, G_MISS_CHAR) LEFT_PARENTHESES,
NVL(RIGHT_PARENTHESES, G_MISS_CHAR) RIGHT_PARENTHESES,
NVL(TO_DATE, G_MISS_DATE) TO_DATE,
NVL(ORG_ID, G_MISS_NUM) ORG_ID,
CREATED_BY,
LAST_UPDATED_BY,
CREATION_DATE,
LAST_UPDATE_DATE,
NVL(LAST_UPDATE_LOGIN,G_MISS_NUM) LAST_UPDATE_LOGIN
FROM OKL_ACCRUAL_GNRTNS
WHERE id = p_id;
l_agnv_rec.LAST_UPDATED_BY,
l_agnv_rec.CREATION_DATE,
l_agnv_rec.LAST_UPDATE_DATE,
l_agnv_rec.LAST_UPDATE_LOGIN;
SELECT MAX(line_number)
FROM OKL_ACCRUAL_GNRTNS
WHERE ORG_ID = p_agnv_rec.ORG_ID AND version = p_version;
SELECT MAX(TO_NUMBER(VERSION))
FROM OKL_ACCRUAL_GNRTNS
WHERE ORG_ID = p_orgID;
/* Validate Version for increment in case of update */
IF l_agnv_rec.version IS NOT NULL THEN
--IF l_agnv_rec.version <> '1' THEN
l_agnv_rec.version := l_agnv_rec.version + 1;
/* public api to insert accrual rules */
OKL_ACCRUAL_RULES_PUB.insert_accrual_rules(p_api_version => l_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_agnv_rec => l_agnv_rec,
x_agnv_rec => x_agnv_rec);
PROCEDURE update_accrual_rules(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_agnv_rec IN agnv_rec_type,
x_agnv_rec OUT NOCOPY agnv_rec_type
) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'update_accrual_rules';
SELECT MAX(line_number)
FROM OKL_ACCRUAL_GNRTNS
WHERE version = p_version and ORG_ID = p_orgID;
/* public api to update provisions */
OKL_ACCRUAL_RULES_PUB.update_accrual_rules(p_api_version => l_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_agnv_rec => l_agnv_rec,
x_agnv_rec => x_agnv_rec);
/* public api to insert provisions */
OKL_ACCRUAL_RULES_PUB.insert_accrual_rules(p_api_version => l_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_agnv_rec => l_agnv_rec,
x_agnv_rec => x_agnv_rec);
END update_accrual_rules;
OKL_ACCRUAL_RULES_PUB.insert_accrual_rules(p_api_version => l_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_Status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_agnv_tbl => p_agnv_tbl,
x_agnv_tbl => x_agnv_tbl);
PROCEDURE update_accrual_rules(
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_agnv_tbl IN agnv_tbl_type,
x_agnv_tbl OUT NOCOPY agnv_tbl_type)
IS
l_api_version NUMBER := 1.0;
OKL_ACCRUAL_RULES_PUB.update_accrual_rules(p_api_version => l_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_Status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_agnv_tbl => p_agnv_tbl,
x_agnv_tbl => x_agnv_tbl);
END update_accrual_rules;
PROCEDURE delete_accrual_rules(
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_agnv_rec IN agnv_rec_type)
IS
l_api_version NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'delete_accrual_rules';
x_agnv_rec agnv_rec_type; /*update return copy */
SELECT COUNT(*)
FROM OKL_ACCRUAL_GNRTNS
WHERE version = (SELECT version
FROM OKL_ACCRUAL_GNRTNS
WHERE id = p_id)
AND to_date IS NULL;
/* check if record being deleted is the last */
-- OPEN check_rule_csr(p_agnv_rec.id);
/* update records with end date */
/* fetch old details from the database */
get_rec(p_agnv_rec => p_agnv_rec,
x_return_status => l_return_status,
x_no_data_found => l_no_data_found,
x_agnv_rec => l_db_agnv_rec);
/* public api to update provisions */
OKL_ACCRUAL_RULES_PUB.update_accrual_rules(p_api_version => l_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_agnv_rec => l_agnv_rec,
x_agnv_rec => x_agnv_rec);
delete_accrual_rules;
PROCEDURE delete_accrual_rules(
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_agnv_tbl IN agnv_tbl_type)
IS
l_api_version NUMBER := 1.0;
OKL_ACCRUAL_RULES_PUB.delete_accrual_rules(p_api_version => l_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_Status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_agnv_tbl => p_agnv_tbl);
END delete_accrual_rules;