31: --
32: --
33: cursor c_major_ver is
34: select major_version
35: from okc_k_vers_numbers
36: where chr_id = p_chr_id;
37: --
38: cursor c_lines is
39: select id
41: where dnz_chr_id = p_chr_id;
42: --
43: cursor c_rest_to_ver is
44: select object_version_number
45: from okc_k_vers_numbers_h
46: where chr_id = p_chr_id
47: and major_version = l_minus_version;
48:
49: begin
386: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
387: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
388: RAISE OKC_API.G_EXCEPTION_ERROR;
389: END IF;
390: -- Get the version number from okc_k_vers_numbers
391: okc_cvm_pvt.version_contract_version(
392: p_api_version =>p_api_version,
393: p_init_msg_list =>p_init_msg_list,
394: x_return_status =>l_return_status,
785: l_doc_id number;
786: l_msg_count NUMBER;
787:
788: cursor v_lock is
789: select '!' from okc_k_vers_numbers
790: where chr_id = p_chr_id
791: for update of MAJOR_VERSION, MINOR_VERSION
792: nowait;
793:
1140: RAISE OKC_API.G_EXCEPTION_ERROR;
1141: END IF;
1142:
1143: -- just to save maj/min versions somewhere
1144: insert into okc_k_vers_numbers_h
1145: (
1146: CHR_ID
1147: ,MAJOR_VERSION
1148: ,MINOR_VERSION
1161: ,CREATION_DATE
1162: ,FND_GLOBAL.USER_ID
1163: ,sysdate
1164: ,FND_GLOBAL.LOGIN_ID
1165: from okc_k_vers_numbers
1166: where chr_id = p_chr_id;
1167:
1168: END IF;
1169:
1628: END IF;
1629: END LOOP;
1630: END IF;
1631: --
1632: delete FROM okc_k_vers_numbers_h
1633: WHERE chr_id= p_chr_id
1634: and ((MAJOR_VERSION = -1
1635: and p_called_from = 'ERASE_SAVED_VERSION')
1636: or (p_called_from = 'RESTORE_VERSION'
1786: l_msg_count NUMBER;
1787:
1788: cursor v is
1789: select object_version_number, minor_version
1790: from okc_k_vers_numbers_h
1791: WHERE chr_id= p_chr_id
1792: and MAJOR_VERSION = -1;
1793:
1794: cursor v_lock is
1791: WHERE chr_id= p_chr_id
1792: and MAJOR_VERSION = -1;
1793:
1794: cursor v_lock is
1795: select '!' from okc_k_vers_numbers
1796: where chr_id = p_chr_id
1797: for update of MAJOR_VERSION, MINOR_VERSION
1798: nowait;
1799: /*Added for Bug 5175907 */
1803: WHERE ID = p_chr_id;
1804:
1805: CURSOR version_csr(p_chr_id NUMBER) IS
1806: SELECT to_char (major_version)||'.'||to_char(minor_version)
1807: FROM okc_k_vers_numbers
1808: WHERE chr_id=p_chr_id;
1809: l_dummy varchar2(1);
1810: l_version Varchar2(240);
1811: l_contract_old_status Varchar2(30);
2250: RAISE OKC_API.G_EXCEPTION_ERROR;
2251: END IF;
2252:
2253:
2254: delete from okc_k_vers_numbers where CHR_ID = p_chr_id;
2255: INSERT INTO okc_k_vers_numbers(
2256: CHR_ID
2257: ,MAJOR_VERSION
2258: ,MINOR_VERSION
2251: END IF;
2252:
2253:
2254: delete from okc_k_vers_numbers where CHR_ID = p_chr_id;
2255: INSERT INTO okc_k_vers_numbers(
2256: CHR_ID
2257: ,MAJOR_VERSION
2258: ,MINOR_VERSION
2259: ,OBJECT_VERSION_NUMBER
2271: ,CREATION_DATE
2272: ,FND_GLOBAL.USER_ID
2273: ,sysdate
2274: ,FND_GLOBAL.LOGIN_ID
2275: from okc_k_vers_numbers_h
2276: where chr_id = p_chr_id
2277: and MAJOR_VERSION = -1;
2278: --
2279: delete_version( p_chr_id => p_chr_id,