The following lines contain the word 'select', 'insert', 'update' or 'delete':
G_INSERT_MODE VARCHAR2(10) := 'INSERT';
G_UPDATE_MODE VARCHAR2(10) := 'UPDATE';
G_DELETE_MODE VARCHAR2(10) := 'DELETE';
SELECT 1
FROM OKL_DATA_SRC_FNCTNS_V fun
WHERE fun.id = p_id
;
SELECT 1
FROM fnd_lookups lok
WHERE lookup_type = 'OKL_CHECKLIST_TYPE'
and lok.enabled_flag = 'Y'
and lok.lookup_code = p_lookup_code
;
IF (p_mode = G_INSERT_MODE) THEN
-- column is required:
IF (l_checklist_type IS NULL) OR
(l_checklist_type = OKL_API.G_MISS_CHAR)
THEN
OKL_API.Set_Message(p_app_name => G_APP_NAME,
p_msg_name => G_REQUIRED_VALUE,
p_token1 => G_COL_NAME_TOKEN,
p_token1_value => 'CHECKLIST_TYPE');
SELECT 1
FROM fnd_lookups lok
WHERE lookup_type = 'OKL_TODO_ITEMS'
and lok.enabled_flag = 'Y'
and lok.lookup_code = p_lookup_code
;
IF (p_mode = G_INSERT_MODE) THEN
-- column is required:
IF (p_rulv_rec.RULE_INFORMATION1 IS NULL) OR
(p_rulv_rec.RULE_INFORMATION1 = OKL_API.G_MISS_CHAR)
THEN
OKL_API.Set_Message(p_app_name => G_APP_NAME,
p_msg_name => G_REQUIRED_VALUE,
p_token1 => G_COL_NAME_TOKEN,
p_token1_value => 'TODO_ITEM');
SELECT 1
FROM okl_funding_checklists_uv lst
WHERE lst.FUND_REQ_ID = p_freq_id
group by lst.todo_item_code, lst.function_id
having count(1) > 1
;
select id
from okc_rule_groups_b
where rgd_code = G_FUNDING_CHKLST_TPL--'LAFCLH'
and dnz_chr_id = chr_id;
IF p_mode = G_INSERT_MODE THEN
OPEN c_rgp_id(p_rulv_rec.DNZ_CHR_ID);
select rgp.id
from okc_rule_groups_b rgp
where rgp.dnz_chr_id = p_chr_id
and rgp.RGD_CODE = G_FUNDING_CHKLST_TPL
;
p_mode => G_INSERT_MODE
);
PROCEDURE update_funding_chklst(
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_rulv_tbl IN rulv_tbl_type
,x_rulv_tbl OUT NOCOPY rulv_tbl_type
)
is
l_api_name CONSTANT VARCHAR2(30) := 'update_funding_chklst';
SAVEPOINT update_funding_chklst;
p_mode => G_UPDATE_MODE
);
okl_rule_pub.update_rule(
p_api_version => p_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_rulv_tbl => lp_rulv_tbl,
x_rulv_tbl => lx_rulv_tbl);
ROLLBACK TO update_funding_chklst;
ROLLBACK TO update_funding_chklst;
ROLLBACK TO update_funding_chklst;
end update_funding_chklst;
PROCEDURE delete_funding_chklst(
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_rulv_tbl IN rulv_tbl_type
)
is
l_api_name CONSTANT VARCHAR2(30) := 'delete_funding_chklst';
SAVEPOINT delete_funding_chklst;
p_mode => G_DELETE_MODE
);
okl_rule_pub.delete_rule(
p_api_version => p_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_rulv_tbl => lp_rulv_tbl);
ROLLBACK TO delete_funding_chklst;
ROLLBACK TO delete_funding_chklst;
ROLLBACK TO delete_funding_chklst;
end delete_funding_chklst;
OKL_FUNDING_PVT.update_funding_header(
p_api_version => p_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_tapv_rec => lp_tapv_rec,
x_tapv_rec => lx_tapv_rec);
select a.id
from okc_rules_b a
where a.dnz_chr_id = p_chr_id
-- Sep-26-2005 cklee -- Fixed ORA-01722: invalid number for |
-- approve_funding_chklst function cursor issue |
--and a.object1_id1 = p_req_id
and a.object1_id1 = TO_CHAR(p_req_id)
and a.RULE_INFORMATION_CATEGORY = G_FUNDING_CHKLST_TPL_RULE1--'LAFCLD'
;
okl_rule_pub.update_rule(
p_api_version => p_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_rulv_tbl => lp_rulv_tbl,
x_rulv_tbl => lx_rulv_tbl);