33:
34: ------------------------------------------------------------------------------
35: -- GLOBAL CONSTANTS
36: ------------------------------------------------------------------------------
37: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
38: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
39: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
40: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
41: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
34: ------------------------------------------------------------------------------
35: -- GLOBAL CONSTANTS
36: ------------------------------------------------------------------------------
37: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
38: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
39: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
40: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
41: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
42:
35: -- GLOBAL CONSTANTS
36: ------------------------------------------------------------------------------
37: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
38: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
39: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
40: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
41: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
42:
43: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
36: ------------------------------------------------------------------------------
37: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
38: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
39: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
40: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
41: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
42:
43: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
44: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
37: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
38: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
39: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
40: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
41: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
42:
43: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
44: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
45: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
39: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
40: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
41: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
42:
43: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
44: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
45: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
46:
47: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
40: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
41: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
42:
43: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
44: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
45: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
46:
47: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
48: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
41: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
42:
43: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
44: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
45: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
46:
47: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
48: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
49: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
308: x_last_update_date => l_last_update_date
309: );
310: --- If any errors happen abort API
311: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
313: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
314: RAISE FND_API.G_EXC_ERROR;
315: END IF;
316:
310: --- If any errors happen abort API
311: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
313: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
314: RAISE FND_API.G_EXC_ERROR;
315: END IF;
316:
317: --- Reversing G_MISS/NULL values logic
318:
427: END IF;
428:
429: RETURN G_RET_STS_SUCCESS ;
430: EXCEPTION
431: WHEN FND_API.G_EXC_ERROR THEN
432: IF (l_debug = 'Y') THEN
433: Okc_Debug.Log('900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception', 2);
434: END IF;
435: RETURN G_RET_STS_ERROR;
429: RETURN G_RET_STS_SUCCESS ;
430: EXCEPTION
431: WHEN FND_API.G_EXC_ERROR THEN
432: IF (l_debug = 'Y') THEN
433: Okc_Debug.Log('900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception', 2);
434: END IF;
435: RETURN G_RET_STS_ERROR;
436:
437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
433: Okc_Debug.Log('900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception', 2);
434: END IF;
435: RETURN G_RET_STS_ERROR;
436:
437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
438: IF (l_debug = 'Y') THEN
439: Okc_Debug.Log('1000: Leaving Set_Attributes:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
440: END IF;
441: RETURN G_RET_STS_UNEXP_ERROR;
435: RETURN G_RET_STS_ERROR;
436:
437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
438: IF (l_debug = 'Y') THEN
439: Okc_Debug.Log('1000: Leaving Set_Attributes:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
440: END IF;
441: RETURN G_RET_STS_UNEXP_ERROR;
442:
443: WHEN OTHERS THEN
457: ----------------------------------------------
458: -- Validate_Attributes for: OKC_REVIEW_UPLD_TERMS --
459: ----------------------------------------------
460: FUNCTION Validate_Attributes (
461: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
462:
463: p_REVIEW_UPLD_TERMS_id IN NUMBER,
464: p_document_id IN NUMBER,
465: p_document_type IN VARCHAR2,
711: ------------------------------------------
712: -- Validate_Record for:OKC_REVIEW_UPLD_TERMS --
713: ------------------------------------------
714: FUNCTION Validate_Record (
715: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
716:
717: p_REVIEW_UPLD_TERMS_id IN NUMBER,
718: p_document_id IN NUMBER,
719: p_document_type IN VARCHAR2,
809: ---------------------------------------
810: -- validate_row for:OKC_REVIEW_UPLD_TERMS --
811: ---------------------------------------
812: PROCEDURE validate_row(
813: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
814:
815: x_return_status OUT NOCOPY VARCHAR2,
816:
817: p_REVIEW_UPLD_TERMS_id IN NUMBER,
904: x_new_parent_id => l_new_parent_id,
905: x_upload_level => l_upload_level
906: );
907: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
909: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
910: RAISE FND_API.G_EXC_ERROR;
911: END IF;
912:
906: );
907: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
909: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
910: RAISE FND_API.G_EXC_ERROR;
911: END IF;
912:
913: -- Validate all non-missing attributes (Item Level Validation)
914: l_object_version_number := p_object_version_number ;
938: Okc_Debug.Log('3200: Leaving validate_row', 2);
939: END IF;
940:
941: EXCEPTION
942: WHEN FND_API.G_EXC_ERROR THEN
943: IF (l_debug = 'Y') THEN
944: Okc_Debug.Log('3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception', 2);
945: END IF;
946: x_return_status := G_RET_STS_ERROR;
940:
941: EXCEPTION
942: WHEN FND_API.G_EXC_ERROR THEN
943: IF (l_debug = 'Y') THEN
944: Okc_Debug.Log('3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception', 2);
945: END IF;
946: x_return_status := G_RET_STS_ERROR;
947:
948: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
944: Okc_Debug.Log('3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception', 2);
945: END IF;
946: x_return_status := G_RET_STS_ERROR;
947:
948: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
949: IF (l_debug = 'Y') THEN
950: Okc_Debug.Log('3400: Leaving Validate_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
951: END IF;
952: x_return_status := G_RET_STS_UNEXP_ERROR;
946: x_return_status := G_RET_STS_ERROR;
947:
948: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
949: IF (l_debug = 'Y') THEN
950: Okc_Debug.Log('3400: Leaving Validate_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
951: END IF;
952: x_return_status := G_RET_STS_UNEXP_ERROR;
953:
954: WHEN OTHERS THEN
1084: -------------------------------------
1085: -- Insert_Row for:OKC_REVIEW_UPLD_TERMS --
1086: -------------------------------------
1087: PROCEDURE Insert_Row(
1088: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1089: x_return_status OUT NOCOPY VARCHAR2,
1090:
1091: p_REVIEW_UPLD_TERMS_id IN NUMBER,
1092: p_document_id IN NUMBER,
1133: x_REVIEW_UPLD_TERMS_id => x_REVIEW_UPLD_TERMS_id
1134: );
1135: --- If any errors happen abort API
1136: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1138: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1139: RAISE FND_API.G_EXC_ERROR;
1140: END IF;
1141: ELSE
1135: --- If any errors happen abort API
1136: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1138: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1139: RAISE FND_API.G_EXC_ERROR;
1140: END IF;
1141: ELSE
1142: x_REVIEW_UPLD_TERMS_id := p_REVIEW_UPLD_TERMS_id;
1143: END IF;
1173: p_upload_level => p_upload_level
1174: );
1175: --- If any errors happen abort API
1176: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1178: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1179: RAISE FND_API.G_EXC_ERROR;
1180: END IF;
1181:
1175: --- If any errors happen abort API
1176: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1178: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1179: RAISE FND_API.G_EXC_ERROR;
1180: END IF;
1181:
1182: --------------------------------------------
1183: -- Call the internal Insert_Row for each child record
1212: p_last_update_login => l_last_update_login,
1213: p_last_update_date => l_last_update_date
1214: );
1215: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1217: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1218: RAISE FND_API.G_EXC_ERROR;
1219: END IF;
1220:
1214: );
1215: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1217: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1218: RAISE FND_API.G_EXC_ERROR;
1219: END IF;
1220:
1221:
1222:
1224: Okc_Debug.Log('4500: Leaving Insert_Row', 2);
1225: END IF;
1226:
1227: EXCEPTION
1228: WHEN FND_API.G_EXC_ERROR THEN
1229: IF (l_debug = 'Y') THEN
1230: Okc_Debug.Log('4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception', 2);
1231: END IF;
1232: x_return_status := G_RET_STS_ERROR;
1226:
1227: EXCEPTION
1228: WHEN FND_API.G_EXC_ERROR THEN
1229: IF (l_debug = 'Y') THEN
1230: Okc_Debug.Log('4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception', 2);
1231: END IF;
1232: x_return_status := G_RET_STS_ERROR;
1233:
1234: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1230: Okc_Debug.Log('4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception', 2);
1231: END IF;
1232: x_return_status := G_RET_STS_ERROR;
1233:
1234: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1235: IF (l_debug = 'Y') THEN
1236: Okc_Debug.Log('4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1237: END IF;
1238: x_return_status := G_RET_STS_UNEXP_ERROR;
1232: x_return_status := G_RET_STS_ERROR;
1233:
1234: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1235: IF (l_debug = 'Y') THEN
1236: Okc_Debug.Log('4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1237: END IF;
1238: x_return_status := G_RET_STS_UNEXP_ERROR;
1239:
1240: WHEN OTHERS THEN
1378: p_REVIEW_UPLD_TERMS_id => p_REVIEW_UPLD_TERMS_id,
1379: p_object_version_number => p_object_version_number
1380: );
1381: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1383: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1384: RAISE FND_API.G_EXC_ERROR;
1385: END IF;
1386:
1380: );
1381: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1383: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1384: RAISE FND_API.G_EXC_ERROR;
1385: END IF;
1386:
1387:
1388:
1390: Okc_Debug.Log('6000: Leaving Lock_Row', 2);
1391: END IF;
1392:
1393: EXCEPTION
1394: WHEN FND_API.G_EXC_ERROR THEN
1395: IF (l_debug = 'Y') THEN
1396: Okc_Debug.Log('6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception', 2);
1397: END IF;
1398: x_return_status := G_RET_STS_ERROR;
1392:
1393: EXCEPTION
1394: WHEN FND_API.G_EXC_ERROR THEN
1395: IF (l_debug = 'Y') THEN
1396: Okc_Debug.Log('6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception', 2);
1397: END IF;
1398: x_return_status := G_RET_STS_ERROR;
1399:
1400: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1396: Okc_Debug.Log('6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception', 2);
1397: END IF;
1398: x_return_status := G_RET_STS_ERROR;
1399:
1400: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1401: IF (l_debug = 'Y') THEN
1402: Okc_Debug.Log('6200: Leaving Lock_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1403: END IF;
1404: x_return_status := G_RET_STS_UNEXP_ERROR;
1398: x_return_status := G_RET_STS_ERROR;
1399:
1400: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1401: IF (l_debug = 'Y') THEN
1402: Okc_Debug.Log('6200: Leaving Lock_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1403: END IF;
1404: x_return_status := G_RET_STS_UNEXP_ERROR;
1405:
1406: WHEN OTHERS THEN
1504: -------------------------------------
1505: -- Update_Row for:OKC_REVIEW_UPLD_TERMS --
1506: -------------------------------------
1507: PROCEDURE Update_Row(
1508: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1509:
1510: x_return_status OUT NOCOPY VARCHAR2,
1511:
1512: p_REVIEW_UPLD_TERMS_id IN NUMBER,
1565: p_REVIEW_UPLD_TERMS_id => p_REVIEW_UPLD_TERMS_id,
1566: p_object_version_number => p_object_version_number
1567: );
1568: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1570: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1571: RAISE FND_API.G_EXC_ERROR;
1572: END IF;
1573:
1567: );
1568: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1570: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1571: RAISE FND_API.G_EXC_ERROR;
1572: END IF;
1573:
1574:
1575: IF (l_debug = 'Y') THEN
1615: x_new_parent_id => l_new_parent_id,
1616: x_upload_level => l_upload_level
1617: );
1618: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1619: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1620: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1621: RAISE FND_API.G_EXC_ERROR;
1622: END IF;
1623:
1617: );
1618: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1619: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1620: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1621: RAISE FND_API.G_EXC_ERROR;
1622: END IF;
1623:
1624: IF (l_debug = 'Y') THEN
1625: Okc_Debug.Log('7400: Record Validation', 2);
1648: p_upload_level => l_upload_level
1649: );
1650: --- If any errors happen abort API
1651: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1652: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1653: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1654: RAISE FND_API.G_EXC_ERROR;
1655: END IF;
1656:
1650: --- If any errors happen abort API
1651: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1652: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1653: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1654: RAISE FND_API.G_EXC_ERROR;
1655: END IF;
1656:
1657: IF (l_debug = 'Y') THEN
1658: Okc_Debug.Log('7500: Filling WHO columns', 2);
1700: p_last_update_login => l_last_update_login,
1701: p_last_update_date => l_last_update_date
1702: );
1703: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1704: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1705: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1706: RAISE FND_API.G_EXC_ERROR;
1707: END IF;
1708:
1702: );
1703: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1704: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1705: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1706: RAISE FND_API.G_EXC_ERROR;
1707: END IF;
1708:
1709:
1710: IF (l_debug = 'Y') THEN
1711: Okc_Debug.Log('7800: Leaving Update_Row', 2);
1712: END IF;
1713:
1714: EXCEPTION
1715: WHEN FND_API.G_EXC_ERROR THEN
1716: IF (l_debug = 'Y') THEN
1717: Okc_Debug.Log('7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception', 2);
1718: END IF;
1719: x_return_status := G_RET_STS_ERROR;
1713:
1714: EXCEPTION
1715: WHEN FND_API.G_EXC_ERROR THEN
1716: IF (l_debug = 'Y') THEN
1717: Okc_Debug.Log('7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception', 2);
1718: END IF;
1719: x_return_status := G_RET_STS_ERROR;
1720:
1721: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1717: Okc_Debug.Log('7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception', 2);
1718: END IF;
1719: x_return_status := G_RET_STS_ERROR;
1720:
1721: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1722: IF (l_debug = 'Y') THEN
1723: Okc_Debug.Log('8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1724: END IF;
1725: x_return_status := G_RET_STS_UNEXP_ERROR;
1719: x_return_status := G_RET_STS_ERROR;
1720:
1721: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1722: IF (l_debug = 'Y') THEN
1723: Okc_Debug.Log('8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1724: END IF;
1725: x_return_status := G_RET_STS_UNEXP_ERROR;
1726:
1727: WHEN OTHERS THEN
1801: p_REVIEW_UPLD_TERMS_id => p_REVIEW_UPLD_TERMS_id,
1802: p_object_version_number => p_object_version_number
1803: );
1804: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1805: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1806: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1807: RAISE FND_API.G_EXC_ERROR;
1808: END IF;
1809:
1803: );
1804: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1805: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1806: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1807: RAISE FND_API.G_EXC_ERROR;
1808: END IF;
1809:
1810:
1811: IF (l_debug = 'Y') THEN
1812: Okc_Debug.Log('9100: Removing _B row', 2);
1813: END IF;
1814: x_return_status := Delete_Row( p_REVIEW_UPLD_TERMS_id => p_REVIEW_UPLD_TERMS_id );
1815: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1817: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1818: RAISE FND_API.G_EXC_ERROR;
1819: END IF;
1820:
1814: x_return_status := Delete_Row( p_REVIEW_UPLD_TERMS_id => p_REVIEW_UPLD_TERMS_id );
1815: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1817: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1818: RAISE FND_API.G_EXC_ERROR;
1819: END IF;
1820:
1821:
1822: IF (l_debug = 'Y') THEN
1823: Okc_Debug.Log('9300: Leaving Delete_Row', 2);
1824: END IF;
1825:
1826: EXCEPTION
1827: WHEN FND_API.G_EXC_ERROR THEN
1828: IF (l_debug = 'Y') THEN
1829: Okc_Debug.Log('9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception', 2);
1830: END IF;
1831: x_return_status := G_RET_STS_ERROR;
1825:
1826: EXCEPTION
1827: WHEN FND_API.G_EXC_ERROR THEN
1828: IF (l_debug = 'Y') THEN
1829: Okc_Debug.Log('9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception', 2);
1830: END IF;
1831: x_return_status := G_RET_STS_ERROR;
1832:
1833: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1829: Okc_Debug.Log('9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception', 2);
1830: END IF;
1831: x_return_status := G_RET_STS_ERROR;
1832:
1833: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1834: IF (l_debug = 'Y') THEN
1835: Okc_Debug.Log('9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1836: END IF;
1837: x_return_status := G_RET_STS_UNEXP_ERROR;
1831: x_return_status := G_RET_STS_ERROR;
1832:
1833: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1834: IF (l_debug = 'Y') THEN
1835: Okc_Debug.Log('9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1836: END IF;
1837: x_return_status := G_RET_STS_UNEXP_ERROR;
1838:
1839: WHEN OTHERS THEN
1852:
1853:
1854: PROCEDURE Accept_Changes (
1855: p_api_version IN NUMBER,
1856: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1857: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1858: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1859: p_mode IN VARCHAR2 := 'NORMAL',
1860:
1853:
1854: PROCEDURE Accept_Changes (
1855: p_api_version IN NUMBER,
1856: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1857: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1858: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1859: p_mode IN VARCHAR2 := 'NORMAL',
1860:
1861: p_document_type IN VARCHAR2,
1854: PROCEDURE Accept_Changes (
1855: p_api_version IN NUMBER,
1856: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1857: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1858: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1859: p_mode IN VARCHAR2 := 'NORMAL',
1860:
1861: p_document_type IN VARCHAR2,
1862: p_document_id IN NUMBER,
1859: p_mode IN VARCHAR2 := 'NORMAL',
1860:
1861: p_document_type IN VARCHAR2,
1862: p_document_id IN NUMBER,
1863: p_validate_commit IN VARCHAR2 := FND_API.G_FALSE,
1864: p_validation_string IN VARCHAR2 := NULL,
1865:
1866: x_return_status OUT NOCOPY VARCHAR2,
1867: x_msg_data OUT NOCOPY VARCHAR2,
2005: -- Standard Start of API savepoint
2006: SAVEPOINT g_accept_changes;
2007:
2008: -- Standard call to check for call compatibility.
2009: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2010: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2011: END IF;
2012:
2013: -- Initialize message list if p_init_msg_list is set to TRUE.
2006: SAVEPOINT g_accept_changes;
2007:
2008: -- Standard call to check for call compatibility.
2009: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2010: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2011: END IF;
2012:
2013: -- Initialize message list if p_init_msg_list is set to TRUE.
2014: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2010: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2011: END IF;
2012:
2013: -- Initialize message list if p_init_msg_list is set to TRUE.
2014: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2015: FND_MSG_PUB.initialize;
2016: END IF;
2017:
2018: -- Initialize API return status to success
2015: FND_MSG_PUB.initialize;
2016: END IF;
2017:
2018: -- Initialize API return status to success
2019: x_return_status := FND_API.G_RET_STS_SUCCESS;
2020:
2021: IF FND_FUNCTION.TEST('OKC_TERMS_AUTHOR_STD','N') THEN
2022: l_user_access := 'STD_AUTHOR';
2023: IF FND_FUNCTION.TEST('OKC_TERMS_AUTHOR_NON_STD','N') THEN
2249: p_label => NULL,
2250: p_scn_id => l_ref_id,
2251: p_heading => substr(to_char(obj_titles(i)),1,80),
2252: p_description => NULL,
2253: p_scn_code => FND_API.G_MISS_CHAR,
2254: p_object_version_number => NULL);
2255:
2256: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2257: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'12100: After OKC_TERMS_SECTIONS_GRP.update_section');
2520:
2521: OKC_TEMPLATE_USAGES_GRP.update_template_usages(
2522: p_api_version => l_api_version,
2523: p_init_msg_list => p_init_msg_list ,
2524: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2525: p_commit => FND_API.G_FALSE,
2526: x_return_status => x_return_status,
2527: x_msg_count => x_msg_count,
2528: x_msg_data => x_msg_data,
2521: OKC_TEMPLATE_USAGES_GRP.update_template_usages(
2522: p_api_version => l_api_version,
2523: p_init_msg_list => p_init_msg_list ,
2524: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2525: p_commit => FND_API.G_FALSE,
2526: x_return_status => x_return_status,
2527: x_msg_count => x_msg_count,
2528: x_msg_data => x_msg_data,
2529: p_document_type => p_document_type,
2582: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'15100: After Accept Changes');
2583: END IF;
2584:
2585: -- Standard check of p_commit
2586: IF FND_API.To_Boolean( p_commit ) THEN
2587: COMMIT WORK;
2588: END IF;
2589:
2590: EXCEPTION
2587: COMMIT WORK;
2588: END IF;
2589:
2590: EXCEPTION
2591: WHEN FND_API.G_EXC_ERROR THEN
2592: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2593: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'15200: Leaving accept_Changes: OKC_API.G_EXCEPTION_ERROR Exception');
2594: END IF;
2595: ROLLBACK TO g_accept_changes;
2595: ROLLBACK TO g_accept_changes;
2596: x_return_status := G_RET_STS_ERROR ;
2597: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2598:
2599: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2600: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2601: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'15300: Leaving accept_Changes: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
2602: END IF;
2603: ROLLBACK TO g_accept_Changes;
2618: END Accept_Changes;
2619:
2620: PROCEDURE Reject_Changes (
2621: p_api_version IN NUMBER,
2622: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2623: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2624: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2625:
2626: p_document_type IN VARCHAR2,
2619:
2620: PROCEDURE Reject_Changes (
2621: p_api_version IN NUMBER,
2622: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2623: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2624: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2625:
2626: p_document_type IN VARCHAR2,
2627: p_document_id IN NUMBER,
2620: PROCEDURE Reject_Changes (
2621: p_api_version IN NUMBER,
2622: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2623: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2624: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2625:
2626: p_document_type IN VARCHAR2,
2627: p_document_id IN NUMBER,
2628:
2640:
2641: -- Standard Start of API savepoint
2642: SAVEPOINT g_reject_changes;
2643: -- Standard call to check for call compatibility.
2644: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2646: END IF;
2647: -- Initialize message list if p_init_msg_list is set to TRUE.
2648: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2641: -- Standard Start of API savepoint
2642: SAVEPOINT g_reject_changes;
2643: -- Standard call to check for call compatibility.
2644: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2646: END IF;
2647: -- Initialize message list if p_init_msg_list is set to TRUE.
2648: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2649: FND_MSG_PUB.initialize;
2644: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2646: END IF;
2647: -- Initialize message list if p_init_msg_list is set to TRUE.
2648: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2649: FND_MSG_PUB.initialize;
2650: END IF;
2651: -- Initialize API return status to success
2652: x_return_status := FND_API.G_RET_STS_SUCCESS;
2648: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2649: FND_MSG_PUB.initialize;
2650: END IF;
2651: -- Initialize API return status to success
2652: x_return_status := FND_API.G_RET_STS_SUCCESS;
2653:
2654: OKC_REVIEW_UPLD_TERMS_PVT.delete_uploaded_terms(
2655: p_api_version => l_api_version,
2656: p_init_msg_list => p_init_msg_list ,
2653:
2654: OKC_REVIEW_UPLD_TERMS_PVT.delete_uploaded_terms(
2655: p_api_version => l_api_version,
2656: p_init_msg_list => p_init_msg_list ,
2657: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2658: p_commit => FND_API.G_FALSE,
2659: x_return_status => x_return_status,
2660: x_msg_count => x_msg_count,
2661: x_msg_data => x_msg_data,
2654: OKC_REVIEW_UPLD_TERMS_PVT.delete_uploaded_terms(
2655: p_api_version => l_api_version,
2656: p_init_msg_list => p_init_msg_list ,
2657: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2658: p_commit => FND_API.G_FALSE,
2659: x_return_status => x_return_status,
2660: x_msg_count => x_msg_count,
2661: x_msg_data => x_msg_data,
2662: p_document_type => p_document_type,
2666: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2667: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'400: After delete_uploaded_terms');
2668: END IF;
2669: -- Standard check of p_commit
2670: IF FND_API.To_Boolean( p_commit ) THEN
2671: COMMIT WORK;
2672: END IF;
2673:
2674: EXCEPTION
2671: COMMIT WORK;
2672: END IF;
2673:
2674: EXCEPTION
2675: WHEN FND_API.G_EXC_ERROR THEN
2676: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2677: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving Reject_Changes: OKC_API.G_EXCEPTION_ERROR Exception');
2678: END IF;
2679: ROLLBACK TO g_reject_changes;
2679: ROLLBACK TO g_reject_changes;
2680: x_return_status := G_RET_STS_ERROR ;
2681: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2682:
2683: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2684: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2685: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving Reject_Changes: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
2686: END IF;
2687: ROLLBACK TO g_reject_Changes;
2704:
2705:
2706: PROCEDURE Delete_Uploaded_Terms (
2707: p_api_version IN NUMBER,
2708: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2709: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2710: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2711:
2712: p_document_type IN VARCHAR2,
2705:
2706: PROCEDURE Delete_Uploaded_Terms (
2707: p_api_version IN NUMBER,
2708: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2709: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2710: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2711:
2712: p_document_type IN VARCHAR2,
2713: p_document_id IN NUMBER,
2706: PROCEDURE Delete_Uploaded_Terms (
2707: p_api_version IN NUMBER,
2708: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2709: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2710: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2711:
2712: p_document_type IN VARCHAR2,
2713: p_document_id IN NUMBER,
2714:
2726:
2727: -- Standard Start of API savepoint
2728: SAVEPOINT g_delete_uploaded_terms;
2729: -- Standard call to check for call compatibility.
2730: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2731: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2732: END IF;
2733: -- Initialize message list if p_init_msg_list is set to TRUE.
2734: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2727: -- Standard Start of API savepoint
2728: SAVEPOINT g_delete_uploaded_terms;
2729: -- Standard call to check for call compatibility.
2730: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2731: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2732: END IF;
2733: -- Initialize message list if p_init_msg_list is set to TRUE.
2734: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2735: FND_MSG_PUB.initialize;
2730: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2731: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2732: END IF;
2733: -- Initialize message list if p_init_msg_list is set to TRUE.
2734: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2735: FND_MSG_PUB.initialize;
2736: END IF;
2737: -- Initialize API return status to success
2738: x_return_status := FND_API.G_RET_STS_SUCCESS;
2734: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2735: FND_MSG_PUB.initialize;
2736: END IF;
2737: -- Initialize API return status to success
2738: x_return_status := FND_API.G_RET_STS_SUCCESS;
2739:
2740: DELETE
2741: FROM OKC_REVIEW_MESSAGES m
2742: WHERE m.REVIEW_UPLD_TERMS_id IN
2775: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'400: After delete review terms');
2776: END IF;
2777:
2778: -- Standard check of p_commit
2779: IF FND_API.To_Boolean( p_commit ) THEN
2780: COMMIT WORK;
2781: END IF;
2782:
2783: EXCEPTION
2780: COMMIT WORK;
2781: END IF;
2782:
2783: EXCEPTION
2784: WHEN FND_API.G_EXC_ERROR THEN
2785: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2786: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving Delete_Uploaded_Terms: OKC_API.G_EXCEPTION_ERROR Exception');
2787: END IF;
2788: ROLLBACK TO g_delete_uploaded_terms;
2788: ROLLBACK TO g_delete_uploaded_terms;
2789: x_return_status := G_RET_STS_ERROR ;
2790: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2791:
2792: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2793: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2794: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving Delete_Uploaded_terms: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
2795: END IF;
2796: ROLLBACK TO g_delete_uploaded_terms;
2813:
2814:
2815: PROCEDURE Sync_Review_Tables (
2816: p_api_version IN NUMBER,
2817: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2818: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2819: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2820: p_validation_string IN VARCHAR2 := NULL,
2821: p_document_type IN VARCHAR2,
2814:
2815: PROCEDURE Sync_Review_Tables (
2816: p_api_version IN NUMBER,
2817: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2818: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2819: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2820: p_validation_string IN VARCHAR2 := NULL,
2821: p_document_type IN VARCHAR2,
2822: p_document_id IN NUMBER,
2815: PROCEDURE Sync_Review_Tables (
2816: p_api_version IN NUMBER,
2817: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2818: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2819: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2820: p_validation_string IN VARCHAR2 := NULL,
2821: p_document_type IN VARCHAR2,
2822: p_document_id IN NUMBER,
2823:
3184:
3185: -- Standard Start of API savepoint
3186: SAVEPOINT g_reject_changes;
3187: -- Standard call to check for call compatibility.
3188: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3190: END IF;
3191: -- Initialize message list if p_init_msg_list is set to TRUE.
3192: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3185: -- Standard Start of API savepoint
3186: SAVEPOINT g_reject_changes;
3187: -- Standard call to check for call compatibility.
3188: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3190: END IF;
3191: -- Initialize message list if p_init_msg_list is set to TRUE.
3192: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3193: FND_MSG_PUB.initialize;
3188: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3190: END IF;
3191: -- Initialize message list if p_init_msg_list is set to TRUE.
3192: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3193: FND_MSG_PUB.initialize;
3194: END IF;
3195: -- Initialize API return status to success
3196: x_return_status := FND_API.G_RET_STS_SUCCESS;
3192: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3193: FND_MSG_PUB.initialize;
3194: END IF;
3195: -- Initialize API return status to success
3196: x_return_status := FND_API.G_RET_STS_SUCCESS;
3197: IF FND_FUNCTION.TEST('OKC_TERMS_AUTHOR_STD','N') THEN
3198: l_user_access := 'STD_AUTHOR';
3199: IF FND_FUNCTION.TEST('OKC_TERMS_AUTHOR_NON_STD','N') THEN
3200: l_user_access := 'NON_STD_AUTHOR';
3614: open unassigned_section_exists;
3615: fetch unassigned_section_exists into l_unassigned_scn_id;
3616: if(unassigned_section_exists%NOTFOUND)THEN
3617: create_unassigned_section(p_api_version => 1,
3618: p_commit => FND_API.G_FALSE,
3619: p_document_type => p_document_type,
3620: p_document_id => p_document_id,
3621: p_new_parent_id => l_rev_id_for_doc,
3622: x_scn_id => l_unassigned_scn_id,
3629: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'130: Cannot Create Unassgined Section : '||x_msg_data||' Status '||x_return_status);
3630: END IF;
3631:
3632: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3633: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3634: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3635: RAISE FND_API.G_EXC_ERROR ;
3636: END IF;
3637: end if;
3631:
3632: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3633: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3634: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3635: RAISE FND_API.G_EXC_ERROR ;
3636: END IF;
3637: end if;
3638: close unassigned_section_exists;
3639: end if;
3978: end loop;
3979: OKC_TEMPLATE_USAGES_GRP.update_template_usages(
3980: p_api_version => l_api_version,
3981: p_init_msg_list => p_init_msg_list ,
3982: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3983: p_commit => FND_API.G_FALSE,
3984: x_return_status => x_return_status,
3985: x_msg_count => x_msg_count,
3986: x_msg_data => x_msg_data,
3979: OKC_TEMPLATE_USAGES_GRP.update_template_usages(
3980: p_api_version => l_api_version,
3981: p_init_msg_list => p_init_msg_list ,
3982: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3983: p_commit => FND_API.G_FALSE,
3984: x_return_status => x_return_status,
3985: x_msg_count => x_msg_count,
3986: x_msg_data => x_msg_data,
3987: p_document_type => p_document_type,
4059: p_doc_id => p_document_id,
4060: p_num_scheme_id => l_doc_num_scheme);
4061: end if;
4062: -- Standard check of p_commit
4063: IF FND_API.To_Boolean( p_commit ) THEN
4064: COMMIT WORK;
4065: END IF;
4066:
4067: EXCEPTION
4064: COMMIT WORK;
4065: END IF;
4066:
4067: EXCEPTION
4068: WHEN FND_API.G_EXC_ERROR THEN
4069: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4070: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving Reject_Changes: OKC_API.G_EXCEPTION_ERROR Exception');
4071: END IF;
4072: ROLLBACK TO g_reject_changes;
4072: ROLLBACK TO g_reject_changes;
4073: x_return_status := G_RET_STS_ERROR ;
4074: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
4075:
4076: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4077: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4078: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving Reject_Changes: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
4079: END IF;
4080: ROLLBACK TO g_reject_Changes;
4099: -- creating un-assigned sections in a document in okc_REVIEW_UPLD_TERMS table
4100: */
4101: PROCEDURE Create_Unassigned_Section (
4102: p_api_version IN NUMBER,
4103: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4104: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4105:
4106: x_return_status OUT NOCOPY VARCHAR2,
4107: x_msg_data OUT NOCOPY VARCHAR2,
4100: */
4101: PROCEDURE Create_Unassigned_Section (
4102: p_api_version IN NUMBER,
4103: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4104: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4105:
4106: x_return_status OUT NOCOPY VARCHAR2,
4107: x_msg_data OUT NOCOPY VARCHAR2,
4108: x_msg_count OUT NOCOPY NUMBER,
4132: END IF;
4133: -- Standard Start of API savepoint
4134: SAVEPOINT g_Create_Unassigned_Section;
4135: -- Standard call to check for call compatibility.
4136: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4138: END IF;
4139: -- Initialize message list if p_init_msg_list is set to TRUE.
4140: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4133: -- Standard Start of API savepoint
4134: SAVEPOINT g_Create_Unassigned_Section;
4135: -- Standard call to check for call compatibility.
4136: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4138: END IF;
4139: -- Initialize message list if p_init_msg_list is set to TRUE.
4140: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4141: FND_MSG_PUB.initialize;
4136: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4138: END IF;
4139: -- Initialize message list if p_init_msg_list is set to TRUE.
4140: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4141: FND_MSG_PUB.initialize;
4142: END IF;
4143: -- Initialize API return status to success
4144: x_return_status := G_RET_STS_SUCCESS;
4167: x_REVIEW_UPLD_TERMS_id => l_scn_id
4168: );
4169: --- If any errors happen abort API
4170: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4172: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4173: RAISE FND_API.G_EXC_ERROR;
4174: END IF;
4175: x_scn_id := l_scn_id;
4169: --- If any errors happen abort API
4170: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4172: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4173: RAISE FND_API.G_EXC_ERROR;
4174: END IF;
4175: x_scn_id := l_scn_id;
4176: INSERT INTO OKC_REVIEW_UPLD_TERMS(
4177: REVIEW_UPLD_TERMS_ID,
4223: FROM dual);
4224:
4225: --------------------------------------------
4226: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4227: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4228: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4229: RAISE FND_API.G_EXC_ERROR ;
4230: END IF;
4231: --------------------------------------------
4225: --------------------------------------------
4226: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4227: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4228: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4229: RAISE FND_API.G_EXC_ERROR ;
4230: END IF;
4231: --------------------------------------------
4232:
4233: IF FND_API.To_Boolean( p_commit ) THEN
4229: RAISE FND_API.G_EXC_ERROR ;
4230: END IF;
4231: --------------------------------------------
4232:
4233: IF FND_API.To_Boolean( p_commit ) THEN
4234: COMMIT WORK;
4235: END IF;
4236: -- Standard call to get message count and if count is 1, get message info.
4237: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4238: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4239: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7700: Leaving Create_Unassigned_Section');
4240: END IF;
4241: EXCEPTION
4242: WHEN FND_API.G_EXC_ERROR THEN
4243: ROLLBACK TO g_Create_Unassigned_Section;
4244: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4245: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7800: Leaving Create_Unassigned_Section : OKC_API.G_EXCEPTION_ERROR Exception');
4246: END IF;
4251:
4252: x_return_status := G_RET_STS_ERROR ;
4253: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4254:
4255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4256: ROLLBACK TO g_Create_Unassigned_Section;
4257: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4258: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7900: Leaving Create_Unassigned_Section : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
4259: END IF;