[Home] [Help]
63: l_ste_code varchar2(30);
64:
65: BEGIN
66: IF (l_debug = 'Y') THEN
67: okc_debug.Set_Indentation('OKC_CTC_PVT');
68: okc_debug.log('100: Entered update_contact_stecode', 2);
69: END IF;
70:
71: x_return_status := OKC_API.G_RET_STS_SUCCESS;
64:
65: BEGIN
66: IF (l_debug = 'Y') THEN
67: okc_debug.Set_Indentation('OKC_CTC_PVT');
68: okc_debug.log('100: Entered update_contact_stecode', 2);
69: END IF;
70:
71: x_return_status := OKC_API.G_RET_STS_SUCCESS;
72:
80:
81: UPDATE OKC_CONTACTS SET dnz_ste_code=l_ste_code WHERE DNZ_CHR_ID=p_chr_id;
82:
83: IF (l_debug = 'Y') THEN
84: okc_debug.Set_Indentation('OKC_CTC_PVT');
85: okc_debug.log('110: Exiting update_contact_stecode', 2);
86: END IF;
87:
88: EXCEPTION
81: UPDATE OKC_CONTACTS SET dnz_ste_code=l_ste_code WHERE DNZ_CHR_ID=p_chr_id;
82:
83: IF (l_debug = 'Y') THEN
84: okc_debug.Set_Indentation('OKC_CTC_PVT');
85: okc_debug.log('110: Exiting update_contact_stecode', 2);
86: END IF;
87:
88: EXCEPTION
89: WHEN OKC_API.G_EXCEPTION_ERROR THEN
88: EXCEPTION
89: WHEN OKC_API.G_EXCEPTION_ERROR THEN
90:
91: IF (l_debug = 'Y') THEN
92: okc_debug.log('120: Exiting update_contact_stecode:OKC_API.G_EXCEPTION_ERROR Exception', 2);
93: okc_debug.Reset_Indentation;
94: END IF;
95:
96: x_return_status := 'E';
89: WHEN OKC_API.G_EXCEPTION_ERROR THEN
90:
91: IF (l_debug = 'Y') THEN
92: okc_debug.log('120: Exiting update_contact_stecode:OKC_API.G_EXCEPTION_ERROR Exception', 2);
93: okc_debug.Reset_Indentation;
94: END IF;
95:
96: x_return_status := 'E';
97:
97:
98: WHEN OTHERS THEN
99:
100: IF (l_debug = 'Y') THEN
101: okc_debug.log('130: Exiting update_contact_stecode:OTHERS Exception', 2);
102: okc_debug.Reset_Indentation;
103: END IF;
104:
105: END update_contact_stecode;
98: WHEN OTHERS THEN
99:
100: IF (l_debug = 'Y') THEN
101: okc_debug.log('130: Exiting update_contact_stecode:OTHERS Exception', 2);
102: okc_debug.Reset_Indentation;
103: END IF;
104:
105: END update_contact_stecode;
106: /*bugfix for 6882512*/
156: l_ctc_rec ctc_rec_type;
157: BEGIN
158:
159: IF (l_debug = 'Y') THEN
160: okc_debug.Set_Indentation('OKC_CTC_PVT');
161: okc_debug.log('500: 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_CTC_PVT');
161: okc_debug.log('500: Entered get_rec', 2);
162: END IF;
163:
164: x_no_data_found := TRUE;
165: -- Get current database values
204: x_no_data_found := ctc_pk_csr%NOTFOUND;
205: CLOSE ctc_pk_csr;
206:
207: IF (l_debug = 'Y') THEN
208: okc_debug.log('550: Leaving Get_Rec ', 2);
209: okc_debug.Reset_Indentation;
210: END IF;
211:
212: RETURN(l_ctc_rec);
205: CLOSE ctc_pk_csr;
206:
207: IF (l_debug = 'Y') THEN
208: okc_debug.log('550: Leaving Get_Rec ', 2);
209: okc_debug.Reset_Indentation;
210: END IF;
211:
212: RETURN(l_ctc_rec);
213:
272: l_ctcv_rec ctcv_rec_type;
273: BEGIN
274:
275: IF (l_debug = 'Y') THEN
276: okc_debug.Set_Indentation('OKC_CTC_PVT');
277: okc_debug.log('700: Entered get_rec', 2);
278: END IF;
279:
280: x_no_data_found := TRUE;
273: BEGIN
274:
275: IF (l_debug = 'Y') THEN
276: okc_debug.Set_Indentation('OKC_CTC_PVT');
277: okc_debug.log('700: Entered get_rec', 2);
278: END IF;
279:
280: x_no_data_found := TRUE;
281: -- Get current database values
319: x_no_data_found := okc_ctcv_pk_csr%NOTFOUND;
320: CLOSE okc_ctcv_pk_csr;
321:
322: IF (l_debug = 'Y') THEN
323: okc_debug.log('750: Leaving Get_Rec ', 2);
324: okc_debug.Reset_Indentation;
325: END IF;
326:
327: RETURN(l_ctcv_rec);
320: CLOSE okc_ctcv_pk_csr;
321:
322: IF (l_debug = 'Y') THEN
323: okc_debug.log('750: Leaving Get_Rec ', 2);
324: okc_debug.Reset_Indentation;
325: END IF;
326:
327: RETURN(l_ctcv_rec);
328:
347: l_ctcv_rec ctcv_rec_type := p_ctcv_rec;
348: BEGIN
349:
350: IF (l_debug = 'Y') THEN
351: okc_debug.Set_Indentation('OKC_CTC_PVT');
352: okc_debug.log('900: Entered null_out_defaults', 2);
353: END IF;
354:
355: IF (l_ctcv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
348: BEGIN
349:
350: IF (l_debug = 'Y') THEN
351: okc_debug.Set_Indentation('OKC_CTC_PVT');
352: okc_debug.log('900: Entered null_out_defaults', 2);
353: END IF;
354:
355: IF (l_ctcv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
356: l_ctcv_rec.object_version_number := NULL;
455: l_ctcv_rec.end_date := NULL;
456: END IF;
457:
458: IF (l_debug = 'Y') THEN
459: okc_debug.log('950: Leaving null_out_defaults ', 2);
460: okc_debug.Reset_Indentation;
461: END IF;
462:
463: RETURN(l_ctcv_rec);
456: END IF;
457:
458: IF (l_debug = 'Y') THEN
459: okc_debug.log('950: Leaving null_out_defaults ', 2);
460: okc_debug.Reset_Indentation;
461: END IF;
462:
463: RETURN(l_ctcv_rec);
464:
486: where id = p_ctcv_rec.cpl_id;
487: begin
488:
489: IF (l_debug = 'Y') THEN
490: okc_debug.Set_Indentation('OKC_CTC_PVT');
491: okc_debug.log('1000: Entered validate_cpl_id', 2);
492: END IF;
493:
494: x_return_status := OKC_API.G_RET_STS_SUCCESS;
487: begin
488:
489: IF (l_debug = 'Y') THEN
490: okc_debug.Set_Indentation('OKC_CTC_PVT');
491: okc_debug.log('1000: Entered validate_cpl_id', 2);
492: END IF;
493:
494: x_return_status := OKC_API.G_RET_STS_SUCCESS;
495: if (p_ctcv_rec.cpl_id = OKC_API.G_MISS_NUM) then
510: raise G_EXCEPTION_HALT_VALIDATION;
511: end if;
512:
513: IF (l_debug = 'Y') THEN
514: okc_debug.log('1100: Leaving validate_cpl_id', 2);
515: okc_debug.Reset_Indentation;
516: END IF;
517:
518: exception
511: end if;
512:
513: IF (l_debug = 'Y') THEN
514: okc_debug.log('1100: Leaving validate_cpl_id', 2);
515: okc_debug.Reset_Indentation;
516: END IF;
517:
518: exception
519: when G_EXCEPTION_HALT_VALIDATION then
518: exception
519: when G_EXCEPTION_HALT_VALIDATION then
520:
521: IF (l_debug = 'Y') THEN
522: okc_debug.log('1200: Exiting validate_cpl_id:G_EXCEPTION_HALT_VALIDATION Exception', 2);
523: okc_debug.Reset_Indentation;
524: END IF;
525:
526: x_return_status := OKC_API.G_RET_STS_ERROR;
519: when G_EXCEPTION_HALT_VALIDATION then
520:
521: IF (l_debug = 'Y') THEN
522: okc_debug.log('1200: Exiting validate_cpl_id:G_EXCEPTION_HALT_VALIDATION Exception', 2);
523: okc_debug.Reset_Indentation;
524: END IF;
525:
526: x_return_status := OKC_API.G_RET_STS_ERROR;
527: when OTHERS then
526: x_return_status := OKC_API.G_RET_STS_ERROR;
527: when OTHERS then
528:
529: IF (l_debug = 'Y') THEN
530: okc_debug.log('1300: Exiting validate_cpl_id:OTHERS Exception', 2);
531: okc_debug.Reset_Indentation;
532: END IF;
533:
534: if l_cpl_csr%ISOPEN then
527: when OTHERS then
528:
529: IF (l_debug = 'Y') THEN
530: okc_debug.log('1300: Exiting validate_cpl_id:OTHERS Exception', 2);
531: okc_debug.Reset_Indentation;
532: END IF;
533:
534: if l_cpl_csr%ISOPEN then
535: close l_cpl_csr;
559: --
560: begin
561:
562: IF (l_debug = 'Y') THEN
563: okc_debug.Set_Indentation('OKC_CTC_PVT');
564: okc_debug.log('1400: Entered validate_cro_code', 2);
565: END IF;
566:
567: x_return_status := OKC_API.G_RET_STS_SUCCESS;
560: begin
561:
562: IF (l_debug = 'Y') THEN
563: okc_debug.Set_Indentation('OKC_CTC_PVT');
564: okc_debug.log('1400: Entered validate_cro_code', 2);
565: END IF;
566:
567: x_return_status := OKC_API.G_RET_STS_SUCCESS;
568: if (p_ctcv_rec.cro_code = OKC_API.G_MISS_CHAR) then
582: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CRO_CODE');
583: x_return_status := OKC_API.G_RET_STS_ERROR;
584: end if;
585: IF (l_debug = 'Y') THEN
586: okc_debug.log('1500: Leaving validate_cro_code', 2);
587: okc_debug.Reset_Indentation;
588: END IF;
589:
590: exception
583: x_return_status := OKC_API.G_RET_STS_ERROR;
584: end if;
585: IF (l_debug = 'Y') THEN
586: okc_debug.log('1500: Leaving validate_cro_code', 2);
587: okc_debug.Reset_Indentation;
588: END IF;
589:
590: exception
591: when G_EXCEPTION_HALT_VALIDATION then
590: exception
591: when G_EXCEPTION_HALT_VALIDATION then
592:
593: IF (l_debug = 'Y') THEN
594: okc_debug.log('1600: Exiting validate_cro_code:G_EXCEPTION_HALT_VALIDATION Exception', 2);
595: okc_debug.Reset_Indentation;
596: END IF;
597:
598: x_return_status := OKC_API.G_RET_STS_ERROR;
591: when G_EXCEPTION_HALT_VALIDATION then
592:
593: IF (l_debug = 'Y') THEN
594: okc_debug.log('1600: Exiting validate_cro_code:G_EXCEPTION_HALT_VALIDATION Exception', 2);
595: okc_debug.Reset_Indentation;
596: END IF;
597:
598: x_return_status := OKC_API.G_RET_STS_ERROR;
599: when OTHERS then
598: x_return_status := OKC_API.G_RET_STS_ERROR;
599: when OTHERS then
600:
601: IF (l_debug = 'Y') THEN
602: okc_debug.log('1700: Exiting validate_cro_code:OTHERS Exception', 2);
603: okc_debug.Reset_Indentation;
604: END IF;
605:
606: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
599: when OTHERS then
600:
601: IF (l_debug = 'Y') THEN
602: okc_debug.log('1700: Exiting validate_cro_code:OTHERS Exception', 2);
603: okc_debug.Reset_Indentation;
604: END IF;
605:
606: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
607: p_msg_name => g_unexpected_error,
644: ;
645: begin
646:
647: IF (l_debug = 'Y') THEN
648: okc_debug.Set_Indentation('OKC_CTC_PVT');
649: okc_debug.log('1800: Entered validate_JTOT_OBJECT1_CODE', 2);
650: END IF;
651:
652: x_return_status := OKC_API.G_RET_STS_SUCCESS;
645: begin
646:
647: IF (l_debug = 'Y') THEN
648: okc_debug.Set_Indentation('OKC_CTC_PVT');
649: okc_debug.log('1800: Entered validate_JTOT_OBJECT1_CODE', 2);
650: END IF;
651:
652: x_return_status := OKC_API.G_RET_STS_SUCCESS;
653: if (p_ctcv_rec.jtot_object1_code = OKC_API.G_MISS_CHAR or p_ctcv_rec.jtot_object1_code is NULL) then
662: x_return_status := OKC_API.G_RET_STS_ERROR;
663: end if;
664:
665: IF (l_debug = 'Y') THEN
666: okc_debug.log('1900: Leaving validate_JTOT_OBJECT1_CODE', 2);
667: okc_debug.Reset_Indentation;
668: END IF;
669:
670: exception
663: end if;
664:
665: IF (l_debug = 'Y') THEN
666: okc_debug.log('1900: Leaving validate_JTOT_OBJECT1_CODE', 2);
667: okc_debug.Reset_Indentation;
668: END IF;
669:
670: exception
671: when OTHERS then
670: exception
671: when OTHERS then
672:
673: IF (l_debug = 'Y') THEN
674: okc_debug.log('2000: Exiting validate_JTOT_OBJECT1_CODE:OTHERS Exception', 2);
675: okc_debug.Reset_Indentation;
676: END IF;
677:
678: if l_object1_csr%ISOPEN then
671: when OTHERS then
672:
673: IF (l_debug = 'Y') THEN
674: okc_debug.log('2000: Exiting validate_JTOT_OBJECT1_CODE:OTHERS Exception', 2);
675: okc_debug.Reset_Indentation;
676: END IF;
677:
678: if l_object1_csr%ISOPEN then
679: close l_object1_csr;
884: END;
885: begin
886:
887: IF (l_debug = 'Y') THEN
888: okc_debug.Set_Indentation('OKC_CTC_PVT');
889: okc_debug.log('2100: Entered validate_object1_id1', 2);
890: END IF;
891:
892: x_return_status := OKC_API.G_RET_STS_SUCCESS;
885: begin
886:
887: IF (l_debug = 'Y') THEN
888: okc_debug.Set_Indentation('OKC_CTC_PVT');
889: okc_debug.log('2100: Entered validate_object1_id1', 2);
890: END IF;
891:
892: x_return_status := OKC_API.G_RET_STS_SUCCESS;
893: if (p_ctcv_rec.jtot_object1_code = OKC_API.G_MISS_CHAR or p_ctcv_rec.JTOT_OBJECT1_CODE is NULL) then
910: if (l_dummy_var = 'N') then
911: begin
912:
913: IF (l_debug = 'Y') THEN
914: okc_debug.Set_Indentation('OKC_CTC_PVT');
915: okc_debug.log('2200: Entered validate_object1_id1', 2);
916: END IF;
917:
918: EXECUTE IMMEDIATE 'select ''x'' from '||l_from_table||
911: begin
912:
913: IF (l_debug = 'Y') THEN
914: okc_debug.Set_Indentation('OKC_CTC_PVT');
915: okc_debug.log('2200: Entered validate_object1_id1', 2);
916: END IF;
917:
918: EXECUTE IMMEDIATE 'select ''x'' from '||l_from_table||
919: ' where id1=:object1_id1 and id2=:object1_id2'||l_where_clause
920: into l_dummy_var
921: USING p_ctcv_rec.object1_id1, p_ctcv_rec.object1_id2;
922:
923: IF (l_debug = 'Y') THEN
924: okc_debug.log('2300: Leaving validate_object1_id1', 2);
925: okc_debug.Reset_Indentation;
926: END IF;
927:
928: exception
921: USING p_ctcv_rec.object1_id1, p_ctcv_rec.object1_id2;
922:
923: IF (l_debug = 'Y') THEN
924: okc_debug.log('2300: Leaving validate_object1_id1', 2);
925: okc_debug.Reset_Indentation;
926: END IF;
927:
928: exception
929: when e_column_not_exists then
928: exception
929: when e_column_not_exists then
930:
931: IF (l_debug = 'Y') THEN
932: okc_debug.log('2400: Exiting validate_object1_id1:e_column_not_exists Exception', 2);
933: okc_debug.Reset_Indentation;
934: END IF;
935:
936: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_from_table||'.ID1, .ID2');
929: when e_column_not_exists then
930:
931: IF (l_debug = 'Y') THEN
932: okc_debug.log('2400: Exiting validate_object1_id1:e_column_not_exists Exception', 2);
933: okc_debug.Reset_Indentation;
934: END IF;
935:
936: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_from_table||'.ID1, .ID2');
937: x_return_status := OKC_API.G_RET_STS_ERROR;
938: return;
939: when e_too_many_rows then
940:
941: IF (l_debug = 'Y') THEN
942: okc_debug.log('2500: Exiting validate_object1_id1:e_too_many_rows Exception', 2);
943: okc_debug.Reset_Indentation;
944: END IF;
945:
946: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_from_table||'.ID1, .ID2');
939: when e_too_many_rows then
940:
941: IF (l_debug = 'Y') THEN
942: okc_debug.log('2500: Exiting validate_object1_id1:e_too_many_rows Exception', 2);
943: okc_debug.Reset_Indentation;
944: END IF;
945:
946: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_from_table||'.ID1, .ID2');
947: x_return_status := OKC_API.G_RET_STS_ERROR;
950: else
951: begin
952:
953: IF (l_debug = 'Y') THEN
954: okc_debug.Set_Indentation('OKC_CTC_PVT');
955: okc_debug.log('2600: Entered validate_object1_id1', 2);
956: END IF;
957:
958:
951: begin
952:
953: IF (l_debug = 'Y') THEN
954: okc_debug.Set_Indentation('OKC_CTC_PVT');
955: okc_debug.log('2600: Entered validate_object1_id1', 2);
956: END IF;
957:
958:
959: IF l_scs_code='PROJECT' and (l_jtot_object1_code IN ( 'OKE_BILLTO','OKE_CUST_KADMIN','OKE_MARKFOR','OKE_SHIPTO','OKE_CUSTACCT','OKE_VENDSITE','OKX_CUSTACCT'))
973: USING p_ctcv_rec.object1_id1, p_ctcv_rec.object1_id2,l_party_id1,l_party_id2;
974: END IF;
975:
976: IF (l_debug = 'Y') THEN
977: okc_debug.log('2700: Leaving validate_object1_id1', 2);
978: okc_debug.Reset_Indentation;
979: END IF;
980:
981: exception
974: END IF;
975:
976: IF (l_debug = 'Y') THEN
977: okc_debug.log('2700: Leaving validate_object1_id1', 2);
978: okc_debug.Reset_Indentation;
979: END IF;
980:
981: exception
982: when e_column_not_exists then
981: exception
982: when e_column_not_exists then
983:
984: IF (l_debug = 'Y') THEN
985: okc_debug.log('2800: Exiting validate_object1_id1:e_column_not_exists Exception', 2);
986: okc_debug.Reset_Indentation;
987: END IF;
988:
989: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_from_table||'.ID1, .ID2, .PARTY_ID, .PARTY_ID2');
982: when e_column_not_exists then
983:
984: IF (l_debug = 'Y') THEN
985: okc_debug.log('2800: Exiting validate_object1_id1:e_column_not_exists Exception', 2);
986: okc_debug.Reset_Indentation;
987: END IF;
988:
989: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_from_table||'.ID1, .ID2, .PARTY_ID, .PARTY_ID2');
990: x_return_status := OKC_API.G_RET_STS_ERROR;
991: return;
992: when e_too_many_rows then
993:
994: IF (l_debug = 'Y') THEN
995: okc_debug.log('2900: Exiting validate_object1_id1:e_too_many_rows Exception', 2);
996: okc_debug.Reset_Indentation;
997: END IF;
998:
999: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_from_table||'.ID1, .ID2, .PARTY_ID, .PARTY_ID2');
992: when e_too_many_rows then
993:
994: IF (l_debug = 'Y') THEN
995: okc_debug.log('2900: Exiting validate_object1_id1:e_too_many_rows Exception', 2);
996: okc_debug.Reset_Indentation;
997: END IF;
998:
999: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_from_table||'.ID1, .ID2, .PARTY_ID, .PARTY_ID2');
1000: x_return_status := OKC_API.G_RET_STS_ERROR;
1002: end;
1003: end if;
1004: --
1005: IF (l_debug = 'Y') THEN
1006: okc_debug.log('3000: Exiting validate_object1_id1', 2);
1007: okc_debug.Reset_Indentation;
1008: END IF;
1009:
1010: exception
1003: end if;
1004: --
1005: IF (l_debug = 'Y') THEN
1006: okc_debug.log('3000: Exiting validate_object1_id1', 2);
1007: okc_debug.Reset_Indentation;
1008: END IF;
1009:
1010: exception
1011: when e_source_not_exists then
1010: exception
1011: when e_source_not_exists then
1012:
1013: IF (l_debug = 'Y') THEN
1014: okc_debug.log('3100: Exiting validate_object1_id1:e_source_not_exists Exception', 2);
1015: okc_debug.Reset_Indentation;
1016: END IF;
1017:
1018: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'JTOT_OBJECT1_CODE');
1011: when e_source_not_exists then
1012:
1013: IF (l_debug = 'Y') THEN
1014: okc_debug.log('3100: Exiting validate_object1_id1:e_source_not_exists Exception', 2);
1015: okc_debug.Reset_Indentation;
1016: END IF;
1017:
1018: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'JTOT_OBJECT1_CODE');
1019: x_return_status := OKC_API.G_RET_STS_ERROR;
1019: x_return_status := OKC_API.G_RET_STS_ERROR;
1020: when e_source_not_exists1 then
1021:
1022: IF (l_debug = 'Y') THEN
1023: okc_debug.log('3200: Exiting validate_object1_id1:e_source_not_exists1 Exception', 2);
1024: okc_debug.Reset_Indentation;
1025: END IF;
1026:
1027: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'JTOT_OBJECT1_CODE');
1020: when e_source_not_exists1 then
1021:
1022: IF (l_debug = 'Y') THEN
1023: okc_debug.log('3200: Exiting validate_object1_id1:e_source_not_exists1 Exception', 2);
1024: okc_debug.Reset_Indentation;
1025: END IF;
1026:
1027: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'JTOT_OBJECT1_CODE');
1028: x_return_status := OKC_API.G_RET_STS_ERROR;
1028: x_return_status := OKC_API.G_RET_STS_ERROR;
1029: when e_no_data_found then
1030:
1031: IF (l_debug = 'Y') THEN
1032: okc_debug.log('3300: Exiting validate_object1_id1:e_no_data_found Exception', 2);
1033: okc_debug.Reset_Indentation;
1034: END IF;
1035:
1036: OKC_API.set_message(G_APP_NAME,'OKC_INVALID_CONTACT');
1029: when e_no_data_found then
1030:
1031: IF (l_debug = 'Y') THEN
1032: okc_debug.log('3300: Exiting validate_object1_id1:e_no_data_found Exception', 2);
1033: okc_debug.Reset_Indentation;
1034: END IF;
1035:
1036: OKC_API.set_message(G_APP_NAME,'OKC_INVALID_CONTACT');
1037: x_return_status := OKC_API.G_RET_STS_ERROR;
1037: x_return_status := OKC_API.G_RET_STS_ERROR;
1038: when OTHERS then
1039:
1040: IF (l_debug = 'Y') THEN
1041: okc_debug.log('3400: Exiting validate_object1_id1:OTHERS Exception', 2);
1042: okc_debug.Reset_Indentation;
1043: END IF;
1044:
1045: if l_object1_csr%ISOPEN then
1038: when OTHERS then
1039:
1040: IF (l_debug = 'Y') THEN
1041: okc_debug.log('3400: Exiting validate_object1_id1:OTHERS Exception', 2);
1042: okc_debug.Reset_Indentation;
1043: END IF;
1044:
1045: if l_object1_csr%ISOPEN then
1046: close l_object1_csr;
1076: where id = p_ctcv_rec.dnz_chr_id;
1077: begin
1078:
1079: IF (l_debug = 'Y') THEN
1080: okc_debug.Set_Indentation('OKC_CTC_PVT');
1081: okc_debug.log('3500: Entered validate_dnz_chr_id', 2);
1082: END IF;
1083:
1084: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1077: begin
1078:
1079: IF (l_debug = 'Y') THEN
1080: okc_debug.Set_Indentation('OKC_CTC_PVT');
1081: okc_debug.log('3500: Entered validate_dnz_chr_id', 2);
1082: END IF;
1083:
1084: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1085: if (p_ctcv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) then
1102: return;
1103: end if;
1104:
1105: IF (l_debug = 'Y') THEN
1106: okc_debug.log('3600: Leaving validate_dnz_chr_id', 2);
1107: okc_debug.Reset_Indentation;
1108: END IF;
1109:
1110: exception
1103: end if;
1104:
1105: IF (l_debug = 'Y') THEN
1106: okc_debug.log('3600: Leaving validate_dnz_chr_id', 2);
1107: okc_debug.Reset_Indentation;
1108: END IF;
1109:
1110: exception
1111: when OTHERS then
1110: exception
1111: when OTHERS then
1112:
1113: IF (l_debug = 'Y') THEN
1114: okc_debug.log('3700: Exiting validate_dnz_chr_id:OTHERS Exception', 2);
1115: okc_debug.Reset_Indentation;
1116: END IF;
1117:
1118: OKC_API.set_message(p_app_name => g_app_name,
1111: when OTHERS then
1112:
1113: IF (l_debug = 'Y') THEN
1114: okc_debug.log('3700: Exiting validate_dnz_chr_id:OTHERS Exception', 2);
1115: okc_debug.Reset_Indentation;
1116: END IF;
1117:
1118: OKC_API.set_message(p_app_name => g_app_name,
1119: p_msg_name => g_unexpected_error,
1152: NVL(ctc.start_date,TRUNC(sysdate));
1153:
1154: Begin
1155: IF (l_debug = 'Y') THEN
1156: okc_debug.Set_Indentation('OKC_CPL_PVT');
1157: okc_debug.log('4150: Entered validate_primary_yn', 2);
1158: END IF;
1159:
1160: -- initialize return status
1153:
1154: Begin
1155: IF (l_debug = 'Y') THEN
1156: okc_debug.Set_Indentation('OKC_CPL_PVT');
1157: okc_debug.log('4150: Entered validate_primary_yn', 2);
1158: END IF;
1159:
1160: -- initialize return status
1161: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1185: IF (l_dummy='!') THEN
1186: OKC_API.set_message(G_APP_NAME,'OKC_PRIMARY_CONTACT_ERROR');
1187: x_return_status := OKC_API.G_RET_STS_ERROR;
1188: IF (l_debug = 'Y') THEN
1189: okc_debug.Reset_Indentation;
1190: END IF;
1191: RETURN;
1192: END IF;
1193: END IF; --end of (p_ctcv_rec.primary_yn = 'Y')
1191: RETURN;
1192: END IF;
1193: END IF; --end of (p_ctcv_rec.primary_yn = 'Y')
1194: IF (l_debug = 'Y') THEN
1195: okc_debug.log('4160: Leaving validate_primary_yn', 2);
1196: okc_debug.Reset_Indentation;
1197: END IF;
1198:
1199: exception
1192: END IF;
1193: END IF; --end of (p_ctcv_rec.primary_yn = 'Y')
1194: IF (l_debug = 'Y') THEN
1195: okc_debug.log('4160: Leaving validate_primary_yn', 2);
1196: okc_debug.Reset_Indentation;
1197: END IF;
1198:
1199: exception
1200: when G_EXCEPTION_HALT_VALIDATION then
1198:
1199: exception
1200: when G_EXCEPTION_HALT_VALIDATION then
1201: IF (l_debug = 'Y') THEN
1202: okc_debug.log('4170: Exiting validate_primary_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1203: okc_debug.Reset_Indentation;
1204: END IF;
1205:
1206: -- no processing necessary; validation can continue with next column
1199: exception
1200: when G_EXCEPTION_HALT_VALIDATION then
1201: IF (l_debug = 'Y') THEN
1202: okc_debug.log('4170: Exiting validate_primary_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1203: okc_debug.Reset_Indentation;
1204: END IF;
1205:
1206: -- no processing necessary; validation can continue with next column
1207: null;
1206: -- no processing necessary; validation can continue with next column
1207: null;
1208: when OTHERS then
1209: IF (l_debug = 'Y') THEN
1210: okc_debug.log('4180: Exiting validate_primary_yn:OTHERS Exception', 2);
1211: okc_debug.Reset_Indentation;
1212: END IF;
1213:
1214: -- store SQL error message on message stack
1207: null;
1208: when OTHERS then
1209: IF (l_debug = 'Y') THEN
1210: okc_debug.log('4180: Exiting validate_primary_yn:OTHERS Exception', 2);
1211: okc_debug.Reset_Indentation;
1212: END IF;
1213:
1214: -- store SQL error message on message stack
1215: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1237: PROCEDURE validate_resource_class(x_return_status OUT NOCOPY VARCHAR2,
1238: p_ctcv_rec IN CTCV_REC_TYPE) IS
1239: Begin
1240: IF (l_debug = 'Y') THEN
1241: okc_debug.Set_Indentation('OKC_CPL_PVT');
1242: okc_debug.log('4250: Entered validate_resource_class', 2);
1243: END IF;
1244:
1245: -- initialize return status
1238: p_ctcv_rec IN CTCV_REC_TYPE) IS
1239: Begin
1240: IF (l_debug = 'Y') THEN
1241: okc_debug.Set_Indentation('OKC_CPL_PVT');
1242: okc_debug.log('4250: Entered validate_resource_class', 2);
1243: END IF;
1244:
1245: -- initialize return status
1246: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1266: raise G_EXCEPTION_HALT_VALIDATION;
1267: End If;
1268: End If;
1269: IF (l_debug = 'Y') THEN
1270: okc_debug.log('4260: Exiting validate_resource_class', 2);
1271: okc_debug.Reset_Indentation;
1272: END IF;
1273:
1274: EXCEPTION
1267: End If;
1268: End If;
1269: IF (l_debug = 'Y') THEN
1270: okc_debug.log('4260: Exiting validate_resource_class', 2);
1271: okc_debug.Reset_Indentation;
1272: END IF;
1273:
1274: EXCEPTION
1275: when OTHERS then
1274: EXCEPTION
1275: when OTHERS then
1276:
1277: IF (l_debug = 'Y') THEN
1278: okc_debug.log('4270: Exiting validate_resource_class:OTHERS Exception', 2);
1279: okc_debug.Reset_Indentation;
1280: END IF;
1281:
1282: -- store SQL error message on message stack
1275: when OTHERS then
1276:
1277: IF (l_debug = 'Y') THEN
1278: okc_debug.log('4270: Exiting validate_resource_class:OTHERS Exception', 2);
1279: okc_debug.Reset_Indentation;
1280: END IF;
1281:
1282: -- store SQL error message on message stack
1283: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1304: x_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
1305: BEGIN
1306:
1307: IF (l_debug = 'Y') THEN
1308: okc_debug.Set_Indentation('OKC_CTC_PVT');
1309: okc_debug.log('3800: Entered Validate_Attributes', 2);
1310: END IF;
1311:
1312: -- call each column-level validation
1305: BEGIN
1306:
1307: IF (l_debug = 'Y') THEN
1308: okc_debug.Set_Indentation('OKC_CTC_PVT');
1309: okc_debug.log('3800: Entered Validate_Attributes', 2);
1310: END IF;
1311:
1312: -- call each column-level validation
1313: validate_cpl_id(x_return_status => l_return_status,
1362: --
1363: return x_return_status;
1364:
1365: IF (l_debug = 'Y') THEN
1366: okc_debug.log('3900: Leaving Validate_Attributes', 2);
1367: okc_debug.Reset_Indentation;
1368: END IF;
1369:
1370: exception
1363: return x_return_status;
1364:
1365: IF (l_debug = 'Y') THEN
1366: okc_debug.log('3900: Leaving Validate_Attributes', 2);
1367: okc_debug.Reset_Indentation;
1368: END IF;
1369:
1370: exception
1371: when OTHERS then
1370: exception
1371: when OTHERS then
1372:
1373: IF (l_debug = 'Y') THEN
1374: okc_debug.log('4000: Exiting Validate_Attributes:OTHERS Exception', 2);
1375: okc_debug.Reset_Indentation;
1376: END IF;
1377:
1378: -- store SQL error message on message stack for caller
1371: when OTHERS then
1372:
1373: IF (l_debug = 'Y') THEN
1374: okc_debug.log('4000: Exiting Validate_Attributes:OTHERS Exception', 2);
1375: okc_debug.Reset_Indentation;
1376: END IF;
1377:
1378: -- store SQL error message on message stack for caller
1379: OKC_API.set_message(p_app_name => g_app_name,
1455:
1456: BEGIN
1457:
1458: IF (l_debug = 'Y') THEN
1459: okc_debug.Set_Indentation('OKC_CTC_PVT');
1460: okc_debug.log('4100: Entered Validate_Record', 2);
1461: END IF;
1462:
1463: -- indirection
1456: BEGIN
1457:
1458: IF (l_debug = 'Y') THEN
1459: okc_debug.Set_Indentation('OKC_CTC_PVT');
1460: okc_debug.log('4100: Entered Validate_Record', 2);
1461: END IF;
1462:
1463: -- indirection
1464: Open c_buy_or_sell;
1481:
1482: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR)
1483: THEN
1484: IF (l_debug = 'Y') THEN
1485: okc_debug.log('4150: Exiting Validate_jtot_object1_code in validate_record:unexp err', 2);
1486: okc_debug.Reset_Indentation;
1487: END IF;
1488: RETURN OKC_API.G_RET_STS_UNEXP_ERROR;
1489: END IF;
1482: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR)
1483: THEN
1484: IF (l_debug = 'Y') THEN
1485: okc_debug.log('4150: Exiting Validate_jtot_object1_code in validate_record:unexp err', 2);
1486: okc_debug.Reset_Indentation;
1487: END IF;
1488: RETURN OKC_API.G_RET_STS_UNEXP_ERROR;
1489: END IF;
1490:
1500:
1501: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR)
1502: THEN
1503: IF (l_debug = 'Y') THEN
1504: okc_debug.log('4170: Exiting Validate_object1_id1 in validate_record:unexp err', 2);
1505: okc_debug.Reset_Indentation;
1506: END IF;
1507: RETURN OKC_API.G_RET_STS_UNEXP_ERROR;
1508: END IF;
1501: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR)
1502: THEN
1503: IF (l_debug = 'Y') THEN
1504: okc_debug.log('4170: Exiting Validate_object1_id1 in validate_record:unexp err', 2);
1505: okc_debug.Reset_Indentation;
1506: END IF;
1507: RETURN OKC_API.G_RET_STS_UNEXP_ERROR;
1508: END IF;
1509:
1552: END IF;
1553: RETURN x_return_status;
1554:
1555: IF (l_debug = 'Y') THEN
1556: okc_debug.log('4200: Leaving Validate_Record', 2);
1557: okc_debug.Reset_Indentation;
1558: END IF;
1559:
1560: EXCEPTION
1553: RETURN x_return_status;
1554:
1555: IF (l_debug = 'Y') THEN
1556: okc_debug.log('4200: Leaving Validate_Record', 2);
1557: okc_debug.Reset_Indentation;
1558: END IF;
1559:
1560: EXCEPTION
1561: WHEN OTHERS THEN
1560: EXCEPTION
1561: WHEN OTHERS THEN
1562:
1563: IF (l_debug = 'Y') THEN
1564: okc_debug.log('4300: Exiting Validate_Record:OTHERS Exception', 2);
1565: okc_debug.Reset_Indentation;
1566: END IF;
1567:
1568: -- store SQL error message on message stack for caller
1561: WHEN OTHERS THEN
1562:
1563: IF (l_debug = 'Y') THEN
1564: okc_debug.log('4300: Exiting Validate_Record:OTHERS Exception', 2);
1565: okc_debug.Reset_Indentation;
1566: END IF;
1567:
1568: -- store SQL error message on message stack for caller
1569: OKC_API.set_message(p_app_name => g_app_name,
1693: l_ctc_rec ctc_rec_type;
1694: BEGIN
1695:
1696: IF (l_debug = 'Y') THEN
1697: okc_debug.Set_Indentation('OKC_CTC_PVT');
1698: okc_debug.log('4600: Entered validate_row', 2);
1699: END IF;
1700:
1701: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1694: BEGIN
1695:
1696: IF (l_debug = 'Y') THEN
1697: okc_debug.Set_Indentation('OKC_CTC_PVT');
1698: okc_debug.log('4600: Entered validate_row', 2);
1699: END IF;
1700:
1701: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1702: G_PKG_NAME,
1726: END IF;
1727: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1728:
1729: IF (l_debug = 'Y') THEN
1730: okc_debug.log('4700: Leaving validate_row', 2);
1731: okc_debug.Reset_Indentation;
1732: END IF;
1733:
1734: EXCEPTION
1727: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1728:
1729: IF (l_debug = 'Y') THEN
1730: okc_debug.log('4700: Leaving validate_row', 2);
1731: okc_debug.Reset_Indentation;
1732: END IF;
1733:
1734: EXCEPTION
1735: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1734: EXCEPTION
1735: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1736:
1737: IF (l_debug = 'Y') THEN
1738: okc_debug.log('4800: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1739: okc_debug.Reset_Indentation;
1740: END IF;
1741:
1742: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1735: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1736:
1737: IF (l_debug = 'Y') THEN
1738: okc_debug.log('4800: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1739: okc_debug.Reset_Indentation;
1740: END IF;
1741:
1742: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1743: (
1750: );
1751: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1752:
1753: IF (l_debug = 'Y') THEN
1754: okc_debug.log('4900: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1755: okc_debug.Reset_Indentation;
1756: END IF;
1757:
1758: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1751: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1752:
1753: IF (l_debug = 'Y') THEN
1754: okc_debug.log('4900: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1755: okc_debug.Reset_Indentation;
1756: END IF;
1757:
1758: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1759: (
1766: );
1767: WHEN OTHERS THEN
1768:
1769: IF (l_debug = 'Y') THEN
1770: okc_debug.log('5000: Exiting validate_row:OTHERS Exception', 2);
1771: okc_debug.Reset_Indentation;
1772: END IF;
1773:
1774: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1767: WHEN OTHERS THEN
1768:
1769: IF (l_debug = 'Y') THEN
1770: okc_debug.log('5000: Exiting validate_row:OTHERS Exception', 2);
1771: okc_debug.Reset_Indentation;
1772: END IF;
1773:
1774: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1775: (
1799: i NUMBER := 0;
1800: BEGIN
1801:
1802: IF (l_debug = 'Y') THEN
1803: okc_debug.Set_Indentation('OKC_CTC_PVT');
1804: okc_debug.log('5100: Entered validate_row', 2);
1805: END IF;
1806:
1807: OKC_API.init_msg_list(p_init_msg_list);
1800: BEGIN
1801:
1802: IF (l_debug = 'Y') THEN
1803: okc_debug.Set_Indentation('OKC_CTC_PVT');
1804: okc_debug.log('5100: Entered validate_row', 2);
1805: END IF;
1806:
1807: OKC_API.init_msg_list(p_init_msg_list);
1808: -- Make sure PL/SQL table has records in it before passing
1821: END LOOP;
1822: END IF;
1823:
1824: IF (l_debug = 'Y') THEN
1825: okc_debug.log('5200: Leaving validate_row', 2);
1826: okc_debug.Reset_Indentation;
1827: END IF;
1828:
1829: EXCEPTION
1822: END IF;
1823:
1824: IF (l_debug = 'Y') THEN
1825: okc_debug.log('5200: Leaving validate_row', 2);
1826: okc_debug.Reset_Indentation;
1827: END IF;
1828:
1829: EXCEPTION
1830: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1829: EXCEPTION
1830: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1831:
1832: IF (l_debug = 'Y') THEN
1833: okc_debug.log('5300: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1834: okc_debug.Reset_Indentation;
1835: END IF;
1836:
1837: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1830: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1831:
1832: IF (l_debug = 'Y') THEN
1833: okc_debug.log('5300: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1834: okc_debug.Reset_Indentation;
1835: END IF;
1836:
1837: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1838: (
1845: );
1846: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1847:
1848: IF (l_debug = 'Y') THEN
1849: okc_debug.log('5400: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1850: okc_debug.Reset_Indentation;
1851: END IF;
1852:
1853: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1846: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1847:
1848: IF (l_debug = 'Y') THEN
1849: okc_debug.log('5400: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1850: okc_debug.Reset_Indentation;
1851: END IF;
1852:
1853: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1854: (
1861: );
1862: WHEN OTHERS THEN
1863:
1864: IF (l_debug = 'Y') THEN
1865: okc_debug.log('5500: Exiting validate_row:OTHERS Exception', 2);
1866: okc_debug.Reset_Indentation;
1867: END IF;
1868:
1869: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1862: WHEN OTHERS THEN
1863:
1864: IF (l_debug = 'Y') THEN
1865: okc_debug.log('5500: Exiting validate_row:OTHERS Exception', 2);
1866: okc_debug.Reset_Indentation;
1867: END IF;
1868:
1869: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1870: (
1915: END Set_Attributes;
1916: BEGIN
1917:
1918: IF (l_debug = 'Y') THEN
1919: okc_debug.Set_Indentation('OKC_CTC_PVT');
1920: okc_debug.log('5700: Entered insert_row', 2);
1921: END IF;
1922:
1923: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1916: BEGIN
1917:
1918: IF (l_debug = 'Y') THEN
1919: okc_debug.Set_Indentation('OKC_CTC_PVT');
1920: okc_debug.log('5700: Entered insert_row', 2);
1921: END IF;
1922:
1923: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1924: p_init_msg_list,
2023: x_ctc_rec := l_ctc_rec;
2024: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2025:
2026: IF (l_debug = 'Y') THEN
2027: okc_debug.log('5800: Leaving insert_row', 2);
2028: okc_debug.Reset_Indentation;
2029: END IF;
2030:
2031: EXCEPTION
2024: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2025:
2026: IF (l_debug = 'Y') THEN
2027: okc_debug.log('5800: Leaving insert_row', 2);
2028: okc_debug.Reset_Indentation;
2029: END IF;
2030:
2031: EXCEPTION
2032: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2031: EXCEPTION
2032: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2033:
2034: IF (l_debug = 'Y') THEN
2035: okc_debug.log('5900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2036: okc_debug.Reset_Indentation;
2037: END IF;
2038:
2039: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2032: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2033:
2034: IF (l_debug = 'Y') THEN
2035: okc_debug.log('5900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2036: okc_debug.Reset_Indentation;
2037: END IF;
2038:
2039: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2040: (
2047: );
2048: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2049:
2050: IF (l_debug = 'Y') THEN
2051: okc_debug.log('6000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2052: okc_debug.Reset_Indentation;
2053: END IF;
2054:
2055: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2048: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2049:
2050: IF (l_debug = 'Y') THEN
2051: okc_debug.log('6000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2052: okc_debug.Reset_Indentation;
2053: END IF;
2054:
2055: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2056: (
2063: );
2064: WHEN OTHERS THEN
2065:
2066: IF (l_debug = 'Y') THEN
2067: okc_debug.log('6100: Exiting insert_row:OTHERS Exception', 2);
2068: okc_debug.Reset_Indentation;
2069: END IF;
2070:
2071: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2064: WHEN OTHERS THEN
2065:
2066: IF (l_debug = 'Y') THEN
2067: okc_debug.log('6100: Exiting insert_row:OTHERS Exception', 2);
2068: okc_debug.Reset_Indentation;
2069: END IF;
2070:
2071: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2072: (
2134: END Set_Attributes;
2135: BEGIN
2136:
2137: IF (l_debug = 'Y') THEN
2138: okc_debug.Set_Indentation('OKC_CTC_PVT');
2139: okc_debug.log('6400: Entered insert_row', 2);
2140: END IF;
2141:
2142: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2135: BEGIN
2136:
2137: IF (l_debug = 'Y') THEN
2138: okc_debug.Set_Indentation('OKC_CTC_PVT');
2139: okc_debug.log('6400: Entered insert_row', 2);
2140: END IF;
2141:
2142: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2143: G_PKG_NAME,
2204: x_ctcv_rec := l_def_ctcv_rec;
2205: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2206:
2207: IF (l_debug = 'Y') THEN
2208: okc_debug.log('6500: Leaving insert_row', 2);
2209: okc_debug.Reset_Indentation;
2210: END IF;
2211:
2212: EXCEPTION
2205: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2206:
2207: IF (l_debug = 'Y') THEN
2208: okc_debug.log('6500: Leaving insert_row', 2);
2209: okc_debug.Reset_Indentation;
2210: END IF;
2211:
2212: EXCEPTION
2213: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2212: EXCEPTION
2213: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2214:
2215: IF (l_debug = 'Y') THEN
2216: okc_debug.log('6600: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2217: okc_debug.Reset_Indentation;
2218: END IF;
2219:
2220: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2213: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2214:
2215: IF (l_debug = 'Y') THEN
2216: okc_debug.log('6600: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2217: okc_debug.Reset_Indentation;
2218: END IF;
2219:
2220: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2221: (
2228: );
2229: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2230:
2231: IF (l_debug = 'Y') THEN
2232: okc_debug.log('6700: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2233: okc_debug.Reset_Indentation;
2234: END IF;
2235:
2236: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2229: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2230:
2231: IF (l_debug = 'Y') THEN
2232: okc_debug.log('6700: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2233: okc_debug.Reset_Indentation;
2234: END IF;
2235:
2236: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2237: (
2244: );
2245: WHEN OTHERS THEN
2246:
2247: IF (l_debug = 'Y') THEN
2248: okc_debug.log('6800: Exiting insert_row:OTHERS Exception', 2);
2249: okc_debug.Reset_Indentation;
2250: END IF;
2251:
2252: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2245: WHEN OTHERS THEN
2246:
2247: IF (l_debug = 'Y') THEN
2248: okc_debug.log('6800: Exiting insert_row:OTHERS Exception', 2);
2249: okc_debug.Reset_Indentation;
2250: END IF;
2251:
2252: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2253: (
2278: i NUMBER := 0;
2279: BEGIN
2280:
2281: IF (l_debug = 'Y') THEN
2282: okc_debug.Set_Indentation('OKC_CTC_PVT');
2283: okc_debug.log('6900: Entered insert_row', 2);
2284: END IF;
2285:
2286: OKC_API.init_msg_list(p_init_msg_list);
2279: BEGIN
2280:
2281: IF (l_debug = 'Y') THEN
2282: okc_debug.Set_Indentation('OKC_CTC_PVT');
2283: okc_debug.log('6900: Entered insert_row', 2);
2284: END IF;
2285:
2286: OKC_API.init_msg_list(p_init_msg_list);
2287: -- Make sure PL/SQL table has records in it before passing
2301: END LOOP;
2302: END IF;
2303:
2304: IF (l_debug = 'Y') THEN
2305: okc_debug.log('7000: Leaving insert_row', 2);
2306: okc_debug.Reset_Indentation;
2307: END IF;
2308:
2309: EXCEPTION
2302: END IF;
2303:
2304: IF (l_debug = 'Y') THEN
2305: okc_debug.log('7000: Leaving insert_row', 2);
2306: okc_debug.Reset_Indentation;
2307: END IF;
2308:
2309: EXCEPTION
2310: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2309: EXCEPTION
2310: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2311:
2312: IF (l_debug = 'Y') THEN
2313: okc_debug.log('7100: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2314: okc_debug.Reset_Indentation;
2315: END IF;
2316:
2317: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2310: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2311:
2312: IF (l_debug = 'Y') THEN
2313: okc_debug.log('7100: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2314: okc_debug.Reset_Indentation;
2315: END IF;
2316:
2317: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2318: (
2325: );
2326: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2327:
2328: IF (l_debug = 'Y') THEN
2329: okc_debug.log('7200: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2330: okc_debug.Reset_Indentation;
2331: END IF;
2332:
2333: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2326: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2327:
2328: IF (l_debug = 'Y') THEN
2329: okc_debug.log('7200: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2330: okc_debug.Reset_Indentation;
2331: END IF;
2332:
2333: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2334: (
2341: );
2342: WHEN OTHERS THEN
2343:
2344: IF (l_debug = 'Y') THEN
2345: okc_debug.log('7300: Exiting insert_row:OTHERS Exception', 2);
2346: okc_debug.Reset_Indentation;
2347: END IF;
2348:
2349: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2342: WHEN OTHERS THEN
2343:
2344: IF (l_debug = 'Y') THEN
2345: okc_debug.log('7300: Exiting insert_row:OTHERS Exception', 2);
2346: okc_debug.Reset_Indentation;
2347: END IF;
2348:
2349: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2350: (
2393: lc_row_notfound BOOLEAN := FALSE;
2394: BEGIN
2395:
2396: IF (l_debug = 'Y') THEN
2397: okc_debug.Set_Indentation('OKC_CTC_PVT');
2398: okc_debug.log('7400: Entered lock_row', 2);
2399: END IF;
2400:
2401: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2394: BEGIN
2395:
2396: IF (l_debug = 'Y') THEN
2397: okc_debug.Set_Indentation('OKC_CTC_PVT');
2398: okc_debug.log('7400: Entered lock_row', 2);
2399: END IF;
2400:
2401: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2402: p_init_msg_list,
2409: END IF;
2410: BEGIN
2411:
2412: IF (l_debug = 'Y') THEN
2413: okc_debug.Set_Indentation('OKC_CTC_PVT');
2414: okc_debug.log('7500: Entered lock_row', 2);
2415: END IF;
2416:
2417: OPEN lock_csr(p_ctc_rec);
2410: BEGIN
2411:
2412: IF (l_debug = 'Y') THEN
2413: okc_debug.Set_Indentation('OKC_CTC_PVT');
2414: okc_debug.log('7500: Entered lock_row', 2);
2415: END IF;
2416:
2417: OPEN lock_csr(p_ctc_rec);
2418: FETCH lock_csr INTO l_object_version_number;
2419: l_row_notfound := lock_csr%NOTFOUND;
2420: CLOSE lock_csr;
2421:
2422: IF (l_debug = 'Y') THEN
2423: okc_debug.log('7600: Leaving lock_row', 2);
2424: okc_debug.Reset_Indentation;
2425: END IF;
2426:
2427: EXCEPTION
2420: CLOSE lock_csr;
2421:
2422: IF (l_debug = 'Y') THEN
2423: okc_debug.log('7600: Leaving lock_row', 2);
2424: okc_debug.Reset_Indentation;
2425: END IF;
2426:
2427: EXCEPTION
2428: WHEN E_Resource_Busy THEN
2427: EXCEPTION
2428: WHEN E_Resource_Busy THEN
2429:
2430: IF (l_debug = 'Y') THEN
2431: okc_debug.log('7700: Exiting lock_row:E_Resource_Busy Exception', 2);
2432: okc_debug.Reset_Indentation;
2433: END IF;
2434:
2435: IF (lock_csr%ISOPEN) THEN
2428: WHEN E_Resource_Busy THEN
2429:
2430: IF (l_debug = 'Y') THEN
2431: okc_debug.log('7700: Exiting lock_row:E_Resource_Busy Exception', 2);
2432: okc_debug.Reset_Indentation;
2433: END IF;
2434:
2435: IF (lock_csr%ISOPEN) THEN
2436: CLOSE lock_csr;
2460: END IF;
2461: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2462:
2463: IF (l_debug = 'Y') THEN
2464: okc_debug.log('7800: Leaving lock_row', 2);
2465: okc_debug.Reset_Indentation;
2466: END IF;
2467:
2468: EXCEPTION
2461: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2462:
2463: IF (l_debug = 'Y') THEN
2464: okc_debug.log('7800: Leaving lock_row', 2);
2465: okc_debug.Reset_Indentation;
2466: END IF;
2467:
2468: EXCEPTION
2469: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2468: EXCEPTION
2469: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2470:
2471: IF (l_debug = 'Y') THEN
2472: okc_debug.log('7900: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2473: okc_debug.Reset_Indentation;
2474: END IF;
2475:
2476: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2469: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2470:
2471: IF (l_debug = 'Y') THEN
2472: okc_debug.log('7900: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2473: okc_debug.Reset_Indentation;
2474: END IF;
2475:
2476: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2477: (
2484: );
2485: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2486:
2487: IF (l_debug = 'Y') THEN
2488: okc_debug.log('8000: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2489: okc_debug.Reset_Indentation;
2490: END IF;
2491:
2492: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2485: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2486:
2487: IF (l_debug = 'Y') THEN
2488: okc_debug.log('8000: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2489: okc_debug.Reset_Indentation;
2490: END IF;
2491:
2492: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2493: (
2500: );
2501: WHEN OTHERS THEN
2502:
2503: IF (l_debug = 'Y') THEN
2504: okc_debug.log('8100: Exiting lock_row:OTHERS Exception', 2);
2505: okc_debug.Reset_Indentation;
2506: END IF;
2507:
2508: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2501: WHEN OTHERS THEN
2502:
2503: IF (l_debug = 'Y') THEN
2504: okc_debug.log('8100: Exiting lock_row:OTHERS Exception', 2);
2505: okc_debug.Reset_Indentation;
2506: END IF;
2507:
2508: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2509: (
2533: l_ctc_rec ctc_rec_type;
2534: BEGIN
2535:
2536: IF (l_debug = 'Y') THEN
2537: okc_debug.Set_Indentation('OKC_CTC_PVT');
2538: okc_debug.log('8200: Entered lock_row', 2);
2539: END IF;
2540:
2541: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2534: BEGIN
2535:
2536: IF (l_debug = 'Y') THEN
2537: okc_debug.Set_Indentation('OKC_CTC_PVT');
2538: okc_debug.log('8200: Entered lock_row', 2);
2539: END IF;
2540:
2541: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2542: G_PKG_NAME,
2571: END IF;
2572: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2573:
2574: IF (l_debug = 'Y') THEN
2575: okc_debug.log('8300: Leaving lock_row', 2);
2576: okc_debug.Reset_Indentation;
2577: END IF;
2578:
2579: EXCEPTION
2572: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2573:
2574: IF (l_debug = 'Y') THEN
2575: okc_debug.log('8300: Leaving lock_row', 2);
2576: okc_debug.Reset_Indentation;
2577: END IF;
2578:
2579: EXCEPTION
2580: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2579: EXCEPTION
2580: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2581:
2582: IF (l_debug = 'Y') THEN
2583: okc_debug.log('8400: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2584: okc_debug.Reset_Indentation;
2585: END IF;
2586:
2587: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2580: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2581:
2582: IF (l_debug = 'Y') THEN
2583: okc_debug.log('8400: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2584: okc_debug.Reset_Indentation;
2585: END IF;
2586:
2587: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2588: (
2595: );
2596: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2597:
2598: IF (l_debug = 'Y') THEN
2599: okc_debug.log('8500: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2600: okc_debug.Reset_Indentation;
2601: END IF;
2602:
2603: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2596: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2597:
2598: IF (l_debug = 'Y') THEN
2599: okc_debug.log('8500: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2600: okc_debug.Reset_Indentation;
2601: END IF;
2602:
2603: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2604: (
2611: );
2612: WHEN OTHERS THEN
2613:
2614: IF (l_debug = 'Y') THEN
2615: okc_debug.log('8600: Exiting lock_row:OTHERS Exception', 2);
2616: okc_debug.Reset_Indentation;
2617: END IF;
2618:
2619: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2612: WHEN OTHERS THEN
2613:
2614: IF (l_debug = 'Y') THEN
2615: okc_debug.log('8600: Exiting lock_row:OTHERS Exception', 2);
2616: okc_debug.Reset_Indentation;
2617: END IF;
2618:
2619: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2620: (
2644: i NUMBER := 0;
2645: BEGIN
2646:
2647: IF (l_debug = 'Y') THEN
2648: okc_debug.Set_Indentation('OKC_CTC_PVT');
2649: okc_debug.log('8700: Entered lock_row', 2);
2650: END IF;
2651:
2652: OKC_API.init_msg_list(p_init_msg_list);
2645: BEGIN
2646:
2647: IF (l_debug = 'Y') THEN
2648: okc_debug.Set_Indentation('OKC_CTC_PVT');
2649: okc_debug.log('8700: Entered lock_row', 2);
2650: END IF;
2651:
2652: OKC_API.init_msg_list(p_init_msg_list);
2653: -- Make sure PL/SQL table has records in it before passing
2666: END LOOP;
2667: END IF;
2668:
2669: IF (l_debug = 'Y') THEN
2670: okc_debug.log('8800: Leaving lock_row', 2);
2671: okc_debug.Reset_Indentation;
2672: END IF;
2673:
2674: EXCEPTION
2667: END IF;
2668:
2669: IF (l_debug = 'Y') THEN
2670: okc_debug.log('8800: Leaving lock_row', 2);
2671: okc_debug.Reset_Indentation;
2672: END IF;
2673:
2674: EXCEPTION
2675: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2674: EXCEPTION
2675: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2676:
2677: IF (l_debug = 'Y') THEN
2678: okc_debug.log('8900: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2679: okc_debug.Reset_Indentation;
2680: END IF;
2681:
2682: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2675: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2676:
2677: IF (l_debug = 'Y') THEN
2678: okc_debug.log('8900: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2679: okc_debug.Reset_Indentation;
2680: END IF;
2681:
2682: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2683: (
2690: );
2691: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2692:
2693: IF (l_debug = 'Y') THEN
2694: okc_debug.log('9000: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2695: okc_debug.Reset_Indentation;
2696: END IF;
2697:
2698: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2691: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2692:
2693: IF (l_debug = 'Y') THEN
2694: okc_debug.log('9000: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2695: okc_debug.Reset_Indentation;
2696: END IF;
2697:
2698: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2699: (
2706: );
2707: WHEN OTHERS THEN
2708:
2709: IF (l_debug = 'Y') THEN
2710: okc_debug.log('9100: Exiting lock_row:OTHERS Exception', 2);
2711: okc_debug.Reset_Indentation;
2712: END IF;
2713:
2714: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2707: WHEN OTHERS THEN
2708:
2709: IF (l_debug = 'Y') THEN
2710: okc_debug.log('9100: Exiting lock_row:OTHERS Exception', 2);
2711: okc_debug.Reset_Indentation;
2712: END IF;
2713:
2714: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2715: (
2767: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2768: BEGIN
2769:
2770: IF (l_debug = 'Y') THEN
2771: okc_debug.Set_Indentation('OKC_CTC_PVT');
2772: okc_debug.log('9200: Entered populate_new_record', 2);
2773: END IF;
2774:
2775: x_ctc_rec := p_ctc_rec;
2768: BEGIN
2769:
2770: IF (l_debug = 'Y') THEN
2771: okc_debug.Set_Indentation('OKC_CTC_PVT');
2772: okc_debug.log('9200: Entered populate_new_record', 2);
2773: END IF;
2774:
2775: x_ctc_rec := p_ctc_rec;
2776: -- Get current database values
2924: x_ctc_rec.end_date := l_ctc_rec.end_date;
2925: END IF;
2926:
2927: IF (l_debug = 'Y') THEN
2928: okc_debug.log('9250: Leaving populate_new_record ', 2);
2929: okc_debug.Reset_Indentation;
2930: END IF;
2931:
2932: RETURN(l_return_status);
2925: END IF;
2926:
2927: IF (l_debug = 'Y') THEN
2928: okc_debug.log('9250: Leaving populate_new_record ', 2);
2929: okc_debug.Reset_Indentation;
2930: END IF;
2931:
2932: RETURN(l_return_status);
2933:
2949: END Set_Attributes;
2950: BEGIN
2951:
2952: IF (l_debug = 'Y') THEN
2953: okc_debug.Set_Indentation('OKC_CTC_PVT');
2954: okc_debug.log('9400: Entered update_row', 2);
2955: END IF;
2956:
2957: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2950: BEGIN
2951:
2952: IF (l_debug = 'Y') THEN
2953: okc_debug.Set_Indentation('OKC_CTC_PVT');
2954: okc_debug.log('9400: Entered update_row', 2);
2955: END IF;
2956:
2957: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2958: p_init_msg_list,
3025: x_ctc_rec := l_def_ctc_rec;
3026: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3027:
3028: IF (l_debug = 'Y') THEN
3029: okc_debug.log('9500: Leaving update_row', 2);
3030: okc_debug.Reset_Indentation;
3031: END IF;
3032:
3033: EXCEPTION
3026: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3027:
3028: IF (l_debug = 'Y') THEN
3029: okc_debug.log('9500: Leaving update_row', 2);
3030: okc_debug.Reset_Indentation;
3031: END IF;
3032:
3033: EXCEPTION
3034: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3033: EXCEPTION
3034: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3035:
3036: IF (l_debug = 'Y') THEN
3037: okc_debug.log('9600: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3038: okc_debug.Reset_Indentation;
3039: END IF;
3040:
3041: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3034: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3035:
3036: IF (l_debug = 'Y') THEN
3037: okc_debug.log('9600: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3038: okc_debug.Reset_Indentation;
3039: END IF;
3040:
3041: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3042: (
3049: );
3050: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3051:
3052: IF (l_debug = 'Y') THEN
3053: okc_debug.log('9700: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3054: okc_debug.Reset_Indentation;
3055: END IF;
3056:
3057: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3050: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3051:
3052: IF (l_debug = 'Y') THEN
3053: okc_debug.log('9700: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3054: okc_debug.Reset_Indentation;
3055: END IF;
3056:
3057: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3058: (
3065: );
3066: WHEN OTHERS THEN
3067:
3068: IF (l_debug = 'Y') THEN
3069: okc_debug.log('9800: Exiting update_row:OTHERS Exception', 2);
3070: okc_debug.Reset_Indentation;
3071: END IF;
3072:
3073: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3066: WHEN OTHERS THEN
3067:
3068: IF (l_debug = 'Y') THEN
3069: okc_debug.log('9800: Exiting update_row:OTHERS Exception', 2);
3070: okc_debug.Reset_Indentation;
3071: END IF;
3072:
3073: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3074: (
3128: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3129: BEGIN
3130:
3131: IF (l_debug = 'Y') THEN
3132: okc_debug.Set_Indentation('OKC_CTC_PVT');
3133: okc_debug.log('10000: Entered populate_new_record', 2);
3134: END IF;
3135:
3136: x_ctcv_rec := p_ctcv_rec;
3129: BEGIN
3130:
3131: IF (l_debug = 'Y') THEN
3132: okc_debug.Set_Indentation('OKC_CTC_PVT');
3133: okc_debug.log('10000: Entered populate_new_record', 2);
3134: END IF;
3135:
3136: x_ctcv_rec := p_ctcv_rec;
3137: -- Get current database values
3281: x_ctcv_rec.end_date := l_ctcv_rec.end_date;
3282: END IF;
3283:
3284: IF (l_debug = 'Y') THEN
3285: okc_debug.log('10050: Leaving populate_new_record ', 2);
3286: okc_debug.Reset_Indentation;
3287: END IF;
3288:
3289: RETURN(l_return_status);
3282: END IF;
3283:
3284: IF (l_debug = 'Y') THEN
3285: okc_debug.log('10050: Leaving populate_new_record ', 2);
3286: okc_debug.Reset_Indentation;
3287: END IF;
3288:
3289: RETURN(l_return_status);
3290:
3307: END Set_Attributes;
3308: BEGIN
3309:
3310: IF (l_debug = 'Y') THEN
3311: okc_debug.Set_Indentation('OKC_CTC_PVT');
3312: okc_debug.log('10200: Entered update_row', 2);
3313: END IF;
3314:
3315: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3308: BEGIN
3309:
3310: IF (l_debug = 'Y') THEN
3311: okc_debug.Set_Indentation('OKC_CTC_PVT');
3312: okc_debug.log('10200: Entered update_row', 2);
3313: END IF;
3314:
3315: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3316: G_PKG_NAME,
3380: x_ctcv_rec := l_def_ctcv_rec;
3381: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3382:
3383: IF (l_debug = 'Y') THEN
3384: okc_debug.log('10300: Leaving update_row', 2);
3385: okc_debug.Reset_Indentation;
3386: END IF;
3387:
3388: EXCEPTION
3381: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3382:
3383: IF (l_debug = 'Y') THEN
3384: okc_debug.log('10300: Leaving update_row', 2);
3385: okc_debug.Reset_Indentation;
3386: END IF;
3387:
3388: EXCEPTION
3389: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3388: EXCEPTION
3389: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3390:
3391: IF (l_debug = 'Y') THEN
3392: okc_debug.log('10400: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3393: okc_debug.Reset_Indentation;
3394: END IF;
3395:
3396: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3389: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3390:
3391: IF (l_debug = 'Y') THEN
3392: okc_debug.log('10400: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3393: okc_debug.Reset_Indentation;
3394: END IF;
3395:
3396: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3397: (
3404: );
3405: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3406:
3407: IF (l_debug = 'Y') THEN
3408: okc_debug.log('10500: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3409: okc_debug.Reset_Indentation;
3410: END IF;
3411:
3412: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3405: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3406:
3407: IF (l_debug = 'Y') THEN
3408: okc_debug.log('10500: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3409: okc_debug.Reset_Indentation;
3410: END IF;
3411:
3412: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3413: (
3420: );
3421: WHEN OTHERS THEN
3422:
3423: IF (l_debug = 'Y') THEN
3424: okc_debug.log('10600: Exiting update_row:OTHERS Exception', 2);
3425: okc_debug.Reset_Indentation;
3426: END IF;
3427:
3428: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3421: WHEN OTHERS THEN
3422:
3423: IF (l_debug = 'Y') THEN
3424: okc_debug.log('10600: Exiting update_row:OTHERS Exception', 2);
3425: okc_debug.Reset_Indentation;
3426: END IF;
3427:
3428: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3429: (
3454: i NUMBER := 0;
3455: BEGIN
3456:
3457: IF (l_debug = 'Y') THEN
3458: okc_debug.Set_Indentation('OKC_CTC_PVT');
3459: okc_debug.log('10700: Entered update_row', 2);
3460: END IF;
3461:
3462: OKC_API.init_msg_list(p_init_msg_list);
3455: BEGIN
3456:
3457: IF (l_debug = 'Y') THEN
3458: okc_debug.Set_Indentation('OKC_CTC_PVT');
3459: okc_debug.log('10700: Entered update_row', 2);
3460: END IF;
3461:
3462: OKC_API.init_msg_list(p_init_msg_list);
3463: -- Make sure PL/SQL table has records in it before passing
3477: END LOOP;
3478: END IF;
3479:
3480: IF (l_debug = 'Y') THEN
3481: okc_debug.log('10800: Leaving update_row', 2);
3482: okc_debug.Reset_Indentation;
3483: END IF;
3484:
3485: EXCEPTION
3478: END IF;
3479:
3480: IF (l_debug = 'Y') THEN
3481: okc_debug.log('10800: Leaving update_row', 2);
3482: okc_debug.Reset_Indentation;
3483: END IF;
3484:
3485: EXCEPTION
3486: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3485: EXCEPTION
3486: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3487:
3488: IF (l_debug = 'Y') THEN
3489: okc_debug.log('10900: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3490: okc_debug.Reset_Indentation;
3491: END IF;
3492:
3493: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3486: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3487:
3488: IF (l_debug = 'Y') THEN
3489: okc_debug.log('10900: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3490: okc_debug.Reset_Indentation;
3491: END IF;
3492:
3493: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3494: (
3501: );
3502: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3503:
3504: IF (l_debug = 'Y') THEN
3505: okc_debug.log('11000: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3506: okc_debug.Reset_Indentation;
3507: END IF;
3508:
3509: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3502: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3503:
3504: IF (l_debug = 'Y') THEN
3505: okc_debug.log('11000: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3506: okc_debug.Reset_Indentation;
3507: END IF;
3508:
3509: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3510: (
3517: );
3518: WHEN OTHERS THEN
3519:
3520: IF (l_debug = 'Y') THEN
3521: okc_debug.log('11100: Exiting update_row:OTHERS Exception', 2);
3522: okc_debug.Reset_Indentation;
3523: END IF;
3524:
3525: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3518: WHEN OTHERS THEN
3519:
3520: IF (l_debug = 'Y') THEN
3521: okc_debug.log('11100: Exiting update_row:OTHERS Exception', 2);
3522: okc_debug.Reset_Indentation;
3523: END IF;
3524:
3525: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3526: (
3554: l_row_notfound BOOLEAN := TRUE;
3555: BEGIN
3556:
3557: IF (l_debug = 'Y') THEN
3558: okc_debug.Set_Indentation('OKC_CTC_PVT');
3559: okc_debug.log('11200: Entered delete_row', 2);
3560: END IF;
3561:
3562: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3555: BEGIN
3556:
3557: IF (l_debug = 'Y') THEN
3558: okc_debug.Set_Indentation('OKC_CTC_PVT');
3559: okc_debug.log('11200: Entered delete_row', 2);
3560: END IF;
3561:
3562: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3563: p_init_msg_list,
3573:
3574: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3575:
3576: IF (l_debug = 'Y') THEN
3577: okc_debug.log('11300: Leaving delete_row', 2);
3578: okc_debug.Reset_Indentation;
3579: END IF;
3580:
3581: EXCEPTION
3574: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3575:
3576: IF (l_debug = 'Y') THEN
3577: okc_debug.log('11300: Leaving delete_row', 2);
3578: okc_debug.Reset_Indentation;
3579: END IF;
3580:
3581: EXCEPTION
3582: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3581: EXCEPTION
3582: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3583:
3584: IF (l_debug = 'Y') THEN
3585: okc_debug.log('11400: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3586: okc_debug.Reset_Indentation;
3587: END IF;
3588:
3589: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3582: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3583:
3584: IF (l_debug = 'Y') THEN
3585: okc_debug.log('11400: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3586: okc_debug.Reset_Indentation;
3587: END IF;
3588:
3589: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3590: (
3597: );
3598: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3599:
3600: IF (l_debug = 'Y') THEN
3601: okc_debug.log('11500: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3602: okc_debug.Reset_Indentation;
3603: END IF;
3604:
3605: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3598: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3599:
3600: IF (l_debug = 'Y') THEN
3601: okc_debug.log('11500: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3602: okc_debug.Reset_Indentation;
3603: END IF;
3604:
3605: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3606: (
3613: );
3614: WHEN OTHERS THEN
3615:
3616: IF (l_debug = 'Y') THEN
3617: okc_debug.log('11600: Exiting delete_row:OTHERS Exception', 2);
3618: okc_debug.Reset_Indentation;
3619: END IF;
3620:
3621: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3614: WHEN OTHERS THEN
3615:
3616: IF (l_debug = 'Y') THEN
3617: okc_debug.log('11600: Exiting delete_row:OTHERS Exception', 2);
3618: okc_debug.Reset_Indentation;
3619: END IF;
3620:
3621: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3622: (
3647: l_ctc_rec ctc_rec_type;
3648: BEGIN
3649:
3650: IF (l_debug = 'Y') THEN
3651: okc_debug.Set_Indentation('OKC_CTC_PVT');
3652: okc_debug.log('11700: Entered delete_row', 2);
3653: END IF;
3654:
3655: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3648: BEGIN
3649:
3650: IF (l_debug = 'Y') THEN
3651: okc_debug.Set_Indentation('OKC_CTC_PVT');
3652: okc_debug.log('11700: Entered delete_row', 2);
3653: END IF;
3654:
3655: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3656: G_PKG_NAME,
3685: END IF;
3686: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3687:
3688: IF (l_debug = 'Y') THEN
3689: okc_debug.log('11800: Leaving delete_row', 2);
3690: okc_debug.Reset_Indentation;
3691: END IF;
3692:
3693: EXCEPTION
3686: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3687:
3688: IF (l_debug = 'Y') THEN
3689: okc_debug.log('11800: Leaving delete_row', 2);
3690: okc_debug.Reset_Indentation;
3691: END IF;
3692:
3693: EXCEPTION
3694: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3693: EXCEPTION
3694: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3695:
3696: IF (l_debug = 'Y') THEN
3697: okc_debug.log('11900: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3698: okc_debug.Reset_Indentation;
3699: END IF;
3700:
3701: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3694: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3695:
3696: IF (l_debug = 'Y') THEN
3697: okc_debug.log('11900: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3698: okc_debug.Reset_Indentation;
3699: END IF;
3700:
3701: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3702: (
3709: );
3710: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3711:
3712: IF (l_debug = 'Y') THEN
3713: okc_debug.log('12000: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3714: okc_debug.Reset_Indentation;
3715: END IF;
3716:
3717: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3710: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3711:
3712: IF (l_debug = 'Y') THEN
3713: okc_debug.log('12000: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3714: okc_debug.Reset_Indentation;
3715: END IF;
3716:
3717: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3718: (
3725: );
3726: WHEN OTHERS THEN
3727:
3728: IF (l_debug = 'Y') THEN
3729: okc_debug.log('12100: Exiting delete_row:OTHERS Exception', 2);
3730: okc_debug.Reset_Indentation;
3731: END IF;
3732:
3733: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3726: WHEN OTHERS THEN
3727:
3728: IF (l_debug = 'Y') THEN
3729: okc_debug.log('12100: Exiting delete_row:OTHERS Exception', 2);
3730: okc_debug.Reset_Indentation;
3731: END IF;
3732:
3733: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3734: (
3758: i NUMBER := 0;
3759: BEGIN
3760:
3761: IF (l_debug = 'Y') THEN
3762: okc_debug.Set_Indentation('OKC_CTC_PVT');
3763: okc_debug.log('12200: Entered delete_row', 2);
3764: END IF;
3765:
3766: OKC_API.init_msg_list(p_init_msg_list);
3759: BEGIN
3760:
3761: IF (l_debug = 'Y') THEN
3762: okc_debug.Set_Indentation('OKC_CTC_PVT');
3763: okc_debug.log('12200: Entered delete_row', 2);
3764: END IF;
3765:
3766: OKC_API.init_msg_list(p_init_msg_list);
3767: -- Make sure PL/SQL table has records in it before passing
3780: END LOOP;
3781: END IF;
3782:
3783: IF (l_debug = 'Y') THEN
3784: okc_debug.log('12300: Exiting delete_row', 2);
3785: okc_debug.Reset_Indentation;
3786: END IF;
3787:
3788: EXCEPTION
3781: END IF;
3782:
3783: IF (l_debug = 'Y') THEN
3784: okc_debug.log('12300: Exiting delete_row', 2);
3785: okc_debug.Reset_Indentation;
3786: END IF;
3787:
3788: EXCEPTION
3789: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3788: EXCEPTION
3789: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3790:
3791: IF (l_debug = 'Y') THEN
3792: okc_debug.log('12400: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3793: okc_debug.Reset_Indentation;
3794: END IF;
3795:
3796: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3789: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3790:
3791: IF (l_debug = 'Y') THEN
3792: okc_debug.log('12400: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3793: okc_debug.Reset_Indentation;
3794: END IF;
3795:
3796: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3797: (
3804: );
3805: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3806:
3807: IF (l_debug = 'Y') THEN
3808: okc_debug.log('12500: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3809: okc_debug.Reset_Indentation;
3810: END IF;
3811:
3812: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3805: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3806:
3807: IF (l_debug = 'Y') THEN
3808: okc_debug.log('12500: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3809: okc_debug.Reset_Indentation;
3810: END IF;
3811:
3812: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3813: (
3820: );
3821: WHEN OTHERS THEN
3822:
3823: IF (l_debug = 'Y') THEN
3824: okc_debug.log('12600: Exiting delete_row:OTHERS Exception', 2);
3825: okc_debug.Reset_Indentation;
3826: END IF;
3827:
3828: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3821: WHEN OTHERS THEN
3822:
3823: IF (l_debug = 'Y') THEN
3824: okc_debug.log('12600: Exiting delete_row:OTHERS Exception', 2);
3825: okc_debug.Reset_Indentation;
3826: END IF;
3827:
3828: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3829: (
3894: -- initialize return status
3895: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3896:
3897: IF (l_debug = 'Y') THEN
3898: okc_debug.Set_Indentation('OKC_CTC_PVT');
3899: okc_debug.log('12700: Entered INSERT_ROW_UPG', 2);
3900: END IF;
3901:
3902: i := p_ctcv_tbl.FIRST; j:=0;
3895: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3896:
3897: IF (l_debug = 'Y') THEN
3898: okc_debug.Set_Indentation('OKC_CTC_PVT');
3899: okc_debug.log('12700: Entered INSERT_ROW_UPG', 2);
3900: END IF;
3901:
3902: i := p_ctcv_tbl.FIRST; j:=0;
3903: while i is not null
4032: in_dnz_ste_code(i)
4033: );
4034:
4035: IF (l_debug = 'Y') THEN
4036: okc_debug.log('12800: Leaving INSERT_ROW_UPG', 2);
4037: okc_debug.Reset_Indentation;
4038: END IF;
4039:
4040: EXCEPTION
4033: );
4034:
4035: IF (l_debug = 'Y') THEN
4036: okc_debug.log('12800: Leaving INSERT_ROW_UPG', 2);
4037: okc_debug.Reset_Indentation;
4038: END IF;
4039:
4040: EXCEPTION
4041: WHEN OTHERS THEN
4050: -- notify caller of an error as UNEXPECTED error
4051: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4052:
4053:
4054: /*okc_debug.log('12900: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
4055: IF (l_debug = 'Y') THEN
4056: okc_debug.Reset_Indentation;
4057: END IF;
4058:
4052:
4053:
4054: /*okc_debug.log('12900: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
4055: IF (l_debug = 'Y') THEN
4056: okc_debug.Reset_Indentation;
4057: END IF;
4058:
4059: RAISE*/
4060:
4074:
4075: BEGIN
4076:
4077: IF (l_debug = 'Y') THEN
4078: okc_debug.Set_Indentation('OKC_CTC_PVT');
4079: okc_debug.log('13000: Entered create_version', 2);
4080: END IF;
4081:
4082: INSERT INTO okc_contacts_h
4075: BEGIN
4076:
4077: IF (l_debug = 'Y') THEN
4078: okc_debug.Set_Indentation('OKC_CTC_PVT');
4079: okc_debug.log('13000: Entered create_version', 2);
4080: END IF;
4081:
4082: INSERT INTO okc_contacts_h
4083: (
4158: FROM okc_contacts
4159: WHERE dnz_chr_id = p_chr_id;
4160:
4161: IF (l_debug = 'Y') THEN
4162: okc_debug.log('13100: Exiting create_version', 2);
4163: okc_debug.Reset_Indentation;
4164: END IF;
4165:
4166: RETURN l_return_status;
4159: WHERE dnz_chr_id = p_chr_id;
4160:
4161: IF (l_debug = 'Y') THEN
4162: okc_debug.log('13100: Exiting create_version', 2);
4163: okc_debug.Reset_Indentation;
4164: END IF;
4165:
4166: RETURN l_return_status;
4167:
4169: -- other appropriate handlers
4170: WHEN OTHERS THEN
4171:
4172: IF (l_debug = 'Y') THEN
4173: okc_debug.log('13200: Exiting create_version:OTHERS Exception', 2);
4174: okc_debug.Reset_Indentation;
4175: END IF;
4176:
4177: -- store SQL error message on message stack
4170: WHEN OTHERS THEN
4171:
4172: IF (l_debug = 'Y') THEN
4173: okc_debug.log('13200: Exiting create_version:OTHERS Exception', 2);
4174: okc_debug.Reset_Indentation;
4175: END IF;
4176:
4177: -- store SQL error message on message stack
4178: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
4201:
4202: BEGIN
4203:
4204: IF (l_debug = 'Y') THEN
4205: okc_debug.Set_Indentation('OKC_CTC_PVT');
4206: okc_debug.log('13300: Entered restore_version', 2);
4207: END IF;
4208:
4209: INSERT INTO okc_contacts
4202: BEGIN
4203:
4204: IF (l_debug = 'Y') THEN
4205: okc_debug.Set_Indentation('OKC_CTC_PVT');
4206: okc_debug.log('13300: Entered restore_version', 2);
4207: END IF;
4208:
4209: INSERT INTO okc_contacts
4210: (
4293: END IF;
4294: /* Bug fix for 6882512*/
4295:
4296: IF (l_debug = 'Y') THEN
4297: okc_debug.log('13400: Exiting restore_version', 2);
4298: okc_debug.Reset_Indentation;
4299: END IF;
4300:
4301: RETURN l_return_status;
4294: /* Bug fix for 6882512*/
4295:
4296: IF (l_debug = 'Y') THEN
4297: okc_debug.log('13400: Exiting restore_version', 2);
4298: okc_debug.Reset_Indentation;
4299: END IF;
4300:
4301: RETURN l_return_status;
4302:
4304: -- other appropriate handlers
4305: WHEN OTHERS THEN
4306:
4307: IF (l_debug = 'Y') THEN
4308: okc_debug.log('13500: Exiting restore_version:OTHERS Exception', 2);
4309: okc_debug.Reset_Indentation;
4310: END IF;
4311:
4312: -- store SQL error message on message stack
4305: WHEN OTHERS THEN
4306:
4307: IF (l_debug = 'Y') THEN
4308: okc_debug.log('13500: Exiting restore_version:OTHERS Exception', 2);
4309: okc_debug.Reset_Indentation;
4310: END IF;
4311:
4312: -- store SQL error message on message stack
4313: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,