32:
33: ------------------------------------------------------------------------------
34: -- GLOBAL CONSTANTS
35: ------------------------------------------------------------------------------
36: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
37: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
38: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
39: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
40: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
33: ------------------------------------------------------------------------------
34: -- GLOBAL CONSTANTS
35: ------------------------------------------------------------------------------
36: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
37: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
38: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
39: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
40: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
41:
34: -- GLOBAL CONSTANTS
35: ------------------------------------------------------------------------------
36: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
37: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
38: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
39: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
40: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
41:
42: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
35: ------------------------------------------------------------------------------
36: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
37: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
38: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
39: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
40: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
41:
42: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
43: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
36: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
37: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
38: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
39: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
40: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
41:
42: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
43: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
44: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
38: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
39: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
40: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
41:
42: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
43: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
44: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
45:
46: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
39: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
40: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
41:
42: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
43: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
44: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
45:
46: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
47: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
40: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
41:
42: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
43: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
44: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
45:
46: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
47: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
48: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
319: x_last_update_date => l_last_update_date
320: );
321: --- If any errors happen abort API
322: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
324: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
325: RAISE FND_API.G_EXC_ERROR;
326: END IF;
327:
321: --- If any errors happen abort API
322: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
324: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
325: RAISE FND_API.G_EXC_ERROR;
326: END IF;
327:
328: --- Reversing G_MISS/NULL values logic
329:
449: END IF;
450:
451: RETURN G_RET_STS_SUCCESS ;
452: EXCEPTION
453: WHEN FND_API.G_EXC_ERROR THEN
454: IF (l_debug = 'Y') THEN
455: Okc_Debug.Log('900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception', 2);
456: END IF;
457: RETURN G_RET_STS_ERROR;
451: RETURN G_RET_STS_SUCCESS ;
452: EXCEPTION
453: WHEN FND_API.G_EXC_ERROR THEN
454: IF (l_debug = 'Y') THEN
455: Okc_Debug.Log('900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception', 2);
456: END IF;
457: RETURN G_RET_STS_ERROR;
458:
459: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
455: Okc_Debug.Log('900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception', 2);
456: END IF;
457: RETURN G_RET_STS_ERROR;
458:
459: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
460: IF (l_debug = 'Y') THEN
461: Okc_Debug.Log('1000: Leaving Set_Attributes:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
462: END IF;
463: RETURN G_RET_STS_UNEXP_ERROR;
457: RETURN G_RET_STS_ERROR;
458:
459: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
460: IF (l_debug = 'Y') THEN
461: Okc_Debug.Log('1000: Leaving Set_Attributes:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
462: END IF;
463: RETURN G_RET_STS_UNEXP_ERROR;
464:
465: WHEN OTHERS THEN
479: ----------------------------------------------
480: -- Validate_Attributes for: OKC_ALLOWED_TMPL_USAGES --
481: ----------------------------------------------
482: FUNCTION Validate_Attributes (
483: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
484:
485: p_template_id IN NUMBER,
486: p_document_type IN VARCHAR2,
487: p_default_yn IN VARCHAR2,
684: ------------------------------------------
685: -- Validate_Record for:OKC_ALLOWED_TMPL_USAGES --
686: ------------------------------------------
687: FUNCTION Validate_Record (
688: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
689:
690: p_template_id IN NUMBER,
691: p_document_type IN VARCHAR2,
692: p_default_yn IN VARCHAR2,
865: ---------------------------------------
866: -- validate_row for:OKC_ALLOWED_TMPL_USAGES --
867: ---------------------------------------
868: PROCEDURE validate_row(
869: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
870:
871: x_return_status OUT NOCOPY VARCHAR2,
872:
873: p_template_id IN NUMBER,
968: x_attribute14 => l_attribute14,
969: x_attribute15 => l_attribute15
970: );
971: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
973: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
974: RAISE FND_API.G_EXC_ERROR;
975: END IF;
976:
970: );
971: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
973: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
974: RAISE FND_API.G_EXC_ERROR;
975: END IF;
976:
977: -- Validate all non-missing attributes (Item Level Validation)
978: x_return_status := Validate_Record(
1003: Okc_Debug.Log('3200: Leaving validate_row', 2);
1004: END IF;
1005:
1006: EXCEPTION
1007: WHEN FND_API.G_EXC_ERROR THEN
1008: IF (l_debug = 'Y') THEN
1009: Okc_Debug.Log('3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception', 2);
1010: END IF;
1011: x_return_status := G_RET_STS_ERROR;
1005:
1006: EXCEPTION
1007: WHEN FND_API.G_EXC_ERROR THEN
1008: IF (l_debug = 'Y') THEN
1009: Okc_Debug.Log('3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception', 2);
1010: END IF;
1011: x_return_status := G_RET_STS_ERROR;
1012:
1013: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1009: Okc_Debug.Log('3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception', 2);
1010: END IF;
1011: x_return_status := G_RET_STS_ERROR;
1012:
1013: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1014: IF (l_debug = 'Y') THEN
1015: Okc_Debug.Log('3400: Leaving Validate_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1016: END IF;
1017: x_return_status := G_RET_STS_UNEXP_ERROR;
1011: x_return_status := G_RET_STS_ERROR;
1012:
1013: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1014: IF (l_debug = 'Y') THEN
1015: Okc_Debug.Log('3400: Leaving Validate_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1016: END IF;
1017: x_return_status := G_RET_STS_UNEXP_ERROR;
1018:
1019: WHEN OTHERS THEN
1155: -------------------------------------
1156: -- Insert_Row for:OKC_ALLOWED_TMPL_USAGES --
1157: -------------------------------------
1158: PROCEDURE Insert_Row(
1159: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1160: x_return_status OUT NOCOPY VARCHAR2,
1161:
1162: p_template_id IN NUMBER,
1163: p_document_type IN VARCHAR2,
1207: x_allowed_tmpl_usages_id => x_allowed_tmpl_usages_id
1208: );
1209: --- If any errors happen abort API
1210: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1212: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1213: RAISE FND_API.G_EXC_ERROR;
1214: END IF;
1215: ELSE
1209: --- If any errors happen abort API
1210: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1212: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1213: RAISE FND_API.G_EXC_ERROR;
1214: END IF;
1215: ELSE
1216: x_allowed_tmpl_usages_id := p_allowed_tmpl_usages_id;
1217: END IF;
1249: p_attribute15 => p_attribute15
1250: );
1251: --- If any errors happen abort API
1252: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1253: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1254: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1255: RAISE FND_API.G_EXC_ERROR;
1256: END IF;
1257:
1251: --- If any errors happen abort API
1252: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1253: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1254: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1255: RAISE FND_API.G_EXC_ERROR;
1256: END IF;
1257:
1258: --------------------------------------------
1259: -- Call the internal Insert_Row for each child record
1290: p_last_update_login => l_last_update_login,
1291: p_last_update_date => l_last_update_date
1292: );
1293: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1294: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1295: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1296: RAISE FND_API.G_EXC_ERROR;
1297: END IF;
1298:
1292: );
1293: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1294: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1295: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1296: RAISE FND_API.G_EXC_ERROR;
1297: END IF;
1298:
1299:
1300:
1302: Okc_Debug.Log('4500: Leaving Insert_Row', 2);
1303: END IF;
1304:
1305: EXCEPTION
1306: WHEN FND_API.G_EXC_ERROR THEN
1307: IF (l_debug = 'Y') THEN
1308: Okc_Debug.Log('4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception', 2);
1309: END IF;
1310: x_return_status := G_RET_STS_ERROR;
1304:
1305: EXCEPTION
1306: WHEN FND_API.G_EXC_ERROR THEN
1307: IF (l_debug = 'Y') THEN
1308: Okc_Debug.Log('4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception', 2);
1309: END IF;
1310: x_return_status := G_RET_STS_ERROR;
1311:
1312: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1308: Okc_Debug.Log('4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception', 2);
1309: END IF;
1310: x_return_status := G_RET_STS_ERROR;
1311:
1312: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1313: IF (l_debug = 'Y') THEN
1314: Okc_Debug.Log('4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1315: END IF;
1316: x_return_status := G_RET_STS_UNEXP_ERROR;
1310: x_return_status := G_RET_STS_ERROR;
1311:
1312: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1313: IF (l_debug = 'Y') THEN
1314: Okc_Debug.Log('4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1315: END IF;
1316: x_return_status := G_RET_STS_UNEXP_ERROR;
1317:
1318: WHEN OTHERS THEN
1456: p_allowed_tmpl_usages_id => p_allowed_tmpl_usages_id,
1457: p_object_version_number => p_object_version_number
1458: );
1459: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1461: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1462: RAISE FND_API.G_EXC_ERROR;
1463: END IF;
1464:
1458: );
1459: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1461: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1462: RAISE FND_API.G_EXC_ERROR;
1463: END IF;
1464:
1465:
1466:
1468: Okc_Debug.Log('6000: Leaving Lock_Row', 2);
1469: END IF;
1470:
1471: EXCEPTION
1472: WHEN FND_API.G_EXC_ERROR THEN
1473: IF (l_debug = 'Y') THEN
1474: Okc_Debug.Log('6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception', 2);
1475: END IF;
1476: x_return_status := G_RET_STS_ERROR;
1470:
1471: EXCEPTION
1472: WHEN FND_API.G_EXC_ERROR THEN
1473: IF (l_debug = 'Y') THEN
1474: Okc_Debug.Log('6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception', 2);
1475: END IF;
1476: x_return_status := G_RET_STS_ERROR;
1477:
1478: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1474: Okc_Debug.Log('6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception', 2);
1475: END IF;
1476: x_return_status := G_RET_STS_ERROR;
1477:
1478: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1479: IF (l_debug = 'Y') THEN
1480: Okc_Debug.Log('6200: Leaving Lock_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1481: END IF;
1482: x_return_status := G_RET_STS_UNEXP_ERROR;
1476: x_return_status := G_RET_STS_ERROR;
1477:
1478: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1479: IF (l_debug = 'Y') THEN
1480: Okc_Debug.Log('6200: Leaving Lock_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1481: END IF;
1482: x_return_status := G_RET_STS_UNEXP_ERROR;
1483:
1484: WHEN OTHERS THEN
1586: -------------------------------------
1587: -- Update_Row for:OKC_ALLOWED_TMPL_USAGES --
1588: -------------------------------------
1589: PROCEDURE Update_Row(
1590: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1591:
1592: x_return_status OUT NOCOPY VARCHAR2,
1593:
1594: p_allowed_tmpl_usages_id IN NUMBER,
1652: p_allowed_tmpl_usages_id => p_allowed_tmpl_usages_id,
1653: p_object_version_number => p_object_version_number
1654: );
1655: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1657: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1658: RAISE FND_API.G_EXC_ERROR;
1659: END IF;
1660:
1654: );
1655: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1657: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1658: RAISE FND_API.G_EXC_ERROR;
1659: END IF;
1660:
1661:
1662: IF (l_debug = 'Y') THEN
1705: x_attribute14 => l_attribute14,
1706: x_attribute15 => l_attribute15
1707: );
1708: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1709: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1710: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1711: RAISE FND_API.G_EXC_ERROR;
1712: END IF;
1713:
1707: );
1708: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1709: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1710: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1711: RAISE FND_API.G_EXC_ERROR;
1712: END IF;
1713:
1714: IF (l_debug = 'Y') THEN
1715: Okc_Debug.Log('7400: Record Validation', 2);
1740: p_attribute15 => l_attribute15
1741: );
1742: --- If any errors happen abort API
1743: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1744: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1745: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1746: RAISE FND_API.G_EXC_ERROR;
1747: END IF;
1748:
1742: --- If any errors happen abort API
1743: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1744: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1745: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1746: RAISE FND_API.G_EXC_ERROR;
1747: END IF;
1748:
1749: IF (l_debug = 'Y') THEN
1750: Okc_Debug.Log('7500: Filling WHO columns', 2);
1793: p_last_update_login => l_last_update_login,
1794: p_last_update_date => l_last_update_date
1795: );
1796: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1797: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1798: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1799: RAISE FND_API.G_EXC_ERROR;
1800: END IF;
1801:
1795: );
1796: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1797: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1798: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1799: RAISE FND_API.G_EXC_ERROR;
1800: END IF;
1801:
1802:
1803: IF (l_debug = 'Y') THEN
1804: Okc_Debug.Log('7800: Leaving Update_Row', 2);
1805: END IF;
1806:
1807: EXCEPTION
1808: WHEN FND_API.G_EXC_ERROR THEN
1809: IF (l_debug = 'Y') THEN
1810: Okc_Debug.Log('7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception', 2);
1811: END IF;
1812: x_return_status := G_RET_STS_ERROR;
1806:
1807: EXCEPTION
1808: WHEN FND_API.G_EXC_ERROR THEN
1809: IF (l_debug = 'Y') THEN
1810: Okc_Debug.Log('7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception', 2);
1811: END IF;
1812: x_return_status := G_RET_STS_ERROR;
1813:
1814: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1810: Okc_Debug.Log('7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception', 2);
1811: END IF;
1812: x_return_status := G_RET_STS_ERROR;
1813:
1814: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1815: IF (l_debug = 'Y') THEN
1816: Okc_Debug.Log('8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1817: END IF;
1818: x_return_status := G_RET_STS_UNEXP_ERROR;
1812: x_return_status := G_RET_STS_ERROR;
1813:
1814: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1815: IF (l_debug = 'Y') THEN
1816: Okc_Debug.Log('8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1817: END IF;
1818: x_return_status := G_RET_STS_UNEXP_ERROR;
1819:
1820: WHEN OTHERS THEN
1894: p_allowed_tmpl_usages_id => p_allowed_tmpl_usages_id,
1895: p_object_version_number => p_object_version_number
1896: );
1897: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1899: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1900: RAISE FND_API.G_EXC_ERROR;
1901: END IF;
1902:
1896: );
1897: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1899: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1900: RAISE FND_API.G_EXC_ERROR;
1901: END IF;
1902:
1903:
1904: IF (l_debug = 'Y') THEN
1905: Okc_Debug.Log('9100: Removing _B row', 2);
1906: END IF;
1907: x_return_status := Delete_Row( p_allowed_tmpl_usages_id => p_allowed_tmpl_usages_id );
1908: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1909: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1910: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1911: RAISE FND_API.G_EXC_ERROR;
1912: END IF;
1913:
1907: x_return_status := Delete_Row( p_allowed_tmpl_usages_id => p_allowed_tmpl_usages_id );
1908: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1909: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1910: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1911: RAISE FND_API.G_EXC_ERROR;
1912: END IF;
1913:
1914:
1915: IF (l_debug = 'Y') THEN
1916: Okc_Debug.Log('9300: Leaving Delete_Row', 2);
1917: END IF;
1918:
1919: EXCEPTION
1920: WHEN FND_API.G_EXC_ERROR THEN
1921: IF (l_debug = 'Y') THEN
1922: Okc_Debug.Log('9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception', 2);
1923: END IF;
1924: x_return_status := G_RET_STS_ERROR;
1918:
1919: EXCEPTION
1920: WHEN FND_API.G_EXC_ERROR THEN
1921: IF (l_debug = 'Y') THEN
1922: Okc_Debug.Log('9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception', 2);
1923: END IF;
1924: x_return_status := G_RET_STS_ERROR;
1925:
1926: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1922: Okc_Debug.Log('9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception', 2);
1923: END IF;
1924: x_return_status := G_RET_STS_ERROR;
1925:
1926: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1927: IF (l_debug = 'Y') THEN
1928: Okc_Debug.Log('9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1929: END IF;
1930: x_return_status := G_RET_STS_UNEXP_ERROR;
1924: x_return_status := G_RET_STS_ERROR;
1925:
1926: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1927: IF (l_debug = 'Y') THEN
1928: Okc_Debug.Log('9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1929: END IF;
1930: x_return_status := G_RET_STS_UNEXP_ERROR;
1931:
1932: WHEN OTHERS THEN