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