555: x_msg_data OUT NOCOPY VARCHAR2,
556: x_msg_count OUT NOCOPY NUMBER,
557: x_return_status OUT NOCOPY VARCHAR2) IS
558: -- pl/sql tables for bulk fetch
559: Type id_tbl Is Table of okc_k_lines_b.id%Type
560: Index By Binary_Integer;
561: /* Type price_unit_tbl Is Table of okc_k_lines_b.price_unit%Type
562: Index By Binary_Integer;
563: Type price_negotiated_tbl Is Table of okc_k_lines_b.price_negotiated%Type
557: x_return_status OUT NOCOPY VARCHAR2) IS
558: -- pl/sql tables for bulk fetch
559: Type id_tbl Is Table of okc_k_lines_b.id%Type
560: Index By Binary_Integer;
561: /* Type price_unit_tbl Is Table of okc_k_lines_b.price_unit%Type
562: Index By Binary_Integer;
563: Type price_negotiated_tbl Is Table of okc_k_lines_b.price_negotiated%Type
564: Index By Binary_Integer;
565: Type currency_code_tbl Is Table of okc_k_lines_b.currency_code%Type
559: Type id_tbl Is Table of okc_k_lines_b.id%Type
560: Index By Binary_Integer;
561: /* Type price_unit_tbl Is Table of okc_k_lines_b.price_unit%Type
562: Index By Binary_Integer;
563: Type price_negotiated_tbl Is Table of okc_k_lines_b.price_negotiated%Type
564: Index By Binary_Integer;
565: Type currency_code_tbl Is Table of okc_k_lines_b.currency_code%Type
566: Index By Binary_Integer;*/
567: Type Lead_Line_Id_tbl Is Table of NUMBER
561: /* Type price_unit_tbl Is Table of okc_k_lines_b.price_unit%Type
562: Index By Binary_Integer;
563: Type price_negotiated_tbl Is Table of okc_k_lines_b.price_negotiated%Type
564: Index By Binary_Integer;
565: Type currency_code_tbl Is Table of okc_k_lines_b.currency_code%Type
566: Index By Binary_Integer;*/
567: Type Lead_Line_Id_tbl Is Table of NUMBER
568: Index By Binary_Integer;
569: --
604: l_lead_id Number;
605: /*
606: cursor line_csr_sum_amt is
607: select SUM(DECODE(p_context, 'RENEW', cle.price_negotiated_renewed, cle.price_negotiated))
608: from okc_k_lines_b cle
609: where level = 1
610: start with cle.id in (select cle2.id
611: from okc_k_lines_b cle2,
612: okc_k_items itm,
607: select SUM(DECODE(p_context, 'RENEW', cle.price_negotiated_renewed, cle.price_negotiated))
608: from okc_k_lines_b cle
609: where level = 1
610: start with cle.id in (select cle2.id
611: from okc_k_lines_b cle2,
612: okc_k_items itm,
613: okc_statuses_b sts,
614: jtf_object_usages jou
615: where cle2.dnz_chr_id = p_contract_id
643: itm.object1_id1,
644: itm.object1_id2,
645: itm.uom_code,
646: itm.number_of_items
647: from okc_k_lines_b cle,
648: okc_k_items itm,
649: okc_statuses_b sts,
650: jtf_object_usages jou
651: where cle.chr_id = p_contract_id
669: cle.cle_id,
670: cle.price_unit,
671: cle.price_negotiated,
672: cle.currency_code
673: from okc_k_lines_b cle
674: where level = 1
675: start with cle.id in (select cle2.id
676: from okc_k_lines_b cle2,
677: okc_k_items itm,
672: cle.currency_code
673: from okc_k_lines_b cle
674: where level = 1
675: start with cle.id in (select cle2.id
676: from okc_k_lines_b cle2,
677: okc_k_items itm,
678: okc_statuses_b sts,
679: jtf_object_usages jou
680: where cle2.dnz_chr_id = p_contract_id
1170: */
1171: --
1172: cursor line_csr is
1173: select 'x'
1174: from okc_k_lines_b cle,
1175: okc_statuses_b sts
1176: -- where cle.dnz_chr_id = p_contract_id
1177: where cle.chr_id = p_contract_id
1178: and cle.sts_code = sts.code
1179: and sts.ste_code in ('ACTIVE', 'SIGNED');
1180: --
1181: cursor rel_csr is
1182: select 'x'
1183: from okc_k_lines_b cle
1184: -- where cle.dnz_chr_id = p_contract_id
1185: where cle.chr_id = p_contract_id
1186: and cle.date_renewed is null
1187: and not exists (select 'x'