The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE update_contract_header(
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_restricted_update IN VARCHAR2 ,
p_chrv_rec IN chrv_rec_type,
x_chrv_rec OUT NOCOPY chrv_rec_type) IS
l_chrv_rec chrv_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_HEADER';
OKC_CONTRACT_PVT.update_contract_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_restricted_update => p_restricted_update,
p_chrv_rec => l_chrv_rec,
x_chrv_rec => x_chrv_rec);
END update_contract_header;
PROCEDURE update_contract_header(
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_restricted_update IN VARCHAR2 ,
p_chrv_tbl IN chrv_tbl_type,
x_chrv_tbl OUT NOCOPY chrv_tbl_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_HEADER';
OKC_CONTRACT_PUB.update_contract_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_restricted_update => p_restricted_update,
p_chrv_rec => p_chrv_tbl(i),
x_chrv_rec => x_chrv_tbl(i));
END update_contract_header;
PROCEDURE update_contract_header(
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_restricted_update IN VARCHAR2 ,
p_chrv_rec IN chrv_rec_type,
p_control_rec IN control_rec_type,
x_chrv_rec OUT NOCOPY chrv_rec_type) IS
l_chrv_rec chrv_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_HEADER';
OKC_CONTRACT_PVT.update_contract_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_restricted_update => p_restricted_update,
p_chrv_rec => l_chrv_rec,
p_control_rec => p_control_rec,
x_chrv_rec => x_chrv_rec);
END update_contract_header;
PROCEDURE update_contract_header(
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_restricted_update IN VARCHAR2 ,
p_chrv_tbl IN chrv_tbl_type,
p_control_rec IN control_rec_type,
x_chrv_tbl OUT NOCOPY chrv_tbl_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_HEADER';
OKC_CONTRACT_PUB.update_contract_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_restricted_update => p_restricted_update,
p_chrv_rec => p_chrv_tbl(i),
p_control_rec => p_control_rec,
x_chrv_rec => x_chrv_tbl(i));
END update_contract_header;
PROCEDURE delete_contract_header(
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_chrv_rec IN chrv_rec_type) IS
l_chrv_rec chrv_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_HEADER';
OKC_CONTRACT_PVT.delete_contract_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_chrv_rec => l_chrv_rec);
END delete_contract_header;
PROCEDURE delete_contract_header(
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_chrv_tbl IN chrv_tbl_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_HEADER';
OKC_CONTRACT_PUB.delete_contract_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_chrv_rec => p_chrv_tbl(i));
END delete_contract_header;
p_restricted_update IN VARCHAR2 ,
p_clev_rec IN clev_rec_type,
x_clev_rec OUT NOCOPY clev_rec_type) IS
l_clev_rec clev_rec_type;
p_restricted_update=> p_restricted_update,
p_clev_rec => l_clev_rec,
x_clev_rec => x_clev_rec);
p_restricted_update IN VARCHAR2 ,
p_clev_tbl IN clev_tbl_type,
x_clev_tbl OUT NOCOPY clev_tbl_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_LINE';
p_restricted_update => p_restricted_update,
p_clev_rec => p_clev_tbl(i),
x_clev_rec => x_clev_tbl(i));
PROCEDURE update_contract_line(
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_restricted_update IN VARCHAR2 ,
p_clev_rec IN clev_rec_type,
x_clev_rec OUT NOCOPY clev_rec_type) IS
l_clev_rec clev_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_LINE';
OKC_CONTRACT_PVT.update_contract_line(
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_restricted_update => p_restricted_update,
p_clev_rec => l_clev_rec,
x_clev_rec => x_clev_rec);
END update_contract_line;
PROCEDURE update_contract_line(
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_restricted_update IN VARCHAR2 ,
p_clev_tbl IN clev_tbl_type,
x_clev_tbl OUT NOCOPY clev_tbl_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_LINE';
OKC_CONTRACT_PUB.update_contract_line(
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_restricted_update => p_restricted_update,
p_clev_rec => p_clev_tbl(i),
x_clev_rec => x_clev_tbl(i));
END update_contract_line;
PROCEDURE delete_contract_line(
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_clev_rec IN clev_rec_type) IS
l_clev_rec clev_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_LINE';
OKC_CONTRACT_PVT.delete_contract_line(
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_clev_rec => l_clev_rec);
END delete_contract_line;
PROCEDURE delete_contract_line(
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_clev_tbl IN clev_tbl_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_LINE';
OKC_CONTRACT_PVT.delete_contract_line(
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_clev_rec => p_clev_tbl(i));
END delete_contract_line;
PROCEDURE delete_contract_line(
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_line_id IN NUMBER) IS
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_LINE';
OKC_CONTRACT_PVT.delete_contract_line(
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_line_id => p_line_id);
END delete_contract_line;
PROCEDURE update_governance(
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_gvev_rec IN gvev_rec_type,
x_gvev_rec OUT NOCOPY gvev_rec_type) IS
l_gvev_rec gvev_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_GOVERNANCE';
OKC_CONTRACT_PVT.update_governance(
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_gvev_rec => l_gvev_rec,
x_gvev_rec => x_gvev_rec);
END update_governance;
PROCEDURE update_governance(
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_gvev_tbl IN gvev_tbl_type,
x_gvev_tbl OUT NOCOPY gvev_tbl_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_GOVERNANCE';
OKC_CONTRACT_PUB.update_governance(
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_gvev_rec => p_gvev_tbl(i),
x_gvev_rec => x_gvev_tbl(i));
END update_governance;
PROCEDURE delete_governance(
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_gvev_rec IN gvev_rec_type) IS
l_gvev_rec gvev_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_GOVERNANCE';
OKC_CONTRACT_PVT.delete_governance(
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_gvev_rec => l_gvev_rec);
END delete_governance;
PROCEDURE delete_governance(
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_gvev_tbl IN gvev_tbl_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_GOVERNANCE';
OKC_CONTRACT_PUB.delete_governance(
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_gvev_rec => p_gvev_tbl(i));
END delete_governance;
PROCEDURE update_contract_process(
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_cpsv_rec IN cpsv_rec_type,
x_cpsv_rec OUT NOCOPY cpsv_rec_type) IS
l_cpsv_rec cpsv_rec_type;
OKC_CONTRACT_PVT.update_contract_process(
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_cpsv_rec => l_cpsv_rec,
x_cpsv_rec => x_cpsv_rec);
END update_contract_process;
PROCEDURE update_contract_process(
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_cpsv_tbl IN cpsv_tbl_type,
x_cpsv_tbl OUT NOCOPY cpsv_tbl_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_PROCESS';
OKC_CONTRACT_PUB.update_contract_process(
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_cpsv_rec => p_cpsv_tbl(i),
x_cpsv_rec => x_cpsv_tbl(i));
END update_contract_process;
PROCEDURE delete_contract_process(
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_cpsv_rec IN cpsv_rec_type) IS
l_cpsv_rec cpsv_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_PROCESS';
OKC_CONTRACT_PVT.delete_contract_process(
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_cpsv_rec => l_cpsv_rec);
END delete_contract_process;
PROCEDURE delete_contract_process(
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_cpsv_tbl IN cpsv_tbl_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_PROCESS';
OKC_CONTRACT_PUB.delete_contract_process(
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_cpsv_rec => p_cpsv_tbl(i));
END delete_contract_process;
PROCEDURE update_contract_access(
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_cacv_rec IN cacv_rec_type,
x_cacv_rec OUT NOCOPY cacv_rec_type) IS
l_cacv_rec cacv_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_ACCESS';
OKC_CONTRACT_PVT.update_contract_access(
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_cacv_rec => l_cacv_rec,
x_cacv_rec => x_cacv_rec);
END update_contract_access;
PROCEDURE update_contract_access(
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_cacv_tbl IN cacv_tbl_type,
x_cacv_tbl OUT NOCOPY cacv_tbl_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_ACCESS';
OKC_CONTRACT_PUB.update_contract_access(
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_cacv_rec => p_cacv_tbl(i),
x_cacv_rec => x_cacv_tbl(i));
END update_contract_access;
PROCEDURE delete_contract_access(
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_cacv_rec IN cacv_rec_type) IS
l_cacv_rec cacv_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_ACCESS';
OKC_CONTRACT_PVT.delete_contract_access(
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_cacv_rec => l_cacv_rec);
END delete_contract_access;
PROCEDURE delete_contract_access(
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_cacv_tbl IN cacv_tbl_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_ACCESS';
OKC_CONTRACT_PUB.delete_contract_access(
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_cacv_rec => p_cacv_tbl(i));
END delete_contract_access;
FUNCTION Update_Allowed(p_chr_id IN NUMBER) RETURN VARCHAR2 Is
BEGIN
return (OKC_CONTRACT_PVT.Update_Allowed(p_chr_id));
END Update_Allowed;
Procedure update_lines(p_id in number,
p_sts_code in varchar2,
p_new_ste_code in VARCHAR2,
p_old_ste_code in VARCHAR2,
p_ste_code in VARCHAR2,
x_return_status OUT NOCOPY BOOLEAN) IS
x_num number;
l_line_update varchar2(1) := 'Y';
select ste_code
from okc_statuses_v
where code=p_sts_code;
select code
from okc_statuses_v
where ste_code='SIGNED'
and default_yn='Y';
select code
from okc_statuses_v
where ste_code='EXPIRED'
and default_yn='Y';
select L.id, decode(l_type,'ACTIVE',
decode(sign(months_between(sysdate-1,NVL(L.end_date,sysdate))),-1,
decode(sign(months_between(L.start_date-1,sysdate)),-1,p_sts_code,l_signed)
,l_expired)
,p_sts_code) code
from okc_k_headers_v H, okc_k_lines_v L, okc_statuses_v S
where H.id= p_id
and L.dnz_chr_id = p_id
and S.code = L.sts_code
and S.ste_code in ('ENTERED','CANCELLED','ACTIVE','SIGNED','HOLD');
OKC_CONTRACT_PUB.update_contract_line(
p_api_version => 1,
P_INIT_MSG_LIST => 'T',
p_restricted_update => 'T',
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_clev_tbl => l_clev_tbl,
x_clev_tbl => l1_clev_tbl);
l_line_update := 'N';
If l_line_update = 'Y' then
x_return_status :=TRUE;
END update_lines;