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 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_restricted_update IN VARCHAR2 DEFAULT OKE_API.G_TRUE,
p_chr_rec IN oke_chr_pvt.chr_rec_type,
p_chrv_rec IN okc_contract_pub.chrv_rec_type,
x_chr_rec OUT NOCOPY oke_chr_pvt.chr_rec_type,
x_chrv_rec OUT NOCOPY okc_contract_pub.chrv_rec_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_rec,
x_chrv_rec => x_chrv_rec);
OKE_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_chr_rec => p_chr_rec,
x_chr_rec => x_chr_rec);
END update_contract_header;
PROCEDURE update_contract_header(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_restricted_update IN VARCHAR2 DEFAULT OKE_API.G_TRUE,
p_chr_tbl IN oke_chr_pvt.chr_tbl_type,
p_chrv_tbl IN okc_contract_pub.chrv_tbl_type,
x_chr_tbl OUT NOCOPY oke_chr_pvt.chr_tbl_type,
x_chrv_tbl OUT NOCOPY okc_contract_pub.chrv_tbl_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_HEADER';
OKE_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_chr_rec => p_chr_tbl(i),
p_chrv_rec => p_chrv_tbl(i),
x_chr_rec => x_chr_tbl(i),
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 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_chr_rec IN oke_chr_pvt.chr_rec_type,
p_chrv_rec IN okc_contract_pub.chrv_rec_type) IS
l_chr_rec oke_chr_pvt.chr_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_HEADER';
OKE_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_chr_rec => l_chr_rec);
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 => l_chrv_rec);
END delete_contract_header;
PROCEDURE delete_contract_header(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_chr_tbl IN oke_chr_pvt.chr_tbl_type,
p_chrv_tbl IN okc_contract_pub.chrv_tbl_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_HEADER';
OKE_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_chr_rec => p_chr_tbl(i));
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 DEFAULT OKE_API.G_TRUE,
p_cle_rec IN oke_cle_pvt.cle_rec_type,
p_clev_rec IN okc_contract_pub.clev_rec_type,
x_cle_rec OUT NOCOPY oke_cle_pvt.cle_rec_type,
x_clev_rec OUT NOCOPY okc_contract_pub.clev_rec_type) IS
l_cle_rec oke_cle_pvt.cle_rec_type;
SELECT allowed_yn
FROM OKC_ASSENTS
WHERE sts_code = l_sts_code
AND scs_code = l_scs_code
AND opn_code = 'UPDATE';
SELECT sts_code, scs_code
FROM OKC_K_HEADERS_B
WHERE id = p_clev_rec.dnz_chr_id;
UPDATE OKC_ASSENTS SET ALLOWED_YN = 'Y'
WHERE sts_code = l_sts_code
AND scs_code = l_scs_code
AND opn_code = 'UPDATE';
UPDATE OKC_ASSENTS SET ALLOWED_YN = l_return_value
WHERE sts_code = l_sts_code
AND scs_code = l_scs_code
AND opn_code = 'UPDATE';
UPDATE OKC_K_LINES_B
SET line_number = l_line_number
WHERE ID = l_cle_rec.K_LINE_ID;
p_restricted_update IN VARCHAR2 DEFAULT OKE_API.G_TRUE,
p_cle_tbl IN oke_cle_pvt.cle_tbl_type,
p_clev_tbl IN okc_contract_pub.clev_tbl_type,
x_cle_tbl OUT NOCOPY oke_cle_pvt.cle_tbl_type,
x_clev_tbl OUT NOCOPY okc_contract_pub.clev_tbl_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_LINE';
p_restricted_update => p_restricted_update,
p_cle_rec => p_cle_tbl(i),
p_clev_rec => p_clev_tbl(i),
x_cle_rec => x_cle_tbl(i),
x_clev_rec => x_clev_tbl(i));
PROCEDURE update_contract_line(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_restricted_update IN VARCHAR2 DEFAULT OKE_API.G_TRUE,
p_cle_rec IN oke_cle_pvt.cle_rec_type,
p_clev_rec IN okc_contract_pub.clev_rec_type,
x_cle_rec OUT NOCOPY oke_cle_pvt.cle_rec_type,
x_clev_rec OUT NOCOPY okc_contract_pub.clev_rec_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_rec,
x_clev_rec => x_clev_rec);
OKE_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_cle_rec => p_cle_rec,
x_cle_rec => x_cle_rec);
END update_contract_line;
PROCEDURE update_contract_line(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_restricted_update IN VARCHAR2 DEFAULT OKE_API.G_TRUE,
p_cle_tbl IN oke_cle_pvt.cle_tbl_type,
p_clev_tbl IN okc_contract_pub.clev_tbl_type,
x_cle_tbl OUT NOCOPY oke_cle_pvt.cle_tbl_type,
x_clev_tbl OUT NOCOPY okc_contract_pub.clev_tbl_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_HEADER';
OKE_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_cle_rec => p_cle_tbl(i),
p_clev_rec => p_clev_tbl(i),
x_cle_rec => x_cle_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 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_cle_rec IN oke_cle_pvt.cle_rec_type,
p_clev_rec IN okc_contract_pub.clev_rec_type) IS
l_cle_rec oke_cle_pvt.cle_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_LINE';
OKE_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_cle_rec => l_cle_rec);
OKC_CONTRACT_PUB.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 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_cle_tbl IN oke_cle_pvt.cle_tbl_type,
p_clev_tbl IN okc_contract_pub.clev_tbl_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_HEADER';
OKE_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_cle_rec => p_cle_tbl(i));
OKC_CONTRACT_PUB.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 DEFAULT OKE_API.G_FALSE,
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';
OKE_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);
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_deliverable(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_del_rec IN oke_deliverable_pvt.del_rec_type,
x_del_rec OUT NOCOPY oke_deliverable_pvt.del_rec_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_DELIVERABLE';
OKE_CONTRACT_PVT.update_deliverable(
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_del_rec => p_del_rec,
x_del_rec => x_del_rec);
END update_deliverable;
PROCEDURE update_deliverable(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_del_tbl IN oke_deliverable_pvt.del_tbl_type,
x_del_tbl OUT NOCOPY oke_deliverable_pvt.del_tbl_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_HEADER';
OKE_CONTRACT_PUB.update_deliverable(
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_del_rec => p_del_tbl(i),
x_del_rec => x_del_tbl(i));
END update_deliverable;
PROCEDURE delete_deliverable(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_del_rec IN oke_deliverable_pvt.del_rec_type) IS
l_del_rec oke_deliverable_pvt.del_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_DELIVERABLE';
OKE_CONTRACT_PVT.delete_deliverable(
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_del_rec => l_del_rec);
END delete_deliverable;
PROCEDURE delete_deliverable(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_del_tbl IN oke_deliverable_pvt.del_tbl_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_HEADER';
OKE_CONTRACT_PUB.delete_deliverable(
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_del_rec => p_del_tbl(i));
END delete_deliverable;
PROCEDURE delete_deliverable(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_deliverable_id IN NUMBER) IS
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_DELIVERABLE';
OKE_CONTRACT_PVT.delete_deliverable(
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_deliverable_id => p_deliverable_id);
END delete_deliverable;
select buy_or_sell from okc_k_headers_b
where id = p_id;
select l.k_line_id,
l.line_number,
l.project_id,
l.inventory_item_id,
l.line_description,
l.delivery_date,
l.status_code,
l.start_date,
l.end_date,
k.priority_code,
h.currency_code,
l.unit_price,
l.uom_code,
l.line_quantity,
k.country_of_origin_code,
l.subcontracted_flag,
l.billable_flag,
l.drop_shipped_flag,
l.completed_flag,
l.shippable_flag,
l.cfe_flag,
l.inspection_req_flag,
l.interim_rpt_req_flag,
l.customer_approval_req_flag,
l.as_of_date,
l.date_of_first_submission,
l.frequency,
l.data_item_subtitle,
l.copies_required,
l.cdrl_category,
l.data_item_name,
l.export_flag
from oke_k_lines_v l, okc_k_headers_b h, oke_k_headers k
where h.id = p_id
and l.header_id = p_id
and h.id = k.k_header_id
and not exists (select 'x' from okc_k_lines_b s where s.cle_id = l.k_line_id)
and exists (select 'x' from okc_assents a
where a.opn_code = 'CREATE_DELV'
and a.sts_code = l.status_code
and a.scs_code = 'PROJECT'
and a.allowed_yn = 'Y');
select l.k_line_id,
l.line_number,
l.project_id,
l.inventory_item_id,
l.line_description,
l.delivery_date,
l.status_code,
l.start_date,
l.end_date,
k.priority_code,
h.currency_code,
l.unit_price,
l.uom_code,
l.line_quantity,
k.country_of_origin_code,
l.subcontracted_flag,
l.billable_flag,
l.drop_shipped_flag,
l.completed_flag,
l.shippable_flag,
l.cfe_flag,
l.inspection_req_flag,
l.interim_rpt_req_flag,
l.customer_approval_req_flag,
l.as_of_date,
l.date_of_first_submission,
l.frequency,
l.data_item_subtitle,
l.copies_required,
l.cdrl_category,
l.data_item_name,
l.export_flag
from oke_k_lines_v l, okc_k_headers_b h, oke_k_headers k
where h.id = p_id
and l.header_id = p_id
and h.id = k.k_header_id
and not exists (select 'x' from okc_k_lines_b s where s.cle_id = l.k_line_id)
and not exists (select 'x' from oke_k_deliverables_b where k_line_id = l.k_line_id)
and exists (select 'x' from okc_assents a
where a.opn_code = 'CREATE_DELV'
and a.sts_code = l.status_code
and a.scs_code = 'PROJECT'
and a.allowed_yn = 'Y');
select object1_id2
from okc_k_items_v
where cle_id = p_id;
select cust_account_id from oke_cust_site_uses_v
where id1 = p_id;
select object1_id1, object1_id2, jtot_object1_code
from okc_k_party_roles_b
where dnz_chr_id = p_header_id and cle_id = p_id
and rle_code = p_code;
select object1_id1, object1_id2, jtot_object1_code
from okc_k_party_roles_b
where dnz_chr_id = p_id and chr_id = p_id
and rle_code = p_code;
select Max(a.level_sequence) from okc_ancestrys a
where a.cle_id = p_line_id
and exists(select 'x' from okc_k_party_roles_b b where b.cle_id = a.cle_id_ascendant and b.rle_code = p_code and object1_id1 is not null);
select count(*) from okc_k_party_roles_b
where dnz_chr_id = p_header_id and chr_id = p_header_id
and rle_code = p_code
and object1_id1 is not null;
select buy_or_sell from okc_k_headers_b
where id = p_header_id;
select 'x' from okc_ancestrys
where cle_id = p_line_id;
Select 'x'
From HR_ALL_ORGANIZATION_UNITS hr, MTL_PARAMETERS mp
Where hr.Organization_Id = P_Id
And mp.Organization_Id = hr.Organization_Id;
select buy_or_sell into l_buy_or_sell
from okc_k_headers_b
where id = p_header_id;
SELECT COUNT(*) INTO l_row_count
FROM OKC_K_PARTY_ROLES_B
WHERE dnz_chr_id = p_header_id and cle_id = p_line_id
and rle_code = 'SHIP_FROM'
and object1_id1 is not null;
select cle_id_ascendant into l_id
from okc_ancestrys
where cle_id = p_line_id
and level_sequence = l_level;
select count(*) into l_row_count
from okc_k_party_roles_b
where dnz_chr_id = p_header_id and cle_id = l_id
and rle_code = 'SHIP_FROM';
select count(*) into l_row_count
from okc_k_party_roles_b
where dnz_chr_id = p_header_id and cle_id = p_line_id
and rle_code = 'SHIP_TO';
select cle_id_ascendant into l_id
from okc_ancestrys
where cle_id = p_line_id
and level_sequence = l_level;
select count(*) into l_row_count
from okc_k_party_roles_b
where dnz_chr_id = p_header_id and cle_id = l_id
and rle_code = 'SHIP_TO';
SELECT INV_ORGANIZATION_ID INTO l_inventory_org_id
FROM OKC_K_HEADERS_B
WHERE ID = P_HEADER_ID;
PROCEDURE Check_Delete_Contract(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_chr_id IN NUMBER,
x_return_code OUT NOCOPY VARCHAR2) IS
l_api_name CONSTANT VARCHAR2(30) := 'CHECK_DELETE_CONTRACT';
SELECT 'X' FROM OKC_ASSENTS
WHERE OPN_CODE ='DELETE'
AND STS_CODE =
(SELECT STS_CODE FROM OKC_K_HEADERS_B WHERE ID = P_CHR_ID)
AND SCS_CODE = 'PROJECT'
AND ALLOWED_YN = 'Y';
SELECT 'x'
FROM OKE_K_HEADERS
WHERE K_HEADER_ID = p_chr_id
AND K_TYPE_CODE IN (SELECT K_TYPE_CODE FROM OKE_K_TYPES_B WHERE TYPE_CLASS_CODE='BOA')
AND K_HEADER_ID IN (SELECT BOA_ID FROM OKE_K_HEADERS);
SELECT 'x'
FROM OKC_STATUSES_B ST, OKC_K_HEADERS_B KH
WHERE KH.ID = p_chr_id
AND ST.CODE = KH.STS_CODE
AND ST.STE_CODE not in ( 'ENTERED','CANCELLED');
SELECT 'x'
FROM OKE_K_DELIVERABLES_B DV
WHERE PO_REF_1 IS NOT NULL
AND DV.K_HEADER_ID = p_chr_id;
SELECT 'x'
FROM OKE_K_DELIVERABLES_B DV
WHERE MPS_TRANSACTION_ID IS NOT NULL
AND DV.K_HEADER_ID = p_chr_id;
SELECT 'x'
FROM OKE_K_DELIVERABLES_B DV
WHERE SHIPPING_REQUEST_ID IS NOT NULL
AND DV.K_HEADER_ID = p_chr_id;
SELECT 'x'
FROM OKE_K_FUND_ALLOCATIONS FA, OKE_K_FUNDING_SOURCES FS
WHERE FA.PA_FLAG = 'Y'
AND FA.FUNDING_SOURCE_ID = FS.FUNDING_SOURCE_ID
AND FS.OBJECT_ID = p_chr_id;
END Check_Delete_Contract;
PROCEDURE delete_contract (
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_chr_id IN NUMBER,
p_pre_deletion_check_yn IN VARCHAR2 DEFAULT 'Y') IS
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT';
select id from okc_k_lines_b
where dnz_chr_id = p_chr_id;
select id
from okc_k_items
where dnz_chr_id = p_chr_id;
select standard_notes_id from oke_k_standard_notes_b
where k_header_id = p_chr_id;
select print_form_code,k_header_id,k_line_id
from oke_k_print_forms
where k_header_id = p_chr_id;
select id,object_version_number from okc_k_articles_b
where dnz_chr_id = p_chr_id;
select term_code,k_header_id,k_line_id, term_value_pk1, term_value_pk2
from oke_k_terms
where k_header_id = p_chr_id;
select id from okc_contacts
where dnz_chr_id = p_chr_id;
select id from okc_k_party_roles_b
where dnz_chr_id = p_chr_id;
select fund_allocation_id
from oke_k_fund_allocations
where object_id = p_chr_id;
select funding_source_id
from oke_k_funding_sources
where object_id = p_chr_id;
select funding_source_id
from oke_k_funding_sources
where object_id = p_chr_id
and object_type = 'OKE_K_HEADER';
select deliverable_id
from oke_k_deliverables_b
where k_header_id = p_chr_id;
Check_Delete_Contract(
p_api_version => l_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_check,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_chr_id => p_chr_id,
x_return_code => l_return_code );
OKE_STANDARD_NOTES_PUB.delete_standard_note(
p_api_version => l_api_version,
p_init_msg_list => OKE_API.G_FALSE,
x_return_status => l_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_note_tbl => l_note_tbl);
OKE_K_PRINT_FORMS_PUB.delete_print_form(
p_api_version => l_api_version,
p_init_msg_list => OKE_API.G_FALSE,
x_return_status => l_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_form_tbl => l_form_tbl);
OKC_TERMS_UTIL_GRP.delete_doc(
p_api_version => 1,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
x_return_status => l_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count,
p_validate_commit => FND_API.G_FALSE,
p_validation_string => NULL,
p_doc_type => l_doc_type,
p_doc_id => l_doc_id);
OKE_TERMS_PUB.delete_term(
p_api_version => l_api_version,
p_init_msg_list => OKE_API.G_FALSE,
x_return_status => l_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_term_tbl => l_term_tbl);
OKC_CONTRACT_PARTY_PUB.delete_contact(
p_api_version => l_api_version,
p_init_msg_list => OKC_API.G_FALSE,
x_return_status => l_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_ctcv_tbl => l_contact_tbl);
OKC_CONTRACT_PARTY_PUB.delete_k_party_role(
p_api_version => l_api_version,
p_init_msg_list => OKC_API.G_FALSE,
x_return_status => l_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cplv_tbl => l_party_tbl);
OKE_CONTRACT_PVT.delete_minor_entities (
p_header_id => p_chr_id,
x_return_status => l_status);
OKE_FUNDING_PUB.delete_allocation (
p_api_version => l_api_version,
p_init_msg_list => OKE_API.G_FALSE,
p_commit => OKE_API.G_FALSE,
x_return_status => l_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_fund_allocation_id => c.fund_allocation_id );
OKE_FUNDING_PUB.delete_funding(
p_api_version => l_api_version,
p_init_msg_list => OKE_API.G_FALSE,
p_commit => OKE_API.G_FALSE,
x_return_status => l_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_funding_source_id => c.funding_source_id);
OKE_DELIVERABLE_PVT.delete_row(
p_api_version => l_api_version,
p_init_msg_list => OKE_API.G_FALSE,
x_return_status => l_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_del_tbl => l_deliverable_tbl);
OKC_CONTRACT_ITEM_PUB.delete_contract_item(
p_api_version => l_api_version,
p_init_msg_list => OKC_API.G_FALSE,
x_return_status => l_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cimv_tbl => l_item_tbl);
OKE_CLE_PVT.delete_row(
p_api_version => l_api_version,
p_init_msg_list => OKE_API.G_FALSE,
x_return_status => l_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cle_tbl => l_cle_tbl);
OKC_CONTRACT_PVT.delete_contract_line(
p_api_version => l_api_version,
p_init_msg_list => OKC_API.G_FALSE,
x_return_status => l_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_tbl => l_clev_tbl);
OKE_CHR_PVT.delete_row(
p_api_version => l_api_version,
p_init_msg_list => OKE_API.G_FALSE,
x_return_status => l_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_chr_rec => l_chr_rec);
OKE_CONTRACT_PVT.delete_version_records (
p_api_version => l_api_version,
p_header_id => p_chr_id,
x_return_status => l_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
OKC_CONTRACT_PVT.delete_contract_header(
p_api_version => l_api_version,
p_init_msg_list => OKC_API.G_FALSE,
x_return_status => l_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_chrv_rec => l_chrv_rec);
END Delete_Contract;