[Home] [Help]
11318: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
11319:
11320: END copy_components;
11321:
11322: -- Bug 2950549 - Added procedure add_concurent : This procedure will make a call-- to the concurrent program and insert records in OKC_CONC_requests table.
11323: PROCEDURE add_concurrent(p_components_tbl IN api_components_tbl,
11324: p_lines_tbl IN api_lines_tbl,
11325: p_from_chr_id IN NUMBER,
11326: p_to_chr_id IN NUMBER,
11337: l_request_id NUMBER;
11338: l_id NUMBER;
11339:
11340: BEGIN
11341: SELECT okc_conc_requests_s.nextval into l_id from dual;
11342: IF p_components_tbl.COUNT > 0 THEN
11343: FOR i IN p_components_tbl.FIRST .. p_components_tbl.LAST LOOP
11344: INSERT INTO OKC_CONC_REQUESTS(
11345: ID,
11340: BEGIN
11341: SELECT okc_conc_requests_s.nextval into l_id from dual;
11342: IF p_components_tbl.COUNT > 0 THEN
11343: FOR i IN p_components_tbl.FIRST .. p_components_tbl.LAST LOOP
11344: INSERT INTO OKC_CONC_REQUESTS(
11345: ID,
11346: SOURCE_ID,
11347: TARGET_CHR_ID,
11348: COMPONENT_TYPE,
11379: END LOOP;
11380: END IF;
11381: IF p_lines_tbl.count > 0 THEN
11382: FOR j in p_lines_tbl.FIRST .. p_lines_tbl.LAST LOOP
11383: INSERT INTO OKC_CONC_REQUESTS(ID,
11384: SOURCE_ID,
11385: TARGET_CLE_ID,
11386: LSE_ID,
11387: LINE_EXISTS_YN,
11418: END LOOP;
11419: END IF;
11420: COMMIT;
11421:
11422: select okc_conc_requests_s.currval into l_id from dual;
11423:
11424: l_request_id := FND_REQUEST.SUBMIT_REQUEST(
11425: APPLICATION => 'OKC',
11426: PROGRAM => 'OKCCPCON',
11483: TARGET_CLE_ID to_line,
11484: LSE_ID,
11485: LINE_EXISTS_YN,
11486: LINE_EXP_YN --mmadhavi bug 3990643
11487: FROM OKC_CONC_REQUESTS
11488: WHERE ID = p_id;
11489:
11490: --Bug 4045272
11491: --Adding cursor to get Contract Number of Copied Contract for writing to Concurrent Manager log file