[Home] [Help]
70: CURSOR l_seq_csr IS
71: SELECT OKC_ARTICLE_VERSIONS_S1.NEXTVAL FROM DUAL;
72: BEGIN
73: IF (l_debug = 'Y') THEN
74: Okc_Debug.Log('100: Entered get_seq_id', 2);
75: END IF;
76:
77: IF( p_article_version_id IS NULL ) THEN
78: OPEN l_seq_csr;
83: CLOSE l_seq_csr;
84: END IF;
85:
86: IF (l_debug = 'Y') THEN
87: Okc_Debug.Log('200: Leaving get_seq_id', 2);
88: END IF;
89: RETURN G_RET_STS_SUCCESS;
90: EXCEPTION
91: WHEN OTHERS THEN
90: EXCEPTION
91: WHEN OTHERS THEN
92:
93: IF (l_debug = 'Y') THEN
94: Okc_Debug.Log('300: Leaving get_seq_id because of EXCEPTION: '||sqlerrm, 2);
95: END IF;
96:
97: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
98: p_msg_name => G_UNEXPECTED_ERROR,
227: WHERE t.ARTICLE_VERSION_ID = cp_article_version_id;
228: BEGIN
229:
230: IF (l_debug = 'Y') THEN
231: Okc_Debug.Log('400: Entered get_rec', 2);
232: END IF;
233:
234: -- Get current database values
235: OPEN OKC_ARTICLE_VERSIONS_pk_csr (p_article_version_id);
291: END IF;
292: CLOSE OKC_ARTICLE_VERSIONS_pk_csr;
293:
294: IF (l_debug = 'Y') THEN
295: Okc_Debug.Log('500: Leaving get_rec ', 2);
296: END IF;
297:
298: RETURN G_RET_STS_SUCCESS ;
299:
300: EXCEPTION
301: WHEN OTHERS THEN
302:
303: IF (l_debug = 'Y') THEN
304: Okc_Debug.Log('600: Leaving get_rec because of EXCEPTION: '||sqlerrm, 2);
305: END IF;
306:
307: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
308: p_msg_name => G_UNEXPECTED_ERROR,
427: l_last_update_login OKC_ARTICLE_VERSIONS.LAST_UPDATE_LOGIN%TYPE;
428: l_last_update_date OKC_ARTICLE_VERSIONS.LAST_UPDATE_DATE%TYPE;
429: BEGIN
430: IF (l_debug = 'Y') THEN
431: Okc_Debug.Log('700: Entered Set_Attributes ', 2);
432: END IF;
433:
434: IF( p_article_version_id IS NOT NULL ) THEN
435: -- Get current database values
829:
830: END IF;
831:
832: IF (l_debug = 'Y') THEN
833: Okc_Debug.Log('800: Leaving Set_Attributes ', 2);
834: END IF;
835:
836: RETURN G_RET_STS_SUCCESS ;
837: EXCEPTION
836: RETURN G_RET_STS_SUCCESS ;
837: EXCEPTION
838: WHEN FND_API.G_EXC_ERROR THEN
839: IF (l_debug = 'Y') THEN
840: Okc_Debug.Log('900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception', 2);
841: END IF;
842: RETURN G_RET_STS_ERROR;
843:
844: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
842: RETURN G_RET_STS_ERROR;
843:
844: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
845: IF (l_debug = 'Y') THEN
846: Okc_Debug.Log('1000: Leaving Set_Attributes:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
847: END IF;
848: RETURN G_RET_STS_UNEXP_ERROR;
849:
850: WHEN OTHERS THEN
848: RETURN G_RET_STS_UNEXP_ERROR;
849:
850: WHEN OTHERS THEN
851: IF (l_debug = 'Y') THEN
852: Okc_Debug.Log('1100: Leaving Set_Attributes because of EXCEPTION: '||sqlerrm, 2);
853: END IF;
854: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
855: p_msg_name => G_UNEXPECTED_ERROR,
856: p_token1 => G_SQLCODE_TOKEN,
944:
945: BEGIN
946:
947: IF (l_debug = 'Y') THEN
948: Okc_Debug.Log('1200: Entered Validate_Attributes', 2);
949: END IF;
950:
951: -- Article row will always be needed to test if this is a standard or not even for not null or FK checks
952:
951: -- Article row will always be needed to test if this is a standard or not even for not null or FK checks
952:
953: IF p_validation_level > G_REQUIRED_VALUE_VALID_LEVEL THEN
954: IF (l_debug = 'Y') THEN
955: Okc_Debug.Log('1300: required values validation', 2);
956: END IF;
957:
958: IF (l_debug = 'Y') THEN
959: Okc_Debug.Log('1400: - attribute ARTICLE_ID ', 2);
955: Okc_Debug.Log('1300: required values validation', 2);
956: END IF;
957:
958: IF (l_debug = 'Y') THEN
959: Okc_Debug.Log('1400: - attribute ARTICLE_ID ', 2);
960: END IF;
961: IF nvl(p_import_Action,'*') <> 'N' Then -- bypass this check for validation of new article being imported
962: IF ( p_article_id IS NULL) THEN
963: IF (l_debug = 'Y') THEN
960: END IF;
961: IF nvl(p_import_Action,'*') <> 'N' Then -- bypass this check for validation of new article being imported
962: IF ( p_article_id IS NULL) THEN
963: IF (l_debug = 'Y') THEN
964: Okc_Debug.Log('1500: - attribute ARTICLE_ID is invalid', 2);
965: END IF;
966: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'ARTICLE_ID');
967: l_return_status := G_RET_STS_ERROR;
968: END IF;
970:
971: -- As of now validation of article version number is not needed as it is generated by the API.
972: /*
973: IF (l_debug = 'Y') THEN
974: Okc_Debug.Log('1400: - attribute ARTICLE_VERSION_NUMBER ', 2);
975: END IF;
976: IF ( p_article_version_number IS NULL) THEN
977: IF (l_debug = 'Y') THEN
978: Okc_Debug.Log('1500: - attribute ARTICLE_VERSION_NUMBER is invalid', 2);
974: Okc_Debug.Log('1400: - attribute ARTICLE_VERSION_NUMBER ', 2);
975: END IF;
976: IF ( p_article_version_number IS NULL) THEN
977: IF (l_debug = 'Y') THEN
978: Okc_Debug.Log('1500: - attribute ARTICLE_VERSION_NUMBER is invalid', 2);
979: END IF;
980: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'ARTICLE_VERSION_NUMBER');
981: l_return_status := G_RET_STS_ERROR;
982: END IF;
982: END IF;
983: */
984:
985: IF (l_debug = 'Y') THEN
986: Okc_Debug.Log('1400: - attribute ARTICLE_TEXT ', 2);
987: END IF;
988: IF ( p_article_text IS NULL) THEN
989: IF (l_debug = 'Y') THEN
990: Okc_Debug.Log('1500: - attribute ARTICLE_TEXT is invalid', 2);
986: Okc_Debug.Log('1400: - attribute ARTICLE_TEXT ', 2);
987: END IF;
988: IF ( p_article_text IS NULL) THEN
989: IF (l_debug = 'Y') THEN
990: Okc_Debug.Log('1500: - attribute ARTICLE_TEXT is invalid', 2);
991: END IF;
992: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ARTICLE_TEXT_REQD');
993: --Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'ARTICLE_TEXT');
994: l_return_status := G_RET_STS_ERROR;
994: l_return_status := G_RET_STS_ERROR;
995: END IF;
996:
997: IF (l_debug = 'Y') THEN
998: Okc_Debug.Log('1400: - attribute PROVISION_YN ', 2);
999: END IF;
1000: IF ( p_provision_yn IS NULL) THEN
1001: IF (l_debug = 'Y') THEN
1002: Okc_Debug.Log('1500: - attribute PROVISION_YN is invalid', 2);
998: Okc_Debug.Log('1400: - attribute PROVISION_YN ', 2);
999: END IF;
1000: IF ( p_provision_yn IS NULL) THEN
1001: IF (l_debug = 'Y') THEN
1002: Okc_Debug.Log('1500: - attribute PROVISION_YN is invalid', 2);
1003: END IF;
1004: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'PROVISION_YN');
1005: l_return_status := G_RET_STS_ERROR;
1006: END IF;
1005: l_return_status := G_RET_STS_ERROR;
1006: END IF;
1007:
1008: IF (l_debug = 'Y') THEN
1009: Okc_Debug.Log('1400: - attribute INSERT_BY_REFERENCE ', 2);
1010: END IF;
1011: IF ( p_insert_by_reference IS NULL) THEN
1012: IF (l_debug = 'Y') THEN
1013: Okc_Debug.Log('1500: - attribute INSERT_BY_REFERENCE is invalid', 2);
1009: Okc_Debug.Log('1400: - attribute INSERT_BY_REFERENCE ', 2);
1010: END IF;
1011: IF ( p_insert_by_reference IS NULL) THEN
1012: IF (l_debug = 'Y') THEN
1013: Okc_Debug.Log('1500: - attribute INSERT_BY_REFERENCE is invalid', 2);
1014: END IF;
1015: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'INSERT_BY_REFERENCE');
1016: l_return_status := G_RET_STS_ERROR;
1017: END IF;
1016: l_return_status := G_RET_STS_ERROR;
1017: END IF;
1018:
1019: IF (l_debug = 'Y') THEN
1020: Okc_Debug.Log('1400: - attribute LOCK_TEXT ', 2);
1021: END IF;
1022: IF ( p_lock_text IS NULL) THEN
1023: IF (l_debug = 'Y') THEN
1024: Okc_Debug.Log('1500: - attribute LOCK_TEXT is invalid', 2);
1020: Okc_Debug.Log('1400: - attribute LOCK_TEXT ', 2);
1021: END IF;
1022: IF ( p_lock_text IS NULL) THEN
1023: IF (l_debug = 'Y') THEN
1024: Okc_Debug.Log('1500: - attribute LOCK_TEXT is invalid', 2);
1025: END IF;
1026: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'LOCK_TEXT');
1027: l_return_status := G_RET_STS_ERROR;
1028: END IF;
1027: l_return_status := G_RET_STS_ERROR;
1028: END IF;
1029:
1030: IF (l_debug = 'Y') THEN
1031: Okc_Debug.Log('1400: - attribute GLOBAL_YN ', 2);
1032: END IF;
1033: IF ( p_global_yn IS NULL) THEN
1034: IF (l_debug = 'Y') THEN
1035: Okc_Debug.Log('1500: - attribute GLOBAL_YN is invalid', 2);
1031: Okc_Debug.Log('1400: - attribute GLOBAL_YN ', 2);
1032: END IF;
1033: IF ( p_global_yn IS NULL) THEN
1034: IF (l_debug = 'Y') THEN
1035: Okc_Debug.Log('1500: - attribute GLOBAL_YN is invalid', 2);
1036: END IF;
1037: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'GLOBAL_YN');
1038: l_return_status := G_RET_STS_ERROR;
1039: END IF;
1038: l_return_status := G_RET_STS_ERROR;
1039: END IF;
1040:
1041: IF (l_debug = 'Y') THEN
1042: Okc_Debug.Log('1400: - attribute ARTICLE_LANGUAGE ', 2);
1043: END IF;
1044: IF ( p_article_language IS NULL) THEN
1045: IF (l_debug = 'Y') THEN
1046: Okc_Debug.Log('1500: - attribute ARTICLE_LANGUAGE is invalid', 2);
1042: Okc_Debug.Log('1400: - attribute ARTICLE_LANGUAGE ', 2);
1043: END IF;
1044: IF ( p_article_language IS NULL) THEN
1045: IF (l_debug = 'Y') THEN
1046: Okc_Debug.Log('1500: - attribute ARTICLE_LANGUAGE is invalid', 2);
1047: END IF;
1048: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'ARTICLE_LANGUAGE');
1049: l_return_status := G_RET_STS_ERROR;
1050: END IF;
1050: END IF;
1051:
1052: IF p_standard_yn = 'Y' OR p_import_action IS NOT NULL Then
1053: IF (l_debug = 'Y') THEN
1054: Okc_Debug.Log('1400: - attribute START_DATE ', 2);
1055: END IF;
1056: IF ( p_start_date IS NULL) THEN
1057: IF (l_debug = 'Y') THEN
1058: Okc_Debug.Log('1500: - attribute START_DATE is invalid', 2);
1054: Okc_Debug.Log('1400: - attribute START_DATE ', 2);
1055: END IF;
1056: IF ( p_start_date IS NULL) THEN
1057: IF (l_debug = 'Y') THEN
1058: Okc_Debug.Log('1500: - attribute START_DATE is invalid', 2);
1059: END IF;
1060: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'START_DATE');
1061: l_return_status := G_RET_STS_ERROR;
1062: END IF;
1065: END IF;
1066:
1067: IF p_validation_level > G_VALID_VALUE_VALID_LEVEL THEN
1068: IF (l_debug = 'Y') THEN
1069: Okc_Debug.Log('1600: static values and range validation', 2);
1070: END IF;
1071:
1072: IF (l_debug = 'Y') THEN
1073: Okc_Debug.Log('1700: - attribute PROVISION_YN ', 2);
1069: Okc_Debug.Log('1600: static values and range validation', 2);
1070: END IF;
1071:
1072: IF (l_debug = 'Y') THEN
1073: Okc_Debug.Log('1700: - attribute PROVISION_YN ', 2);
1074: END IF;
1075: IF p_provision_yn NOT IN ('Y','N') THEN
1076: IF (l_debug = 'Y') THEN
1077: Okc_Debug.Log('1800: - attribute PROVISION_YN is invalid', 2);
1073: Okc_Debug.Log('1700: - attribute PROVISION_YN ', 2);
1074: END IF;
1075: IF p_provision_yn NOT IN ('Y','N') THEN
1076: IF (l_debug = 'Y') THEN
1077: Okc_Debug.Log('1800: - attribute PROVISION_YN is invalid', 2);
1078: END IF;
1079: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'PROVISION_YN');
1080: l_return_status := G_RET_STS_ERROR;
1081: END IF;
1081: END IF;
1082:
1083: IF p_insert_by_reference NOT IN ('Y','N') THEN
1084: IF (l_debug = 'Y') THEN
1085: Okc_Debug.Log('1800: - attribute INSERT_BY_REFERENCE is invalid', 2);
1086: END IF;
1087: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'INSERT_BY_REFERENCE');
1088: l_return_status := G_RET_STS_ERROR;
1089: END IF;
1089: END IF;
1090:
1091: IF p_lock_text NOT IN ('Y','N') THEN
1092: IF (l_debug = 'Y') THEN
1093: Okc_Debug.Log('1800: - attribute LOCK_TEXT is invalid', 2);
1094: END IF;
1095: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'LOCK_TEXT');
1096: l_return_status := G_RET_STS_ERROR;
1097: END IF;
1096: l_return_status := G_RET_STS_ERROR;
1097: END IF;
1098:
1099: IF (l_debug = 'Y') THEN
1100: Okc_Debug.Log('1700: - attribute GLOBAL_YN ', 2);
1101: END IF;
1102: IF p_global_yn NOT IN ('Y','N') THEN
1103: IF (l_debug = 'Y') THEN
1104: Okc_Debug.Log('1800: - attribute GLOBAL_YN is invalid', 2);
1100: Okc_Debug.Log('1700: - attribute GLOBAL_YN ', 2);
1101: END IF;
1102: IF p_global_yn NOT IN ('Y','N') THEN
1103: IF (l_debug = 'Y') THEN
1104: Okc_Debug.Log('1800: - attribute GLOBAL_YN is invalid', 2);
1105: END IF;
1106: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'GLOBAL_YN');
1107: l_return_status := G_RET_STS_ERROR;
1108: END IF;
1107: l_return_status := G_RET_STS_ERROR;
1108: END IF;
1109:
1110: IF (l_debug = 'Y') THEN
1111: Okc_Debug.Log('1700: - attribute TRANSLATED_YN ', 2);
1112: END IF;
1113: IF p_translated_yn NOT IN ('Y','N') THEN
1114: IF (l_debug = 'Y') THEN
1115: Okc_Debug.Log('1800: - attribute TRANSLATED_YN is invalid', 2);
1111: Okc_Debug.Log('1700: - attribute TRANSLATED_YN ', 2);
1112: END IF;
1113: IF p_translated_yn NOT IN ('Y','N') THEN
1114: IF (l_debug = 'Y') THEN
1115: Okc_Debug.Log('1800: - attribute TRANSLATED_YN is invalid', 2);
1116: END IF;
1117: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'TRANSLATED_YN');
1118: l_return_status := G_RET_STS_ERROR;
1119: END IF;
1121: END IF;
1122:
1123: IF p_validation_level > G_LOOKUP_CODE_VALID_LEVEL THEN
1124: IF (l_debug = 'Y') THEN
1125: Okc_Debug.Log('1900: lookup codes validation', 2);
1126: END IF;
1127:
1128: /* Status Check is not needed as it is always set by the UI.. For Articles Import this is pre-checked for certain statuses only
1129:
1127:
1128: /* Status Check is not needed as it is always set by the UI.. For Articles Import this is pre-checked for certain statuses only
1129:
1130: IF (l_debug = 'Y') THEN
1131: Okc_Debug.Log('2000: - attribute ARTICLE_STATUS ', 2);
1132: END IF;
1133: IF p_article_status IS NOT NULL THEN
1134: l_tmp_return_status := Okc_Util.Check_Lookup_Code('OKC_ARTICLE_STATUS',p_article_status);
1135: IF (l_tmp_return_status <> G_RET_STS_SUCCESS) THEN
1139: END IF;
1140: */
1141:
1142: IF (l_debug = 'Y') THEN
1143: Okc_Debug.Log('1500: - attribute DEFAULT_SECTION ', 2);
1144: END IF;
1145: IF p_default_section IS NOT NULL THEN
1146: l_tmp_return_status := Okc_Util.Check_Lookup_Code('OKC_ARTICLE_SECTION',p_default_section);
1147: IF (l_tmp_return_status <> G_RET_STS_SUCCESS) THEN
1154:
1155: IF p_validation_level > G_FOREIGN_KEY_VALID_LEVEL THEN
1156: /*
1157: IF (l_debug = 'Y') THEN
1158: Okc_Debug.Log('2100: foreign keys validation ', 2);
1159: Okc_Debug.Log('2200: - attribute ARTICLE_LANGAUGE ', 2);
1160: END IF;
1161:
1162: -- This check is required only for article import .. For UI this is not required as it will be derived as USERENV(LANG)
1155: IF p_validation_level > G_FOREIGN_KEY_VALID_LEVEL THEN
1156: /*
1157: IF (l_debug = 'Y') THEN
1158: Okc_Debug.Log('2100: foreign keys validation ', 2);
1159: Okc_Debug.Log('2200: - attribute ARTICLE_LANGAUGE ', 2);
1160: END IF;
1161:
1162: -- This check is required only for article import .. For UI this is not required as it will be derived as USERENV(LANG)
1163: -- This is a denormalized attribute and will be validated only from creating new version from Articles Import.
1169: FETCH l_article_language_csr INTO l_dummy_var;
1170: CLOSE l_article_language_csr;
1171: IF (l_dummy_var = '?') THEN
1172: IF (l_debug = 'Y') THEN
1173: Okc_Debug.Log('2300: - attribute ARTICLE_LANGAUGE is invalid', 2);
1174: END IF;
1175: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ARTICLE_LANGAUGE');
1176: l_return_status := G_RET_STS_ERROR;
1177: END IF;
1177: END IF;
1178: END IF;
1179: */
1180: IF (l_debug = 'Y') THEN
1181: Okc_Debug.Log('2200: - attribute STD_ARTICLE_VERSION_ID ', 2);
1182: END IF;
1183: IF p_std_article_version_id IS NOT NULL THEN
1184: l_dummy_var := '?';
1185: OPEN l_std_article_version_id_csr;
1186: FETCH l_std_article_version_id_csr INTO l_dummy_var;
1187: CLOSE l_std_article_version_id_csr;
1188: IF (l_dummy_var = '?') THEN
1189: IF (l_debug = 'Y') THEN
1190: Okc_Debug.Log('2300: - attribute STD_ARTICLE_VERSION_ID is invalid', 2);
1191: END IF;
1192: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'STD_ARTICLE_VERSION_ID');
1193: l_return_status := G_RET_STS_ERROR;
1194: END IF;
1195: END IF;
1196:
1197: /*
1198: IF (l_debug = 'Y') THEN
1199: Okc_Debug.Log('2200: - attribute DATE_PUBLISHED ', 2);
1200: END IF;
1201: IF p_date_published IS NOT NULL THEN
1202: OPEN l_date_published_csr;
1203: FETCH l_date_published_csr INTO l_dummy_date;
1203: FETCH l_date_published_csr INTO l_dummy_date;
1204: CLOSE l_date_published_csr;
1205: IF (l_dummy_date >= p_date_published) THEN
1206: IF (l_debug = 'Y') THEN
1207: Okc_Debug.Log('2300: - attribute DATE_PUBLISHED is invalid', 2);
1208: END IF;
1209: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'DATE_PUBLISHED');
1210: l_return_status := G_RET_STS_ERROR;
1211: END IF;
1214:
1215: END IF;
1216:
1217: IF (l_debug = 'Y') THEN
1218: Okc_Debug.Log('2400: Leaving Validate_Attributes ', 2);
1219: END IF;
1220:
1221: RETURN l_return_status;
1222:
1221: RETURN l_return_status;
1222:
1223: EXCEPTION
1224: WHEN OTHERS THEN
1225: Okc_Debug.Log('2500: Leaving Validate_Attributes because of EXCEPTION: '||sqlerrm, 2);
1226: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1227: p_msg_name => G_UNEXPECTED_ERROR,
1228: p_token1 => G_SQLCODE_TOKEN,
1229: p_token1_value => sqlcode,
1434:
1435: BEGIN
1436:
1437: IF (l_debug = 'Y') THEN
1438: Okc_Debug.Log('2600: Entered Validate_Record', 2);
1439: Okc_Debug.Log('1400: - attribute ARTICLE_VERSION_ID ', 2);
1440: END IF;
1441: x_earlier_version_number := NULL;
1442: l_article_language := p_article_language;
1435: BEGIN
1436:
1437: IF (l_debug = 'Y') THEN
1438: Okc_Debug.Log('2600: Entered Validate_Record', 2);
1439: Okc_Debug.Log('1400: - attribute ARTICLE_VERSION_ID ', 2);
1440: END IF;
1441: x_earlier_version_number := NULL;
1442: l_article_language := p_article_language;
1443: -- MOAC
1446: G_CURRENT_ORG_ID := p_current_org_id;
1447: else
1448: if G_CURRENT_ORG_ID IS NULL Then
1449: IF (l_debug = 'Y') THEN
1450: Okc_Debug.Log('2300: - attribute G_CURRENT_ORG_ID is invalid', 2);
1451: END IF;
1452: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
1453: l_return_status := G_RET_STS_ERROR;
1454: RETURN l_return_status ;
1474: FETCH l_article_id_csr INTO l_standard_yn, l_article_language;
1475: CLOSE l_article_id_csr;
1476: IF (l_standard_yn = '?') THEN
1477: IF (l_debug = 'Y') THEN
1478: Okc_Debug.Log('2300: - attribute ARTICLE_ID is invalid', 2);
1479: END IF;
1480: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ARTICLE_ID');
1481: l_return_status := G_RET_STS_ERROR;
1482: RETURN l_return_status ;
1537: p_attribute15 => p_attribute15
1538: );
1539: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1540: IF (l_debug = 'Y') THEN
1541: Okc_Debug.Log('2700: Leaving Validate_Record because of UNEXP_ERROR in Validate_Attributes: '||sqlerrm, 2);
1542: END IF;
1543: RETURN G_RET_STS_UNEXP_ERROR;
1544: END IF;
1545:
1580:
1581: --- Record Level Validation
1582: IF p_validation_level > G_RECORD_VALID_LEVEL THEN
1583: IF (l_debug = 'Y') THEN
1584: Okc_Debug.Log('2800: Entered Record Level Validations', 2);
1585: END IF;
1586: /*+++++++++++++start of hand code +++++++++++++++++++*/
1587: -- manual coding for Record Level Validations if required
1588:
1588:
1589: IF ( p_end_date is NOT NULL ) THEN
1590: IF ( p_end_date < p_start_date ) THEN
1591: IF (l_debug = 'Y') THEN
1592: Okc_Debug.Log('1300: attribute START_DATE IS greater then end date for standard article', 2);
1593: END IF;
1594: OKC_API.Set_Message(G_APP_NAME, 'OKC_ART_START_GT_END_DATE');
1595: l_return_status := G_RET_STS_ERROR;
1596: ELSIF p_article_status in ('DRAFT','REJECTED','PENDING_APPROVAL') AND
1595: l_return_status := G_RET_STS_ERROR;
1596: ELSIF p_article_status in ('DRAFT','REJECTED','PENDING_APPROVAL') AND
1597: p_end_date < trunc(sysdate) THEN -- Added for Bug 3517002
1598: IF (l_debug = 'Y') THEN
1599: Okc_Debug.Log('1300: attribute END_DATE IS less then system date for standard article', 2);
1600: END IF;
1601: OKC_API.Set_Message(G_APP_NAME, 'OKC_ART_END_LT_SYS_DATE');
1602: l_return_status := G_RET_STS_ERROR;
1603: END IF;
1607:
1608: IF ( p_insert_by_reference = 'Y' ) THEN
1609: IF ( p_reference_text IS NULL ) THEN
1610: IF (l_debug = 'Y') THEN
1611: Okc_Debug.Log('1300: attribute REFERENCE_TEXT cannot be null if INSERT_BY_REFERENCE is YES', 2);
1612: END IF;
1613: OKC_API.Set_Message(G_APP_NAME, 'OKC_ART_REF_TEXT_NULL');
1614: l_return_status := G_RET_STS_ERROR;
1615: END IF;
1620: /*
1621: IF ( p_date_approved is NOT NULL ) THEN
1622: IF ( p_date_approved > nvl(p_end_date,p_date_approved + 1) ) THEN
1623: IF (l_debug = 'Y') THEN
1624: Okc_Debug.Log('1300: attribute END_DATE IS less then approved date for standard article', 2);
1625: END IF;
1626: OKC_API.Set_Message(G_APP_NAME, 'OKC_ART_APPROVED_GT_END_DATE');
1627: l_return_status := G_RET_STS_ERROR;
1628: END IF;
1638: IF l_standard_yn = 'Y' THEN
1639: IF (G_CURRENT_ORG_ID <> G_GLOBAL_ORG_ID AND
1640: p_global_yn = 'Y') Then
1641: IF (l_debug = 'Y') THEN
1642: Okc_Debug.Log('2300: - attribute Global Article cannot be created at a local org', 2);
1643: END IF;
1644: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_GLOBAL_ART_LOCAL_ORG' );
1645: l_return_status := G_RET_STS_ERROR;
1646: END IF;
1668: -- New Version check should catch this exception (UIs already have this check/articles import will definitely validate this)
1669:
1670: IF nvl(l_highest_version_rec.provision_yn, 'N') <> nvl(p_provision_yn, 'N') THEN
1671: IF (l_debug = 'Y') THEN
1672: Okc_Debug.Log('1800: - Earlier version is of Provison/Clause is different from current one.', 2);
1673: END IF;
1674: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_EARLIER_VER_PROVISION' );
1675: l_return_status := G_RET_STS_ERROR;
1676: END IF;
1682: --No need for this. p_import_action will never be 'N' OR (nvl(p_import_action, 'N') <> 'N')) THEN
1683:
1684: IF (l_highest_version_rec.global_yn = 'Y' and p_global_yn = 'N') THEN
1685: IF (l_debug = 'Y') THEN
1686: Okc_Debug.Log('1800: - Earlier version is GLOBAL this version cannot be LOCAL', 2);
1687: END IF;
1688: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_EARLIER_VER_GLOBAL' );
1689: l_return_status := G_RET_STS_ERROR;
1690: END IF;
1695: (p_article_status IN ('DRAFT', 'REJECTED', 'PENDING_APPROVAL')) THEN
1696: --No need for this. p_import_action will never be 'N' OR (nvl(p_import_action, 'N') <> 'N')) THEN
1697:
1698: IF (l_debug = 'Y') THEN
1699: Okc_Debug.Log('1800: - Already have one version available in DRAFT,REJECTED OR PENDING_APPROVAL', 2);
1700: END IF;
1701: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_EXIST_DRAFT_REJ');
1702: l_return_status := G_RET_STS_ERROR;
1703: END IF;
1704:
1705: -- Date Published Check
1706: IF (l_highest_version_rec.date_published) >= p_date_published AND p_import_action IS NOT NULL THEN
1707: IF (l_debug = 'Y') THEN
1708: Okc_Debug.Log('1800: - Date Published of existing version is greater than date published provided for new version',2);
1709: END IF;
1710: --Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'DATE_PUBLISHED');
1711: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_EXIST_DATE_PUBLISHED');
1712: l_return_status := G_RET_STS_ERROR;
1727: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_END_DATE_NULL');
1728: l_return_status := G_RET_STS_ERROR;
1729: elsif nvl(p_end_date, l_highest_version_rec.start_date-1) >= l_highest_version_rec.start_date then
1730: IF (l_debug = 'Y') THEN
1731: Okc_Debug.Log('1800: - Date overlap with earlier version', 2);
1732: END IF;
1733: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_DATE_OVRLP_EARLR_VER');
1734: l_return_status := G_RET_STS_ERROR;
1735: end if;
1735: end if;
1736: ELSIF (l_highest_version_rec.start_date >= p_start_date) OR
1737: (nvl(l_highest_version_rec.end_date, p_start_date-1) >= p_start_date) THEN
1738: IF (l_debug = 'Y') THEN
1739: Okc_Debug.Log('1800: - Date overlap with earlier version', 2);
1740: END IF;
1741: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_DATE_OVRLP_EARLR_VER');
1742: l_return_status := G_RET_STS_ERROR;
1743: END IF; -- (l_highest_version_rec.start_date >= p_start_date) OR..
1765: l_rownotfound := l_global_csr%NOTFOUND;
1766: CLOSE l_global_csr;
1767: IF l_rownotfound THEN
1768: IF (l_debug = 'Y') THEN
1769: Okc_Debug.Log('2300: - No Data found to check Start Date is less than Global Start Date', 2);
1770: END IF;
1771: ELSIF (l_global_start_date > p_start_date) THEN
1772: IF (l_debug = 'Y') THEN
1773: Okc_Debug.Log('2300: - Start Date is greater than Global Start Date', 2);
1769: Okc_Debug.Log('2300: - No Data found to check Start Date is less than Global Start Date', 2);
1770: END IF;
1771: ELSIF (l_global_start_date > p_start_date) THEN
1772: IF (l_debug = 'Y') THEN
1773: Okc_Debug.Log('2300: - Start Date is greater than Global Start Date', 2);
1774: END IF;
1775: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_CMP_START_DATE');
1776: l_return_status := G_RET_STS_ERROR;
1777: RETURN l_return_status ;
1797:
1798: /*+++++++++++++End of hand code +++++++++++++++++++*/
1799:
1800: IF (l_debug = 'Y') THEN
1801: Okc_Debug.Log('2900: Leaving Validate_Record : '||sqlerrm, 2);
1802: END IF;
1803: RETURN l_return_status ;
1804:
1805: EXCEPTION
1805: EXCEPTION
1806: WHEN OTHERS THEN
1807:
1808: IF (l_debug = 'Y') THEN
1809: Okc_Debug.Log('3000: Leaving Validate_Record because of EXCEPTION: '||sqlerrm, 2);
1810: END IF;
1811:
1812: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1813: p_msg_name => G_UNEXPECTED_ERROR,
1955: l_earlier_version_id OKC_ARTICLE_VERSIONS.ARTICLE_VERSION_ID%TYPE;
1956: BEGIN
1957:
1958: IF (l_debug = 'Y') THEN
1959: Okc_Debug.Log('3100: Entered validate_row', 2);
1960: END IF;
1961:
1962: -- Setting attributes
1963: IF p_import_action IS NOT NULL Then
2116: G_CURRENT_ORG_ID := p_current_org_id;
2117: else
2118: if G_CURRENT_ORG_ID IS NULL Then
2119: IF (l_debug = 'Y') THEN
2120: Okc_Debug.Log('2300: - attribute G_CURRENT_ORG_ID is invalid', 2);
2121: END IF;
2122: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
2123: x_return_status := G_RET_STS_ERROR;
2124: RAISE FND_API.G_EXC_ERROR;
2192: x_earlier_version_number => x_earlier_version_number
2193: );
2194:
2195: IF (l_debug = 'Y') THEN
2196: Okc_Debug.Log('3200: Leaving validate_row', 2);
2197: END IF;
2198:
2199: EXCEPTION
2200: WHEN FND_API.G_EXC_ERROR THEN
2198:
2199: EXCEPTION
2200: WHEN FND_API.G_EXC_ERROR THEN
2201: IF (l_debug = 'Y') THEN
2202: Okc_Debug.Log('3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception', 2);
2203: END IF;
2204: x_return_status := G_RET_STS_ERROR;
2205:
2206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2204: x_return_status := G_RET_STS_ERROR;
2205:
2206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2207: IF (l_debug = 'Y') THEN
2208: Okc_Debug.Log('3400: Leaving Validate_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
2209: END IF;
2210: x_return_status := G_RET_STS_UNEXP_ERROR;
2211:
2212: WHEN OTHERS THEN
2210: x_return_status := G_RET_STS_UNEXP_ERROR;
2211:
2212: WHEN OTHERS THEN
2213: IF (l_debug = 'Y') THEN
2214: Okc_Debug.Log('3500: Leaving Validate_Row because of EXCEPTION: '||sqlerrm, 2);
2215: END IF;
2216: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2217: p_msg_name => G_UNEXPECTED_ERROR,
2218: p_token1 => G_SQLCODE_TOKEN,
2296:
2297: BEGIN
2298:
2299: IF (l_debug = 'Y') THEN
2300: Okc_Debug.Log('3600: Entered Insert_Row function', 2);
2301: END IF;
2302:
2303:
2304: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
2430: p_last_update_login,
2431: p_last_update_date);
2432:
2433: IF (l_debug = 'Y') THEN
2434: Okc_Debug.Log('3700: Leaving Insert_Row', 2);
2435: END IF;
2436:
2437: RETURN( G_RET_STS_SUCCESS );
2438:
2439: EXCEPTION
2440: WHEN OTHERS THEN
2441:
2442: IF (l_debug = 'Y') THEN
2443: Okc_Debug.Log('3800: Leaving Insert_Row:OTHERS Exception', 2);
2444: END IF;
2445:
2446: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2447: p_msg_name => G_UNEXPECTED_ERROR,
2531:
2532: x_return_status := G_RET_STS_SUCCESS;
2533:
2534: IF (l_debug = 'Y') THEN
2535: Okc_Debug.Log('4200: Entered Insert_Row', 2);
2536: END IF;
2537: --- Setting item attributes
2538: -- Set primary key value
2539: IF( p_article_version_id IS NULL ) THEN
2565: G_CURRENT_ORG_ID := p_current_org_id;
2566: else
2567: if G_CURRENT_ORG_ID IS NULL Then
2568: IF (l_debug = 'Y') THEN
2569: Okc_Debug.Log('2300: - attribute G_CURRENT_ORG_ID is invalid', 2);
2570: END IF;
2571: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
2572: x_return_status := G_RET_STS_ERROR;
2573: RAISE FND_API.G_EXC_ERROR;
2649: --------------------------------------------
2650: -- Call the internal Insert_Row for each child record
2651: --------------------------------------------
2652: IF (l_debug = 'Y') THEN
2653: Okc_Debug.Log('4300: Call the internal Insert_Row for Base Table', 2);
2654: END IF;
2655: -- Generate the highest article version number for the article in the case of insert. This was obtained from the validate -- row while validating a number of attributes based on earlier version.
2656: -- Though this approach is not pretty but it does save an expensive SQL.
2657:
2725:
2726:
2727:
2728: IF (l_debug = 'Y') THEN
2729: Okc_Debug.Log('4500: Leaving Insert_Row', 2);
2730: END IF;
2731:
2732: EXCEPTION
2733: WHEN FND_API.G_EXC_ERROR THEN
2731:
2732: EXCEPTION
2733: WHEN FND_API.G_EXC_ERROR THEN
2734: IF (l_debug = 'Y') THEN
2735: Okc_Debug.Log('4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception', 2);
2736: END IF;
2737: x_return_status := G_RET_STS_ERROR;
2738:
2739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2737: x_return_status := G_RET_STS_ERROR;
2738:
2739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2740: IF (l_debug = 'Y') THEN
2741: Okc_Debug.Log('4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
2742: END IF;
2743: x_return_status := G_RET_STS_UNEXP_ERROR;
2744:
2745: WHEN OTHERS THEN
2743: x_return_status := G_RET_STS_UNEXP_ERROR;
2744:
2745: WHEN OTHERS THEN
2746: IF (l_debug = 'Y') THEN
2747: Okc_Debug.Log('4800: Leaving Insert_Row because of EXCEPTION: '||sqlerrm, 2);
2748: END IF;
2749: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2750: p_msg_name => G_UNEXPECTED_ERROR,
2751: p_token1 => G_SQLCODE_TOKEN,
2788: l_row_notfound BOOLEAN := FALSE;
2789: BEGIN
2790:
2791: IF (l_debug = 'Y') THEN
2792: Okc_Debug.Log('4900: Entered Lock_Row', 2);
2793: END IF;
2794:
2795:
2796: BEGIN
2802: EXCEPTION
2803: WHEN E_Resource_Busy THEN
2804:
2805: IF (l_debug = 'Y') THEN
2806: Okc_Debug.Log('5000: Leaving Lock_Row:E_Resource_Busy Exception', 2);
2807: END IF;
2808:
2809: IF (lock_csr%ISOPEN) THEN
2810: CLOSE lock_csr;
2834: l_return_status := G_RET_STS_SUCCESS;
2835: END IF;
2836:
2837: IF (l_debug = 'Y') THEN
2838: Okc_Debug.Log('5100: Leaving Lock_Row', 2);
2839: END IF;
2840:
2841: RETURN( l_return_status );
2842:
2850: CLOSE lchk_csr;
2851: END IF;
2852:
2853: IF (l_debug = 'Y') THEN
2854: Okc_Debug.Log('5200: Leaving Lock_Row because of EXCEPTION: '||sqlerrm, 2);
2855: END IF;
2856:
2857: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2858: p_msg_name => G_UNEXPECTED_ERROR,
2875: ) IS
2876: BEGIN
2877:
2878: IF (l_debug = 'Y') THEN
2879: Okc_Debug.Log('5700: Entered Lock_Row', 2);
2880: Okc_Debug.Log('5800: Locking Row for Base Table', 2);
2881: END IF;
2882:
2883: --------------------------------------------
2876: BEGIN
2877:
2878: IF (l_debug = 'Y') THEN
2879: Okc_Debug.Log('5700: Entered Lock_Row', 2);
2880: Okc_Debug.Log('5800: Locking Row for Base Table', 2);
2881: END IF;
2882:
2883: --------------------------------------------
2884: -- Call the LOCK_ROW for each _B child record
2895:
2896:
2897:
2898: IF (l_debug = 'Y') THEN
2899: Okc_Debug.Log('6000: Leaving Lock_Row', 2);
2900: END IF;
2901:
2902: EXCEPTION
2903: WHEN FND_API.G_EXC_ERROR THEN
2901:
2902: EXCEPTION
2903: WHEN FND_API.G_EXC_ERROR THEN
2904: IF (l_debug = 'Y') THEN
2905: Okc_Debug.Log('6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception', 2);
2906: END IF;
2907: x_return_status := G_RET_STS_ERROR;
2908:
2909: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2907: x_return_status := G_RET_STS_ERROR;
2908:
2909: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2910: IF (l_debug = 'Y') THEN
2911: Okc_Debug.Log('6200: Leaving Lock_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
2912: END IF;
2913: x_return_status := G_RET_STS_UNEXP_ERROR;
2914:
2915: WHEN OTHERS THEN
2913: x_return_status := G_RET_STS_UNEXP_ERROR;
2914:
2915: WHEN OTHERS THEN
2916: IF (l_debug = 'Y') THEN
2917: Okc_Debug.Log('6300: Leaving Lock_Row because of EXCEPTION: '||sqlerrm, 2);
2918: END IF;
2919: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2920: p_msg_name => G_UNEXPECTED_ERROR,
2921: p_token1 => G_SQLCODE_TOKEN,
2995:
2996: BEGIN
2997:
2998: IF (l_debug = 'Y') THEN
2999: Okc_Debug.Log('6400: Entered Update_Row', 2);
3000: END IF;
3001:
3002: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
3003: l_program_id := NULL;
3072: LAST_UPDATE_DATE = p_last_update_date
3073: WHERE ARTICLE_VERSION_ID = p_article_version_id;
3074:
3075: IF (l_debug = 'Y') THEN
3076: Okc_Debug.Log('6500: Leaving Update_Row', 2);
3077: END IF;
3078:
3079: RETURN G_RET_STS_SUCCESS ;
3080:
3081: EXCEPTION
3082: WHEN OTHERS THEN
3083:
3084: IF (l_debug = 'Y') THEN
3085: Okc_Debug.Log('6600: Leaving Update_Row because of EXCEPTION: '||sqlerrm, 2);
3086: END IF;
3087:
3088: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3089: p_msg_name => G_UNEXPECTED_ERROR,
3217:
3218: BEGIN
3219:
3220: IF (l_debug = 'Y') THEN
3221: Okc_Debug.Log('7000: Entered Update_Row', 2);
3222: Okc_Debug.Log('7100: Locking _B row', 2);
3223: END IF;
3224:
3225: x_return_status := Lock_row(
3218: BEGIN
3219:
3220: IF (l_debug = 'Y') THEN
3221: Okc_Debug.Log('7000: Entered Update_Row', 2);
3222: Okc_Debug.Log('7100: Locking _B row', 2);
3223: END IF;
3224:
3225: x_return_status := Lock_row(
3226: p_article_version_id => p_article_version_id,
3233: END IF;
3234:
3235:
3236: IF (l_debug = 'Y') THEN
3237: Okc_Debug.Log('7300: Setting attributes', 2);
3238: END IF;
3239:
3240: x_return_status := Set_Attributes(
3241: p_article_version_id => p_article_version_id,
3339: RAISE FND_API.G_EXC_ERROR;
3340: END IF;
3341:
3342: IF (l_debug = 'Y') THEN
3343: Okc_Debug.Log('7400: Record Validation', 2);
3344: END IF;
3345:
3346: -- MOAC
3347: G_CURRENT_ORG_ID := mo_global.get_current_org_id();
3349: G_CURRENT_ORG_ID := p_current_org_id;
3350: else
3351: if G_CURRENT_ORG_ID IS NULL Then
3352: IF (l_debug = 'Y') THEN
3353: Okc_Debug.Log('2300: - attribute G_CURRENT_ORG_ID is invalid', 2);
3354: END IF;
3355: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
3356: x_return_status := G_RET_STS_ERROR;
3357: RAISE FND_API.G_EXC_ERROR;
3430: RAISE FND_API.G_EXC_ERROR;
3431: END IF;
3432:
3433: IF (l_debug = 'Y') THEN
3434: Okc_Debug.Log('7500: Filling WHO columns', 2);
3435: END IF;
3436: x_article_id := l_article_id;
3437:
3438: -- Filling who columns
3447: --------------------------------------------
3448: -- Call the Update_Row for each child record
3449: --------------------------------------------
3450: IF (l_debug = 'Y') THEN
3451: Okc_Debug.Log('7600: Updating Row', 2);
3452: END IF;
3453:
3454: x_return_status := Update_Row(
3455: p_article_version_id => p_article_version_id,
3513: END IF;
3514:
3515:
3516: IF (l_debug = 'Y') THEN
3517: Okc_Debug.Log('7800: Leaving Update_Row', 2);
3518: END IF;
3519:
3520: EXCEPTION
3521: WHEN FND_API.G_EXC_ERROR THEN
3519:
3520: EXCEPTION
3521: WHEN FND_API.G_EXC_ERROR THEN
3522: IF (l_debug = 'Y') THEN
3523: Okc_Debug.Log('7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception', 2);
3524: END IF;
3525: x_return_status := G_RET_STS_ERROR;
3526:
3527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3525: x_return_status := G_RET_STS_ERROR;
3526:
3527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3528: IF (l_debug = 'Y') THEN
3529: Okc_Debug.Log('8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
3530: END IF;
3531: x_return_status := G_RET_STS_UNEXP_ERROR;
3532:
3533: WHEN OTHERS THEN
3531: x_return_status := G_RET_STS_UNEXP_ERROR;
3532:
3533: WHEN OTHERS THEN
3534: IF (l_debug = 'Y') THEN
3535: Okc_Debug.Log('8100: Leaving Update_Row because of EXCEPTION: '||sqlerrm, 2);
3536: END IF;
3537: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3538: p_msg_name => G_UNEXPECTED_ERROR,
3539: p_token1 => G_SQLCODE_TOKEN,
3556:
3557: BEGIN
3558:
3559: IF (l_debug = 'Y') THEN
3560: Okc_Debug.Log('8200: Entered Delete_Row', 2);
3561: END IF;
3562:
3563: DELETE FROM OKC_ARTICLE_VERSIONS WHERE ARTICLE_VERSION_ID = P_ARTICLE_VERSION_ID;
3564:
3562:
3563: DELETE FROM OKC_ARTICLE_VERSIONS WHERE ARTICLE_VERSION_ID = P_ARTICLE_VERSION_ID;
3564:
3565: IF (l_debug = 'Y') THEN
3566: Okc_Debug.Log('8300: Leaving Delete_Row', 2);
3567: END IF;
3568:
3569: RETURN( G_RET_STS_SUCCESS );
3570:
3571: EXCEPTION
3572: WHEN OTHERS THEN
3573:
3574: IF (l_debug = 'Y') THEN
3575: Okc_Debug.Log('8400: Leaving Delete_Row because of EXCEPTION: '||sqlerrm, 2);
3576: END IF;
3577:
3578: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3579: p_msg_name => G_UNEXPECTED_ERROR,
3597: l_api_name CONSTANT VARCHAR2(30) := 'B_Delete_Row';
3598: BEGIN
3599:
3600: IF (l_debug = 'Y') THEN
3601: Okc_Debug.Log('8800: Entered Delete_Row', 2);
3602: Okc_Debug.Log('8900: Locking _B row', 2);
3603: END IF;
3604:
3605: x_return_status := Lock_row(
3598: BEGIN
3599:
3600: IF (l_debug = 'Y') THEN
3601: Okc_Debug.Log('8800: Entered Delete_Row', 2);
3602: Okc_Debug.Log('8900: Locking _B row', 2);
3603: END IF;
3604:
3605: x_return_status := Lock_row(
3606: p_article_version_id => p_article_version_id,
3613: END IF;
3614:
3615:
3616: IF (l_debug = 'Y') THEN
3617: Okc_Debug.Log('9100: Removing _B row', 2);
3618: END IF;
3619: x_return_status := Delete_Row( p_article_version_id => p_article_version_id );
3620: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3621: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3624: END IF;
3625:
3626:
3627: IF (l_debug = 'Y') THEN
3628: Okc_Debug.Log('9300: Leaving Delete_Row', 2);
3629: END IF;
3630:
3631: EXCEPTION
3632: WHEN FND_API.G_EXC_ERROR THEN
3630:
3631: EXCEPTION
3632: WHEN FND_API.G_EXC_ERROR THEN
3633: IF (l_debug = 'Y') THEN
3634: Okc_Debug.Log('9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception', 2);
3635: END IF;
3636: x_return_status := G_RET_STS_ERROR;
3637:
3638: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3636: x_return_status := G_RET_STS_ERROR;
3637:
3638: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3639: IF (l_debug = 'Y') THEN
3640: Okc_Debug.Log('9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
3641: END IF;
3642: x_return_status := G_RET_STS_UNEXP_ERROR;
3643:
3644: WHEN OTHERS THEN
3642: x_return_status := G_RET_STS_UNEXP_ERROR;
3643:
3644: WHEN OTHERS THEN
3645: IF (l_debug = 'Y') THEN
3646: Okc_Debug.Log('9600: Leaving Delete_Row because of EXCEPTION: '||sqlerrm, 2);
3647: END IF;
3648: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3649: p_msg_name => G_UNEXPECTED_ERROR,
3650: p_token1 => G_SQLCODE_TOKEN,