160: ) RETURN Date IS
161: Cursor check_hold(p_cle_id IN NUMBER) Is
162: SELECT hold_billing
163: FROM oks_k_headers_b hdr,
164: okc_k_lines_b line
165: WHERE line.id = p_cle_id
166: AND line.dnz_chr_id = hdr.chr_id;
167:
168:
269: ,line.start_date cov_start_date
270: ,line.end_date cov_end_date
271: ,line.price_negotiated cov_price_negotiated
272: FROM
273: okc_k_lines_b line,
274: oks_bill_cont_lines bcl,
275: oks_bill_sub_lines bsl
276: WHERE bcl.Cle_id = p_top_line_id
277: AND bsl.cle_id = nvl(p_cov_line_id,bsl.cle_id)
353: ,line.line_number
354: ,hdr.currency_code
355: ,hdr.id
356: FROM okc_k_headers_b hdr ,
357: okc_k_lines_B line
358: WHERE line.id = p_cle_id
359: AND line.dnz_chr_id = hdr.id;
360:
361: Cursor qty_uom_csr(p_cle_id IN NUMBER) Is
370: CURSOR inv_item_csr(p_cle_id IN NUMBER) Is
371: SELECT primary_uom_code
372: FROM Okc_K_items Item
373: ,mtl_system_items mtl
374: ,okc_k_lines_b line
375: ,okc_k_headers_b hdr
376: WHERE item.cle_id = p_cle_id
377: AND line.id = item.cle_id
378: AND hdr.id = line.dnz_chr_id
923: line.dnz_chr_id
924: FROM Okc_K_items Item
925: ,mtl_system_items_b mtl --Okx_system_items_v mtl
926: ,okc_k_headers_b hdr
927: ,okc_k_lines_b line
928: WHERE item.cle_id = line.id --p_cle_id
929: AND line.id = p_cle_id
930: AND line.dnz_chr_id = hdr.id
931: --AND mtl.id1 = item.object1_id1
942: rline.usage_est_yn,
943: rline.usage_est_method,
944: rline.default_quantity,
945: rline.usage_est_start_date usage_est_start_date
946: FROM okc_k_lines_b line,
947: oks_k_lines_b rline
948: WHERE line.cle_id = p_top_id
949: AND line.id = nvl(p_cov_id,line.id)
950: AND line.lse_id = 13
1102: SELECT line.id,
1103: line.start_date,
1104: rline.usage_est_yn,
1105: rline.usage_est_method
1106: FROM okc_k_lines_b line,
1107: oks_k_lines_b rline
1108: WHERE line.cle_id = p_cle_id
1109: AND line.lse_id = 13
1110: AND line.id = nvl(p_cp_line_id,line.id)
1285: okl.price_negotiated,
1286: okh.currency_code,
1287: okh.contract_number,
1288: okh.contract_number_modifier
1289: FROM okc_k_lines_b okl,
1290: okc_k_headers_b okh
1291: WHERE okh.id = p_hdr_id
1292: AND okl.dnz_chr_id = okh.id
1293: AND okl.cle_id is null
1309: okl.price_negotiated,
1310: okh.contract_number,
1311: okh.contract_number_modifier
1312: FROM okc_k_headers_b okh,
1313: okc_k_lines_b okl
1314: WHERE okl.id = p_id
1315: AND okh.id = okl.dnz_chr_id;
1316:
1317:
1947:
1948: Cursor get_future_period_amount is
1949: SELECT nvl(sum(bsl.amount),0) amount
1950: FROM
1951: okc_k_lines_b okl2,
1952: oks_bill_sub_lines bsl,
1953: oks_bill_cont_lines bcl,
1954: okc_k_lines_b okl1
1955: WHERE okl1.id = p_line_id
1950: FROM
1951: okc_k_lines_b okl2,
1952: oks_bill_sub_lines bsl,
1953: oks_bill_cont_lines bcl,
1954: okc_k_lines_b okl1
1955: WHERE okl1.id = p_line_id
1956: AND bcl.cle_id = okl1.id
1957: AND bsl.bcl_id = bcl.id
1958: AND bsl.cle_id = okl2.id
1961:
1962: Cursor get_future_prd_amt_covlvl is
1963: SELECT nvl(sum(bsl.amount),0) amount
1964: FROM
1965: okc_k_lines_b okl,
1966: oks_bill_sub_lines bsl
1967: WHERE okl.id = p_line_id
1968: AND bsl.cle_id = okl.id
1969: AND okl.date_terminated is NULL
1977: okl.end_date end_date,
1978: okl.id id
1979: FROM
1980: oks_bill_sub_lines bsl,
1981: okc_k_lines_b okl
1982: WHERE okl.id = p_line_id
1983: AND okl.id = bsl.cle_id
1984: AND okl.date_terminated is null
1985: AND trunc(bsl.date_billed_to) >= trunc(p_terminate_date)
1992: okl1.start_date start_date,
1993: okl1.end_date end_date,
1994: okl1.id id
1995: FROM
1996: okc_k_lines_b okl2,
1997: oks_bill_sub_lines bsl,
1998: oks_bill_cont_lines bcl,
1999: okc_k_lines_b okl1
2000: WHERE okl1.id = p_line_id
1995: FROM
1996: okc_k_lines_b okl2,
1997: oks_bill_sub_lines bsl,
1998: oks_bill_cont_lines bcl,
1999: okc_k_lines_b okl1
2000: WHERE okl1.id = p_line_id
2001: AND bcl.cle_id = okl1.id
2002: AND bsl.bcl_id = bcl.id
2003: AND okl2.id = bsl.cle_id
2020: WHERE cle_id = p_line_id;
2021:
2022: Cursor l_rel_csr (p_line_id in NUMBER) Is
2023: SELECT obj.id FROM OKC_K_REL_OBJS_V obj,
2024: OKC_K_LINES_B ln
2025: WHERE obj.cle_id = ln.id
2026: AND ln.cle_id = p_line_id;
2027:
2028: Cursor line_extwar_cur( p_line_id in NUMBER) is
2029: SELECT price_negotiated
2030: ,start_date
2031: ,end_date
2032: ,dnz_chr_id
2033: FROM Okc_k_lines_b
2034: WHERE cle_id = p_line_id
2035: AND lse_id = 25
2036: AND date_cancelled is NULL --LLC BUG FIX 4742661
2037: AND date_terminated is NULL;
2041: SELECT price_negotiated
2042: ,start_date
2043: ,end_date
2044: ,dnz_chr_id
2045: FROM Okc_k_lines_b
2046: WHERE id = p_line_id
2047: AND lse_id = 25
2048: AND date_cancelled is NULL --LLC BUG FIX 4742661
2049: AND date_terminated is NULL;
2049: AND date_terminated is NULL;
2050:
2051: Cursor line_lse_id_cur (p_id IN NUMBER) is
2052: SELECT lse_id
2053: FROM okc_k_lines_b
2054: WHERE id = p_id;
2055:
2056:
2057: cur_rec get_current_period_amount%ROWTYPE;
2329: ,bsl.Attribute13
2330: ,bsl.Attribute14
2331: ,bsl.Attribute15
2332: FROM oks_bill_sub_lines bsl,
2333: okc_k_lines_b okl
2334: WHERE bcl_id = id_in
2335: AND bsl.cle_id = okl.id
2336: AND okl.date_cancelled is null --LLC BUG FIX 4742661
2337: AND okl.date_terminated is null;
2677: rline.cc_bank_acct_id line_bank_number,
2678: line.bill_to_site_use_id site_use_id
2679: FROM
2680: oks_k_lines_b rline,
2681: okc_k_lines_b line
2682: WHERE line.dnz_chr_id = p_hdr_id
2683: AND line.lse_id in (1,12,19)
2684: AND line.date_cancelled is NULL --LLC BUG FIX 4742661
2685: AND line.id = rline.cle_id;
2841: ,cle.end_date
2842: ,cle.price_negotiated
2843: ,cle.cle_id
2844: ,TO_NUMBER(cim.object1_id1) instance_id
2845: FROM Okc_k_lines_b cle,
2846: okc_k_items cim
2847: WHERE cle.id = p_line_id
2848: AND cle.lse_id = 25
2849: AND cle.id = cim.cle_id;
2853: ,start_date
2854: ,end_date
2855: ,price_negotiated
2856: ,cle_id
2857: FROM Okc_k_lines_b
2858: WHERE (cle_id = p_line_id
2859: And lse_id = 25
2860: AND date_cancelled is null --LLC BUG FIX 4742661
2861: And date_terminated is null) OR
2870: ,okl1.start_date
2871: ,okl1.end_date
2872: ,okl1.dnz_chr_id
2873: ,okl1.id
2874: FROM Okc_k_lines_b okl1
2875: WHERE okl1.id = p_line_id
2876: AND okl1.lse_id = 19
2877: AND exists (Select 1 from okc_k_lines_b okl2
2878: Where okl2.cle_id = okl1.id
2873: ,okl1.id
2874: FROM Okc_k_lines_b okl1
2875: WHERE okl1.id = p_line_id
2876: AND okl1.lse_id = 19
2877: AND exists (Select 1 from okc_k_lines_b okl2
2878: Where okl2.cle_id = okl1.id
2879: And okl2.lse_id = 25
2880: AND okl2.date_cancelled is null --LLC BUG FIX 4742661
2881: And okl2.date_terminated is null);
2910:
2911: Cursor cur_lineno(p_id IN NUMBER) IS
2912: SELECT p.line_number||'.'||s.line_number,
2913: hdr.contract_number
2914: FROM okc_k_lines_b p,
2915: okc_k_lines_b s,
2916: okc_k_headers_b hdr
2917: WHERE s.id=p_id
2918: AND p.id=s.cle_id
2911: Cursor cur_lineno(p_id IN NUMBER) IS
2912: SELECT p.line_number||'.'||s.line_number,
2913: hdr.contract_number
2914: FROM okc_k_lines_b p,
2915: okc_k_lines_b s,
2916: okc_k_headers_b hdr
2917: WHERE s.id=p_id
2918: AND p.id=s.cle_id
2919: AND hdr.id=p.dnz_chr_id;
2924:
2925:
2926: CURSOR l_hdr_csr(p_id in NUMBER ) is
2927: SELECT dnz_chr_id
2928: FROM OKC_K_LINES_B
2929: WHERE id = p_id;
2930:
2931:
2932: l_extwar_rec l_extwar_csr%rowtype;
3204: Select Start_date
3205: ,End_date
3206: ,Price_negotiated
3207: ,Date_terminated
3208: From Okc_k_lines_b
3209: Where cle_id = p_k_line_id
3210: And date_cancelled is null --LLC BUG FIX 4742661
3211: And date_terminated IS NULL
3212: And lse_id in (7,8,9,10,11,13,35,25);
3219: ,line.Date_Terminated
3220: ,line.dnz_chr_id
3221: ,line.lse_id
3222: ,hdr.currency_code
3223: FROM Okc_k_lines_B line,
3224: okc_k_headers_b hdr
3225: WHERE line.Cle_id = p_k_line_id
3226: AND line.dnz_chr_id = hdr.id;*/
3227:
3227:
3228: /* Added Cursor for Bug#14647106 */
3229: CURSOR l_date_csr Is
3230: SELECT max(line.End_date) end_date
3231: FROM okc_k_lines_B line,
3232: okc_k_headers_b hdr
3233: WHERE line.Cle_id = p_k_line_id
3234: AND line.dnz_chr_id = hdr.id;
3235:
3234: AND line.dnz_chr_id = hdr.id;
3235:
3236: CURSOR l_start_date_csr(p_id in NUMBER ) is
3237: SELECT start_date,lse_id
3238: FROM OKC_K_LINES_B
3239: WHERE id = p_k_line_id;
3240:
3241:
3242: CURSOR l_hdr_csr(p_id in NUMBER ) is
3240:
3241:
3242: CURSOR l_hdr_csr(p_id in NUMBER ) is
3243: SELECT dnz_chr_id
3244: FROM OKC_K_LINES_B
3245: WHERE id = p_id;
3246:
3247: --mchoudha 10-FEB
3248: /* Modified cursor for Bug#14647106 */
3247: --mchoudha 10-FEB
3248: /* Modified cursor for Bug#14647106 */
3249: Cursor l_usage_csr(p_id in NUMBER) is
3250: SELECT s.usage_type,c.lse_id
3251: FROM oks_k_lines_b s, okc_k_lines_b c
3252: WHERE c.id = p_id
3253: AND s.cle_id = c.id;
3254:
3255: l_start_date_rec l_start_date_csr%ROWTYPE;
3556: and trunc(date_billed_to) >= trunc(l_termination_date);
3557:
3558: CURSOR l_lines_csr( p_id NUMBER ) is
3559: SELECT start_date
3560: FROM okc_k_lines_b
3561: WHERE id = p_id ;
3562:
3563: SUBTYPE l_bclv_tbl_type_in is OKS_bcl_PVT.bclv_tbl_type;
3564: l_bclv_tbl_in l_bclv_tbl_type_in;
4046: /*******************Modified this cursor as below for BUG # 3029249 ***
4047: Cursor line_cur(p_hdr_id IN NUMBER) is
4048: SELECT id,
4049: lse_id
4050: FROM okc_k_lines_b
4051: WHERE dnz_chr_id = p_hdr_id
4052: AND cle_id is null
4053: AND date_terminated is null --Sts_cd can be active for future terminate
4054: AND sts_code in ('ACTIVE','SIGNED');
4059: lines.lse_id,
4060: /* Start Addition for bug fix 6012384 (FP for 5469820) */
4061: lines.end_date
4062: /* End Addition for bug fix 6012384 (FP for 5469820) */
4063: FROM okc_k_lines_b lines,
4064: okc_k_headers_b hdr
4065: WHERE hdr.id = p_hdr_id
4066: AND lines.dnz_chr_id = hdr.id
4067: AND lines.date_cancelled is null --LLC BUG FIX 4742661
4088: lines.lse_id,
4089: lines.line_number,
4090: lines.date_terminated
4091: FROM okc_k_headers_b hdr,
4092: okc_k_lines_b lines
4093: WHERE lines.id = p_line_id
4094: AND hdr.id = lines.dnz_chr_id
4095: AND hdr.sts_code <> 'QA_HOLD'
4096: AND (exists ( SELECT 1 from okc_assents a
4176: AND bcl.id = bsl.bcl_id ;
4177:
4178: CURSOR l_get_line_start_date(p_id in number ) is
4179: SELECT start_date
4180: FROM okc_k_lines_b
4181: WHERE id = p_id ;
4182:
4183:
4184: /* Added for BUG 3364773 */
4183:
4184: /* Added for BUG 3364773 */
4185: Cursor check_all_sublines_terminated(p_cle_id IN NUMBER) is
4186: SELECT id
4187: FROM okc_k_lines_b
4188: WHERE cle_id = p_cle_id
4189: AND lse_id in (7,8,9,10,11,13,35,25)
4190: /* Start changes For bug fix 6012384 (FP for 5990067) */
4191: AND sts_code IN(SELECT code FROM okc_statuses_b where ste_code NOT IN('TERMINATED','EXPIRED','CANCELLED')); ---bug 12310525
4194:
4195: /* Added for BUG 3364773 */
4196: Cursor check_all_lines_terminated(p_hdr_id IN NUMBER) is
4197: SELECT id
4198: FROM okc_k_lines_b
4199: WHERE dnz_chr_id = p_hdr_id
4200: /* Start changes For bug fix 6012384 (FP for 5990067) */
4201: AND lse_id in (1,12,14,19,46)
4202: --AND lse_id in (1,12,14,19)
4217: AND sr.status_flag = 'O';
4218:
4219: Cursor cur_lineno(p_id IN NUMBER) IS
4220: SELECT lin.line_number,hdr.contract_number
4221: FROM okc_k_lines_b lin,
4222: okc_k_headers_b hdr
4223: WHERE lin.id=p_id
4224: AND hdr.id=lin.dnz_chr_id;
4225:
4291: ((trunc(bsl.date_billed_to) - trunc(p_termination_date) + 1) * bsl.amount) /
4292: (trunc(bsl.date_billed_to) - trunc(bsl.date_billed_from) + 1) ,bsl.amount )),0)
4293: from oks_bill_cont_lines bcl,
4294: oks_bill_sub_lines bsl,
4295: okc_k_lines_b line
4296: where bsl.bcl_id = bcl.id
4297: and line.id = bcl.cle_id
4298: and bcl.bill_action <> 'TR'
4299: and line.dnz_chr_id = p_hdr_id
4307: ((trunc(bsl.date_billed_to) - trunc(p_termination_date) + 1) * bsl.amount) /
4308: (trunc(bsl.date_billed_to) - trunc(bsl.date_billed_from) + 1) ,bsl.amount )),0)
4309: from oks_bill_cont_lines bcl,
4310: oks_bill_sub_lines bsl,
4311: okc_k_lines_b line
4312: where bsl.bcl_id = bcl.id
4313: and line.id = bcl.cle_id
4314: and bcl.bill_action <> 'TR'
4315: and line.dnz_chr_id = p_hdr_id
4826: CLOSE check_all_sublines_terminated;
4827: END IF;
4828:
4829: update oks_k_lines_b topline set topline.tax_amount = ( select sum(tax_amount) from
4830: oks_k_lines_b oksline, okc_k_lines_b okcline
4831: where okcline.id = oksline.cle_id
4832: and okcline.cle_id = p_id
4833: and okcline.date_cancelled is null )
4834: where topline.cle_id = p_id;
4833: and okcline.date_cancelled is null )
4834: where topline.cle_id = p_id;
4835:
4836: update oks_k_headers_b hdr set hdr.tax_amount = ( select sum(tax_amount) from
4837: oks_k_lines_b oksline, okc_k_lines_b okcline
4838: where okcline.id = oksline.cle_id
4839: and okcline.dnz_chr_id = l_line_parameter_rec.p_dnz_chr_id
4840: and okcline.date_cancelled is null
4841: and lse_id in (1,12,19,46) )
5092:
5093: END IF;
5094:
5095: update oks_k_lines_b topline set topline.tax_amount = ( select sum(tax_amount) from
5096: oks_k_lines_b oksline, okc_k_lines_b okcline
5097: where okcline.id = oksline.cle_id
5098: and okcline.cle_id = line_rec.id
5099: and okcline.date_cancelled is null )
5100: where topline.cle_id = line_rec.id;
5164: , override_amount = override_amount - (l_termination_amount - g_credit_amount)
5165: where cle_id = l_bcl_cle_id;
5166: End If;
5167: End If;
5168: update okc_k_lines_b
5169: set price_negotiated = price_negotiated - ( l_termination_amount - g_credit_amount )
5170: where id = l_bcl_cle_id
5171: and lse_id <> 12;
5172: If l_bsl_cle_id <> l_bcl_cle_id then
5169: set price_negotiated = price_negotiated - ( l_termination_amount - g_credit_amount )
5170: where id = l_bcl_cle_id
5171: and lse_id <> 12;
5172: If l_bsl_cle_id <> l_bcl_cle_id then
5173: update okc_k_lines_b
5174: set price_negotiated = price_negotiated - ( l_termination_amount - g_credit_amount )
5175: where id = l_bsl_cle_id
5176: and lse_id <>13;
5177: End If;
5239: , override_amount = override_amount - (l_termination_amount - g_credit_amount)
5240: where cle_id = l_bcl_cle_id;
5241: End If;
5242: End If;
5243: update okc_k_lines_b
5244: set price_negotiated = price_negotiated + ( g_credit_amount - l_termination_amount )
5245: where id = l_bcl_cle_id
5246: and lse_id <> 12;
5247: If l_bsl_cle_id <> l_bcl_cle_id then
5244: set price_negotiated = price_negotiated + ( g_credit_amount - l_termination_amount )
5245: where id = l_bcl_cle_id
5246: and lse_id <> 12;
5247: If l_bsl_cle_id <> l_bcl_cle_id then
5248: update okc_k_lines_b
5249: set price_negotiated = price_negotiated + ( g_credit_amount - l_termination_amount )
5250: where id = l_bsl_cle_id
5251: and lse_id <>13;
5252: End If;
5281: End If;
5282: END IF;
5283:
5284: update oks_k_lines_b topline set topline.tax_amount = ( select sum(tax_amount) from
5285: oks_k_lines_b oksline, okc_k_lines_b okcline
5286: where okcline.id = oksline.cle_id
5287: and okcline.cle_id = l_bcl_cle_id
5288: and okcline.date_cancelled is null )
5289: where topline.cle_id = l_bcl_cle_id;
5355:
5356: END IF ; -- l_terminate = TRUE|| ((l_terminate = FALSE) AND (check_all_lines_terminated%NOTFOUND)))
5357:
5358: update oks_k_headers_b hdr set hdr.tax_amount = ( select sum(tax_amount) from
5359: oks_k_lines_b oksline, okc_k_lines_b okcline
5360: where okcline.id = oksline.cle_id
5361: and okcline.dnz_chr_id = p_id
5362: and okcline.date_cancelled is null
5363: and lse_id in (1,12,19,46) )
5404: SELECT LIne.lse_id,
5405: rline.termn_method,
5406: rline.usage_type,
5407: rline.usage_period
5408: FROM okc_k_lines_b line,
5409: oks_k_lines_b rline
5410: WHERE line.id = p_k_line_id
5411: AND rline.cle_id = line.id;
5412:
5412:
5413: CURSOR l_rel_csr Is
5414: SELECT obj.id
5415: From OKC_K_REL_OBJS_V obj,
5416: OKC_K_LINES_B ln
5417: Where obj.cle_id = ln.id
5418: And ln.cle_id = p_k_line_id;
5419:
5420: CURSOR l_line_csr (p_id in NUMBER ) is
5418: And ln.cle_id = p_k_line_id;
5419:
5420: CURSOR l_line_csr (p_id in NUMBER ) is
5421: SELECT start_date
5422: FROM okc_k_lines_b
5423: WHERE id = p_id ;
5424:
5425:
5426: l_lse_id NUMBER;
7780: rules.rule_information7 Secondary_dur,
7781: rules.rule_information6 Primary_period,
7782: rules.rule_information8 Secondary_period
7783:
7784: From OKC_K_LINES_B line,
7785: OKC_K_HEADERS_B Hdr,
7786: OKC_RULES_B rules,
7787: OKC_RULE_GROUPS_B rlgrp
7788:
7809: price_negotiated,
7810: start_date,
7811: end_date,
7812: date_terminated
7813: From OKC_K_LINES_B
7814: Where cle_id = p_cle_id
7815: And lse_id in (8,7,9,10,11,13,35);
7816:
7817: CURSOR l_billed_csr (p_cle_id IN NUMBER)
8162: SELECT line1.lse_id, line1.cle_id ,rline.termn_method,
8163: rline.usage_type, rline.usage_period,
8164: line1.end_date,line1.sts_code,
8165: hdr.id
8166: FROM okc_k_lines_b line2,
8167: okc_k_lines_b line1,
8168: okc_k_headers_b hdr,
8169: oks_k_lines_b rline
8170: WHERE line1.id = p_cle_id
8163: rline.usage_type, rline.usage_period,
8164: line1.end_date,line1.sts_code,
8165: hdr.id
8166: FROM okc_k_lines_b line2,
8167: okc_k_lines_b line1,
8168: okc_k_headers_b hdr,
8169: oks_k_lines_b rline
8170: WHERE line1.id = p_cle_id
8171: AND line2.id = line1.cle_id
8254: l_msg_data VARCHAR2(2000);
8255: l_return_status VARCHAR2(10);
8256:
8257: l_check_term_cur CHECK_TERM_CUR%ROWTYPE;
8258: l_lse_id OKC_K_LINES_B.lse_id%TYPE;
8259: l_id NUMBER;
8260: l_amount NUMBER;
8261: l_term_date DATE;
8262: l_ctr BOOLEAN;
8429: -- Code change for bug # 3393329 starts --
8430: -- The following code was added as part of bug #3393329.Since
8431: -- the direct update was done before , the minor version number
8432: -- were not getting updated in contract. Before this code was added
8433: -- update to okc_k_lines_b was done directly.
8434: l_clev_tbl_in( 1 ).id := p_cle_id;
8435: l_clev_tbl_in( 1 ).date_terminated := p_termination_date;
8436: l_clev_tbl_in( 1 ).trn_code := p_terminate_reason;
8437: l_clev_tbl_in( 1 ).term_cancel_source := P_Term_Cancel_source;
8544: END IF; -- check_term_cur%NOTFOUND
8545: CLOSE check_term_cur;
8546:
8547: update oks_k_lines_b topline set topline.tax_amount = ( select sum(tax_amount) from
8548: oks_k_lines_b oksline, okc_k_lines_b okcline
8549: where okcline.id = oksline.cle_id
8550: and okcline.cle_id = l_top_line_id
8551: and okcline.date_cancelled is null )
8552: where topline.cle_id = l_top_line_id;
8551: and okcline.date_cancelled is null )
8552: where topline.cle_id = l_top_line_id;
8553:
8554: update oks_k_headers_b hdr set hdr.tax_amount = ( select sum(tax_amount) from
8555: oks_k_lines_b oksline, okc_k_lines_b okcline
8556: where okcline.id = oksline.cle_id
8557: and okcline.dnz_chr_id = l_hdr_id
8558: and okcline.date_cancelled is null
8559: and lse_id in (1,12,19,46) )
8602: Cursor l_line_csr(p_id in NUMBER) is
8603: SELECT start_date,end_date,sts_code,
8604: lse_id,
8605: dnz_chr_id
8606: FROM okc_k_lines_b
8607: WHERE id = p_id ;
8608:
8609:
8610: Cursor l_usage_csr(p_id in NUMBER) is
8636:
8637: Cursor cur_lineno(p_id IN NUMBER) IS
8638: SELECT p.line_number||'.'||s.line_number,
8639: hdr.contract_number
8640: FROM okc_k_lines_b p,
8641: okc_k_lines_b s,
8642: okc_k_headers_b hdr
8643: WHERE s.id=p_id
8644: AND p.id=s.cle_id
8637: Cursor cur_lineno(p_id IN NUMBER) IS
8638: SELECT p.line_number||'.'||s.line_number,
8639: hdr.contract_number
8640: FROM okc_k_lines_b p,
8641: okc_k_lines_b s,
8642: okc_k_headers_b hdr
8643: WHERE s.id=p_id
8644: AND p.id=s.cle_id
8645: AND hdr.id=p.dnz_chr_id;
8942: -- Code change for bug # 3393329 starts --
8943: -- The following code was added as part of bug #3393329.Since
8944: -- the direct update was done before , the minor version number
8945: -- were not getting updated in contract. Before this code was added
8946: -- update to okc_k_lines_b was done directly.
8947: l_clev_tbl_in( 1 ).id := p_cp_line_id;
8948: l_clev_tbl_in( 1 ).date_terminated := p_termination_date;
8949: l_clev_tbl_in( 1 ).trn_code := p_terminate_reason;
8950: l_clev_tbl_in( 1 ).term_cancel_source := P_Term_Cancel_source;
9050: SELECT nvl(SUM(ubt_amount),0) unbilled
9051: ,nvl(SUM(credit_amount),0) credited
9052: ,nvl(SUM(suppressed_credit),0) suppressed
9053: ,nvl(SUM(override_amount),0) overridden
9054: FROM OKC_K_LINES_B OKCL
9055: ,OKS_K_LINES_B OKSL
9056: WHERE OKCL.dnz_chr_id = p_id
9057: AND OKCL.lse_id in ( 7,8,9,10,11,13,25,35,46)
9058: AND OKCL.id = OKSL.cle_id
9055: ,OKS_K_LINES_B OKSL
9056: WHERE OKCL.dnz_chr_id = p_id
9057: AND OKCL.lse_id in ( 7,8,9,10,11,13,25,35,46)
9058: AND OKCL.id = OKSL.cle_id
9059: AND NOT exists (select 'x' from okc_k_lines_b cle,
9060: oks_k_lines_b kln
9061: where cle.id = OKCL.cle_id
9062: and kln.cle_id = cle.id
9063: and kln.usage_type in ('VRT','QTY','FRT'));
9065: --mchoudha 11510+ Usage Tax and Price Display
9066: --added NOT Exists clause and lse_id 13
9067: CURSOR L_HDR_BILLED_CSR IS
9068: SELECT nvl(SUM(BSL.amount),0) billed
9069: FROM OKC_K_LINES_B OKCL
9070: ,OKS_BILL_CONT_LINES BCL
9071: ,OKS_BILL_SUB_LINES BSL
9072: WHERE OKCL.dnz_chr_id = p_id
9073: AND OKCL.lse_id in ( 7,8,9,10,11,13,25,35,46)
9073: AND OKCL.lse_id in ( 7,8,9,10,11,13,25,35,46)
9074: AND OKCL.id = BSL.cle_id
9075: AND BSL.bcl_id = BCL.id
9076: AND BCL.bill_action = 'RI'
9077: AND NOT exists (select 'x' from okc_k_lines_b cle,
9078: oks_k_lines_b kln
9079: where cle.id = OKCL.cle_id
9080: and kln.cle_id = cle.id
9081: and kln.usage_type in ('VRT','QTY','FRT'));
9088: SELECT nvl(SUM(ubt_amount),0) unbilled
9089: ,nvl(SUM(credit_amount),0) credited
9090: ,nvl(SUM(suppressed_credit),0) suppressed
9091: ,nvl(SUM(override_amount),0) overridden
9092: FROM OKC_K_LINES_B OKCL
9093: ,OKS_K_LINES_B OKSL
9094: WHERE ( OKCL.cle_id = p_id
9095: OR (OKCL.id = p_id and OKCL.lse_id = 46 ))
9096: AND OKCL.lse_id in ( 7,8,9,10,11,13,25,35,46)
9094: WHERE ( OKCL.cle_id = p_id
9095: OR (OKCL.id = p_id and OKCL.lse_id = 46 ))
9096: AND OKCL.lse_id in ( 7,8,9,10,11,13,25,35,46)
9097: AND OKCL.id = OKSL.cle_id
9098: AND NOT exists (select 'x' from okc_k_lines_b cle,
9099: oks_k_lines_b kln
9100: where cle.id = OKCL.cle_id
9101: and kln.cle_id = cle.id
9102: and kln.usage_type in ('VRT','QTY','FRT'));
9105: --mchoudha 11510+ Usage Tax and Price Display
9106: --added NOT Exists clause and lse_id 13
9107: CURSOR l_TOP_LINE_BILLED_CSR IS
9108: SELECT nvl(SUM(BSL.amount),0) billed
9109: FROM OKC_K_LINES_B OKCL
9110: ,OKS_BILL_CONT_LINES BCL
9111: ,OKS_BILL_SUB_LINES BSL
9112: WHERE ( OKCL.cle_id = p_id
9113: OR ( OKCL.ID = p_id and OKCL.lse_id = 46))
9114: AND OKCL.lse_id in ( 7,8,9,10,11,13,25,35,46)
9115: AND OKCL.id = BSL.cle_id
9116: AND BSL.bcl_id = BCL.id
9117: AND BCL.bill_action = 'RI'
9118: AND NOT exists (select 'x' from okc_k_lines_b cle,
9119: oks_k_lines_b kln
9120: where cle.id = OKCL.cle_id
9121: and kln.cle_id = cle.id
9122: and kln.usage_type in ('VRT','QTY','FRT'));
9183: SELECT id top_line_id ,
9184: dnz_chr_id hdr_id,
9185: lse_id lse_id,
9186: price_negotiated price_negotiated
9187: FROM okc_k_lines_b okcl
9188: WHERE dnz_chr_id = p_top_line_id
9189: AND okcl.lse_id in (1,12,14,19,46)
9190: AND okcl.date_cancelled is null --LLC BUG FIX 4742661
9191: AND okcl.date_terminated is null ;
9195: CURSOR l_top_line_csr (p_top_line_id in NUMBER ) is
9196: SELECT id sub_line_id ,
9197: dnz_chr_id hdr_id,
9198: start_date start_date
9199: FROM okc_k_lines_b okcl
9200: WHERE cle_id = p_top_line_id
9201: AND okcl.lse_id in (7,8,9,10,11,13,35,25)
9202: AND okcl.date_cancelled is NULL --LLC BUG FIX 4742661
9203: AND okcl.date_terminated is null ;
9205: CURSOR l_sub_line_csr (p_sub_line_id in NUMBER ) is
9206: SELECT Price_negotiated orginal_amount ,
9207: cle_id top_line_id ,
9208: dnz_chr_id hdr_id
9209: FROM okc_k_lines_b okcl
9210: WHERE id = p_sub_line_id ;
9211:
9212: CURSOR l_bill_amount_csr(p_sub_line_id in NUMBER ) is
9213: SELECT sum(nvl(amount,0)) bill_amount
9235: CURSOR l_lse_id_csr (p_id IN number )is
9236: SELECT lse_id ,
9237: price_negotiated,
9238: dnz_chr_id
9239: FROM OKC_K_LINES_B OKCL
9240: WHERE OKCL.id = p_id ;
9241:
9242: CURSOR L_HDR_CURR_CODE (p_id in number ) is
9243: SELECT currency_code
9245: WHERE id = p_id;
9246:
9247: CURSOR l_line_curr_code (p_id in number ) is
9248: SELECT hdr.currency_code ,hdr.id
9249: FROM okc_k_lines_b lines,
9250: okc_k_headers_b hdr
9251: WHERE lines.id = p_id
9252: AND hdr.id = lines.dnz_chr_id;
9253:
9252: AND hdr.id = lines.dnz_chr_id;
9253:
9254: CURSOR l_check_for_full_credit(p_top_line_id in NUMBER ) is
9255: SELECT count(oks.full_credit)
9256: FROM OKC_K_LINES_B OKC,
9257: OKS_K_LINES_B OKS
9258: WHERE OKC.cle_ID = p_top_line_id
9259: AND OKC.id = OKS.CLE_id
9260: and OKC.lse_id in (7,8,9,10,11,13,18,25,35)
9266: --mchoudha 11510+ Usage Tax and Price Display
9267: --added the following two cursors to retrieve the usage type
9268: Cursor l_usage_type_csr(p_sub_line_id in number) Is
9269: Select kln.usage_type
9270: from okc_k_lines_b cle1,
9271: okc_k_lines_b cle2,
9272: oks_k_lines_b kln
9273: where cle1.id = p_sub_line_id
9274: and cle2.id = cle1.cle_id
9267: --added the following two cursors to retrieve the usage type
9268: Cursor l_usage_type_csr(p_sub_line_id in number) Is
9269: Select kln.usage_type
9270: from okc_k_lines_b cle1,
9271: okc_k_lines_b cle2,
9272: oks_k_lines_b kln
9273: where cle1.id = p_sub_line_id
9274: and cle2.id = cle1.cle_id
9275: and kln.cle_id = cle2.id;
9456: l_true_value := OKS_EXTWAR_UTIL_PVT.round_currency_amt(l_true_value,l_currency_code);
9457:
9458: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
9459: fnd_log.string(fnd_log.level_statement,G_MODULE_CURRENT||'.TRUE_VALUE',
9460: 'Before updating okc_k_lines_b for subline l_true_value = ' || l_true_value);
9461: END IF;
9462:
9463: UPDATE OKC_K_LINES_B
9464: SET price_negotiated = l_true_value
9459: fnd_log.string(fnd_log.level_statement,G_MODULE_CURRENT||'.TRUE_VALUE',
9460: 'Before updating okc_k_lines_b for subline l_true_value = ' || l_true_value);
9461: END IF;
9462:
9463: UPDATE OKC_K_LINES_B
9464: SET price_negotiated = l_true_value
9465: WHERE id = p_true_value_tbl(1).p_cp_line_id;
9466:
9467: ----Credit Amounts on the contract header are to be populated correctly if there are negative amount sublines and also in case of full credit ..So modified the below condi for bug 11773025
9521: TAX_AMOUNT = l_tax_value,
9522: FULL_CREDIT = nvl(p_true_value_tbl(1).p_full_credit,'N')
9523: WHERE cle_id = p_true_value_tbl(1).p_cp_line_id;
9524:
9525: UPDATE OKC_K_LINES_B
9526: SET price_negotiated=(SELECT SUM(price_negotiated)
9527: FROM okc_k_lines_b
9528: WHERE cle_id = l_top_line_id
9529: AND date_cancelled is null) --LLC BUG FIX 4742661
9523: WHERE cle_id = p_true_value_tbl(1).p_cp_line_id;
9524:
9525: UPDATE OKC_K_LINES_B
9526: SET price_negotiated=(SELECT SUM(price_negotiated)
9527: FROM okc_k_lines_b
9528: WHERE cle_id = l_top_line_id
9529: AND date_cancelled is null) --LLC BUG FIX 4742661
9530: WHERE id = l_top_line_id ;
9531:
9539: WHERE cle_id = l_top_line_id;
9540:
9541: UPDATE OKC_K_HEADERS_B
9542: SET estimated_amount=(SELECT SUM(price_negotiated)
9543: FROM OKC_K_LINES_B
9544: WHERE dnz_chr_id = l_hdr_id
9545: AND lse_id in ( 1,12,14,19,46))
9546: WHERE id = l_hdr_id ;
9547: End If;
9636: END IF;
9637:
9638: l_true_value :=OKS_EXTWAR_UTIL_PVT.round_currency_amt(l_true_value,
9639: l_currency_code);
9640: UPDATE OKC_K_LINES_B
9641: SET price_negotiated = l_true_value
9642: WHERE id = l_top_line_rec.sub_line_id;
9643:
9644: G_RAIL_REC.AMOUNT := l_true_value;
9709:
9710: END LOOP;
9711:
9712: If l_process then
9713: UPDATE OKC_K_LINES_B
9714: SET price_negotiated=(SELECT SUM(price_negotiated)
9715: FROM okc_k_lines_b
9716: WHERE cle_id = l_top_line_id
9717: AND date_cancelled is null) --LLC BUG FIX 4742661
9711:
9712: If l_process then
9713: UPDATE OKC_K_LINES_B
9714: SET price_negotiated=(SELECT SUM(price_negotiated)
9715: FROM okc_k_lines_b
9716: WHERE cle_id = l_top_line_id
9717: AND date_cancelled is null) --LLC BUG FIX 4742661
9718: WHERE id = p_true_value_tbl(1).p_top_line_id ;
9719:
9782: nvl(l_tot_credit,0) - nvl(l_tot_suppressed_credit,0);
9783:
9784: l_tot_true_value:=OKS_EXTWAR_UTIL_PVT.round_currency_amt(l_tot_true_value,
9785: l_currency_code);
9786: UPDATE OKC_K_LINES_B
9787: SET price_negotiated = l_tot_true_value
9788: WHERE id = p_true_value_tbl(1).p_top_line_id;
9789:
9790: G_RAIL_REC.AMOUNT := l_true_value;
9847: IF p_true_value_tbl(1).p_hdr_id = 0 then
9848: IF l_lse_id_rec.lse_id in ( 1,12,19,46 ) then
9849: UPDATE OKC_K_HEADERS_B
9850: SET estimated_amount=(SELECT SUM(price_negotiated)
9851: FROM OKC_K_LINES_B
9852: WHERE dnz_chr_id = l_hdr_id
9853: AND lse_id in ( 1,12,14,19,46))
9854: WHERE id = l_hdr_id ;
9855: END IF;
9864: -- True value processing for Header Termination --
9865: -------------------------------------------------------------------------
9866: UPDATE OKC_K_HEADERS_B
9867: SET estimated_amount=(SELECT SUM(price_negotiated)
9868: FROM OKC_K_LINES_B
9869: WHERE dnz_chr_id = p_true_value_tbl(1).p_hdr_id
9870: AND lse_id in ( 1,12,14,19,46))
9871: WHERE id = p_true_value_tbl(1).p_hdr_id ;
9872: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
9973: line.price_unit*itm.number_of_items unit_price,
9974: rline.price_uom,
9975: line.price_negotiated total_amount,
9976: rline.toplvl_uom_code
9977: FROM okc_k_lines_b line,
9978: oks_k_lines_b rline,
9979: okc_k_items itm
9980: WHERE line.cle_id = p_cle_id
9981: AND line.lse_id in (7,8,9,10,11,13,25,35)
10264:
10265: l_new_price := OKS_EXTWAR_UTIL_PVT.round_currency_amt(l_new_price,l_currency_code);
10266: l_ubt_amount := OKS_EXTWAR_UTIL_PVT.round_currency_amt(l_ubt_amount,l_currency_code);
10267:
10268: UPDATE OKC_K_LINES_B
10269: SET price_negotiated = l_new_price
10270: WHERE id = cur.id;
10271:
10272: UPDATE OKS_K_LINES_B
10449: line.price_unit*itm.number_of_items unit_price,
10450: rline.price_uom,
10451: rline.toplvl_uom_code,
10452: line.price_negotiated total_amount
10453: FROM okc_k_lines_b line,
10454: oks_k_lines_b rline,
10455: okc_k_items itm
10456: WHERE line.id = p_id
10457: AND rline.cle_id = line.id
10467: line.price_unit*itm.number_of_items unit_price,
10468: rline.price_uom,
10469: rline.toplvl_uom_code,
10470: line.price_negotiated total_amount
10471: FROM okc_k_lines_b line,
10472: oks_k_lines_b rline,
10473: okc_k_items itm
10474: WHERE line.cle_id = p_cle_id
10475: AND itm.cle_id = line.id