124: l_pat_rec pat_rec_type;
125: BEGIN
126:
127: IF (l_debug = 'Y') THEN
128: okc_debug.Set_Indentation('OKC_PAT_PVT');
129: okc_debug.log('500: Entered get_rec', 2);
130: END IF;
131:
132: x_no_data_found := TRUE;
125: BEGIN
126:
127: IF (l_debug = 'Y') THEN
128: okc_debug.Set_Indentation('OKC_PAT_PVT');
129: okc_debug.log('500: Entered get_rec', 2);
130: END IF;
131:
132: x_no_data_found := TRUE;
133: -- Get current database values
203: x_no_data_found := pat_pk_csr%NOTFOUND;
204: CLOSE pat_pk_csr;
205:
206: IF (l_debug = 'Y') THEN
207: okc_debug.log('550: Leaving get_rec ', 2);
208: okc_debug.Reset_Indentation;
209: END IF;
210:
211: RETURN(l_pat_rec);
204: CLOSE pat_pk_csr;
205:
206: IF (l_debug = 'Y') THEN
207: okc_debug.log('550: Leaving get_rec ', 2);
208: okc_debug.Reset_Indentation;
209: END IF;
210:
211: RETURN(l_pat_rec);
212:
303: l_patv_rec patv_rec_type;
304: BEGIN
305:
306: IF (l_debug = 'Y') THEN
307: okc_debug.Set_Indentation('OKC_PAT_PVT');
308: okc_debug.log('700: Entered get_rec', 2);
309: END IF;
310:
311: x_no_data_found := TRUE;
304: BEGIN
305:
306: IF (l_debug = 'Y') THEN
307: okc_debug.Set_Indentation('OKC_PAT_PVT');
308: okc_debug.log('700: Entered get_rec', 2);
309: END IF;
310:
311: x_no_data_found := TRUE;
312: -- Get current database values
382: x_no_data_found := okc_patv_pk_csr%NOTFOUND;
383: CLOSE okc_patv_pk_csr;
384:
385: IF (l_debug = 'Y') THEN
386: okc_debug.log('750: Leaving get_rec ', 2);
387: okc_debug.Reset_Indentation;
388: END IF;
389:
390: RETURN(l_patv_rec);
383: CLOSE okc_patv_pk_csr;
384:
385: IF (l_debug = 'Y') THEN
386: okc_debug.log('750: Leaving get_rec ', 2);
387: okc_debug.Reset_Indentation;
388: END IF;
389:
390: RETURN(l_patv_rec);
391:
410: l_patv_rec patv_rec_type := p_patv_rec;
411: BEGIN
412:
413: IF (l_debug = 'Y') THEN
414: okc_debug.Set_Indentation('OKC_PAT_PVT');
415: okc_debug.log('900: Entered null_out_defaults', 2);
416: END IF;
417:
418: IF (l_patv_rec.pat_id = OKC_API.G_MISS_NUM) THEN
411: BEGIN
412:
413: IF (l_debug = 'Y') THEN
414: okc_debug.Set_Indentation('OKC_PAT_PVT');
415: okc_debug.log('900: Entered null_out_defaults', 2);
416: END IF;
417:
418: IF (l_patv_rec.pat_id = OKC_API.G_MISS_NUM) THEN
419: l_patv_rec.pat_id := NULL;
617: l_patv_rec.rebate_transaction_type_code := NULL;
618: END IF;
619:
620: IF (l_debug = 'Y') THEN
621: okc_debug.log('950: Leaving null_out_defaults ', 2);
622: okc_debug.Reset_Indentation;
623: END IF;
624:
625: RETURN(l_patv_rec);
618: END IF;
619:
620: IF (l_debug = 'Y') THEN
621: okc_debug.log('950: Leaving null_out_defaults ', 2);
622: okc_debug.Reset_Indentation;
623: END IF;
624:
625: RETURN(l_patv_rec);
626:
651: where LIST_HEADER_ID = p_patv_rec.list_header_id;
652: Begin
653:
654: IF (l_debug = 'Y') THEN
655: okc_debug.Set_Indentation('OKC_PAT_PVT');
656: okc_debug.log('1000: Entered validate_list_header_id', 2);
657: END IF;
658:
659: -- initialize return status
652: Begin
653:
654: IF (l_debug = 'Y') THEN
655: okc_debug.Set_Indentation('OKC_PAT_PVT');
656: okc_debug.log('1000: Entered validate_list_header_id', 2);
657: END IF;
658:
659: -- initialize return status
660: x_return_status := OKC_API.G_RET_STS_SUCCESS;
682: End If;
683: End If;
684:
685: IF (l_debug = 'Y') THEN
686: okc_debug.log('1100: Leaving validate_list_header_id', 2);
687: okc_debug.Reset_Indentation;
688: END IF;
689:
690: exception
683: End If;
684:
685: IF (l_debug = 'Y') THEN
686: okc_debug.log('1100: Leaving validate_list_header_id', 2);
687: okc_debug.Reset_Indentation;
688: END IF;
689:
690: exception
691: when OTHERS then
690: exception
691: when OTHERS then
692:
693: IF (l_debug = 'Y') THEN
694: okc_debug.log('1200: Exiting validate_list_header_id:OTHERS Exception', 2);
695: okc_debug.Reset_Indentation;
696: END IF;
697:
698: -- store SQL error message on message stack
691: when OTHERS then
692:
693: IF (l_debug = 'Y') THEN
694: okc_debug.log('1200: Exiting validate_list_header_id:OTHERS Exception', 2);
695: okc_debug.Reset_Indentation;
696: END IF;
697:
698: -- store SQL error message on message stack
699: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
731: where LIST_LINE_ID = p_patv_rec.list_line_id;
732: Begin
733:
734: IF (l_debug = 'Y') THEN
735: okc_debug.Set_Indentation('OKC_PAT_PVT');
736: okc_debug.log('1300: Entered validate_list_line_id', 2);
737: END IF;
738:
739: -- initialize return status
732: Begin
733:
734: IF (l_debug = 'Y') THEN
735: okc_debug.Set_Indentation('OKC_PAT_PVT');
736: okc_debug.log('1300: Entered validate_list_line_id', 2);
737: END IF;
738:
739: -- initialize return status
740: x_return_status := OKC_API.G_RET_STS_SUCCESS;
762: End If;
763: End If;
764:
765: IF (l_debug = 'Y') THEN
766: okc_debug.log('1400: Leaving validate_list_line_id', 2);
767: okc_debug.Reset_Indentation;
768: END IF;
769:
770: exception
763: End If;
764:
765: IF (l_debug = 'Y') THEN
766: okc_debug.log('1400: Leaving validate_list_line_id', 2);
767: okc_debug.Reset_Indentation;
768: END IF;
769:
770: exception
771: when OTHERS then
770: exception
771: when OTHERS then
772:
773: IF (l_debug = 'Y') THEN
774: okc_debug.log('1500: Exiting validate_list_line_id:OTHERS Exception', 2);
775: okc_debug.Reset_Indentation;
776: END IF;
777:
778: -- store SQL error message on message stack
771: when OTHERS then
772:
773: IF (l_debug = 'Y') THEN
774: okc_debug.log('1500: Exiting validate_list_line_id:OTHERS Exception', 2);
775: okc_debug.Reset_Indentation;
776: END IF;
777:
778: -- store SQL error message on message stack
779: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
802: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
803: BEGIN
804:
805: IF (l_debug = 'Y') THEN
806: okc_debug.Set_Indentation('OKC_PAT_PVT');
807: okc_debug.log('1600: Entered validate_id', 2);
808: END IF;
809:
810: IF p_patv_rec.id = OKC_API.G_MISS_NUM OR
803: BEGIN
804:
805: IF (l_debug = 'Y') THEN
806: okc_debug.Set_Indentation('OKC_PAT_PVT');
807: okc_debug.log('1600: Entered validate_id', 2);
808: END IF;
809:
810: IF p_patv_rec.id = OKC_API.G_MISS_NUM OR
811: p_patv_rec.id IS NULL
815: END IF;
816: x_return_status := l_return_status;
817:
818: IF (l_debug = 'Y') THEN
819: okc_debug.log('1700: Leaving validate_id', 2);
820: okc_debug.Reset_Indentation;
821: END IF;
822:
823: EXCEPTION
816: x_return_status := l_return_status;
817:
818: IF (l_debug = 'Y') THEN
819: okc_debug.log('1700: Leaving validate_id', 2);
820: okc_debug.Reset_Indentation;
821: END IF;
822:
823: EXCEPTION
824: WHEN OTHERS THEN
823: EXCEPTION
824: WHEN OTHERS THEN
825:
826: IF (l_debug = 'Y') THEN
827: okc_debug.log('1800: Exiting validate_id:OTHERS Exception', 2);
828: okc_debug.Reset_Indentation;
829: END IF;
830:
831: -- store SQL error message on message stack for caller
824: WHEN OTHERS THEN
825:
826: IF (l_debug = 'Y') THEN
827: okc_debug.log('1800: Exiting validate_id:OTHERS Exception', 2);
828: okc_debug.Reset_Indentation;
829: END IF;
830:
831: -- store SQL error message on message stack for caller
832: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
844: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
845: BEGIN
846:
847: IF (l_debug = 'Y') THEN
848: okc_debug.Set_Indentation('OKC_PAT_PVT');
849: okc_debug.log('1900: Entered validate_automatic_flag', 2);
850: END IF;
851:
852: -- Check if automatic_flag is Y or N.
845: BEGIN
846:
847: IF (l_debug = 'Y') THEN
848: okc_debug.Set_Indentation('OKC_PAT_PVT');
849: okc_debug.log('1900: Entered validate_automatic_flag', 2);
850: END IF;
851:
852: -- Check if automatic_flag is Y or N.
853:
859: END IF;
860: x_return_status := l_return_status;
861:
862: IF (l_debug = 'Y') THEN
863: okc_debug.log('2000: Leaving validate_automatic_flag', 2);
864: okc_debug.Reset_Indentation;
865: END IF;
866:
867: EXCEPTION
860: x_return_status := l_return_status;
861:
862: IF (l_debug = 'Y') THEN
863: okc_debug.log('2000: Leaving validate_automatic_flag', 2);
864: okc_debug.Reset_Indentation;
865: END IF;
866:
867: EXCEPTION
868: WHEN G_EXCEPTION_HALT_VALIDATION THEN
867: EXCEPTION
868: WHEN G_EXCEPTION_HALT_VALIDATION THEN
869:
870: IF (l_debug = 'Y') THEN
871: okc_debug.log('2100: Exiting validate_automatic_flag:G_EXCEPTION_HALT_VALIDATION Exception', 2);
872: okc_debug.Reset_Indentation;
873: END IF;
874:
875: NULL;
868: WHEN G_EXCEPTION_HALT_VALIDATION THEN
869:
870: IF (l_debug = 'Y') THEN
871: okc_debug.log('2100: Exiting validate_automatic_flag:G_EXCEPTION_HALT_VALIDATION Exception', 2);
872: okc_debug.Reset_Indentation;
873: END IF;
874:
875: NULL;
876: WHEN OTHERS THEN
875: NULL;
876: WHEN OTHERS THEN
877:
878: IF (l_debug = 'Y') THEN
879: okc_debug.log('2200: Exiting validate_automatic_flag:OTHERS Exception', 2);
880: okc_debug.Reset_Indentation;
881: END IF;
882:
883: -- store SQL error message on message stack for caller
876: WHEN OTHERS THEN
877:
878: IF (l_debug = 'Y') THEN
879: okc_debug.log('2200: Exiting validate_automatic_flag:OTHERS Exception', 2);
880: okc_debug.Reset_Indentation;
881: END IF;
882:
883: -- store SQL error message on message stack for caller
884: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
897: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
898: BEGIN
899:
900: IF (l_debug = 'Y') THEN
901: okc_debug.Set_Indentation('OKC_PAT_PVT');
902: okc_debug.log('2300: Entered validate_update_allowed', 2);
903: END IF;
904:
905:
898: BEGIN
899:
900: IF (l_debug = 'Y') THEN
901: okc_debug.Set_Indentation('OKC_PAT_PVT');
902: okc_debug.log('2300: Entered validate_update_allowed', 2);
903: END IF;
904:
905:
906: IF p_patv_rec.update_allowed NOT IN ('Y', 'N')
911: END IF;
912: x_return_status := l_return_status;
913:
914: IF (l_debug = 'Y') THEN
915: okc_debug.log('2400: Leaving validate_update_allowed', 2);
916: okc_debug.Reset_Indentation;
917: END IF;
918:
919: EXCEPTION
912: x_return_status := l_return_status;
913:
914: IF (l_debug = 'Y') THEN
915: okc_debug.log('2400: Leaving validate_update_allowed', 2);
916: okc_debug.Reset_Indentation;
917: END IF;
918:
919: EXCEPTION
920: WHEN G_EXCEPTION_HALT_VALIDATION THEN
919: EXCEPTION
920: WHEN G_EXCEPTION_HALT_VALIDATION THEN
921:
922: IF (l_debug = 'Y') THEN
923: okc_debug.log('2500: Exiting validate_update_allowed:G_EXCEPTION_HALT_VALIDATION Exception', 2);
924: okc_debug.Reset_Indentation;
925: END IF;
926:
927: NULL;
920: WHEN G_EXCEPTION_HALT_VALIDATION THEN
921:
922: IF (l_debug = 'Y') THEN
923: okc_debug.log('2500: Exiting validate_update_allowed:G_EXCEPTION_HALT_VALIDATION Exception', 2);
924: okc_debug.Reset_Indentation;
925: END IF;
926:
927: NULL;
928: WHEN OTHERS THEN
927: NULL;
928: WHEN OTHERS THEN
929:
930: IF (l_debug = 'Y') THEN
931: okc_debug.log('2600: Exiting validate_update_allowed:OTHERS Exception', 2);
932: okc_debug.Reset_Indentation;
933: END IF;
934:
935: -- store SQL error message on message stack for caller
928: WHEN OTHERS THEN
929:
930: IF (l_debug = 'Y') THEN
931: okc_debug.log('2600: Exiting validate_update_allowed:OTHERS Exception', 2);
932: okc_debug.Reset_Indentation;
933: END IF;
934:
935: -- store SQL error message on message stack for caller
936: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
949: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
950: BEGIN
951:
952: IF (l_debug = 'Y') THEN
953: okc_debug.Set_Indentation('OKC_PAT_PVT');
954: okc_debug.log('2700: Entered validate_updated_flag', 2);
955: END IF;
956:
957:
950: BEGIN
951:
952: IF (l_debug = 'Y') THEN
953: okc_debug.Set_Indentation('OKC_PAT_PVT');
954: okc_debug.log('2700: Entered validate_updated_flag', 2);
955: END IF;
956:
957:
958: IF p_patv_rec.updated_flag NOT IN ('Y', 'N')
963: END IF;
964: x_return_status := l_return_status;
965:
966: IF (l_debug = 'Y') THEN
967: okc_debug.log('2800: Leaving validate_updated_flag', 2);
968: okc_debug.Reset_Indentation;
969: END IF;
970:
971: EXCEPTION
964: x_return_status := l_return_status;
965:
966: IF (l_debug = 'Y') THEN
967: okc_debug.log('2800: Leaving validate_updated_flag', 2);
968: okc_debug.Reset_Indentation;
969: END IF;
970:
971: EXCEPTION
972: WHEN G_EXCEPTION_HALT_VALIDATION THEN
971: EXCEPTION
972: WHEN G_EXCEPTION_HALT_VALIDATION THEN
973:
974: IF (l_debug = 'Y') THEN
975: okc_debug.log('2900: Exiting validate_updated_flag:G_EXCEPTION_HALT_VALIDATION Exception', 2);
976: okc_debug.Reset_Indentation;
977: END IF;
978:
979: NULL;
972: WHEN G_EXCEPTION_HALT_VALIDATION THEN
973:
974: IF (l_debug = 'Y') THEN
975: okc_debug.log('2900: Exiting validate_updated_flag:G_EXCEPTION_HALT_VALIDATION Exception', 2);
976: okc_debug.Reset_Indentation;
977: END IF;
978:
979: NULL;
980: WHEN OTHERS THEN
979: NULL;
980: WHEN OTHERS THEN
981:
982: IF (l_debug = 'Y') THEN
983: okc_debug.log('3000: Exiting validate_updated_flag:OTHERS Exception', 2);
984: okc_debug.Reset_Indentation;
985: END IF;
986:
987: -- store SQL error message on message stack for caller
980: WHEN OTHERS THEN
981:
982: IF (l_debug = 'Y') THEN
983: okc_debug.log('3000: Exiting validate_updated_flag:OTHERS Exception', 2);
984: okc_debug.Reset_Indentation;
985: END IF;
986:
987: -- store SQL error message on message stack for caller
988: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1001: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1002: BEGIN
1003:
1004: IF (l_debug = 'Y') THEN
1005: okc_debug.Set_Indentation('OKC_PAT_PVT');
1006: okc_debug.log('3100: Entered validate_applied_flag', 2);
1007: END IF;
1008:
1009:
1002: BEGIN
1003:
1004: IF (l_debug = 'Y') THEN
1005: okc_debug.Set_Indentation('OKC_PAT_PVT');
1006: okc_debug.log('3100: Entered validate_applied_flag', 2);
1007: END IF;
1008:
1009:
1010: IF p_patv_rec.applied_flag NOT IN ('Y', 'N')
1015: END IF;
1016: x_return_status := l_return_status;
1017:
1018: IF (l_debug = 'Y') THEN
1019: okc_debug.log('3200: Leaving validate_applied_flag', 2);
1020: okc_debug.Reset_Indentation;
1021: END IF;
1022:
1023: EXCEPTION
1016: x_return_status := l_return_status;
1017:
1018: IF (l_debug = 'Y') THEN
1019: okc_debug.log('3200: Leaving validate_applied_flag', 2);
1020: okc_debug.Reset_Indentation;
1021: END IF;
1022:
1023: EXCEPTION
1024: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1023: EXCEPTION
1024: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1025:
1026: IF (l_debug = 'Y') THEN
1027: okc_debug.log('3300: Exiting validate_applied_flag:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1028: okc_debug.Reset_Indentation;
1029: END IF;
1030:
1031: NULL;
1024: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1025:
1026: IF (l_debug = 'Y') THEN
1027: okc_debug.log('3300: Exiting validate_applied_flag:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1028: okc_debug.Reset_Indentation;
1029: END IF;
1030:
1031: NULL;
1032: WHEN OTHERS THEN
1031: NULL;
1032: WHEN OTHERS THEN
1033:
1034: IF (l_debug = 'Y') THEN
1035: okc_debug.log('3400: Exiting validate_applied_flag:OTHERS Exception', 2);
1036: okc_debug.Reset_Indentation;
1037: END IF;
1038:
1039: -- store SQL error message on message stack for caller
1032: WHEN OTHERS THEN
1033:
1034: IF (l_debug = 'Y') THEN
1035: okc_debug.log('3400: Exiting validate_applied_flag:OTHERS Exception', 2);
1036: okc_debug.Reset_Indentation;
1037: END IF;
1038:
1039: -- store SQL error message on message stack for caller
1040: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1054: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1055: BEGIN
1056:
1057: IF (l_debug = 'Y') THEN
1058: okc_debug.Set_Indentation('OKC_PAT_PVT');
1059: okc_debug.log('3500: Entered validate_on_invoice_flag', 2);
1060: END IF;
1061:
1062:
1055: BEGIN
1056:
1057: IF (l_debug = 'Y') THEN
1058: okc_debug.Set_Indentation('OKC_PAT_PVT');
1059: okc_debug.log('3500: Entered validate_on_invoice_flag', 2);
1060: END IF;
1061:
1062:
1063: IF p_patv_rec.on_invoice_flag NOT IN ('Y', 'N')
1068: END IF;
1069: x_return_status := l_return_status;
1070:
1071: IF (l_debug = 'Y') THEN
1072: okc_debug.log('3600: Leaving validate_on_invoice_flag', 2);
1073: okc_debug.Reset_Indentation;
1074: END IF;
1075:
1076: EXCEPTION
1069: x_return_status := l_return_status;
1070:
1071: IF (l_debug = 'Y') THEN
1072: okc_debug.log('3600: Leaving validate_on_invoice_flag', 2);
1073: okc_debug.Reset_Indentation;
1074: END IF;
1075:
1076: EXCEPTION
1077: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1076: EXCEPTION
1077: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1078:
1079: IF (l_debug = 'Y') THEN
1080: okc_debug.log('3700: Exiting validate_on_invoice_flag:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1081: okc_debug.Reset_Indentation;
1082: END IF;
1083:
1084: NULL;
1077: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1078:
1079: IF (l_debug = 'Y') THEN
1080: okc_debug.log('3700: Exiting validate_on_invoice_flag:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1081: okc_debug.Reset_Indentation;
1082: END IF;
1083:
1084: NULL;
1085: WHEN OTHERS THEN
1084: NULL;
1085: WHEN OTHERS THEN
1086:
1087: IF (l_debug = 'Y') THEN
1088: okc_debug.log('3800: Exiting validate_on_invoice_flag:OTHERS Exception', 2);
1089: okc_debug.Reset_Indentation;
1090: END IF;
1091:
1092: -- store SQL error message on message stack for caller
1085: WHEN OTHERS THEN
1086:
1087: IF (l_debug = 'Y') THEN
1088: okc_debug.log('3800: Exiting validate_on_invoice_flag:OTHERS Exception', 2);
1089: okc_debug.Reset_Indentation;
1090: END IF;
1091:
1092: -- store SQL error message on message stack for caller
1093: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1109: where id = p_patv_rec.chr_id;
1110: begin
1111:
1112: IF (l_debug = 'Y') THEN
1113: okc_debug.Set_Indentation('OKC_PAT_PVT');
1114: okc_debug.log('3900: Entered validate_chr_id', 2);
1115: END IF;
1116:
1117: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1110: begin
1111:
1112: IF (l_debug = 'Y') THEN
1113: okc_debug.Set_Indentation('OKC_PAT_PVT');
1114: okc_debug.log('3900: Entered validate_chr_id', 2);
1115: END IF;
1116:
1117: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1118: if (p_patv_rec.chr_id = OKC_API.G_MISS_NUM or p_patv_rec.chr_id is NULL) then
1127: x_return_status := OKC_API.G_RET_STS_ERROR;
1128: end if;
1129:
1130: IF (l_debug = 'Y') THEN
1131: okc_debug.log('4000: Leaving validate_chr_id', 2);
1132: okc_debug.Reset_Indentation;
1133: END IF;
1134:
1135: exception
1128: end if;
1129:
1130: IF (l_debug = 'Y') THEN
1131: okc_debug.log('4000: Leaving validate_chr_id', 2);
1132: okc_debug.Reset_Indentation;
1133: END IF;
1134:
1135: exception
1136: when OTHERS then
1135: exception
1136: when OTHERS then
1137:
1138: IF (l_debug = 'Y') THEN
1139: okc_debug.log('4100: Exiting validate_chr_id:OTHERS Exception', 2);
1140: okc_debug.Reset_Indentation;
1141: END IF;
1142:
1143: if l_chr_csr%ISOPEN then
1136: when OTHERS then
1137:
1138: IF (l_debug = 'Y') THEN
1139: okc_debug.log('4100: Exiting validate_chr_id:OTHERS Exception', 2);
1140: okc_debug.Reset_Indentation;
1141: END IF;
1142:
1143: if l_chr_csr%ISOPEN then
1144: close l_chr_csr;
1167:
1168: BEGIN
1169:
1170: IF (l_debug = 'Y') THEN
1171: okc_debug.Set_Indentation('OKC_PAT_PVT');
1172: okc_debug.log('4200: Entered Validate_Attributes', 2);
1173: END IF;
1174:
1175: ---------------------------------------------------------------------------------------
1168: BEGIN
1169:
1170: IF (l_debug = 'Y') THEN
1171: okc_debug.Set_Indentation('OKC_PAT_PVT');
1172: okc_debug.log('4200: Entered Validate_Attributes', 2);
1173: END IF;
1174:
1175: ---------------------------------------------------------------------------------------
1176: --Attribute Level Validation Procedure Calls Starts(Modification on TAPI generated Code.)--
1268: END IF;
1269: END IF;
1270:
1271: IF (l_debug = 'Y') THEN
1272: okc_debug.log('4300: Leaving Validate_Attributes', 2);
1273: okc_debug.Reset_Indentation;
1274: END IF;
1275:
1276: RETURN(x_return_status);
1269: END IF;
1270:
1271: IF (l_debug = 'Y') THEN
1272: okc_debug.log('4300: Leaving Validate_Attributes', 2);
1273: okc_debug.Reset_Indentation;
1274: END IF;
1275:
1276: RETURN(x_return_status);
1277:
1278: EXCEPTION
1279: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1280:
1281: IF (l_debug = 'Y') THEN
1282: okc_debug.log('4400: Exiting Validate_Attributes:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1283: okc_debug.Reset_Indentation;
1284: END IF;
1285:
1286: return(x_return_status);
1279: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1280:
1281: IF (l_debug = 'Y') THEN
1282: okc_debug.log('4400: Exiting Validate_Attributes:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1283: okc_debug.Reset_Indentation;
1284: END IF;
1285:
1286: return(x_return_status);
1287: WHEN OTHERS THEN
1286: return(x_return_status);
1287: WHEN OTHERS THEN
1288:
1289: IF (l_debug = 'Y') THEN
1290: okc_debug.log('4500: Exiting Validate_Attributes:OTHERS Exception', 2);
1291: okc_debug.Reset_Indentation;
1292: END IF;
1293:
1294: -- store SQL error message on message stack for caller
1287: WHEN OTHERS THEN
1288:
1289: IF (l_debug = 'Y') THEN
1290: okc_debug.log('4500: Exiting Validate_Attributes:OTHERS Exception', 2);
1291: okc_debug.Reset_Indentation;
1292: END IF;
1293:
1294: -- store SQL error message on message stack for caller
1295: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1368: l_row_notfound BOOLEAN := TRUE;
1369: BEGIN
1370:
1371: IF (l_debug = 'Y') THEN
1372: okc_debug.Set_Indentation('OKC_PAT_PVT');
1373: okc_debug.log('4600: Entered validate_foreign_keys', 2);
1374: END IF;
1375:
1376: IF (p_patv_rec.PAT_ID IS NOT NULL)
1369: BEGIN
1370:
1371: IF (l_debug = 'Y') THEN
1372: okc_debug.Set_Indentation('OKC_PAT_PVT');
1373: okc_debug.log('4600: Entered validate_foreign_keys', 2);
1374: END IF;
1375:
1376: IF (p_patv_rec.PAT_ID IS NOT NULL)
1377: THEN
1436: END IF;
1437: END IF;
1438: */
1439: IF (l_debug = 'Y') THEN
1440: okc_debug.log('4700: Leaving validate_foreign_keys', 2);
1441: okc_debug.Reset_Indentation;
1442: END IF;
1443:
1444: RETURN (l_return_status);
1437: END IF;
1438: */
1439: IF (l_debug = 'Y') THEN
1440: okc_debug.log('4700: Leaving validate_foreign_keys', 2);
1441: okc_debug.Reset_Indentation;
1442: END IF;
1443:
1444: RETURN (l_return_status);
1445:
1446: EXCEPTION
1447: WHEN item_not_found_error THEN
1448:
1449: IF (l_debug = 'Y') THEN
1450: okc_debug.log('4800: Exiting validate_foreign_keys:item_not_found_error Exception', 2);
1451: okc_debug.Reset_Indentation;
1452: END IF;
1453:
1454: l_return_status := OKC_API.G_RET_STS_ERROR;
1447: WHEN item_not_found_error THEN
1448:
1449: IF (l_debug = 'Y') THEN
1450: okc_debug.log('4800: Exiting validate_foreign_keys:item_not_found_error Exception', 2);
1451: okc_debug.Reset_Indentation;
1452: END IF;
1453:
1454: l_return_status := OKC_API.G_RET_STS_ERROR;
1455: RETURN (l_return_status);
1640: l_pat_rec pat_rec_type;
1641: BEGIN
1642:
1643: IF (l_debug = 'Y') THEN
1644: okc_debug.Set_Indentation('OKC_PAT_PVT');
1645: okc_debug.log('5200: Entered validate_row', 2);
1646: END IF;
1647:
1648: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1641: BEGIN
1642:
1643: IF (l_debug = 'Y') THEN
1644: okc_debug.Set_Indentation('OKC_PAT_PVT');
1645: okc_debug.log('5200: Entered validate_row', 2);
1646: END IF;
1647:
1648: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1649: G_PKG_NAME,
1673: END IF;
1674: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1675:
1676: IF (l_debug = 'Y') THEN
1677: okc_debug.log('5300: Leaving validate_row', 2);
1678: okc_debug.Reset_Indentation;
1679: END IF;
1680:
1681: EXCEPTION
1674: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1675:
1676: IF (l_debug = 'Y') THEN
1677: okc_debug.log('5300: Leaving validate_row', 2);
1678: okc_debug.Reset_Indentation;
1679: END IF;
1680:
1681: EXCEPTION
1682: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1681: EXCEPTION
1682: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1683:
1684: IF (l_debug = 'Y') THEN
1685: okc_debug.log('5400: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1686: okc_debug.Reset_Indentation;
1687: END IF;
1688:
1689: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1682: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1683:
1684: IF (l_debug = 'Y') THEN
1685: okc_debug.log('5400: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1686: okc_debug.Reset_Indentation;
1687: END IF;
1688:
1689: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1690: (
1697: );
1698: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1699:
1700: IF (l_debug = 'Y') THEN
1701: okc_debug.log('5500: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1702: okc_debug.Reset_Indentation;
1703: END IF;
1704:
1705: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1698: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1699:
1700: IF (l_debug = 'Y') THEN
1701: okc_debug.log('5500: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1702: okc_debug.Reset_Indentation;
1703: END IF;
1704:
1705: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1706: (
1713: );
1714: WHEN OTHERS THEN
1715:
1716: IF (l_debug = 'Y') THEN
1717: okc_debug.log('5600: Exiting validate_row:OTHERS Exception', 2);
1718: okc_debug.Reset_Indentation;
1719: END IF;
1720:
1721: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1714: WHEN OTHERS THEN
1715:
1716: IF (l_debug = 'Y') THEN
1717: okc_debug.log('5600: Exiting validate_row:OTHERS Exception', 2);
1718: okc_debug.Reset_Indentation;
1719: END IF;
1720:
1721: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1722: (
1746: i NUMBER := 0;
1747: BEGIN
1748:
1749: IF (l_debug = 'Y') THEN
1750: okc_debug.Set_Indentation('OKC_PAT_PVT');
1751: okc_debug.log('5700: Entered validate_row', 2);
1752: END IF;
1753:
1754: OKC_API.init_msg_list(p_init_msg_list);
1747: BEGIN
1748:
1749: IF (l_debug = 'Y') THEN
1750: okc_debug.Set_Indentation('OKC_PAT_PVT');
1751: okc_debug.log('5700: Entered validate_row', 2);
1752: END IF;
1753:
1754: OKC_API.init_msg_list(p_init_msg_list);
1755: -- Make sure PL/SQL table has records in it before passing
1768: END LOOP;
1769: END IF;
1770:
1771: IF (l_debug = 'Y') THEN
1772: okc_debug.log('5800: Exiting validate_row', 2);
1773: okc_debug.Reset_Indentation;
1774: END IF;
1775:
1776: EXCEPTION
1769: END IF;
1770:
1771: IF (l_debug = 'Y') THEN
1772: okc_debug.log('5800: Exiting validate_row', 2);
1773: okc_debug.Reset_Indentation;
1774: END IF;
1775:
1776: EXCEPTION
1777: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1776: EXCEPTION
1777: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1778:
1779: IF (l_debug = 'Y') THEN
1780: okc_debug.log('5900: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1781: okc_debug.Reset_Indentation;
1782: END IF;
1783:
1784: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1777: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1778:
1779: IF (l_debug = 'Y') THEN
1780: okc_debug.log('5900: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1781: okc_debug.Reset_Indentation;
1782: END IF;
1783:
1784: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1785: (
1792: );
1793: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1794:
1795: IF (l_debug = 'Y') THEN
1796: okc_debug.log('6000: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1797: okc_debug.Reset_Indentation;
1798: END IF;
1799:
1800: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1793: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1794:
1795: IF (l_debug = 'Y') THEN
1796: okc_debug.log('6000: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1797: okc_debug.Reset_Indentation;
1798: END IF;
1799:
1800: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1801: (
1808: );
1809: WHEN OTHERS THEN
1810:
1811: IF (l_debug = 'Y') THEN
1812: okc_debug.log('6100: Exiting validate_row:OTHERS Exception', 2);
1813: okc_debug.Reset_Indentation;
1814: END IF;
1815:
1816: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1809: WHEN OTHERS THEN
1810:
1811: IF (l_debug = 'Y') THEN
1812: okc_debug.log('6100: Exiting validate_row:OTHERS Exception', 2);
1813: okc_debug.Reset_Indentation;
1814: END IF;
1815:
1816: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1817: (
1860: END Set_Attributes;
1861: BEGIN
1862:
1863: IF (l_debug = 'Y') THEN
1864: okc_debug.Set_Indentation('OKC_PAT_PVT');
1865: okc_debug.log('6300: Entered insert_row', 2);
1866: END IF;
1867:
1868: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1861: BEGIN
1862:
1863: IF (l_debug = 'Y') THEN
1864: okc_debug.Set_Indentation('OKC_PAT_PVT');
1865: okc_debug.log('6300: Entered insert_row', 2);
1866: END IF;
1867:
1868: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1869: p_init_msg_list,
2024: x_pat_rec := l_pat_rec;
2025: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2026:
2027: IF (l_debug = 'Y') THEN
2028: okc_debug.log('6400: Exiting insert_row', 2);
2029: okc_debug.Reset_Indentation;
2030: END IF;
2031:
2032: EXCEPTION
2025: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2026:
2027: IF (l_debug = 'Y') THEN
2028: okc_debug.log('6400: Exiting insert_row', 2);
2029: okc_debug.Reset_Indentation;
2030: END IF;
2031:
2032: EXCEPTION
2033: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2032: EXCEPTION
2033: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2034:
2035: IF (l_debug = 'Y') THEN
2036: okc_debug.log('6500: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2037: okc_debug.Reset_Indentation;
2038: END IF;
2039:
2040: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2033: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2034:
2035: IF (l_debug = 'Y') THEN
2036: okc_debug.log('6500: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2037: okc_debug.Reset_Indentation;
2038: END IF;
2039:
2040: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2041: (
2048: );
2049: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2050:
2051: IF (l_debug = 'Y') THEN
2052: okc_debug.log('6600: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2053: okc_debug.Reset_Indentation;
2054: END IF;
2055:
2056: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2049: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2050:
2051: IF (l_debug = 'Y') THEN
2052: okc_debug.log('6600: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2053: okc_debug.Reset_Indentation;
2054: END IF;
2055:
2056: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2057: (
2064: );
2065: WHEN OTHERS THEN
2066:
2067: IF (l_debug = 'Y') THEN
2068: okc_debug.log('6700: Exiting insert_row:OTHERS Exception', 2);
2069: okc_debug.Reset_Indentation;
2070: END IF;
2071:
2072: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2065: WHEN OTHERS THEN
2066:
2067: IF (l_debug = 'Y') THEN
2068: okc_debug.log('6700: Exiting insert_row:OTHERS Exception', 2);
2069: okc_debug.Reset_Indentation;
2070: END IF;
2071:
2072: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2073: (
2133: END Set_Attributes;
2134: BEGIN
2135:
2136: IF (l_debug = 'Y') THEN
2137: okc_debug.Set_Indentation('OKC_PAT_PVT');
2138: okc_debug.log('7000: Entered insert_row', 2);
2139: END IF;
2140:
2141: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2134: BEGIN
2135:
2136: IF (l_debug = 'Y') THEN
2137: okc_debug.Set_Indentation('OKC_PAT_PVT');
2138: okc_debug.log('7000: Entered insert_row', 2);
2139: END IF;
2140:
2141: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2142: G_PKG_NAME,
2203: x_patv_rec := l_def_patv_rec;
2204: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2205:
2206: IF (l_debug = 'Y') THEN
2207: okc_debug.log('7100: Exiting insert_row', 2);
2208: okc_debug.Reset_Indentation;
2209: END IF;
2210:
2211: EXCEPTION
2204: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2205:
2206: IF (l_debug = 'Y') THEN
2207: okc_debug.log('7100: Exiting insert_row', 2);
2208: okc_debug.Reset_Indentation;
2209: END IF;
2210:
2211: EXCEPTION
2212: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2211: EXCEPTION
2212: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2213:
2214: IF (l_debug = 'Y') THEN
2215: okc_debug.log('7200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2216: okc_debug.Reset_Indentation;
2217: END IF;
2218:
2219: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2212: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2213:
2214: IF (l_debug = 'Y') THEN
2215: okc_debug.log('7200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2216: okc_debug.Reset_Indentation;
2217: END IF;
2218:
2219: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2220: (
2227: );
2228: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2229:
2230: IF (l_debug = 'Y') THEN
2231: okc_debug.log('7300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2232: okc_debug.Reset_Indentation;
2233: END IF;
2234:
2235: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2228: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2229:
2230: IF (l_debug = 'Y') THEN
2231: okc_debug.log('7300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2232: okc_debug.Reset_Indentation;
2233: END IF;
2234:
2235: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2236: (
2243: );
2244: WHEN OTHERS THEN
2245:
2246: IF (l_debug = 'Y') THEN
2247: okc_debug.log('7400: Exiting insert_row:OTHERS Exception', 2);
2248: okc_debug.Reset_Indentation;
2249: END IF;
2250:
2251: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2244: WHEN OTHERS THEN
2245:
2246: IF (l_debug = 'Y') THEN
2247: okc_debug.log('7400: Exiting insert_row:OTHERS Exception', 2);
2248: okc_debug.Reset_Indentation;
2249: END IF;
2250:
2251: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2252: (
2277: i NUMBER := 0;
2278: BEGIN
2279:
2280: IF (l_debug = 'Y') THEN
2281: okc_debug.Set_Indentation('OKC_PAT_PVT');
2282: okc_debug.log('7500: Entered insert_row', 2);
2283: END IF;
2284:
2285: OKC_API.init_msg_list(p_init_msg_list);
2278: BEGIN
2279:
2280: IF (l_debug = 'Y') THEN
2281: okc_debug.Set_Indentation('OKC_PAT_PVT');
2282: okc_debug.log('7500: Entered insert_row', 2);
2283: END IF;
2284:
2285: OKC_API.init_msg_list(p_init_msg_list);
2286: -- Make sure PL/SQL table has records in it before passing
2300: END LOOP;
2301: END IF;
2302:
2303: IF (l_debug = 'Y') THEN
2304: okc_debug.log('7600: Exiting insert_row', 2);
2305: okc_debug.Reset_Indentation;
2306: END IF;
2307:
2308: EXCEPTION
2301: END IF;
2302:
2303: IF (l_debug = 'Y') THEN
2304: okc_debug.log('7600: Exiting insert_row', 2);
2305: okc_debug.Reset_Indentation;
2306: END IF;
2307:
2308: EXCEPTION
2309: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2308: EXCEPTION
2309: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2310:
2311: IF (l_debug = 'Y') THEN
2312: okc_debug.log('7700: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2313: okc_debug.Reset_Indentation;
2314: END IF;
2315:
2316: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2309: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2310:
2311: IF (l_debug = 'Y') THEN
2312: okc_debug.log('7700: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2313: okc_debug.Reset_Indentation;
2314: END IF;
2315:
2316: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2317: (
2324: );
2325: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2326:
2327: IF (l_debug = 'Y') THEN
2328: okc_debug.log('7800: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2329: okc_debug.Reset_Indentation;
2330: END IF;
2331:
2332: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2325: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2326:
2327: IF (l_debug = 'Y') THEN
2328: okc_debug.log('7800: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2329: okc_debug.Reset_Indentation;
2330: END IF;
2331:
2332: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2333: (
2340: );
2341: WHEN OTHERS THEN
2342:
2343: IF (l_debug = 'Y') THEN
2344: okc_debug.log('7900: Exiting insert_row:OTHERS Exception', 2);
2345: okc_debug.Reset_Indentation;
2346: END IF;
2347:
2348: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2341: WHEN OTHERS THEN
2342:
2343: IF (l_debug = 'Y') THEN
2344: okc_debug.log('7900: Exiting insert_row:OTHERS Exception', 2);
2345: okc_debug.Reset_Indentation;
2346: END IF;
2347:
2348: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2349: (
2393: lc_row_notfound BOOLEAN := FALSE;
2394: BEGIN
2395:
2396: IF (l_debug = 'Y') THEN
2397: okc_debug.Set_Indentation('OKC_PAT_PVT');
2398: okc_debug.log('8000: 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_PAT_PVT');
2398: okc_debug.log('8000: 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_PAT_PVT');
2414: okc_debug.log('8100: Entered lock_row', 2);
2415: END IF;
2416:
2417: OPEN lock_csr(p_pat_rec);
2410: BEGIN
2411:
2412: IF (l_debug = 'Y') THEN
2413: okc_debug.Set_Indentation('OKC_PAT_PVT');
2414: okc_debug.log('8100: Entered lock_row', 2);
2415: END IF;
2416:
2417: OPEN lock_csr(p_pat_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('8200: Exiting 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('8200: Exiting 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('8300: 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('8300: 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;
2461:
2462: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2463:
2464: IF (l_debug = 'Y') THEN
2465: okc_debug.log('8400: Exiting lock_row', 2);
2466: okc_debug.Reset_Indentation;
2467: END IF;
2468:
2469: EXCEPTION
2462: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2463:
2464: IF (l_debug = 'Y') THEN
2465: okc_debug.log('8400: Exiting lock_row', 2);
2466: okc_debug.Reset_Indentation;
2467: END IF;
2468:
2469: EXCEPTION
2470: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2469: EXCEPTION
2470: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2471:
2472: IF (l_debug = 'Y') THEN
2473: okc_debug.log('8500: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2474: okc_debug.Reset_Indentation;
2475: END IF;
2476:
2477: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2470: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2471:
2472: IF (l_debug = 'Y') THEN
2473: okc_debug.log('8500: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2474: okc_debug.Reset_Indentation;
2475: END IF;
2476:
2477: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2478: (
2485: );
2486: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2487:
2488: IF (l_debug = 'Y') THEN
2489: okc_debug.log('8600: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2490: okc_debug.Reset_Indentation;
2491: END IF;
2492:
2493: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2486: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2487:
2488: IF (l_debug = 'Y') THEN
2489: okc_debug.log('8600: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2490: okc_debug.Reset_Indentation;
2491: END IF;
2492:
2493: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2494: (
2501: );
2502: WHEN OTHERS THEN
2503:
2504: IF (l_debug = 'Y') THEN
2505: okc_debug.log('8700: Exiting lock_row:OTHERS Exception', 2);
2506: okc_debug.Reset_Indentation;
2507: END IF;
2508:
2509: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2502: WHEN OTHERS THEN
2503:
2504: IF (l_debug = 'Y') THEN
2505: okc_debug.log('8700: Exiting lock_row:OTHERS Exception', 2);
2506: okc_debug.Reset_Indentation;
2507: END IF;
2508:
2509: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2510: (
2534: l_pat_rec pat_rec_type;
2535: BEGIN
2536:
2537: IF (l_debug = 'Y') THEN
2538: okc_debug.Set_Indentation('OKC_PAT_PVT');
2539: okc_debug.log('8800: Entered lock_row', 2);
2540: END IF;
2541:
2542: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2535: BEGIN
2536:
2537: IF (l_debug = 'Y') THEN
2538: okc_debug.Set_Indentation('OKC_PAT_PVT');
2539: okc_debug.log('8800: Entered lock_row', 2);
2540: END IF;
2541:
2542: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2543: G_PKG_NAME,
2572: END IF;
2573: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2574:
2575: IF (l_debug = 'Y') THEN
2576: okc_debug.log('8900: Exiting lock_row', 2);
2577: okc_debug.Reset_Indentation;
2578: END IF;
2579:
2580: EXCEPTION
2573: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2574:
2575: IF (l_debug = 'Y') THEN
2576: okc_debug.log('8900: Exiting lock_row', 2);
2577: okc_debug.Reset_Indentation;
2578: END IF;
2579:
2580: EXCEPTION
2581: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2580: EXCEPTION
2581: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2582:
2583: IF (l_debug = 'Y') THEN
2584: okc_debug.log('9000: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2585: okc_debug.Reset_Indentation;
2586: END IF;
2587:
2588: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2581: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2582:
2583: IF (l_debug = 'Y') THEN
2584: okc_debug.log('9000: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2585: okc_debug.Reset_Indentation;
2586: END IF;
2587:
2588: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2589: (
2596: );
2597: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2598:
2599: IF (l_debug = 'Y') THEN
2600: okc_debug.log('9100: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2601: okc_debug.Reset_Indentation;
2602: END IF;
2603:
2604: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2597: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2598:
2599: IF (l_debug = 'Y') THEN
2600: okc_debug.log('9100: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2601: okc_debug.Reset_Indentation;
2602: END IF;
2603:
2604: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2605: (
2612: );
2613: WHEN OTHERS THEN
2614:
2615: IF (l_debug = 'Y') THEN
2616: okc_debug.log('9200: Exiting lock_row:OTHERS Exception', 2);
2617: okc_debug.Reset_Indentation;
2618: END IF;
2619:
2620: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2613: WHEN OTHERS THEN
2614:
2615: IF (l_debug = 'Y') THEN
2616: okc_debug.log('9200: Exiting lock_row:OTHERS Exception', 2);
2617: okc_debug.Reset_Indentation;
2618: END IF;
2619:
2620: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2621: (
2645: i NUMBER := 0;
2646: BEGIN
2647:
2648: IF (l_debug = 'Y') THEN
2649: okc_debug.Set_Indentation('OKC_PAT_PVT');
2650: okc_debug.log('9300: Entered lock_row', 2);
2651: END IF;
2652:
2653: OKC_API.init_msg_list(p_init_msg_list);
2646: BEGIN
2647:
2648: IF (l_debug = 'Y') THEN
2649: okc_debug.Set_Indentation('OKC_PAT_PVT');
2650: okc_debug.log('9300: Entered lock_row', 2);
2651: END IF;
2652:
2653: OKC_API.init_msg_list(p_init_msg_list);
2654: -- Make sure PL/SQL table has records in it before passing
2667: END LOOP;
2668: END IF;
2669:
2670: IF (l_debug = 'Y') THEN
2671: okc_debug.log('9400: Exiting lock_row', 2);
2672: okc_debug.Reset_Indentation;
2673: END IF;
2674:
2675: EXCEPTION
2668: END IF;
2669:
2670: IF (l_debug = 'Y') THEN
2671: okc_debug.log('9400: Exiting lock_row', 2);
2672: okc_debug.Reset_Indentation;
2673: END IF;
2674:
2675: EXCEPTION
2676: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2675: EXCEPTION
2676: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2677:
2678: IF (l_debug = 'Y') THEN
2679: okc_debug.log('9500: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2680: okc_debug.Reset_Indentation;
2681: END IF;
2682:
2683: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2676: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2677:
2678: IF (l_debug = 'Y') THEN
2679: okc_debug.log('9500: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2680: okc_debug.Reset_Indentation;
2681: END IF;
2682:
2683: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2684: (
2691: );
2692: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2693:
2694: IF (l_debug = 'Y') THEN
2695: okc_debug.log('9600: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2696: okc_debug.Reset_Indentation;
2697: END IF;
2698:
2699: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2692: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2693:
2694: IF (l_debug = 'Y') THEN
2695: okc_debug.log('9600: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2696: okc_debug.Reset_Indentation;
2697: END IF;
2698:
2699: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2700: (
2707: );
2708: WHEN OTHERS THEN
2709:
2710: IF (l_debug = 'Y') THEN
2711: okc_debug.log('9700: Exiting lock_row:OTHERS Exception', 2);
2712: okc_debug.Reset_Indentation;
2713: END IF;
2714:
2715: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2708: WHEN OTHERS THEN
2709:
2710: IF (l_debug = 'Y') THEN
2711: okc_debug.log('9700: Exiting lock_row:OTHERS Exception', 2);
2712: okc_debug.Reset_Indentation;
2713: END IF;
2714:
2715: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2716: (
2756: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2757: BEGIN
2758:
2759: IF (l_debug = 'Y') THEN
2760: okc_debug.Set_Indentation('OKC_PAT_PVT');
2761: okc_debug.log('9800: Entered populate_new_record', 2);
2762: END IF;
2763:
2764: x_pat_rec := p_pat_rec;
2757: BEGIN
2758:
2759: IF (l_debug = 'Y') THEN
2760: okc_debug.Set_Indentation('OKC_PAT_PVT');
2761: okc_debug.log('9800: Entered populate_new_record', 2);
2762: END IF;
2763:
2764: x_pat_rec := p_pat_rec;
2765: -- Get current database values
3037: x_pat_rec.rebate_transaction_type_code := l_pat_rec.rebate_transaction_type_code;
3038: END IF;
3039:
3040: IF (l_debug = 'Y') THEN
3041: okc_debug.log('9850: Leaving populate_new_record ', 2);
3042: okc_debug.Reset_Indentation;
3043: END IF;
3044:
3045: RETURN(l_return_status);
3038: END IF;
3039:
3040: IF (l_debug = 'Y') THEN
3041: okc_debug.log('9850: Leaving populate_new_record ', 2);
3042: okc_debug.Reset_Indentation;
3043: END IF;
3044:
3045: RETURN(l_return_status);
3046:
3061: END Set_Attributes;
3062: BEGIN
3063:
3064: IF (l_debug = 'Y') THEN
3065: okc_debug.Set_Indentation('OKC_PAT_PVT');
3066: okc_debug.log('10000: Entered update_row', 2);
3067: END IF;
3068:
3069: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3062: BEGIN
3063:
3064: IF (l_debug = 'Y') THEN
3065: okc_debug.Set_Indentation('OKC_PAT_PVT');
3066: okc_debug.log('10000: Entered update_row', 2);
3067: END IF;
3068:
3069: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3070: p_init_msg_list,
3164: x_pat_rec := l_def_pat_rec;
3165: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3166:
3167: IF (l_debug = 'Y') THEN
3168: okc_debug.log('10100: Exiting update_row', 2);
3169: okc_debug.Reset_Indentation;
3170: END IF;
3171:
3172: EXCEPTION
3165: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3166:
3167: IF (l_debug = 'Y') THEN
3168: okc_debug.log('10100: Exiting update_row', 2);
3169: okc_debug.Reset_Indentation;
3170: END IF;
3171:
3172: EXCEPTION
3173: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3172: EXCEPTION
3173: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3174:
3175: IF (l_debug = 'Y') THEN
3176: okc_debug.log('10200: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3177: okc_debug.Reset_Indentation;
3178: END IF;
3179:
3180: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3173: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3174:
3175: IF (l_debug = 'Y') THEN
3176: okc_debug.log('10200: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3177: okc_debug.Reset_Indentation;
3178: END IF;
3179:
3180: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3181: (
3188: );
3189: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3190:
3191: IF (l_debug = 'Y') THEN
3192: okc_debug.log('10300: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3193: okc_debug.Reset_Indentation;
3194: END IF;
3195:
3196: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3189: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3190:
3191: IF (l_debug = 'Y') THEN
3192: okc_debug.log('10300: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3193: okc_debug.Reset_Indentation;
3194: END IF;
3195:
3196: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3197: (
3204: );
3205: WHEN OTHERS THEN
3206:
3207: IF (l_debug = 'Y') THEN
3208: okc_debug.log('10400: Exiting update_row:OTHERS Exception', 2);
3209: okc_debug.Reset_Indentation;
3210: END IF;
3211:
3212: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3205: WHEN OTHERS THEN
3206:
3207: IF (l_debug = 'Y') THEN
3208: okc_debug.log('10400: Exiting update_row:OTHERS Exception', 2);
3209: okc_debug.Reset_Indentation;
3210: END IF;
3211:
3212: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3213: (
3266: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3267: BEGIN
3268:
3269: IF (l_debug = 'Y') THEN
3270: okc_debug.Set_Indentation('OKC_PAT_PVT');
3271: okc_debug.log('10600: Entered populate_new_record', 2);
3272: END IF;
3273:
3274: x_patv_rec := p_patv_rec;
3267: BEGIN
3268:
3269: IF (l_debug = 'Y') THEN
3270: okc_debug.Set_Indentation('OKC_PAT_PVT');
3271: okc_debug.log('10600: Entered populate_new_record', 2);
3272: END IF;
3273:
3274: x_patv_rec := p_patv_rec;
3275: -- Get current database values
3549: x_patv_rec.rebate_transaction_type_code := l_patv_rec.rebate_transaction_type_code;
3550: END IF;
3551:
3552: IF (l_debug = 'Y') THEN
3553: okc_debug.log('10650: Exiting update_row', 2);
3554: okc_debug.Reset_Indentation;
3555: END IF;
3556:
3557: RETURN(l_return_status);
3550: END IF;
3551:
3552: IF (l_debug = 'Y') THEN
3553: okc_debug.log('10650: Exiting update_row', 2);
3554: okc_debug.Reset_Indentation;
3555: END IF;
3556:
3557: RETURN(l_return_status);
3558:
3574: END Set_Attributes;
3575: BEGIN
3576:
3577: IF (l_debug = 'Y') THEN
3578: okc_debug.Set_Indentation('OKC_PAT_PVT');
3579: okc_debug.log('10800: Entered update_row', 2);
3580: END IF;
3581:
3582: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3575: BEGIN
3576:
3577: IF (l_debug = 'Y') THEN
3578: okc_debug.Set_Indentation('OKC_PAT_PVT');
3579: okc_debug.log('10800: Entered update_row', 2);
3580: END IF;
3581:
3582: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3583: G_PKG_NAME,
3647: x_patv_rec := l_def_patv_rec;
3648: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3649:
3650: IF (l_debug = 'Y') THEN
3651: okc_debug.log('10900: Exiting update_row', 2);
3652: okc_debug.Reset_Indentation;
3653: END IF;
3654:
3655: EXCEPTION
3648: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3649:
3650: IF (l_debug = 'Y') THEN
3651: okc_debug.log('10900: Exiting update_row', 2);
3652: okc_debug.Reset_Indentation;
3653: END IF;
3654:
3655: EXCEPTION
3656: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3655: EXCEPTION
3656: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3657:
3658: IF (l_debug = 'Y') THEN
3659: okc_debug.log('11000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3660: okc_debug.Reset_Indentation;
3661: END IF;
3662:
3663: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3656: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3657:
3658: IF (l_debug = 'Y') THEN
3659: okc_debug.log('11000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3660: okc_debug.Reset_Indentation;
3661: END IF;
3662:
3663: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3664: (
3671: );
3672: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3673:
3674: IF (l_debug = 'Y') THEN
3675: okc_debug.log('11100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3676: okc_debug.Reset_Indentation;
3677: END IF;
3678:
3679: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3672: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3673:
3674: IF (l_debug = 'Y') THEN
3675: okc_debug.log('11100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3676: okc_debug.Reset_Indentation;
3677: END IF;
3678:
3679: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3680: (
3687: );
3688: WHEN OTHERS THEN
3689:
3690: IF (l_debug = 'Y') THEN
3691: okc_debug.log('11200: Exiting update_row:OTHERS Exception', 2);
3692: okc_debug.Reset_Indentation;
3693: END IF;
3694:
3695: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3688: WHEN OTHERS THEN
3689:
3690: IF (l_debug = 'Y') THEN
3691: okc_debug.log('11200: Exiting update_row:OTHERS Exception', 2);
3692: okc_debug.Reset_Indentation;
3693: END IF;
3694:
3695: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3696: (
3721: i NUMBER := 0;
3722: BEGIN
3723:
3724: IF (l_debug = 'Y') THEN
3725: okc_debug.Set_Indentation('OKC_PAT_PVT');
3726: okc_debug.log('11300: Entered update_row', 2);
3727: END IF;
3728:
3729: OKC_API.init_msg_list(p_init_msg_list);
3722: BEGIN
3723:
3724: IF (l_debug = 'Y') THEN
3725: okc_debug.Set_Indentation('OKC_PAT_PVT');
3726: okc_debug.log('11300: Entered update_row', 2);
3727: END IF;
3728:
3729: OKC_API.init_msg_list(p_init_msg_list);
3730: -- Make sure PL/SQL table has records in it before passing
3744: END LOOP;
3745: END IF;
3746:
3747: IF (l_debug = 'Y') THEN
3748: okc_debug.log('11400: Exiting update_row', 2);
3749: okc_debug.Reset_Indentation;
3750: END IF;
3751:
3752: EXCEPTION
3745: END IF;
3746:
3747: IF (l_debug = 'Y') THEN
3748: okc_debug.log('11400: Exiting update_row', 2);
3749: okc_debug.Reset_Indentation;
3750: END IF;
3751:
3752: EXCEPTION
3753: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3752: EXCEPTION
3753: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3754:
3755: IF (l_debug = 'Y') THEN
3756: okc_debug.log('11500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3757: okc_debug.Reset_Indentation;
3758: END IF;
3759:
3760: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3753: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3754:
3755: IF (l_debug = 'Y') THEN
3756: okc_debug.log('11500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3757: okc_debug.Reset_Indentation;
3758: END IF;
3759:
3760: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3761: (
3768: );
3769: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3770:
3771: IF (l_debug = 'Y') THEN
3772: okc_debug.log('11600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3773: okc_debug.Reset_Indentation;
3774: END IF;
3775:
3776: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3769: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3770:
3771: IF (l_debug = 'Y') THEN
3772: okc_debug.log('11600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3773: okc_debug.Reset_Indentation;
3774: END IF;
3775:
3776: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3777: (
3784: );
3785: WHEN OTHERS THEN
3786:
3787: IF (l_debug = 'Y') THEN
3788: okc_debug.log('11700: Exiting update_row:OTHERS Exception', 2);
3789: okc_debug.Reset_Indentation;
3790: END IF;
3791:
3792: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3785: WHEN OTHERS THEN
3786:
3787: IF (l_debug = 'Y') THEN
3788: okc_debug.log('11700: Exiting update_row:OTHERS Exception', 2);
3789: okc_debug.Reset_Indentation;
3790: END IF;
3791:
3792: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3793: (
3821: l_row_notfound BOOLEAN := TRUE;
3822: BEGIN
3823:
3824: IF (l_debug = 'Y') THEN
3825: okc_debug.Set_Indentation('OKC_PAT_PVT');
3826: okc_debug.log('11800: Entered delete_row', 2);
3827: END IF;
3828:
3829: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3822: BEGIN
3823:
3824: IF (l_debug = 'Y') THEN
3825: okc_debug.Set_Indentation('OKC_PAT_PVT');
3826: okc_debug.log('11800: Entered delete_row', 2);
3827: END IF;
3828:
3829: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3830: p_init_msg_list,
3840:
3841: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3842:
3843: IF (l_debug = 'Y') THEN
3844: okc_debug.log('11900: Exiting delete_row', 2);
3845: okc_debug.Reset_Indentation;
3846: END IF;
3847:
3848: EXCEPTION
3841: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3842:
3843: IF (l_debug = 'Y') THEN
3844: okc_debug.log('11900: Exiting delete_row', 2);
3845: okc_debug.Reset_Indentation;
3846: END IF;
3847:
3848: EXCEPTION
3849: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3848: EXCEPTION
3849: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3850:
3851: IF (l_debug = 'Y') THEN
3852: okc_debug.log('12000: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3853: okc_debug.Reset_Indentation;
3854: END IF;
3855:
3856: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3849: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3850:
3851: IF (l_debug = 'Y') THEN
3852: okc_debug.log('12000: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3853: okc_debug.Reset_Indentation;
3854: END IF;
3855:
3856: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3857: (
3864: );
3865: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3866:
3867: IF (l_debug = 'Y') THEN
3868: okc_debug.log('12100: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3869: okc_debug.Reset_Indentation;
3870: END IF;
3871:
3872: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3865: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3866:
3867: IF (l_debug = 'Y') THEN
3868: okc_debug.log('12100: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3869: okc_debug.Reset_Indentation;
3870: END IF;
3871:
3872: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3873: (
3880: );
3881: WHEN OTHERS THEN
3882:
3883: IF (l_debug = 'Y') THEN
3884: okc_debug.log('12200: Exiting delete_row:OTHERS Exception', 2);
3885: okc_debug.Reset_Indentation;
3886: END IF;
3887:
3888: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3881: WHEN OTHERS THEN
3882:
3883: IF (l_debug = 'Y') THEN
3884: okc_debug.log('12200: Exiting delete_row:OTHERS Exception', 2);
3885: okc_debug.Reset_Indentation;
3886: END IF;
3887:
3888: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3889: (
3914: l_pat_rec pat_rec_type;
3915: BEGIN
3916:
3917: IF (l_debug = 'Y') THEN
3918: okc_debug.Set_Indentation('OKC_PAT_PVT');
3919: okc_debug.log('12300: Entered delete_row', 2);
3920: END IF;
3921:
3922: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3915: BEGIN
3916:
3917: IF (l_debug = 'Y') THEN
3918: okc_debug.Set_Indentation('OKC_PAT_PVT');
3919: okc_debug.log('12300: Entered delete_row', 2);
3920: END IF;
3921:
3922: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3923: G_PKG_NAME,
3952: END IF;
3953: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3954:
3955: IF (l_debug = 'Y') THEN
3956: okc_debug.log('12400: Exiting delete_row', 2);
3957: okc_debug.Reset_Indentation;
3958: END IF;
3959:
3960: EXCEPTION
3953: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3954:
3955: IF (l_debug = 'Y') THEN
3956: okc_debug.log('12400: Exiting delete_row', 2);
3957: okc_debug.Reset_Indentation;
3958: END IF;
3959:
3960: EXCEPTION
3961: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3960: EXCEPTION
3961: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3962:
3963: IF (l_debug = 'Y') THEN
3964: okc_debug.log('12500: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3965: okc_debug.Reset_Indentation;
3966: END IF;
3967:
3968: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3961: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3962:
3963: IF (l_debug = 'Y') THEN
3964: okc_debug.log('12500: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3965: okc_debug.Reset_Indentation;
3966: END IF;
3967:
3968: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3969: (
3976: );
3977: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3978:
3979: IF (l_debug = 'Y') THEN
3980: okc_debug.log('12600: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3981: okc_debug.Reset_Indentation;
3982: END IF;
3983:
3984: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3977: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3978:
3979: IF (l_debug = 'Y') THEN
3980: okc_debug.log('12600: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3981: okc_debug.Reset_Indentation;
3982: END IF;
3983:
3984: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3985: (
3992: );
3993: WHEN OTHERS THEN
3994:
3995: IF (l_debug = 'Y') THEN
3996: okc_debug.log('12700: Exiting delete_row:OTHERS Exception', 2);
3997: okc_debug.Reset_Indentation;
3998: END IF;
3999:
4000: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3993: WHEN OTHERS THEN
3994:
3995: IF (l_debug = 'Y') THEN
3996: okc_debug.log('12700: Exiting delete_row:OTHERS Exception', 2);
3997: okc_debug.Reset_Indentation;
3998: END IF;
3999:
4000: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4001: (
4024: i NUMBER := 0;
4025: BEGIN
4026:
4027: IF (l_debug = 'Y') THEN
4028: okc_debug.Set_Indentation('OKC_PAT_PVT');
4029: okc_debug.log('12800: Entered delete_row', 2);
4030: END IF;
4031:
4032: OKC_API.init_msg_list(p_init_msg_list);
4025: BEGIN
4026:
4027: IF (l_debug = 'Y') THEN
4028: okc_debug.Set_Indentation('OKC_PAT_PVT');
4029: okc_debug.log('12800: Entered delete_row', 2);
4030: END IF;
4031:
4032: OKC_API.init_msg_list(p_init_msg_list);
4033: -- Make sure PL/SQL table has records in it before passing
4046: END LOOP;
4047: END IF;
4048:
4049: IF (l_debug = 'Y') THEN
4050: okc_debug.log('12900: Exiting delete_row', 2);
4051: okc_debug.Reset_Indentation;
4052: END IF;
4053:
4054: EXCEPTION
4047: END IF;
4048:
4049: IF (l_debug = 'Y') THEN
4050: okc_debug.log('12900: Exiting delete_row', 2);
4051: okc_debug.Reset_Indentation;
4052: END IF;
4053:
4054: EXCEPTION
4055: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4054: EXCEPTION
4055: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4056:
4057: IF (l_debug = 'Y') THEN
4058: okc_debug.log('13000: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4059: okc_debug.Reset_Indentation;
4060: END IF;
4061:
4062: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4055: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4056:
4057: IF (l_debug = 'Y') THEN
4058: okc_debug.log('13000: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4059: okc_debug.Reset_Indentation;
4060: END IF;
4061:
4062: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4063: (
4070: );
4071: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4072:
4073: IF (l_debug = 'Y') THEN
4074: okc_debug.log('13100: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4075: okc_debug.Reset_Indentation;
4076: END IF;
4077:
4078: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4071: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4072:
4073: IF (l_debug = 'Y') THEN
4074: okc_debug.log('13100: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4075: okc_debug.Reset_Indentation;
4076: END IF;
4077:
4078: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4079: (
4086: );
4087: WHEN OTHERS THEN
4088:
4089: IF (l_debug = 'Y') THEN
4090: okc_debug.log('13200: Exiting delete_row:OTHERS Exception', 2);
4091: okc_debug.Reset_Indentation;
4092: END IF;
4093:
4094: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4087: WHEN OTHERS THEN
4088:
4089: IF (l_debug = 'Y') THEN
4090: okc_debug.log('13200: Exiting delete_row:OTHERS Exception', 2);
4091: okc_debug.Reset_Indentation;
4092: END IF;
4093:
4094: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4095: (
4184: --Initialize return status
4185: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4186:
4187: IF (l_debug = 'Y') THEN
4188: okc_debug.Set_Indentation('OKC_PAT_PVT');
4189: okc_debug.log('13300: Entered INSERT_ROW_UPG', 2);
4190: END IF;
4191:
4192: i := p_patv_tbl.FIRST; j:=0;
4185: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4186:
4187: IF (l_debug = 'Y') THEN
4188: okc_debug.Set_Indentation('OKC_PAT_PVT');
4189: okc_debug.log('13300: Entered INSERT_ROW_UPG', 2);
4190: END IF;
4191:
4192: i := p_patv_tbl.FIRST; j:=0;
4193: while i is not null
4406: in_last_update_login(i),
4407: in_rebate_transaction_type_cod(i));
4408:
4409: IF (l_debug = 'Y') THEN
4410: okc_debug.log('13400: Exiting INSERT_ROW_UPG', 2);
4411: okc_debug.Reset_Indentation;
4412: END IF;
4413:
4414: EXCEPTION
4407: in_rebate_transaction_type_cod(i));
4408:
4409: IF (l_debug = 'Y') THEN
4410: okc_debug.log('13400: Exiting INSERT_ROW_UPG', 2);
4411: okc_debug.Reset_Indentation;
4412: END IF;
4413:
4414: EXCEPTION
4415: WHEN OTHERS THEN
4423: p_token2_value => SQLERRM);
4424: -- notify caller of an error as UNEXPECTED error
4425: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4426:
4427: -- okc_debug.log('13500: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
4428: -- okc_debug.Reset_Indentation;
4429:
4430: -- RAISE;
4431:
4424: -- notify caller of an error as UNEXPECTED error
4425: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4426:
4427: -- okc_debug.log('13500: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
4428: -- okc_debug.Reset_Indentation;
4429:
4430: -- RAISE;
4431:
4432: END INSERT_ROW_UPG;
4440:
4441: BEGIN
4442:
4443: IF (l_debug = 'Y') THEN
4444: okc_debug.Set_Indentation('OKC_PAT_PVT');
4445: okc_debug.log('13600: Entered create_version', 2);
4446: END IF;
4447:
4448: INSERT INTO okc_price_adjustments_h
4441: BEGIN
4442:
4443: IF (l_debug = 'Y') THEN
4444: okc_debug.Set_Indentation('OKC_PAT_PVT');
4445: okc_debug.log('13600: Entered create_version', 2);
4446: END IF;
4447:
4448: INSERT INTO okc_price_adjustments_h
4449: (
4590: FROM okc_price_adjustments
4591: WHERE chr_id = p_chr_id;
4592:
4593: IF (l_debug = 'Y') THEN
4594: okc_debug.log('13700: Exiting create_version', 2);
4595: okc_debug.Reset_Indentation;
4596: END IF;
4597:
4598: RETURN l_return_status;
4591: WHERE chr_id = p_chr_id;
4592:
4593: IF (l_debug = 'Y') THEN
4594: okc_debug.log('13700: Exiting create_version', 2);
4595: okc_debug.Reset_Indentation;
4596: END IF;
4597:
4598: RETURN l_return_status;
4599:
4601: -- other appropriate handlers
4602: WHEN OTHERS THEN
4603:
4604: IF (l_debug = 'Y') THEN
4605: okc_debug.log('13800: Exiting create_version:OTHERS Exception', 2);
4606: okc_debug.Reset_Indentation;
4607: END IF;
4608:
4609: -- store SQL error message on message stack
4602: WHEN OTHERS THEN
4603:
4604: IF (l_debug = 'Y') THEN
4605: okc_debug.log('13800: Exiting create_version:OTHERS Exception', 2);
4606: okc_debug.Reset_Indentation;
4607: END IF;
4608:
4609: -- store SQL error message on message stack
4610: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
4629:
4630: BEGIN
4631:
4632: IF (l_debug = 'Y') THEN
4633: okc_debug.Set_Indentation('OKC_PAT_PVT');
4634: okc_debug.log('13900: Entered restore_version', 2);
4635: END IF;
4636:
4637: INSERT INTO okc_price_adjustments
4630: BEGIN
4631:
4632: IF (l_debug = 'Y') THEN
4633: okc_debug.Set_Indentation('OKC_PAT_PVT');
4634: okc_debug.log('13900: Entered restore_version', 2);
4635: END IF;
4636:
4637: INSERT INTO okc_price_adjustments
4638: (
4778: WHERE chr_id = p_chr_id
4779: AND major_version = p_major_version;
4780:
4781: IF (l_debug = 'Y') THEN
4782: okc_debug.log('14000: Exiting restore_version', 2);
4783: okc_debug.Reset_Indentation;
4784: END IF;
4785:
4786: RETURN l_return_status;
4779: AND major_version = p_major_version;
4780:
4781: IF (l_debug = 'Y') THEN
4782: okc_debug.log('14000: Exiting restore_version', 2);
4783: okc_debug.Reset_Indentation;
4784: END IF;
4785:
4786: RETURN l_return_status;
4787:
4789: -- other appropriate handlers
4790: WHEN OTHERS THEN
4791:
4792: IF (l_debug = 'Y') THEN
4793: okc_debug.log('14100: Exiting restore_version:OTHERS Exception', 2);
4794: okc_debug.Reset_Indentation;
4795: END IF;
4796:
4797: -- store SQL error message on message stack
4790: WHEN OTHERS THEN
4791:
4792: IF (l_debug = 'Y') THEN
4793: okc_debug.log('14100: Exiting restore_version:OTHERS Exception', 2);
4794: okc_debug.Reset_Indentation;
4795: END IF;
4796:
4797: -- store SQL error message on message stack
4798: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,