46: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
47: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
48: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
49:
50: G_DBG_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
51: G_PROC_LEVEL NUMBER := FND_LOG.LEVEL_PROCEDURE;
52: G_EXCP_LEVEL NUMBER := FND_LOG.LEVEL_EXCEPTION;
53:
54: E_Resource_Busy EXCEPTION;
47: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
48: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
49:
50: G_DBG_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
51: G_PROC_LEVEL NUMBER := FND_LOG.LEVEL_PROCEDURE;
52: G_EXCP_LEVEL NUMBER := FND_LOG.LEVEL_EXCEPTION;
53:
54: E_Resource_Busy EXCEPTION;
55: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
48: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
49:
50: G_DBG_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
51: G_PROC_LEVEL NUMBER := FND_LOG.LEVEL_PROCEDURE;
52: G_EXCP_LEVEL NUMBER := FND_LOG.LEVEL_EXCEPTION;
53:
54: E_Resource_Busy EXCEPTION;
55: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
56:
103: Okc_Debug.Log('400: Entered get_rec', 2);
104: END IF;*/
105:
106: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
107: FND_LOG.STRING(G_PROC_LEVEL,
108: G_PKG_NAME, '400: Entered get_rec' );
109: END IF;
110:
111: -- Get current database values
132: Okc_Debug.Log('500: Leaving get_rec ', 2);
133: END IF;*/
134:
135: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
136: FND_LOG.STRING(G_PROC_LEVEL,
137: G_PKG_NAME, '500: Leaving get_rec ' );
138: END IF;
139:
140: RETURN G_RET_STS_SUCCESS ;
146: Okc_Debug.Log('600: Leaving get_rec because of EXCEPTION: '||sqlerrm, 2);
147: END IF;*/
148:
149: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
150: FND_LOG.STRING(G_PROC_LEVEL,
151: G_PKG_NAME, '600: Leaving get_rec because of EXCEPTION: '||sqlerrm );
152: END IF;
153:
154: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
200: Okc_Debug.Log('700: Entered Set_Attributes ', 2);
201: END IF;*/
202:
203: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
204: FND_LOG.STRING(G_PROC_LEVEL,
205: G_PKG_NAME, '700: Entered Set_Attributes ' );
206: END IF;
207:
208: IF( p_cat_id IS NOT NULL AND p_variable_code IS NOT NULL ) THEN
276: Okc_Debug.Log('800: Leaving Set_Attributes ', 2);
277: END IF;*/
278:
279: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
280: FND_LOG.STRING(G_PROC_LEVEL,
281: G_PKG_NAME, '800: Leaving Set_Attributes ' );
282: END IF;
283:
284: RETURN G_RET_STS_SUCCESS ;
288: Okc_Debug.Log('900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception', 2);
289: END IF;*/
290:
291: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
292: FND_LOG.STRING(G_PROC_LEVEL,
293: G_PKG_NAME, '900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception' );
294: END IF;
295: RETURN G_RET_STS_ERROR;
296:
299: Okc_Debug.Log('1000: Leaving Set_Attributes:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
300: END IF;*/
301:
302: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
303: FND_LOG.STRING(G_PROC_LEVEL,
304: G_PKG_NAME, '1000: Leaving Set_Attributes:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
305: END IF;
306: RETURN G_RET_STS_UNEXP_ERROR;
307:
310: Okc_Debug.Log('1100: Leaving Set_Attributes because of EXCEPTION: '||sqlerrm, 2);
311: END IF;*/
312:
313: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
314: FND_LOG.STRING(G_PROC_LEVEL,
315: G_PKG_NAME, '1100: Leaving Set_Attributes because of EXCEPTION: '||sqlerrm );
316: END IF;
317: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
318: p_msg_name => G_UNEXPECTED_ERROR,
362: Okc_Debug.Log('1200: Entered Validate_Attributes', 2);
363: END IF;*/
364:
365: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
366: FND_LOG.STRING(G_PROC_LEVEL,
367: G_PKG_NAME, '1200: Entered Validate_Attributes' );
368: END IF;
369:
370: IF p_validation_level > G_REQUIRED_VALUE_VALID_LEVEL THEN
372: Okc_Debug.Log('1300: required values validation', 2);
373: END IF;*/
374:
375: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
376: FND_LOG.STRING(G_PROC_LEVEL,
377: G_PKG_NAME, '1300: required values validation' );
378: END IF;
379:
380: /*IF (l_debug = 'Y') THEN
381: Okc_Debug.Log('1400: - attribute CAT_ID ', 2);
382: END IF;*/
383:
384: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
385: FND_LOG.STRING(G_PROC_LEVEL,
386: G_PKG_NAME, '1400: - attribute CAT_ID ' );
387: END IF;
388: IF ( p_cat_id IS NULL) THEN
389: /*IF (l_debug = 'Y') THEN
390: Okc_Debug.Log('1500: - attribute CAT_ID is invalid', 2);
391: END IF;*/
392:
393: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
394: FND_LOG.STRING(G_PROC_LEVEL,
395: G_PKG_NAME, '1500: - attribute CAT_ID is invalid' );
396: END IF;
397: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'CAT_ID');
398: l_return_status := G_RET_STS_ERROR;
402: Okc_Debug.Log('1400: - attribute VARIABLE_CODE ', 2);
403: END IF;*/
404:
405: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
406: FND_LOG.STRING(G_PROC_LEVEL,
407: G_PKG_NAME, '1400: - attribute VARIABLE_CODE ' );
408: END IF;
409: IF ( p_variable_code IS NULL) THEN
410: /*IF (l_debug = 'Y') THEN
411: Okc_Debug.Log('1500: - attribute VARIABLE_CODE is invalid', 2);
412: END IF;*/
413:
414: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
415: FND_LOG.STRING(G_PROC_LEVEL,
416: G_PKG_NAME, '1500: - attribute VARIABLE_CODE is invalid' );
417: END IF;
418: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'VARIABLE_CODE');
419: l_return_status := G_RET_STS_ERROR;
423: Okc_Debug.Log('1400: - attribute VARIABLE_TYPE ', 2);
424: END IF;*/
425:
426: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
427: FND_LOG.STRING(G_PROC_LEVEL,
428: G_PKG_NAME, '1400: - attribute VARIABLE_TYPE ' );
429: END IF;
430: IF ( p_variable_type IS NULL) THEN
431: /*IF (l_debug = 'Y') THEN
432: Okc_Debug.Log('1500: - attribute VARIABLE_TYPE is invalid', 2);
433: END IF;*/
434:
435: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
436: FND_LOG.STRING(G_PROC_LEVEL,
437: G_PKG_NAME, '1500: - attribute VARIABLE_TYPE is invalid' );
438: END IF;
439: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'VARIABLE_TYPE');
440: l_return_status := G_RET_STS_ERROR;
444: Okc_Debug.Log('1400: - attribute EXTERNAL_YN ', 2);
445: END IF;*/
446:
447: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
448: FND_LOG.STRING(G_PROC_LEVEL,
449: G_PKG_NAME, '1400: - attribute EXTERNAL_YN ' );
450: END IF;
451: IF ( p_external_yn IS NULL) THEN
452: /*IF (l_debug = 'Y') THEN
453: Okc_Debug.Log('1500: - attribute EXTERNAL_YN is invalid', 2);
454: END IF;*/
455:
456: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
457: FND_LOG.STRING(G_PROC_LEVEL,
458: G_PKG_NAME, '1500: - attribute EXTERNAL_YN is invalid' );
459: END IF;
460: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'EXTERNAL_YN');
461: l_return_status := G_RET_STS_ERROR;
468: Okc_Debug.Log('1600: static values and range validation', 2);
469: END IF;*/
470:
471: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
472: FND_LOG.STRING(G_PROC_LEVEL,
473: G_PKG_NAME, '1600: static values and range validation' );
474: END IF;
475:
476: /*IF (l_debug = 'Y') THEN
477: Okc_Debug.Log('1700: - attribute EXTERNAL_YN ', 2);
478: END IF;*/
479:
480: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
481: FND_LOG.STRING(G_PROC_LEVEL,
482: G_PKG_NAME, '1700: - attribute EXTERNAL_YN ' );
483: END IF;
484:
485: IF ( p_external_yn NOT IN ('Y','N') AND p_external_yn IS NOT NULL) THEN
487: Okc_Debug.Log('1800: - attribute EXTERNAL_YN is invalid', 2);
488: END IF;*/
489:
490: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
491: FND_LOG.STRING(G_PROC_LEVEL,
492: G_PKG_NAME, '1800: - attribute EXTERNAL_YN is invalid' );
493: END IF;
494: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'EXTERNAL_YN');
495: l_return_status := G_RET_STS_ERROR;
500: Okc_Debug.Log('1700: - attribute OVERRIDE_GLOBAL_YN ', 2);
501: END IF;*/
502:
503: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
504: FND_LOG.STRING(G_PROC_LEVEL,
505: G_PKG_NAME, '1700: - attribute OVERRIDE_GLOBAL_YN ' );
506: END IF;
507:
508: IF ( p_OVERRIDE_GLOBAL_YN NOT IN ('Y','N') AND p_OVERRIDE_GLOBAL_YN IS NOT NULL) THEN
510: Okc_Debug.Log('1800: - attribute OVERRIDE_GLOBAL_YN is invalid', 2);
511: END IF;*/
512:
513: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
514: FND_LOG.STRING(G_PROC_LEVEL,
515: G_PKG_NAME, '1800: - attribute OVERRIDE_GLOBAL_YN is invalid' );
516: END IF;
517:
518: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'OVERRIDE_GLOBAL_YN');
525: Okc_Debug.Log('1900: lookup codes validation', 2);
526: END IF;*/
527:
528: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
529: FND_LOG.STRING(G_PROC_LEVEL,
530: G_PKG_NAME, '1900: lookup codes validation' );
531: END IF;
532: END IF;
533:
536: Okc_Debug.Log('2100: foreign keys validation ', 2);
537: END IF;*/
538:
539: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
540: FND_LOG.STRING(G_PROC_LEVEL,
541: G_PKG_NAME, '2100: foreign keys validation ' );
542: END IF;
543:
544: /*IF (l_debug = 'Y') THEN
545: Okc_Debug.Log('2200: - attribute CAT_ID ', 2);
546: END IF;*/
547:
548: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
549: FND_LOG.STRING(G_PROC_LEVEL,
550: G_PKG_NAME, '2200: - attribute CAT_ID ' );
551: END IF;
552:
553: IF p_cat_id IS NOT NULL THEN
560: Okc_Debug.Log('2300: - attribute CAT_ID is invalid', 2);
561: END IF;*/
562:
563: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
564: FND_LOG.STRING(G_PROC_LEVEL,
565: G_PKG_NAME, '2300: - attribute CAT_ID is invalid' );
566: END IF;
567: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CAT_ID');
568: l_return_status := G_RET_STS_ERROR;
590: Okc_Debug.Log('2200: - attribute ATTRIBUTE_VALUE_SET_ID ', 2);
591: END IF;*/
592:
593: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
594: FND_LOG.STRING(G_PROC_LEVEL,
595: G_PKG_NAME, '2200: - attribute ATTRIBUTE_VALUE_SET_ID ' );
596: END IF;
597: IF p_attribute_value_set_id IS NOT NULL THEN
598: l_dummy_var := '?';
604: Okc_Debug.Log('2300: - attribute ATTRIBUTE_VALUE_SET_ID is invalid', 2);
605: END IF;*/
606:
607: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
608: FND_LOG.STRING(G_PROC_LEVEL,
609: G_PKG_NAME, '2300: - attribute ATTRIBUTE_VALUE_SET_ID is invalid' );
610: END IF;
611: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ATTRIBUTE_VALUE_SET_ID');
612: l_return_status := G_RET_STS_ERROR;
617: Okc_Debug.Log('2200: - attribute VARIABLE_CODE ', 2);
618: END IF;*/
619:
620: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
621: FND_LOG.STRING(G_PROC_LEVEL,
622: G_PKG_NAME, '2200: - attribute VARIABLE_CODE ' );
623: END IF;
624: IF p_variable_code IS NOT NULL THEN
625: l_dummy_var := '?';
631: Okc_Debug.Log('2300: - attribute VARIABLE_CODE is invalid', 2);
632: END IF;*/
633:
634: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
635: FND_LOG.STRING(G_PROC_LEVEL,
636: G_PKG_NAME, '2300: - attribute VARIABLE_CODE is invalid' );
637: END IF;
638: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'VARIABLE_CODE');
639: l_return_status := G_RET_STS_ERROR;
646: Okc_Debug.Log('2400: Leaving Validate_Attributes ', 2);
647: END IF;*/
648:
649: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
650: FND_LOG.STRING(G_PROC_LEVEL,
651: G_PKG_NAME, '2400: Leaving Validate_Attributes ' );
652: END IF;
653: RETURN l_return_status;
654:
655: EXCEPTION
656: WHEN OTHERS THEN
657: --Okc_Debug.Log('2500: Leaving Validate_Attributes because of EXCEPTION: '||sqlerrm, 2);
658: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
659: FND_LOG.STRING(G_EXCP_LEVEL,
660: G_PKG_NAME, '2500: Leaving Validate_Attributes because of EXCEPTION: '||sqlerrm );
661: END IF;
662: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
663: p_msg_name => G_UNEXPECTED_ERROR,
711: Okc_Debug.Log('2600: Entered Validate_Record', 2);
712: END IF;*/
713:
714: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
715: FND_LOG.STRING(G_PROC_LEVEL,
716: G_PKG_NAME, '2600: Entered Validate_Record' );
717: END IF;
718: --- Validate all non-missing attributes (Item Level Validation)
719: l_return_status := Validate_Attributes(
733: Okc_Debug.Log('2700: Leaving Validate_Record because of UNEXP_ERROR in Validate_Attributes: '||sqlerrm, 2);
734: END IF;*/
735:
736: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
737: FND_LOG.STRING(G_PROC_LEVEL,
738: G_PKG_NAME, '2700: Leaving Validate_Record because of UNEXP_ERROR in Validate_Attributes: '||sqlerrm );
739: END IF;
740: RETURN G_RET_STS_UNEXP_ERROR;
741: END IF;
746: Okc_Debug.Log('2800: Entered Record Level Validations', 2);
747: END IF;*/
748:
749: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
750: FND_LOG.STRING(G_PROC_LEVEL,
751: G_PKG_NAME, '2800: Entered Record Level Validations' );
752: END IF;
753:
754: IF P_ATTRIBUTE_VALUE_SET_ID IS NOT NULL AND
764: Okc_Debug.Log('2900: Leaving Validate_Record : '||sqlerrm, 2);
765: END IF;*/
766:
767: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
768: FND_LOG.STRING(G_PROC_LEVEL,
769: G_PKG_NAME, '2900: Leaving Validate_Record : '||sqlerrm );
770: END IF;
771:
772: RETURN l_return_status ;
778: Okc_Debug.Log('3000: Leaving Validate_Record because of EXCEPTION: '||sqlerrm, 2);
779: END IF;*/
780:
781: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
782: FND_LOG.STRING(G_EXCP_LEVEL,
783: G_PKG_NAME, '3000: Leaving Validate_Record because of EXCEPTION: '||sqlerrm );
784: END IF;
785: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
786: p_msg_name => G_UNEXPECTED_ERROR,
830: Okc_Debug.Log('3100: Entered validate_row', 2);
831: END IF;*/
832:
833: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
834: FND_LOG.STRING(G_PROC_LEVEL,
835: G_PKG_NAME, '3100: Entered validate_row' );
836: END IF;
837:
838: -- Setting attributes
877: Okc_Debug.Log('3200: Leaving validate_row', 2);
878: END IF;*/
879:
880: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
881: FND_LOG.STRING(G_PROC_LEVEL,
882: G_PKG_NAME, '3200: Leaving validate_row' );
883: END IF;
884:
885: EXCEPTION
888: Okc_Debug.Log('3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception', 2);
889: END IF;*/
890:
891: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
892: FND_LOG.STRING(G_EXCP_LEVEL,
893: G_PKG_NAME, '3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception' );
894: END IF;
895: x_return_status := G_RET_STS_ERROR;
896:
899: Okc_Debug.Log('3400: Leaving Validate_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
900: END IF;*/
901:
902: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
903: FND_LOG.STRING(G_EXCP_LEVEL,
904: G_PKG_NAME, '3400: Leaving Validate_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
905: END IF;
906: x_return_status := G_RET_STS_UNEXP_ERROR;
907:
910: Okc_Debug.Log('3500: Leaving Validate_Row because of EXCEPTION: '||sqlerrm, 2);
911: END IF;*/
912:
913: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
914: FND_LOG.STRING(G_EXCP_LEVEL,
915: G_PKG_NAME, '3500: Leaving Validate_Row because of EXCEPTION: '||sqlerrm );
916: END IF;
917: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
918: p_msg_name => G_UNEXPECTED_ERROR,
956: Okc_Debug.Log('3600: Entered Insert_Row function', 2);
957: END IF;*/
958:
959: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
960: FND_LOG.STRING(G_PROC_LEVEL,
961: G_PKG_NAME, '3600: Entered Insert_Row function' );
962: END IF;
963: INSERT INTO OKC_K_ART_VARIABLES(
964: CAT_ID,
999: Okc_Debug.Log('3700: Leaving Insert_Row', 2);
1000: END IF;*/
1001:
1002: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1003: FND_LOG.STRING(G_PROC_LEVEL,
1004: G_PKG_NAME, '3700: Leaving Insert_Row' );
1005: END IF;
1006:
1007: RETURN( G_RET_STS_SUCCESS );
1013: Okc_Debug.Log('3800: Leaving Insert_Row:OTHERS Exception', 2);
1014: END IF;*/
1015:
1016: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1017: FND_LOG.STRING(G_EXCP_LEVEL,
1018: G_PKG_NAME, '3800: Leaving Insert_Row:OTHERS Exception' );
1019: END IF;
1020:
1021: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1065: Okc_Debug.Log('4200: Entered Insert_Row', 2);
1066: END IF;*/
1067:
1068: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1069: FND_LOG.STRING(G_PROC_LEVEL,
1070: G_PKG_NAME, '4200: Entered Insert_Row' );
1071: END IF;
1072:
1073: -- Set Internal columns
1105: Okc_Debug.Log('4300: Call the internal Insert_Row for Base Table', 2);
1106: END IF;*/
1107:
1108: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1109: FND_LOG.STRING(G_PROC_LEVEL,
1110: G_PKG_NAME, '4300: Call the internal Insert_Row for Base Table' );
1111: END IF;
1112:
1113: x_return_status := Insert_Row(
1140: Okc_Debug.Log('4500: Leaving Insert_Row', 2);
1141: END IF;*/
1142:
1143: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1144: FND_LOG.STRING(G_PROC_LEVEL,
1145: G_PKG_NAME, '4500: Leaving Insert_Row' );
1146: END IF;
1147:
1148: EXCEPTION
1151: Okc_Debug.Log('4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception', 2);
1152: END IF;*/
1153:
1154: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1155: FND_LOG.STRING(G_EXCP_LEVEL,
1156: G_PKG_NAME, '4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception' );
1157: END IF;
1158: x_return_status := G_RET_STS_ERROR;
1159:
1162: Okc_Debug.Log('4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1163: END IF;*/
1164:
1165: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1166: FND_LOG.STRING(G_EXCP_LEVEL,
1167: G_PKG_NAME, '4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
1168: END IF;
1169: x_return_status := G_RET_STS_UNEXP_ERROR;
1170:
1173: Okc_Debug.Log('4800: Leaving Insert_Row because of EXCEPTION: '||sqlerrm, 2);
1174: END IF;*/
1175:
1176: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1177: FND_LOG.STRING(G_EXCP_LEVEL,
1178: G_PKG_NAME, '4800: Leaving Insert_Row because of EXCEPTION: '||sqlerrm );
1179: END IF;
1180: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1181: p_msg_name => G_UNEXPECTED_ERROR,
1222: Okc_Debug.Log('4900: Entered Lock_Row', 2);
1223: END IF;*/
1224:
1225: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1226: FND_LOG.STRING(G_PROC_LEVEL,
1227: G_PKG_NAME, '4900: Entered Lock_Row' );
1228: END IF;
1229:
1230: BEGIN
1241: Okc_Debug.Log('5000: Leaving Lock_Row:E_Resource_Busy Exception', 2);
1242: END IF;*/
1243:
1244: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1245: FND_LOG.STRING(G_EXCP_LEVEL,
1246: G_PKG_NAME, '5000: Leaving Lock_Row:E_Resource_Busy Exception' );
1247: END IF;
1248:
1249: IF (lock_csr%ISOPEN) THEN
1278: Okc_Debug.Log('5100: Leaving Lock_Row', 2);
1279: END IF;*/
1280:
1281: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1282: FND_LOG.STRING(G_PROC_LEVEL,
1283: G_PKG_NAME, '5100: Leaving Lock_Row' );
1284: END IF;
1285:
1286: RETURN( l_return_status );
1299: Okc_Debug.Log('5200: Leaving Lock_Row because of EXCEPTION: '||sqlerrm, 2);
1300: END IF;*/
1301:
1302: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1303: FND_LOG.STRING(G_EXCP_LEVEL,
1304: G_PKG_NAME, '5200: Leaving Lock_Row because of EXCEPTION: '||sqlerrm );
1305: END IF;
1306:
1307: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1331: Okc_Debug.Log('5800: Locking Row for Base Table', 2);
1332: END IF;*/
1333:
1334: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1335: FND_LOG.STRING(G_PROC_LEVEL,
1336: G_PKG_NAME, '5700: Entered Lock_Row');
1337: FND_LOG.STRING(G_PROC_LEVEL,
1338: G_PKG_NAME, '5800: Locking Row for Base Table');
1339: END IF;
1333:
1334: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1335: FND_LOG.STRING(G_PROC_LEVEL,
1336: G_PKG_NAME, '5700: Entered Lock_Row');
1337: FND_LOG.STRING(G_PROC_LEVEL,
1338: G_PKG_NAME, '5800: Locking Row for Base Table');
1339: END IF;
1340:
1341: --------------------------------------------
1358: Okc_Debug.Log('6000: Leaving Lock_Row', 2);
1359: END IF;*/
1360:
1361: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1362: FND_LOG.STRING(G_PROC_LEVEL,
1363: G_PKG_NAME, '6000: Leaving Lock_Row' );
1364: END IF;
1365:
1366: EXCEPTION
1369: Okc_Debug.Log('6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception', 2);
1370: END IF;*/
1371:
1372: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1373: FND_LOG.STRING(G_EXCP_LEVEL,
1374: G_PKG_NAME, '6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception' );
1375: END IF;
1376: x_return_status := G_RET_STS_ERROR;
1377:
1380: Okc_Debug.Log('6200: Leaving Lock_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1381: END IF;*/
1382:
1383: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1384: FND_LOG.STRING(G_EXCP_LEVEL,
1385: G_PKG_NAME, '6200: Leaving Lock_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
1386: END IF;
1387: x_return_status := G_RET_STS_UNEXP_ERROR;
1388:
1391: Okc_Debug.Log('6300: Leaving Lock_Row because of EXCEPTION: '||sqlerrm, 2);
1392: END IF;*/
1393:
1394: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1395: FND_LOG.STRING(G_EXCP_LEVEL,
1396: G_PKG_NAME, '6300: Leaving Lock_Row because of EXCEPTION: '||sqlerrm );
1397: END IF;
1398: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1399: p_msg_name => G_UNEXPECTED_ERROR,
1433: Okc_Debug.Log('6400: Entered Update_Row', 2);
1434: END IF;*/
1435:
1436: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1437: FND_LOG.STRING(G_PROC_LEVEL,
1438: G_PKG_NAME, '6400: Entered Update_Row' );
1439: END IF;
1440:
1441: UPDATE OKC_K_ART_VARIABLES
1456: Okc_Debug.Log('6500: Leaving Update_Row', 2);
1457: END IF;*/
1458:
1459: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1460: FND_LOG.STRING(G_PROC_LEVEL,
1461: G_PKG_NAME, '6500: Leaving Update_Row' );
1462: END IF;
1463:
1464: RETURN G_RET_STS_SUCCESS ;
1470: Okc_Debug.Log('6600: Leaving Update_Row because of EXCEPTION: '||sqlerrm, 2);
1471: END IF;*/
1472:
1473: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1474: FND_LOG.STRING(G_EXCP_LEVEL,
1475: G_PKG_NAME, '6600: Leaving Update_Row because of EXCEPTION: '||sqlerrm );
1476: END IF;
1477:
1478: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1526: Okc_Debug.Log('7100: Locking _B row', 2);
1527: END IF;*/
1528:
1529: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1530: FND_LOG.STRING(G_PROC_LEVEL,
1531: G_PKG_NAME, '7000: Entered Update_Row');
1532: FND_LOG.STRING(G_PROC_LEVEL,
1533: G_PKG_NAME, '7100: Locking _B row');
1534: END IF;
1528:
1529: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1530: FND_LOG.STRING(G_PROC_LEVEL,
1531: G_PKG_NAME, '7000: Entered Update_Row');
1532: FND_LOG.STRING(G_PROC_LEVEL,
1533: G_PKG_NAME, '7100: Locking _B row');
1534: END IF;
1535:
1536: x_return_status := Lock_row(
1548: Okc_Debug.Log('7300: Setting attributes', 2);
1549: END IF;*/
1550:
1551: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1552: FND_LOG.STRING(G_PROC_LEVEL,
1553: G_PKG_NAME, '7300: Setting attributes' );
1554: END IF;
1555:
1556: x_return_status := Set_Attributes(
1581: Okc_Debug.Log('7400: Record Validation', 2);
1582: END IF;*/
1583:
1584: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1585: FND_LOG.STRING(G_PROC_LEVEL,
1586: G_PKG_NAME, '7400: Record Validation' );
1587: END IF;
1588:
1589: --- Validate all non-missing attributes
1609: Okc_Debug.Log('7500: Filling WHO columns', 2);
1610: END IF;*/
1611:
1612: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1613: FND_LOG.STRING(G_PROC_LEVEL,
1614: G_PKG_NAME, '7500: Filling WHO columns' );
1615: END IF;
1616:
1617: -- Filling who columns
1631: Okc_Debug.Log('7600: Updating Row', 2);
1632: END IF;*/
1633:
1634: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1635: FND_LOG.STRING(G_PROC_LEVEL,
1636: G_PKG_NAME, '7600: Updating Row' );
1637: END IF;
1638:
1639: x_return_status := Update_Row(
1663: Okc_Debug.Log('7800: Leaving Update_Row', 2);
1664: END IF;*/
1665:
1666: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1667: FND_LOG.STRING(G_PROC_LEVEL,
1668: G_PKG_NAME, '7800: Leaving Update_Row' );
1669: END IF;
1670:
1671: EXCEPTION
1674: Okc_Debug.Log('7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception', 2);
1675: END IF;*/
1676:
1677: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1678: FND_LOG.STRING(G_EXCP_LEVEL,
1679: G_PKG_NAME, '7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception' );
1680: END IF;
1681:
1682: x_return_status := G_RET_STS_ERROR;
1686: Okc_Debug.Log('8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1687: END IF;*/
1688:
1689: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1690: FND_LOG.STRING(G_EXCP_LEVEL,
1691: G_PKG_NAME, '8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
1692: END IF;
1693:
1694: x_return_status := G_RET_STS_UNEXP_ERROR;
1698: Okc_Debug.Log('8100: Leaving Update_Row because of EXCEPTION: '||sqlerrm, 2);
1699: END IF;*/
1700:
1701: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1702: FND_LOG.STRING(G_EXCP_LEVEL,
1703: G_PKG_NAME, '8100: Leaving Update_Row because of EXCEPTION: '||sqlerrm );
1704: END IF;
1705:
1706: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1730: Okc_Debug.Log('8200: Entered Delete_Row', 2);
1731: END IF;*/
1732:
1733: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1734: FND_LOG.STRING(G_PROC_LEVEL,
1735: G_PKG_NAME, '8200: Entered Delete_Row' );
1736: END IF;
1737:
1738: IF isArtVariableMRV(p_cat_id =>p_CAT_ID, p_VARIABLE_CODE => p_VARIABLE_CODE) = 'Y' THEN
1745: Okc_Debug.Log('8300: Leaving Delete_Row', 2);
1746: END IF;*/
1747:
1748: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1749: FND_LOG.STRING(G_PROC_LEVEL,
1750: G_PKG_NAME, '8300: Leaving Delete_Row' );
1751: END IF;
1752:
1753: RETURN( G_RET_STS_SUCCESS );
1759: Okc_Debug.Log('8400: Leaving Delete_Row because of EXCEPTION: '||sqlerrm, 2);
1760: END IF;*/
1761:
1762: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1763: FND_LOG.STRING(G_EXCP_LEVEL,
1764: G_PKG_NAME, '8400: Leaving Delete_Row because of EXCEPTION: '||sqlerrm );
1765: END IF;
1766:
1767: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1792: Okc_Debug.Log('8900: Locking _B row', 2);
1793: END IF;*/
1794:
1795: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1796: FND_LOG.STRING(G_PROC_LEVEL,
1797: G_PKG_NAME, '8800: Entered Delete_Row');
1798: FND_LOG.STRING(G_PROC_LEVEL,
1799: G_PKG_NAME, '8900: Locking _B row');
1800: END IF;
1794:
1795: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1796: FND_LOG.STRING(G_PROC_LEVEL,
1797: G_PKG_NAME, '8800: Entered Delete_Row');
1798: FND_LOG.STRING(G_PROC_LEVEL,
1799: G_PKG_NAME, '8900: Locking _B row');
1800: END IF;
1801:
1802: x_return_status := Lock_row(
1814: Okc_Debug.Log('9100: Removing _B row', 2);
1815: END IF;*/
1816:
1817: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1818: FND_LOG.STRING(G_PROC_LEVEL,
1819: G_PKG_NAME, '9100: Removing _B row' );
1820: END IF;
1821: x_return_status := Delete_Row( p_cat_id => p_cat_id,p_variable_code => p_variable_code );
1822: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1830: Okc_Debug.Log('9300: Leaving Delete_Row', 2);
1831: END IF;*/
1832:
1833: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1834: FND_LOG.STRING(G_PROC_LEVEL,
1835: G_PKG_NAME, '9300: Leaving Delete_Row' );
1836: END IF;
1837:
1838: EXCEPTION
1841: Okc_Debug.Log('9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception', 2);
1842: END IF;*/
1843:
1844: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1845: FND_LOG.STRING(G_EXCP_LEVEL,
1846: G_PKG_NAME, '9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception' );
1847: END IF;
1848: x_return_status := G_RET_STS_ERROR;
1849:
1852: Okc_Debug.Log('9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1853: END IF;*/
1854:
1855: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1856: FND_LOG.STRING(G_EXCP_LEVEL,
1857: G_PKG_NAME, '9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
1858: END IF;
1859: x_return_status := G_RET_STS_UNEXP_ERROR;
1860:
1863: Okc_Debug.Log('9600: Leaving Delete_Row because of EXCEPTION: '||sqlerrm, 2);
1864: END IF;*/
1865:
1866: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1867: FND_LOG.STRING(G_EXCP_LEVEL,
1868: G_PKG_NAME, '9600: Leaving Delete_Row because of EXCEPTION: '||sqlerrm );
1869: END IF;
1870: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1871: p_msg_name => G_UNEXPECTED_ERROR,
1894: Okc_Debug.Log('9701: Locking Records', 2);
1895: END IF;*/
1896:
1897: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1898: FND_LOG.STRING(G_PROC_LEVEL,
1899: G_PKG_NAME, '9700: Entered Delete_Set');
1900: FND_LOG.STRING(G_PROC_LEVEL,
1901: G_PKG_NAME, '9701: Locking Records');
1902: END IF;
1896:
1897: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1898: FND_LOG.STRING(G_PROC_LEVEL,
1899: G_PKG_NAME, '9700: Entered Delete_Set');
1900: FND_LOG.STRING(G_PROC_LEVEL,
1901: G_PKG_NAME, '9701: Locking Records');
1902: END IF;
1903:
1904: -- making OPEN/CLOSE cursor to lock records
1917: Okc_Debug.Log('11000: Leaving Delete_set', 2);
1918: END IF;*/
1919:
1920: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1921: FND_LOG.STRING(G_PROC_LEVEL,
1922: G_PKG_NAME, '11000: Leaving Delete_set' );
1923: END IF;
1924:
1925: EXCEPTION
1928: Okc_Debug.Log('000: Leaving Delete_set:E_Resource_Busy Exception', 2);
1929: END IF;*/
1930:
1931: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1932: FND_LOG.STRING(G_EXCP_LEVEL,
1933: G_PKG_NAME, '000: Leaving Delete_set:E_Resource_Busy Exception' );
1934: END IF;
1935:
1936: IF (lock_csr%ISOPEN) THEN
1944: Okc_Debug.Log('11100: Leaving Delete_Set:FND_API.G_EXC_ERROR Exception', 2);
1945: END IF;*/
1946:
1947: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1948: FND_LOG.STRING(G_EXCP_LEVEL,
1949: G_PKG_NAME, '11100: Leaving Delete_Set:FND_API.G_EXC_ERROR Exception' );
1950: END IF;
1951:
1952: IF (lock_csr%ISOPEN) THEN
1960: Okc_Debug.Log('11200: Leaving Delete_Set:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1961: END IF;*/
1962:
1963: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1964: FND_LOG.STRING(G_EXCP_LEVEL,
1965: G_PKG_NAME, '11200: Leaving Delete_Set:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
1966: END IF;
1967:
1968: IF (lock_csr%ISOPEN) THEN
1975: Okc_Debug.Log('11300: Leaving Delete_Set because of EXCEPTION: '||sqlerrm, 2);
1976: END IF;*/
1977:
1978: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1979: FND_LOG.STRING(G_EXCP_LEVEL,
1980: G_PKG_NAME, '11300: Leaving Delete_Set because of EXCEPTION: '||sqlerrm );
1981: END IF;
1982:
1983: IF (lock_csr%ISOPEN) THEN
2022: Okc_Debug.Log('9700: Locking Records', 2);
2023: END IF;*/
2024:
2025: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
2026: FND_LOG.STRING(G_PROC_LEVEL,
2027: G_PKG_NAME, '9700: Entered Delete_Set');
2028: FND_LOG.STRING(G_PROC_LEVEL,
2029: G_PKG_NAME, '9700: Locking Records');
2030: END IF;
2024:
2025: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
2026: FND_LOG.STRING(G_PROC_LEVEL,
2027: G_PKG_NAME, '9700: Entered Delete_Set');
2028: FND_LOG.STRING(G_PROC_LEVEL,
2029: G_PKG_NAME, '9700: Locking Records');
2030: END IF;
2031:
2032: -- making OPEN/CLOSE cursor to lock records
2047: Okc_Debug.Log('11000: Leaving Delete_set', 2);
2048: END IF;*/
2049:
2050: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
2051: FND_LOG.STRING(G_PROC_LEVEL,
2052: G_PKG_NAME, '11000: Leaving Delete_set' );
2053: END IF;
2054:
2055: EXCEPTION
2058: Okc_Debug.Log('000: Leaving Delete_set:E_Resource_Busy Exception', 2);
2059: END IF;*/
2060:
2061: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2062: FND_LOG.STRING(G_EXCP_LEVEL,
2063: G_PKG_NAME, '000: Leaving Delete_set:E_Resource_Busy Exception' );
2064: END IF;
2065:
2066: IF (lock_csr%ISOPEN) THEN
2074: Okc_Debug.Log('11100: Leaving Delete_Set:FND_API.G_EXC_ERROR Exception', 2);
2075: END IF;*/
2076:
2077: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2078: FND_LOG.STRING(G_EXCP_LEVEL,
2079: G_PKG_NAME, '11100: Leaving Delete_Set:FND_API.G_EXC_ERROR Exception' );
2080: END IF;
2081:
2082: IF (lock_csr%ISOPEN) THEN
2089: Okc_Debug.Log('11200: Leaving Delete_Set:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
2090: END IF;*/
2091:
2092: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2093: FND_LOG.STRING(G_EXCP_LEVEL,
2094: G_PKG_NAME, '11200: Leaving Delete_Set:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
2095: END IF;
2096:
2097: IF (lock_csr%ISOPEN) THEN
2104: Okc_Debug.Log('11300: Leaving Delete_Set because of EXCEPTION: '||sqlerrm, 2);
2105: END IF;*/
2106:
2107: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2108: FND_LOG.STRING(G_EXCP_LEVEL,
2109: G_PKG_NAME, '11300: Leaving Delete_Set because of EXCEPTION: '||sqlerrm );
2110: END IF;
2111:
2112: IF (lock_csr%ISOPEN) THEN
2169: Okc_Debug.Log('9710: Locking Records', 2);
2170: END IF;*/
2171:
2172: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
2173: FND_LOG.STRING(G_PROC_LEVEL,
2174: G_PKG_NAME, '9700: Entered Delete_Set');
2175: FND_LOG.STRING(G_PROC_LEVEL,
2176: G_PKG_NAME, '9710: Locking Records');
2177: END IF;
2171:
2172: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
2173: FND_LOG.STRING(G_PROC_LEVEL,
2174: G_PKG_NAME, '9700: Entered Delete_Set');
2175: FND_LOG.STRING(G_PROC_LEVEL,
2176: G_PKG_NAME, '9710: Locking Records');
2177: END IF;
2178:
2179: -- making OPEN/CLOSE cursor to lock records
2198: Okc_Debug.Log('11000: Leaving Delete_set', 2);
2199: END IF;*/
2200:
2201: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
2202: FND_LOG.STRING(G_PROC_LEVEL,
2203: G_PKG_NAME, '11000: Leaving Delete_set' );
2204: END IF;
2205:
2206: EXCEPTION
2209: Okc_Debug.Log('000: Leaving Delete_set:E_Resource_Busy Exception', 2);
2210: END IF;*/
2211:
2212: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2213: FND_LOG.STRING(G_EXCP_LEVEL,
2214: G_PKG_NAME, '000: Leaving Delete_set:E_Resource_Busy Exception' );
2215: END IF;
2216:
2217: IF (lock_csr%ISOPEN) THEN
2225: Okc_Debug.Log('11100: Leaving Delete_Set:FND_API.G_EXC_ERROR Exception', 2);
2226: END IF;*/
2227:
2228: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2229: FND_LOG.STRING(G_EXCP_LEVEL,
2230: G_PKG_NAME, '11100: Leaving Delete_Set:FND_API.G_EXC_ERROR Exception' );
2231: END IF;
2232:
2233: IF (lock_csr%ISOPEN) THEN
2241: Okc_Debug.Log('11200: Leaving Delete_Set:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
2242: END IF;*/
2243:
2244: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2245: FND_LOG.STRING(G_EXCP_LEVEL,
2246: G_PKG_NAME, '11200: Leaving Delete_Set:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
2247: END IF;
2248:
2249: IF (lock_csr%ISOPEN) THEN
2257: Okc_Debug.Log('11300: Leaving Delete_Set because of EXCEPTION: '||sqlerrm, 2);
2258: END IF;*/
2259:
2260: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2261: FND_LOG.STRING(G_EXCP_LEVEL,
2262: G_PKG_NAME, '11300: Leaving Delete_Set because of EXCEPTION: '||sqlerrm );
2263: END IF;
2264:
2265: IF (lock_csr%ISOPEN) THEN
2303: Okc_Debug.Log('9800: Saving Base Table', 2);
2304: END IF;*/
2305:
2306: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
2307: FND_LOG.STRING(G_PROC_LEVEL,
2308: G_PKG_NAME, '9700: Entered create_version');
2309: FND_LOG.STRING(G_PROC_LEVEL,
2310: G_PKG_NAME, '9800: Saving Base Table');
2311: END IF;
2305:
2306: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
2307: FND_LOG.STRING(G_PROC_LEVEL,
2308: G_PKG_NAME, '9700: Entered create_version');
2309: FND_LOG.STRING(G_PROC_LEVEL,
2310: G_PKG_NAME, '9800: Saving Base Table');
2311: END IF;
2312:
2313: -----------------------------------------
2362: END LOOP;
2363:
2364:
2365: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
2366: FND_LOG.STRING(G_PROC_LEVEL,
2367: G_PKG_NAME, '10000: Leaving create_version' );
2368: END IF;
2369:
2370: RETURN( G_RET_STS_SUCCESS );
2376: Okc_Debug.Log('10100: Leaving create_version because of EXCEPTION: '||sqlerrm, 2);
2377: END IF;*/
2378:
2379: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2380: FND_LOG.STRING(G_EXCP_LEVEL,
2381: G_PKG_NAME, '10100: Leaving create_version because of EXCEPTION: '||sqlerrm );
2382: END IF;
2383:
2384: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2424: Okc_Debug.Log('10300: Restoring Base Table', 2);
2425: END IF;*/
2426:
2427: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
2428: FND_LOG.STRING(G_PROC_LEVEL,
2429: G_PKG_NAME, '10200: Entered restore_version');
2430: FND_LOG.STRING(G_PROC_LEVEL,
2431: G_PKG_NAME, '10300: Restoring Base Table');
2432: END IF;
2426:
2427: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
2428: FND_LOG.STRING(G_PROC_LEVEL,
2429: G_PKG_NAME, '10200: Entered restore_version');
2430: FND_LOG.STRING(G_PROC_LEVEL,
2431: G_PKG_NAME, '10300: Restoring Base Table');
2432: END IF;
2433:
2434: -----------------------------------------
2481: restore_mrv_uda_data_version(p_cat_id => cat_rec.id,p_major_version => p_major_version);
2482: END LOOP;
2483:
2484: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
2485: FND_LOG.STRING(G_PROC_LEVEL,
2486: G_PKG_NAME, '10500: Leaving restore_version' );
2487: END IF;
2488:
2489: RETURN( G_RET_STS_SUCCESS );
2495: Okc_Debug.Log('10600: Leaving restore_version because of EXCEPTION: '||sqlerrm, 2);
2496: END IF;*/
2497:
2498: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2499: FND_LOG.STRING(G_EXCP_LEVEL,
2500: G_PKG_NAME, '10600: Leaving restore_version because of EXCEPTION: '||sqlerrm );
2501: END IF;
2502:
2503: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2536: Okc_Debug.Log('7200: Entered Delete_Version', 2);
2537: END IF;*/
2538:
2539: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
2540: FND_LOG.STRING(G_PROC_LEVEL,
2541: G_PKG_NAME, '7200: Entered Delete_Version' );
2542: END IF;
2543:
2544: -----------------------------------------
2558: Okc_Debug.Log('7300: Leaving Delete_Version', 2);
2559: END IF;*/
2560:
2561: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
2562: FND_LOG.STRING(G_PROC_LEVEL,
2563: G_PKG_NAME, '7300: Leaving Delete_Version' );
2564: END IF;
2565:
2566: RETURN( G_RET_STS_SUCCESS );
2572: Okc_Debug.Log('7400: Leaving Delete_Version because of EXCEPTION: '||sqlerrm, 2);
2573: END IF;*/
2574:
2575: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2576: FND_LOG.STRING(G_EXCP_LEVEL,
2577: G_PKG_NAME, '7400: Leaving Delete_Version because of EXCEPTION: '||sqlerrm );
2578: END IF;
2579:
2580: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2673: END IF;
2674: EXCEPTION
2675: WHEN OTHERS THEN
2676: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2677: FND_LOG.STRING(G_EXCP_LEVEL,
2678: G_PKG_NAME, ' Leaving delete_mrv_uda_data because of EXCEPTION: '||sqlerrm );
2679: END IF;
2680:
2681: Okc_Api.Set_Message(p_app_name => G_APP_NAME,