[Home] [Help]
18: source_line_id IN NUMBER) RETURN BOOLEAN
19: IS
20: CURSOR op_lines IS
21: SELECT subject_chr_id
22: FROM okc_operation_lines
23: WHERE object_cle_id = source_line_id
24: AND process_flag = 'P'
25: AND active_yn = 'Y';
26: x_return BOOLEAN := FALSE;
42: p_subject_chr_id IN NUMBER) RETURN BOOLEAN
43: IS
44: CURSOR oper_exist IS
45: SELECT 'X' x
46: FROM okc_operation_lines
47: WHERE subject_chr_id = p_subject_chr_id
48: AND object_cle_id = p_object_cle_id;
49: x_return BOOLEAN := FALSE;
50: BEGIN
59: PROCEDURE SET_OL_SELECTED(p_id IN NUMBER,
60: x_return_status OUT NOCOPY VARCHAR2) IS
61: CURSOR parent_cur IS
62: SELECT id, select_yn
63: FROM okc_operation_lines
64: WHERE id = (SELECT parent_ole_id
65: FROM okc_operation_lines
66: WHERE id = p_id);
67: l_api_version CONSTANT NUMBER := 1.0;
61: CURSOR parent_cur IS
62: SELECT id, select_yn
63: FROM okc_operation_lines
64: WHERE id = (SELECT parent_ole_id
65: FROM okc_operation_lines
66: WHERE id = p_id);
67: l_api_version CONSTANT NUMBER := 1.0;
68: l_init_msg_list VARCHAR2(2000) := OKC_API.G_FALSE;
69: l_return_status VARCHAR2(1);
194: -- and terminated lines. Also simplified the fetch for sublines.
195: ------------------------------------------------------------------
196: CURSOR operation_lines(p_target_id IN NUMBER) IS
197: SELECT opl.id, oie_id, object_chr_id, object_cle_id, parent_ole_id, select_yn
198: FROM okc_operation_lines OPL,
199: okc_k_lines_b cle
200: WHERE OPL.subject_chr_id = p_target_id
201: AND EXISTS (SELECT 'X'
202: FROM okc_operation_instances OPI
219: AND NVL(cle1.line_renewal_type_code,'FUL') not in ('DNR', 'KEP'))
220: /*
221: MINUS
222: (SELECT id, oie_id, object_chr_id, object_cle_id, parent_ole_id, select_yn
223: FROM okc_operation_lines
224: WHERE subject_chr_id = p_target_id
225: AND parent_ole_id IS NULL
226: UNION
227: SELECT a.id, a.oie_id, a.object_chr_id, a.object_cle_id, a.parent_ole_id, a.select_yn
224: WHERE subject_chr_id = p_target_id
225: AND parent_ole_id IS NULL
226: UNION
227: SELECT a.id, a.oie_id, a.object_chr_id, a.object_cle_id, a.parent_ole_id, a.select_yn
228: FROM okc_operation_lines a, okc_operation_lines b
229: WHERE a.subject_chr_id = p_target_id
230: AND b.subject_chr_id = p_target_id
231: AND a.id = b.parent_ole_id)
232: */
232: */
233: -- Added following code for bug#5981381 i.e. removed looping of function call of not_processed_by_other
234: -- and moved the entire code from the cursor to here
235: AND NOT EXISTS
236: ( SELECT '1' FROM okc_operation_lines
237: WHERE object_cle_id = opl.object_cle_id
238: AND subject_chr_id <> p_target_id
239: AND process_flag = 'P'
240: AND active_yn = 'Y')
294: FUNCTION opl_terminated(p_opl_id IN NUMBER) RETURN BOOLEAN IS
295:
296: CURSOR get_terminated_opl(cp_opl_id IN NUMBER) IS
297: SELECT 1
298: FROM okc_operation_lines OPL,
299: okc_k_lines_b KLN
300: WHERE OPL.id = cp_opl_id
301: AND OPL.object_cle_id = KLN.id
302: AND KLN.date_terminated IS NOT NULL;
559: AND NVL(cle.line_renewal_type_code,'FUL') not in ('DNR', 'KEP')) -- Added by MKS
560: -- Added following code for bug#5981381 i.e. removed looping of function call of is_laready_in_ol
561: -- and moved the entire code from that function to here
562: AND NOT EXISTS
563: ( SELECT '1' FROM okc_operation_lines
564: WHERE subject_chr_id = p_target_chr_id
565: AND object_cle_id = s.id) ;
566:
567: ------------------------------------------------------------------
997: END IS_PRESENT;
998:
999: FUNCTION GET_HDR_OLE_ID(p_header_id IN NUMBER) RETURN NUMBER IS
1000: CURSOR header_op_line IS
1001: SELECT id FROM OKC_OPERATION_LINES
1002: WHERE oie_id = p_oie_id
1003: AND object_chr_id = p_header_id
1004: AND object_cle_id IS NULL;
1005: x_ret_id NUMBER ;
1014: END GET_HDR_OLE_ID;
1015:
1016: FUNCTION GET_TOPLINE_OLE_ID(p_topline_id IN NUMBER) RETURN NUMBER IS
1017: CURSOR topline_op_line IS
1018: SELECT id FROM OKC_OPERATION_LINES
1019: WHERE oie_id = p_oie_id
1020: AND object_cle_id = p_topline_id;
1021: x_ret_id NUMBER ;
1022: BEGIN
1295: FUNCTION FIND_OL_STATUS(p_object_cle_id IN NUMBER) RETURN VARCHAR2
1296: IS
1297: CURSOR process_flag IS
1298: SELECT process_flag
1299: FROM okc_operation_lines
1300: WHERE object_cle_id = p_object_cle_id
1301: AND active_yn = 'Y';
1302:
1303: x_return VARCHAR2(200) := 'A';
1374: l_mod_name VARCHAR2(256) := lower(G_OKS_APP_NAME) || '.plsql.' || G_PROGRAM_NAME || '.' || l_api_name;
1375:
1376: CURSOR get_top_line IS
1377: SELECT object_cle_id
1378: FROM okc_operation_lines
1379: WHERE p_parent_ole_id = id;
1380: x_return NUMBER;
1381: BEGIN
1382: BEGIN
1702: l_mod_name VARCHAR2(256) := lower(G_OKS_APP_NAME) || '.plsql.' || G_PROGRAM_NAME || '.' || l_api_name;
1703:
1704:
1705: CURSOR get_oper_sub_lines(p_id IN NUMBER) IS
1706: SELECT object_cle_id FROM okc_operation_lines ol, okc_k_lines_b cle
1707: WHERE ol.parent_ole_id = p_id
1708: and ol.process_flag IN ('A','E')
1709: and ol.select_yn = 'Y'
1710: and cle.id = ol.object_cle_id
1710: and cle.id = ol.object_cle_id
1711: and cle.date_terminated is null
1712: and NVL(cle.line_renewal_type_code,'FUL') not in ('DNR', 'KEP'); -- bug 5078797
1713: /*
1714: SELECT * FROM okc_operation_lines
1715: WHERE parent_ole_id = p_id
1716: AND process_flag IN ('A', 'E')
1717: AND select_yn = 'Y';
1718: */
1823:
1824:
1825: /*
1826: CURSOR get_oper_top_lines IS
1827: SELECT b. * FROM okc_operation_lines a, okc_operation_lines b
1828: WHERE a.oie_id = p_oie_id
1829: AND b.oie_id = p_oie_id
1830: AND a.id = b.parent_ole_id
1831: AND a.parent_ole_id IS NULL
1836: SELECT b.*,
1837: chr.inv_organization_id,
1838: chr.authoring_org_id,
1839: chr.currency_code
1840: FROM okc_operation_lines b,
1841: okc_k_lines_b cle,
1842: okc_k_headers_all_b chr,
1843: okc_statuses_b st
1844: WHERE b.oie_id = p_oie_id
1854: and nvl(renewal_type_code, G_GCD_RENEWAL_TYPE) <> 'DNR';
1855:
1856: /*
1857: CURSOR get_oper_sub_lines(p_id IN NUMBER) IS
1858: SELECT * FROM okc_operation_lines
1859: WHERE parent_ole_id = p_id
1860: AND process_flag IN ('A', 'E')
1861: AND select_yn = 'Y';
1862: */
1860: AND process_flag IN ('A', 'E')
1861: AND select_yn = 'Y';
1862: */
1863: CURSOR get_oper_sub_lines(p_id IN NUMBER) IS
1864: SELECT ol.*, lse_id, start_date, end_date FROM okc_operation_lines ol,
1865: okc_k_lines_b cle
1866: WHERE parent_ole_id = p_id
1867: and process_flag IN ('A','E')
1868: and select_yn = 'Y'
1870: and cle.date_terminated is NULL
1871: and NVL(cle.line_renewal_type_code,'FUL') not in ('DNR', 'KEP') -- bug 5078797
1872: and NOT EXISTS
1873: ( SELECT 'x'
1874: FROM okc_operation_lines
1875: WHERE object_cle_id = ol.object_cle_id
1876: AND subject_chr_id <> ol.subject_chr_id
1877: AND process_flag = 'P'
1878: AND active_yn = 'Y'
2559:
2560: log_messages('***** Number of Source Top Lines/Sublines processed : ***** '||l_opl_id_tbl.COUNT);
2561: LOG_MESSAGES(' ');
2562:
2563: --update process status and subject cle id in okc_operation_lines for all
2564: --source toplines and sublines that where successfully copied to the target
2565: IF (l_opl_id_tbl.COUNT > 0 ) THEN
2566:
2567: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2564: --source toplines and sublines that where successfully copied to the target
2565: IF (l_opl_id_tbl.COUNT > 0 ) THEN
2566:
2567: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2568: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_opn_lines','updating okc_operation_lines l_opl_id_tbl.COUNT='||l_opl_id_tbl.COUNT);
2569: END IF;
2570:
2571: FORALL i IN l_opl_id_tbl.FIRST..l_opl_id_tbl.LAST
2572: UPDATE okc_operation_lines SET
2568: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_opn_lines','updating okc_operation_lines l_opl_id_tbl.COUNT='||l_opl_id_tbl.COUNT);
2569: END IF;
2570:
2571: FORALL i IN l_opl_id_tbl.FIRST..l_opl_id_tbl.LAST
2572: UPDATE okc_operation_lines SET
2573: subject_cle_id = l_opl_sub_cle_id_tbl(i),
2574: process_flag = l_opl_status_tbl(i),
2575: object_version_number = object_version_number + 1,
2576: last_updated_by = l_user_id,
2586: log_messages('***** Number of Source Sublines processed : ***** '||l_src_sub_line_id_tbl.COUNT);
2587: LOG_MESSAGES(' ');
2588:
2589: -- bug 6114024
2590: -- Call Pricing API after the update to okc_operation_lines
2591: IF (l_opl_id_tbl.COUNT > 0 ) THEN
2592: IF l_can_copy = 'Y' THEN
2593: LOG_MESSAGES('l_can_copy = Y ');
2594: LOG_MESSAGES('Calling OKS_REPRICE_PVT.call_pricing_api');
2669: tl.program_application_id = l_prog_appl_id,
2670: tl.program_id = l_prog_id,
2671: tl.program_update_date = l_update_date
2672: WHERE tl.id IN
2673: (SELECT b.object_cle_id FROM okc_operation_lines a, okc_operation_lines b
2674: WHERE a.oie_id = p_oie_id
2675: AND b.oie_id = p_oie_id
2676: AND a.id = b.parent_ole_id
2677: AND a.parent_ole_id IS NULL
2699: h.program_application_id = l_prog_appl_id,
2700: h.program_id = l_prog_id,
2701: h.program_update_date = l_update_date
2702: WHERE h.id IN
2703: (SELECT a.object_chr_id FROM okc_operation_lines a
2704: WHERE a.oie_id = p_oie_id
2705: AND a.object_cle_id IS NULL
2706: AND a.subject_cle_id IS NULL
2707: AND a.select_yn = 'Y')