The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT application_id
FROM okc_k_headers_b
WHERE id = p_id;
FUNCTION DELETE_CONDITION_HEADERS( p_chr_id number) Return varchar2 IS
l_cnhv_tbl_in OKC_CONDITIONS_PUB.cnhv_tbl_type;
SELECT ID
FROM OKC_CONDITION_HEADERS_V
WHERE dnz_chr_id = p_id;
OKC_CONDITIONS_PUB.DELETE_COND_HDRS(
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_cnhv_tbl => l_cnhv_tbl_in);
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Condition Headers',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
END DELETE_CONDITION_HEADERS;
FUNCTION DELETE_CONDITION_LINES( p_chr_id number) Return varchar2 IS
l_cnlv_tbl_in OKC_CONDITIONS_PUB.cnlv_tbl_type;
SELECT ID
FROM OKC_CONDITION_LINES_V
WHERE dnz_chr_id= p_id;
OKC_CONDITIONS_PUB.DELETE_COND_LINES(
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_cnlv_tbl => l_cnlv_tbl_in);
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Condition Lines',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
END DELETE_CONDITION_LINES;
FUNCTION DELETE_PRICE_ADJUSTMENTS( p_chr_id number) Return varchar2 IS
l_patv_tbl_in OKC_PRICE_ADJUSTMENT_PVT.patv_tbl_type;
SELECT ID,cle_id
FROM OKC_PRICE_ADJUSTMENTS_V
WHERE chr_id= p_id;
OKC_PRICE_ADJUSTMENT_PUB.delete_price_adjustment(
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_patv_tbl => l_patv_tbl_in);
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Condition Lines',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
END DELETE_PRICE_ADJUSTMENTS;
FUNCTION DELETE_PRICE_ADJ_ASSOCS( p_chr_id number) Return varchar2 IS
l_pacv_tbl_in OKC_PRICE_ADJUSTMENT_PVT.pacv_tbl_type;
SELECT ID
FROM OKC_PRICE_ADJ_ASSOCS_V
WHERE pat_id_from IN
( SELECT pat_id
FROM OKC_PRICE_ADJUSTMENTS
WHERE chr_id = p_id
);
OKC_PRICE_ADJUSTMENT_PUB.delete_price_adj_assoc(
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_pacv_tbl => l_pacv_tbl_in);
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Condition Lines',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
END DELETE_PRICE_ADJ_ASSOCS;
FUNCTION DELETE_PRICE_ADJ_ATTRIBS( p_chr_id number) Return varchar2 IS
l_paav_tbl_in OKC_PRICE_ADJUSTMENT_PVT.paav_tbl_type;
SELECT ID
FROM OKC_PRICE_ADJ_ATTRIBS_V
WHERE pat_id IN
( SELECT id
FROM OKC_PRICE_ADJUSTMENTS
WHERE chr_id = p_id
);
OKC_PRICE_ADJUSTMENT_PUB.delete_price_adj_attrib(
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_paav_tbl => l_paav_tbl_in);
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Condition Lines',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
END DELETE_PRICE_ADJ_ATTRIBS;
FUNCTION DELETE_PRICE_ATT_VALUES( p_chr_id number) Return varchar2 IS
l_pavv_tbl_in OKC_PRICE_ADJUSTMENT_PVT.pavv_tbl_type;
SELECT ID
FROM OKC_PRICE_ATT_VALUES_V
WHERE chr_id= p_id;
OKC_PRICE_ADJUSTMENT_PUB.delete_price_att_value(
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_pavv_tbl => l_pavv_tbl_in);
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Condition Lines',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
END DELETE_PRICE_ATT_VALUES;
FUNCTION DELETE_CONTACTS( p_chr_id number) Return varchar2 IS
l_ctcv_tbl_in OKC_CONTRACT_PARTY_PUB.ctcv_tbl_type;
SELECT ID
FROM OKC_CONTACTS_V
WHERE dnz_chr_id = p_id;
OKC_CONTRACT_PARTY_PUB.Delete_Contact(
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_ctcv_tbl => l_ctcv_tbl_in);
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Contacts',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
END DELETE_CONTACTS;
FUNCTION DELETE_COVER_TIMES( p_chr_id number ) Return varchar2 IS
l_ctiv_tbl_in OKC_RULE_PUB.ctiv_tbl_type;
SELECT RUL_ID, TVE_ID
FROM OKC_COVER_TIMES_V
WHERE dnz_chr_id = p_id;
OKC_RULE_PUB.delete_cover_time(
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_ctiv_tbl => l_ctiv_tbl_in);
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Cover Times',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
END DELETE_COVER_TIMES;
FUNCTION DELETE_FUNCTION_EXPR_PARAMS( p_chr_id number) Return varchar2 IS
l_fepv_tbl_in OKC_CONDITIONS_PUB.fepv_tbl_type;
SELECT ID
FROM OKC_FUNCTION_EXPR_PARAMS_V
WHERE dnz_chr_id = p_id;
OKC_CONDITIONS_PUB.DELETE_FUNC_EXPRS(
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_fepv_tbl => l_fepv_tbl_in);
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Function Exp. Parameters',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
END DELETE_FUNCTION_EXPR_PARAMS;
FUNCTION DELETE_GOVERNANCES( p_chr_id number) Return varchar2 IS
l_gvev_tbl_in okc_contract_pub.gvev_tbl_type;
SELECT ID
FROM OKC_GOVERNANCES_V
WHERE dnz_chr_id = p_id;
okc_contract_pub.delete_governance (
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_gvev_tbl => l_gvev_tbl_in
);
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Governances',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
END DELETE_GOVERNANCES;
FUNCTION DELETE_K_ACCESSES( p_chr_id number) Return varchar2 IS
l_cacv_tbl_in okc_contract_pub.cacv_tbl_type;
SELECT ID
FROM OKC_K_ACCESSES_V
WHERE chr_id = p_id;
OKC_CONTRACT_PUB.Delete_Contract_Access (
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_cacv_tbl => l_cacv_tbl_in
);
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Contract Accesses',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
END DELETE_K_ACCESSES;
FUNCTION DELETE_K_GRPINGS(p_chr_id number ) Return varchar2 IS
l_cgcv_tbl_in OKC_CONTRACT_GROUP_PUB.cgcv_tbl_type;
SELECT ID
FROM OKC_K_GRPINGS_V
WHERE INCLUDED_CHR_ID = p_id;
OKC_CONTRACT_GROUP_PUB.Delete_Contract_Grpngs (
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_cgcv_tbl => l_cgcv_tbl_in
);
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Contract Grouping',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
END DELETE_K_GRPINGS;
FUNCTION DELETE_K_HEADERS( p_chr_id number ) Return varchar2 IS
l_chrv_rec OKC_CONTRACT_PUB.chrv_rec_type;
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Contract Header',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
OKC_K_HISTORY_PUB.DELETE_ALL_ROWS (
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_chr_id => p_chr_id
);
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Contract Header',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
OKC_CONTRACT_PUB.Delete_Contract_Header (
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_chrv_rec => l_chrv_rec
);
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Contract Header',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
END DELETE_K_HEADERS;
FUNCTION DELETE_K_ITEMS( p_chr_id number) Return varchar2 IS
l_cimv_tbl_in OKC_CONTRACT_ITEM_PUB.cimv_tbl_type;
SELECT ID
FROM OKC_K_ITEMS_V
WHERE dnz_chr_id = p_id;
OKC_CONTRACT_ITEM_PUB.Delete_Contract_Item (
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_cimv_tbl => l_cimv_tbl_in
);
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Contract Items',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
END DELETE_K_ITEMS;
FUNCTION DELETE_K_LINES( p_chr_id number) Return varchar2 IS
l_clev_tbl_in OKC_CONTRACT_PUB.clev_tbl_type;
SELECT ID
FROM OKC_K_LINES_V
WHERE dnz_chr_id = p_id;
delete from okc_ancestrys
where cle_id in (
select Ks.cle_id
from okc_ancestrys KS, okc_k_lines_b Kl
where kl.id = ks.cle_id
And Kl.dnz_chr_id = p_chr_id);
OKC_CONTRACT_PUB.Delete_Contract_Line(
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_clev_tbl => l_clev_tbl_in);
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Contract Lines',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
END DELETE_K_LINES;
FUNCTION DELETE_K_PARTY_ROLES( p_chr_id number) Return varchar2 IS
l_cplv_tbl_in OKC_CONTRACT_PARTY_PUB.cplv_tbl_type;
SELECT ID
FROM OKC_K_PARTY_ROLES_V
WHERE dnz_chr_id = p_id;
OKC_CONTRACT_PARTY_PUB.DELETE_K_PARTY_ROLE (
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_cplv_tbl => l_cplv_tbl_in
);
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Contract Party Roles',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
END DELETE_K_PARTY_ROLES;
FUNCTION DELETE_K_PROCESSES( p_chr_id number) Return varchar2 IS
l_cpsv_tbl_in OKC_CONTRACT_PUB.cpsv_tbl_type;
SELECT ID
FROM OKC_K_PROCESSES_V
WHERE chr_id = p_id;
OKC_CONTRACT_PUB.Delete_Contract_Process (
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_cpsv_tbl => l_cpsv_tbl_in
);
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Contract Processes',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
END DELETE_K_PROCESSES;
FUNCTION DELETE_OUTCOME_ARGUMENTS( p_chr_id number) Return varchar2 IS
l_oatv_tbl_in OKC_OUTCOME_PUB.oatv_tbl_type;
SELECT ID
FROM OKC_OUTCOME_ARGUMENTS_V
WHERE dnz_chr_id = p_id;
OKC_OUTCOME_PUB.delete_out_arg (
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_oatv_tbl => l_oatv_tbl_in
);
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Outcome Arguments',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
END DELETE_OUTCOME_ARGUMENTS;
FUNCTION DELETE_OUTCOMES( p_chr_id number) Return varchar2 IS
l_ocev_tbl_in OKC_OUTCOME_PUB.ocev_tbl_type;
SELECT ID
FROM OKC_OUTCOMES_V
WHERE dnz_chr_id = p_id;
OKC_OUTCOME_PUB.delete_outcome (
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_ocev_tbl => l_ocev_tbl_in
);
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Outcomes',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
END DELETE_OUTCOMES;
FUNCTION DELETE_REACT_INTERVALS( p_chr_id number) Return varchar2 IS
l_rilv_tbl_in OKC_RULE_PUB.rilv_tbl_type;
SELECT TVE_ID, RUL_ID
FROM OKC_REACT_INTERVALS_V
WHERE dnz_chr_id = p_id;
OKC_RULE_PUB.delete_react_interval (
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_rilv_tbl => l_rilv_tbl_in
);
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Reaction Intervals',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
END DELETE_REACT_INTERVALS;
FUNCTION DELETE_RG_PARTY_ROLES( p_chr_id number) Return varchar2 IS
l_rmpv_tbl_in OKC_RULE_PUB.rmpv_tbl_type;
SELECT ID
FROM OKC_RG_PARTY_ROLES_V
WHERE dnz_chr_id = p_id;
OKC_RULE_PUB.delete_rg_mode_pty_role (
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_rmpv_tbl => l_rmpv_tbl_in
);
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Rule Group Party Roles',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
END DELETE_RG_PARTY_ROLES;
FUNCTION DELETE_RULE_GROUPS( p_chr_id number) Return varchar2 IS
l_rgpv_tbl_in OKC_RULE_PUB.rgpv_tbl_type;
SELECT ID
FROM OKC_RULE_GROUPS_V
WHERE dnz_chr_id = p_id;
OKC_RULE_PUB.delete_rule_group (
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_rgpv_tbl => l_rgpv_tbl_in
);
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Rule Groups',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
END DELETE_RULE_GROUPS;
FUNCTION DELETE_RULES( p_chr_id number) Return varchar2 IS
l_rulv_tbl_in OKC_RULE_PUB.rulv_tbl_type;
SELECT ID
FROM OKC_RULES_V
WHERE dnz_chr_id = p_id;
OKC_RULE_PUB.Delete_Rule (
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_rulv_tbl => l_rulv_tbl_in
);
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Rules',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
END DELETE_RULES;
FUNCTION DELETE_TIMEVALUES( p_chr_id number) Return varchar2 IS
l_tavv_tbl_in OKC_TIME_PUB.tavv_tbl_type;
SELECT ID
FROM OKC_TIMEVALUES_V
WHERE dnz_chr_id = p_id;
OKC_TIME_PUB.DELETE_TPA_VALUE (
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_tavv_tbl => l_tavv_tbl_in
);
p_msg_name => G_CANNOT_DELETE,
p_token1 => G_TABLE_NAME_TOKEN,
p_token1_value => 'Timevalues',
p_token2 => G_SQLCODE_TOKEN,
p_token2_value => sqlcode,
p_token3 => G_SQLERRM_TOKEN,
p_token3_value => sqlerrm);
END DELETE_TIMEVALUES;
PROCEDURE delete_contract(
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 OKC_CONTRACT_PUB.chrv_rec_type) IS
l_api_name VARCHAR2(30) := 'V_Delete_Contract';
l_delete_allowed VARCHAR2(1);
DELETE_NOT_ALLOWED Exception;
l_delete_allowed := OKC_ASSENT_PUB.HEADER_OPERATION_ALLOWED(p_header_id => p_chrv_rec.id,
p_opn_code => 'DELETE');
If l_delete_allowed <> 'T' Then
Raise DELETE_NOT_ALLOWED;
l_return_status := Delete_contacts(p_chrv_rec.ID);
l_return_status := Delete_Price_Att_Values(p_chrv_rec.ID);
l_return_status := Delete_Price_Adj_Attribs(p_chrv_rec.ID);
l_return_status := Delete_Price_Adj_Assocs(p_chrv_rec.ID);
l_return_status := Delete_Price_Adjustments(p_chrv_rec.ID);
l_return_status := Delete_k_party_roles(p_chrv_rec.ID);
l_return_status := Delete_outcome_arguments(p_chrv_rec.ID);
l_return_status := Delete_outcomes(p_chrv_rec.ID);
l_return_status := Delete_rules(p_chrv_rec.ID);
l_return_status := Delete_rg_party_roles(p_chrv_rec.ID);
l_return_status := Delete_rule_groups(p_chrv_rec.ID);
l_return_status := Delete_k_accesses(p_chrv_rec.ID);
l_return_status := Delete_k_processes(p_chrv_rec.ID);
l_return_status := Delete_function_expr_params(p_chrv_rec.ID);
l_return_status := Delete_condition_lines(p_chrv_rec.ID);
l_return_status := Delete_condition_headers(p_chrv_rec.ID);
l_return_status := Delete_governances(p_chrv_rec.ID);
l_return_status := Delete_k_items(p_chrv_rec.ID);
l_return_status := Delete_k_lines(p_chrv_rec.ID);
l_return_status := Delete_k_Grpings(p_chrv_rec.ID);
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_return_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);
l_return_status := Delete_k_headers(p_chrv_rec.ID);
WHEN DELETE_NOT_ALLOWED Then
OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
p_msg_name => 'OKC_NO_DELETE_WRONG_STATUS');
END Delete_Contract;