320: x_msg_data => x_msg_data,
321: p_rgpv_rec => lp_rgpv_rec,
322: x_rgpv_rec => x_rgpv_rec);
323:
324: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
325: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
326: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
327: raise OKC_API.G_EXCEPTION_ERROR;
328: End If;
321: p_rgpv_rec => lp_rgpv_rec,
322: x_rgpv_rec => x_rgpv_rec);
323:
324: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
325: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
326: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
327: raise OKC_API.G_EXCEPTION_ERROR;
328: End If;
329: -------------------------------------------------------------
322: x_rgpv_rec => x_rgpv_rec);
323:
324: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
325: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
326: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
327: raise OKC_API.G_EXCEPTION_ERROR;
328: End If;
329: -------------------------------------------------------------
330: --2. create rule1 : template
323:
324: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
325: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
326: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
327: raise OKC_API.G_EXCEPTION_ERROR;
328: End If;
329: -------------------------------------------------------------
330: --2. create rule1 : template
331: -------------------------------------------------------------
344: x_msg_data => x_msg_data,
345: p_rulv_rec => lp_rulv_rec,
346: x_rulv_rec => x_rulv_rec);
347:
348: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
349: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
350: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
351: raise OKC_API.G_EXCEPTION_ERROR;
352: End If;
345: p_rulv_rec => lp_rulv_rec,
346: x_rulv_rec => x_rulv_rec);
347:
348: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
349: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
350: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
351: raise OKC_API.G_EXCEPTION_ERROR;
352: End If;
353:
346: x_rulv_rec => x_rulv_rec);
347:
348: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
349: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
350: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
351: raise OKC_API.G_EXCEPTION_ERROR;
352: End If;
353:
354: END IF;
347:
348: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
349: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
350: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
351: raise OKC_API.G_EXCEPTION_ERROR;
352: End If;
353:
354: END IF;
355: -------------------------------------------------------------
405: x_msg_data => x_msg_data,
406: p_rulv_rec => lp_rule2_rulv_rec,
407: x_rulv_rec => lx_rule2_rulv_rec);
408:
409: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
410: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
411: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
412: raise OKC_API.G_EXCEPTION_ERROR;
413: End If;
406: p_rulv_rec => lp_rule2_rulv_rec,
407: x_rulv_rec => lx_rule2_rulv_rec);
408:
409: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
410: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
411: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
412: raise OKC_API.G_EXCEPTION_ERROR;
413: End If;
414:
407: x_rulv_rec => lx_rule2_rulv_rec);
408:
409: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
410: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
411: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
412: raise OKC_API.G_EXCEPTION_ERROR;
413: End If;
414:
415: END LOOP;
408:
409: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
410: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
411: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
412: raise OKC_API.G_EXCEPTION_ERROR;
413: End If;
414:
415: END LOOP;
416: CLOSE c_chk_tpl;
452: x_msg_data => x_msg_data,
453: p_rulv_rec => lp_rule2_rulv_rec,
454: x_rulv_rec => lx_rule2_rulv_rec);
455:
456: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
457: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
458: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
459: raise OKC_API.G_EXCEPTION_ERROR;
460: End If;
453: p_rulv_rec => lp_rule2_rulv_rec,
454: x_rulv_rec => lx_rule2_rulv_rec);
455:
456: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
457: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
458: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
459: raise OKC_API.G_EXCEPTION_ERROR;
460: End If;
461:
454: x_rulv_rec => lx_rule2_rulv_rec);
455:
456: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
457: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
458: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
459: raise OKC_API.G_EXCEPTION_ERROR;
460: End If;
461:
462: END LOOP;
455:
456: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
457: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
458: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
459: raise OKC_API.G_EXCEPTION_ERROR;
460: End If;
461:
462: END LOOP;
463: CLOSE c_grp_chk;
493: x_msg_data => x_msg_data,
494: p_rulv_rec => lp_rule3_rulv_rec,
495: x_rulv_rec => lx_rule3_rulv_rec);
496:
497: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
498: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
499: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
500: raise OKC_API.G_EXCEPTION_ERROR;
501: End If;
494: p_rulv_rec => lp_rule3_rulv_rec,
495: x_rulv_rec => lx_rule3_rulv_rec);
496:
497: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
498: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
499: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
500: raise OKC_API.G_EXCEPTION_ERROR;
501: End If;
502:
495: x_rulv_rec => lx_rule3_rulv_rec);
496:
497: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
498: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
499: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
500: raise OKC_API.G_EXCEPTION_ERROR;
501: End If;
502:
503: -------------------------------------------------------------
496:
497: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
498: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
499: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
500: raise OKC_API.G_EXCEPTION_ERROR;
501: End If;
502:
503: -------------------------------------------------------------
504: --5. create rule3 : get the source of the checklist template lists
556: x_msg_data => x_msg_data,
557: p_rulv_rec => lp_rule4_rulv_rec,
558: x_rulv_rec => lx_rule4_rulv_rec);
559:
560: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
561: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
562: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
563: raise OKC_API.G_EXCEPTION_ERROR;
564: End If;
557: p_rulv_rec => lp_rule4_rulv_rec,
558: x_rulv_rec => lx_rule4_rulv_rec);
559:
560: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
561: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
562: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
563: raise OKC_API.G_EXCEPTION_ERROR;
564: End If;
565:
558: x_rulv_rec => lx_rule4_rulv_rec);
559:
560: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
561: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
562: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
563: raise OKC_API.G_EXCEPTION_ERROR;
564: End If;
565:
566: END LOOP;
559:
560: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
561: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
562: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
563: raise OKC_API.G_EXCEPTION_ERROR;
564: End If;
565:
566: END LOOP;
567: CLOSE c_chk_tpl;
610: x_msg_data => x_msg_data,
611: p_rulv_rec => lp_rule4_rulv_rec,
612: x_rulv_rec => lx_rule4_rulv_rec);
613:
614: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
615: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
616: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
617: raise OKC_API.G_EXCEPTION_ERROR;
618: End If;
611: p_rulv_rec => lp_rule4_rulv_rec,
612: x_rulv_rec => lx_rule4_rulv_rec);
613:
614: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
615: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
616: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
617: raise OKC_API.G_EXCEPTION_ERROR;
618: End If;
619:
612: x_rulv_rec => lx_rule4_rulv_rec);
613:
614: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
615: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
616: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
617: raise OKC_API.G_EXCEPTION_ERROR;
618: End If;
619:
620: END LOOP;
613:
614: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
615: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
616: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
617: raise OKC_API.G_EXCEPTION_ERROR;
618: End If;
619:
620: END LOOP;
621: CLOSE c_grp_chk;
824: --1. create rule group if rule group doesn't exists
825: -- (handle existing credit line contract or credit line doesn't have list)
826: -- call create_credit_chklst_tpl()
827: -------------------------------------------------------------
828: IF ( lp_rulv_rec.RGP_ID is null OR lp_rulv_rec.RGP_ID = OKC_API.G_MISS_NUM ) THEN
829:
830: -- rule group FK
831: lpcrt_rgpv_rec.DNZ_CHR_ID := lp_rulv_rec.DNZ_CHR_ID;
832: lpcrt_rgpv_rec.CHR_ID := lp_rulv_rec.DNZ_CHR_ID;
849: -- assign new FK to local rule record
850:
851: lp_rulv_rec.RGP_ID := lxcrt_rgpv_rec.ID;
852:
853: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
854: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
855: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
856: raise OKC_API.G_EXCEPTION_ERROR;
857: End If;
850:
851: lp_rulv_rec.RGP_ID := lxcrt_rgpv_rec.ID;
852:
853: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
854: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
855: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
856: raise OKC_API.G_EXCEPTION_ERROR;
857: End If;
858:
851: lp_rulv_rec.RGP_ID := lxcrt_rgpv_rec.ID;
852:
853: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
854: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
855: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
856: raise OKC_API.G_EXCEPTION_ERROR;
857: End If;
858:
859: ELSE -- Assume lp_rulv_rec.ID is available
852:
853: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
854: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
855: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
856: raise OKC_API.G_EXCEPTION_ERROR;
857: End If;
858:
859: ELSE -- Assume lp_rulv_rec.ID is available
860:
899: x_msg_count => x_msg_count,
900: x_msg_data => x_msg_data,
901: p_rulv_rec => ldel_rulv_rec);
902:
903: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
904: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
905: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
906: raise OKC_API.G_EXCEPTION_ERROR;
907: End If;
900: x_msg_data => x_msg_data,
901: p_rulv_rec => ldel_rulv_rec);
902:
903: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
904: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
905: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
906: raise OKC_API.G_EXCEPTION_ERROR;
907: End If;
908:
901: p_rulv_rec => ldel_rulv_rec);
902:
903: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
904: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
905: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
906: raise OKC_API.G_EXCEPTION_ERROR;
907: End If;
908:
909: END LOOP;
902:
903: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
904: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
905: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
906: raise OKC_API.G_EXCEPTION_ERROR;
907: End If;
908:
909: END LOOP;
910: close c_del;
973: x_msg_data => x_msg_data,
974: p_rulv_rec => lpcrt2_rulv_rec,
975: x_rulv_rec => lxcrt2_rulv_rec);
976:
977: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
978: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
979: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
980: raise OKC_API.G_EXCEPTION_ERROR;
981: End If;
974: p_rulv_rec => lpcrt2_rulv_rec,
975: x_rulv_rec => lxcrt2_rulv_rec);
976:
977: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
978: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
979: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
980: raise OKC_API.G_EXCEPTION_ERROR;
981: End If;
982:
975: x_rulv_rec => lxcrt2_rulv_rec);
976:
977: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
978: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
979: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
980: raise OKC_API.G_EXCEPTION_ERROR;
981: End If;
982:
983: END LOOP;
976:
977: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
978: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
979: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
980: raise OKC_API.G_EXCEPTION_ERROR;
981: End If;
982:
983: END LOOP;
984: CLOSE c_chk_tpl;
1022: x_msg_data => x_msg_data,
1023: p_rulv_rec => lpcrt2_rulv_rec,
1024: x_rulv_rec => lxcrt2_rulv_rec);
1025:
1026: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1027: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1028: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1029: raise OKC_API.G_EXCEPTION_ERROR;
1030: End If;
1023: p_rulv_rec => lpcrt2_rulv_rec,
1024: x_rulv_rec => lxcrt2_rulv_rec);
1025:
1026: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1027: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1028: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1029: raise OKC_API.G_EXCEPTION_ERROR;
1030: End If;
1031:
1024: x_rulv_rec => lxcrt2_rulv_rec);
1025:
1026: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1027: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1028: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1029: raise OKC_API.G_EXCEPTION_ERROR;
1030: End If;
1031:
1032: END LOOP;
1025:
1026: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1027: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1028: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1029: raise OKC_API.G_EXCEPTION_ERROR;
1030: End If;
1031:
1032: END LOOP;
1033: CLOSE c_grp_chk;
1079: x_msg_count => x_msg_count,
1080: x_msg_data => x_msg_data,
1081: p_rulv_rec => ldel_rulv_rec);
1082:
1083: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1084: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1085: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1086: raise OKC_API.G_EXCEPTION_ERROR;
1087: End If;
1080: x_msg_data => x_msg_data,
1081: p_rulv_rec => ldel_rulv_rec);
1082:
1083: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1084: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1085: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1086: raise OKC_API.G_EXCEPTION_ERROR;
1087: End If;
1088:
1081: p_rulv_rec => ldel_rulv_rec);
1082:
1083: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1084: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1085: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1086: raise OKC_API.G_EXCEPTION_ERROR;
1087: End If;
1088:
1089: END LOOP;
1082:
1083: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1084: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1085: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1086: raise OKC_API.G_EXCEPTION_ERROR;
1087: End If;
1088:
1089: END LOOP;
1090: close c_del;
1101: x_msg_count => x_msg_count,
1102: x_msg_data => x_msg_data,
1103: p_rulv_rec => ldel_rulv_rec);
1104:
1105: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1106: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1107: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1108: raise OKC_API.G_EXCEPTION_ERROR;
1109: End If;
1102: x_msg_data => x_msg_data,
1103: p_rulv_rec => ldel_rulv_rec);
1104:
1105: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1106: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1107: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1108: raise OKC_API.G_EXCEPTION_ERROR;
1109: End If;
1110:
1103: p_rulv_rec => ldel_rulv_rec);
1104:
1105: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1106: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1107: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1108: raise OKC_API.G_EXCEPTION_ERROR;
1109: End If;
1110:
1111: END IF;
1104:
1105: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1106: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1107: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1108: raise OKC_API.G_EXCEPTION_ERROR;
1109: End If;
1110:
1111: END IF;
1112:
1151: x_msg_data => x_msg_data,
1152: p_rulv_rec => lpcrt3_rulv_rec,
1153: x_rulv_rec => lxcrt3_rulv_rec);
1154:
1155: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1156: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1157: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1158: raise OKC_API.G_EXCEPTION_ERROR;
1159: End If;
1152: p_rulv_rec => lpcrt3_rulv_rec,
1153: x_rulv_rec => lxcrt3_rulv_rec);
1154:
1155: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1156: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1157: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1158: raise OKC_API.G_EXCEPTION_ERROR;
1159: End If;
1160:
1153: x_rulv_rec => lxcrt3_rulv_rec);
1154:
1155: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1156: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1157: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1158: raise OKC_API.G_EXCEPTION_ERROR;
1159: End If;
1160:
1161: -- assign to this variable for later
1154:
1155: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1156: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1157: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1158: raise OKC_API.G_EXCEPTION_ERROR;
1159: End If;
1160:
1161: -- assign to this variable for later
1162: l_fund_clist_hdr_id := lxcrt3_rulv_rec.ID;
1186: x_msg_data => x_msg_data,
1187: p_rulv_rec => lpcrt3_rulv_rec,
1188: x_rulv_rec => lxcrt3_rulv_rec);
1189:
1190: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1191: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1192: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1193: raise OKC_API.G_EXCEPTION_ERROR;
1194: End If;
1187: p_rulv_rec => lpcrt3_rulv_rec,
1188: x_rulv_rec => lxcrt3_rulv_rec);
1189:
1190: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1191: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1192: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1193: raise OKC_API.G_EXCEPTION_ERROR;
1194: End If;
1195:
1188: x_rulv_rec => lxcrt3_rulv_rec);
1189:
1190: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1191: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1192: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1193: raise OKC_API.G_EXCEPTION_ERROR;
1194: End If;
1195:
1196: END IF;
1189:
1190: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1191: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1192: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1193: raise OKC_API.G_EXCEPTION_ERROR;
1194: End If;
1195:
1196: END IF;
1197: ------------------------------------------------------------------------
1244: x_msg_data => x_msg_data,
1245: p_rulv_rec => lpcrt4_rulv_rec,
1246: x_rulv_rec => lxcrt4_rulv_rec);
1247:
1248: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1249: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1250: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1251: raise OKC_API.G_EXCEPTION_ERROR;
1252: End If;
1245: p_rulv_rec => lpcrt4_rulv_rec,
1246: x_rulv_rec => lxcrt4_rulv_rec);
1247:
1248: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1249: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1250: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1251: raise OKC_API.G_EXCEPTION_ERROR;
1252: End If;
1253:
1246: x_rulv_rec => lxcrt4_rulv_rec);
1247:
1248: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1249: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1250: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1251: raise OKC_API.G_EXCEPTION_ERROR;
1252: End If;
1253:
1254: END LOOP;
1247:
1248: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1249: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1250: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1251: raise OKC_API.G_EXCEPTION_ERROR;
1252: End If;
1253:
1254: END LOOP;
1255: CLOSE c_chk_tpl;
1293: x_msg_data => x_msg_data,
1294: p_rulv_rec => lpcrt4_rulv_rec,
1295: x_rulv_rec => lxcrt4_rulv_rec);
1296:
1297: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1298: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1299: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1300: raise OKC_API.G_EXCEPTION_ERROR;
1301: End If;
1294: p_rulv_rec => lpcrt4_rulv_rec,
1295: x_rulv_rec => lxcrt4_rulv_rec);
1296:
1297: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1298: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1299: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1300: raise OKC_API.G_EXCEPTION_ERROR;
1301: End If;
1302:
1295: x_rulv_rec => lxcrt4_rulv_rec);
1296:
1297: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1298: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1299: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1300: raise OKC_API.G_EXCEPTION_ERROR;
1301: End If;
1302:
1303: END LOOP;
1296:
1297: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1298: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1299: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1300: raise OKC_API.G_EXCEPTION_ERROR;
1301: End If;
1302:
1303: END LOOP;
1304: CLOSE c_grp_chk;
1324: x_msg_data => x_msg_data,
1325: p_rulv_rec => lp_rulv_rec,
1326: x_rulv_rec => lx_rulv_rec);
1327:
1328: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1329: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1330: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1331: raise OKC_API.G_EXCEPTION_ERROR;
1332: End If;
1325: p_rulv_rec => lp_rulv_rec,
1326: x_rulv_rec => lx_rulv_rec);
1327:
1328: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1329: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1330: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1331: raise OKC_API.G_EXCEPTION_ERROR;
1332: End If;
1333:
1326: x_rulv_rec => lx_rulv_rec);
1327:
1328: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1329: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1330: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1331: raise OKC_API.G_EXCEPTION_ERROR;
1332: End If;
1333:
1334: END IF; -- end of IF ( lp_rulv_rec.RGP_ID is null...
1327:
1328: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1329: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1330: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1331: raise OKC_API.G_EXCEPTION_ERROR;
1332: End If;
1333:
1334: END IF; -- end of IF ( lp_rulv_rec.RGP_ID is null...
1335:
3232: ;
3233:
3234: BEGIN
3235:
3236: x_return_status := OKC_API.START_ACTIVITY(
3237: p_api_name => l_api_name,
3238:
3239: p_pkg_name => g_pkg_name,
3240: p_init_msg_list => p_init_msg_list,
3243: p_api_type => g_api_type,
3244: x_return_status => x_return_status);
3245:
3246: -- check if activity started successfully
3247: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3248: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3249: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3250: raise OKC_API.G_EXCEPTION_ERROR;
3251: End If;
3244: x_return_status => x_return_status);
3245:
3246: -- check if activity started successfully
3247: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3248: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3249: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3250: raise OKC_API.G_EXCEPTION_ERROR;
3251: End If;
3252:
3245:
3246: -- check if activity started successfully
3247: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3248: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3249: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3250: raise OKC_API.G_EXCEPTION_ERROR;
3251: End If;
3252:
3253: -- get sts_code from database
3246: -- check if activity started successfully
3247: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3248: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3249: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3250: raise OKC_API.G_EXCEPTION_ERROR;
3251: End If;
3252:
3253: -- get sts_code from database
3254: OPEN c_sts_code(p_chr_id);
3282: lp_rulv_rec.RULE_INFORMATION1 := p_credit_ckl_id;
3283: lp_rulv_rec.RULE_INFORMATION2 := p_funding_ckl_id;
3284:
3285: x_return_status := validate_chklst_tpl(lp_rulv_rec, 'U');
3286: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3287: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3288: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3289: raise OKC_API.G_EXCEPTION_ERROR;
3290: End If;
3283: lp_rulv_rec.RULE_INFORMATION2 := p_funding_ckl_id;
3284:
3285: x_return_status := validate_chklst_tpl(lp_rulv_rec, 'U');
3286: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3287: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3288: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3289: raise OKC_API.G_EXCEPTION_ERROR;
3290: End If;
3291:
3284:
3285: x_return_status := validate_chklst_tpl(lp_rulv_rec, 'U');
3286: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3287: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3288: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3289: raise OKC_API.G_EXCEPTION_ERROR;
3290: End If;
3291:
3292: --
3285: x_return_status := validate_chklst_tpl(lp_rulv_rec, 'U');
3286: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3287: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3288: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3289: raise OKC_API.G_EXCEPTION_ERROR;
3290: End If;
3291:
3292: --
3293: -- funding checklist enhancement
3294:
3295: IF (l_sts_code = 'ACTIVE')THEN -- check if status already active
3296:
3297: x_return_status := validate_status_is_active(l_chrv_rec, 'U');
3298: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3299: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3300: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3301: raise OKC_API.G_EXCEPTION_ERROR;
3302: End If;
3295: IF (l_sts_code = 'ACTIVE')THEN -- check if status already active
3296:
3297: x_return_status := validate_status_is_active(l_chrv_rec, 'U');
3298: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3299: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3300: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3301: raise OKC_API.G_EXCEPTION_ERROR;
3302: End If;
3303:
3296:
3297: x_return_status := validate_status_is_active(l_chrv_rec, 'U');
3298: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3299: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3300: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3301: raise OKC_API.G_EXCEPTION_ERROR;
3302: End If;
3303:
3304: ELSE -- check include status become active
3297: x_return_status := validate_status_is_active(l_chrv_rec, 'U');
3298: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3299: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3300: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3301: raise OKC_API.G_EXCEPTION_ERROR;
3302: End If;
3303:
3304: ELSE -- check include status become active
3305:
3303:
3304: ELSE -- check include status become active
3305:
3306: x_return_status := validate_header_attributes(l_chrv_rec, l_khrv_rec, lp_rulv_rec, 'U');
3307: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3308: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3309: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3310: raise OKC_API.G_EXCEPTION_ERROR;
3311: End If;
3304: ELSE -- check include status become active
3305:
3306: x_return_status := validate_header_attributes(l_chrv_rec, l_khrv_rec, lp_rulv_rec, 'U');
3307: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3308: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3309: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3310: raise OKC_API.G_EXCEPTION_ERROR;
3311: End If;
3312:
3305:
3306: x_return_status := validate_header_attributes(l_chrv_rec, l_khrv_rec, lp_rulv_rec, 'U');
3307: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3308: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3309: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3310: raise OKC_API.G_EXCEPTION_ERROR;
3311: End If;
3312:
3313: -- 11.5.10 rule migration start
3306: x_return_status := validate_header_attributes(l_chrv_rec, l_khrv_rec, lp_rulv_rec, 'U');
3307: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3308: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3309: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3310: raise OKC_API.G_EXCEPTION_ERROR;
3311: End If;
3312:
3313: -- 11.5.10 rule migration start
3314: x_return_status := validate_account_number(p_cust_acct_id => p_cust_acct_id,
3312:
3313: -- 11.5.10 rule migration start
3314: x_return_status := validate_account_number(p_cust_acct_id => p_cust_acct_id,
3315: p_cust_acct_number => p_cust_acct_number);
3316: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3317: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3318: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3319: raise OKC_API.G_EXCEPTION_ERROR;
3320: End If;
3313: -- 11.5.10 rule migration start
3314: x_return_status := validate_account_number(p_cust_acct_id => p_cust_acct_id,
3315: p_cust_acct_number => p_cust_acct_number);
3316: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3317: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3318: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3319: raise OKC_API.G_EXCEPTION_ERROR;
3320: End If;
3321: -- 11.5.10 rule migration end
3314: x_return_status := validate_account_number(p_cust_acct_id => p_cust_acct_id,
3315: p_cust_acct_number => p_cust_acct_number);
3316: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3317: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3318: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3319: raise OKC_API.G_EXCEPTION_ERROR;
3320: End If;
3321: -- 11.5.10 rule migration end
3322:
3315: p_cust_acct_number => p_cust_acct_number);
3316: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3317: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3318: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3319: raise OKC_API.G_EXCEPTION_ERROR;
3320: End If;
3321: -- 11.5.10 rule migration end
3322:
3323: END IF;
3332: lp_cplv_rec.rle_code := G_RLE_CODE;
3333:
3334: IF (l_sts_code <> 'ACTIVE')THEN
3335: x_return_status := validate_customer(lp_cplv_rec, p_customer_name);
3336: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3337: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3338: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3339: raise OKC_API.G_EXCEPTION_ERROR;
3340: End If;
3333:
3334: IF (l_sts_code <> 'ACTIVE')THEN
3335: x_return_status := validate_customer(lp_cplv_rec, p_customer_name);
3336: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3337: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3338: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3339: raise OKC_API.G_EXCEPTION_ERROR;
3340: End If;
3341: END IF;
3334: IF (l_sts_code <> 'ACTIVE')THEN
3335: x_return_status := validate_customer(lp_cplv_rec, p_customer_name);
3336: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3337: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3338: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3339: raise OKC_API.G_EXCEPTION_ERROR;
3340: End If;
3341: END IF;
3342:
3335: x_return_status := validate_customer(lp_cplv_rec, p_customer_name);
3336: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3337: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3338: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3339: raise OKC_API.G_EXCEPTION_ERROR;
3340: End If;
3341: END IF;
3342:
3343: x_return_status := l_return_status;
3342:
3343: x_return_status := l_return_status;
3344:
3345: EXCEPTION
3346: when OKC_API.G_EXCEPTION_ERROR then
3347: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3348: p_api_name => l_api_name,
3349: p_pkg_name => g_pkg_name,
3350: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3343: x_return_status := l_return_status;
3344:
3345: EXCEPTION
3346: when OKC_API.G_EXCEPTION_ERROR then
3347: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3348: p_api_name => l_api_name,
3349: p_pkg_name => g_pkg_name,
3350: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3351: x_msg_count => x_msg_count,
3346: when OKC_API.G_EXCEPTION_ERROR then
3347: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3348: p_api_name => l_api_name,
3349: p_pkg_name => g_pkg_name,
3350: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3351: x_msg_count => x_msg_count,
3352: x_msg_data => x_msg_data,
3353: p_api_type => g_api_type);
3354:
3351: x_msg_count => x_msg_count,
3352: x_msg_data => x_msg_data,
3353: p_api_type => g_api_type);
3354:
3355: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3356: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3357: p_api_name => l_api_name,
3358: p_pkg_name => g_pkg_name,
3359: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3352: x_msg_data => x_msg_data,
3353: p_api_type => g_api_type);
3354:
3355: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3356: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3357: p_api_name => l_api_name,
3358: p_pkg_name => g_pkg_name,
3359: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3360: x_msg_count => x_msg_count,
3355: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3356: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3357: p_api_name => l_api_name,
3358: p_pkg_name => g_pkg_name,
3359: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3360: x_msg_count => x_msg_count,
3361: x_msg_data => x_msg_data,
3362:
3363: p_api_type => g_api_type);
3362:
3363: p_api_type => g_api_type);
3364:
3365: when OTHERS then
3366: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3367: p_api_name => l_api_name,
3368: p_pkg_name => g_pkg_name,
3369: p_exc_name => 'OTHERS',
3370: x_msg_count => x_msg_count,
3386: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3387:
3388: BEGIN
3389:
3390: x_return_status := OKC_API.START_ACTIVITY(
3391: p_api_name => l_api_name,
3392: p_pkg_name => g_pkg_name,
3393: p_init_msg_list => p_init_msg_list,
3394: l_api_version => l_api_version,
3396: p_api_type => g_api_type,
3397: x_return_status => x_return_status);
3398:
3399: -- check if activity started successfully
3400: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3401: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3402: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3403: raise OKC_API.G_EXCEPTION_ERROR;
3404: End If;
3397: x_return_status => x_return_status);
3398:
3399: -- check if activity started successfully
3400: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3401: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3402: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3403: raise OKC_API.G_EXCEPTION_ERROR;
3404: End If;
3405:
3398:
3399: -- check if activity started successfully
3400: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3401: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3402: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3403: raise OKC_API.G_EXCEPTION_ERROR;
3404: End If;
3405:
3406: x_return_status := validate_account_number(p_cust_acct_id => NULL,
3399: -- check if activity started successfully
3400: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3401: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3402: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3403: raise OKC_API.G_EXCEPTION_ERROR;
3404: End If;
3405:
3406: x_return_status := validate_account_number(p_cust_acct_id => NULL,
3407: p_cust_acct_number => p_account_number);
3404: End If;
3405:
3406: x_return_status := validate_account_number(p_cust_acct_id => NULL,
3407: p_cust_acct_number => p_account_number);
3408: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3409: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3410: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3411: raise OKC_API.G_EXCEPTION_ERROR;
3412: End If;
3405:
3406: x_return_status := validate_account_number(p_cust_acct_id => NULL,
3407: p_cust_acct_number => p_account_number);
3408: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3409: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3410: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3411: raise OKC_API.G_EXCEPTION_ERROR;
3412: End If;
3413:
3406: x_return_status := validate_account_number(p_cust_acct_id => NULL,
3407: p_cust_acct_number => p_account_number);
3408: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3409: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3410: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3411: raise OKC_API.G_EXCEPTION_ERROR;
3412: End If;
3413:
3414: x_return_status := l_return_status;
3407: p_cust_acct_number => p_account_number);
3408: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3409: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3410: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3411: raise OKC_API.G_EXCEPTION_ERROR;
3412: End If;
3413:
3414: x_return_status := l_return_status;
3415:
3413:
3414: x_return_status := l_return_status;
3415:
3416: EXCEPTION
3417: when OKC_API.G_EXCEPTION_ERROR then
3418: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3419: p_api_name => l_api_name,
3420: p_pkg_name => g_pkg_name,
3421: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3414: x_return_status := l_return_status;
3415:
3416: EXCEPTION
3417: when OKC_API.G_EXCEPTION_ERROR then
3418: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3419: p_api_name => l_api_name,
3420: p_pkg_name => g_pkg_name,
3421: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3422: x_msg_count => x_msg_count,
3417: when OKC_API.G_EXCEPTION_ERROR then
3418: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3419: p_api_name => l_api_name,
3420: p_pkg_name => g_pkg_name,
3421: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3422: x_msg_count => x_msg_count,
3423: x_msg_data => x_msg_data,
3424: p_api_type => g_api_type);
3425:
3422: x_msg_count => x_msg_count,
3423: x_msg_data => x_msg_data,
3424: p_api_type => g_api_type);
3425:
3426: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3427: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3428: p_api_name => l_api_name,
3429: p_pkg_name => g_pkg_name,
3430: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3423: x_msg_data => x_msg_data,
3424: p_api_type => g_api_type);
3425:
3426: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3427: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3428: p_api_name => l_api_name,
3429: p_pkg_name => g_pkg_name,
3430: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3431: x_msg_count => x_msg_count,
3426: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3427: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3428: p_api_name => l_api_name,
3429: p_pkg_name => g_pkg_name,
3430: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3431: x_msg_count => x_msg_count,
3432: x_msg_data => x_msg_data,
3433: p_api_type => g_api_type);
3434:
3432: x_msg_data => x_msg_data,
3433: p_api_type => g_api_type);
3434:
3435: when OTHERS then
3436: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3437: p_api_name => l_api_name,
3438: p_pkg_name => g_pkg_name,
3439: p_exc_name => 'OTHERS',
3440: x_msg_count => x_msg_count,
3526: l_clev_rec OKL_OKC_MIGRATION_PVT.clev_rec_type;
3527: l_klev_rec OKL_CONTRACT_PVT.klev_rec_type;
3528:
3529: BEGIN
3530: x_return_status := OKC_API.START_ACTIVITY(
3531: p_api_name => l_api_name,
3532: p_pkg_name => g_pkg_name,
3533: p_init_msg_list => p_init_msg_list,
3534: l_api_version => l_api_version,
3536: p_api_type => g_api_type,
3537: x_return_status => x_return_status);
3538:
3539: -- check if activity started successfully
3540: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3541: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3542: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3543: raise OKC_API.G_EXCEPTION_ERROR;
3544: End If;
3537: x_return_status => x_return_status);
3538:
3539: -- check if activity started successfully
3540: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3541: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3542: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3543: raise OKC_API.G_EXCEPTION_ERROR;
3544: End If;
3545:
3538:
3539: -- check if activity started successfully
3540: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3541: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3542: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3543: raise OKC_API.G_EXCEPTION_ERROR;
3544: End If;
3545:
3546: l_clev_rec.id := p_cle_id;
3539: -- check if activity started successfully
3540: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3541: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3542: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3543: raise OKC_API.G_EXCEPTION_ERROR;
3544: End If;
3545:
3546: l_clev_rec.id := p_cle_id;
3547: l_clev_rec.dnz_chr_id := p_chr_id;
3551: l_klev_rec.credit_nature := p_credit_nature;
3552:
3553: -- Do formal attribute validation:
3554: x_return_status := validate_start_date(l_clev_rec,l_klev_rec);
3555: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3556: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3557: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3558: raise OKC_API.G_EXCEPTION_ERROR;
3559: End If;
3552:
3553: -- Do formal attribute validation:
3554: x_return_status := validate_start_date(l_clev_rec,l_klev_rec);
3555: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3556: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3557: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3558: raise OKC_API.G_EXCEPTION_ERROR;
3559: End If;
3560:
3553: -- Do formal attribute validation:
3554: x_return_status := validate_start_date(l_clev_rec,l_klev_rec);
3555: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3556: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3557: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3558: raise OKC_API.G_EXCEPTION_ERROR;
3559: End If;
3560:
3561: x_return_status := validate_amount(l_clev_rec,l_klev_rec);
3554: x_return_status := validate_start_date(l_clev_rec,l_klev_rec);
3555: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3556: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3557: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3558: raise OKC_API.G_EXCEPTION_ERROR;
3559: End If;
3560:
3561: x_return_status := validate_amount(l_clev_rec,l_klev_rec);
3562: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3558: raise OKC_API.G_EXCEPTION_ERROR;
3559: End If;
3560:
3561: x_return_status := validate_amount(l_clev_rec,l_klev_rec);
3562: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3563: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3564: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3565: raise OKC_API.G_EXCEPTION_ERROR;
3566: End If;
3559: End If;
3560:
3561: x_return_status := validate_amount(l_clev_rec,l_klev_rec);
3562: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3563: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3564: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3565: raise OKC_API.G_EXCEPTION_ERROR;
3566: End If;
3567:
3560:
3561: x_return_status := validate_amount(l_clev_rec,l_klev_rec);
3562: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3563: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3564: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3565: raise OKC_API.G_EXCEPTION_ERROR;
3566: End If;
3567:
3568: x_return_status := l_return_status;
3561: x_return_status := validate_amount(l_clev_rec,l_klev_rec);
3562: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3563: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3564: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3565: raise OKC_API.G_EXCEPTION_ERROR;
3566: End If;
3567:
3568: x_return_status := l_return_status;
3569:
3567:
3568: x_return_status := l_return_status;
3569:
3570: EXCEPTION
3571: when OKC_API.G_EXCEPTION_ERROR then
3572: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3573: p_api_name => l_api_name,
3574: p_pkg_name => g_pkg_name,
3575: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3568: x_return_status := l_return_status;
3569:
3570: EXCEPTION
3571: when OKC_API.G_EXCEPTION_ERROR then
3572: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3573: p_api_name => l_api_name,
3574: p_pkg_name => g_pkg_name,
3575: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3576: x_msg_count => x_msg_count,
3571: when OKC_API.G_EXCEPTION_ERROR then
3572: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3573: p_api_name => l_api_name,
3574: p_pkg_name => g_pkg_name,
3575: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3576: x_msg_count => x_msg_count,
3577: x_msg_data => x_msg_data,
3578: p_api_type => g_api_type);
3579:
3576: x_msg_count => x_msg_count,
3577: x_msg_data => x_msg_data,
3578: p_api_type => g_api_type);
3579:
3580: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3581: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3582: p_api_name => l_api_name,
3583: p_pkg_name => g_pkg_name,
3584: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3577: x_msg_data => x_msg_data,
3578: p_api_type => g_api_type);
3579:
3580: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3581: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3582: p_api_name => l_api_name,
3583: p_pkg_name => g_pkg_name,
3584: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3585: x_msg_count => x_msg_count,
3580: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3581: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3582: p_api_name => l_api_name,
3583: p_pkg_name => g_pkg_name,
3584: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3585: x_msg_count => x_msg_count,
3586: x_msg_data => x_msg_data,
3587: p_api_type => g_api_type);
3588:
3586: x_msg_data => x_msg_data,
3587: p_api_type => g_api_type);
3588:
3589: when OTHERS then
3590: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3591: p_api_name => l_api_name,
3592: p_pkg_name => g_pkg_name,
3593: p_exc_name => 'OTHERS',
3594: x_msg_count => x_msg_count,
3610: l_api_name VARCHAR2(30) := 'VALIDATE_CREDIT_LIMIT1';
3611: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3612:
3613: BEGIN
3614: x_return_status := OKC_API.START_ACTIVITY(
3615: p_api_name => l_api_name,
3616: p_pkg_name => g_pkg_name,
3617: p_init_msg_list => p_init_msg_list,
3618: l_api_version => l_api_version,
3620: p_api_type => g_api_type,
3621: x_return_status => x_return_status);
3622:
3623: -- check if activity started successfully
3624: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3625: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3626: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3627: raise OKC_API.G_EXCEPTION_ERROR;
3628: End If;
3621: x_return_status => x_return_status);
3622:
3623: -- check if activity started successfully
3624: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3625: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3626: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3627: raise OKC_API.G_EXCEPTION_ERROR;
3628: End If;
3629:
3622:
3623: -- check if activity started successfully
3624: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3625: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3626: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3627: raise OKC_API.G_EXCEPTION_ERROR;
3628: End If;
3629:
3630: x_return_status := l_return_status;
3623: -- check if activity started successfully
3624: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3625: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3626: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3627: raise OKC_API.G_EXCEPTION_ERROR;
3628: End If;
3629:
3630: x_return_status := l_return_status;
3631:
3629:
3630: x_return_status := l_return_status;
3631:
3632: EXCEPTION
3633: when OKC_API.G_EXCEPTION_ERROR then
3634: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3635: p_api_name => l_api_name,
3636: p_pkg_name => g_pkg_name,
3637: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3630: x_return_status := l_return_status;
3631:
3632: EXCEPTION
3633: when OKC_API.G_EXCEPTION_ERROR then
3634: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3635: p_api_name => l_api_name,
3636: p_pkg_name => g_pkg_name,
3637: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3638: x_msg_count => x_msg_count,
3633: when OKC_API.G_EXCEPTION_ERROR then
3634: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3635: p_api_name => l_api_name,
3636: p_pkg_name => g_pkg_name,
3637: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3638: x_msg_count => x_msg_count,
3639: x_msg_data => x_msg_data,
3640: p_api_type => g_api_type);
3641:
3638: x_msg_count => x_msg_count,
3639: x_msg_data => x_msg_data,
3640: p_api_type => g_api_type);
3641:
3642: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3643: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3644: p_api_name => l_api_name,
3645: p_pkg_name => g_pkg_name,
3646: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3639: x_msg_data => x_msg_data,
3640: p_api_type => g_api_type);
3641:
3642: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3643: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3644: p_api_name => l_api_name,
3645: p_pkg_name => g_pkg_name,
3646: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3647: x_msg_count => x_msg_count,
3642: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3643: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3644: p_api_name => l_api_name,
3645: p_pkg_name => g_pkg_name,
3646: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3647: x_msg_count => x_msg_count,
3648: x_msg_data => x_msg_data,
3649: p_api_type => g_api_type);
3650:
3648: x_msg_data => x_msg_data,
3649: p_api_type => g_api_type);
3650:
3651: when OTHERS then
3652: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3653: p_api_name => l_api_name,
3654: p_pkg_name => g_pkg_name,
3655: p_exc_name => 'OTHERS',
3656: x_msg_count => x_msg_count,
3677: i NUMBER;
3678:
3679: BEGIN
3680:
3681: x_return_status := OKC_API.START_ACTIVITY(
3682: p_api_name => l_api_name,
3683: p_pkg_name => g_pkg_name,
3684: p_init_msg_list => p_init_msg_list,
3685: l_api_version => l_api_version,
3692: LOOP
3693:
3694: x_return_status := validate_line_attributes(p_mode, p_clev_tbl(i),p_klev_tbl(i));
3695: -- check if activity started successfully
3696: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3697: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3698: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3699: raise OKC_API.G_EXCEPTION_ERROR;
3700: End If;
3693:
3694: x_return_status := validate_line_attributes(p_mode, p_clev_tbl(i),p_klev_tbl(i));
3695: -- check if activity started successfully
3696: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3697: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3698: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3699: raise OKC_API.G_EXCEPTION_ERROR;
3700: End If;
3701:
3694: x_return_status := validate_line_attributes(p_mode, p_clev_tbl(i),p_klev_tbl(i));
3695: -- check if activity started successfully
3696: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3697: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3698: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3699: raise OKC_API.G_EXCEPTION_ERROR;
3700: End If;
3701:
3702: EXIT WHEN (i = p_clev_tbl.LAST);
3695: -- check if activity started successfully
3696: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3697: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3698: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3699: raise OKC_API.G_EXCEPTION_ERROR;
3700: End If;
3701:
3702: EXIT WHEN (i = p_clev_tbl.LAST);
3703: i := p_clev_tbl.NEXT(i);
3707: x_return_status := l_return_status;
3708:
3709: EXCEPTION
3710:
3711: when OKC_API.G_EXCEPTION_ERROR then
3712: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3713: p_api_name => l_api_name,
3714: p_pkg_name => g_pkg_name,
3715: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3708:
3709: EXCEPTION
3710:
3711: when OKC_API.G_EXCEPTION_ERROR then
3712: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3713: p_api_name => l_api_name,
3714: p_pkg_name => g_pkg_name,
3715: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3716: x_msg_count => x_msg_count,
3711: when OKC_API.G_EXCEPTION_ERROR then
3712: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3713: p_api_name => l_api_name,
3714: p_pkg_name => g_pkg_name,
3715: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3716: x_msg_count => x_msg_count,
3717: x_msg_data => x_msg_data,
3718: p_api_type => g_api_type);
3719:
3716: x_msg_count => x_msg_count,
3717: x_msg_data => x_msg_data,
3718: p_api_type => g_api_type);
3719:
3720: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3721: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3722: p_api_name => l_api_name,
3723: p_pkg_name => g_pkg_name,
3724: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3717: x_msg_data => x_msg_data,
3718: p_api_type => g_api_type);
3719:
3720: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3721: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3722: p_api_name => l_api_name,
3723: p_pkg_name => g_pkg_name,
3724: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3725: x_msg_count => x_msg_count,
3720: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3721: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3722: p_api_name => l_api_name,
3723: p_pkg_name => g_pkg_name,
3724: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3725: x_msg_count => x_msg_count,
3726: x_msg_data => x_msg_data,
3727: p_api_type => g_api_type);
3728:
3726: x_msg_data => x_msg_data,
3727: p_api_type => g_api_type);
3728:
3729: when OTHERS then
3730: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3731: p_api_name => l_api_name,
3732: p_pkg_name => g_pkg_name,
3733: p_exc_name => 'OTHERS',
3734: x_msg_count => x_msg_count,
3962: x_msg_count => x_msg_count,
3963: x_msg_data => x_msg_data,
3964: p_contract_id => lp_chrv_rec.id);
3965:
3966: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3967: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3968: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3969: raise OKC_API.G_EXCEPTION_ERROR;
3970: End If;
3963: x_msg_data => x_msg_data,
3964: p_contract_id => lp_chrv_rec.id);
3965:
3966: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3967: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3968: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3969: raise OKC_API.G_EXCEPTION_ERROR;
3970: End If;
3971:
3964: p_contract_id => lp_chrv_rec.id);
3965:
3966: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3967: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3968: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3969: raise OKC_API.G_EXCEPTION_ERROR;
3970: End If;
3971:
3972: -- lp_chrv_rec.sts_code := 'APPROVED';
3965:
3966: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3967: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3968: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3969: raise OKC_API.G_EXCEPTION_ERROR;
3970: End If;
3971:
3972: -- lp_chrv_rec.sts_code := 'APPROVED';
3973: lp_chrv_rec.sts_code := 'ACTIVE'; -- update to Active directly w/o WF implementation
3988: p_khrv_rec => lp_khrv_rec,
3989: x_chrv_rec => x_chrv_rec,
3990: x_khrv_rec => x_khrv_rec);
3991:
3992: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3993: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3994: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3995: raise OKC_API.G_EXCEPTION_ERROR;
3996: End If;
3989: x_chrv_rec => x_chrv_rec,
3990: x_khrv_rec => x_khrv_rec);
3991:
3992: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3993: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3994: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3995: raise OKC_API.G_EXCEPTION_ERROR;
3996: End If;
3997:
3990: x_khrv_rec => x_khrv_rec);
3991:
3992: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3993: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3994: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3995: raise OKC_API.G_EXCEPTION_ERROR;
3996: End If;
3997:
3998: --dbms_output.put_line('2: after OKL_CONTRACT_PUB.update_contract_header');
3991:
3992: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3993: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3994: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3995: raise OKC_API.G_EXCEPTION_ERROR;
3996: End If;
3997:
3998: --dbms_output.put_line('2: after OKL_CONTRACT_PUB.update_contract_header');
3999:
4017: x_msg_data => x_msg_data,
4018: p_rulv_rec => lp_rulv_rec,
4019: x_rulv_rec => lx_rulv_rec);
4020:
4021: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4022: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4023: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4024: raise OKC_API.G_EXCEPTION_ERROR;
4025: End If;
4018: p_rulv_rec => lp_rulv_rec,
4019: x_rulv_rec => lx_rulv_rec);
4020:
4021: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4022: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4023: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4024: raise OKC_API.G_EXCEPTION_ERROR;
4025: End If;
4026:
4019: x_rulv_rec => lx_rulv_rec);
4020:
4021: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4022: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4023: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4024: raise OKC_API.G_EXCEPTION_ERROR;
4025: End If;
4026:
4027: END IF;
4020:
4021: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4022: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4023: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4024: raise OKC_API.G_EXCEPTION_ERROR;
4025: End If;
4026:
4027: END IF;
4028: --dbms_output.put_line('4: after update_credit_chklst_tpl');
4091: x_msg_count => x_msg_count,
4092: x_msg_data => x_msg_data,
4093: p_contract_id => lp_chrv_rec.id);
4094:
4095: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4096: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4097: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4098: raise OKC_API.G_EXCEPTION_ERROR;
4099: End If;
4092: x_msg_data => x_msg_data,
4093: p_contract_id => lp_chrv_rec.id);
4094:
4095: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4096: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4097: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4098: raise OKC_API.G_EXCEPTION_ERROR;
4099: End If;
4100:
4093: p_contract_id => lp_chrv_rec.id);
4094:
4095: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4096: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4097: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4098: raise OKC_API.G_EXCEPTION_ERROR;
4099: End If;
4100:
4101: OKL_CREDIT_LINE_WF.raise_approval_event(
4094:
4095: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4096: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4097: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4098: raise OKC_API.G_EXCEPTION_ERROR;
4099: End If;
4100:
4101: OKL_CREDIT_LINE_WF.raise_approval_event(
4102: p_api_version => p_api_version,
4255:
4256: -------------------------------------------
4257: -- assign ID
4258: -------------------------------------------
4259: x_clev_rec.id := NULLIF(p_clmv_rec.id, OKC_API.G_MISS_NUM);
4260: x_klev_rec.id := NULLIF(p_clmv_rec.id, OKC_API.G_MISS_NUM);
4261:
4262: x_clev_rec.dnz_chr_id := p_chr_id;
4263: x_clev_rec.chr_id := p_chr_id;
4256: -------------------------------------------
4257: -- assign ID
4258: -------------------------------------------
4259: x_clev_rec.id := NULLIF(p_clmv_rec.id, OKC_API.G_MISS_NUM);
4260: x_klev_rec.id := NULLIF(p_clmv_rec.id, OKC_API.G_MISS_NUM);
4261:
4262: x_clev_rec.dnz_chr_id := p_chr_id;
4263: x_clev_rec.chr_id := p_chr_id;
4264:
4271:
4272: -------------------------------------------
4273: -- assign okc_k_lines_v
4274: -------------------------------------------
4275: x_clev_rec.start_date := NULLIF(p_clmv_rec.start_date, OKC_API.G_MISS_DATE);
4276: x_clev_rec.item_description := NULLIF(p_clmv_rec.item_description, OKC_API.G_MISS_CHAR);
4277: -------------------------------------------
4278: -- assign okl_k_lines
4279: -------------------------------------------
4272: -------------------------------------------
4273: -- assign okc_k_lines_v
4274: -------------------------------------------
4275: x_clev_rec.start_date := NULLIF(p_clmv_rec.start_date, OKC_API.G_MISS_DATE);
4276: x_clev_rec.item_description := NULLIF(p_clmv_rec.item_description, OKC_API.G_MISS_CHAR);
4277: -------------------------------------------
4278: -- assign okl_k_lines
4279: -------------------------------------------
4280: x_klev_rec.credit_nature := NULLIF(p_clmv_rec.credit_nature, OKC_API.G_MISS_CHAR);
4276: x_clev_rec.item_description := NULLIF(p_clmv_rec.item_description, OKC_API.G_MISS_CHAR);
4277: -------------------------------------------
4278: -- assign okl_k_lines
4279: -------------------------------------------
4280: x_klev_rec.credit_nature := NULLIF(p_clmv_rec.credit_nature, OKC_API.G_MISS_CHAR);
4281: x_klev_rec.amount := NULLIF(p_clmv_rec.amount, OKC_API.G_MISS_NUM);
4282:
4283: exception
4284: when others then
4277: -------------------------------------------
4278: -- assign okl_k_lines
4279: -------------------------------------------
4280: x_klev_rec.credit_nature := NULLIF(p_clmv_rec.credit_nature, OKC_API.G_MISS_CHAR);
4281: x_klev_rec.amount := NULLIF(p_clmv_rec.amount, OKC_API.G_MISS_NUM);
4282:
4283: exception
4284: when others then
4285: if c_lse_id%isopen then
4395: p_mode => G_CREATE_MODE,
4396: p_clev_tbl => lp_clev_tbl,
4397: p_klev_tbl => p_klev_tbl);
4398:
4399: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4400: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4401: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4402: raise OKC_API.G_EXCEPTION_ERROR;
4403: End If;
4396: p_clev_tbl => lp_clev_tbl,
4397: p_klev_tbl => p_klev_tbl);
4398:
4399: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4400: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4401: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4402: raise OKC_API.G_EXCEPTION_ERROR;
4403: End If;
4404:
4397: p_klev_tbl => p_klev_tbl);
4398:
4399: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4400: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4401: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4402: raise OKC_API.G_EXCEPTION_ERROR;
4403: End If;
4404:
4405:
4398:
4399: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4400: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4401: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4402: raise OKC_API.G_EXCEPTION_ERROR;
4403: End If;
4404:
4405:
4406: OKL_CONTRACT_PUB.create_contract_line(
4413: p_klev_tbl => p_klev_tbl,
4414: x_clev_tbl => lx_clev_tbl,
4415: x_klev_tbl => x_klev_tbl);
4416:
4417: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4418: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4419: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4420: raise OKC_API.G_EXCEPTION_ERROR;
4421: End If;
4414: x_clev_tbl => lx_clev_tbl,
4415: x_klev_tbl => x_klev_tbl);
4416:
4417: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4418: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4419: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4420: raise OKC_API.G_EXCEPTION_ERROR;
4421: End If;
4422:
4415: x_klev_tbl => x_klev_tbl);
4416:
4417: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4418: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4419: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4420: raise OKC_API.G_EXCEPTION_ERROR;
4421: End If;
4422:
4423: -- check after record created
4416:
4417: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4418: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4419: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4420: raise OKC_API.G_EXCEPTION_ERROR;
4421: End If;
4422:
4423: -- check after record created
4424: x_return_status := validate_credit_limit_after(
4424: x_return_status := validate_credit_limit_after(
4425: p_chr_id => lp_clev_tbl(lp_clev_tbl.FIRST).dnz_chr_id
4426: ,p_mode => 'NEW');
4427:
4428: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4429: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4430: -- Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4431: -- raise OKC_API.G_EXCEPTION_ERROR;
4432: End If;
4425: p_chr_id => lp_clev_tbl(lp_clev_tbl.FIRST).dnz_chr_id
4426: ,p_mode => 'NEW');
4427:
4428: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4429: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4430: -- Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4431: -- raise OKC_API.G_EXCEPTION_ERROR;
4432: End If;
4433:
4426: ,p_mode => 'NEW');
4427:
4428: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4429: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4430: -- Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4431: -- raise OKC_API.G_EXCEPTION_ERROR;
4432: End If;
4433:
4434: /*** End API body ******************************************************/
4427:
4428: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4429: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4430: -- Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4431: -- raise OKC_API.G_EXCEPTION_ERROR;
4432: End If;
4433:
4434: /*** End API body ******************************************************/
4435:
4629: -- End of comments
4630: ----------------------------------------------------------------------------------
4631: PROCEDURE update_credit_limit(
4632: p_api_version IN NUMBER,
4633: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4634: x_return_status OUT NOCOPY VARCHAR2,
4635: x_msg_count OUT NOCOPY NUMBER,
4636: x_msg_data OUT NOCOPY VARCHAR2,
4637: -- p_clev_tbl IN okl_okc_migration_pvt.clev_tbl_type,
4690: p_mode => G_UPDATE_MODE,
4691: p_clev_tbl => lp_clev_tbl,
4692: p_klev_tbl => p_klev_tbl);
4693:
4694: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4695: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4696: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4697: raise OKC_API.G_EXCEPTION_ERROR;
4698: End If;
4691: p_clev_tbl => lp_clev_tbl,
4692: p_klev_tbl => p_klev_tbl);
4693:
4694: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4695: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4696: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4697: raise OKC_API.G_EXCEPTION_ERROR;
4698: End If;
4699: /*comment out: cklee okl.h Bug 4506351 (okl.g bug#4435390)
4692: p_klev_tbl => p_klev_tbl);
4693:
4694: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4695: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4696: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4697: raise OKC_API.G_EXCEPTION_ERROR;
4698: End If;
4699: /*comment out: cklee okl.h Bug 4506351 (okl.g bug#4435390)
4700:
4693:
4694: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4695: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4696: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4697: raise OKC_API.G_EXCEPTION_ERROR;
4698: End If;
4699: /*comment out: cklee okl.h Bug 4506351 (okl.g bug#4435390)
4700:
4701: OKL_CONTRACT_PUB.update_contract_line(
4739: x_return_status := l_overall_status;
4740: END IF;
4741: -- rabhupat bug 4435390 end (cklee okl.h Bug 4506351 (okl.g bug#4435390))
4742:
4743: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4744: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4745: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4746: raise OKC_API.G_EXCEPTION_ERROR;
4747: End If;
4740: END IF;
4741: -- rabhupat bug 4435390 end (cklee okl.h Bug 4506351 (okl.g bug#4435390))
4742:
4743: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4744: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4745: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4746: raise OKC_API.G_EXCEPTION_ERROR;
4747: End If;
4748:
4741: -- rabhupat bug 4435390 end (cklee okl.h Bug 4506351 (okl.g bug#4435390))
4742:
4743: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4744: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4745: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4746: raise OKC_API.G_EXCEPTION_ERROR;
4747: End If;
4748:
4749: -- check after record created
4742:
4743: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4744: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4745: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4746: raise OKC_API.G_EXCEPTION_ERROR;
4747: End If;
4748:
4749: -- check after record created
4750: x_return_status := validate_credit_limit_after(
4750: x_return_status := validate_credit_limit_after(
4751: p_chr_id => lp_clev_tbl(lp_clev_tbl.FIRST).dnz_chr_id
4752: ,p_mode => 'UPDATE');
4753:
4754: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4755: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4756: -- Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4757: -- raise OKC_API.G_EXCEPTION_ERROR;
4758: End If;
4751: p_chr_id => lp_clev_tbl(lp_clev_tbl.FIRST).dnz_chr_id
4752: ,p_mode => 'UPDATE');
4753:
4754: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4755: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4756: -- Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4757: -- raise OKC_API.G_EXCEPTION_ERROR;
4758: End If;
4759:
4752: ,p_mode => 'UPDATE');
4753:
4754: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4755: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4756: -- Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4757: -- raise OKC_API.G_EXCEPTION_ERROR;
4758: End If;
4759:
4760: /*** End API body ******************************************************/
4753:
4754: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4755: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4756: -- Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4757: -- raise OKC_API.G_EXCEPTION_ERROR;
4758: End If;
4759:
4760: /*** End API body ******************************************************/
4761:
4806: -- End of comments
4807: ----------------------------------------------------------------------------------
4808: PROCEDURE delete_credit_limit(
4809: p_api_version IN NUMBER,
4810: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4811: x_return_status OUT NOCOPY VARCHAR2,
4812: x_msg_count OUT NOCOPY NUMBER,
4813: x_msg_data OUT NOCOPY VARCHAR2,
4814: -- p_clev_tbl IN okl_okc_migration_pvt.clev_tbl_type,
4862: p_mode => G_DELETE_MODE,
4863: p_clev_tbl => lp_clev_tbl,
4864: p_klev_tbl => p_klev_tbl);
4865:
4866: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4867: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4868: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4869: raise OKC_API.G_EXCEPTION_ERROR;
4870: End If;
4863: p_clev_tbl => lp_clev_tbl,
4864: p_klev_tbl => p_klev_tbl);
4865:
4866: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4867: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4868: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4869: raise OKC_API.G_EXCEPTION_ERROR;
4870: End If;
4871:
4864: p_klev_tbl => p_klev_tbl);
4865:
4866: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4867: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4868: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4869: raise OKC_API.G_EXCEPTION_ERROR;
4870: End If;
4871:
4872:
4865:
4866: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4867: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4868: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4869: raise OKC_API.G_EXCEPTION_ERROR;
4870: End If;
4871:
4872:
4873: OKL_CONTRACT_PUB.delete_contract_line(
4878: x_msg_data => x_msg_data,
4879: p_clev_tbl => lp_clev_tbl,
4880: p_klev_tbl => p_klev_tbl);
4881:
4882: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4883: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4884: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4885: raise OKC_API.G_EXCEPTION_ERROR;
4886: End If;
4879: p_clev_tbl => lp_clev_tbl,
4880: p_klev_tbl => p_klev_tbl);
4881:
4882: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4883: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4884: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4885: raise OKC_API.G_EXCEPTION_ERROR;
4886: End If;
4887:
4880: p_klev_tbl => p_klev_tbl);
4881:
4882: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4883: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4884: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4885: raise OKC_API.G_EXCEPTION_ERROR;
4886: End If;
4887:
4888: -- check after record created
4881:
4882: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4883: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4884: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4885: raise OKC_API.G_EXCEPTION_ERROR;
4886: End If;
4887:
4888: -- check after record created
4889: x_return_status := validate_credit_limit_after(
4889: x_return_status := validate_credit_limit_after(
4890: p_chr_id => lp_clev_tbl(lp_clev_tbl.FIRST).dnz_chr_id
4891: ,p_mode => 'DELETE');
4892:
4893: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4894: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4895: -- Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4896: -- raise OKC_API.G_EXCEPTION_ERROR;
4897: End If;
4890: p_chr_id => lp_clev_tbl(lp_clev_tbl.FIRST).dnz_chr_id
4891: ,p_mode => 'DELETE');
4892:
4893: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4894: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4895: -- Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4896: -- raise OKC_API.G_EXCEPTION_ERROR;
4897: End If;
4898:
4891: ,p_mode => 'DELETE');
4892:
4893: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4894: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4895: -- Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4896: -- raise OKC_API.G_EXCEPTION_ERROR;
4897: End If;
4898:
4899:
4892:
4893: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4894: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4895: -- Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4896: -- raise OKC_API.G_EXCEPTION_ERROR;
4897: End If;
4898:
4899:
4900: /*** End API body ******************************************************/
5060: ----------------------------------------------------------------
5061: -- create credit line
5062: ----------------------------------------------------------------
5063: -- set default date for effective from
5064: IF (NULLIF(p_crdv_rec.effective_from,OKC_API.G_MISS_DATE) IS NULL) THEN
5065: l_effective_from := TRUNC(SYSDATE);
5066: ELSE
5067: l_effective_from := p_crdv_rec.effective_from;
5068: END IF;
5067: l_effective_from := p_crdv_rec.effective_from;
5068: END IF;
5069:
5070: -- set default 'NEW' for sts_code
5071: IF (NULLIF(p_crdv_rec.sts_code,OKC_API.G_MISS_CHAR) IS NULL) THEN
5072: l_sts_code := 'NEW';
5073: ELSE
5074: l_sts_code := p_crdv_rec.sts_code;
5075: END IF;
5079: p_init_msg_list => p_init_msg_list,
5080: x_return_status => x_return_status,
5081: x_msg_count => x_msg_count,
5082: x_msg_data => x_msg_data,
5083: p_contract_number => NULLIF(p_crdv_rec.contract_number,OKC_API.G_MISS_CHAR),
5084: p_description => NULLIF(p_crdv_rec.description,OKC_API.G_MISS_CHAR),
5085: p_customer_id1 => NULLIF(p_crdv_rec.customer_id1,OKC_API.G_MISS_CHAR),
5086: p_customer_id2 => NULLIF(p_crdv_rec.customer_id2,OKC_API.G_MISS_CHAR),
5087: p_customer_code => NULLIF(p_crdv_rec.customer_code,OKC_API.G_MISS_CHAR),
5080: x_return_status => x_return_status,
5081: x_msg_count => x_msg_count,
5082: x_msg_data => x_msg_data,
5083: p_contract_number => NULLIF(p_crdv_rec.contract_number,OKC_API.G_MISS_CHAR),
5084: p_description => NULLIF(p_crdv_rec.description,OKC_API.G_MISS_CHAR),
5085: p_customer_id1 => NULLIF(p_crdv_rec.customer_id1,OKC_API.G_MISS_CHAR),
5086: p_customer_id2 => NULLIF(p_crdv_rec.customer_id2,OKC_API.G_MISS_CHAR),
5087: p_customer_code => NULLIF(p_crdv_rec.customer_code,OKC_API.G_MISS_CHAR),
5088: p_customer_name => NULLIF(p_crdv_rec.customer_name,OKC_API.G_MISS_CHAR),
5081: x_msg_count => x_msg_count,
5082: x_msg_data => x_msg_data,
5083: p_contract_number => NULLIF(p_crdv_rec.contract_number,OKC_API.G_MISS_CHAR),
5084: p_description => NULLIF(p_crdv_rec.description,OKC_API.G_MISS_CHAR),
5085: p_customer_id1 => NULLIF(p_crdv_rec.customer_id1,OKC_API.G_MISS_CHAR),
5086: p_customer_id2 => NULLIF(p_crdv_rec.customer_id2,OKC_API.G_MISS_CHAR),
5087: p_customer_code => NULLIF(p_crdv_rec.customer_code,OKC_API.G_MISS_CHAR),
5088: p_customer_name => NULLIF(p_crdv_rec.customer_name,OKC_API.G_MISS_CHAR),
5089: p_effective_from => l_effective_from,
5082: x_msg_data => x_msg_data,
5083: p_contract_number => NULLIF(p_crdv_rec.contract_number,OKC_API.G_MISS_CHAR),
5084: p_description => NULLIF(p_crdv_rec.description,OKC_API.G_MISS_CHAR),
5085: p_customer_id1 => NULLIF(p_crdv_rec.customer_id1,OKC_API.G_MISS_CHAR),
5086: p_customer_id2 => NULLIF(p_crdv_rec.customer_id2,OKC_API.G_MISS_CHAR),
5087: p_customer_code => NULLIF(p_crdv_rec.customer_code,OKC_API.G_MISS_CHAR),
5088: p_customer_name => NULLIF(p_crdv_rec.customer_name,OKC_API.G_MISS_CHAR),
5089: p_effective_from => l_effective_from,
5090: p_effective_to => NULLIF(p_crdv_rec.effective_to,OKC_API.G_MISS_DATE),
5083: p_contract_number => NULLIF(p_crdv_rec.contract_number,OKC_API.G_MISS_CHAR),
5084: p_description => NULLIF(p_crdv_rec.description,OKC_API.G_MISS_CHAR),
5085: p_customer_id1 => NULLIF(p_crdv_rec.customer_id1,OKC_API.G_MISS_CHAR),
5086: p_customer_id2 => NULLIF(p_crdv_rec.customer_id2,OKC_API.G_MISS_CHAR),
5087: p_customer_code => NULLIF(p_crdv_rec.customer_code,OKC_API.G_MISS_CHAR),
5088: p_customer_name => NULLIF(p_crdv_rec.customer_name,OKC_API.G_MISS_CHAR),
5089: p_effective_from => l_effective_from,
5090: p_effective_to => NULLIF(p_crdv_rec.effective_to,OKC_API.G_MISS_DATE),
5091: p_currency_code => NULLIF(p_crdv_rec.currency_code,OKC_API.G_MISS_CHAR),
5084: p_description => NULLIF(p_crdv_rec.description,OKC_API.G_MISS_CHAR),
5085: p_customer_id1 => NULLIF(p_crdv_rec.customer_id1,OKC_API.G_MISS_CHAR),
5086: p_customer_id2 => NULLIF(p_crdv_rec.customer_id2,OKC_API.G_MISS_CHAR),
5087: p_customer_code => NULLIF(p_crdv_rec.customer_code,OKC_API.G_MISS_CHAR),
5088: p_customer_name => NULLIF(p_crdv_rec.customer_name,OKC_API.G_MISS_CHAR),
5089: p_effective_from => l_effective_from,
5090: p_effective_to => NULLIF(p_crdv_rec.effective_to,OKC_API.G_MISS_DATE),
5091: p_currency_code => NULLIF(p_crdv_rec.currency_code,OKC_API.G_MISS_CHAR),
5092: p_currency_conv_type => NULLIF(p_crdv_rec.currency_conv_type,OKC_API.G_MISS_CHAR),
5086: p_customer_id2 => NULLIF(p_crdv_rec.customer_id2,OKC_API.G_MISS_CHAR),
5087: p_customer_code => NULLIF(p_crdv_rec.customer_code,OKC_API.G_MISS_CHAR),
5088: p_customer_name => NULLIF(p_crdv_rec.customer_name,OKC_API.G_MISS_CHAR),
5089: p_effective_from => l_effective_from,
5090: p_effective_to => NULLIF(p_crdv_rec.effective_to,OKC_API.G_MISS_DATE),
5091: p_currency_code => NULLIF(p_crdv_rec.currency_code,OKC_API.G_MISS_CHAR),
5092: p_currency_conv_type => NULLIF(p_crdv_rec.currency_conv_type,OKC_API.G_MISS_CHAR),
5093: p_currency_conv_rate => NULLIF(p_crdv_rec.currency_conv_rate,OKC_API.G_MISS_NUM),
5094: p_currency_conv_date => NULLIF(p_crdv_rec.currency_conv_date,OKC_API.G_MISS_DATE),
5087: p_customer_code => NULLIF(p_crdv_rec.customer_code,OKC_API.G_MISS_CHAR),
5088: p_customer_name => NULLIF(p_crdv_rec.customer_name,OKC_API.G_MISS_CHAR),
5089: p_effective_from => l_effective_from,
5090: p_effective_to => NULLIF(p_crdv_rec.effective_to,OKC_API.G_MISS_DATE),
5091: p_currency_code => NULLIF(p_crdv_rec.currency_code,OKC_API.G_MISS_CHAR),
5092: p_currency_conv_type => NULLIF(p_crdv_rec.currency_conv_type,OKC_API.G_MISS_CHAR),
5093: p_currency_conv_rate => NULLIF(p_crdv_rec.currency_conv_rate,OKC_API.G_MISS_NUM),
5094: p_currency_conv_date => NULLIF(p_crdv_rec.currency_conv_date,OKC_API.G_MISS_DATE),
5095: p_revolving_credit_yn => NULLIF(p_crdv_rec.revolving_credit_yn,OKC_API.G_MISS_CHAR),
5088: p_customer_name => NULLIF(p_crdv_rec.customer_name,OKC_API.G_MISS_CHAR),
5089: p_effective_from => l_effective_from,
5090: p_effective_to => NULLIF(p_crdv_rec.effective_to,OKC_API.G_MISS_DATE),
5091: p_currency_code => NULLIF(p_crdv_rec.currency_code,OKC_API.G_MISS_CHAR),
5092: p_currency_conv_type => NULLIF(p_crdv_rec.currency_conv_type,OKC_API.G_MISS_CHAR),
5093: p_currency_conv_rate => NULLIF(p_crdv_rec.currency_conv_rate,OKC_API.G_MISS_NUM),
5094: p_currency_conv_date => NULLIF(p_crdv_rec.currency_conv_date,OKC_API.G_MISS_DATE),
5095: p_revolving_credit_yn => NULLIF(p_crdv_rec.revolving_credit_yn,OKC_API.G_MISS_CHAR),
5096: p_sts_code => l_sts_code,
5089: p_effective_from => l_effective_from,
5090: p_effective_to => NULLIF(p_crdv_rec.effective_to,OKC_API.G_MISS_DATE),
5091: p_currency_code => NULLIF(p_crdv_rec.currency_code,OKC_API.G_MISS_CHAR),
5092: p_currency_conv_type => NULLIF(p_crdv_rec.currency_conv_type,OKC_API.G_MISS_CHAR),
5093: p_currency_conv_rate => NULLIF(p_crdv_rec.currency_conv_rate,OKC_API.G_MISS_NUM),
5094: p_currency_conv_date => NULLIF(p_crdv_rec.currency_conv_date,OKC_API.G_MISS_DATE),
5095: p_revolving_credit_yn => NULLIF(p_crdv_rec.revolving_credit_yn,OKC_API.G_MISS_CHAR),
5096: p_sts_code => l_sts_code,
5097: p_credit_ckl_id => NULLIF(p_crdv_rec.credit_ckl_id,OKC_API.G_MISS_NUM),
5090: p_effective_to => NULLIF(p_crdv_rec.effective_to,OKC_API.G_MISS_DATE),
5091: p_currency_code => NULLIF(p_crdv_rec.currency_code,OKC_API.G_MISS_CHAR),
5092: p_currency_conv_type => NULLIF(p_crdv_rec.currency_conv_type,OKC_API.G_MISS_CHAR),
5093: p_currency_conv_rate => NULLIF(p_crdv_rec.currency_conv_rate,OKC_API.G_MISS_NUM),
5094: p_currency_conv_date => NULLIF(p_crdv_rec.currency_conv_date,OKC_API.G_MISS_DATE),
5095: p_revolving_credit_yn => NULLIF(p_crdv_rec.revolving_credit_yn,OKC_API.G_MISS_CHAR),
5096: p_sts_code => l_sts_code,
5097: p_credit_ckl_id => NULLIF(p_crdv_rec.credit_ckl_id,OKC_API.G_MISS_NUM),
5098: p_funding_ckl_id => NULLIF(p_crdv_rec.funding_ckl_id,OKC_API.G_MISS_NUM),
5091: p_currency_code => NULLIF(p_crdv_rec.currency_code,OKC_API.G_MISS_CHAR),
5092: p_currency_conv_type => NULLIF(p_crdv_rec.currency_conv_type,OKC_API.G_MISS_CHAR),
5093: p_currency_conv_rate => NULLIF(p_crdv_rec.currency_conv_rate,OKC_API.G_MISS_NUM),
5094: p_currency_conv_date => NULLIF(p_crdv_rec.currency_conv_date,OKC_API.G_MISS_DATE),
5095: p_revolving_credit_yn => NULLIF(p_crdv_rec.revolving_credit_yn,OKC_API.G_MISS_CHAR),
5096: p_sts_code => l_sts_code,
5097: p_credit_ckl_id => NULLIF(p_crdv_rec.credit_ckl_id,OKC_API.G_MISS_NUM),
5098: p_funding_ckl_id => NULLIF(p_crdv_rec.funding_ckl_id,OKC_API.G_MISS_NUM),
5099: p_cust_acct_id => NULLIF(p_crdv_rec.cust_acct_id,OKC_API.G_MISS_NUM),
5093: p_currency_conv_rate => NULLIF(p_crdv_rec.currency_conv_rate,OKC_API.G_MISS_NUM),
5094: p_currency_conv_date => NULLIF(p_crdv_rec.currency_conv_date,OKC_API.G_MISS_DATE),
5095: p_revolving_credit_yn => NULLIF(p_crdv_rec.revolving_credit_yn,OKC_API.G_MISS_CHAR),
5096: p_sts_code => l_sts_code,
5097: p_credit_ckl_id => NULLIF(p_crdv_rec.credit_ckl_id,OKC_API.G_MISS_NUM),
5098: p_funding_ckl_id => NULLIF(p_crdv_rec.funding_ckl_id,OKC_API.G_MISS_NUM),
5099: p_cust_acct_id => NULLIF(p_crdv_rec.cust_acct_id,OKC_API.G_MISS_NUM),
5100: p_cust_acct_number => NULLIF(p_crdv_rec.cust_acct_number,OKC_API.G_MISS_CHAR),
5101: x_chr_id => x_crdv_rec.id
5094: p_currency_conv_date => NULLIF(p_crdv_rec.currency_conv_date,OKC_API.G_MISS_DATE),
5095: p_revolving_credit_yn => NULLIF(p_crdv_rec.revolving_credit_yn,OKC_API.G_MISS_CHAR),
5096: p_sts_code => l_sts_code,
5097: p_credit_ckl_id => NULLIF(p_crdv_rec.credit_ckl_id,OKC_API.G_MISS_NUM),
5098: p_funding_ckl_id => NULLIF(p_crdv_rec.funding_ckl_id,OKC_API.G_MISS_NUM),
5099: p_cust_acct_id => NULLIF(p_crdv_rec.cust_acct_id,OKC_API.G_MISS_NUM),
5100: p_cust_acct_number => NULLIF(p_crdv_rec.cust_acct_number,OKC_API.G_MISS_CHAR),
5101: x_chr_id => x_crdv_rec.id
5102: );
5095: p_revolving_credit_yn => NULLIF(p_crdv_rec.revolving_credit_yn,OKC_API.G_MISS_CHAR),
5096: p_sts_code => l_sts_code,
5097: p_credit_ckl_id => NULLIF(p_crdv_rec.credit_ckl_id,OKC_API.G_MISS_NUM),
5098: p_funding_ckl_id => NULLIF(p_crdv_rec.funding_ckl_id,OKC_API.G_MISS_NUM),
5099: p_cust_acct_id => NULLIF(p_crdv_rec.cust_acct_id,OKC_API.G_MISS_NUM),
5100: p_cust_acct_number => NULLIF(p_crdv_rec.cust_acct_number,OKC_API.G_MISS_CHAR),
5101: x_chr_id => x_crdv_rec.id
5102: );
5103:
5096: p_sts_code => l_sts_code,
5097: p_credit_ckl_id => NULLIF(p_crdv_rec.credit_ckl_id,OKC_API.G_MISS_NUM),
5098: p_funding_ckl_id => NULLIF(p_crdv_rec.funding_ckl_id,OKC_API.G_MISS_NUM),
5099: p_cust_acct_id => NULLIF(p_crdv_rec.cust_acct_id,OKC_API.G_MISS_NUM),
5100: p_cust_acct_number => NULLIF(p_crdv_rec.cust_acct_number,OKC_API.G_MISS_CHAR),
5101: x_chr_id => x_crdv_rec.id
5102: );
5103:
5104: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5100: p_cust_acct_number => NULLIF(p_crdv_rec.cust_acct_number,OKC_API.G_MISS_CHAR),
5101: x_chr_id => x_crdv_rec.id
5102: );
5103:
5104: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5105: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5106: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5107: raise OKC_API.G_EXCEPTION_ERROR;
5108: End If;
5101: x_chr_id => x_crdv_rec.id
5102: );
5103:
5104: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5105: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5106: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5107: raise OKC_API.G_EXCEPTION_ERROR;
5108: End If;
5109:
5102: );
5103:
5104: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5105: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5106: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5107: raise OKC_API.G_EXCEPTION_ERROR;
5108: End If;
5109:
5110: ----------------------------------------------------------------
5103:
5104: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5105: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5106: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5107: raise OKC_API.G_EXCEPTION_ERROR;
5108: End If;
5109:
5110: ----------------------------------------------------------------
5111: -- copy out record
5110: ----------------------------------------------------------------
5111: -- copy out record
5112: ----------------------------------------------------------------
5113: IF (NOT (x_crdv_rec.id IS NULL OR
5114: x_crdv_rec.id = OKC_API.G_MISS_NUM)) THEN
5115:
5116: OPEN c_crd(x_crdv_rec.id);
5117: FETCH c_crd INTO r_crd;
5118: CLOSE c_crd;
5162: x_clev_tbl => x_clev_tbl,
5163: x_klev_tbl => x_klev_tbl
5164: );
5165:
5166: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5167: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5168: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5169: raise OKC_API.G_EXCEPTION_ERROR;
5170: End If;
5163: x_klev_tbl => x_klev_tbl
5164: );
5165:
5166: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5167: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5168: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5169: raise OKC_API.G_EXCEPTION_ERROR;
5170: End If;
5171:
5164: );
5165:
5166: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5167: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5168: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5169: raise OKC_API.G_EXCEPTION_ERROR;
5170: End If;
5171:
5172: ----------------------------------------------------------------
5165:
5166: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5167: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5168: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5169: raise OKC_API.G_EXCEPTION_ERROR;
5170: End If;
5171:
5172: ----------------------------------------------------------------
5173: -- copy out record
5310: l_access_level OKC_ROLE_SOURCES.access_level%TYPE;
5311:
5312:
5313: BEGIN
5314: x_return_status := OKC_API.START_ACTIVITY(
5315: p_api_name => l_api_name,
5316: p_pkg_name => g_pkg_name,
5317: p_init_msg_list => p_init_msg_list,
5318: l_api_version => l_api_version,
5320: p_api_type => g_api_type,
5321: x_return_status => x_return_status);
5322:
5323: -- check if activity started successfully
5324: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5325: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5326: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5327: raise OKC_API.G_EXCEPTION_ERROR;
5328: End If;
5321: x_return_status => x_return_status);
5322:
5323: -- check if activity started successfully
5324: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5325: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5326: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5327: raise OKC_API.G_EXCEPTION_ERROR;
5328: End If;
5329:
5322:
5323: -- check if activity started successfully
5324: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5325: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5326: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5327: raise OKC_API.G_EXCEPTION_ERROR;
5328: End If;
5329:
5330: -- fix bug# for set_org_id
5323: -- check if activity started successfully
5324: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5325: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5326: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5327: raise OKC_API.G_EXCEPTION_ERROR;
5328: End If;
5329:
5330: -- fix bug# for set_org_id
5331: okl_context.set_okc_org_context();
5348: lp_chrv_rec.sign_by_date := null;
5349: lp_chrv_rec.currency_code := p_currency_code;
5350:
5351: -- Start bug fix 4148019 27-JAN-05 cklee
5352: If (p_org_id is null or p_org_id = OKC_API.G_MISS_NUM ) then
5353: lp_chrv_rec.authoring_org_id := OKL_CONTEXT.GET_OKC_ORG_ID;
5354: else
5355: lp_chrv_rec.authoring_org_id := p_org_id;
5356: end If;
5353: lp_chrv_rec.authoring_org_id := OKL_CONTEXT.GET_OKC_ORG_ID;
5354: else
5355: lp_chrv_rec.authoring_org_id := p_org_id;
5356: end If;
5357: If (p_organization_id is null or p_organization_id = OKC_API.G_MISS_NUM ) then
5358: lp_chrv_rec.inv_organization_id := OKL_CONTEXT.get_okc_organization_id;
5359: else
5360: lp_chrv_rec.inv_organization_id := p_organization_id;
5361: End If;
5387: -- Credit header specific validation
5388: --
5389:
5390: x_return_status := validate_header_attributes(lp_chrv_rec, lp_khrv_rec, lp_rulv_rec, 'C');
5391: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5392: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5393: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5394: raise OKC_API.G_EXCEPTION_ERROR;
5395: End If;
5388: --
5389:
5390: x_return_status := validate_header_attributes(lp_chrv_rec, lp_khrv_rec, lp_rulv_rec, 'C');
5391: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5392: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5393: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5394: raise OKC_API.G_EXCEPTION_ERROR;
5395: End If;
5396: -- 11.5.10 rule migration start
5389:
5390: x_return_status := validate_header_attributes(lp_chrv_rec, lp_khrv_rec, lp_rulv_rec, 'C');
5391: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5392: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5393: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5394: raise OKC_API.G_EXCEPTION_ERROR;
5395: End If;
5396: -- 11.5.10 rule migration start
5397: x_return_status := validate_account_number(p_cust_acct_id => p_cust_acct_id,
5390: x_return_status := validate_header_attributes(lp_chrv_rec, lp_khrv_rec, lp_rulv_rec, 'C');
5391: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5392: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5393: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5394: raise OKC_API.G_EXCEPTION_ERROR;
5395: End If;
5396: -- 11.5.10 rule migration start
5397: x_return_status := validate_account_number(p_cust_acct_id => p_cust_acct_id,
5398: p_cust_acct_number => p_cust_acct_number);
5395: End If;
5396: -- 11.5.10 rule migration start
5397: x_return_status := validate_account_number(p_cust_acct_id => p_cust_acct_id,
5398: p_cust_acct_number => p_cust_acct_number);
5399: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5400: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5401: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5402: raise OKC_API.G_EXCEPTION_ERROR;
5403: End If;
5396: -- 11.5.10 rule migration start
5397: x_return_status := validate_account_number(p_cust_acct_id => p_cust_acct_id,
5398: p_cust_acct_number => p_cust_acct_number);
5399: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5400: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5401: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5402: raise OKC_API.G_EXCEPTION_ERROR;
5403: End If;
5404: -- 11.5.10 rule migration start
5397: x_return_status := validate_account_number(p_cust_acct_id => p_cust_acct_id,
5398: p_cust_acct_number => p_cust_acct_number);
5399: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5400: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5401: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5402: raise OKC_API.G_EXCEPTION_ERROR;
5403: End If;
5404: -- 11.5.10 rule migration start
5405:
5398: p_cust_acct_number => p_cust_acct_number);
5399: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5400: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5401: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5402: raise OKC_API.G_EXCEPTION_ERROR;
5403: End If;
5404: -- 11.5.10 rule migration start
5405:
5406: OKL_CONTRACT_PUB.create_contract_header(
5413: p_khrv_rec => lp_khrv_rec,
5414: x_chrv_rec => lx_chrv_rec,
5415: x_khrv_rec => lx_khrv_rec);
5416:
5417: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5418: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5419: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5420: raise OKC_API.G_EXCEPTION_ERROR;
5421: End If;
5414: x_chrv_rec => lx_chrv_rec,
5415: x_khrv_rec => lx_khrv_rec);
5416:
5417: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5418: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5419: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5420: raise OKC_API.G_EXCEPTION_ERROR;
5421: End If;
5422:
5415: x_khrv_rec => lx_khrv_rec);
5416:
5417: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5418: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5419: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5420: raise OKC_API.G_EXCEPTION_ERROR;
5421: End If;
5422:
5423: x_chr_id := lx_chrv_rec.id;
5416:
5417: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5418: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5419: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5420: raise OKC_API.G_EXCEPTION_ERROR;
5421: End If;
5422:
5423: x_chr_id := lx_chrv_rec.id;
5424:
5423: x_chr_id := lx_chrv_rec.id;
5424:
5425: -- now we attach the party to the header
5426: lp_cplv_rec.object_version_number := 1.0;
5427: lp_cplv_rec.sfwt_flag := OKC_API.G_FALSE;
5428: lp_cplv_rec.dnz_chr_id := x_chr_id;
5429: lp_cplv_rec.chr_id := x_chr_id;
5430: lp_cplv_rec.cle_id := null;
5431: lp_cplv_rec.object1_id1 := p_customer_id1;
5433: lp_cplv_rec.jtot_object1_code := p_customer_code;
5434: lp_cplv_rec.rle_code := G_RLE_CODE;
5435:
5436: x_return_status := validate_customer(lp_cplv_rec, p_customer_name);
5437: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5438: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5439: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5440: raise OKC_API.G_EXCEPTION_ERROR;
5441: End If;
5434: lp_cplv_rec.rle_code := G_RLE_CODE;
5435:
5436: x_return_status := validate_customer(lp_cplv_rec, p_customer_name);
5437: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5438: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5439: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5440: raise OKC_API.G_EXCEPTION_ERROR;
5441: End If;
5442:
5435:
5436: x_return_status := validate_customer(lp_cplv_rec, p_customer_name);
5437: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5438: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5439: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5440: raise OKC_API.G_EXCEPTION_ERROR;
5441: End If;
5442:
5443: OKC_CONTRACT_PARTY_PUB.validate_k_party_role(
5436: x_return_status := validate_customer(lp_cplv_rec, p_customer_name);
5437: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5438: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5439: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5440: raise OKC_API.G_EXCEPTION_ERROR;
5441: End If;
5442:
5443: OKC_CONTRACT_PARTY_PUB.validate_k_party_role(
5444: p_api_version => p_api_version,
5448: x_msg_data => x_msg_data,
5449: p_cplv_rec => lp_cplv_rec);
5450:
5451:
5452: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5453: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5454: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5455: raise OKC_API.G_EXCEPTION_ERROR;
5456: End If;
5449: p_cplv_rec => lp_cplv_rec);
5450:
5451:
5452: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5453: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5454: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5455: raise OKC_API.G_EXCEPTION_ERROR;
5456: End If;
5457:
5450:
5451:
5452: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5453: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5454: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5455: raise OKC_API.G_EXCEPTION_ERROR;
5456: End If;
5457:
5458: ----- Changes by Kanti
5451:
5452: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5453: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5454: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5455: raise OKC_API.G_EXCEPTION_ERROR;
5456: End If;
5457:
5458: ----- Changes by Kanti
5459: ----- Validate the JTOT Object code, ID1 and ID2
5464:
5465: IF (l_access_level = 'S') THEN
5466:
5467: okl_la_validation_util_pvt.VALIDATE_ROLE_JTOT (p_api_version => p_api_version,
5468: p_init_msg_list => OKC_API.G_FALSE,
5469: x_return_status => x_return_status,
5470: x_msg_count => x_msg_count,
5471: x_msg_data => x_msg_data,
5472: p_object_name => lp_cplv_rec.jtot_object1_code,
5471: x_msg_data => x_msg_data,
5472: p_object_name => lp_cplv_rec.jtot_object1_code,
5473: p_id1 => lp_cplv_rec.object1_id1,
5474: p_id2 => lp_cplv_rec.object1_id2);
5475: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5476: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5477: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5478: RAISE OKC_API.G_EXCEPTION_ERROR;
5479: END IF;
5472: p_object_name => lp_cplv_rec.jtot_object1_code,
5473: p_id1 => lp_cplv_rec.object1_id1,
5474: p_id2 => lp_cplv_rec.object1_id2);
5475: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5476: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5477: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5478: RAISE OKC_API.G_EXCEPTION_ERROR;
5479: END IF;
5480:
5473: p_id1 => lp_cplv_rec.object1_id1,
5474: p_id2 => lp_cplv_rec.object1_id2);
5475: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5476: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5477: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5478: RAISE OKC_API.G_EXCEPTION_ERROR;
5479: END IF;
5480:
5481: END IF;
5474: p_id2 => lp_cplv_rec.object1_id2);
5475: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5476: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5477: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5478: RAISE OKC_API.G_EXCEPTION_ERROR;
5479: END IF;
5480:
5481: END IF;
5482:
5490: x_msg_data => x_msg_data,
5491: p_cplv_rec => lp_cplv_rec,
5492: x_cplv_rec => lx_cplv_rec);
5493:
5494: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5495: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5496: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5497: raise OKC_API.G_EXCEPTION_ERROR;
5498: End If;
5491: p_cplv_rec => lp_cplv_rec,
5492: x_cplv_rec => lx_cplv_rec);
5493:
5494: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5495: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5496: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5497: raise OKC_API.G_EXCEPTION_ERROR;
5498: End If;
5499:
5492: x_cplv_rec => lx_cplv_rec);
5493:
5494: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5495: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5496: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5497: raise OKC_API.G_EXCEPTION_ERROR;
5498: End If;
5499:
5500: -- funding checklist enhancement for 11.5.9
5493:
5494: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5495: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5496: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5497: raise OKC_API.G_EXCEPTION_ERROR;
5498: End If;
5499:
5500: -- funding checklist enhancement for 11.5.9
5501: -- rule group FK
5511: -- Credit header checklist template
5512: --
5513:
5514: x_return_status := validate_chklst_tpl(lp_rulv_rec, 'C');
5515: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5516: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5517: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5518: raise OKC_API.G_EXCEPTION_ERROR;
5519: End If;
5512: --
5513:
5514: x_return_status := validate_chklst_tpl(lp_rulv_rec, 'C');
5515: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5516: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5517: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5518: raise OKC_API.G_EXCEPTION_ERROR;
5519: End If;
5520:
5513:
5514: x_return_status := validate_chklst_tpl(lp_rulv_rec, 'C');
5515: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5516: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5517: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5518: raise OKC_API.G_EXCEPTION_ERROR;
5519: End If;
5520:
5521: create_credit_chklst_tpl(
5514: x_return_status := validate_chklst_tpl(lp_rulv_rec, 'C');
5515: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5516: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5517: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5518: raise OKC_API.G_EXCEPTION_ERROR;
5519: End If;
5520:
5521: create_credit_chklst_tpl(
5522: p_api_version => p_api_version,
5528: p_rulv_rec => lp_rulv_rec,
5529: x_rgpv_rec => lx_rgpv_rec,
5530: x_rulv_rec => lx_rulv_rec);
5531:
5532: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5533: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5534: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5535: raise OKC_API.G_EXCEPTION_ERROR;
5536: End If;
5529: x_rgpv_rec => lx_rgpv_rec,
5530: x_rulv_rec => lx_rulv_rec);
5531:
5532: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5533: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5534: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5535: raise OKC_API.G_EXCEPTION_ERROR;
5536: End If;
5537:
5530: x_rulv_rec => lx_rulv_rec);
5531:
5532: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5533: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5534: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5535: raise OKC_API.G_EXCEPTION_ERROR;
5536: End If;
5537:
5538: -- funding checklist enhancement for 11.5.9
5531:
5532: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5533: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5534: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5535: raise OKC_API.G_EXCEPTION_ERROR;
5536: End If;
5537:
5538: -- funding checklist enhancement for 11.5.9
5539:
5563: -- vthiruva, 08/31/2004
5564: -- END, Code change to enable Business Event
5565: */
5566:
5567: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
5568: x_msg_data => x_msg_data);
5569: EXCEPTION
5570: when OKC_API.G_EXCEPTION_ERROR then
5571: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5566:
5567: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
5568: x_msg_data => x_msg_data);
5569: EXCEPTION
5570: when OKC_API.G_EXCEPTION_ERROR then
5571: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5572: p_api_name => l_api_name,
5573: p_pkg_name => g_pkg_name,
5574: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
5567: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
5568: x_msg_data => x_msg_data);
5569: EXCEPTION
5570: when OKC_API.G_EXCEPTION_ERROR then
5571: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5572: p_api_name => l_api_name,
5573: p_pkg_name => g_pkg_name,
5574: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
5575: x_msg_count => x_msg_count,
5570: when OKC_API.G_EXCEPTION_ERROR then
5571: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5572: p_api_name => l_api_name,
5573: p_pkg_name => g_pkg_name,
5574: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
5575: x_msg_count => x_msg_count,
5576: x_msg_data => x_msg_data,
5577: p_api_type => g_api_type);
5578:
5575: x_msg_count => x_msg_count,
5576: x_msg_data => x_msg_data,
5577: p_api_type => g_api_type);
5578:
5579: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
5580: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5581: p_api_name => l_api_name,
5582: p_pkg_name => g_pkg_name,
5583: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
5576: x_msg_data => x_msg_data,
5577: p_api_type => g_api_type);
5578:
5579: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
5580: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5581: p_api_name => l_api_name,
5582: p_pkg_name => g_pkg_name,
5583: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
5584: x_msg_count => x_msg_count,
5579: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
5580: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5581: p_api_name => l_api_name,
5582: p_pkg_name => g_pkg_name,
5583: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
5584: x_msg_count => x_msg_count,
5585: x_msg_data => x_msg_data,
5586: p_api_type => g_api_type);
5587:
5585: x_msg_data => x_msg_data,
5586: p_api_type => g_api_type);
5587:
5588: when OTHERS then
5589: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5590: p_api_name => l_api_name,
5591: p_pkg_name => g_pkg_name,
5592: p_exc_name => 'OTHERS',
5593: x_msg_count => x_msg_count,
6118: x_chrv_rec => lx_chrv_rec,
6119: x_khrv_rec => lx_khrv_rec
6120: );
6121:
6122: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
6123: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6124: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
6125: raise OKC_API.G_EXCEPTION_ERROR;
6126: End If;
6119: x_khrv_rec => lx_khrv_rec
6120: );
6121:
6122: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
6123: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6124: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
6125: raise OKC_API.G_EXCEPTION_ERROR;
6126: End If;
6127:
6120: );
6121:
6122: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
6123: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6124: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
6125: raise OKC_API.G_EXCEPTION_ERROR;
6126: End If;
6127:
6128: x_status_code := lx_chrv_rec.sts_code;
6121:
6122: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
6123: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6124: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
6125: raise OKC_API.G_EXCEPTION_ERROR;
6126: End If;
6127:
6128: x_status_code := lx_chrv_rec.sts_code;
6129:
6302: x_msg_data => x_msg_data,
6303: p_rulv_tbl => lp_rulv_tbl,
6304: x_rulv_tbl => lx_rulv_tbl);
6305:
6306: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
6307: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6308: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
6309: raise OKC_API.G_EXCEPTION_ERROR;
6310: End If;
6303: p_rulv_tbl => lp_rulv_tbl,
6304: x_rulv_tbl => lx_rulv_tbl);
6305:
6306: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
6307: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6308: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
6309: raise OKC_API.G_EXCEPTION_ERROR;
6310: End If;
6311:
6304: x_rulv_tbl => lx_rulv_tbl);
6305:
6306: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
6307: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6308: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
6309: raise OKC_API.G_EXCEPTION_ERROR;
6310: End If;
6311:
6312: END IF;
6305:
6306: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
6307: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6308: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
6309: raise OKC_API.G_EXCEPTION_ERROR;
6310: End If;
6311:
6312: END IF;
6313: