[Home] [Help]
1735:
1736: BEGIN
1737:
1738: IF (l_debug = 'Y') THEN
1739: OKC_DEBUG.log('1000 : Starting OKC_SUBCLASS_PVT.Copy_category ', 2);
1740: END IF;
1741:
1742: sre_relationship_tbl.delete;
1743: srd_relationship_tbl.delete;
1762:
1763: ClOSE c_get_sublass;
1764:
1765: IF (l_debug = 'Y') THEN
1766: OKC_DEBUG.log('1003 : Calling OKC_SUBCLASS_PVT.create_subclass ', 2);
1767: END IF;
1768:
1769: create_subclass(
1770: p_api_version => p_api_version ,
1775: p_scsv_rec => l_scsv_rec,
1776: x_scsv_rec => lx_scsv_rec);
1777:
1778: IF (l_debug = 'Y') THEN
1779: OKC_DEBUG.log('1004 : Exit OKC_SUBCLASS_PVT.create_subclass '||l_return_status, 2);
1780: END IF;
1781:
1782: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1783: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1820:
1821: IF l_cnt > 0 Then
1822:
1823: IF (l_debug = 'Y') THEN
1824: OKC_DEBUG.log('1007 : Calling OKC_SUBCLASS_PVT.create_subclass_roles ', 2);
1825: END IF;
1826:
1827: create_subclass_roles(
1828: p_api_version => p_api_version,
1833: p_srev_tbl => l_srev_tbl,
1834: x_srev_tbl => lx_srev_tbl);
1835:
1836: IF (l_debug = 'Y') THEN
1837: OKC_DEBUG.log('1008 : Exit OKC_SUBCLASS_PVT.create_subclass_roles '||l_return_status, 2);
1838: END IF;
1839:
1840: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1841: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1886:
1887: IF l_cnt > 0 Then
1888:
1889: IF (l_debug = 'Y') THEN
1890: OKC_DEBUG.log('1009 : Calling OKC_SUBCLASS_PVT.create_subclass_rg_defs ', 2);
1891: END IF;
1892:
1893: create_subclass_rg_defs(
1894: p_api_version => p_api_version,
1899: p_srdv_tbl => l_srdv_tbl,
1900: x_srdv_tbl => lx_srdv_tbl);
1901:
1902: IF (l_debug = 'Y') THEN
1903: OKC_DEBUG.log('1010 : Exit OKC_SUBCLASS_PVT.create_subclass_rg_defs '||l_return_status, 2);
1904: END IF;
1905:
1906: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1907: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1970:
1971: IF l_cnt > 0 Then
1972:
1973: IF (l_debug = 'Y') THEN
1974: OKC_DEBUG.log('1011 : Calling OKC_SUBCLASS_PVT.create_rg_role_defs ', 2);
1975: END IF;
1976:
1977: create_rg_role_defs(
1978: p_api_version => p_api_version,
1983: p_rrdv_tbl => l_rrdv_tbl,
1984: x_rrdv_tbl => lx_rrdv_tbl);
1985:
1986: IF (l_debug = 'Y') THEN
1987: OKC_DEBUG.log('1012 : Exit OKC_SUBCLASS_PVT.create_rg_role_defs '||l_return_status, 2);
1988: END IF;
1989:
1990: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1991:
2029:
2030: IF l_cnt > 0 Then
2031:
2032: IF (l_debug = 'Y') THEN
2033: OKC_DEBUG.log('1013 : Calling OKC_SUBCLASS_PVT.create_subclass_top_line ', 2);
2034: END IF;
2035:
2036: create_subclass_top_line(
2037: p_api_version => p_api_version,
2042: p_stlv_tbl => l_stlv_tbl,
2043: x_stlv_tbl => lx_stlv_tbl);
2044:
2045: IF (l_debug = 'Y') THEN
2046: OKC_DEBUG.log('1014 : Exit OKC_SUBCLASS_PVT.create_subclass_top_line '||l_return_status, 2);
2047: END IF;
2048:
2049: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2050:
2089:
2090: IF l_cnt > 0 Then
2091:
2092: IF (l_debug = 'Y') THEN
2093: OKC_DEBUG.log('1015 : Calling OKC_SUBCLASS_PVT.create_line_style_roles ', 2);
2094: END IF;
2095:
2096: create_line_style_roles(
2097: p_api_version => p_api_version,
2102: p_lsrv_tbl => l_lsrv_tbl,
2103: x_lsrv_tbl => lx_lsrv_tbl);
2104:
2105: IF (l_debug = 'Y') THEN
2106: OKC_DEBUG.log('1016 : Exit OKC_SUBCLASS_PVT.create_line_style_roles '||l_return_status, 2);
2107: END IF;
2108:
2109: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2110:
2147:
2148: IF l_cnt > 0 Then
2149:
2150: IF (l_debug = 'Y') THEN
2151: OKC_DEBUG.log('1017 : Calling OKC_SUBCLASS_PVT.create_lse_rule_groups ', 2);
2152: END IF;
2153:
2154: create_lse_rule_groups(
2155: p_api_version => p_api_version,
2160: p_lrgv_tbl => l_lrgv_tbl,
2161: x_lrgv_tbl => lx_lrgv_tbl);
2162:
2163: IF (l_debug = 'Y') THEN
2164: OKC_DEBUG.log('1018 : Exit OKC_SUBCLASS_PVT.create_lse_rule_groups '||l_return_status, 2);
2165: END IF;
2166:
2167: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2168:
2208:
2209: IF l_cnt > 0 Then
2210:
2211: IF (l_debug = 'Y') THEN
2212: OKC_DEBUG.log('1019 : Calling OKC_SUBCLASS_PVT.create_subclass_resps ', 2);
2213: END IF;
2214:
2215: create_subclass_resps(
2216: p_api_version => p_api_version ,
2221: p_srav_tbl => l_srav_tbl,
2222: x_srav_tbl => lx_srav_tbl);
2223:
2224: IF (l_debug = 'Y') THEN
2225: OKC_DEBUG.log('1020 : Exit OKC_SUBCLASS_PVT.create_subclass_resps '||l_return_status, 2);
2226: END IF;
2227:
2228: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2229:
2285:
2286: IF l_cnt > 0 Then
2287:
2288: IF (l_debug = 'Y') THEN
2289: OKC_DEBUG.log('1021 : Calling OKC_ASSENT_PUB.create_assent ', 2);
2290: END IF;
2291:
2292: OKC_ASSENT_PUB.create_assent(
2293: p_api_version => p_api_version ,
2298: p_astv_tbl => l_astv_tbl,
2299: x_astv_tbl => lx_astv_tbl);
2300:
2301: IF (l_debug = 'Y') THEN
2302: OKC_DEBUG.log('1022 : Exit OKC_SUBCLASS_PVT.create_subclass_resps '||l_return_status, 2);
2303: END IF;
2304:
2305: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2306:
2320: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2321: x_scsv_rec := lx_scsv_rec;
2322:
2323: IF (l_debug = 'Y') THEN
2324: OKC_DEBUG.log('1050 : End OKC_SUBCLASS_PVT.Copy_category......Status '||x_return_status, 2);
2325: END IF;
2326:
2327: EXCEPTION
2328:
2365: END IF;
2366:
2367: x_return_status := FND_API.G_RET_STS_ERROR;
2368: IF (l_debug = 'Y') THEN
2369: OKC_DEBUG.log('1050 : End with Error...OKC_SUBCLASS_PVT.Copy_category......Status '||x_return_status, 2);
2370: END IF;
2371:
2372:
2373: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2410:
2411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2412:
2413: IF (l_debug = 'Y') THEN
2414: OKC_DEBUG.log('1050 : End with Unexpected Error...OKC_SUBCLASS_PVT.Copy_category......Status '||x_return_status, 2);
2415: END IF;
2416:
2417: END;
2418: END okc_subclass_pvt;