761:
762: -- declare party cursor refer to contract headers
763: cursor hdr_pty_csr is
764: select id,jtot_object1_code
765: from okc_k_party_roles_b
766: where okc_k_party_roles_b.dnz_chr_id = f_k_header_id
767: and okc_k_party_roles_b.chr_id is not null
768: and okc_k_party_roles_b.cle_id is null;
769:
762: -- declare party cursor refer to contract headers
763: cursor hdr_pty_csr is
764: select id,jtot_object1_code
765: from okc_k_party_roles_b
766: where okc_k_party_roles_b.dnz_chr_id = f_k_header_id
767: and okc_k_party_roles_b.chr_id is not null
768: and okc_k_party_roles_b.cle_id is null;
769:
770: -- declare party cursor refer to contract lines
763: cursor hdr_pty_csr is
764: select id,jtot_object1_code
765: from okc_k_party_roles_b
766: where okc_k_party_roles_b.dnz_chr_id = f_k_header_id
767: and okc_k_party_roles_b.chr_id is not null
768: and okc_k_party_roles_b.cle_id is null;
769:
770: -- declare party cursor refer to contract lines
771: cursor cle_pty_csr is
764: select id,jtot_object1_code
765: from okc_k_party_roles_b
766: where okc_k_party_roles_b.dnz_chr_id = f_k_header_id
767: and okc_k_party_roles_b.chr_id is not null
768: and okc_k_party_roles_b.cle_id is null;
769:
770: -- declare party cursor refer to contract lines
771: cursor cle_pty_csr is
772: select id
769:
770: -- declare party cursor refer to contract lines
771: cursor cle_pty_csr is
772: select id
773: from okc_k_party_roles_b
774: where okc_k_party_roles_b.cle_id = f_k_line_id
775: and okc_k_party_roles_b.dnz_chr_id = p_k_header_id
776: and okc_k_party_roles_b.chr_id is null;
777:
770: -- declare party cursor refer to contract lines
771: cursor cle_pty_csr is
772: select id
773: from okc_k_party_roles_b
774: where okc_k_party_roles_b.cle_id = f_k_line_id
775: and okc_k_party_roles_b.dnz_chr_id = p_k_header_id
776: and okc_k_party_roles_b.chr_id is null;
777:
778: TYPE id_list_tbl_type is table of number index by binary_integer;
771: cursor cle_pty_csr is
772: select id
773: from okc_k_party_roles_b
774: where okc_k_party_roles_b.cle_id = f_k_line_id
775: and okc_k_party_roles_b.dnz_chr_id = p_k_header_id
776: and okc_k_party_roles_b.chr_id is null;
777:
778: TYPE id_list_tbl_type is table of number index by binary_integer;
779: id_list id_list_tbl_type;
772: select id
773: from okc_k_party_roles_b
774: where okc_k_party_roles_b.cle_id = f_k_line_id
775: and okc_k_party_roles_b.dnz_chr_id = p_k_header_id
776: and okc_k_party_roles_b.chr_id is null;
777:
778: TYPE id_list_tbl_type is table of number index by binary_integer;
779: id_list id_list_tbl_type;
780: i number;