24:
25: CURSOR l_service_csr
26: IS
27: SELECT /*+ leading (kl) use_nl (kl ki) */ kl.ID cle_id
28: FROM okc_k_lines_b kl, okc_k_items ki, okc_statuses_b ks
29: WHERE kl.dnz_chr_id = p_chrid
30: AND kl.lse_id IN (1, 14, 19)
31: AND kl.ID = ki.cle_id
32: AND ki.object1_id1 = TO_CHAR (p_invserviceid)
80: l_shiporg_id NUMBER
81: )
82: IS
83: SELECT 'x'
84: FROM okc_k_lines_b kl, oks_k_lines_b sl
85: WHERE kl.ID = p_k_line_id
86: AND kl.ID = sl.cle_id
87: AND NVL (sl.acct_rule_id, -99) = NVL (l_acct_id, -99)
88: AND NVL (kl.inv_rule_id, -99) = NVL (l_inv_id, -99)
1275: a.bill_to_site_use_id, a.line_renewal_type_code,
1276: b.tax_code --Fix for bug 4121175
1277: ,
1278: b.price_uom
1279: FROM okc_k_lines_b a, oks_k_lines_b b, okc_statuses_b c
1280: WHERE a.ID = l_line_id AND a.ID = b.cle_id AND a.sts_code = c.code;
1281:
1282: CURSOR service_item (l_line_id NUMBER)
1283: IS
1305: l_price_uom VARCHAR2
1306: )
1307: IS
1308: SELECT a.ID
1309: FROM okc_k_lines_b a, oks_k_lines_b b, okc_statuses_b c
1310: WHERE a.ID = l_line_id
1311: AND a.ID = b.cle_id
1312: AND a.sts_code = c.code
1313: AND c.ste_code IN ('ACTIVE', 'ENTERED', 'SIGNED')
1560: IS
1561: CURSOR l_line_csr
1562: IS
1563: SELECT start_date, end_date
1564: FROM okc_k_lines_b
1565: WHERE ID = p_cle_id;
1566:
1567: l_line_csr_rec l_line_csr%ROWTYPE;
1568: BEGIN
1613: IS
1614: CURSOR l_rulegroup_csr
1615: IS
1616: SELECT inv_rule_id
1617: FROM okc_k_lines_b
1618: WHERE cle_id = p_cle_id AND dnz_chr_id = p_chr_id;
1619:
1620: --General
1621: l_api_version CONSTANT NUMBER := 1.0;
2045: IS
2046: CURSOR l_parent_line_csr
2047: IS
2048: SELECT cle_id
2049: FROM okc_k_lines_b
2050: WHERE ID = p_covered_line_id;
2051:
2052: l_api_version CONSTANT NUMBER := 1.0;
2053: l_init_msg_list CONSTANT VARCHAR2 (1) := okc_api.g_false;
3728:
3729: CURSOR get_line_number
3730: IS
3731: SELECT NVL (MAX (TO_NUMBER (line_number)), 0) + 1
3732: FROM okc_k_lines_b
3733: WHERE dnz_chr_id = p_chr_id AND lse_id IN (1, 12, 14, 19);
3734: BEGIN
3735: OPEN get_line_number;
3736:
3749:
3750: CURSOR get_line_number
3751: IS
3752: SELECT NVL (MAX (TO_NUMBER (line_number)), 0) + 1
3753: FROM okc_k_lines_b
3754: WHERE dnz_chr_id = p_chr_id
3755: AND cle_id = p_cle_id
3756: AND lse_id IN (35, 7, 8, 9, 10, 11, 13, 18, 25);
3757: BEGIN
3819: --enhancement to be commented
3820: CURSOR l_ste_csr (l_line_id NUMBER)
3821: IS
3822: SELECT os.ste_code
3823: FROM okc_statuses_b os, okc_k_lines_b ol
3824: WHERE ol.ID = l_line_id AND ol.sts_code = os.code;
3825:
3826: CURSOR l_salesgrp_csr (p_id NUMBER, p_start_date DATE, p_end_date DATE)
3827: IS
3938: IF l_ste_code = 'EXPIRED'
3939: THEN
3940: get_sts_code ('ACTIVE', NULL, l_ste_code, l_sts_code);
3941:
3942: UPDATE okc_k_lines_b
3943: SET sts_code = l_sts_code
3944: WHERE ID = l_line_id;
3945: END IF;
3946: ELSE
4840:
4841: CURSOR l_line_csr (p_line_id NUMBER)
4842: IS
4843: SELECT kl.start_date, kl.end_date, kl.inv_rule_id
4844: FROM okc_k_lines_b kl
4845: WHERE kl.ID = p_line_id;
4846:
4847: l_duration NUMBER;
4848: l_timeunits VARCHAR2 (25);
5692:
5693: CURSOR l_lndates_csr (p_id NUMBER)
5694: IS
5695: SELECT start_date, end_date
5696: FROM okc_k_lines_b
5697: WHERE ID = p_id;
5698:
5699: CURSOR l_hdrdates_csr (p_id NUMBER)
5700: IS
6243: END IF;
6244: END IF; -- strmlvl end
6245: END IF; -- warranty flag end
6246:
6247: UPDATE okc_k_lines_b
6248: SET price_negotiated =
6249: (SELECT NVL (SUM (NVL (price_negotiated, 0)), 0)
6250: FROM okc_k_lines_b
6251: WHERE cle_id = l_lineid AND dnz_chr_id = l_chrid)
6246:
6247: UPDATE okc_k_lines_b
6248: SET price_negotiated =
6249: (SELECT NVL (SUM (NVL (price_negotiated, 0)), 0)
6250: FROM okc_k_lines_b
6251: WHERE cle_id = l_lineid AND dnz_chr_id = l_chrid)
6252: WHERE ID = l_lineid;
6253:
6254: UPDATE okc_k_headers_b
6253:
6254: UPDATE okc_k_headers_b
6255: SET estimated_amount =
6256: (SELECT NVL (SUM (NVL (price_negotiated, 0)), 0)
6257: FROM okc_k_lines_b
6258: WHERE dnz_chr_id = l_chrid AND lse_id IN (1, 19))
6259: WHERE ID = l_chrid;
6260:
6261: launch_workflow ( 'INSTALL BASE ACTIVITY : NEW '
6588: END IF;
6589:
6590: IF x_return_status = 'S'
6591: THEN
6592: UPDATE okc_k_lines_b
6593: SET date_renewed = p_txn_date
6594: WHERE ID = l_source_line_id;
6595:
6596: l_line_date_renewed :=
6595:
6596: l_line_date_renewed :=
6597: oks_ib_util_pvt.check_renewed_sublines (l_source_line_id);
6598:
6599: UPDATE okc_k_lines_b
6600: SET date_renewed = l_line_date_renewed
6601: WHERE ID = (SELECT cle_id
6602: FROM okc_k_lines_b
6603: WHERE ID = l_source_line_id)
6598:
6599: UPDATE okc_k_lines_b
6600: SET date_renewed = l_line_date_renewed
6601: WHERE ID = (SELECT cle_id
6602: FROM okc_k_lines_b
6603: WHERE ID = l_source_line_id)
6604: AND date_renewed IS NULL;
6605:
6606: l_hdr_date_renewed :=
6608:
6609: UPDATE okc_k_headers_all_b
6610: SET date_renewed = l_hdr_date_renewed
6611: WHERE ID = (SELECT dnz_chr_id
6612: FROM okc_k_lines_b
6613: WHERE ID = l_source_line_id)
6614: AND date_renewed IS NULL;
6615: ELSE
6616: RAISE g_exception_halt_validation;
6969: UPDATE okc_k_items
6970: SET number_of_items = l_old_qty
6971: WHERE cle_id = p_kdtl_tbl (l_ctr).object_line_id;
6972:
6973: UPDATE okc_k_lines_b
6974: SET price_negotiated = NVL (l_oldamt, 0),
6975: price_unit = NVL (p_kdtl_tbl (l_ctr).service_unit_price, 0)
6976: WHERE ID = p_kdtl_tbl (l_ctr).object_line_id;
6977:
7288: END IF;
7289:
7290: -- Fixed Bug 5039806
7291: /*
7292: UPDATE okc_k_lines_b
7293: SET price_negotiated =
7294: (SELECT NVL (SUM (NVL (price_negotiated, 0)), 0)
7295: FROM okc_k_lines_b
7296: WHERE cle_id = p_kdtl_tbl (l_ctr).service_line_id
7291: /*
7292: UPDATE okc_k_lines_b
7293: SET price_negotiated =
7294: (SELECT NVL (SUM (NVL (price_negotiated, 0)), 0)
7295: FROM okc_k_lines_b
7296: WHERE cle_id = p_kdtl_tbl (l_ctr).service_line_id
7297: AND dnz_chr_id = p_kdtl_tbl (l_ctr).hdr_id)
7298: WHERE ID = p_kdtl_tbl (l_ctr).service_line_id;
7299:
7299:
7300: UPDATE okc_k_headers_b
7301: SET estimated_amount =
7302: (SELECT NVL (SUM (NVL (price_negotiated, 0)), 0)
7303: FROM okc_k_lines_b
7304: WHERE dnz_chr_id = p_kdtl_tbl (l_ctr).hdr_id
7305: AND lse_id IN (1, 19))
7306: WHERE ID = p_kdtl_tbl (l_ctr).hdr_id;
7307: */
8184:
8185: IF l_ste_code = 'ENTERED'
8186: THEN
8187: -- UPdate topline price negotiated.
8188: UPDATE okc_k_lines_b
8189: SET price_negotiated = price_negotiated + l_newamt
8190: WHERE ID = l_lineid;
8191:
8192: -- Update header estimated amount
9216: IS
9217: CURSOR l_cov_csr (p_cle_id NUMBER)
9218: IS
9219: SELECT LN.transfer_option
9220: FROM oks_k_lines_b LN, okc_k_lines_b kl, oks_k_lines_b ks
9221: WHERE kl.ID = p_cle_id
9222: AND ks.cle_id = kl.ID
9223: AND LN.cle_id = ks.coverage_id;
9224:
9250:
9251: CURSOR l_srvdt_csr (p_line_id NUMBER)
9252: IS
9253: SELECT start_date, end_date
9254: FROM okc_k_lines_b
9255: WHERE ID = p_line_id;
9256:
9257: CURSOR l_cust_rel_csr (
9258: p_old_customer VARCHAR2,
9296:
9297: CURSOR l_subline_csr (p_id NUMBER)
9298: IS
9299: SELECT date_terminated, price_negotiated
9300: FROM okc_k_lines_b
9301: WHERE ID = p_id;
9302:
9303: l_date_terminated DATE;
9304: l_subline_price NUMBER;
9306:
9307: CURSOR l_toplines_csr (p_chr_id NUMBER, p_service_item_id NUMBER)
9308: IS
9309: SELECT kl.ID cle_id
9310: FROM okc_k_lines_b kl, okc_k_items ki, okc_statuses_b st
9311: WHERE kl.dnz_chr_id = p_chr_id
9312: AND kl.lse_id IN (1, 14, 19)
9313: AND kl.ID = ki.cle_id
9314: AND ki.object1_id1 = TO_CHAR (p_service_item_id)
10024: IS
10025: CURSOR l_line_rule_csr (p_line_id NUMBER)
10026: IS
10027: SELECT oks.acct_rule_id, okc.inv_rule_id, okc.price_list_id
10028: FROM okc_k_lines_b okc, oks_k_lines_b oks
10029: WHERE okc.ID = p_line_id AND oks.cle_id = okc.ID;
10030:
10031: CURSOR l_party_csr (p_id NUMBER)
10032: IS
10303: */
10304: CURSOR l_line_sts_csr (p_line_id NUMBER)
10305: IS
10306: SELECT st.ste_code, kl.sts_code
10307: FROM okc_k_lines_b kl, okc_statuses_b st
10308: WHERE kl.ID = p_line_id AND st.code = kl.sts_code;
10309:
10310: CURSOR l_getprice_csr (p_line_id NUMBER)
10311: IS
10309:
10310: CURSOR l_getprice_csr (p_line_id NUMBER)
10311: IS
10312: SELECT price_negotiated
10313: FROM okc_k_lines_b
10314: WHERE ID = p_line_id;
10315:
10316:
10317: CURSOR l_serv_csr (p_serv_id NUMBER)
12386: THEN
12387: RAISE g_exception_halt_validation;
12388: END IF;
12389:
12390: UPDATE okc_k_lines_b
12391: SET price_negotiated =
12392: (SELECT NVL
12393: (SUM
12394: (NVL
12397: )
12398: ),
12399: 0
12400: )
12401: FROM okc_k_lines_b
12402: WHERE cle_id =
12403: l_merge_line_id
12404: AND dnz_chr_id =
12405: l_merge_chr_id)
12426: )
12427: ),
12428: 0
12429: )
12430: FROM okc_k_lines_b
12431: WHERE dnz_chr_id =
12432: l_merge_chr_id
12433: AND lse_id IN (1, 19))
12434: WHERE ID = l_merge_chr_id;
12548: date_approved = NULL,
12549: date_signed = NULL
12550: WHERE ID = l_merge_chr_id;
12551:
12552: UPDATE okc_k_lines_b
12553: SET sts_code = l_sts_code
12554: WHERE dnz_chr_id =
12555: l_merge_chr_id;
12556:
12926: THEN
12927: RAISE g_exception_halt_validation;
12928: END IF;
12929:
12930: UPDATE okc_k_lines_b
12931: SET price_negotiated =
12932: (SELECT NVL
12933: (SUM
12934: (NVL
12937: )
12938: ),
12939: 0
12940: )
12941: FROM okc_k_lines_b
12942: WHERE cle_id = l_line_id
12943: AND dnz_chr_id =
12944: l_merge_chr_id)
12945: WHERE ID = l_line_id;
12965: )
12966: ),
12967: 0
12968: )
12969: FROM okc_k_lines_b
12970: WHERE dnz_chr_id =
12971: l_merge_chr_id
12972: AND lse_id IN (1, 19))
12973: WHERE ID = l_merge_chr_id;
13084: date_approved = NULL,
13085: date_signed = NULL
13086: WHERE ID = l_merge_chr_id;
13087:
13088: UPDATE okc_k_lines_b
13089: SET sts_code = l_sts_code
13090: WHERE dnz_chr_id = l_merge_chr_id;
13091:
13092: l_wf_attr_details.contract_id :=
13426: l_inst_dtls_tbl (l_ptr).instance_amt_new :=
13427: l_subline_price;
13428:
13429: -- Fixed for bug 3751050
13430: UPDATE okc_k_lines_b
13431: SET price_negotiated =
13432: (SELECT NVL (SUM (NVL (price_negotiated,
13433: 0
13434: )
13434: )
13435: ),
13436: 0
13437: )
13438: FROM okc_k_lines_b
13439: WHERE cle_id = l_line_id
13440: AND dnz_chr_id = l_chr_id)
13441: WHERE ID = l_line_id;
13442:
13455: )
13456: ),
13457: 0
13458: )
13459: FROM okc_k_lines_b
13460: WHERE dnz_chr_id = l_chr_id
13461: AND lse_id IN (1, 19))
13462: WHERE ID = l_chr_id;
13463:
13510: THEN
13511: RAISE g_exception_halt_validation;
13512: END IF;
13513:
13514: /*UPDATE okc_k_lines_b
13515: SET price_negotiated = ( SELECT NVL( SUM(NVL( price_negotiated, 0)),0 )
13516: FROM okc_k_lines_b
13517: WHERE cle_id = l_line_id
13518: AND dnz_chr_id = l_chr_id)
13512: END IF;
13513:
13514: /*UPDATE okc_k_lines_b
13515: SET price_negotiated = ( SELECT NVL( SUM(NVL( price_negotiated, 0)),0 )
13516: FROM okc_k_lines_b
13517: WHERE cle_id = l_line_id
13518: AND dnz_chr_id = l_chr_id)
13519: WHERE id = l_line_id;
13520:
13519: WHERE id = l_line_id;
13520:
13521: UPDATE okc_k_headers_b
13522: SET estimated_amount = ( SELECT NVL( SUM( NVL(price_negotiated,0) ), 0 )
13523: FROM okc_k_lines_b
13524: WHERE dnz_chr_id = l_chr_id
13525: AND lse_id in (1,19) )
13526: WHERE id = l_chr_id;*/
13527:
13624: date_approved = NULL,
13625: date_signed = NULL
13626: WHERE ID = l_chr_id;
13627:
13628: UPDATE okc_k_lines_b
13629: SET sts_code = l_sts_code
13630: WHERE dnz_chr_id = l_chr_id;
13631:
13632: l_wf_attr_details.contract_id := l_chr_id;
14618: p_subline_id NUMBER
14619: )
14620: IS
14621: SELECT MIN (start_date) sdt, MAX (end_date) edt
14622: FROM okc_k_lines_b
14623: WHERE cle_id = p_topline_id
14624: AND dnz_chr_id = p_hdr_id
14625: AND lse_id = 18
14626: AND ID <> p_subline_id;
14628: -- Cursor to get start and end date of top lines
14629: CURSOR l_topline_dates (p_hdr_id NUMBER, p_topline_id NUMBER)
14630: IS
14631: SELECT MIN (start_date) sdt, MAX (end_date) edt
14632: FROM okc_k_lines_b
14633: WHERE dnz_chr_id = p_hdr_id AND cle_id IS NULL
14634: AND ID <> p_topline_id;
14635:
14636: -- Cursor to get the header dates and status
14636: -- Cursor to get the header dates and status
14637: CURSOR l_lndates_csr (p_id NUMBER)
14638: IS
14639: SELECT start_date, end_date
14640: FROM okc_k_lines_b
14641: WHERE ID = p_id;
14642:
14643: -- Cursor to get the line dates and status
14644: CURSOR l_hdrdates_csr (p_id NUMBER)
15563:
15564: CURSOR l_amount_csr (p_cle_id NUMBER)
15565: IS
15566: SELECT price_negotiated
15567: FROM okc_k_lines_b
15568: WHERE ID = p_cle_id;
15569:
15570: l_cov_tbl oks_bill_rec_pub.covered_tbl;
15571: l_ptr NUMBER := 0;
15816: INTO l_subline_amount;
15817:
15818: CLOSE l_amount_csr;
15819:
15820: UPDATE okc_k_lines_b
15821: SET price_negotiated =
15822: (SELECT NVL (SUM (NVL (price_negotiated, 0)),0)
15823: FROM okc_k_lines_b
15824: WHERE cle_id = p_kdtl_tbl (l_ctr).service_line_id
15819:
15820: UPDATE okc_k_lines_b
15821: SET price_negotiated =
15822: (SELECT NVL (SUM (NVL (price_negotiated, 0)),0)
15823: FROM okc_k_lines_b
15824: WHERE cle_id = p_kdtl_tbl (l_ctr).service_line_id
15825: AND dnz_chr_id = p_kdtl_tbl (l_ctr).hdr_id
15826: and date_cancelled is null)
15827: WHERE ID = p_kdtl_tbl (l_ctr).service_line_id;
15830: SET tax_amount =
15831: (SELECT (NVL (SUM (NVL(tax_amount,0)),0))
15832: FROM oks_k_lines_b
15833: WHERE cle_id IN ( SELECT id
15834: FROM okc_k_lines_b
15835: WHERE cle_id = p_kdtl_tbl (l_ctr).service_line_id
15836: AND lse_id IN (9,25)
15837: AND date_cancelled IS NULL ))
15838: WHERE cle_id =p_kdtl_tbl (l_ctr).service_line_id;
15839:
15840: UPDATE okc_k_headers_b
15841: SET estimated_amount =
15842: (SELECT NVL (SUM (NVL (price_negotiated, 0)), 0 )
15843: FROM okc_k_lines_b
15844: WHERE dnz_chr_id = p_kdtl_tbl (l_ctr).hdr_id
15845: AND lse_id IN (1, 19)
15846: AND date_cancelled IS NULL )
15847: WHERE ID = p_kdtl_tbl (l_ctr).hdr_id;
15850: UPDATE oks_k_headers_b
15851: SET tax_amount = ( SELECT (NVL (SUM (NVL(tax_amount,0)),0))
15852: FROM oks_k_lines_b
15853: WHERE cle_id IN (SELECT id
15854: FROM okc_k_lineS_b
15855: WHERE dnz_chr_id = p_kdtl_tbl (l_ctr).hdr_id
15856: AND date_cancelled IS NULL
15857: AND lse_id IN (1,19)))
15858: WHERE chr_id = p_kdtl_tbl (l_ctr).hdr_id;
16290: || l_subline_amount
16291: );
16292: END IF;
16293:
16294: UPDATE okc_k_lines_b
16295: SET price_negotiated =
16296: (SELECT NVL (SUM (NVL (price_negotiated,0 ) ), 0 )
16297: FROM okc_k_lines_b
16298: WHERE cle_id = p_kdtl_tbl (l_ctr).service_line_id
16293:
16294: UPDATE okc_k_lines_b
16295: SET price_negotiated =
16296: (SELECT NVL (SUM (NVL (price_negotiated,0 ) ), 0 )
16297: FROM okc_k_lines_b
16298: WHERE cle_id = p_kdtl_tbl (l_ctr).service_line_id
16299: AND dnz_chr_id = p_kdtl_tbl (l_ctr).hdr_id
16300: AND date_cancelled is NULL)
16301: WHERE ID = p_kdtl_tbl (l_ctr).service_line_id;
16304: SET tax_amount =
16305: (SELECT (NVL (SUM (NVL(tax_amount,0)),0))
16306: FROM oks_k_lines_b
16307: WHERE cle_id IN ( SELECT id
16308: FROM okc_k_lines_b
16309: WHERE cle_id = p_kdtl_tbl (l_ctr).service_line_id
16310: AND lse_id IN (9,25)
16311: AND date_cancelled IS NULL ))
16312: WHERE cle_id =p_kdtl_tbl (l_ctr).service_line_id;
16318: )
16319: ),
16320: 0
16321: )
16322: FROM okc_k_lines_b
16323: WHERE dnz_chr_id =
16324: p_kdtl_tbl (l_ctr).hdr_id
16325: AND lse_id IN (1, 19)
16326: AND date_cancelled IS NULL)
16329: UPDATE oks_k_headers_b
16330: SET tax_amount = ( SELECT (NVL (SUM (NVL(tax_amount,0)),0))
16331: FROM oks_k_lines_b
16332: WHERE cle_id IN (SELECT id
16333: FROM okc_k_lineS_b
16334: WHERE dnz_chr_id = p_kdtl_tbl (l_ctr).hdr_id
16335: AND date_cancelled IS NULL
16336: AND lse_id IN (1,19)))
16337: WHERE chr_id = p_kdtl_tbl (l_ctr).hdr_id;
16481: l_amount := l_output_details.serv_ext_amount;
16482:
16483: IF l_amount <= l_billed_amount
16484: THEN
16485: UPDATE okc_k_lines_b
16486: SET price_negotiated = l_billed_amount
16487: WHERE ID = p_kdtl_tbl (l_ctr).object_line_id;
16488: END IF;
16489:
16496: INTO l_subline_amount;
16497:
16498: CLOSE l_amount_csr;
16499:
16500: UPDATE okc_k_lines_b
16501: SET price_negotiated =
16502: (SELECT NVL (SUM (NVL (price_negotiated,
16503: 0
16504: )
16504: )
16505: ),
16506: 0
16507: )
16508: FROM okc_k_lines_b
16509: WHERE cle_id =
16510: p_kdtl_tbl (l_ctr).service_line_id
16511: AND dnz_chr_id =
16512: p_kdtl_tbl (l_ctr).hdr_id
16517: SET tax_amount =
16518: (SELECT (NVL (SUM (NVL(tax_amount,0)),0))
16519: FROM oks_k_lines_b
16520: WHERE cle_id IN ( SELECT id
16521: FROM okc_k_lines_b
16522: WHERE cle_id = p_kdtl_tbl (l_ctr).service_line_id
16523: AND lse_id IN (9,25)
16524: AND date_cancelled IS NULL ))
16525: WHERE cle_id =p_kdtl_tbl (l_ctr).service_line_id;
16531: )
16532: ),
16533: 0
16534: )
16535: FROM okc_k_lines_b
16536: WHERE dnz_chr_id =
16537: p_kdtl_tbl (l_ctr).hdr_id
16538: AND lse_id IN (1, 19)
16539: AND date_cancelled IS NULL)
16543: UPDATE oks_k_headers_b
16544: SET tax_amount = ( SELECT (NVL (SUM (NVL(tax_amount,0)),0))
16545: FROM oks_k_lines_b
16546: WHERE cle_id IN (SELECT id
16547: FROM okc_k_lineS_b
16548: WHERE dnz_chr_id = p_kdtl_tbl (l_ctr).hdr_id
16549: AND date_cancelled IS NULL
16550: AND lse_id IN (1,19)))
16551: WHERE chr_id = p_kdtl_tbl (l_ctr).hdr_id;