17:
18: ------------------------------------------------------------------------------
19: -- GLOBAL CONSTANTS
20: ------------------------------------------------------------------------------
21: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
22: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
23:
24: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
25: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
18: ------------------------------------------------------------------------------
19: -- GLOBAL CONSTANTS
20: ------------------------------------------------------------------------------
21: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
22: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
23:
24: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
25: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
26: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
20: ------------------------------------------------------------------------------
21: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
22: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
23:
24: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
25: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
26: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
27:
28: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
21: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
22: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
23:
24: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
25: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
26: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
27:
28: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
29: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
22: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
23:
24: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
25: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
26: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
27:
28: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
29: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
30: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
335: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'900: Leaving copy_article_variables '||x_return_status);
336: END IF;
337:
338: EXCEPTION
339: WHEN FND_API.G_EXC_ERROR THEN
340:
341: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
342: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'900: Leaving copy_article_variables:FND_API.G_EXC_ERROR Exception');
343: END IF;
338: EXCEPTION
339: WHEN FND_API.G_EXC_ERROR THEN
340:
341: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
342: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'900: Leaving copy_article_variables:FND_API.G_EXC_ERROR Exception');
343: END IF;
344:
345: IF l_get_variables_csr%ISOPEN THEN
346: CLOSE l_get_variables_csr;
347: END IF;
348: x_return_status := G_RET_STS_ERROR;
349: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
350:
351: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
352:
353: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
354: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1000: Leaving copy_article_variables:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
355: END IF;
350:
351: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
352:
353: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
354: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1000: Leaving copy_article_variables:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
355: END IF;
356:
357: IF l_get_variables_csr%ISOPEN THEN
358: CLOSE l_get_variables_csr;
989:
990: -- Copying Non-Standard Article
991:
992: OKC_ARTICLES_GRP.copy_article( p_api_version => 1,
993: p_init_msg_list => FND_API.G_FALSE,
994: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
995: p_commit => FND_API.G_FALSE,
996: p_article_version_id => article_version_tbl(i),
997: p_new_article_title => NULL,
990: -- Copying Non-Standard Article
991:
992: OKC_ARTICLES_GRP.copy_article( p_api_version => 1,
993: p_init_msg_list => FND_API.G_FALSE,
994: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
995: p_commit => FND_API.G_FALSE,
996: p_article_version_id => article_version_tbl(i),
997: p_new_article_title => NULL,
998: p_create_standard_yn => 'N',
991:
992: OKC_ARTICLES_GRP.copy_article( p_api_version => 1,
993: p_init_msg_list => FND_API.G_FALSE,
994: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
995: p_commit => FND_API.G_FALSE,
996: p_article_version_id => article_version_tbl(i),
997: p_new_article_title => NULL,
998: p_create_standard_yn => 'N',
999: x_article_version_id => article_version_tbl(i),
1003: x_msg_count => x_msg_count,
1004: x_msg_data => x_msg_data);
1005:
1006: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1008: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1009: RAISE FND_API.G_EXC_ERROR ;
1010: END IF;
1011: /*
1005:
1006: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1008: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1009: RAISE FND_API.G_EXC_ERROR ;
1010: END IF;
1011: /*
1012: OPEN l_get_no_std_ref_csr(article_version_tbl(i));
1013: FETCH l_get_no_std_ref_csr INTO ref_article_id_tbl(i),ref_article_version_id_tbl(i);
1243: END IF;
1244:
1245: EXCEPTION
1246:
1247: WHEN FND_API.G_EXC_ERROR THEN
1248:
1249: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1250: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'900: Leaving copy_articles:FND_API.G_EXC_ERROR Exception');
1251: END IF;
1246:
1247: WHEN FND_API.G_EXC_ERROR THEN
1248:
1249: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1250: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'900: Leaving copy_articles:FND_API.G_EXC_ERROR Exception');
1251: END IF;
1252: IF l_get_prov_csr%ISOPEN THEN
1253: CLOSE l_get_prov_csr;
1254: END IF;
1280:
1281: x_return_status := G_RET_STS_ERROR;
1282: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1283:
1284: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1285:
1286: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1287: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1000: Leaving copy_articles:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1288: END IF;
1283:
1284: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1285:
1286: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1287: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1000: Leaving copy_articles:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1288: END IF;
1289: IF l_get_article_csr%ISOPEN THEN
1290: CLOSE l_get_article_csr;
1291: END IF;
1647: END IF;
1648:
1649: EXCEPTION
1650:
1651: WHEN FND_API.G_EXC_ERROR THEN
1652:
1653: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1654: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'900: Leaving copy_sections:FND_API.G_EXC_ERROR Exception');
1655: END IF;
1650:
1651: WHEN FND_API.G_EXC_ERROR THEN
1652:
1653: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1654: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'900: Leaving copy_sections:FND_API.G_EXC_ERROR Exception');
1655: END IF;
1656:
1657: IF l_get_scn_csr %ISOPEN THEN
1658: CLOSE l_get_scn_csr ;
1660:
1661: x_return_status := G_RET_STS_ERROR;
1662: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1663:
1664: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1665:
1666: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1667: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1000: Leaving copy_sections:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1668: END IF;
1663:
1664: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1665:
1666: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1667: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1000: Leaving copy_sections:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1668: END IF;
1669:
1670: IF l_get_scn_csr %ISOPEN THEN
1671: CLOSE l_get_scn_csr ;
1785: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'120: Creating Unassgined Section ');
1786: END IF;
1787:
1788: OKC_TERMS_UTIL_PVT.create_unassigned_section(p_api_version => 1,
1789: p_commit => FND_API.G_FALSE,
1790: p_doc_type => p_doc_type,
1791: p_doc_id => p_doc_id,
1792: x_scn_id =>l_unassigned_scn_id,
1793: x_return_status => x_return_status,
1799: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'130: Cannot Create Unassgined Section : '||x_msg_data||' Status '||x_return_status);
1800: END IF;
1801:
1802: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1804: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1805: RAISE FND_API.G_EXC_ERROR ;
1806: END IF;
1807:
1801:
1802: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1804: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1805: RAISE FND_API.G_EXC_ERROR ;
1806: END IF;
1807:
1808:
1809: END IF;
1866: END IF;
1867:
1868: OKC_DELIVERABLE_PROCESS_PVT.delete_template_deliverables (
1869: p_api_version => 1,
1870: p_init_msg_list => FND_API.G_FALSE,
1871: p_doc_id => p_doc_id,
1872: p_doc_type => p_doc_type,
1873: x_msg_data => x_msg_data,
1874: x_msg_count => x_msg_count,
1880: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'180: x_msg_count : '||x_msg_count);
1881: END IF;
1882:
1883: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1885: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1886: RAISE FND_API.G_EXC_ERROR ;
1887: END IF;
1888: END IF;
1882:
1883: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1885: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1886: RAISE FND_API.G_EXC_ERROR ;
1887: END IF;
1888: END IF;
1889:
1890: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1924: END IF;
1925:
1926: Okc_Api.Set_Message( G_FND_APP, G_UNABLE_TO_RESERVE_REC);
1927: x_return_status := G_RET_STS_ERROR ;
1928: WHEN FND_API.G_EXC_ERROR THEN
1929:
1930: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1931: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'900: Leaving remove_template_based_articles:FND_API.G_EXC_ERROR Exception');
1932: END IF;
1927: x_return_status := G_RET_STS_ERROR ;
1928: WHEN FND_API.G_EXC_ERROR THEN
1929:
1930: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1931: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'900: Leaving remove_template_based_articles:FND_API.G_EXC_ERROR Exception');
1932: END IF;
1933:
1934: IF lock_kart_for_upd_csr%ISOPEN THEN
1935: CLOSE lock_kart_for_upd_csr;
1957:
1958: x_return_status := G_RET_STS_ERROR;
1959: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1960:
1961: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1962:
1963: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1964: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1000: Leaving remove_template_based_articles:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1965: END IF;
1960:
1961: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1962:
1963: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1964: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1000: Leaving remove_template_based_articles:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1965: END IF;
1966:
1967: IF lock_kart_for_upd_csr%ISOPEN THEN
1968: CLOSE lock_kart_for_upd_csr;
2126: -- Standard Start of API savepoint
2127: SAVEPOINT g_copy_tc_pvt;
2128:
2129: -- Standard call to check for call compatibility.
2130: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2132: END IF;
2133:
2134: -- Initialize message list if p_init_msg_list is set to TRUE.
2127: SAVEPOINT g_copy_tc_pvt;
2128:
2129: -- Standard call to check for call compatibility.
2130: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2132: END IF;
2133:
2134: -- Initialize message list if p_init_msg_list is set to TRUE.
2135: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2132: END IF;
2133:
2134: -- Initialize message list if p_init_msg_list is set to TRUE.
2135: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2136: FND_MSG_PUB.initialize;
2137: END IF;
2138:
2139: -- Initialize API return status to success
2136: FND_MSG_PUB.initialize;
2137: END IF;
2138:
2139: -- Initialize API return status to success
2140: x_return_status := FND_API.G_RET_STS_SUCCESS;
2141:
2142: -- Checking If doc types are valid
2143:
2144: IF (p_source_doc_type IS NOT NULL
2141:
2142: -- Checking If doc types are valid
2143:
2144: IF (p_source_doc_type IS NOT NULL
2145: AND NOT FND_API.To_Boolean(OKC_TERMS_UTIL_PVT.is_doc_type_valid ( p_doc_type => p_source_doc_type , x_return_status => x_return_status))) THEN
2146:
2147: okc_Api.Set_Message(p_app_name => G_APP_NAME,
2148: p_msg_name => 'OKC_INVALID_DOC_TYPE',
2149: p_token1 => 'DOCUMENT_TYPE',
2147: okc_Api.Set_Message(p_app_name => G_APP_NAME,
2148: p_msg_name => 'OKC_INVALID_DOC_TYPE',
2149: p_token1 => 'DOCUMENT_TYPE',
2150: p_token2_value => p_source_doc_type);
2151: RAISE FND_API.G_EXC_ERROR ;
2152:
2153:
2154: END IF;
2155:
2153:
2154: END IF;
2155:
2156: IF (p_target_doc_type IS NOT NULL
2157: AND NOT FND_API.To_Boolean(OKC_TERMS_UTIL_PVT.is_doc_type_valid ( p_doc_type => p_target_doc_type , x_return_status => x_return_status))) THEN
2158:
2159: okc_Api.Set_Message(p_app_name => G_APP_NAME,
2160: p_msg_name => 'OKC_INVALID_DOC_TYPE',
2161: p_token1 => 'DOCUMENT_TYPE',
2159: okc_Api.Set_Message(p_app_name => G_APP_NAME,
2160: p_msg_name => 'OKC_INVALID_DOC_TYPE',
2161: p_token1 => 'DOCUMENT_TYPE',
2162: p_token2_value => p_target_doc_type);
2163: RAISE FND_API.G_EXC_ERROR ;
2164:
2165: END IF;
2166:
2167: IF p_target_doc_type=OKC_TERMS_UTIL_GRP.G_TMPL_DOC_TYPE
2177: END IF;
2178:
2179: OKC_TERMS_TEMPLATES_GRP.create_template(
2180: p_api_version => 1,
2181: p_init_msg_list => FND_API.G_FALSE,
2182: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2183: p_commit => FND_API.G_FALSE,
2184: x_return_status => x_return_status,
2185: x_msg_count => x_msg_count,
2178:
2179: OKC_TERMS_TEMPLATES_GRP.create_template(
2180: p_api_version => 1,
2181: p_init_msg_list => FND_API.G_FALSE,
2182: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2183: p_commit => FND_API.G_FALSE,
2184: x_return_status => x_return_status,
2185: x_msg_count => x_msg_count,
2186: x_msg_data => x_msg_data,
2179: OKC_TERMS_TEMPLATES_GRP.create_template(
2180: p_api_version => 1,
2181: p_init_msg_list => FND_API.G_FALSE,
2182: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2183: p_commit => FND_API.G_FALSE,
2184: x_return_status => x_return_status,
2185: x_msg_count => x_msg_count,
2186: x_msg_data => x_msg_data,
2187: p_template_name => p_target_template_rec.template_name,
2232: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'150:Finished template Creation. Return Status '||x_return_status||' new template_id '||l_template_id);
2233: END IF;
2234:
2235: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2237: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2238: RAISE FND_API.G_EXC_ERROR ;
2239: END IF;
2240:
2234:
2235: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2237: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2238: RAISE FND_API.G_EXC_ERROR ;
2239: END IF;
2240:
2241: p_target_doc_id := l_template_id;
2242:
2250: FOR cr in l_get_allwd_usage_csr(p_target_template_rec.parent_template_id) LOOP
2251: select OKC_ALLOWED_TMPL_USAGES_S.NEXTVAL into l_tmpl_usage_id from dual;
2252: OKC_ALLOWED_TMPL_USAGES_GRP.Create_Allowed_Tmpl_Usages(
2253: p_api_version =>1,
2254: p_init_msg_list =>FND_API.G_FALSE,
2255: p_commit => FND_API.G_FALSE,
2256: x_return_status => x_return_status,
2257: x_msg_count => x_msg_count,
2258: x_msg_data => x_msg_data,
2251: select OKC_ALLOWED_TMPL_USAGES_S.NEXTVAL into l_tmpl_usage_id from dual;
2252: OKC_ALLOWED_TMPL_USAGES_GRP.Create_Allowed_Tmpl_Usages(
2253: p_api_version =>1,
2254: p_init_msg_list =>FND_API.G_FALSE,
2255: p_commit => FND_API.G_FALSE,
2256: x_return_status => x_return_status,
2257: x_msg_count => x_msg_count,
2258: x_msg_data => x_msg_data,
2259: p_template_id => l_template_id,
2278: p_attribute15 =>cr.attribute15,
2279: x_allowed_tmpl_usages_id =>lx_tmpl_usage_id
2280: );
2281: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2283: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2284: RAISE FND_API.G_EXC_ERROR ;
2285: END IF;
2286: END LOOP;
2280: );
2281: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2283: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2284: RAISE FND_API.G_EXC_ERROR ;
2285: END IF;
2286: END LOOP;
2287:
2288: END IF;
2306: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300:Finished copy_section. Return Status '||x_return_status);
2307: END IF;
2308:
2309: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2310: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2311: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2312: RAISE FND_API.G_EXC_ERROR ;
2313: END IF;
2314:
2308:
2309: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2310: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2311: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2312: RAISE FND_API.G_EXC_ERROR ;
2313: END IF;
2314:
2315: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2316: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'400:Entering copy_articles. ');
2333: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700:Finished copy_articles. Return Status '||x_return_status);
2334: END IF;
2335:
2336: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2337: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2338: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2339: RAISE FND_API.G_EXC_ERROR ;
2340: END IF;
2341:
2335:
2336: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2337: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2338: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2339: RAISE FND_API.G_EXC_ERROR ;
2340: END IF;
2341:
2342: OKC_XPRT_TMPL_RULE_ASSNS_PVT.copy_template_rule_assns(
2343: p_api_version => 1,
2340: END IF;
2341:
2342: OKC_XPRT_TMPL_RULE_ASSNS_PVT.copy_template_rule_assns(
2343: p_api_version => 1,
2344: p_init_msg_list => FND_API.G_FALSE,
2345: p_commit => FND_API.G_FALSE,
2346: p_source_template_id => p_source_doc_id,
2347: p_target_template_id => l_template_id,
2348: x_return_status => x_return_status,
2341:
2342: OKC_XPRT_TMPL_RULE_ASSNS_PVT.copy_template_rule_assns(
2343: p_api_version => 1,
2344: p_init_msg_list => FND_API.G_FALSE,
2345: p_commit => FND_API.G_FALSE,
2346: p_source_template_id => p_source_doc_id,
2347: p_target_template_id => l_template_id,
2348: x_return_status => x_return_status,
2349: x_msg_data => x_msg_data,
2354: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'800:Finished copy_template_rule_assns. Return Status '||x_return_status);
2355: END IF;
2356:
2357: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2359: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2360: RAISE FND_API.G_EXC_ERROR ;
2361: END IF;
2362:
2356:
2357: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2359: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2360: RAISE FND_API.G_EXC_ERROR ;
2361: END IF;
2362:
2363: ELSIF p_source_doc_type<>OKC_TERMS_UTIL_GRP.G_TMPL_DOC_TYPE
2364: AND p_target_doc_type<>OKC_TERMS_UTIL_GRP.G_TMPL_DOC_TYPE THEN -- Doc to Doc Copy
2387: p_api_version => 1,
2388: p_init_msg_list => OKC_API.G_FALSE,
2389: p_config_header_id =>l_usage_rec.config_header_id,
2390: p_config_rev_nbr =>l_usage_rec.config_revision_number,
2391: p_new_config_flag => FND_API.G_TRUE,
2392: x_new_config_header_id => l_header_id,
2393: x_new_config_rev_nbr => l_rev_nbr,
2394: x_return_status => x_return_status,
2395: x_msg_data => x_msg_data,
2404: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'500: x_msg_count '||x_msg_count);
2405: END IF;
2406:
2407: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2409: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2410: RAISE FND_API.G_EXC_ERROR ;
2411: END IF;
2412:
2406:
2407: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2409: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2410: RAISE FND_API.G_EXC_ERROR ;
2411: END IF;
2412:
2413: END IF;
2414:
2449: l_legal_contact_id := l_usage_rec.legal_contact_id;
2450: end if;
2451: OKC_TEMPLATE_USAGES_GRP.create_template_usages(
2452: p_api_version => 1,
2453: p_init_msg_list => FND_API.G_FALSE,
2454: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2455: p_commit => FND_API.G_FALSE,
2456: x_return_status => x_return_status,
2457: x_msg_data => x_msg_data,
2450: end if;
2451: OKC_TEMPLATE_USAGES_GRP.create_template_usages(
2452: p_api_version => 1,
2453: p_init_msg_list => FND_API.G_FALSE,
2454: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2455: p_commit => FND_API.G_FALSE,
2456: x_return_status => x_return_status,
2457: x_msg_data => x_msg_data,
2458: x_msg_count => x_msg_count,
2451: OKC_TEMPLATE_USAGES_GRP.create_template_usages(
2452: p_api_version => 1,
2453: p_init_msg_list => FND_API.G_FALSE,
2454: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2455: p_commit => FND_API.G_FALSE,
2456: x_return_status => x_return_status,
2457: x_msg_data => x_msg_data,
2458: x_msg_count => x_msg_count,
2459: p_document_type => p_target_doc_type,
2485: END IF;
2486: END IF; -- IF p_allow_duplicates <> Y' THEN
2487:
2488: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2490: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2491: RAISE FND_API.G_EXC_ERROR ;
2492: END IF;
2493:
2487:
2488: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2490: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2491: RAISE FND_API.G_EXC_ERROR ;
2492: END IF;
2493:
2494: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2495: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'650:Calling copy_section');
2510: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'650:Finished copy_section. Return Status '||x_return_status);
2511: END IF;
2512:
2513: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2515: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2516: RAISE FND_API.G_EXC_ERROR ;
2517: END IF;
2518:
2512:
2513: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2515: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2516: RAISE FND_API.G_EXC_ERROR ;
2517: END IF;
2518:
2519: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2520: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700:Entering copy_articles');
2538: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700:Finished copy_articles. Return Status '||x_return_status);
2539: END IF;
2540:
2541: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2543: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2544: RAISE FND_API.G_EXC_ERROR ;
2545: END IF;
2546:
2540:
2541: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2543: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2544: RAISE FND_API.G_EXC_ERROR ;
2545: END IF;
2546:
2547: SELECT decode(p_keep_version,'Y','N','Y') INTO l_get_from_library FROM DUAL;
2548:
2565: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'900:Exited copy_article_variables.Return Status '||x_return_status);
2566: END IF;
2567:
2568: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2570: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2571: RAISE FND_API.G_EXC_ERROR ;
2572: END IF;
2573: END IF;
2567:
2568: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2570: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2571: RAISE FND_API.G_EXC_ERROR ;
2572: END IF;
2573: END IF;
2574: ELSIF p_source_doc_type=OKC_TERMS_UTIL_GRP.G_TMPL_DOC_TYPE
2575: AND p_target_doc_type<>OKC_TERMS_UTIL_GRP.G_TMPL_DOC_TYPE THEN -- Template to Doc Copy
2603: p_token1 => 'TEMPLATE_NAME',
2604: p_token1_value => l_tmpl_rec.template_name,
2605: p_token2 => 'DOCUMENT_TYPE',
2606: p_token2_value => l_doc_type_name);
2607: RAISE FND_API.G_EXC_ERROR ;
2608:
2609: END IF;
2610:
2611: l_dummy_var := '?';
2632: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2633: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'400:After Call to remove_template_based_articles x_return_status : '||x_return_status);
2634: END IF;
2635: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2637: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2638: RAISE FND_API.G_EXC_ERROR ;
2639: END IF;
2640:
2634: END IF;
2635: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2637: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2638: RAISE FND_API.G_EXC_ERROR ;
2639: END IF;
2640:
2641: OPEN l_lock_usg_csr;
2642: CLOSE l_lock_usg_csr;
2689: END IF;
2690:
2691: OKC_TEMPLATE_USAGES_GRP.create_template_usages(
2692: p_api_version => 1,
2693: p_init_msg_list => FND_API.G_FALSE,
2694: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2695: p_commit => FND_API.G_FALSE,
2696: x_return_status => x_return_status,
2697: x_msg_count => x_msg_count,
2690:
2691: OKC_TEMPLATE_USAGES_GRP.create_template_usages(
2692: p_api_version => 1,
2693: p_init_msg_list => FND_API.G_FALSE,
2694: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2695: p_commit => FND_API.G_FALSE,
2696: x_return_status => x_return_status,
2697: x_msg_count => x_msg_count,
2698: x_msg_data => x_msg_data,
2691: OKC_TEMPLATE_USAGES_GRP.create_template_usages(
2692: p_api_version => 1,
2693: p_init_msg_list => FND_API.G_FALSE,
2694: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2695: p_commit => FND_API.G_FALSE,
2696: x_return_status => x_return_status,
2697: x_msg_count => x_msg_count,
2698: x_msg_data => x_msg_data,
2699: p_document_type => p_target_doc_type,
2715: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'500:After call to OKC_TEMPLATE_USAGES_GRP.create_template_usages x_return_status: '||x_return_status);
2716: END IF;
2717:
2718: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2719: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2720: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2721: RAISE FND_API.G_EXC_ERROR ;
2722: END IF;
2723:
2717:
2718: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2719: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2720: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2721: RAISE FND_API.G_EXC_ERROR ;
2722: END IF;
2723:
2724: END IF;
2725:
2743: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'600:Finished copy_section. Return Status '||x_return_status);
2744: END IF;
2745:
2746: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2747: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2748: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2749: RAISE FND_API.G_EXC_ERROR ;
2750: END IF;
2751:
2745:
2746: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2747: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2748: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2749: RAISE FND_API.G_EXC_ERROR ;
2750: END IF;
2751:
2752: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2753: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700:Entering copy_articles ');
2770: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700:Finished copy_articles. Return Status '||x_return_status);
2771: END IF;
2772:
2773: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2774: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2775: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2776: RAISE FND_API.G_EXC_ERROR ;
2777: END IF;
2778:
2772:
2773: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2774: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2775: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2776: RAISE FND_API.G_EXC_ERROR ;
2777: END IF;
2778:
2779:
2780: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2795: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'900:Exited copy_article_variables.Return Status '||x_return_status);
2796: END IF;
2797:
2798: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2799: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2800: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2801: RAISE FND_API.G_EXC_ERROR ;
2802: END IF;
2803:
2797:
2798: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2799: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2800: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2801: RAISE FND_API.G_EXC_ERROR ;
2802: END IF;
2803:
2804:
2805: END IF;
2803:
2804:
2805: END IF;
2806:
2807: IF FND_API.To_Boolean( p_commit ) THEN
2808: COMMIT WORK;
2809: END IF;
2810:
2811: -- Standard call to get message count and if count is 1, get message info.
2853: ROLLBACK TO g_copy_tc_pvt;
2854: x_return_status := G_RET_STS_ERROR ;
2855: Okc_Api.Set_Message( G_FND_APP, G_UNABLE_TO_RESERVE_REC);
2856:
2857: WHEN FND_API.G_EXC_ERROR THEN
2858:
2859: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2860: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'800: Leaving copy_tc: OKC_API.G_EXCEPTION_ERROR Exception');
2861: END IF;
2891: ROLLBACK TO g_copy_tc_pvt;
2892: x_return_status := G_RET_STS_ERROR ;
2893: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2894:
2895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2896: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2897: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'900: Leaving copy_tc: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
2898: END IF;
2899:
3055: -- Standard Start of API savepoint
3056: SAVEPOINT g_copy_archived_doc_pvt;
3057:
3058: -- Standard call to check for call compatibility.
3059: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3061: END IF;
3062:
3063: -- Initialize message list if p_init_msg_list is set to TRUE.
3056: SAVEPOINT g_copy_archived_doc_pvt;
3057:
3058: -- Standard call to check for call compatibility.
3059: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3061: END IF;
3062:
3063: -- Initialize message list if p_init_msg_list is set to TRUE.
3064: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3061: END IF;
3062:
3063: -- Initialize message list if p_init_msg_list is set to TRUE.
3064: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3065: FND_MSG_PUB.initialize;
3066: END IF;
3067:
3068: -- Initialize API return status to success
3065: FND_MSG_PUB.initialize;
3066: END IF;
3067:
3068: -- Initialize API return status to success
3069: x_return_status := FND_API.G_RET_STS_SUCCESS;
3070:
3071: /* Create Template Usage Record */
3072:
3073: OPEN l_get_usage_csr;
3098: END IF;
3099:
3100: OKC_TEMPLATE_USAGES_GRP.create_template_usages(
3101: p_api_version => 1,
3102: p_init_msg_list => FND_API.G_FALSE,
3103: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3104: p_commit => FND_API.G_FALSE,
3105: x_return_status => x_return_status,
3106: x_msg_data => x_msg_data,
3099:
3100: OKC_TEMPLATE_USAGES_GRP.create_template_usages(
3101: p_api_version => 1,
3102: p_init_msg_list => FND_API.G_FALSE,
3103: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3104: p_commit => FND_API.G_FALSE,
3105: x_return_status => x_return_status,
3106: x_msg_data => x_msg_data,
3107: x_msg_count => x_msg_count,
3100: OKC_TEMPLATE_USAGES_GRP.create_template_usages(
3101: p_api_version => 1,
3102: p_init_msg_list => FND_API.G_FALSE,
3103: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3104: p_commit => FND_API.G_FALSE,
3105: x_return_status => x_return_status,
3106: x_msg_data => x_msg_data,
3107: x_msg_count => x_msg_count,
3108: p_document_type => p_target_doc_type,
3127: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300:Finished usage record creation.Return Status'||x_return_status);
3128: END IF;
3129:
3130: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3132: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3133: RAISE FND_API.G_EXC_ERROR ;
3134: END IF;
3135: END IF; -- IF ( p_allow_duplicates <>'Y' and l_term_found='Y') OR l_term_found is NULL THEN
3129:
3130: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3132: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3133: RAISE FND_API.G_EXC_ERROR ;
3134: END IF;
3135: END IF; -- IF ( p_allow_duplicates <>'Y' and l_term_found='Y') OR l_term_found is NULL THEN
3136:
3137: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3153: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300:Finished copy_section. Return Status '||x_return_status);
3154: END IF;
3155:
3156: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3158: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3159: RAISE FND_API.G_EXC_ERROR ;
3160: END IF;
3161:
3155:
3156: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3158: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3159: RAISE FND_API.G_EXC_ERROR ;
3160: END IF;
3161:
3162: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3163: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'400:Entering copy_articles. ');
3180: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700:Finished copy_articles. Return Status '||x_return_status);
3181: END IF;
3182:
3183: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3185: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3186: RAISE FND_API.G_EXC_ERROR ;
3187: END IF;
3188:
3182:
3183: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3185: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3186: RAISE FND_API.G_EXC_ERROR ;
3187: END IF;
3188:
3189: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3190: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'800: Copying article variables');
3235: Fnd_Global.Login_Id);
3236:
3237: END IF;
3238:
3239: IF FND_API.To_Boolean( p_commit ) THEN
3240: COMMIT WORK;
3241: END IF;
3242:
3243: -- Standard call to get message count and if count is 1, get message info.
3254: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1100: Leaving copy_archived_doc No Terms Data in Source');
3255: END IF;
3256: null;
3257:
3258: WHEN FND_API.G_EXC_ERROR THEN
3259:
3260: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3261: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'800: Leaving copy_archived_doc: OKC_API.G_EXCEPTION_ERROR Exception');
3262: END IF;
3272: ROLLBACK TO g_copy_archived_doc_pvt;
3273: x_return_status := G_RET_STS_ERROR ;
3274: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3275:
3276: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3277:
3278: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3279: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'900: Leaving copy_archived_doc: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
3280: END IF;