73: l_pac_rec pac_rec_type;
74: BEGIN
75:
76: IF (l_debug = 'Y') THEN
77: okc_debug.Set_Indentation('OKC_PAC_PVT');
78: okc_debug.log('500: Entered get_rec', 2);
79: END IF;
80:
81: x_no_data_found := TRUE;
74: BEGIN
75:
76: IF (l_debug = 'Y') THEN
77: okc_debug.Set_Indentation('OKC_PAC_PVT');
78: okc_debug.log('500: Entered get_rec', 2);
79: END IF;
80:
81: x_no_data_found := TRUE;
82: -- Get current database values
101: x_no_data_found := pac_pk_csr%NOTFOUND;
102: CLOSE pac_pk_csr;
103:
104: IF (l_debug = 'Y') THEN
105: okc_debug.log('550: Leaving Fn Get_Rec ', 2);
106: okc_debug.Reset_Indentation;
107: END IF;
108:
109: RETURN(l_pac_rec);
102: CLOSE pac_pk_csr;
103:
104: IF (l_debug = 'Y') THEN
105: okc_debug.log('550: Leaving Fn Get_Rec ', 2);
106: okc_debug.Reset_Indentation;
107: END IF;
108:
109: RETURN(l_pac_rec);
110:
150: l_pacv_rec pacv_rec_type;
151: BEGIN
152:
153: IF (l_debug = 'Y') THEN
154: okc_debug.Set_Indentation('OKC_PAC_PVT');
155: okc_debug.log('700: Entered get_rec', 2);
156: END IF;
157:
158: x_no_data_found := TRUE;
151: BEGIN
152:
153: IF (l_debug = 'Y') THEN
154: okc_debug.Set_Indentation('OKC_PAC_PVT');
155: okc_debug.log('700: Entered get_rec', 2);
156: END IF;
157:
158: x_no_data_found := TRUE;
159: -- Get current database values
179: x_no_data_found := okc_pacv_pk_csr%NOTFOUND;
180: CLOSE okc_pacv_pk_csr;
181:
182: IF (l_debug = 'Y') THEN
183: okc_debug.log('800: Leaving Fn Get_Rec ', 2);
184: okc_debug.Reset_Indentation;
185: END IF;
186:
187: RETURN(l_pacv_rec);
180: CLOSE okc_pacv_pk_csr;
181:
182: IF (l_debug = 'Y') THEN
183: okc_debug.log('800: Leaving Fn Get_Rec ', 2);
184: okc_debug.Reset_Indentation;
185: END IF;
186:
187: RETURN(l_pacv_rec);
188:
207: l_pacv_rec pacv_rec_type := p_pacv_rec;
208: BEGIN
209:
210: IF (l_debug = 'Y') THEN
211: okc_debug.Set_Indentation('OKC_PAC_PVT');
212: okc_debug.log('900: Entered null_out_defaults', 2);
213: END IF;
214:
215: IF (l_pacv_rec.pat_id = OKC_API.G_MISS_NUM) THEN
208: BEGIN
209:
210: IF (l_debug = 'Y') THEN
211: okc_debug.Set_Indentation('OKC_PAC_PVT');
212: okc_debug.log('900: Entered null_out_defaults', 2);
213: END IF;
214:
215: IF (l_pacv_rec.pat_id = OKC_API.G_MISS_NUM) THEN
216: l_pacv_rec.pat_id := NULL;
258: l_pacv_rec.object_version_number := NULL;
259: END IF;
260:
261: IF (l_debug = 'Y') THEN
262: okc_debug.log('1000: Leaving null_out_defaults ', 2);
263: okc_debug.Reset_Indentation;
264: END IF;
265:
266: RETURN(l_pacv_rec);
259: END IF;
260:
261: IF (l_debug = 'Y') THEN
262: okc_debug.log('1000: Leaving null_out_defaults ', 2);
263: okc_debug.Reset_Indentation;
264: END IF;
265:
266: RETURN(l_pacv_rec);
267:
280: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
281: BEGIN
282:
283: IF (l_debug = 'Y') THEN
284: okc_debug.Set_Indentation('OKC_PAC_PVT');
285: okc_debug.log('1000: Entered validate_id', 2);
286: END IF;
287:
288: IF p_pacv_rec.id = OKC_API.G_MISS_NUM OR
281: BEGIN
282:
283: IF (l_debug = 'Y') THEN
284: okc_debug.Set_Indentation('OKC_PAC_PVT');
285: okc_debug.log('1000: Entered validate_id', 2);
286: END IF;
287:
288: IF p_pacv_rec.id = OKC_API.G_MISS_NUM OR
289: p_pacv_rec.id IS NULL
293: END IF;
294: x_return_status := l_return_status;
295:
296: IF (l_debug = 'Y') THEN
297: okc_debug.log('1100: Leaving validate_id', 2);
298: okc_debug.Reset_Indentation;
299: END IF;
300:
301: EXCEPTION
294: x_return_status := l_return_status;
295:
296: IF (l_debug = 'Y') THEN
297: okc_debug.log('1100: Leaving validate_id', 2);
298: okc_debug.Reset_Indentation;
299: END IF;
300:
301: EXCEPTION
302: WHEN OTHERS THEN
301: EXCEPTION
302: WHEN OTHERS THEN
303:
304: IF (l_debug = 'Y') THEN
305: okc_debug.log('1200: Exiting validate_id:OTHERS Exception', 2);
306: okc_debug.Reset_Indentation;
307: END IF;
308:
309: -- store SQL error message on message stack for caller
302: WHEN OTHERS THEN
303:
304: IF (l_debug = 'Y') THEN
305: okc_debug.log('1200: Exiting validate_id:OTHERS Exception', 2);
306: okc_debug.Reset_Indentation;
307: END IF;
308:
309: -- store SQL error message on message stack for caller
310: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
323: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
324: BEGIN
325:
326: IF (l_debug = 'Y') THEN
327: okc_debug.Set_Indentation('OKC_PAC_PVT');
328: okc_debug.log('1300: Entered validate_pat_id_from', 2);
329: END IF;
330:
331: IF p_pacv_rec.pat_id_from = OKC_API.G_MISS_NUM OR
324: BEGIN
325:
326: IF (l_debug = 'Y') THEN
327: okc_debug.Set_Indentation('OKC_PAC_PVT');
328: okc_debug.log('1300: Entered validate_pat_id_from', 2);
329: END IF;
330:
331: IF p_pacv_rec.pat_id_from = OKC_API.G_MISS_NUM OR
332: p_pacv_rec.pat_id_from IS NULL
336: END IF;
337: x_return_status := l_return_status;
338:
339: IF (l_debug = 'Y') THEN
340: okc_debug.log('1400: Leaving validate_pat_id_from', 2);
341: okc_debug.Reset_Indentation;
342: END IF;
343:
344: EXCEPTION
337: x_return_status := l_return_status;
338:
339: IF (l_debug = 'Y') THEN
340: okc_debug.log('1400: Leaving validate_pat_id_from', 2);
341: okc_debug.Reset_Indentation;
342: END IF;
343:
344: EXCEPTION
345: WHEN OTHERS THEN
344: EXCEPTION
345: WHEN OTHERS THEN
346:
347: IF (l_debug = 'Y') THEN
348: okc_debug.log('1500: Exiting validate_pat_id_from:OTHERS Exception', 2);
349: okc_debug.Reset_Indentation;
350: END IF;
351:
352: -- store SQL error message on message stack for caller
345: WHEN OTHERS THEN
346:
347: IF (l_debug = 'Y') THEN
348: okc_debug.log('1500: Exiting validate_pat_id_from:OTHERS Exception', 2);
349: okc_debug.Reset_Indentation;
350: END IF;
351:
352: -- store SQL error message on message stack for caller
353: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
370: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
371: BEGIN
372:
373: IF (l_debug = 'Y') THEN
374: okc_debug.Set_Indentation('OKC_PAC_PVT');
375: okc_debug.log('1600: Entered Validate_Attributes', 2);
376: END IF;
377:
378: ---------------------------------------------------------------------------------------
371: BEGIN
372:
373: IF (l_debug = 'Y') THEN
374: okc_debug.Set_Indentation('OKC_PAC_PVT');
375: okc_debug.log('1600: Entered Validate_Attributes', 2);
376: END IF;
377:
378: ---------------------------------------------------------------------------------------
379: --Attribute Level Validation Procedure Calls Starts(Modification on TAPI generated Code.)--
408: END IF;
409: END IF;
410:
411: IF (l_debug = 'Y') THEN
412: okc_debug.log('1700: Leaving Validate_Attributes', 2);
413: okc_debug.Reset_Indentation;
414: END IF;
415:
416: RETURN(x_return_status);
409: END IF;
410:
411: IF (l_debug = 'Y') THEN
412: okc_debug.log('1700: Leaving Validate_Attributes', 2);
413: okc_debug.Reset_Indentation;
414: END IF;
415:
416: RETURN(x_return_status);
417:
418: EXCEPTION
419: WHEN G_EXCEPTION_HALT_VALIDATION THEN
420:
421: IF (l_debug = 'Y') THEN
422: okc_debug.log('1800: Exiting Validate_Attributes:G_EXCEPTION_HALT_VALIDATION Exception', 2);
423: okc_debug.Reset_Indentation;
424: END IF;
425:
426: return(x_return_status);
419: WHEN G_EXCEPTION_HALT_VALIDATION THEN
420:
421: IF (l_debug = 'Y') THEN
422: okc_debug.log('1800: Exiting Validate_Attributes:G_EXCEPTION_HALT_VALIDATION Exception', 2);
423: okc_debug.Reset_Indentation;
424: END IF;
425:
426: return(x_return_status);
427: WHEN OTHERS THEN
426: return(x_return_status);
427: WHEN OTHERS THEN
428:
429: IF (l_debug = 'Y') THEN
430: okc_debug.log('1900: Exiting Validate_Attributes:OTHERS Exception', 2);
431: okc_debug.Reset_Indentation;
432: END IF;
433:
434: -- store SQL error message on message stack for caller
427: WHEN OTHERS THEN
428:
429: IF (l_debug = 'Y') THEN
430: okc_debug.log('1900: Exiting Validate_Attributes:OTHERS Exception', 2);
431: okc_debug.Reset_Indentation;
432: END IF;
433:
434: -- store SQL error message on message stack for caller
435: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
545: END IF;
546: END IF;
547:
548: IF (l_debug = 'Y') THEN
549: okc_debug.log('2100: Leaving validate_foreign_keys', 2);
550: okc_debug.Reset_Indentation;
551: END IF;
552:
553: RETURN (l_return_status);
546: END IF;
547:
548: IF (l_debug = 'Y') THEN
549: okc_debug.log('2100: Leaving validate_foreign_keys', 2);
550: okc_debug.Reset_Indentation;
551: END IF;
552:
553: RETURN (l_return_status);
554:
555: EXCEPTION
556: WHEN item_not_found_error THEN
557:
558: IF (l_debug = 'Y') THEN
559: okc_debug.log('2200: Exiting validate_foreign_keys:item_not_found_error Exception', 2);
560: okc_debug.Reset_Indentation;
561: END IF;
562:
563: l_return_status := OKC_API.G_RET_STS_ERROR;
556: WHEN item_not_found_error THEN
557:
558: IF (l_debug = 'Y') THEN
559: okc_debug.log('2200: Exiting validate_foreign_keys:item_not_found_error Exception', 2);
560: okc_debug.Reset_Indentation;
561: END IF;
562:
563: l_return_status := OKC_API.G_RET_STS_ERROR;
564: RETURN (l_return_status);
566: END validate_foreign_keys;
567: BEGIN
568:
569: IF (l_debug = 'Y') THEN
570: okc_debug.Set_Indentation('OKC_PAC_PVT');
571: okc_debug.log('2300: Entered Validate_Record', 2);
572: END IF;
573:
574: l_return_status := validate_foreign_keys (p_pacv_rec);
567: BEGIN
568:
569: IF (l_debug = 'Y') THEN
570: okc_debug.Set_Indentation('OKC_PAC_PVT');
571: okc_debug.log('2300: Entered Validate_Record', 2);
572: END IF;
573:
574: l_return_status := validate_foreign_keys (p_pacv_rec);
575:
574: l_return_status := validate_foreign_keys (p_pacv_rec);
575:
576:
577: IF (l_debug = 'Y') THEN
578: okc_debug.log('2350: Leaving Validate_Record', 2);
579: okc_debug.Reset_Indentation;
580: END IF;
581:
582: RETURN (l_return_status);
575:
576:
577: IF (l_debug = 'Y') THEN
578: okc_debug.log('2350: Leaving Validate_Record', 2);
579: okc_debug.Reset_Indentation;
580: END IF;
581:
582: RETURN (l_return_status);
583: END Validate_Record;
655: l_pac_rec pac_rec_type;
656: BEGIN
657:
658: IF (l_debug = 'Y') THEN
659: okc_debug.Set_Indentation('OKC_PAC_PVT');
660: okc_debug.log('2600: Entered validate_row', 2);
661: END IF;
662:
663: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
656: BEGIN
657:
658: IF (l_debug = 'Y') THEN
659: okc_debug.Set_Indentation('OKC_PAC_PVT');
660: okc_debug.log('2600: Entered validate_row', 2);
661: END IF;
662:
663: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
664: G_PKG_NAME,
688: END IF;
689: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
690:
691: IF (l_debug = 'Y') THEN
692: okc_debug.log('2700: Leaving validate_row', 2);
693: okc_debug.Reset_Indentation;
694: END IF;
695:
696: EXCEPTION
689: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
690:
691: IF (l_debug = 'Y') THEN
692: okc_debug.log('2700: Leaving validate_row', 2);
693: okc_debug.Reset_Indentation;
694: END IF;
695:
696: EXCEPTION
697: WHEN OKC_API.G_EXCEPTION_ERROR THEN
696: EXCEPTION
697: WHEN OKC_API.G_EXCEPTION_ERROR THEN
698:
699: IF (l_debug = 'Y') THEN
700: okc_debug.log('2800: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
701: okc_debug.Reset_Indentation;
702: END IF;
703:
704: x_return_status := OKC_API.HANDLE_EXCEPTIONS
697: WHEN OKC_API.G_EXCEPTION_ERROR THEN
698:
699: IF (l_debug = 'Y') THEN
700: okc_debug.log('2800: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
701: okc_debug.Reset_Indentation;
702: END IF;
703:
704: x_return_status := OKC_API.HANDLE_EXCEPTIONS
705: (
712: );
713: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
714:
715: IF (l_debug = 'Y') THEN
716: okc_debug.log('2900: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
717: okc_debug.Reset_Indentation;
718: END IF;
719:
720: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
713: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
714:
715: IF (l_debug = 'Y') THEN
716: okc_debug.log('2900: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
717: okc_debug.Reset_Indentation;
718: END IF;
719:
720: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
721: (
728: );
729: WHEN OTHERS THEN
730:
731: IF (l_debug = 'Y') THEN
732: okc_debug.log('3000: Exiting validate_row:OTHERS Exception', 2);
733: okc_debug.Reset_Indentation;
734: END IF;
735:
736: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
729: WHEN OTHERS THEN
730:
731: IF (l_debug = 'Y') THEN
732: okc_debug.log('3000: Exiting validate_row:OTHERS Exception', 2);
733: okc_debug.Reset_Indentation;
734: END IF;
735:
736: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
737: (
761: i NUMBER := 0;
762: BEGIN
763:
764: IF (l_debug = 'Y') THEN
765: okc_debug.Set_Indentation('OKC_PAC_PVT');
766: okc_debug.log('3100: Entered validate_row', 2);
767: END IF;
768:
769: OKC_API.init_msg_list(p_init_msg_list);
762: BEGIN
763:
764: IF (l_debug = 'Y') THEN
765: okc_debug.Set_Indentation('OKC_PAC_PVT');
766: okc_debug.log('3100: Entered validate_row', 2);
767: END IF;
768:
769: OKC_API.init_msg_list(p_init_msg_list);
770: -- Make sure PL/SQL table has records in it before passing
783: END LOOP;
784: END IF;
785:
786: IF (l_debug = 'Y') THEN
787: okc_debug.log('3200: Leaving validate_row', 2);
788: okc_debug.Reset_Indentation;
789: END IF;
790:
791: EXCEPTION
784: END IF;
785:
786: IF (l_debug = 'Y') THEN
787: okc_debug.log('3200: Leaving validate_row', 2);
788: okc_debug.Reset_Indentation;
789: END IF;
790:
791: EXCEPTION
792: WHEN OKC_API.G_EXCEPTION_ERROR THEN
791: EXCEPTION
792: WHEN OKC_API.G_EXCEPTION_ERROR THEN
793:
794: IF (l_debug = 'Y') THEN
795: okc_debug.log('3300: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
796: okc_debug.Reset_Indentation;
797: END IF;
798:
799: x_return_status := OKC_API.HANDLE_EXCEPTIONS
792: WHEN OKC_API.G_EXCEPTION_ERROR THEN
793:
794: IF (l_debug = 'Y') THEN
795: okc_debug.log('3300: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
796: okc_debug.Reset_Indentation;
797: END IF;
798:
799: x_return_status := OKC_API.HANDLE_EXCEPTIONS
800: (
807: );
808: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
809:
810: IF (l_debug = 'Y') THEN
811: okc_debug.log('3400: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
812: okc_debug.Reset_Indentation;
813: END IF;
814:
815: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
808: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
809:
810: IF (l_debug = 'Y') THEN
811: okc_debug.log('3400: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
812: okc_debug.Reset_Indentation;
813: END IF;
814:
815: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
816: (
823: );
824: WHEN OTHERS THEN
825:
826: IF (l_debug = 'Y') THEN
827: okc_debug.log('3500: Exiting validate_row:OTHERS Exception', 2);
828: okc_debug.Reset_Indentation;
829: END IF;
830:
831: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
824: WHEN OTHERS THEN
825:
826: IF (l_debug = 'Y') THEN
827: okc_debug.log('3500: Exiting validate_row:OTHERS Exception', 2);
828: okc_debug.Reset_Indentation;
829: END IF;
830:
831: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
832: (
875: END Set_Attributes;
876: BEGIN
877:
878: IF (l_debug = 'Y') THEN
879: okc_debug.Set_Indentation('OKC_PAC_PVT');
880: okc_debug.log('3700: Entered insert_row', 2);
881: END IF;
882:
883: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
876: BEGIN
877:
878: IF (l_debug = 'Y') THEN
879: okc_debug.Set_Indentation('OKC_PAC_PVT');
880: okc_debug.log('3700: Entered insert_row', 2);
881: END IF;
882:
883: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
884: p_init_msg_list,
937: x_pac_rec := l_pac_rec;
938: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
939:
940: IF (l_debug = 'Y') THEN
941: okc_debug.log('3800: Leaving insert_row', 2);
942: okc_debug.Reset_Indentation;
943: END IF;
944:
945: EXCEPTION
938: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
939:
940: IF (l_debug = 'Y') THEN
941: okc_debug.log('3800: Leaving insert_row', 2);
942: okc_debug.Reset_Indentation;
943: END IF;
944:
945: EXCEPTION
946: WHEN OKC_API.G_EXCEPTION_ERROR THEN
945: EXCEPTION
946: WHEN OKC_API.G_EXCEPTION_ERROR THEN
947:
948: IF (l_debug = 'Y') THEN
949: okc_debug.log('3900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
950: okc_debug.Reset_Indentation;
951: END IF;
952:
953: x_return_status := OKC_API.HANDLE_EXCEPTIONS
946: WHEN OKC_API.G_EXCEPTION_ERROR THEN
947:
948: IF (l_debug = 'Y') THEN
949: okc_debug.log('3900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
950: okc_debug.Reset_Indentation;
951: END IF;
952:
953: x_return_status := OKC_API.HANDLE_EXCEPTIONS
954: (
961: );
962: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
963:
964: IF (l_debug = 'Y') THEN
965: okc_debug.log('4000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
966: okc_debug.Reset_Indentation;
967: END IF;
968:
969: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
962: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
963:
964: IF (l_debug = 'Y') THEN
965: okc_debug.log('4000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
966: okc_debug.Reset_Indentation;
967: END IF;
968:
969: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
970: (
977: );
978: WHEN OTHERS THEN
979:
980: IF (l_debug = 'Y') THEN
981: okc_debug.log('4100: Exiting insert_row:OTHERS Exception', 2);
982: okc_debug.Reset_Indentation;
983: END IF;
984:
985: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
978: WHEN OTHERS THEN
979:
980: IF (l_debug = 'Y') THEN
981: okc_debug.log('4100: Exiting insert_row:OTHERS Exception', 2);
982: okc_debug.Reset_Indentation;
983: END IF;
984:
985: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
986: (
1046: END Set_Attributes;
1047: BEGIN
1048:
1049: IF (l_debug = 'Y') THEN
1050: okc_debug.Set_Indentation('OKC_PAC_PVT');
1051: okc_debug.log('4400: Entered insert_row', 2);
1052: END IF;
1053:
1054: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1047: BEGIN
1048:
1049: IF (l_debug = 'Y') THEN
1050: okc_debug.Set_Indentation('OKC_PAC_PVT');
1051: okc_debug.log('4400: Entered insert_row', 2);
1052: END IF;
1053:
1054: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1055: G_PKG_NAME,
1116: x_pacv_rec := l_def_pacv_rec;
1117: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1118:
1119: IF (l_debug = 'Y') THEN
1120: okc_debug.log('4500: Leaving insert_row', 2);
1121: okc_debug.Reset_Indentation;
1122: END IF;
1123:
1124: EXCEPTION
1117: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1118:
1119: IF (l_debug = 'Y') THEN
1120: okc_debug.log('4500: Leaving insert_row', 2);
1121: okc_debug.Reset_Indentation;
1122: END IF;
1123:
1124: EXCEPTION
1125: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1124: EXCEPTION
1125: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1126:
1127: IF (l_debug = 'Y') THEN
1128: okc_debug.log('4600: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1129: okc_debug.Reset_Indentation;
1130: END IF;
1131:
1132: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1125: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1126:
1127: IF (l_debug = 'Y') THEN
1128: okc_debug.log('4600: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1129: okc_debug.Reset_Indentation;
1130: END IF;
1131:
1132: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1133: (
1140: );
1141: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1142:
1143: IF (l_debug = 'Y') THEN
1144: okc_debug.log('4700: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1145: okc_debug.Reset_Indentation;
1146: END IF;
1147:
1148: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1141: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1142:
1143: IF (l_debug = 'Y') THEN
1144: okc_debug.log('4700: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1145: okc_debug.Reset_Indentation;
1146: END IF;
1147:
1148: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1149: (
1156: );
1157: WHEN OTHERS THEN
1158:
1159: IF (l_debug = 'Y') THEN
1160: okc_debug.log('4800: Exiting insert_row:OTHERS Exception', 2);
1161: okc_debug.Reset_Indentation;
1162: END IF;
1163:
1164: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1157: WHEN OTHERS THEN
1158:
1159: IF (l_debug = 'Y') THEN
1160: okc_debug.log('4800: Exiting insert_row:OTHERS Exception', 2);
1161: okc_debug.Reset_Indentation;
1162: END IF;
1163:
1164: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1165: (
1190: i NUMBER := 0;
1191: BEGIN
1192:
1193: IF (l_debug = 'Y') THEN
1194: okc_debug.Set_Indentation('OKC_PAC_PVT');
1195: okc_debug.log('4900: Entered insert_row', 2);
1196: END IF;
1197:
1198: OKC_API.init_msg_list(p_init_msg_list);
1191: BEGIN
1192:
1193: IF (l_debug = 'Y') THEN
1194: okc_debug.Set_Indentation('OKC_PAC_PVT');
1195: okc_debug.log('4900: Entered insert_row', 2);
1196: END IF;
1197:
1198: OKC_API.init_msg_list(p_init_msg_list);
1199: -- Make sure PL/SQL table has records in it before passing
1213: END LOOP;
1214: END IF;
1215:
1216: IF (l_debug = 'Y') THEN
1217: okc_debug.log('5000: Leaving insert_row', 2);
1218: okc_debug.Reset_Indentation;
1219: END IF;
1220:
1221: EXCEPTION
1214: END IF;
1215:
1216: IF (l_debug = 'Y') THEN
1217: okc_debug.log('5000: Leaving insert_row', 2);
1218: okc_debug.Reset_Indentation;
1219: END IF;
1220:
1221: EXCEPTION
1222: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1221: EXCEPTION
1222: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1223:
1224: IF (l_debug = 'Y') THEN
1225: okc_debug.log('5100: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1226: okc_debug.Reset_Indentation;
1227: END IF;
1228:
1229: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1222: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1223:
1224: IF (l_debug = 'Y') THEN
1225: okc_debug.log('5100: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1226: okc_debug.Reset_Indentation;
1227: END IF;
1228:
1229: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1230: (
1237: );
1238: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1239:
1240: IF (l_debug = 'Y') THEN
1241: okc_debug.log('5200: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1242: okc_debug.Reset_Indentation;
1243: END IF;
1244:
1245: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1238: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1239:
1240: IF (l_debug = 'Y') THEN
1241: okc_debug.log('5200: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1242: okc_debug.Reset_Indentation;
1243: END IF;
1244:
1245: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1246: (
1253: );
1254: WHEN OTHERS THEN
1255:
1256: IF (l_debug = 'Y') THEN
1257: okc_debug.log('5300: Exiting insert_row:OTHERS Exception', 2);
1258: okc_debug.Reset_Indentation;
1259: END IF;
1260:
1261: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1254: WHEN OTHERS THEN
1255:
1256: IF (l_debug = 'Y') THEN
1257: okc_debug.log('5300: Exiting insert_row:OTHERS Exception', 2);
1258: okc_debug.Reset_Indentation;
1259: END IF;
1260:
1261: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1262: (
1299: lc_row_notfound BOOLEAN := FALSE;
1300: BEGIN
1301:
1302: IF (l_debug = 'Y') THEN
1303: okc_debug.Set_Indentation('OKC_PAC_PVT');
1304: okc_debug.log('5400: Entered lock_row', 2);
1305: END IF;
1306:
1307: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1300: BEGIN
1301:
1302: IF (l_debug = 'Y') THEN
1303: okc_debug.Set_Indentation('OKC_PAC_PVT');
1304: okc_debug.log('5400: Entered lock_row', 2);
1305: END IF;
1306:
1307: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1308: p_init_msg_list,
1323: EXCEPTION
1324: WHEN E_Resource_Busy THEN
1325:
1326: IF (l_debug = 'Y') THEN
1327: okc_debug.log('5700: Exiting lock_row:E_Resource_Busy Exception', 2);
1328: okc_debug.Reset_Indentation;
1329: END IF;
1330:
1331: IF (lock_csr%ISOPEN) THEN
1324: WHEN E_Resource_Busy THEN
1325:
1326: IF (l_debug = 'Y') THEN
1327: okc_debug.log('5700: Exiting lock_row:E_Resource_Busy Exception', 2);
1328: okc_debug.Reset_Indentation;
1329: END IF;
1330:
1331: IF (lock_csr%ISOPEN) THEN
1332: CLOSE lock_csr;
1406: END IF;
1407: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1408:
1409: IF (l_debug = 'Y') THEN
1410: okc_debug.log('5800: Leaving lock_row', 2);
1411: okc_debug.Reset_Indentation;
1412: END IF;
1413:
1414: EXCEPTION
1407: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1408:
1409: IF (l_debug = 'Y') THEN
1410: okc_debug.log('5800: Leaving lock_row', 2);
1411: okc_debug.Reset_Indentation;
1412: END IF;
1413:
1414: EXCEPTION
1415: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1414: EXCEPTION
1415: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1416:
1417: IF (l_debug = 'Y') THEN
1418: okc_debug.log('5900: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1419: okc_debug.Reset_Indentation;
1420: END IF;
1421:
1422: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1415: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1416:
1417: IF (l_debug = 'Y') THEN
1418: okc_debug.log('5900: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1419: okc_debug.Reset_Indentation;
1420: END IF;
1421:
1422: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1423: (
1430: );
1431: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1432:
1433: IF (l_debug = 'Y') THEN
1434: okc_debug.log('6000: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1435: okc_debug.Reset_Indentation;
1436: END IF;
1437:
1438: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1431: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1432:
1433: IF (l_debug = 'Y') THEN
1434: okc_debug.log('6000: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1435: okc_debug.Reset_Indentation;
1436: END IF;
1437:
1438: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1439: (
1446: );
1447: WHEN OTHERS THEN
1448:
1449: IF (l_debug = 'Y') THEN
1450: okc_debug.log('6100: Exiting lock_row:OTHERS Exception', 2);
1451: okc_debug.Reset_Indentation;
1452: END IF;
1453:
1454: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1447: WHEN OTHERS THEN
1448:
1449: IF (l_debug = 'Y') THEN
1450: okc_debug.log('6100: Exiting lock_row:OTHERS Exception', 2);
1451: okc_debug.Reset_Indentation;
1452: END IF;
1453:
1454: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1455: (
1479: l_pac_rec pac_rec_type;
1480: BEGIN
1481:
1482: IF (l_debug = 'Y') THEN
1483: okc_debug.Set_Indentation('OKC_PAC_PVT');
1484: okc_debug.log('6200: Entered lock_row', 2);
1485: END IF;
1486:
1487: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1480: BEGIN
1481:
1482: IF (l_debug = 'Y') THEN
1483: okc_debug.Set_Indentation('OKC_PAC_PVT');
1484: okc_debug.log('6200: Entered lock_row', 2);
1485: END IF;
1486:
1487: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1488: G_PKG_NAME,
1517: END IF;
1518: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1519:
1520: IF (l_debug = 'Y') THEN
1521: okc_debug.log('6300: Leaving lock_row', 2);
1522: okc_debug.Reset_Indentation;
1523: END IF;
1524:
1525: EXCEPTION
1518: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1519:
1520: IF (l_debug = 'Y') THEN
1521: okc_debug.log('6300: Leaving lock_row', 2);
1522: okc_debug.Reset_Indentation;
1523: END IF;
1524:
1525: EXCEPTION
1526: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1525: EXCEPTION
1526: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1527:
1528: IF (l_debug = 'Y') THEN
1529: okc_debug.log('6400: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1530: okc_debug.Reset_Indentation;
1531: END IF;
1532:
1533: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1526: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1527:
1528: IF (l_debug = 'Y') THEN
1529: okc_debug.log('6400: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1530: okc_debug.Reset_Indentation;
1531: END IF;
1532:
1533: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1534: (
1541: );
1542: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1543:
1544: IF (l_debug = 'Y') THEN
1545: okc_debug.log('6500: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1546: okc_debug.Reset_Indentation;
1547: END IF;
1548:
1549: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1542: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1543:
1544: IF (l_debug = 'Y') THEN
1545: okc_debug.log('6500: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1546: okc_debug.Reset_Indentation;
1547: END IF;
1548:
1549: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1550: (
1557: );
1558: WHEN OTHERS THEN
1559:
1560: IF (l_debug = 'Y') THEN
1561: okc_debug.log('6600: Exiting lock_row:OTHERS Exception', 2);
1562: okc_debug.Reset_Indentation;
1563: END IF;
1564:
1565: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1558: WHEN OTHERS THEN
1559:
1560: IF (l_debug = 'Y') THEN
1561: okc_debug.log('6600: Exiting lock_row:OTHERS Exception', 2);
1562: okc_debug.Reset_Indentation;
1563: END IF;
1564:
1565: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1566: (
1590: i NUMBER := 0;
1591: BEGIN
1592:
1593: IF (l_debug = 'Y') THEN
1594: okc_debug.Set_Indentation('OKC_PAC_PVT');
1595: okc_debug.log('6700: Entered lock_row', 2);
1596: END IF;
1597:
1598: OKC_API.init_msg_list(p_init_msg_list);
1591: BEGIN
1592:
1593: IF (l_debug = 'Y') THEN
1594: okc_debug.Set_Indentation('OKC_PAC_PVT');
1595: okc_debug.log('6700: Entered lock_row', 2);
1596: END IF;
1597:
1598: OKC_API.init_msg_list(p_init_msg_list);
1599: -- Make sure PL/SQL table has records in it before passing
1612: END LOOP;
1613: END IF;
1614:
1615: IF (l_debug = 'Y') THEN
1616: okc_debug.log('6800: Leaving lock_row', 2);
1617: okc_debug.Reset_Indentation;
1618: END IF;
1619:
1620: EXCEPTION
1613: END IF;
1614:
1615: IF (l_debug = 'Y') THEN
1616: okc_debug.log('6800: Leaving lock_row', 2);
1617: okc_debug.Reset_Indentation;
1618: END IF;
1619:
1620: EXCEPTION
1621: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1620: EXCEPTION
1621: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1622:
1623: IF (l_debug = 'Y') THEN
1624: okc_debug.log('6900: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1625: okc_debug.Reset_Indentation;
1626: END IF;
1627:
1628: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1621: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1622:
1623: IF (l_debug = 'Y') THEN
1624: okc_debug.log('6900: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1625: okc_debug.Reset_Indentation;
1626: END IF;
1627:
1628: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1629: (
1636: );
1637: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1638:
1639: IF (l_debug = 'Y') THEN
1640: okc_debug.log('7000: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1641: okc_debug.Reset_Indentation;
1642: END IF;
1643:
1644: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1637: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1638:
1639: IF (l_debug = 'Y') THEN
1640: okc_debug.log('7000: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1641: okc_debug.Reset_Indentation;
1642: END IF;
1643:
1644: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1645: (
1652: );
1653: WHEN OTHERS THEN
1654:
1655: IF (l_debug = 'Y') THEN
1656: okc_debug.log('7100: Exiting lock_row:OTHERS Exception', 2);
1657: okc_debug.Reset_Indentation;
1658: END IF;
1659:
1660: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1653: WHEN OTHERS THEN
1654:
1655: IF (l_debug = 'Y') THEN
1656: okc_debug.log('7100: Exiting lock_row:OTHERS Exception', 2);
1657: okc_debug.Reset_Indentation;
1658: END IF;
1659:
1660: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1661: (
1701: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1702: BEGIN
1703:
1704: IF (l_debug = 'Y') THEN
1705: okc_debug.Set_Indentation('OKC_PAC_PVT');
1706: okc_debug.log('7200: Entered populate_new_record', 2);
1707: END IF;
1708:
1709: x_pac_rec := p_pac_rec;
1702: BEGIN
1703:
1704: IF (l_debug = 'Y') THEN
1705: okc_debug.Set_Indentation('OKC_PAC_PVT');
1706: okc_debug.log('7200: Entered populate_new_record', 2);
1707: END IF;
1708:
1709: x_pac_rec := p_pac_rec;
1710: -- Get current database values
1777: x_pac_rec.object_version_number := l_pac_rec.object_version_number;
1778: END IF;
1779:
1780: IF (l_debug = 'Y') THEN
1781: okc_debug.log('7300: Leaving populate_new_record ', 2);
1782: okc_debug.Reset_Indentation;
1783: END IF;
1784:
1785: RETURN(l_return_status);
1778: END IF;
1779:
1780: IF (l_debug = 'Y') THEN
1781: okc_debug.log('7300: Leaving populate_new_record ', 2);
1782: okc_debug.Reset_Indentation;
1783: END IF;
1784:
1785: RETURN(l_return_status);
1786:
1801: END Set_Attributes;
1802: BEGIN
1803:
1804: IF (l_debug = 'Y') THEN
1805: okc_debug.Set_Indentation('OKC_PAC_PVT');
1806: okc_debug.log('7400: Entered update_row', 2);
1807: END IF;
1808:
1809: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1802: BEGIN
1803:
1804: IF (l_debug = 'Y') THEN
1805: okc_debug.Set_Indentation('OKC_PAC_PVT');
1806: okc_debug.log('7400: Entered update_row', 2);
1807: END IF;
1808:
1809: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1810: p_init_msg_list,
1853: x_pac_rec := l_def_pac_rec;
1854: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1855:
1856: IF (l_debug = 'Y') THEN
1857: okc_debug.log('7500: Leaving update_row', 2);
1858: okc_debug.Reset_Indentation;
1859: END IF;
1860:
1861: EXCEPTION
1854: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1855:
1856: IF (l_debug = 'Y') THEN
1857: okc_debug.log('7500: Leaving update_row', 2);
1858: okc_debug.Reset_Indentation;
1859: END IF;
1860:
1861: EXCEPTION
1862: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1861: EXCEPTION
1862: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1863:
1864: IF (l_debug = 'Y') THEN
1865: okc_debug.log('7600: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1866: okc_debug.Reset_Indentation;
1867: END IF;
1868:
1869: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1862: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1863:
1864: IF (l_debug = 'Y') THEN
1865: okc_debug.log('7600: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1866: okc_debug.Reset_Indentation;
1867: END IF;
1868:
1869: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1870: (
1877: );
1878: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1879:
1880: IF (l_debug = 'Y') THEN
1881: okc_debug.log('7700: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1882: okc_debug.Reset_Indentation;
1883: END IF;
1884:
1885: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1878: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1879:
1880: IF (l_debug = 'Y') THEN
1881: okc_debug.log('7700: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1882: okc_debug.Reset_Indentation;
1883: END IF;
1884:
1885: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1886: (
1893: );
1894: WHEN OTHERS THEN
1895:
1896: IF (l_debug = 'Y') THEN
1897: okc_debug.log('7800: Exiting update_row:OTHERS Exception', 2);
1898: okc_debug.Reset_Indentation;
1899: END IF;
1900:
1901: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1894: WHEN OTHERS THEN
1895:
1896: IF (l_debug = 'Y') THEN
1897: okc_debug.log('7800: Exiting update_row:OTHERS Exception', 2);
1898: okc_debug.Reset_Indentation;
1899: END IF;
1900:
1901: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1902: (
1956: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1957: BEGIN
1958:
1959: IF (l_debug = 'Y') THEN
1960: okc_debug.Set_Indentation('OKC_PAC_PVT');
1961: okc_debug.log('8000: Entered populate_new_record', 2);
1962: END IF;
1963:
1964: x_pacv_rec := p_pacv_rec;
1957: BEGIN
1958:
1959: IF (l_debug = 'Y') THEN
1960: okc_debug.Set_Indentation('OKC_PAC_PVT');
1961: okc_debug.log('8000: Entered populate_new_record', 2);
1962: END IF;
1963:
1964: x_pacv_rec := p_pacv_rec;
1965: -- Get current database values
2032: x_pacv_rec.object_version_number := l_pacv_rec.object_version_number;
2033: END IF;
2034:
2035: IF (l_debug = 'Y') THEN
2036: okc_debug.log('8100: Leaving update_row', 2);
2037: okc_debug.Reset_Indentation;
2038: END IF;
2039:
2040: RETURN(l_return_status);
2033: END IF;
2034:
2035: IF (l_debug = 'Y') THEN
2036: okc_debug.log('8100: Leaving update_row', 2);
2037: okc_debug.Reset_Indentation;
2038: END IF;
2039:
2040: RETURN(l_return_status);
2041:
2057: END Set_Attributes;
2058: BEGIN
2059:
2060: IF (l_debug = 'Y') THEN
2061: okc_debug.Set_Indentation('OKC_PAC_PVT');
2062: okc_debug.log('8200: Entered update_row', 2);
2063: END IF;
2064:
2065: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2058: BEGIN
2059:
2060: IF (l_debug = 'Y') THEN
2061: okc_debug.Set_Indentation('OKC_PAC_PVT');
2062: okc_debug.log('8200: Entered update_row', 2);
2063: END IF;
2064:
2065: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2066: G_PKG_NAME,
2130: x_pacv_rec := l_def_pacv_rec;
2131: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2132:
2133: IF (l_debug = 'Y') THEN
2134: okc_debug.log('8300: Leaving update_row', 2);
2135: okc_debug.Reset_Indentation;
2136: END IF;
2137:
2138: EXCEPTION
2131: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2132:
2133: IF (l_debug = 'Y') THEN
2134: okc_debug.log('8300: Leaving update_row', 2);
2135: okc_debug.Reset_Indentation;
2136: END IF;
2137:
2138: EXCEPTION
2139: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2138: EXCEPTION
2139: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2140:
2141: IF (l_debug = 'Y') THEN
2142: okc_debug.log('8400: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2143: okc_debug.Reset_Indentation;
2144: END IF;
2145:
2146: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2139: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2140:
2141: IF (l_debug = 'Y') THEN
2142: okc_debug.log('8400: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2143: okc_debug.Reset_Indentation;
2144: END IF;
2145:
2146: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2147: (
2154: );
2155: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2156:
2157: IF (l_debug = 'Y') THEN
2158: okc_debug.log('8500: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2159: okc_debug.Reset_Indentation;
2160: END IF;
2161:
2162: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2155: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2156:
2157: IF (l_debug = 'Y') THEN
2158: okc_debug.log('8500: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2159: okc_debug.Reset_Indentation;
2160: END IF;
2161:
2162: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2163: (
2170: );
2171: WHEN OTHERS THEN
2172:
2173: IF (l_debug = 'Y') THEN
2174: okc_debug.log('8600: Exiting update_row:OTHERS Exception', 2);
2175: okc_debug.Reset_Indentation;
2176: END IF;
2177:
2178: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2171: WHEN OTHERS THEN
2172:
2173: IF (l_debug = 'Y') THEN
2174: okc_debug.log('8600: Exiting update_row:OTHERS Exception', 2);
2175: okc_debug.Reset_Indentation;
2176: END IF;
2177:
2178: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2179: (
2204: i NUMBER := 0;
2205: BEGIN
2206:
2207: IF (l_debug = 'Y') THEN
2208: okc_debug.Set_Indentation('OKC_PAC_PVT');
2209: okc_debug.log('8700: Entered update_row', 2);
2210: END IF;
2211:
2212: OKC_API.init_msg_list(p_init_msg_list);
2205: BEGIN
2206:
2207: IF (l_debug = 'Y') THEN
2208: okc_debug.Set_Indentation('OKC_PAC_PVT');
2209: okc_debug.log('8700: Entered update_row', 2);
2210: END IF;
2211:
2212: OKC_API.init_msg_list(p_init_msg_list);
2213: -- Make sure PL/SQL table has records in it before passing
2227: END LOOP;
2228: END IF;
2229:
2230: IF (l_debug = 'Y') THEN
2231: okc_debug.log('8800: Leaving update_row', 2);
2232: okc_debug.Reset_Indentation;
2233: END IF;
2234:
2235: EXCEPTION
2228: END IF;
2229:
2230: IF (l_debug = 'Y') THEN
2231: okc_debug.log('8800: Leaving update_row', 2);
2232: okc_debug.Reset_Indentation;
2233: END IF;
2234:
2235: EXCEPTION
2236: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2235: EXCEPTION
2236: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2237:
2238: IF (l_debug = 'Y') THEN
2239: okc_debug.log('8900: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2240: okc_debug.Reset_Indentation;
2241: END IF;
2242:
2243: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2236: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2237:
2238: IF (l_debug = 'Y') THEN
2239: okc_debug.log('8900: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2240: okc_debug.Reset_Indentation;
2241: END IF;
2242:
2243: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2244: (
2251: );
2252: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2253:
2254: IF (l_debug = 'Y') THEN
2255: okc_debug.log('9000: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2256: okc_debug.Reset_Indentation;
2257: END IF;
2258:
2259: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2252: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2253:
2254: IF (l_debug = 'Y') THEN
2255: okc_debug.log('9000: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2256: okc_debug.Reset_Indentation;
2257: END IF;
2258:
2259: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2260: (
2267: );
2268: WHEN OTHERS THEN
2269:
2270: IF (l_debug = 'Y') THEN
2271: okc_debug.log('9100: Exiting update_row:OTHERS Exception', 2);
2272: okc_debug.Reset_Indentation;
2273: END IF;
2274:
2275: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2268: WHEN OTHERS THEN
2269:
2270: IF (l_debug = 'Y') THEN
2271: okc_debug.log('9100: Exiting update_row:OTHERS Exception', 2);
2272: okc_debug.Reset_Indentation;
2273: END IF;
2274:
2275: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2276: (
2304: l_row_notfound BOOLEAN := TRUE;
2305: BEGIN
2306:
2307: IF (l_debug = 'Y') THEN
2308: okc_debug.Set_Indentation('OKC_PAC_PVT');
2309: okc_debug.log('9200: Entered delete_row', 2);
2310: END IF;
2311:
2312: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2305: BEGIN
2306:
2307: IF (l_debug = 'Y') THEN
2308: okc_debug.Set_Indentation('OKC_PAC_PVT');
2309: okc_debug.log('9200: Entered delete_row', 2);
2310: END IF;
2311:
2312: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2313: p_init_msg_list,
2323:
2324: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2325:
2326: IF (l_debug = 'Y') THEN
2327: okc_debug.log('9300: Leaving delete_row', 2);
2328: okc_debug.Reset_Indentation;
2329: END IF;
2330:
2331: EXCEPTION
2324: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2325:
2326: IF (l_debug = 'Y') THEN
2327: okc_debug.log('9300: Leaving delete_row', 2);
2328: okc_debug.Reset_Indentation;
2329: END IF;
2330:
2331: EXCEPTION
2332: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2331: EXCEPTION
2332: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2333:
2334: IF (l_debug = 'Y') THEN
2335: okc_debug.log('9400: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2336: okc_debug.Reset_Indentation;
2337: END IF;
2338:
2339: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2332: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2333:
2334: IF (l_debug = 'Y') THEN
2335: okc_debug.log('9400: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2336: okc_debug.Reset_Indentation;
2337: END IF;
2338:
2339: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2340: (
2347: );
2348: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2349:
2350: IF (l_debug = 'Y') THEN
2351: okc_debug.log('9500: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2352: okc_debug.Reset_Indentation;
2353: END IF;
2354:
2355: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2348: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2349:
2350: IF (l_debug = 'Y') THEN
2351: okc_debug.log('9500: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2352: okc_debug.Reset_Indentation;
2353: END IF;
2354:
2355: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2356: (
2363: );
2364: WHEN OTHERS THEN
2365:
2366: IF (l_debug = 'Y') THEN
2367: okc_debug.log('9600: Exiting delete_row:OTHERS Exception', 2);
2368: okc_debug.Reset_Indentation;
2369: END IF;
2370:
2371: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2364: WHEN OTHERS THEN
2365:
2366: IF (l_debug = 'Y') THEN
2367: okc_debug.log('9600: Exiting delete_row:OTHERS Exception', 2);
2368: okc_debug.Reset_Indentation;
2369: END IF;
2370:
2371: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2372: (
2397: l_pac_rec pac_rec_type;
2398: BEGIN
2399:
2400: IF (l_debug = 'Y') THEN
2401: okc_debug.Set_Indentation('OKC_PAC_PVT');
2402: okc_debug.log('9700: Entered delete_row', 2);
2403: END IF;
2404:
2405: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2398: BEGIN
2399:
2400: IF (l_debug = 'Y') THEN
2401: okc_debug.Set_Indentation('OKC_PAC_PVT');
2402: okc_debug.log('9700: Entered delete_row', 2);
2403: END IF;
2404:
2405: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2406: G_PKG_NAME,
2435: END IF;
2436: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2437:
2438: IF (l_debug = 'Y') THEN
2439: okc_debug.log('9800: Leaving delete_row', 2);
2440: okc_debug.Reset_Indentation;
2441: END IF;
2442:
2443: EXCEPTION
2436: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2437:
2438: IF (l_debug = 'Y') THEN
2439: okc_debug.log('9800: Leaving delete_row', 2);
2440: okc_debug.Reset_Indentation;
2441: END IF;
2442:
2443: EXCEPTION
2444: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2443: EXCEPTION
2444: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2445:
2446: IF (l_debug = 'Y') THEN
2447: okc_debug.log('9900: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2448: okc_debug.Reset_Indentation;
2449: END IF;
2450:
2451: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2444: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2445:
2446: IF (l_debug = 'Y') THEN
2447: okc_debug.log('9900: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2448: okc_debug.Reset_Indentation;
2449: END IF;
2450:
2451: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2452: (
2459: );
2460: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2461:
2462: IF (l_debug = 'Y') THEN
2463: okc_debug.log('10000: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2464: okc_debug.Reset_Indentation;
2465: END IF;
2466:
2467: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2460: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2461:
2462: IF (l_debug = 'Y') THEN
2463: okc_debug.log('10000: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2464: okc_debug.Reset_Indentation;
2465: END IF;
2466:
2467: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2468: (
2475: );
2476: WHEN OTHERS THEN
2477:
2478: IF (l_debug = 'Y') THEN
2479: okc_debug.log('10100: Exiting delete_row:OTHERS Exception', 2);
2480: okc_debug.Reset_Indentation;
2481: END IF;
2482:
2483: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2476: WHEN OTHERS THEN
2477:
2478: IF (l_debug = 'Y') THEN
2479: okc_debug.log('10100: Exiting delete_row:OTHERS Exception', 2);
2480: okc_debug.Reset_Indentation;
2481: END IF;
2482:
2483: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2484: (
2508: i NUMBER := 0;
2509: BEGIN
2510:
2511: IF (l_debug = 'Y') THEN
2512: okc_debug.Set_Indentation('OKC_PAC_PVT');
2513: okc_debug.log('10200: Entered delete_row', 2);
2514: END IF;
2515:
2516: OKC_API.init_msg_list(p_init_msg_list);
2509: BEGIN
2510:
2511: IF (l_debug = 'Y') THEN
2512: okc_debug.Set_Indentation('OKC_PAC_PVT');
2513: okc_debug.log('10200: Entered delete_row', 2);
2514: END IF;
2515:
2516: OKC_API.init_msg_list(p_init_msg_list);
2517: -- Make sure PL/SQL table has records in it before passing
2530: END LOOP;
2531: END IF;
2532:
2533: IF (l_debug = 'Y') THEN
2534: okc_debug.log('10300: Leaving delete_row', 2);
2535: okc_debug.Reset_Indentation;
2536: END IF;
2537:
2538: EXCEPTION
2531: END IF;
2532:
2533: IF (l_debug = 'Y') THEN
2534: okc_debug.log('10300: Leaving delete_row', 2);
2535: okc_debug.Reset_Indentation;
2536: END IF;
2537:
2538: EXCEPTION
2539: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2538: EXCEPTION
2539: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2540:
2541: IF (l_debug = 'Y') THEN
2542: okc_debug.log('10400: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2543: okc_debug.Reset_Indentation;
2544: END IF;
2545:
2546: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2539: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2540:
2541: IF (l_debug = 'Y') THEN
2542: okc_debug.log('10400: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2543: okc_debug.Reset_Indentation;
2544: END IF;
2545:
2546: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2547: (
2554: );
2555: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2556:
2557: IF (l_debug = 'Y') THEN
2558: okc_debug.log('10500: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2559: okc_debug.Reset_Indentation;
2560: END IF;
2561:
2562: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2555: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2556:
2557: IF (l_debug = 'Y') THEN
2558: okc_debug.log('10500: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2559: okc_debug.Reset_Indentation;
2560: END IF;
2561:
2562: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2563: (
2570: );
2571: WHEN OTHERS THEN
2572:
2573: IF (l_debug = 'Y') THEN
2574: okc_debug.log('10600: Exiting delete_row:OTHERS Exception', 2);
2575: okc_debug.Reset_Indentation;
2576: END IF;
2577:
2578: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2571: WHEN OTHERS THEN
2572:
2573: IF (l_debug = 'Y') THEN
2574: okc_debug.log('10600: Exiting delete_row:OTHERS Exception', 2);
2575: okc_debug.Reset_Indentation;
2576: END IF;
2577:
2578: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2579: (
2596:
2597: BEGIN
2598:
2599: IF (l_debug = 'Y') THEN
2600: okc_debug.Set_Indentation('OKC_PAC_PVT');
2601: okc_debug.log('10700: Entered create_version', 2);
2602: END IF;
2603:
2604: INSERT INTO okc_price_adj_assocs_h
2597: BEGIN
2598:
2599: IF (l_debug = 'Y') THEN
2600: okc_debug.Set_Indentation('OKC_PAC_PVT');
2601: okc_debug.log('10700: Entered create_version', 2);
2602: END IF;
2603:
2604: INSERT INTO okc_price_adj_assocs_h
2605: (
2646: WHERE chr_id = p_chr_id
2647: );
2648:
2649: IF (l_debug = 'Y') THEN
2650: okc_debug.log('10800: Leaving create_version', 2);
2651: okc_debug.Reset_Indentation;
2652: END IF;
2653:
2654: RETURN l_return_status;
2647: );
2648:
2649: IF (l_debug = 'Y') THEN
2650: okc_debug.log('10800: Leaving create_version', 2);
2651: okc_debug.Reset_Indentation;
2652: END IF;
2653:
2654: RETURN l_return_status;
2655:
2657: -- other appropriate handlers
2658: WHEN OTHERS THEN
2659:
2660: IF (l_debug = 'Y') THEN
2661: okc_debug.log('10900: Exiting create_version:OTHERS Exception', 2);
2662: okc_debug.Reset_Indentation;
2663: END IF;
2664:
2665: -- store SQL error message on message stack
2658: WHEN OTHERS THEN
2659:
2660: IF (l_debug = 'Y') THEN
2661: okc_debug.log('10900: Exiting create_version:OTHERS Exception', 2);
2662: okc_debug.Reset_Indentation;
2663: END IF;
2664:
2665: -- store SQL error message on message stack
2666: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
2686:
2687: BEGIN
2688:
2689: IF (l_debug = 'Y') THEN
2690: okc_debug.Set_Indentation('OKC_PAC_PVT');
2691: okc_debug.log('11000: Entered restore_version', 2);
2692: END IF;
2693:
2694: INSERT INTO okc_price_adj_assocs
2687: BEGIN
2688:
2689: IF (l_debug = 'Y') THEN
2690: okc_debug.Set_Indentation('OKC_PAC_PVT');
2691: okc_debug.log('11000: Entered restore_version', 2);
2692: END IF;
2693:
2694: INSERT INTO okc_price_adj_assocs
2695: (
2735: )
2736: AND major_version = p_major_version;
2737:
2738: IF (l_debug = 'Y') THEN
2739: okc_debug.log('11100: Leaving restore_version', 2);
2740: okc_debug.Reset_Indentation;
2741: END IF;
2742:
2743: RETURN l_return_status;
2736: AND major_version = p_major_version;
2737:
2738: IF (l_debug = 'Y') THEN
2739: okc_debug.log('11100: Leaving restore_version', 2);
2740: okc_debug.Reset_Indentation;
2741: END IF;
2742:
2743: RETURN l_return_status;
2744:
2746: -- other appropriate handlers
2747: WHEN OTHERS THEN
2748:
2749: IF (l_debug = 'Y') THEN
2750: okc_debug.log('11200: Exiting restore_version:OTHERS Exception', 2);
2751: okc_debug.Reset_Indentation;
2752: END IF;
2753:
2754: -- store SQL error message on message stack
2747: WHEN OTHERS THEN
2748:
2749: IF (l_debug = 'Y') THEN
2750: okc_debug.log('11200: Exiting restore_version:OTHERS Exception', 2);
2751: okc_debug.Reset_Indentation;
2752: END IF;
2753:
2754: -- store SQL error message on message stack
2755: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,