1014: begin
1015:
1016: l_return_status := OKC_API.G_RET_STS_SUCCESS;
1017: --Fix for Bug 5282502
1018: delete from okc_ancestrys
1019: where cle_id in (
1020: select Ks.cle_id
1021: from okc_ancestrys KS, okc_k_lines_b Kl
1022: where kl.id = ks.cle_id
1017: --Fix for Bug 5282502
1018: delete from okc_ancestrys
1019: where cle_id in (
1020: select Ks.cle_id
1021: from okc_ancestrys KS, okc_k_lines_b Kl
1022: where kl.id = ks.cle_id
1023: And Kl.dnz_chr_id = p_chr_id);
1024:
1025: