[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,
233: WHERE t.ARTICLE_VERSION_ID = cp_article_version_id;
234: BEGIN
235:
236: IF (l_debug = 'Y') THEN
237: Okc_Debug.Log('400: Entered get_rec', 2);
238: END IF;
239:
240: -- Get current database values
241: OPEN OKC_ARTICLE_VERSIONS_pk_csr (p_article_version_id);
300: END IF;
301: CLOSE OKC_ARTICLE_VERSIONS_pk_csr;
302:
303: IF (l_debug = 'Y') THEN
304: Okc_Debug.Log('500: Leaving get_rec ', 2);
305: END IF;
306:
307: RETURN G_RET_STS_SUCCESS ;
308:
309: EXCEPTION
310: WHEN OTHERS THEN
311:
312: IF (l_debug = 'Y') THEN
313: Okc_Debug.Log('600: Leaving get_rec because of EXCEPTION: '||sqlerrm, 2);
314: END IF;
315:
316: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
317: p_msg_name => G_UNEXPECTED_ERROR,
442: l_last_update_login OKC_ARTICLE_VERSIONS.LAST_UPDATE_LOGIN%TYPE;
443: l_last_update_date OKC_ARTICLE_VERSIONS.LAST_UPDATE_DATE%TYPE;
444: BEGIN
445: IF (l_debug = 'Y') THEN
446: Okc_Debug.Log('700: Entered Set_Attributes ', 2);
447: END IF;
448:
449: IF( p_article_version_id IS NOT NULL ) THEN
450: -- Get current database values
872:
873: END IF;
874:
875: IF (l_debug = 'Y') THEN
876: Okc_Debug.Log('800: Leaving Set_Attributes ', 2);
877: END IF;
878:
879: RETURN G_RET_STS_SUCCESS ;
880: EXCEPTION
879: RETURN G_RET_STS_SUCCESS ;
880: EXCEPTION
881: WHEN FND_API.G_EXC_ERROR THEN
882: IF (l_debug = 'Y') THEN
883: Okc_Debug.Log('900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception', 2);
884: END IF;
885: RETURN G_RET_STS_ERROR;
886:
887: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
885: RETURN G_RET_STS_ERROR;
886:
887: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
888: IF (l_debug = 'Y') THEN
889: Okc_Debug.Log('1000: Leaving Set_Attributes:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
890: END IF;
891: RETURN G_RET_STS_UNEXP_ERROR;
892:
893: WHEN OTHERS THEN
891: RETURN G_RET_STS_UNEXP_ERROR;
892:
893: WHEN OTHERS THEN
894: IF (l_debug = 'Y') THEN
895: Okc_Debug.Log('1100: Leaving Set_Attributes because of EXCEPTION: '||sqlerrm, 2);
896: END IF;
897: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
898: p_msg_name => G_UNEXPECTED_ERROR,
899: p_token1 => G_SQLCODE_TOKEN,
991:
992: BEGIN
993:
994: IF (l_debug = 'Y') THEN
995: Okc_Debug.Log('1200: Entered Validate_Attributes', 2);
996: END IF;
997:
998: -- Article row will always be needed to test if this is a standard or not even for not null or FK checks
999:
998: -- Article row will always be needed to test if this is a standard or not even for not null or FK checks
999:
1000: IF p_validation_level > G_REQUIRED_VALUE_VALID_LEVEL THEN
1001: IF (l_debug = 'Y') THEN
1002: Okc_Debug.Log('1300: required values validation', 2);
1003: END IF;
1004:
1005: IF (l_debug = 'Y') THEN
1006: Okc_Debug.Log('1400: - attribute ARTICLE_ID ', 2);
1002: Okc_Debug.Log('1300: required values validation', 2);
1003: END IF;
1004:
1005: IF (l_debug = 'Y') THEN
1006: Okc_Debug.Log('1400: - attribute ARTICLE_ID ', 2);
1007: END IF;
1008: IF nvl(p_import_Action,'*') <> 'N' Then -- bypass this check for validation of new article being imported
1009: IF ( p_article_id IS NULL) THEN
1010: IF (l_debug = 'Y') THEN
1007: END IF;
1008: IF nvl(p_import_Action,'*') <> 'N' Then -- bypass this check for validation of new article being imported
1009: IF ( p_article_id IS NULL) THEN
1010: IF (l_debug = 'Y') THEN
1011: Okc_Debug.Log('1500: - attribute ARTICLE_ID is invalid', 2);
1012: END IF;
1013: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'ARTICLE_ID');
1014: l_return_status := G_RET_STS_ERROR;
1015: END IF;
1017:
1018: -- As of now validation of article version number is not needed as it is generated by the API.
1019: /*
1020: IF (l_debug = 'Y') THEN
1021: Okc_Debug.Log('1400: - attribute ARTICLE_VERSION_NUMBER ', 2);
1022: END IF;
1023: IF ( p_article_version_number IS NULL) THEN
1024: IF (l_debug = 'Y') THEN
1025: Okc_Debug.Log('1500: - attribute ARTICLE_VERSION_NUMBER is invalid', 2);
1021: Okc_Debug.Log('1400: - attribute ARTICLE_VERSION_NUMBER ', 2);
1022: END IF;
1023: IF ( p_article_version_number IS NULL) THEN
1024: IF (l_debug = 'Y') THEN
1025: Okc_Debug.Log('1500: - attribute ARTICLE_VERSION_NUMBER is invalid', 2);
1026: END IF;
1027: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'ARTICLE_VERSION_NUMBER');
1028: l_return_status := G_RET_STS_ERROR;
1029: END IF;
1029: END IF;
1030: */
1031:
1032: IF (l_debug = 'Y') THEN
1033: Okc_Debug.Log('1400: - attribute ARTICLE_TEXT ', 2);
1034: END IF;
1035: IF ( p_article_text IS NULL) THEN
1036: IF (l_debug = 'Y') THEN
1037: Okc_Debug.Log('1500: - attribute ARTICLE_TEXT is invalid', 2);
1033: Okc_Debug.Log('1400: - attribute ARTICLE_TEXT ', 2);
1034: END IF;
1035: IF ( p_article_text IS NULL) THEN
1036: IF (l_debug = 'Y') THEN
1037: Okc_Debug.Log('1500: - attribute ARTICLE_TEXT is invalid', 2);
1038: END IF;
1039: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ARTICLE_TEXT_REQD');
1040: --Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'ARTICLE_TEXT');
1041: l_return_status := G_RET_STS_ERROR;
1041: l_return_status := G_RET_STS_ERROR;
1042: END IF;
1043:
1044: IF (l_debug = 'Y') THEN
1045: Okc_Debug.Log('1400: - attribute PROVISION_YN ', 2);
1046: END IF;
1047: IF ( p_provision_yn IS NULL) THEN
1048: IF (l_debug = 'Y') THEN
1049: Okc_Debug.Log('1500: - attribute PROVISION_YN is invalid', 2);
1045: Okc_Debug.Log('1400: - attribute PROVISION_YN ', 2);
1046: END IF;
1047: IF ( p_provision_yn IS NULL) THEN
1048: IF (l_debug = 'Y') THEN
1049: Okc_Debug.Log('1500: - attribute PROVISION_YN is invalid', 2);
1050: END IF;
1051: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'PROVISION_YN');
1052: l_return_status := G_RET_STS_ERROR;
1053: END IF;
1052: l_return_status := G_RET_STS_ERROR;
1053: END IF;
1054:
1055: IF (l_debug = 'Y') THEN
1056: Okc_Debug.Log('1400: - attribute INSERT_BY_REFERENCE ', 2);
1057: END IF;
1058: IF ( p_insert_by_reference IS NULL) THEN
1059: IF (l_debug = 'Y') THEN
1060: Okc_Debug.Log('1500: - attribute INSERT_BY_REFERENCE is invalid', 2);
1056: Okc_Debug.Log('1400: - attribute INSERT_BY_REFERENCE ', 2);
1057: END IF;
1058: IF ( p_insert_by_reference IS NULL) THEN
1059: IF (l_debug = 'Y') THEN
1060: Okc_Debug.Log('1500: - attribute INSERT_BY_REFERENCE is invalid', 2);
1061: END IF;
1062: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'INSERT_BY_REFERENCE');
1063: l_return_status := G_RET_STS_ERROR;
1064: END IF;
1063: l_return_status := G_RET_STS_ERROR;
1064: END IF;
1065:
1066: IF (l_debug = 'Y') THEN
1067: Okc_Debug.Log('1400: - attribute LOCK_TEXT ', 2);
1068: END IF;
1069: IF ( p_lock_text IS NULL) THEN
1070: IF (l_debug = 'Y') THEN
1071: Okc_Debug.Log('1500: - attribute LOCK_TEXT is invalid', 2);
1067: Okc_Debug.Log('1400: - attribute LOCK_TEXT ', 2);
1068: END IF;
1069: IF ( p_lock_text IS NULL) THEN
1070: IF (l_debug = 'Y') THEN
1071: Okc_Debug.Log('1500: - attribute LOCK_TEXT is invalid', 2);
1072: END IF;
1073: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'LOCK_TEXT');
1074: l_return_status := G_RET_STS_ERROR;
1075: END IF;
1074: l_return_status := G_RET_STS_ERROR;
1075: END IF;
1076:
1077: IF (l_debug = 'Y') THEN
1078: Okc_Debug.Log('1400: - attribute GLOBAL_YN ', 2);
1079: END IF;
1080: IF ( p_global_yn IS NULL) THEN
1081: IF (l_debug = 'Y') THEN
1082: Okc_Debug.Log('1500: - attribute GLOBAL_YN is invalid', 2);
1078: Okc_Debug.Log('1400: - attribute GLOBAL_YN ', 2);
1079: END IF;
1080: IF ( p_global_yn IS NULL) THEN
1081: IF (l_debug = 'Y') THEN
1082: Okc_Debug.Log('1500: - attribute GLOBAL_YN is invalid', 2);
1083: END IF;
1084: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'GLOBAL_YN');
1085: l_return_status := G_RET_STS_ERROR;
1086: END IF;
1085: l_return_status := G_RET_STS_ERROR;
1086: END IF;
1087:
1088: IF (l_debug = 'Y') THEN
1089: Okc_Debug.Log('1400: - attribute ARTICLE_LANGUAGE ', 2);
1090: END IF;
1091: IF ( p_article_language IS NULL) THEN
1092: IF (l_debug = 'Y') THEN
1093: Okc_Debug.Log('1500: - attribute ARTICLE_LANGUAGE is invalid', 2);
1089: Okc_Debug.Log('1400: - attribute ARTICLE_LANGUAGE ', 2);
1090: END IF;
1091: IF ( p_article_language IS NULL) THEN
1092: IF (l_debug = 'Y') THEN
1093: Okc_Debug.Log('1500: - attribute ARTICLE_LANGUAGE is invalid', 2);
1094: END IF;
1095: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'ARTICLE_LANGUAGE');
1096: l_return_status := G_RET_STS_ERROR;
1097: END IF;
1097: END IF;
1098:
1099: IF p_standard_yn = 'Y' OR p_import_action IS NOT NULL Then
1100: IF (l_debug = 'Y') THEN
1101: Okc_Debug.Log('1400: - attribute START_DATE ', 2);
1102: END IF;
1103: IF ( p_start_date IS NULL) THEN
1104: IF (l_debug = 'Y') THEN
1105: Okc_Debug.Log('1500: - attribute START_DATE is invalid', 2);
1101: Okc_Debug.Log('1400: - attribute START_DATE ', 2);
1102: END IF;
1103: IF ( p_start_date IS NULL) THEN
1104: IF (l_debug = 'Y') THEN
1105: Okc_Debug.Log('1500: - attribute START_DATE is invalid', 2);
1106: END IF;
1107: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'START_DATE');
1108: l_return_status := G_RET_STS_ERROR;
1109: END IF;
1109: END IF;
1110: END IF;
1111:
1112: /* IF (l_debug = 'Y') THEN
1113: Okc_Debug.Log('1400: - attribute EDITED_IN_WORD ', 2);
1114: END IF;
1115: IF ( p_edited_in_word IS NULL) THEN
1116: IF (l_debug = 'Y') THEN
1117: Okc_Debug.Log('1500: - attribute EDITED_IN_WORD is invalid', 2);
1113: Okc_Debug.Log('1400: - attribute EDITED_IN_WORD ', 2);
1114: END IF;
1115: IF ( p_edited_in_word IS NULL) THEN
1116: IF (l_debug = 'Y') THEN
1117: Okc_Debug.Log('1500: - attribute EDITED_IN_WORD is invalid', 2);
1118: END IF;
1119: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'EDITED_IN_WORD');
1120: l_return_status := G_RET_STS_ERROR;
1121: END IF; */
1121: END IF; */
1122:
1123: IF p_edited_in_word = 'Y' Then
1124: IF (l_debug = 'Y') THEN
1125: Okc_Debug.Log('1400: - attribute ARTICLE_TEXT_IN_WORD ', 2);
1126: END IF;
1127: IF ( p_article_text_in_word IS NULL OR Dbms_Lob.SubStr(p_article_text_in_word,1,1) = '00') THEN
1128: IF (l_debug = 'Y') THEN
1129: Okc_Debug.Log('1500: - attribute ARTICLE_TEXT_IN_WORD is invalid', 2);
1125: Okc_Debug.Log('1400: - attribute ARTICLE_TEXT_IN_WORD ', 2);
1126: END IF;
1127: IF ( p_article_text_in_word IS NULL OR Dbms_Lob.SubStr(p_article_text_in_word,1,1) = '00') THEN
1128: IF (l_debug = 'Y') THEN
1129: Okc_Debug.Log('1500: - attribute ARTICLE_TEXT_IN_WORD is invalid', 2);
1130: END IF;
1131: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_ERROR_IMPORT_WORD');
1132: l_return_status := G_RET_STS_ERROR;
1133: ELSE
1139:
1140: EXCEPTION WHEN OTHERS THEN
1141:
1142: IF (l_debug = 'Y') THEN
1143: Okc_Debug.Log('3000: - attribute ARTICLE_TEXT_IN_WORD is not a valid XML', 2);
1144: END IF;
1145: Okc_Api.Set_Message(G_APP_NAME, 'OKC_INV_ART_TXT_WML');
1146: l_return_status := G_RET_STS_ERROR;
1147:
1152: END IF;
1153:
1154: IF p_validation_level > G_VALID_VALUE_VALID_LEVEL THEN
1155: IF (l_debug = 'Y') THEN
1156: Okc_Debug.Log('1600: static values and range validation', 2);
1157: END IF;
1158:
1159: IF (l_debug = 'Y') THEN
1160: Okc_Debug.Log('1700: - attribute PROVISION_YN ', 2);
1156: Okc_Debug.Log('1600: static values and range validation', 2);
1157: END IF;
1158:
1159: IF (l_debug = 'Y') THEN
1160: Okc_Debug.Log('1700: - attribute PROVISION_YN ', 2);
1161: END IF;
1162: IF p_provision_yn NOT IN ('Y','N') THEN
1163: IF (l_debug = 'Y') THEN
1164: Okc_Debug.Log('1800: - attribute PROVISION_YN is invalid', 2);
1160: Okc_Debug.Log('1700: - attribute PROVISION_YN ', 2);
1161: END IF;
1162: IF p_provision_yn NOT IN ('Y','N') THEN
1163: IF (l_debug = 'Y') THEN
1164: Okc_Debug.Log('1800: - attribute PROVISION_YN is invalid', 2);
1165: END IF;
1166: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'PROVISION_YN');
1167: l_return_status := G_RET_STS_ERROR;
1168: END IF;
1168: END IF;
1169:
1170: IF p_insert_by_reference NOT IN ('Y','N') THEN
1171: IF (l_debug = 'Y') THEN
1172: Okc_Debug.Log('1800: - attribute INSERT_BY_REFERENCE is invalid', 2);
1173: END IF;
1174: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'INSERT_BY_REFERENCE');
1175: l_return_status := G_RET_STS_ERROR;
1176: END IF;
1176: END IF;
1177:
1178: IF p_lock_text NOT IN ('Y','N') THEN
1179: IF (l_debug = 'Y') THEN
1180: Okc_Debug.Log('1800: - attribute LOCK_TEXT is invalid', 2);
1181: END IF;
1182: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'LOCK_TEXT');
1183: l_return_status := G_RET_STS_ERROR;
1184: END IF;
1183: l_return_status := G_RET_STS_ERROR;
1184: END IF;
1185:
1186: IF (l_debug = 'Y') THEN
1187: Okc_Debug.Log('1700: - attribute GLOBAL_YN ', 2);
1188: END IF;
1189: IF p_global_yn NOT IN ('Y','N') THEN
1190: IF (l_debug = 'Y') THEN
1191: Okc_Debug.Log('1800: - attribute GLOBAL_YN is invalid', 2);
1187: Okc_Debug.Log('1700: - attribute GLOBAL_YN ', 2);
1188: END IF;
1189: IF p_global_yn NOT IN ('Y','N') THEN
1190: IF (l_debug = 'Y') THEN
1191: Okc_Debug.Log('1800: - attribute GLOBAL_YN is invalid', 2);
1192: END IF;
1193: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'GLOBAL_YN');
1194: l_return_status := G_RET_STS_ERROR;
1195: END IF;
1194: l_return_status := G_RET_STS_ERROR;
1195: END IF;
1196:
1197: IF (l_debug = 'Y') THEN
1198: Okc_Debug.Log('1700: - attribute TRANSLATED_YN ', 2);
1199: END IF;
1200: IF p_translated_yn NOT IN ('Y','N') THEN
1201: IF (l_debug = 'Y') THEN
1202: Okc_Debug.Log('1800: - attribute TRANSLATED_YN is invalid', 2);
1198: Okc_Debug.Log('1700: - attribute TRANSLATED_YN ', 2);
1199: END IF;
1200: IF p_translated_yn NOT IN ('Y','N') THEN
1201: IF (l_debug = 'Y') THEN
1202: Okc_Debug.Log('1800: - attribute TRANSLATED_YN is invalid', 2);
1203: END IF;
1204: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'TRANSLATED_YN');
1205: l_return_status := G_RET_STS_ERROR;
1206: END IF;
1208: END IF;
1209:
1210: IF p_validation_level > G_LOOKUP_CODE_VALID_LEVEL THEN
1211: IF (l_debug = 'Y') THEN
1212: Okc_Debug.Log('1900: lookup codes validation', 2);
1213: END IF;
1214:
1215: /* Status Check is not needed as it is always set by the UI.. For Articles Import this is pre-checked for certain statuses only
1216:
1214:
1215: /* Status Check is not needed as it is always set by the UI.. For Articles Import this is pre-checked for certain statuses only
1216:
1217: IF (l_debug = 'Y') THEN
1218: Okc_Debug.Log('2000: - attribute ARTICLE_STATUS ', 2);
1219: END IF;
1220: IF p_article_status IS NOT NULL THEN
1221: l_tmp_return_status := Okc_Util.Check_Lookup_Code('OKC_ARTICLE_STATUS',p_article_status);
1222: IF (l_tmp_return_status <> G_RET_STS_SUCCESS) THEN
1226: END IF;
1227: */
1228:
1229: IF (l_debug = 'Y') THEN
1230: Okc_Debug.Log('1500: - attribute DEFAULT_SECTION ', 2);
1231: END IF;
1232: IF p_default_section IS NOT NULL THEN
1233: l_tmp_return_status := Okc_Util.Check_Lookup_Code('OKC_ARTICLE_SECTION',p_default_section);
1234: IF (l_tmp_return_status <> G_RET_STS_SUCCESS) THEN
1241:
1242: IF p_validation_level > G_FOREIGN_KEY_VALID_LEVEL THEN
1243: /*
1244: IF (l_debug = 'Y') THEN
1245: Okc_Debug.Log('2100: foreign keys validation ', 2);
1246: Okc_Debug.Log('2200: - attribute ARTICLE_LANGAUGE ', 2);
1247: END IF;
1248:
1249: -- This check is required only for article import .. For UI this is not required as it will be derived as USERENV(LANG)
1242: IF p_validation_level > G_FOREIGN_KEY_VALID_LEVEL THEN
1243: /*
1244: IF (l_debug = 'Y') THEN
1245: Okc_Debug.Log('2100: foreign keys validation ', 2);
1246: Okc_Debug.Log('2200: - attribute ARTICLE_LANGAUGE ', 2);
1247: END IF;
1248:
1249: -- This check is required only for article import .. For UI this is not required as it will be derived as USERENV(LANG)
1250: -- This is a denormalized attribute and will be validated only from creating new version from Articles Import.
1256: FETCH l_article_language_csr INTO l_dummy_var;
1257: CLOSE l_article_language_csr;
1258: IF (l_dummy_var = '?') THEN
1259: IF (l_debug = 'Y') THEN
1260: Okc_Debug.Log('2300: - attribute ARTICLE_LANGAUGE is invalid', 2);
1261: END IF;
1262: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ARTICLE_LANGAUGE');
1263: l_return_status := G_RET_STS_ERROR;
1264: END IF;
1264: END IF;
1265: END IF;
1266: */
1267: IF (l_debug = 'Y') THEN
1268: Okc_Debug.Log('2200: - attribute STD_ARTICLE_VERSION_ID ', 2);
1269: END IF;
1270: IF p_std_article_version_id IS NOT NULL THEN
1271: l_dummy_var := '?';
1272: OPEN l_std_article_version_id_csr;
1273: FETCH l_std_article_version_id_csr INTO l_dummy_var;
1274: CLOSE l_std_article_version_id_csr;
1275: IF (l_dummy_var = '?') THEN
1276: IF (l_debug = 'Y') THEN
1277: Okc_Debug.Log('2300: - attribute STD_ARTICLE_VERSION_ID is invalid', 2);
1278: END IF;
1279: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'STD_ARTICLE_VERSION_ID');
1280: l_return_status := G_RET_STS_ERROR;
1281: END IF;
1282: END IF;
1283:
1284: /*
1285: IF (l_debug = 'Y') THEN
1286: Okc_Debug.Log('2200: - attribute DATE_PUBLISHED ', 2);
1287: END IF;
1288: IF p_date_published IS NOT NULL THEN
1289: OPEN l_date_published_csr;
1290: FETCH l_date_published_csr INTO l_dummy_date;
1290: FETCH l_date_published_csr INTO l_dummy_date;
1291: CLOSE l_date_published_csr;
1292: IF (l_dummy_date >= p_date_published) THEN
1293: IF (l_debug = 'Y') THEN
1294: Okc_Debug.Log('2300: - attribute DATE_PUBLISHED is invalid', 2);
1295: END IF;
1296: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'DATE_PUBLISHED');
1297: l_return_status := G_RET_STS_ERROR;
1298: END IF;
1301:
1302: END IF;
1303:
1304: IF (l_debug = 'Y') THEN
1305: Okc_Debug.Log('2400: Leaving Validate_Attributes ', 2);
1306: END IF;
1307:
1308: RETURN l_return_status;
1309:
1308: RETURN l_return_status;
1309:
1310: EXCEPTION
1311: WHEN OTHERS THEN
1312: Okc_Debug.Log('2500: Leaving Validate_Attributes because of EXCEPTION: '||sqlerrm, 2);
1313: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1314: p_msg_name => G_UNEXPECTED_ERROR,
1315: p_token1 => G_SQLCODE_TOKEN,
1316: p_token1_value => sqlcode,
1524:
1525: BEGIN
1526:
1527: IF (l_debug = 'Y') THEN
1528: Okc_Debug.Log('2600: Entered Validate_Record', 2);
1529: Okc_Debug.Log('1400: - attribute ARTICLE_VERSION_ID ', 2);
1530: END IF;
1531: x_earlier_version_number := NULL;
1532: l_article_language := p_article_language;
1525: BEGIN
1526:
1527: IF (l_debug = 'Y') THEN
1528: Okc_Debug.Log('2600: Entered Validate_Record', 2);
1529: Okc_Debug.Log('1400: - attribute ARTICLE_VERSION_ID ', 2);
1530: END IF;
1531: x_earlier_version_number := NULL;
1532: l_article_language := p_article_language;
1533: -- MOAC
1536: G_CURRENT_ORG_ID := p_current_org_id;
1537: else
1538: if G_CURRENT_ORG_ID IS NULL Then
1539: IF (l_debug = 'Y') THEN
1540: Okc_Debug.Log('2300: - attribute G_CURRENT_ORG_ID is invalid', 2);
1541: END IF;
1542: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
1543: l_return_status := G_RET_STS_ERROR;
1544: RETURN l_return_status ;
1564: FETCH l_article_id_csr INTO l_standard_yn, l_article_language;
1565: CLOSE l_article_id_csr;
1566: IF (l_standard_yn = '?') THEN
1567: IF (l_debug = 'Y') THEN
1568: Okc_Debug.Log('2300: - attribute ARTICLE_ID is invalid', 2);
1569: END IF;
1570: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ARTICLE_ID');
1571: l_return_status := G_RET_STS_ERROR;
1572: RETURN l_return_status ;
1630: p_variable_code => p_variable_code --clm
1631: );
1632: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1633: IF (l_debug = 'Y') THEN
1634: Okc_Debug.Log('2700: Leaving Validate_Record because of UNEXP_ERROR in Validate_Attributes: '||sqlerrm, 2);
1635: END IF;
1636: RETURN G_RET_STS_UNEXP_ERROR;
1637: END IF;
1638:
1673:
1674: --- Record Level Validation
1675: IF p_validation_level > G_RECORD_VALID_LEVEL THEN
1676: IF (l_debug = 'Y') THEN
1677: Okc_Debug.Log('2800: Entered Record Level Validations', 2);
1678: END IF;
1679: /*+++++++++++++start of hand code +++++++++++++++++++*/
1680: -- manual coding for Record Level Validations if required
1681:
1681:
1682: IF ( p_end_date is NOT NULL ) THEN
1683: IF ( p_end_date < p_start_date ) THEN
1684: IF (l_debug = 'Y') THEN
1685: Okc_Debug.Log('1300: attribute START_DATE IS greater then end date for standard article', 2);
1686: END IF;
1687: OKC_API.Set_Message(G_APP_NAME, 'OKC_ART_START_GT_END_DATE');
1688: l_return_status := G_RET_STS_ERROR;
1689: ELSIF p_article_status in ('DRAFT','REJECTED','PENDING_APPROVAL') AND
1688: l_return_status := G_RET_STS_ERROR;
1689: ELSIF p_article_status in ('DRAFT','REJECTED','PENDING_APPROVAL') AND
1690: p_end_date < trunc(sysdate) THEN -- Added for Bug 3517002
1691: IF (l_debug = 'Y') THEN
1692: Okc_Debug.Log('1300: attribute END_DATE IS less then system date for standard article', 2);
1693: END IF;
1694: OKC_API.Set_Message(G_APP_NAME, 'OKC_ART_END_LT_SYS_DATE');
1695: l_return_status := G_RET_STS_ERROR;
1696: END IF;
1700:
1701: IF ( p_insert_by_reference = 'Y' ) THEN
1702: IF ( p_reference_text IS NULL ) THEN
1703: IF (l_debug = 'Y') THEN
1704: Okc_Debug.Log('1300: attribute REFERENCE_TEXT cannot be null if INSERT_BY_REFERENCE is YES', 2);
1705: END IF;
1706: OKC_API.Set_Message(G_APP_NAME, 'OKC_ART_REF_TEXT_NULL');
1707: l_return_status := G_RET_STS_ERROR;
1708: END IF;
1713: /*
1714: IF ( p_date_approved is NOT NULL ) THEN
1715: IF ( p_date_approved > nvl(p_end_date,p_date_approved + 1) ) THEN
1716: IF (l_debug = 'Y') THEN
1717: Okc_Debug.Log('1300: attribute END_DATE IS less then approved date for standard article', 2);
1718: END IF;
1719: OKC_API.Set_Message(G_APP_NAME, 'OKC_ART_APPROVED_GT_END_DATE');
1720: l_return_status := G_RET_STS_ERROR;
1721: END IF;
1731: IF l_standard_yn = 'Y' THEN
1732: IF (G_CURRENT_ORG_ID <> G_GLOBAL_ORG_ID AND
1733: p_global_yn = 'Y') Then
1734: IF (l_debug = 'Y') THEN
1735: Okc_Debug.Log('2300: - attribute Global Article cannot be created at a local org', 2);
1736: END IF;
1737: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_GLOBAL_ART_LOCAL_ORG' );
1738: l_return_status := G_RET_STS_ERROR;
1739: END IF;
1761: -- New Version check should catch this exception (UIs already have this check/articles import will definitely validate this)
1762:
1763: IF nvl(l_highest_version_rec.provision_yn, 'N') <> nvl(p_provision_yn, 'N') THEN
1764: IF (l_debug = 'Y') THEN
1765: Okc_Debug.Log('1800: - Earlier version is of Provison/Clause is different from current one.', 2);
1766: END IF;
1767: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_EARLIER_VER_PROVISION' );
1768: l_return_status := G_RET_STS_ERROR;
1769: END IF;
1775: --No need for this. p_import_action will never be 'N' OR (nvl(p_import_action, 'N') <> 'N')) THEN
1776:
1777: IF (l_highest_version_rec.global_yn = 'Y' and p_global_yn = 'N') THEN
1778: IF (l_debug = 'Y') THEN
1779: Okc_Debug.Log('1800: - Earlier version is GLOBAL this version cannot be LOCAL', 2);
1780: END IF;
1781: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_EARLIER_VER_GLOBAL' );
1782: l_return_status := G_RET_STS_ERROR;
1783: END IF;
1788: (p_article_status IN ('DRAFT', 'REJECTED', 'PENDING_APPROVAL')) THEN
1789: --No need for this. p_import_action will never be 'N' OR (nvl(p_import_action, 'N') <> 'N')) THEN
1790:
1791: IF (l_debug = 'Y') THEN
1792: Okc_Debug.Log('1800: - Already have one version available in DRAFT,REJECTED OR PENDING_APPROVAL', 2);
1793: END IF;
1794: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_EXIST_DRAFT_REJ');
1795: l_return_status := G_RET_STS_ERROR;
1796: END IF;
1797:
1798: -- Date Published Check
1799: IF (l_highest_version_rec.date_published) >= p_date_published AND p_import_action IS NOT NULL THEN
1800: IF (l_debug = 'Y') THEN
1801: Okc_Debug.Log('1800: - Date Published of existing version is greater than date published provided for new version',2);
1802: END IF;
1803: --Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'DATE_PUBLISHED');
1804: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_EXIST_DATE_PUBLISHED');
1805: l_return_status := G_RET_STS_ERROR;
1820: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_END_DATE_NULL');
1821: l_return_status := G_RET_STS_ERROR;
1822: elsif nvl(p_end_date, l_highest_version_rec.start_date-1) >= l_highest_version_rec.start_date then
1823: IF (l_debug = 'Y') THEN
1824: Okc_Debug.Log('1800: - Date overlap with earlier version', 2);
1825: END IF;
1826: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_DATE_OVRLP_EARLR_VER');
1827: l_return_status := G_RET_STS_ERROR;
1828: end if;
1828: end if;
1829: ELSIF (l_highest_version_rec.start_date >= p_start_date) OR
1830: (nvl(l_highest_version_rec.end_date, p_start_date-1) >= p_start_date) THEN
1831: IF (l_debug = 'Y') THEN
1832: Okc_Debug.Log('1800: - Date overlap with earlier version', 2);
1833: END IF;
1834: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_DATE_OVRLP_EARLR_VER');
1835: l_return_status := G_RET_STS_ERROR;
1836: END IF; -- (l_highest_version_rec.start_date >= p_start_date) OR..
1858: l_rownotfound := l_global_csr%NOTFOUND;
1859: CLOSE l_global_csr;
1860: IF l_rownotfound THEN
1861: IF (l_debug = 'Y') THEN
1862: Okc_Debug.Log('2300: - No Data found to check Start Date is less than Global Start Date', 2);
1863: END IF;
1864: ELSIF (l_global_start_date > p_start_date) THEN
1865: IF (l_debug = 'Y') THEN
1866: Okc_Debug.Log('2300: - Start Date is greater than Global Start Date', 2);
1862: Okc_Debug.Log('2300: - No Data found to check Start Date is less than Global Start Date', 2);
1863: END IF;
1864: ELSIF (l_global_start_date > p_start_date) THEN
1865: IF (l_debug = 'Y') THEN
1866: Okc_Debug.Log('2300: - Start Date is greater than Global Start Date', 2);
1867: END IF;
1868: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_CMP_START_DATE');
1869: l_return_status := G_RET_STS_ERROR;
1870: RETURN l_return_status ;
1890:
1891: /*+++++++++++++End of hand code +++++++++++++++++++*/
1892:
1893: IF (l_debug = 'Y') THEN
1894: Okc_Debug.Log('2900: Leaving Validate_Record : '||sqlerrm, 2);
1895: END IF;
1896: RETURN l_return_status ;
1897:
1898: EXCEPTION
1898: EXCEPTION
1899: WHEN OTHERS THEN
1900:
1901: IF (l_debug = 'Y') THEN
1902: Okc_Debug.Log('3000: Leaving Validate_Record because of EXCEPTION: '||sqlerrm, 2);
1903: END IF;
1904:
1905: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1906: p_msg_name => G_UNEXPECTED_ERROR,
2055:
2056: BEGIN
2057:
2058: IF (l_debug = 'Y') THEN
2059: Okc_Debug.Log('3100: Entered validate_row', 2);
2060: END IF;
2061:
2062: -- Setting attributes
2063: IF p_import_action IS NOT NULL Then
2225: G_CURRENT_ORG_ID := p_current_org_id;
2226: else
2227: if G_CURRENT_ORG_ID IS NULL Then
2228: IF (l_debug = 'Y') THEN
2229: Okc_Debug.Log('2300: - attribute G_CURRENT_ORG_ID is invalid', 2);
2230: END IF;
2231: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
2232: x_return_status := G_RET_STS_ERROR;
2233: RAISE FND_API.G_EXC_ERROR;
2304: x_earlier_version_number => x_earlier_version_number
2305: );
2306:
2307: IF (l_debug = 'Y') THEN
2308: Okc_Debug.Log('3200: Leaving validate_row', 2);
2309: END IF;
2310:
2311: EXCEPTION
2312: WHEN FND_API.G_EXC_ERROR THEN
2310:
2311: EXCEPTION
2312: WHEN FND_API.G_EXC_ERROR THEN
2313: IF (l_debug = 'Y') THEN
2314: Okc_Debug.Log('3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception', 2);
2315: END IF;
2316: x_return_status := G_RET_STS_ERROR;
2317:
2318: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2316: x_return_status := G_RET_STS_ERROR;
2317:
2318: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2319: IF (l_debug = 'Y') THEN
2320: Okc_Debug.Log('3400: Leaving Validate_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
2321: END IF;
2322: x_return_status := G_RET_STS_UNEXP_ERROR;
2323:
2324: WHEN OTHERS THEN
2322: x_return_status := G_RET_STS_UNEXP_ERROR;
2323:
2324: WHEN OTHERS THEN
2325: IF (l_debug = 'Y') THEN
2326: Okc_Debug.Log('3500: Leaving Validate_Row because of EXCEPTION: '||sqlerrm, 2);
2327: END IF;
2328: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2329: p_msg_name => G_UNEXPECTED_ERROR,
2330: p_token1 => G_SQLCODE_TOKEN,
2411:
2412: BEGIN
2413:
2414: IF (l_debug = 'Y') THEN
2415: Okc_Debug.Log('3600: Entered Insert_Row function', 2);
2416: END IF;
2417:
2418:
2419: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
2551: p_last_update_date,
2552: p_variable_code);
2553:
2554: IF (l_debug = 'Y') THEN
2555: Okc_Debug.Log('3700: Leaving Insert_Row', 2);
2556: END IF;
2557:
2558: RETURN( G_RET_STS_SUCCESS );
2559:
2560: EXCEPTION
2561: WHEN OTHERS THEN
2562:
2563: IF (l_debug = 'Y') THEN
2564: Okc_Debug.Log('3800: Leaving Insert_Row:OTHERS Exception', 2);
2565: END IF;
2566:
2567: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2568: p_msg_name => G_UNEXPECTED_ERROR,
2655:
2656: x_return_status := G_RET_STS_SUCCESS;
2657:
2658: IF (l_debug = 'Y') THEN
2659: Okc_Debug.Log('4200: Entered Insert_Row', 2);
2660: END IF;
2661: --- Setting item attributes
2662: -- Set primary key value
2663: IF( p_article_version_id IS NULL ) THEN
2689: G_CURRENT_ORG_ID := p_current_org_id;
2690: else
2691: if G_CURRENT_ORG_ID IS NULL Then
2692: IF (l_debug = 'Y') THEN
2693: Okc_Debug.Log('2300: - attribute G_CURRENT_ORG_ID is invalid', 2);
2694: END IF;
2695: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
2696: x_return_status := G_RET_STS_ERROR;
2697: RAISE FND_API.G_EXC_ERROR;
2776: --------------------------------------------
2777: -- Call the internal Insert_Row for each child record
2778: --------------------------------------------
2779: IF (l_debug = 'Y') THEN
2780: Okc_Debug.Log('4300: Call the internal Insert_Row for Base Table', 2);
2781: END IF;
2782: -- 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.
2783: -- Though this approach is not pretty but it does save an expensive SQL.
2784:
2855:
2856:
2857:
2858: IF (l_debug = 'Y') THEN
2859: Okc_Debug.Log('4500: Leaving Insert_Row', 2);
2860: END IF;
2861:
2862: EXCEPTION
2863: WHEN FND_API.G_EXC_ERROR THEN
2861:
2862: EXCEPTION
2863: WHEN FND_API.G_EXC_ERROR THEN
2864: IF (l_debug = 'Y') THEN
2865: Okc_Debug.Log('4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception', 2);
2866: END IF;
2867: x_return_status := G_RET_STS_ERROR;
2868:
2869: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2867: x_return_status := G_RET_STS_ERROR;
2868:
2869: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2870: IF (l_debug = 'Y') THEN
2871: Okc_Debug.Log('4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
2872: END IF;
2873: x_return_status := G_RET_STS_UNEXP_ERROR;
2874:
2875: WHEN OTHERS THEN
2873: x_return_status := G_RET_STS_UNEXP_ERROR;
2874:
2875: WHEN OTHERS THEN
2876: IF (l_debug = 'Y') THEN
2877: Okc_Debug.Log('4800: Leaving Insert_Row because of EXCEPTION: '||sqlerrm, 2);
2878: END IF;
2879: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2880: p_msg_name => G_UNEXPECTED_ERROR,
2881: p_token1 => G_SQLCODE_TOKEN,
2918: l_row_notfound BOOLEAN := FALSE;
2919: BEGIN
2920:
2921: IF (l_debug = 'Y') THEN
2922: Okc_Debug.Log('4900: Entered Lock_Row', 2);
2923: END IF;
2924:
2925:
2926: BEGIN
2932: EXCEPTION
2933: WHEN E_Resource_Busy THEN
2934:
2935: IF (l_debug = 'Y') THEN
2936: Okc_Debug.Log('5000: Leaving Lock_Row:E_Resource_Busy Exception', 2);
2937: END IF;
2938:
2939: IF (lock_csr%ISOPEN) THEN
2940: CLOSE lock_csr;
2964: l_return_status := G_RET_STS_SUCCESS;
2965: END IF;
2966:
2967: IF (l_debug = 'Y') THEN
2968: Okc_Debug.Log('5100: Leaving Lock_Row', 2);
2969: END IF;
2970:
2971: RETURN( l_return_status );
2972:
2980: CLOSE lchk_csr;
2981: END IF;
2982:
2983: IF (l_debug = 'Y') THEN
2984: Okc_Debug.Log('5200: Leaving Lock_Row because of EXCEPTION: '||sqlerrm, 2);
2985: END IF;
2986:
2987: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2988: p_msg_name => G_UNEXPECTED_ERROR,
3005: ) IS
3006: BEGIN
3007:
3008: IF (l_debug = 'Y') THEN
3009: Okc_Debug.Log('5700: Entered Lock_Row', 2);
3010: Okc_Debug.Log('5800: Locking Row for Base Table', 2);
3011: END IF;
3012:
3013: --------------------------------------------
3006: BEGIN
3007:
3008: IF (l_debug = 'Y') THEN
3009: Okc_Debug.Log('5700: Entered Lock_Row', 2);
3010: Okc_Debug.Log('5800: Locking Row for Base Table', 2);
3011: END IF;
3012:
3013: --------------------------------------------
3014: -- Call the LOCK_ROW for each _B child record
3025:
3026:
3027:
3028: IF (l_debug = 'Y') THEN
3029: Okc_Debug.Log('6000: Leaving Lock_Row', 2);
3030: END IF;
3031:
3032: EXCEPTION
3033: WHEN FND_API.G_EXC_ERROR THEN
3031:
3032: EXCEPTION
3033: WHEN FND_API.G_EXC_ERROR THEN
3034: IF (l_debug = 'Y') THEN
3035: Okc_Debug.Log('6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception', 2);
3036: END IF;
3037: x_return_status := G_RET_STS_ERROR;
3038:
3039: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3037: x_return_status := G_RET_STS_ERROR;
3038:
3039: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3040: IF (l_debug = 'Y') THEN
3041: Okc_Debug.Log('6200: Leaving Lock_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
3042: END IF;
3043: x_return_status := G_RET_STS_UNEXP_ERROR;
3044:
3045: WHEN OTHERS THEN
3043: x_return_status := G_RET_STS_UNEXP_ERROR;
3044:
3045: WHEN OTHERS THEN
3046: IF (l_debug = 'Y') THEN
3047: Okc_Debug.Log('6300: Leaving Lock_Row because of EXCEPTION: '||sqlerrm, 2);
3048: END IF;
3049: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3050: p_msg_name => G_UNEXPECTED_ERROR,
3051: p_token1 => G_SQLCODE_TOKEN,
3128:
3129: BEGIN
3130:
3131: IF (l_debug = 'Y') THEN
3132: Okc_Debug.Log('6400: Entered Update_Row', 2);
3133: END IF;
3134:
3135: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
3136: l_program_id := NULL;
3209: VARIABLE_CODE = p_variable_code
3210: WHERE ARTICLE_VERSION_ID = p_article_version_id;
3211:
3212: IF (l_debug = 'Y') THEN
3213: Okc_Debug.Log('6500: Leaving Update_Row', 2);
3214: END IF;
3215:
3216: RETURN G_RET_STS_SUCCESS ;
3217:
3218: EXCEPTION
3219: WHEN OTHERS THEN
3220:
3221: IF (l_debug = 'Y') THEN
3222: Okc_Debug.Log('6600: Leaving Update_Row because of EXCEPTION: '||sqlerrm, 2);
3223: END IF;
3224:
3225: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3226: p_msg_name => G_UNEXPECTED_ERROR,
3360:
3361: BEGIN
3362:
3363: IF (l_debug = 'Y') THEN
3364: Okc_Debug.Log('7000: Entered Update_Row', 2);
3365: Okc_Debug.Log('7100: Locking _B row', 2);
3366: END IF;
3367:
3368: x_return_status := Lock_row(
3361: BEGIN
3362:
3363: IF (l_debug = 'Y') THEN
3364: Okc_Debug.Log('7000: Entered Update_Row', 2);
3365: Okc_Debug.Log('7100: Locking _B row', 2);
3366: END IF;
3367:
3368: x_return_status := Lock_row(
3369: p_article_version_id => p_article_version_id,
3376: END IF;
3377:
3378:
3379: IF (l_debug = 'Y') THEN
3380: Okc_Debug.Log('7300: Setting attributes', 2);
3381: END IF;
3382:
3383: x_return_status := Set_Attributes(
3384: p_article_version_id => p_article_version_id,
3488: RAISE FND_API.G_EXC_ERROR;
3489: END IF;
3490:
3491: IF (l_debug = 'Y') THEN
3492: Okc_Debug.Log('7400: Record Validation', 2);
3493: END IF;
3494:
3495: -- MOAC
3496: G_CURRENT_ORG_ID := mo_global.get_current_org_id();
3498: G_CURRENT_ORG_ID := p_current_org_id;
3499: else
3500: if G_CURRENT_ORG_ID IS NULL Then
3501: IF (l_debug = 'Y') THEN
3502: Okc_Debug.Log('2300: - attribute G_CURRENT_ORG_ID is invalid', 2);
3503: END IF;
3504: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
3505: x_return_status := G_RET_STS_ERROR;
3506: RAISE FND_API.G_EXC_ERROR;
3582: RAISE FND_API.G_EXC_ERROR;
3583: END IF;
3584:
3585: IF (l_debug = 'Y') THEN
3586: Okc_Debug.Log('7500: Filling WHO columns', 2);
3587: END IF;
3588: x_article_id := l_article_id;
3589:
3590: -- Filling who columns
3599: --------------------------------------------
3600: -- Call the Update_Row for each child record
3601: --------------------------------------------
3602: IF (l_debug = 'Y') THEN
3603: Okc_Debug.Log('7600: Updating Row', 2);
3604: END IF;
3605:
3606: x_return_status := Update_Row(
3607: p_article_version_id => p_article_version_id,
3668: END IF;
3669:
3670:
3671: IF (l_debug = 'Y') THEN
3672: Okc_Debug.Log('7800: Leaving Update_Row', 2);
3673: END IF;
3674:
3675: EXCEPTION
3676: WHEN FND_API.G_EXC_ERROR THEN
3674:
3675: EXCEPTION
3676: WHEN FND_API.G_EXC_ERROR THEN
3677: IF (l_debug = 'Y') THEN
3678: Okc_Debug.Log('7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception', 2);
3679: END IF;
3680: x_return_status := G_RET_STS_ERROR;
3681:
3682: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3680: x_return_status := G_RET_STS_ERROR;
3681:
3682: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3683: IF (l_debug = 'Y') THEN
3684: Okc_Debug.Log('8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
3685: END IF;
3686: x_return_status := G_RET_STS_UNEXP_ERROR;
3687:
3688: WHEN OTHERS THEN
3686: x_return_status := G_RET_STS_UNEXP_ERROR;
3687:
3688: WHEN OTHERS THEN
3689: IF (l_debug = 'Y') THEN
3690: Okc_Debug.Log('8100: Leaving Update_Row because of EXCEPTION: '||sqlerrm, 2);
3691: END IF;
3692: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3693: p_msg_name => G_UNEXPECTED_ERROR,
3694: p_token1 => G_SQLCODE_TOKEN,
3711:
3712: BEGIN
3713:
3714: IF (l_debug = 'Y') THEN
3715: Okc_Debug.Log('8200: Entered Delete_Row', 2);
3716: END IF;
3717:
3718: DELETE FROM OKC_ARTICLE_VERSIONS WHERE ARTICLE_VERSION_ID = P_ARTICLE_VERSION_ID;
3719:
3717:
3718: DELETE FROM OKC_ARTICLE_VERSIONS WHERE ARTICLE_VERSION_ID = P_ARTICLE_VERSION_ID;
3719:
3720: IF (l_debug = 'Y') THEN
3721: Okc_Debug.Log('8300: Leaving Delete_Row', 2);
3722: END IF;
3723:
3724: RETURN( G_RET_STS_SUCCESS );
3725:
3726: EXCEPTION
3727: WHEN OTHERS THEN
3728:
3729: IF (l_debug = 'Y') THEN
3730: Okc_Debug.Log('8400: Leaving Delete_Row because of EXCEPTION: '||sqlerrm, 2);
3731: END IF;
3732:
3733: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3734: p_msg_name => G_UNEXPECTED_ERROR,
3752: l_api_name CONSTANT VARCHAR2(30) := 'B_Delete_Row';
3753: BEGIN
3754:
3755: IF (l_debug = 'Y') THEN
3756: Okc_Debug.Log('8800: Entered Delete_Row', 2);
3757: Okc_Debug.Log('8900: Locking _B row', 2);
3758: END IF;
3759:
3760: x_return_status := Lock_row(
3753: BEGIN
3754:
3755: IF (l_debug = 'Y') THEN
3756: Okc_Debug.Log('8800: Entered Delete_Row', 2);
3757: Okc_Debug.Log('8900: Locking _B row', 2);
3758: END IF;
3759:
3760: x_return_status := Lock_row(
3761: p_article_version_id => p_article_version_id,
3768: END IF;
3769:
3770:
3771: IF (l_debug = 'Y') THEN
3772: Okc_Debug.Log('9100: Removing _B row', 2);
3773: END IF;
3774: x_return_status := Delete_Row( p_article_version_id => p_article_version_id );
3775: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3779: END IF;
3780:
3781:
3782: IF (l_debug = 'Y') THEN
3783: Okc_Debug.Log('9300: Leaving Delete_Row', 2);
3784: END IF;
3785:
3786: EXCEPTION
3787: WHEN FND_API.G_EXC_ERROR THEN
3785:
3786: EXCEPTION
3787: WHEN FND_API.G_EXC_ERROR THEN
3788: IF (l_debug = 'Y') THEN
3789: Okc_Debug.Log('9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception', 2);
3790: END IF;
3791: x_return_status := G_RET_STS_ERROR;
3792:
3793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3791: x_return_status := G_RET_STS_ERROR;
3792:
3793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3794: IF (l_debug = 'Y') THEN
3795: Okc_Debug.Log('9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
3796: END IF;
3797: x_return_status := G_RET_STS_UNEXP_ERROR;
3798:
3799: WHEN OTHERS THEN
3797: x_return_status := G_RET_STS_UNEXP_ERROR;
3798:
3799: WHEN OTHERS THEN
3800: IF (l_debug = 'Y') THEN
3801: Okc_Debug.Log('9600: Leaving Delete_Row because of EXCEPTION: '||sqlerrm, 2);
3802: END IF;
3803: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3804: p_msg_name => G_UNEXPECTED_ERROR,
3805: p_token1 => G_SQLCODE_TOKEN,