1334: SAVEPOINT l_program_name;
1335: END IF;
1336:
1337: IF p_init_msg_list = G_TRUE THEN
1338: FND_MSG_PUB.initialize;
1339: END IF;
1340:
1341: get_currency_code (
1342: p_parent_object_id => p_service_rec.parent_object_id
1492: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1493:
1494: IF p_transaction_control = G_TRUE THEN
1495: ROLLBACK TO l_program_name;
1496: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1497: END IF;
1498:
1499: x_return_status := G_RET_STS_ERROR;
1500:
1501: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1502:
1503: IF p_transaction_control = G_TRUE THEN
1504: ROLLBACK TO l_program_name;
1505: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1506: END IF;
1507:
1508: x_return_status := G_RET_STS_UNEXP_ERROR;
1509:
1519: p_token3_value => sqlerrm);
1520:
1521: IF p_transaction_control = G_TRUE THEN
1522: ROLLBACK TO l_program_name;
1523: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1524: END IF;
1525:
1526: x_return_status := G_RET_STS_UNEXP_ERROR;
1527:
1621: SAVEPOINT l_program_name;
1622: END IF;
1623:
1624: IF p_init_msg_list = G_TRUE THEN
1625: FND_MSG_PUB.initialize;
1626: END IF;
1627:
1628: -- Fetch Line Relationships info
1629: get_line_relations_tbl (p_service_id => p_service_id
1706: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1707:
1708: IF p_transaction_control = G_TRUE THEN
1709: ROLLBACK TO l_program_name;
1710: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1711: END IF;
1712:
1713: x_return_status := G_RET_STS_ERROR;
1714:
1715: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1716:
1717: IF p_transaction_control = G_TRUE THEN
1718: ROLLBACK TO l_program_name;
1719: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1720: END IF;
1721:
1722: x_return_status := G_RET_STS_UNEXP_ERROR;
1723:
1733: p_token3_value => sqlerrm);
1734:
1735: IF p_transaction_control = G_TRUE THEN
1736: ROLLBACK TO l_program_name;
1737: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1738: END IF;
1739:
1740: x_return_status := G_RET_STS_UNEXP_ERROR;
1741:
1777: SAVEPOINT l_program_name;
1778: END IF;
1779:
1780: IF p_init_msg_list = G_TRUE THEN
1781: FND_MSG_PUB.initialize;
1782: END IF;
1783:
1784: get_currency_code (
1785: p_parent_object_id => p_service_rec.parent_object_id
1934: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1935:
1936: IF p_transaction_control = G_TRUE THEN
1937: ROLLBACK TO l_program_name;
1938: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1939: END IF;
1940:
1941: x_return_status := G_RET_STS_ERROR;
1942:
1943: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1944:
1945: IF p_transaction_control = G_TRUE THEN
1946: ROLLBACK TO l_program_name;
1947: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1948: END IF;
1949:
1950: x_return_status := G_RET_STS_UNEXP_ERROR;
1951:
1961: p_token3_value => sqlerrm);
1962:
1963: IF p_transaction_control = G_TRUE THEN
1964: ROLLBACK TO l_program_name;
1965: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1966: END IF;
1967:
1968: x_return_status := G_RET_STS_UNEXP_ERROR;
1969:
1999: SAVEPOINT l_program_name;
2000: END IF;
2001:
2002: IF p_init_msg_list = G_TRUE THEN
2003: FND_MSG_PUB.initialize;
2004: END IF;
2005:
2006: create_service (
2007: p_api_version => G_API_VERSION
2032: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2033:
2034: IF p_transaction_control = G_TRUE THEN
2035: ROLLBACK TO l_program_name;
2036: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2037: END IF;
2038:
2039: x_return_status := G_RET_STS_ERROR;
2040:
2041: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2042:
2043: IF p_transaction_control = G_TRUE THEN
2044: ROLLBACK TO l_program_name;
2045: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2046: END IF;
2047:
2048: x_return_status := G_RET_STS_UNEXP_ERROR;
2049:
2059: p_token3_value => sqlerrm);
2060:
2061: IF p_transaction_control = G_TRUE THEN
2062: ROLLBACK TO l_program_name;
2063: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2064: END IF;
2065:
2066: x_return_status := G_RET_STS_UNEXP_ERROR;
2067:
2104: SAVEPOINT l_program_name;
2105: END IF;
2106:
2107: IF p_init_msg_list = G_TRUE THEN
2108: FND_MSG_PUB.initialize;
2109: END IF;
2110:
2111: get_service_rec (
2112: p_service_id => p_source_service_id
2207: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2208:
2209: IF p_transaction_control = G_TRUE THEN
2210: ROLLBACK TO l_program_name;
2211: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2212: END IF;
2213:
2214: x_return_status := G_RET_STS_ERROR;
2215:
2216: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2217:
2218: IF p_transaction_control = G_TRUE THEN
2219: ROLLBACK TO l_program_name;
2220: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2221: END IF;
2222:
2223: x_return_status := G_RET_STS_UNEXP_ERROR;
2224:
2234: p_token3_value => sqlerrm);
2235:
2236: IF p_transaction_control = G_TRUE THEN
2237: ROLLBACK TO l_program_name;
2238: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2239: END IF;
2240:
2241: x_return_status := G_RET_STS_UNEXP_ERROR;
2242:
2275: SAVEPOINT l_program_name;
2276: END IF;
2277:
2278: IF p_init_msg_list = G_TRUE THEN
2279: FND_MSG_PUB.initialize;
2280: END IF;
2281:
2282: i := 0;
2283: FOR l_subline IN c_sublines LOOP
2345: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2346:
2347: IF p_transaction_control = G_TRUE THEN
2348: ROLLBACK TO l_program_name;
2349: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2350: END IF;
2351:
2352: x_return_status := G_RET_STS_ERROR;
2353:
2354: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2355:
2356: IF p_transaction_control = G_TRUE THEN
2357: ROLLBACK TO l_program_name;
2358: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2359: END IF;
2360:
2361: x_return_status := G_RET_STS_UNEXP_ERROR;
2362:
2372: p_token3_value => sqlerrm);
2373:
2374: IF p_transaction_control = G_TRUE THEN
2375: ROLLBACK TO l_program_name;
2376: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2377: END IF;
2378:
2379: x_return_status := G_RET_STS_UNEXP_ERROR;
2380: