75: l_paa_rec paa_rec_type;
76: BEGIN
77:
78: IF (l_debug = 'Y') THEN
79: okc_debug.Set_Indentation('OKC_PAA_PVT');
80: okc_debug.log('500: Entered get_rec', 2);
81: END IF;
82:
83: x_no_data_found := TRUE;
76: BEGIN
77:
78: IF (l_debug = 'Y') THEN
79: okc_debug.Set_Indentation('OKC_PAA_PVT');
80: okc_debug.log('500: Entered get_rec', 2);
81: END IF;
82:
83: x_no_data_found := TRUE;
84: -- Get current database values
105: x_no_data_found := paa_pk_csr%NOTFOUND;
106: CLOSE paa_pk_csr;
107:
108: IF (l_debug = 'Y') THEN
109: okc_debug.log('600: Leaving Get_rec ', 2);
110: okc_debug.Reset_Indentation;
111: END IF;
112:
113: RETURN(l_paa_rec);
106: CLOSE paa_pk_csr;
107:
108: IF (l_debug = 'Y') THEN
109: okc_debug.log('600: Leaving Get_rec ', 2);
110: okc_debug.Reset_Indentation;
111: END IF;
112:
113: RETURN(l_paa_rec);
114:
156: l_paav_rec paav_rec_type;
157: BEGIN
158:
159: IF (l_debug = 'Y') THEN
160: okc_debug.Set_Indentation('OKC_PAA_PVT');
161: okc_debug.log('700: Entered get_rec', 2);
162: END IF;
163:
164: x_no_data_found := TRUE;
157: BEGIN
158:
159: IF (l_debug = 'Y') THEN
160: okc_debug.Set_Indentation('OKC_PAA_PVT');
161: okc_debug.log('700: Entered get_rec', 2);
162: END IF;
163:
164: x_no_data_found := TRUE;
165: -- Get current database values
186: x_no_data_found := okc_paav_pk_csr%NOTFOUND;
187: CLOSE okc_paav_pk_csr;
188:
189: IF (l_debug = 'Y') THEN
190: okc_debug.log('800: Leaving Get_rec ', 2);
191: okc_debug.Reset_Indentation;
192: END IF;
193:
194: RETURN(l_paav_rec);
187: CLOSE okc_paav_pk_csr;
188:
189: IF (l_debug = 'Y') THEN
190: okc_debug.log('800: Leaving Get_rec ', 2);
191: okc_debug.Reset_Indentation;
192: END IF;
193:
194: RETURN(l_paav_rec);
195:
214: l_paav_rec paav_rec_type := p_paav_rec;
215: BEGIN
216:
217: IF (l_debug = 'Y') THEN
218: okc_debug.Set_Indentation('OKC_PAA_PVT');
219: okc_debug.log('900: Entered null_out_defaults', 2);
220: END IF;
221:
222: IF (l_paav_rec.pat_id = OKC_API.G_MISS_NUM) THEN
215: BEGIN
216:
217: IF (l_debug = 'Y') THEN
218: okc_debug.Set_Indentation('OKC_PAA_PVT');
219: okc_debug.log('900: Entered null_out_defaults', 2);
220: END IF;
221:
222: IF (l_paav_rec.pat_id = OKC_API.G_MISS_NUM) THEN
223: l_paav_rec.pat_id := NULL;
271: l_paav_rec.object_version_number := NULL;
272: END IF;
273:
274: IF (l_debug = 'Y') THEN
275: okc_debug.log('950: Leaving null_out_defaults', 2);
276: okc_debug.Reset_Indentation;
277: END IF;
278:
279: RETURN(l_paav_rec);
272: END IF;
273:
274: IF (l_debug = 'Y') THEN
275: okc_debug.log('950: Leaving null_out_defaults', 2);
276: okc_debug.Reset_Indentation;
277: END IF;
278:
279: RETURN(l_paav_rec);
280:
294: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
295: BEGIN
296:
297: IF (l_debug = 'Y') THEN
298: okc_debug.Set_Indentation('OKC_PAA_PVT');
299: okc_debug.log('1000: Entered validate_id', 2);
300: END IF;
301:
302: IF p_paav_rec.id = OKC_API.G_MISS_NUM OR
295: BEGIN
296:
297: IF (l_debug = 'Y') THEN
298: okc_debug.Set_Indentation('OKC_PAA_PVT');
299: okc_debug.log('1000: Entered validate_id', 2);
300: END IF;
301:
302: IF p_paav_rec.id = OKC_API.G_MISS_NUM OR
303: p_paav_rec.id IS NULL
307: END IF;
308: x_return_status := l_return_status;
309:
310: IF (l_debug = 'Y') THEN
311: okc_debug.log('1100: Leaving validate_id', 2);
312: okc_debug.Reset_Indentation;
313: END IF;
314:
315: EXCEPTION
308: x_return_status := l_return_status;
309:
310: IF (l_debug = 'Y') THEN
311: okc_debug.log('1100: Leaving validate_id', 2);
312: okc_debug.Reset_Indentation;
313: END IF;
314:
315: EXCEPTION
316: WHEN OTHERS THEN
315: EXCEPTION
316: WHEN OTHERS THEN
317:
318: IF (l_debug = 'Y') THEN
319: okc_debug.log('1200: Leaving validate_id:OTHERS Exception', 2);
320: okc_debug.Reset_Indentation;
321: END IF;
322:
323: -- store SQL error message on message stack for caller
316: WHEN OTHERS THEN
317:
318: IF (l_debug = 'Y') THEN
319: okc_debug.log('1200: Leaving validate_id:OTHERS Exception', 2);
320: okc_debug.Reset_Indentation;
321: END IF;
322:
323: -- store SQL error message on message stack for caller
324: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
335: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
336: BEGIN
337:
338: IF (l_debug = 'Y') THEN
339: okc_debug.Set_Indentation('OKC_PAA_PVT');
340: okc_debug.log('1300: Entered validate_pat_id', 2);
341: END IF;
342:
343: IF p_paav_rec.pat_id = OKC_API.G_MISS_NUM OR
336: BEGIN
337:
338: IF (l_debug = 'Y') THEN
339: okc_debug.Set_Indentation('OKC_PAA_PVT');
340: okc_debug.log('1300: Entered validate_pat_id', 2);
341: END IF;
342:
343: IF p_paav_rec.pat_id = OKC_API.G_MISS_NUM OR
344: p_paav_rec.pat_id IS NULL
348: END IF;
349: x_return_status := l_return_status;
350:
351: IF (l_debug = 'Y') THEN
352: okc_debug.log('1400: Exiting validate_pat_id', 2);
353: okc_debug.Reset_Indentation;
354: END IF;
355:
356: EXCEPTION
349: x_return_status := l_return_status;
350:
351: IF (l_debug = 'Y') THEN
352: okc_debug.log('1400: Exiting validate_pat_id', 2);
353: okc_debug.Reset_Indentation;
354: END IF;
355:
356: EXCEPTION
357: WHEN OTHERS THEN
356: EXCEPTION
357: WHEN OTHERS THEN
358:
359: IF (l_debug = 'Y') THEN
360: okc_debug.log('1500: Exiting validate_pat_id:OTHERS Exception', 2);
361: okc_debug.Reset_Indentation;
362: END IF;
363:
364: -- store SQL error message on message stack for caller
357: WHEN OTHERS THEN
358:
359: IF (l_debug = 'Y') THEN
360: okc_debug.log('1500: Exiting validate_pat_id:OTHERS Exception', 2);
361: okc_debug.Reset_Indentation;
362: END IF;
363:
364: -- store SQL error message on message stack for caller
365: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
376: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
377: BEGIN
378:
379: IF (l_debug = 'Y') THEN
380: okc_debug.Set_Indentation('OKC_PAA_PVT');
381: okc_debug.log('1600: Entered validate_flex_title', 2);
382: END IF;
383:
384: IF p_paav_rec.flex_title = OKC_API.G_MISS_CHAR OR
377: BEGIN
378:
379: IF (l_debug = 'Y') THEN
380: okc_debug.Set_Indentation('OKC_PAA_PVT');
381: okc_debug.log('1600: Entered validate_flex_title', 2);
382: END IF;
383:
384: IF p_paav_rec.flex_title = OKC_API.G_MISS_CHAR OR
385: p_paav_rec.flex_title IS NULL
391:
392: x_return_status := l_return_status;
393:
394: IF (l_debug = 'Y') THEN
395: okc_debug.log('1700: Exiting validate_flex_title', 2);
396: okc_debug.Reset_Indentation;
397: END IF;
398:
399: EXCEPTION
392: x_return_status := l_return_status;
393:
394: IF (l_debug = 'Y') THEN
395: okc_debug.log('1700: Exiting validate_flex_title', 2);
396: okc_debug.Reset_Indentation;
397: END IF;
398:
399: EXCEPTION
400: WHEN G_EXCEPTION_HALT_VALIDATION THEN
399: EXCEPTION
400: WHEN G_EXCEPTION_HALT_VALIDATION THEN
401:
402: IF (l_debug = 'Y') THEN
403: okc_debug.log('1800: Exiting validate_flex_title:G_EXCEPTION_HALT_VALIDATION Exception', 2);
404: okc_debug.Reset_Indentation;
405: END IF;
406:
407: x_return_status := l_return_status;
400: WHEN G_EXCEPTION_HALT_VALIDATION THEN
401:
402: IF (l_debug = 'Y') THEN
403: okc_debug.log('1800: Exiting validate_flex_title:G_EXCEPTION_HALT_VALIDATION Exception', 2);
404: okc_debug.Reset_Indentation;
405: END IF;
406:
407: x_return_status := l_return_status;
408: WHEN OTHERS THEN
407: x_return_status := l_return_status;
408: WHEN OTHERS THEN
409:
410: IF (l_debug = 'Y') THEN
411: okc_debug.log('1900: Exiting validate_flex_title:OTHERS Exception', 2);
412: okc_debug.Reset_Indentation;
413: END IF;
414:
415: -- store SQL error message on message stack for caller
408: WHEN OTHERS THEN
409:
410: IF (l_debug = 'Y') THEN
411: okc_debug.log('1900: Exiting validate_flex_title:OTHERS Exception', 2);
412: okc_debug.Reset_Indentation;
413: END IF;
414:
415: -- store SQL error message on message stack for caller
416: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
429: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
430: BEGIN
431:
432: IF (l_debug = 'Y') THEN
433: okc_debug.Set_Indentation('OKC_PAA_PVT');
434: okc_debug.log('2000: Entered validate_pricing_context', 2);
435: END IF;
436:
437: IF p_paav_rec.pricing_context = OKC_API.G_MISS_CHAR OR
430: BEGIN
431:
432: IF (l_debug = 'Y') THEN
433: okc_debug.Set_Indentation('OKC_PAA_PVT');
434: okc_debug.log('2000: Entered validate_pricing_context', 2);
435: END IF;
436:
437: IF p_paav_rec.pricing_context = OKC_API.G_MISS_CHAR OR
438: p_paav_rec.pricing_context IS NULL
444:
445: x_return_status := l_return_status;
446:
447: IF (l_debug = 'Y') THEN
448: okc_debug.log('2100: Exiting validate_pricing_context', 2);
449: okc_debug.Reset_Indentation;
450: END IF;
451:
452: EXCEPTION
445: x_return_status := l_return_status;
446:
447: IF (l_debug = 'Y') THEN
448: okc_debug.log('2100: Exiting validate_pricing_context', 2);
449: okc_debug.Reset_Indentation;
450: END IF;
451:
452: EXCEPTION
453: WHEN G_EXCEPTION_HALT_VALIDATION THEN
452: EXCEPTION
453: WHEN G_EXCEPTION_HALT_VALIDATION THEN
454:
455: IF (l_debug = 'Y') THEN
456: okc_debug.log('2200: Exiting validate_pricing_context:G_EXCEPTION_HALT_VALIDATION Exception', 2);
457: okc_debug.Reset_Indentation;
458: END IF;
459:
460: x_return_status := l_return_status;
453: WHEN G_EXCEPTION_HALT_VALIDATION THEN
454:
455: IF (l_debug = 'Y') THEN
456: okc_debug.log('2200: Exiting validate_pricing_context:G_EXCEPTION_HALT_VALIDATION Exception', 2);
457: okc_debug.Reset_Indentation;
458: END IF;
459:
460: x_return_status := l_return_status;
461: WHEN OTHERS THEN
460: x_return_status := l_return_status;
461: WHEN OTHERS THEN
462:
463: IF (l_debug = 'Y') THEN
464: okc_debug.log('2300: Exiting validate_pricing_context:OTHERS Exception', 2);
465: okc_debug.Reset_Indentation;
466: END IF;
467:
468: -- store SQL error message on message stack for caller
461: WHEN OTHERS THEN
462:
463: IF (l_debug = 'Y') THEN
464: okc_debug.log('2300: Exiting validate_pricing_context:OTHERS Exception', 2);
465: okc_debug.Reset_Indentation;
466: END IF;
467:
468: -- store SQL error message on message stack for caller
469: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
483: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
484: BEGIN
485:
486: IF (l_debug = 'Y') THEN
487: okc_debug.Set_Indentation('OKC_PAA_PVT');
488: okc_debug.log('2400: Entered validate_pricing_attribute', 2);
489: END IF;
490:
491: IF p_paav_rec.pricing_attribute = OKC_API.G_MISS_CHAR OR
484: BEGIN
485:
486: IF (l_debug = 'Y') THEN
487: okc_debug.Set_Indentation('OKC_PAA_PVT');
488: okc_debug.log('2400: Entered validate_pricing_attribute', 2);
489: END IF;
490:
491: IF p_paav_rec.pricing_attribute = OKC_API.G_MISS_CHAR OR
492: p_paav_rec.pricing_attribute IS NULL
498:
499: x_return_status := l_return_status;
500:
501: IF (l_debug = 'Y') THEN
502: okc_debug.log('2500: Exiting validate_pricing_attribute', 2);
503: okc_debug.Reset_Indentation;
504: END IF;
505:
506: EXCEPTION
499: x_return_status := l_return_status;
500:
501: IF (l_debug = 'Y') THEN
502: okc_debug.log('2500: Exiting validate_pricing_attribute', 2);
503: okc_debug.Reset_Indentation;
504: END IF;
505:
506: EXCEPTION
507: WHEN G_EXCEPTION_HALT_VALIDATION THEN
506: EXCEPTION
507: WHEN G_EXCEPTION_HALT_VALIDATION THEN
508:
509: IF (l_debug = 'Y') THEN
510: okc_debug.log('2600: Exiting validate_pricing_attribute:G_EXCEPTION_HALT_VALIDATION Exception', 2);
511: okc_debug.Reset_Indentation;
512: END IF;
513:
514: x_return_status := l_return_status;
507: WHEN G_EXCEPTION_HALT_VALIDATION THEN
508:
509: IF (l_debug = 'Y') THEN
510: okc_debug.log('2600: Exiting validate_pricing_attribute:G_EXCEPTION_HALT_VALIDATION Exception', 2);
511: okc_debug.Reset_Indentation;
512: END IF;
513:
514: x_return_status := l_return_status;
515: WHEN OTHERS THEN
514: x_return_status := l_return_status;
515: WHEN OTHERS THEN
516:
517: IF (l_debug = 'Y') THEN
518: okc_debug.log('2700: Exiting validate_pricing_attribute:OTHERS Exception', 2);
519: okc_debug.Reset_Indentation;
520: END IF;
521:
522: -- store SQL error message on message stack for caller
515: WHEN OTHERS THEN
516:
517: IF (l_debug = 'Y') THEN
518: okc_debug.log('2700: Exiting validate_pricing_attribute:OTHERS Exception', 2);
519: okc_debug.Reset_Indentation;
520: END IF;
521:
522: -- store SQL error message on message stack for caller
523: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
540: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
541: BEGIN
542:
543: IF (l_debug = 'Y') THEN
544: okc_debug.Set_Indentation('OKC_PAA_PVT');
545: okc_debug.log('2800: Entered Validate_Attributes', 2);
546: END IF;
547:
548: ---------------------------------------------------------------------------------------
541: BEGIN
542:
543: IF (l_debug = 'Y') THEN
544: okc_debug.Set_Indentation('OKC_PAA_PVT');
545: okc_debug.log('2800: Entered Validate_Attributes', 2);
546: END IF;
547:
548: ---------------------------------------------------------------------------------------
549: --Attribute Level Validation Procedure Calls Starts(Modification on TAPI generated Code.)--
599: END IF;
600: END IF;
601:
602: IF (l_debug = 'Y') THEN
603: okc_debug.log('2900: Exiting Validate_Attributes', 2);
604: okc_debug.Reset_Indentation;
605: END IF;
606:
607: RETURN(x_return_status);
600: END IF;
601:
602: IF (l_debug = 'Y') THEN
603: okc_debug.log('2900: Exiting Validate_Attributes', 2);
604: okc_debug.Reset_Indentation;
605: END IF;
606:
607: RETURN(x_return_status);
608:
609: EXCEPTION
610: WHEN G_EXCEPTION_HALT_VALIDATION THEN
611:
612: IF (l_debug = 'Y') THEN
613: okc_debug.log('3000: Exiting Validate_Attributes:G_EXCEPTION_HALT_VALIDATION Exception', 2);
614: okc_debug.Reset_Indentation;
615: END IF;
616:
617: return(x_return_status);
610: WHEN G_EXCEPTION_HALT_VALIDATION THEN
611:
612: IF (l_debug = 'Y') THEN
613: okc_debug.log('3000: Exiting Validate_Attributes:G_EXCEPTION_HALT_VALIDATION Exception', 2);
614: okc_debug.Reset_Indentation;
615: END IF;
616:
617: return(x_return_status);
618: WHEN OTHERS THEN
617: return(x_return_status);
618: WHEN OTHERS THEN
619:
620: IF (l_debug = 'Y') THEN
621: okc_debug.log('3100: Exiting Validate_Attributes:OTHERS Exception', 2);
622: okc_debug.Reset_Indentation;
623: END IF;
624:
625: -- store SQL error message on message stack for caller
618: WHEN OTHERS THEN
619:
620: IF (l_debug = 'Y') THEN
621: okc_debug.log('3100: Exiting Validate_Attributes:OTHERS Exception', 2);
622: okc_debug.Reset_Indentation;
623: END IF;
624:
625: -- store SQL error message on message stack for caller
626: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
660: l_row_notfound BOOLEAN := TRUE;
661: BEGIN
662:
663: IF (l_debug = 'Y') THEN
664: okc_debug.Set_Indentation('OKC_PAA_PVT');
665: okc_debug.log('3200: Entered validate_foreign_keys', 2);
666: END IF;
667:
668: IF (p_paav_rec.PAT_ID IS NOT NULL)
661: BEGIN
662:
663: IF (l_debug = 'Y') THEN
664: okc_debug.Set_Indentation('OKC_PAA_PVT');
665: okc_debug.log('3200: Entered validate_foreign_keys', 2);
666: END IF;
667:
668: IF (p_paav_rec.PAT_ID IS NOT NULL)
669: THEN
677: END IF;
678: END IF;
679:
680: IF (l_debug = 'Y') THEN
681: okc_debug.log('3300: Exiting validate_foreign_keys', 2);
682: okc_debug.Reset_Indentation;
683: END IF;
684:
685: RETURN (l_return_status);
678: END IF;
679:
680: IF (l_debug = 'Y') THEN
681: okc_debug.log('3300: Exiting validate_foreign_keys', 2);
682: okc_debug.Reset_Indentation;
683: END IF;
684:
685: RETURN (l_return_status);
686:
687: EXCEPTION
688: WHEN item_not_found_error THEN
689:
690: IF (l_debug = 'Y') THEN
691: okc_debug.log('3400: Exiting validate_foreign_keys:item_not_found_error Exception', 2);
692: okc_debug.Reset_Indentation;
693: END IF;
694:
695: l_return_status := OKC_API.G_RET_STS_ERROR;
688: WHEN item_not_found_error THEN
689:
690: IF (l_debug = 'Y') THEN
691: okc_debug.log('3400: Exiting validate_foreign_keys:item_not_found_error Exception', 2);
692: okc_debug.Reset_Indentation;
693: END IF;
694:
695: l_return_status := OKC_API.G_RET_STS_ERROR;
696: RETURN (l_return_status);
781: l_paa_rec paa_rec_type;
782: BEGIN
783:
784: IF (l_debug = 'Y') THEN
785: okc_debug.Set_Indentation('OKC_PAA_PVT');
786: okc_debug.log('3800: Entered validate_row', 2);
787: END IF;
788:
789: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
782: BEGIN
783:
784: IF (l_debug = 'Y') THEN
785: okc_debug.Set_Indentation('OKC_PAA_PVT');
786: okc_debug.log('3800: Entered validate_row', 2);
787: END IF;
788:
789: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
790: G_PKG_NAME,
814: END IF;
815: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
816:
817: IF (l_debug = 'Y') THEN
818: okc_debug.log('3900: Exiting validate_row', 2);
819: okc_debug.Reset_Indentation;
820: END IF;
821:
822: EXCEPTION
815: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
816:
817: IF (l_debug = 'Y') THEN
818: okc_debug.log('3900: Exiting validate_row', 2);
819: okc_debug.Reset_Indentation;
820: END IF;
821:
822: EXCEPTION
823: WHEN OKC_API.G_EXCEPTION_ERROR THEN
822: EXCEPTION
823: WHEN OKC_API.G_EXCEPTION_ERROR THEN
824:
825: IF (l_debug = 'Y') THEN
826: okc_debug.log('4000: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
827: okc_debug.Reset_Indentation;
828: END IF;
829:
830: x_return_status := OKC_API.HANDLE_EXCEPTIONS
823: WHEN OKC_API.G_EXCEPTION_ERROR THEN
824:
825: IF (l_debug = 'Y') THEN
826: okc_debug.log('4000: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
827: okc_debug.Reset_Indentation;
828: END IF;
829:
830: x_return_status := OKC_API.HANDLE_EXCEPTIONS
831: (
838: );
839: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
840:
841: IF (l_debug = 'Y') THEN
842: okc_debug.log('4100: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
843: okc_debug.Reset_Indentation;
844: END IF;
845:
846: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
839: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
840:
841: IF (l_debug = 'Y') THEN
842: okc_debug.log('4100: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
843: okc_debug.Reset_Indentation;
844: END IF;
845:
846: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
847: (
854: );
855: WHEN OTHERS THEN
856:
857: IF (l_debug = 'Y') THEN
858: okc_debug.log('4200: Exiting validate_row:OTHERS Exception', 2);
859: okc_debug.Reset_Indentation;
860: END IF;
861:
862: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
855: WHEN OTHERS THEN
856:
857: IF (l_debug = 'Y') THEN
858: okc_debug.log('4200: Exiting validate_row:OTHERS Exception', 2);
859: okc_debug.Reset_Indentation;
860: END IF;
861:
862: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
863: (
887: i NUMBER := 0;
888: BEGIN
889:
890: IF (l_debug = 'Y') THEN
891: okc_debug.Set_Indentation('OKC_PAA_PVT');
892: okc_debug.log('4300: Entered validate_row', 2);
893: END IF;
894:
895: OKC_API.init_msg_list(p_init_msg_list);
888: BEGIN
889:
890: IF (l_debug = 'Y') THEN
891: okc_debug.Set_Indentation('OKC_PAA_PVT');
892: okc_debug.log('4300: Entered validate_row', 2);
893: END IF;
894:
895: OKC_API.init_msg_list(p_init_msg_list);
896: -- Make sure PL/SQL table has records in it before passing
909: END LOOP;
910: END IF;
911:
912: IF (l_debug = 'Y') THEN
913: okc_debug.log('4400: Exiting validate_row', 2);
914: okc_debug.Reset_Indentation;
915: END IF;
916:
917: EXCEPTION
910: END IF;
911:
912: IF (l_debug = 'Y') THEN
913: okc_debug.log('4400: Exiting validate_row', 2);
914: okc_debug.Reset_Indentation;
915: END IF;
916:
917: EXCEPTION
918: WHEN OKC_API.G_EXCEPTION_ERROR THEN
917: EXCEPTION
918: WHEN OKC_API.G_EXCEPTION_ERROR THEN
919:
920: IF (l_debug = 'Y') THEN
921: okc_debug.log('4500: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
922: okc_debug.Reset_Indentation;
923: END IF;
924:
925: x_return_status := OKC_API.HANDLE_EXCEPTIONS
918: WHEN OKC_API.G_EXCEPTION_ERROR THEN
919:
920: IF (l_debug = 'Y') THEN
921: okc_debug.log('4500: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
922: okc_debug.Reset_Indentation;
923: END IF;
924:
925: x_return_status := OKC_API.HANDLE_EXCEPTIONS
926: (
933: );
934: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
935:
936: IF (l_debug = 'Y') THEN
937: okc_debug.log('4600: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
938: okc_debug.Reset_Indentation;
939: END IF;
940:
941: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
934: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
935:
936: IF (l_debug = 'Y') THEN
937: okc_debug.log('4600: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
938: okc_debug.Reset_Indentation;
939: END IF;
940:
941: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
942: (
949: );
950: WHEN OTHERS THEN
951:
952: IF (l_debug = 'Y') THEN
953: okc_debug.log('4700: Exiting validate_row:OTHERS Exception', 2);
954: okc_debug.Reset_Indentation;
955: END IF;
956:
957: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
950: WHEN OTHERS THEN
951:
952: IF (l_debug = 'Y') THEN
953: okc_debug.log('4700: Exiting validate_row:OTHERS Exception', 2);
954: okc_debug.Reset_Indentation;
955: END IF;
956:
957: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
958: (
1001: END Set_Attributes;
1002: BEGIN
1003:
1004: IF (l_debug = 'Y') THEN
1005: okc_debug.Set_Indentation('OKC_PAA_PVT');
1006: okc_debug.log('4900: Entered insert_row', 2);
1007: END IF;
1008:
1009: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1002: BEGIN
1003:
1004: IF (l_debug = 'Y') THEN
1005: okc_debug.Set_Indentation('OKC_PAA_PVT');
1006: okc_debug.log('4900: Entered insert_row', 2);
1007: END IF;
1008:
1009: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1010: p_init_msg_list,
1067: x_paa_rec := l_paa_rec;
1068: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1069:
1070: IF (l_debug = 'Y') THEN
1071: okc_debug.log('5000: Exiting insert_row', 2);
1072: okc_debug.Reset_Indentation;
1073: END IF;
1074:
1075: EXCEPTION
1068: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1069:
1070: IF (l_debug = 'Y') THEN
1071: okc_debug.log('5000: Exiting insert_row', 2);
1072: okc_debug.Reset_Indentation;
1073: END IF;
1074:
1075: EXCEPTION
1076: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1075: EXCEPTION
1076: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1077:
1078: IF (l_debug = 'Y') THEN
1079: okc_debug.log('5100: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1080: okc_debug.Reset_Indentation;
1081: END IF;
1082:
1083: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1076: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1077:
1078: IF (l_debug = 'Y') THEN
1079: okc_debug.log('5100: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1080: okc_debug.Reset_Indentation;
1081: END IF;
1082:
1083: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1084: (
1091: );
1092: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1093:
1094: IF (l_debug = 'Y') THEN
1095: okc_debug.log('5200: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1096: okc_debug.Reset_Indentation;
1097: END IF;
1098:
1099: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1092: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1093:
1094: IF (l_debug = 'Y') THEN
1095: okc_debug.log('5200: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1096: okc_debug.Reset_Indentation;
1097: END IF;
1098:
1099: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1100: (
1107: );
1108: WHEN OTHERS THEN
1109:
1110: IF (l_debug = 'Y') THEN
1111: okc_debug.log('5300: Exiting insert_row:OTHERS Exception', 2);
1112: okc_debug.Reset_Indentation;
1113: END IF;
1114:
1115: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1108: WHEN OTHERS THEN
1109:
1110: IF (l_debug = 'Y') THEN
1111: okc_debug.log('5300: Exiting insert_row:OTHERS Exception', 2);
1112: okc_debug.Reset_Indentation;
1113: END IF;
1114:
1115: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1116: (
1177: END Set_Attributes;
1178: BEGIN
1179:
1180: IF (l_debug = 'Y') THEN
1181: okc_debug.Set_Indentation('OKC_PAA_PVT');
1182: okc_debug.log('5600: Entered insert_row', 2);
1183: END IF;
1184:
1185: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1178: BEGIN
1179:
1180: IF (l_debug = 'Y') THEN
1181: okc_debug.Set_Indentation('OKC_PAA_PVT');
1182: okc_debug.log('5600: Entered insert_row', 2);
1183: END IF;
1184:
1185: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1186: G_PKG_NAME,
1247: x_paav_rec := l_def_paav_rec;
1248: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1249:
1250: IF (l_debug = 'Y') THEN
1251: okc_debug.log('5700: Exiting insert_row', 2);
1252: okc_debug.Reset_Indentation;
1253: END IF;
1254:
1255: EXCEPTION
1248: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1249:
1250: IF (l_debug = 'Y') THEN
1251: okc_debug.log('5700: Exiting insert_row', 2);
1252: okc_debug.Reset_Indentation;
1253: END IF;
1254:
1255: EXCEPTION
1256: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1255: EXCEPTION
1256: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1257:
1258: IF (l_debug = 'Y') THEN
1259: okc_debug.log('5800: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1260: okc_debug.Reset_Indentation;
1261: END IF;
1262:
1263: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1256: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1257:
1258: IF (l_debug = 'Y') THEN
1259: okc_debug.log('5800: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1260: okc_debug.Reset_Indentation;
1261: END IF;
1262:
1263: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1264: (
1271: );
1272: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1273:
1274: IF (l_debug = 'Y') THEN
1275: okc_debug.log('5900: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1276: okc_debug.Reset_Indentation;
1277: END IF;
1278:
1279: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1272: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1273:
1274: IF (l_debug = 'Y') THEN
1275: okc_debug.log('5900: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1276: okc_debug.Reset_Indentation;
1277: END IF;
1278:
1279: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1280: (
1287: );
1288: WHEN OTHERS THEN
1289:
1290: IF (l_debug = 'Y') THEN
1291: okc_debug.log('6000: Exiting insert_row:OTHERS Exception', 2);
1292: okc_debug.Reset_Indentation;
1293: END IF;
1294:
1295: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1288: WHEN OTHERS THEN
1289:
1290: IF (l_debug = 'Y') THEN
1291: okc_debug.log('6000: Exiting insert_row:OTHERS Exception', 2);
1292: okc_debug.Reset_Indentation;
1293: END IF;
1294:
1295: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1296: (
1321: i NUMBER := 0;
1322: BEGIN
1323:
1324: IF (l_debug = 'Y') THEN
1325: okc_debug.Set_Indentation('OKC_PAA_PVT');
1326: okc_debug.log('6100: Entered insert_row', 2);
1327: END IF;
1328:
1329: OKC_API.init_msg_list(p_init_msg_list);
1322: BEGIN
1323:
1324: IF (l_debug = 'Y') THEN
1325: okc_debug.Set_Indentation('OKC_PAA_PVT');
1326: okc_debug.log('6100: Entered insert_row', 2);
1327: END IF;
1328:
1329: OKC_API.init_msg_list(p_init_msg_list);
1330: -- Make sure PL/SQL table has records in it before passing
1344: END LOOP;
1345: END IF;
1346:
1347: IF (l_debug = 'Y') THEN
1348: okc_debug.log('6200: Exiting insert_row', 2);
1349: okc_debug.Reset_Indentation;
1350: END IF;
1351:
1352: EXCEPTION
1345: END IF;
1346:
1347: IF (l_debug = 'Y') THEN
1348: okc_debug.log('6200: Exiting insert_row', 2);
1349: okc_debug.Reset_Indentation;
1350: END IF;
1351:
1352: EXCEPTION
1353: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1352: EXCEPTION
1353: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1354:
1355: IF (l_debug = 'Y') THEN
1356: okc_debug.log('6300: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1357: okc_debug.Reset_Indentation;
1358: END IF;
1359:
1360: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1353: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1354:
1355: IF (l_debug = 'Y') THEN
1356: okc_debug.log('6300: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1357: okc_debug.Reset_Indentation;
1358: END IF;
1359:
1360: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1361: (
1368: );
1369: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1370:
1371: IF (l_debug = 'Y') THEN
1372: okc_debug.log('6400: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1373: okc_debug.Reset_Indentation;
1374: END IF;
1375:
1376: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1369: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1370:
1371: IF (l_debug = 'Y') THEN
1372: okc_debug.log('6400: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1373: okc_debug.Reset_Indentation;
1374: END IF;
1375:
1376: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1377: (
1384: );
1385: WHEN OTHERS THEN
1386:
1387: IF (l_debug = 'Y') THEN
1388: okc_debug.log('6500: Exiting insert_row:OTHERS Exception', 2);
1389: okc_debug.Reset_Indentation;
1390: END IF;
1391:
1392: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1385: WHEN OTHERS THEN
1386:
1387: IF (l_debug = 'Y') THEN
1388: okc_debug.log('6500: Exiting insert_row:OTHERS Exception', 2);
1389: okc_debug.Reset_Indentation;
1390: END IF;
1391:
1392: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1393: (
1430: lc_row_notfound BOOLEAN := FALSE;
1431: BEGIN
1432:
1433: IF (l_debug = 'Y') THEN
1434: okc_debug.Set_Indentation('OKC_PAA_PVT');
1435: okc_debug.log('6600: Entered lock_row', 2);
1436: END IF;
1437:
1438: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1431: BEGIN
1432:
1433: IF (l_debug = 'Y') THEN
1434: okc_debug.Set_Indentation('OKC_PAA_PVT');
1435: okc_debug.log('6600: Entered lock_row', 2);
1436: END IF;
1437:
1438: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1439: p_init_msg_list,
1446: END IF;
1447: BEGIN
1448:
1449: IF (l_debug = 'Y') THEN
1450: okc_debug.Set_Indentation('OKC_PAA_PVT');
1451: okc_debug.log('6700: Entered lock_row', 2);
1452: END IF;
1453:
1454: OPEN lock_csr(p_paa_rec);
1447: BEGIN
1448:
1449: IF (l_debug = 'Y') THEN
1450: okc_debug.Set_Indentation('OKC_PAA_PVT');
1451: okc_debug.log('6700: Entered lock_row', 2);
1452: END IF;
1453:
1454: OPEN lock_csr(p_paa_rec);
1455: FETCH lock_csr INTO l_lock_var;
1456: l_row_notfound := lock_csr%NOTFOUND;
1457: CLOSE lock_csr;
1458:
1459: IF (l_debug = 'Y') THEN
1460: okc_debug.log('6800: Leaving lock_row', 2);
1461: okc_debug.Reset_Indentation;
1462: END IF;
1463:
1464: EXCEPTION
1457: CLOSE lock_csr;
1458:
1459: IF (l_debug = 'Y') THEN
1460: okc_debug.log('6800: Leaving lock_row', 2);
1461: okc_debug.Reset_Indentation;
1462: END IF;
1463:
1464: EXCEPTION
1465: WHEN E_Resource_Busy THEN
1464: EXCEPTION
1465: WHEN E_Resource_Busy THEN
1466:
1467: IF (l_debug = 'Y') THEN
1468: okc_debug.log('6900: Exiting lock_row:E_Resource_Busy Exception', 2);
1469: okc_debug.Reset_Indentation;
1470: END IF;
1471:
1472: IF (lock_csr%ISOPEN) THEN
1465: WHEN E_Resource_Busy THEN
1466:
1467: IF (l_debug = 'Y') THEN
1468: okc_debug.log('6900: Exiting lock_row:E_Resource_Busy Exception', 2);
1469: okc_debug.Reset_Indentation;
1470: END IF;
1471:
1472: IF (lock_csr%ISOPEN) THEN
1473: CLOSE lock_csr;
1555: END IF;
1556: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1557:
1558: IF (l_debug = 'Y') THEN
1559: okc_debug.log('7000: Leaving lock_row', 2);
1560: okc_debug.Reset_Indentation;
1561: END IF;
1562:
1563: EXCEPTION
1556: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1557:
1558: IF (l_debug = 'Y') THEN
1559: okc_debug.log('7000: Leaving lock_row', 2);
1560: okc_debug.Reset_Indentation;
1561: END IF;
1562:
1563: EXCEPTION
1564: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1563: EXCEPTION
1564: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1565:
1566: IF (l_debug = 'Y') THEN
1567: okc_debug.log('7100: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1568: okc_debug.Reset_Indentation;
1569: END IF;
1570:
1571: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1564: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1565:
1566: IF (l_debug = 'Y') THEN
1567: okc_debug.log('7100: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1568: okc_debug.Reset_Indentation;
1569: END IF;
1570:
1571: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1572: (
1579: );
1580: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1581:
1582: IF (l_debug = 'Y') THEN
1583: okc_debug.log('7200: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1584: okc_debug.Reset_Indentation;
1585: END IF;
1586:
1587: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1580: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1581:
1582: IF (l_debug = 'Y') THEN
1583: okc_debug.log('7200: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1584: okc_debug.Reset_Indentation;
1585: END IF;
1586:
1587: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1588: (
1595: );
1596: WHEN OTHERS THEN
1597:
1598: IF (l_debug = 'Y') THEN
1599: okc_debug.log('7300: Exiting lock_row:OTHERS Exception', 2);
1600: okc_debug.Reset_Indentation;
1601: END IF;
1602:
1603: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1596: WHEN OTHERS THEN
1597:
1598: IF (l_debug = 'Y') THEN
1599: okc_debug.log('7300: Exiting lock_row:OTHERS Exception', 2);
1600: okc_debug.Reset_Indentation;
1601: END IF;
1602:
1603: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1604: (
1628: l_paa_rec paa_rec_type;
1629: BEGIN
1630:
1631: IF (l_debug = 'Y') THEN
1632: okc_debug.Set_Indentation('OKC_PAA_PVT');
1633: okc_debug.log('7400: Entered lock_row', 2);
1634: END IF;
1635:
1636: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1629: BEGIN
1630:
1631: IF (l_debug = 'Y') THEN
1632: okc_debug.Set_Indentation('OKC_PAA_PVT');
1633: okc_debug.log('7400: Entered lock_row', 2);
1634: END IF;
1635:
1636: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1637: G_PKG_NAME,
1666: END IF;
1667: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1668:
1669: IF (l_debug = 'Y') THEN
1670: okc_debug.log('7500: Leaving lock_row', 2);
1671: okc_debug.Reset_Indentation;
1672: END IF;
1673:
1674: EXCEPTION
1667: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1668:
1669: IF (l_debug = 'Y') THEN
1670: okc_debug.log('7500: Leaving lock_row', 2);
1671: okc_debug.Reset_Indentation;
1672: END IF;
1673:
1674: EXCEPTION
1675: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1674: EXCEPTION
1675: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1676:
1677: IF (l_debug = 'Y') THEN
1678: okc_debug.log('7600: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1679: okc_debug.Reset_Indentation;
1680: END IF;
1681:
1682: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1675: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1676:
1677: IF (l_debug = 'Y') THEN
1678: okc_debug.log('7600: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1679: okc_debug.Reset_Indentation;
1680: END IF;
1681:
1682: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1683: (
1690: );
1691: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1692:
1693: IF (l_debug = 'Y') THEN
1694: okc_debug.log('7700: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1695: okc_debug.Reset_Indentation;
1696: END IF;
1697:
1698: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1691: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1692:
1693: IF (l_debug = 'Y') THEN
1694: okc_debug.log('7700: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1695: okc_debug.Reset_Indentation;
1696: END IF;
1697:
1698: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1699: (
1706: );
1707: WHEN OTHERS THEN
1708:
1709: IF (l_debug = 'Y') THEN
1710: okc_debug.log('7800: Exiting lock_row:OTHERS Exception', 2);
1711: okc_debug.Reset_Indentation;
1712: END IF;
1713:
1714: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1707: WHEN OTHERS THEN
1708:
1709: IF (l_debug = 'Y') THEN
1710: okc_debug.log('7800: Exiting lock_row:OTHERS Exception', 2);
1711: okc_debug.Reset_Indentation;
1712: END IF;
1713:
1714: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1715: (
1739: i NUMBER := 0;
1740: BEGIN
1741:
1742: IF (l_debug = 'Y') THEN
1743: okc_debug.Set_Indentation('OKC_PAA_PVT');
1744: okc_debug.log('7900: Entered lock_row', 2);
1745: END IF;
1746:
1747: OKC_API.init_msg_list(p_init_msg_list);
1740: BEGIN
1741:
1742: IF (l_debug = 'Y') THEN
1743: okc_debug.Set_Indentation('OKC_PAA_PVT');
1744: okc_debug.log('7900: Entered lock_row', 2);
1745: END IF;
1746:
1747: OKC_API.init_msg_list(p_init_msg_list);
1748: -- Make sure PL/SQL table has records in it before passing
1761: END LOOP;
1762: END IF;
1763:
1764: IF (l_debug = 'Y') THEN
1765: okc_debug.log('8000: Leaving lock_row', 2);
1766: okc_debug.Reset_Indentation;
1767: END IF;
1768:
1769: EXCEPTION
1762: END IF;
1763:
1764: IF (l_debug = 'Y') THEN
1765: okc_debug.log('8000: Leaving lock_row', 2);
1766: okc_debug.Reset_Indentation;
1767: END IF;
1768:
1769: EXCEPTION
1770: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1769: EXCEPTION
1770: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1771:
1772: IF (l_debug = 'Y') THEN
1773: okc_debug.log('8100: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1774: okc_debug.Reset_Indentation;
1775: END IF;
1776:
1777: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1770: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1771:
1772: IF (l_debug = 'Y') THEN
1773: okc_debug.log('8100: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1774: okc_debug.Reset_Indentation;
1775: END IF;
1776:
1777: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1778: (
1785: );
1786: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1787:
1788: IF (l_debug = 'Y') THEN
1789: okc_debug.log('8200: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1790: okc_debug.Reset_Indentation;
1791: END IF;
1792:
1793: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1786: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1787:
1788: IF (l_debug = 'Y') THEN
1789: okc_debug.log('8200: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1790: okc_debug.Reset_Indentation;
1791: END IF;
1792:
1793: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1794: (
1801: );
1802: WHEN OTHERS THEN
1803:
1804: IF (l_debug = 'Y') THEN
1805: okc_debug.log('8300: Exiting lock_row:OTHERS Exception', 2);
1806: okc_debug.Reset_Indentation;
1807: END IF;
1808:
1809: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1802: WHEN OTHERS THEN
1803:
1804: IF (l_debug = 'Y') THEN
1805: okc_debug.log('8300: Exiting lock_row:OTHERS Exception', 2);
1806: okc_debug.Reset_Indentation;
1807: END IF;
1808:
1809: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1810: (
1850: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1851: BEGIN
1852:
1853: IF (l_debug = 'Y') THEN
1854: okc_debug.Set_Indentation('OKC_PAA_PVT');
1855: okc_debug.log('8400: Entered populate_new_record', 2);
1856: END IF;
1857:
1858: x_paa_rec := p_paa_rec;
1851: BEGIN
1852:
1853: IF (l_debug = 'Y') THEN
1854: okc_debug.Set_Indentation('OKC_PAA_PVT');
1855: okc_debug.log('8400: Entered populate_new_record', 2);
1856: END IF;
1857:
1858: x_paa_rec := p_paa_rec;
1859: -- Get current database values
1934: x_paa_rec.object_version_number := l_paa_rec.object_version_number;
1935: END IF;
1936:
1937: IF (l_debug = 'Y') THEN
1938: okc_debug.log('8500 : Leaving populate_new_record ', 2);
1939: okc_debug.Reset_Indentation;
1940: END IF;
1941:
1942: RETURN(l_return_status);
1935: END IF;
1936:
1937: IF (l_debug = 'Y') THEN
1938: okc_debug.log('8500 : Leaving populate_new_record ', 2);
1939: okc_debug.Reset_Indentation;
1940: END IF;
1941:
1942: RETURN(l_return_status);
1943:
1958: END Set_Attributes;
1959: BEGIN
1960:
1961: IF (l_debug = 'Y') THEN
1962: okc_debug.Set_Indentation('OKC_PAA_PVT');
1963: okc_debug.log('8600: Entered update_row', 2);
1964: END IF;
1965:
1966: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1959: BEGIN
1960:
1961: IF (l_debug = 'Y') THEN
1962: okc_debug.Set_Indentation('OKC_PAA_PVT');
1963: okc_debug.log('8600: Entered update_row', 2);
1964: END IF;
1965:
1966: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1967: p_init_msg_list,
2011: x_paa_rec := l_def_paa_rec;
2012: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2013:
2014: IF (l_debug = 'Y') THEN
2015: okc_debug.log('8700: Exiting update_row', 2);
2016: okc_debug.Reset_Indentation;
2017: END IF;
2018:
2019: EXCEPTION
2012: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2013:
2014: IF (l_debug = 'Y') THEN
2015: okc_debug.log('8700: Exiting update_row', 2);
2016: okc_debug.Reset_Indentation;
2017: END IF;
2018:
2019: EXCEPTION
2020: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2019: EXCEPTION
2020: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2021:
2022: IF (l_debug = 'Y') THEN
2023: okc_debug.log('8800: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2024: okc_debug.Reset_Indentation;
2025: END IF;
2026:
2027: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2020: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2021:
2022: IF (l_debug = 'Y') THEN
2023: okc_debug.log('8800: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2024: okc_debug.Reset_Indentation;
2025: END IF;
2026:
2027: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2028: (
2035: );
2036: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2037:
2038: IF (l_debug = 'Y') THEN
2039: okc_debug.log('8900: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2040: okc_debug.Reset_Indentation;
2041: END IF;
2042:
2043: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2036: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2037:
2038: IF (l_debug = 'Y') THEN
2039: okc_debug.log('8900: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2040: okc_debug.Reset_Indentation;
2041: END IF;
2042:
2043: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2044: (
2051: );
2052: WHEN OTHERS THEN
2053:
2054: IF (l_debug = 'Y') THEN
2055: okc_debug.log('9000: Exiting update_row:OTHERS Exception', 2);
2056: okc_debug.Reset_Indentation;
2057: END IF;
2058:
2059: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2052: WHEN OTHERS THEN
2053:
2054: IF (l_debug = 'Y') THEN
2055: okc_debug.log('9000: Exiting update_row:OTHERS Exception', 2);
2056: okc_debug.Reset_Indentation;
2057: END IF;
2058:
2059: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2060: (
2113: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2114: BEGIN
2115:
2116: IF (l_debug = 'Y') THEN
2117: okc_debug.Set_Indentation('OKC_PAA_PVT');
2118: okc_debug.log('9200: Entered populate_new_record', 2);
2119: END IF;
2120:
2121: x_paav_rec := p_paav_rec;
2114: BEGIN
2115:
2116: IF (l_debug = 'Y') THEN
2117: okc_debug.Set_Indentation('OKC_PAA_PVT');
2118: okc_debug.log('9200: Entered populate_new_record', 2);
2119: END IF;
2120:
2121: x_paav_rec := p_paav_rec;
2122: -- Get current database values
2197: x_paav_rec.object_version_number := l_paav_rec.object_version_number;
2198: END IF;
2199:
2200: IF (l_debug = 'Y') THEN
2201: okc_debug.log('9300: Leaving populate_new_record ', 2);
2202: okc_debug.Reset_Indentation;
2203: END IF;
2204:
2205: RETURN(l_return_status);
2198: END IF;
2199:
2200: IF (l_debug = 'Y') THEN
2201: okc_debug.log('9300: Leaving populate_new_record ', 2);
2202: okc_debug.Reset_Indentation;
2203: END IF;
2204:
2205: RETURN(l_return_status);
2206:
2222: END Set_Attributes;
2223: BEGIN
2224:
2225: IF (l_debug = 'Y') THEN
2226: okc_debug.Set_Indentation('OKC_PAA_PVT');
2227: okc_debug.log('9400: Entered update_row', 2);
2228: END IF;
2229:
2230: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2223: BEGIN
2224:
2225: IF (l_debug = 'Y') THEN
2226: okc_debug.Set_Indentation('OKC_PAA_PVT');
2227: okc_debug.log('9400: Entered update_row', 2);
2228: END IF;
2229:
2230: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2231: G_PKG_NAME,
2295: x_paav_rec := l_def_paav_rec;
2296: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2297:
2298: IF (l_debug = 'Y') THEN
2299: okc_debug.log('9500: Exiting update_row', 2);
2300: okc_debug.Reset_Indentation;
2301: END IF;
2302:
2303: EXCEPTION
2296: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2297:
2298: IF (l_debug = 'Y') THEN
2299: okc_debug.log('9500: Exiting update_row', 2);
2300: okc_debug.Reset_Indentation;
2301: END IF;
2302:
2303: EXCEPTION
2304: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2303: EXCEPTION
2304: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2305:
2306: IF (l_debug = 'Y') THEN
2307: okc_debug.log('9600: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2308: okc_debug.Reset_Indentation;
2309: END IF;
2310:
2311: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2304: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2305:
2306: IF (l_debug = 'Y') THEN
2307: okc_debug.log('9600: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2308: okc_debug.Reset_Indentation;
2309: END IF;
2310:
2311: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2312: (
2319: );
2320: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2321:
2322: IF (l_debug = 'Y') THEN
2323: okc_debug.log('9700: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2324: okc_debug.Reset_Indentation;
2325: END IF;
2326:
2327: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2320: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2321:
2322: IF (l_debug = 'Y') THEN
2323: okc_debug.log('9700: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2324: okc_debug.Reset_Indentation;
2325: END IF;
2326:
2327: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2328: (
2335: );
2336: WHEN OTHERS THEN
2337:
2338: IF (l_debug = 'Y') THEN
2339: okc_debug.log('9800: Exiting update_row:OTHERS Exception', 2);
2340: okc_debug.Reset_Indentation;
2341: END IF;
2342:
2343: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2336: WHEN OTHERS THEN
2337:
2338: IF (l_debug = 'Y') THEN
2339: okc_debug.log('9800: Exiting update_row:OTHERS Exception', 2);
2340: okc_debug.Reset_Indentation;
2341: END IF;
2342:
2343: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2344: (
2369: i NUMBER := 0;
2370: BEGIN
2371:
2372: IF (l_debug = 'Y') THEN
2373: okc_debug.Set_Indentation('OKC_PAA_PVT');
2374: okc_debug.log('9900: Entered update_row', 2);
2375: END IF;
2376:
2377: OKC_API.init_msg_list(p_init_msg_list);
2370: BEGIN
2371:
2372: IF (l_debug = 'Y') THEN
2373: okc_debug.Set_Indentation('OKC_PAA_PVT');
2374: okc_debug.log('9900: Entered update_row', 2);
2375: END IF;
2376:
2377: OKC_API.init_msg_list(p_init_msg_list);
2378: -- Make sure PL/SQL table has records in it before passing
2392: END LOOP;
2393: END IF;
2394:
2395: IF (l_debug = 'Y') THEN
2396: okc_debug.log('10000: Exiting update_row', 2);
2397: okc_debug.Reset_Indentation;
2398: END IF;
2399:
2400: EXCEPTION
2393: END IF;
2394:
2395: IF (l_debug = 'Y') THEN
2396: okc_debug.log('10000: Exiting update_row', 2);
2397: okc_debug.Reset_Indentation;
2398: END IF;
2399:
2400: EXCEPTION
2401: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2400: EXCEPTION
2401: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2402:
2403: IF (l_debug = 'Y') THEN
2404: okc_debug.log('10100: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2405: okc_debug.Reset_Indentation;
2406: END IF;
2407:
2408: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2401: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2402:
2403: IF (l_debug = 'Y') THEN
2404: okc_debug.log('10100: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2405: okc_debug.Reset_Indentation;
2406: END IF;
2407:
2408: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2409: (
2416: );
2417: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2418:
2419: IF (l_debug = 'Y') THEN
2420: okc_debug.log('10200: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2421: okc_debug.Reset_Indentation;
2422: END IF;
2423:
2424: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2417: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2418:
2419: IF (l_debug = 'Y') THEN
2420: okc_debug.log('10200: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2421: okc_debug.Reset_Indentation;
2422: END IF;
2423:
2424: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2425: (
2432: );
2433: WHEN OTHERS THEN
2434:
2435: IF (l_debug = 'Y') THEN
2436: okc_debug.log('10300: Exiting update_row:OTHERS Exception', 2);
2437: okc_debug.Reset_Indentation;
2438: END IF;
2439:
2440: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2433: WHEN OTHERS THEN
2434:
2435: IF (l_debug = 'Y') THEN
2436: okc_debug.log('10300: Exiting update_row:OTHERS Exception', 2);
2437: okc_debug.Reset_Indentation;
2438: END IF;
2439:
2440: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2441: (
2469: l_row_notfound BOOLEAN := TRUE;
2470: BEGIN
2471:
2472: IF (l_debug = 'Y') THEN
2473: okc_debug.Set_Indentation('OKC_PAA_PVT');
2474: okc_debug.log('10400: Entered delete_row', 2);
2475: END IF;
2476:
2477: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2470: BEGIN
2471:
2472: IF (l_debug = 'Y') THEN
2473: okc_debug.Set_Indentation('OKC_PAA_PVT');
2474: okc_debug.log('10400: Entered delete_row', 2);
2475: END IF;
2476:
2477: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2478: p_init_msg_list,
2488:
2489: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2490:
2491: IF (l_debug = 'Y') THEN
2492: okc_debug.log('10500: Exiting delete_row', 2);
2493: okc_debug.Reset_Indentation;
2494: END IF;
2495:
2496: EXCEPTION
2489: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2490:
2491: IF (l_debug = 'Y') THEN
2492: okc_debug.log('10500: Exiting delete_row', 2);
2493: okc_debug.Reset_Indentation;
2494: END IF;
2495:
2496: EXCEPTION
2497: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2496: EXCEPTION
2497: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2498:
2499: IF (l_debug = 'Y') THEN
2500: okc_debug.log('10600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2501: okc_debug.Reset_Indentation;
2502: END IF;
2503:
2504: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2497: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2498:
2499: IF (l_debug = 'Y') THEN
2500: okc_debug.log('10600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2501: okc_debug.Reset_Indentation;
2502: END IF;
2503:
2504: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2505: (
2512: );
2513: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2514:
2515: IF (l_debug = 'Y') THEN
2516: okc_debug.log('10700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2517: okc_debug.Reset_Indentation;
2518: END IF;
2519:
2520: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2513: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2514:
2515: IF (l_debug = 'Y') THEN
2516: okc_debug.log('10700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2517: okc_debug.Reset_Indentation;
2518: END IF;
2519:
2520: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2521: (
2528: );
2529: WHEN OTHERS THEN
2530:
2531: IF (l_debug = 'Y') THEN
2532: okc_debug.log('10800: Exiting delete_row:OTHERS Exception', 2);
2533: okc_debug.Reset_Indentation;
2534: END IF;
2535:
2536: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2529: WHEN OTHERS THEN
2530:
2531: IF (l_debug = 'Y') THEN
2532: okc_debug.log('10800: Exiting delete_row:OTHERS Exception', 2);
2533: okc_debug.Reset_Indentation;
2534: END IF;
2535:
2536: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2537: (
2562: l_paa_rec paa_rec_type;
2563: BEGIN
2564:
2565: IF (l_debug = 'Y') THEN
2566: okc_debug.Set_Indentation('OKC_PAA_PVT');
2567: okc_debug.log('10900: Entered delete_row', 2);
2568: END IF;
2569:
2570: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2563: BEGIN
2564:
2565: IF (l_debug = 'Y') THEN
2566: okc_debug.Set_Indentation('OKC_PAA_PVT');
2567: okc_debug.log('10900: Entered delete_row', 2);
2568: END IF;
2569:
2570: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2571: G_PKG_NAME,
2600: END IF;
2601: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2602:
2603: IF (l_debug = 'Y') THEN
2604: okc_debug.log('11000: Exiting delete_row', 2);
2605: okc_debug.Reset_Indentation;
2606: END IF;
2607:
2608: EXCEPTION
2601: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2602:
2603: IF (l_debug = 'Y') THEN
2604: okc_debug.log('11000: Exiting delete_row', 2);
2605: okc_debug.Reset_Indentation;
2606: END IF;
2607:
2608: EXCEPTION
2609: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2608: EXCEPTION
2609: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2610:
2611: IF (l_debug = 'Y') THEN
2612: okc_debug.log('11100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2613: okc_debug.Reset_Indentation;
2614: END IF;
2615:
2616: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2609: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2610:
2611: IF (l_debug = 'Y') THEN
2612: okc_debug.log('11100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2613: okc_debug.Reset_Indentation;
2614: END IF;
2615:
2616: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2617: (
2624: );
2625: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2626:
2627: IF (l_debug = 'Y') THEN
2628: okc_debug.log('11200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2629: okc_debug.Reset_Indentation;
2630: END IF;
2631:
2632: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2625: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2626:
2627: IF (l_debug = 'Y') THEN
2628: okc_debug.log('11200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2629: okc_debug.Reset_Indentation;
2630: END IF;
2631:
2632: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2633: (
2640: );
2641: WHEN OTHERS THEN
2642:
2643: IF (l_debug = 'Y') THEN
2644: okc_debug.log('11300: Exiting delete_row:OTHERS Exception', 2);
2645: okc_debug.Reset_Indentation;
2646: END IF;
2647:
2648: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2641: WHEN OTHERS THEN
2642:
2643: IF (l_debug = 'Y') THEN
2644: okc_debug.log('11300: Exiting delete_row:OTHERS Exception', 2);
2645: okc_debug.Reset_Indentation;
2646: END IF;
2647:
2648: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2649: (
2673: i NUMBER := 0;
2674: BEGIN
2675:
2676: IF (l_debug = 'Y') THEN
2677: okc_debug.Set_Indentation('OKC_PAA_PVT');
2678: okc_debug.log('11400: Entered delete_row', 2);
2679: END IF;
2680:
2681: OKC_API.init_msg_list(p_init_msg_list);
2674: BEGIN
2675:
2676: IF (l_debug = 'Y') THEN
2677: okc_debug.Set_Indentation('OKC_PAA_PVT');
2678: okc_debug.log('11400: Entered delete_row', 2);
2679: END IF;
2680:
2681: OKC_API.init_msg_list(p_init_msg_list);
2682: -- Make sure PL/SQL table has records in it before passing
2695: END LOOP;
2696: END IF;
2697:
2698: IF (l_debug = 'Y') THEN
2699: okc_debug.log('11500: Exiting delete_row', 2);
2700: okc_debug.Reset_Indentation;
2701: END IF;
2702:
2703: EXCEPTION
2696: END IF;
2697:
2698: IF (l_debug = 'Y') THEN
2699: okc_debug.log('11500: Exiting delete_row', 2);
2700: okc_debug.Reset_Indentation;
2701: END IF;
2702:
2703: EXCEPTION
2704: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2703: EXCEPTION
2704: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2705:
2706: IF (l_debug = 'Y') THEN
2707: okc_debug.log('11600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2708: okc_debug.Reset_Indentation;
2709: END IF;
2710:
2711: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2704: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2705:
2706: IF (l_debug = 'Y') THEN
2707: okc_debug.log('11600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2708: okc_debug.Reset_Indentation;
2709: END IF;
2710:
2711: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2712: (
2719: );
2720: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2721:
2722: IF (l_debug = 'Y') THEN
2723: okc_debug.log('11700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2724: okc_debug.Reset_Indentation;
2725: END IF;
2726:
2727: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2720: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2721:
2722: IF (l_debug = 'Y') THEN
2723: okc_debug.log('11700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2724: okc_debug.Reset_Indentation;
2725: END IF;
2726:
2727: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2728: (
2735: );
2736: WHEN OTHERS THEN
2737:
2738: IF (l_debug = 'Y') THEN
2739: okc_debug.log('11800: Exiting delete_row:OTHERS Exception', 2);
2740: okc_debug.Reset_Indentation;
2741: END IF;
2742:
2743: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2736: WHEN OTHERS THEN
2737:
2738: IF (l_debug = 'Y') THEN
2739: okc_debug.log('11800: Exiting delete_row:OTHERS Exception', 2);
2740: okc_debug.Reset_Indentation;
2741: END IF;
2742:
2743: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2744: (
2761:
2762: BEGIN
2763:
2764: IF (l_debug = 'Y') THEN
2765: okc_debug.Set_Indentation('OKC_PAA_PVT');
2766: okc_debug.log('11900: Entered create_version', 2);
2767: END IF;
2768:
2769: INSERT INTO okc_price_adj_attribs_h
2762: BEGIN
2763:
2764: IF (l_debug = 'Y') THEN
2765: okc_debug.Set_Indentation('OKC_PAA_PVT');
2766: okc_debug.log('11900: Entered create_version', 2);
2767: END IF;
2768:
2769: INSERT INTO okc_price_adj_attribs_h
2770: (
2814: WHERE chr_id = p_chr_id
2815: );
2816:
2817: IF (l_debug = 'Y') THEN
2818: okc_debug.log('12000: Exiting create_version', 2);
2819: okc_debug.Reset_Indentation;
2820: END IF;
2821:
2822: RETURN l_return_status;
2815: );
2816:
2817: IF (l_debug = 'Y') THEN
2818: okc_debug.log('12000: Exiting create_version', 2);
2819: okc_debug.Reset_Indentation;
2820: END IF;
2821:
2822: RETURN l_return_status;
2823:
2825: -- other appropriate handlers
2826: WHEN OTHERS THEN
2827:
2828: IF (l_debug = 'Y') THEN
2829: okc_debug.log('12100: Exiting create_version:OTHERS Exception', 2);
2830: okc_debug.Reset_Indentation;
2831: END IF;
2832:
2833: -- store SQL error message on message stack
2826: WHEN OTHERS THEN
2827:
2828: IF (l_debug = 'Y') THEN
2829: okc_debug.log('12100: Exiting create_version:OTHERS Exception', 2);
2830: okc_debug.Reset_Indentation;
2831: END IF;
2832:
2833: -- store SQL error message on message stack
2834: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
2854:
2855: BEGIN
2856:
2857: IF (l_debug = 'Y') THEN
2858: okc_debug.Set_Indentation('OKC_PAA_PVT');
2859: okc_debug.log('12200: Entered restore_version', 2);
2860: END IF;
2861:
2862: INSERT INTO okc_price_adj_attribs
2855: BEGIN
2856:
2857: IF (l_debug = 'Y') THEN
2858: okc_debug.Set_Indentation('OKC_PAA_PVT');
2859: okc_debug.log('12200: Entered restore_version', 2);
2860: END IF;
2861:
2862: INSERT INTO okc_price_adj_attribs
2863: (
2907: )
2908: AND major_version = p_major_version;
2909:
2910: IF (l_debug = 'Y') THEN
2911: okc_debug.log('12300: Exiting restore_version', 2);
2912: okc_debug.Reset_Indentation;
2913: END IF;
2914:
2915: RETURN l_return_status;
2908: AND major_version = p_major_version;
2909:
2910: IF (l_debug = 'Y') THEN
2911: okc_debug.log('12300: Exiting restore_version', 2);
2912: okc_debug.Reset_Indentation;
2913: END IF;
2914:
2915: RETURN l_return_status;
2916:
2918: -- other appropriate handlers
2919: WHEN OTHERS THEN
2920:
2921: IF (l_debug = 'Y') THEN
2922: okc_debug.log('12400: Exiting restore_version:OTHERS Exception', 2);
2923: okc_debug.Reset_Indentation;
2924: END IF;
2925:
2926: -- store SQL error message on message stack
2919: WHEN OTHERS THEN
2920:
2921: IF (l_debug = 'Y') THEN
2922: okc_debug.log('12400: Exiting restore_version:OTHERS Exception', 2);
2923: okc_debug.Reset_Indentation;
2924: END IF;
2925:
2926: -- store SQL error message on message stack
2927: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,