[Home] [Help]
344: p_cdtv_rec IN cdtv_rec_type
345: ) RETURN cdtv_rec_type IS
346: l_cdtv_rec cdtv_rec_type := p_cdtv_rec;
347: BEGIN
348: IF (l_cdtv_rec.cdt_type = OKC_API.G_MISS_CHAR) THEN
349: l_cdtv_rec.cdt_type := NULL;
350: END IF;
351: IF (l_cdtv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
352: l_cdtv_rec.object_version_number := NULL;
347: BEGIN
348: IF (l_cdtv_rec.cdt_type = OKC_API.G_MISS_CHAR) THEN
349: l_cdtv_rec.cdt_type := NULL;
350: END IF;
351: IF (l_cdtv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
352: l_cdtv_rec.object_version_number := NULL;
353: END IF;
354: IF (l_cdtv_rec.created_by = OKC_API.G_MISS_NUM) THEN
355: l_cdtv_rec.created_by := NULL;
350: END IF;
351: IF (l_cdtv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
352: l_cdtv_rec.object_version_number := NULL;
353: END IF;
354: IF (l_cdtv_rec.created_by = OKC_API.G_MISS_NUM) THEN
355: l_cdtv_rec.created_by := NULL;
356: END IF;
357: IF (l_cdtv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
358: l_cdtv_rec.creation_date := NULL;
353: END IF;
354: IF (l_cdtv_rec.created_by = OKC_API.G_MISS_NUM) THEN
355: l_cdtv_rec.created_by := NULL;
356: END IF;
357: IF (l_cdtv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
358: l_cdtv_rec.creation_date := NULL;
359: END IF;
360: IF (l_cdtv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
361: l_cdtv_rec.last_updated_by := NULL;
356: END IF;
357: IF (l_cdtv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
358: l_cdtv_rec.creation_date := NULL;
359: END IF;
360: IF (l_cdtv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
361: l_cdtv_rec.last_updated_by := NULL;
362: END IF;
363: IF (l_cdtv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
364: l_cdtv_rec.last_update_date := NULL;
359: END IF;
360: IF (l_cdtv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
361: l_cdtv_rec.last_updated_by := NULL;
362: END IF;
363: IF (l_cdtv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
364: l_cdtv_rec.last_update_date := NULL;
365: END IF;
366: IF (l_cdtv_rec.segment_id1 = OKC_API.G_MISS_CHAR) THEN
367: l_cdtv_rec.segment_id1 := NULL;
362: END IF;
363: IF (l_cdtv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
364: l_cdtv_rec.last_update_date := NULL;
365: END IF;
366: IF (l_cdtv_rec.segment_id1 = OKC_API.G_MISS_CHAR) THEN
367: l_cdtv_rec.segment_id1 := NULL;
368: END IF;
369: IF (l_cdtv_rec.segment_id2 = OKC_API.G_MISS_CHAR) THEN
370: l_cdtv_rec.segment_id2 := NULL;
365: END IF;
366: IF (l_cdtv_rec.segment_id1 = OKC_API.G_MISS_CHAR) THEN
367: l_cdtv_rec.segment_id1 := NULL;
368: END IF;
369: IF (l_cdtv_rec.segment_id2 = OKC_API.G_MISS_CHAR) THEN
370: l_cdtv_rec.segment_id2 := NULL;
371: END IF;
372: IF (l_cdtv_rec.jtot_object_code = OKC_API.G_MISS_CHAR) THEN
373: l_cdtv_rec.jtot_object_code := NULL;
368: END IF;
369: IF (l_cdtv_rec.segment_id2 = OKC_API.G_MISS_CHAR) THEN
370: l_cdtv_rec.segment_id2 := NULL;
371: END IF;
372: IF (l_cdtv_rec.jtot_object_code = OKC_API.G_MISS_CHAR) THEN
373: l_cdtv_rec.jtot_object_code := NULL;
374: END IF;
375: IF (l_cdtv_rec.pdf_id = OKC_API.G_MISS_NUM) THEN
376: l_cdtv_rec.pdf_id := NULL;
371: END IF;
372: IF (l_cdtv_rec.jtot_object_code = OKC_API.G_MISS_CHAR) THEN
373: l_cdtv_rec.jtot_object_code := NULL;
374: END IF;
375: IF (l_cdtv_rec.pdf_id = OKC_API.G_MISS_NUM) THEN
376: l_cdtv_rec.pdf_id := NULL;
377: END IF;
378: IF (l_cdtv_rec.qcl_id = OKC_API.G_MISS_NUM) THEN
379: l_cdtv_rec.qcl_id := NULL;
374: END IF;
375: IF (l_cdtv_rec.pdf_id = OKC_API.G_MISS_NUM) THEN
376: l_cdtv_rec.pdf_id := NULL;
377: END IF;
378: IF (l_cdtv_rec.qcl_id = OKC_API.G_MISS_NUM) THEN
379: l_cdtv_rec.qcl_id := NULL;
380: END IF;
381: IF (l_cdtv_rec.cgp_new_id = OKC_API.G_MISS_NUM) THEN
382: l_cdtv_rec.cgp_new_id := NULL;
377: END IF;
378: IF (l_cdtv_rec.qcl_id = OKC_API.G_MISS_NUM) THEN
379: l_cdtv_rec.qcl_id := NULL;
380: END IF;
381: IF (l_cdtv_rec.cgp_new_id = OKC_API.G_MISS_NUM) THEN
382: l_cdtv_rec.cgp_new_id := NULL;
383: END IF;
384: IF (l_cdtv_rec.cgp_renew_id = OKC_API.G_MISS_NUM) THEN
385: l_cdtv_rec.cgp_renew_id := NULL;
380: END IF;
381: IF (l_cdtv_rec.cgp_new_id = OKC_API.G_MISS_NUM) THEN
382: l_cdtv_rec.cgp_new_id := NULL;
383: END IF;
384: IF (l_cdtv_rec.cgp_renew_id = OKC_API.G_MISS_NUM) THEN
385: l_cdtv_rec.cgp_renew_id := NULL;
386: END IF;
387: IF (l_cdtv_rec.price_list_id1 = OKC_API.G_MISS_CHAR) THEN
388: l_cdtv_rec.price_list_id1 := NULL;
383: END IF;
384: IF (l_cdtv_rec.cgp_renew_id = OKC_API.G_MISS_NUM) THEN
385: l_cdtv_rec.cgp_renew_id := NULL;
386: END IF;
387: IF (l_cdtv_rec.price_list_id1 = OKC_API.G_MISS_CHAR) THEN
388: l_cdtv_rec.price_list_id1 := NULL;
389: END IF;
390: IF (l_cdtv_rec.price_list_id2 = OKC_API.G_MISS_CHAR) THEN
391: l_cdtv_rec.price_list_id2 := NULL;
386: END IF;
387: IF (l_cdtv_rec.price_list_id1 = OKC_API.G_MISS_CHAR) THEN
388: l_cdtv_rec.price_list_id1 := NULL;
389: END IF;
390: IF (l_cdtv_rec.price_list_id2 = OKC_API.G_MISS_CHAR) THEN
391: l_cdtv_rec.price_list_id2 := NULL;
392: END IF;
393: IF (l_cdtv_rec.renewal_type = OKC_API.G_MISS_CHAR) THEN
394: l_cdtv_rec.renewal_type := NULL;
389: END IF;
390: IF (l_cdtv_rec.price_list_id2 = OKC_API.G_MISS_CHAR) THEN
391: l_cdtv_rec.price_list_id2 := NULL;
392: END IF;
393: IF (l_cdtv_rec.renewal_type = OKC_API.G_MISS_CHAR) THEN
394: l_cdtv_rec.renewal_type := NULL;
395: END IF;
396: IF (l_cdtv_rec.po_required_yn = OKC_API.G_MISS_CHAR) THEN
397: l_cdtv_rec.po_required_yn := NULL;
392: END IF;
393: IF (l_cdtv_rec.renewal_type = OKC_API.G_MISS_CHAR) THEN
394: l_cdtv_rec.renewal_type := NULL;
395: END IF;
396: IF (l_cdtv_rec.po_required_yn = OKC_API.G_MISS_CHAR) THEN
397: l_cdtv_rec.po_required_yn := NULL;
398: END IF;
399: IF (l_cdtv_rec.renewal_pricing_type = OKC_API.G_MISS_CHAR) THEN
400: l_cdtv_rec.renewal_pricing_type := NULL;
395: END IF;
396: IF (l_cdtv_rec.po_required_yn = OKC_API.G_MISS_CHAR) THEN
397: l_cdtv_rec.po_required_yn := NULL;
398: END IF;
399: IF (l_cdtv_rec.renewal_pricing_type = OKC_API.G_MISS_CHAR) THEN
400: l_cdtv_rec.renewal_pricing_type := NULL;
401: END IF;
402: IF (l_cdtv_rec.markup_percent = OKC_API.G_MISS_NUM) THEN
403: l_cdtv_rec.markup_percent := NULL;
398: END IF;
399: IF (l_cdtv_rec.renewal_pricing_type = OKC_API.G_MISS_CHAR) THEN
400: l_cdtv_rec.renewal_pricing_type := NULL;
401: END IF;
402: IF (l_cdtv_rec.markup_percent = OKC_API.G_MISS_NUM) THEN
403: l_cdtv_rec.markup_percent := NULL;
404: END IF;
405: IF (l_cdtv_rec.rle_code= OKC_API.G_MISS_CHAR) THEN
406: l_cdtv_rec.rle_code:= NULL;
401: END IF;
402: IF (l_cdtv_rec.markup_percent = OKC_API.G_MISS_NUM) THEN
403: l_cdtv_rec.markup_percent := NULL;
404: END IF;
405: IF (l_cdtv_rec.rle_code= OKC_API.G_MISS_CHAR) THEN
406: l_cdtv_rec.rle_code:= NULL;
407: END IF;
408: IF (l_cdtv_rec.start_date = OKC_API.G_MISS_DATE) THEN
409: l_cdtv_rec.start_date := NULL;
404: END IF;
405: IF (l_cdtv_rec.rle_code= OKC_API.G_MISS_CHAR) THEN
406: l_cdtv_rec.rle_code:= NULL;
407: END IF;
408: IF (l_cdtv_rec.start_date = OKC_API.G_MISS_DATE) THEN
409: l_cdtv_rec.start_date := NULL;
410: END IF;
411: IF (l_cdtv_rec.end_date = OKC_API.G_MISS_DATE) THEN
412: l_cdtv_rec.end_date := NULL;
407: END IF;
408: IF (l_cdtv_rec.start_date = OKC_API.G_MISS_DATE) THEN
409: l_cdtv_rec.start_date := NULL;
410: END IF;
411: IF (l_cdtv_rec.end_date = OKC_API.G_MISS_DATE) THEN
412: l_cdtv_rec.end_date := NULL;
413: END IF;
414: IF (l_cdtv_rec.revenue_estimated_percent = OKC_API.G_MISS_NUM) THEN
415: l_cdtv_rec.revenue_estimated_percent := NULL;
410: END IF;
411: IF (l_cdtv_rec.end_date = OKC_API.G_MISS_DATE) THEN
412: l_cdtv_rec.end_date := NULL;
413: END IF;
414: IF (l_cdtv_rec.revenue_estimated_percent = OKC_API.G_MISS_NUM) THEN
415: l_cdtv_rec.revenue_estimated_percent := NULL;
416: END IF;
417: IF (l_cdtv_rec.revenue_estimated_duration = OKC_API.G_MISS_NUM) THEN
418: l_cdtv_rec.revenue_estimated_duration := NULL;
413: END IF;
414: IF (l_cdtv_rec.revenue_estimated_percent = OKC_API.G_MISS_NUM) THEN
415: l_cdtv_rec.revenue_estimated_percent := NULL;
416: END IF;
417: IF (l_cdtv_rec.revenue_estimated_duration = OKC_API.G_MISS_NUM) THEN
418: l_cdtv_rec.revenue_estimated_duration := NULL;
419: END IF;
420: IF (l_cdtv_rec.revenue_estimated_period = OKC_API.G_MISS_CHAR) THEN
421: l_cdtv_rec.revenue_estimated_period := NULL;
416: END IF;
417: IF (l_cdtv_rec.revenue_estimated_duration = OKC_API.G_MISS_NUM) THEN
418: l_cdtv_rec.revenue_estimated_duration := NULL;
419: END IF;
420: IF (l_cdtv_rec.revenue_estimated_period = OKC_API.G_MISS_CHAR) THEN
421: l_cdtv_rec.revenue_estimated_period := NULL;
422: END IF;
423: IF (l_cdtv_rec.template_set_id = OKC_API.G_MISS_NUM ) THEN
424: l_cdtv_rec.template_set_id := NULL;
419: END IF;
420: IF (l_cdtv_rec.revenue_estimated_period = OKC_API.G_MISS_CHAR) THEN
421: l_cdtv_rec.revenue_estimated_period := NULL;
422: END IF;
423: IF (l_cdtv_rec.template_set_id = OKC_API.G_MISS_NUM ) THEN
424: l_cdtv_rec.template_set_id := NULL;
425: END IF;
426: IF (l_cdtv_rec.THRESHOLD_CURRENCY = OKC_API.G_MISS_CHAR) THEN
427: l_cdtv_rec.THRESHOLD_CURRENCY := NULL;
422: END IF;
423: IF (l_cdtv_rec.template_set_id = OKC_API.G_MISS_NUM ) THEN
424: l_cdtv_rec.template_set_id := NULL;
425: END IF;
426: IF (l_cdtv_rec.THRESHOLD_CURRENCY = OKC_API.G_MISS_CHAR) THEN
427: l_cdtv_rec.THRESHOLD_CURRENCY := NULL;
428: END IF;
429: IF (l_cdtv_rec.THRESHOLD_AMOUNT = OKC_API.G_MISS_NUM) THEN
430: l_cdtv_rec.THRESHOLD_AMOUNT := NULL;
425: END IF;
426: IF (l_cdtv_rec.THRESHOLD_CURRENCY = OKC_API.G_MISS_CHAR) THEN
427: l_cdtv_rec.THRESHOLD_CURRENCY := NULL;
428: END IF;
429: IF (l_cdtv_rec.THRESHOLD_AMOUNT = OKC_API.G_MISS_NUM) THEN
430: l_cdtv_rec.THRESHOLD_AMOUNT := NULL;
431: END IF;
432: IF (l_cdtv_rec.EMAIL_ADDRESS = OKC_API.G_MISS_CHAR) THEN
433: l_cdtv_rec.EMAIL_ADDRESS := NULL;
428: END IF;
429: IF (l_cdtv_rec.THRESHOLD_AMOUNT = OKC_API.G_MISS_NUM) THEN
430: l_cdtv_rec.THRESHOLD_AMOUNT := NULL;
431: END IF;
432: IF (l_cdtv_rec.EMAIL_ADDRESS = OKC_API.G_MISS_CHAR) THEN
433: l_cdtv_rec.EMAIL_ADDRESS := NULL;
434: END IF;
435: IF (l_cdtv_rec.BILLING_PROFILE_ID = OKC_API.G_MISS_NUM) THEN
436: l_cdtv_rec.BILLING_PROFILE_ID := NULL;
431: END IF;
432: IF (l_cdtv_rec.EMAIL_ADDRESS = OKC_API.G_MISS_CHAR) THEN
433: l_cdtv_rec.EMAIL_ADDRESS := NULL;
434: END IF;
435: IF (l_cdtv_rec.BILLING_PROFILE_ID = OKC_API.G_MISS_NUM) THEN
436: l_cdtv_rec.BILLING_PROFILE_ID := NULL;
437: END IF;
438: IF (l_cdtv_rec.USER_ID = OKC_API.G_MISS_NUM) THEN
439: l_cdtv_rec.USER_ID := NULL;
434: END IF;
435: IF (l_cdtv_rec.BILLING_PROFILE_ID = OKC_API.G_MISS_NUM) THEN
436: l_cdtv_rec.BILLING_PROFILE_ID := NULL;
437: END IF;
438: IF (l_cdtv_rec.USER_ID = OKC_API.G_MISS_NUM) THEN
439: l_cdtv_rec.USER_ID := NULL;
440: END IF;
441: IF (l_cdtv_rec.THRESHOLD_ENABLED_YN = OKC_API.G_MISS_CHAR) THEN
442: l_cdtv_rec.THRESHOLD_ENABLED_YN := NULL;
437: END IF;
438: IF (l_cdtv_rec.USER_ID = OKC_API.G_MISS_NUM) THEN
439: l_cdtv_rec.USER_ID := NULL;
440: END IF;
441: IF (l_cdtv_rec.THRESHOLD_ENABLED_YN = OKC_API.G_MISS_CHAR) THEN
442: l_cdtv_rec.THRESHOLD_ENABLED_YN := NULL;
443: END IF;
444: IF (l_cdtv_rec.GRACE_PERIOD = OKC_API.G_MISS_CHAR) THEN
445: l_cdtv_rec.GRACE_PERIOD := NULL;
440: END IF;
441: IF (l_cdtv_rec.THRESHOLD_ENABLED_YN = OKC_API.G_MISS_CHAR) THEN
442: l_cdtv_rec.THRESHOLD_ENABLED_YN := NULL;
443: END IF;
444: IF (l_cdtv_rec.GRACE_PERIOD = OKC_API.G_MISS_CHAR) THEN
445: l_cdtv_rec.GRACE_PERIOD := NULL;
446: END IF;
447: IF (l_cdtv_rec.GRACE_DURATION = OKC_API.G_MISS_NUM) THEN
448: l_cdtv_rec.GRACE_DURATION := NULL;
443: END IF;
444: IF (l_cdtv_rec.GRACE_PERIOD = OKC_API.G_MISS_CHAR) THEN
445: l_cdtv_rec.GRACE_PERIOD := NULL;
446: END IF;
447: IF (l_cdtv_rec.GRACE_DURATION = OKC_API.G_MISS_NUM) THEN
448: l_cdtv_rec.GRACE_DURATION := NULL;
449: END IF;
450: IF (l_cdtv_rec.PAYMENT_TERMS_ID1 = OKC_API.G_MISS_CHAR) THEN
451: l_cdtv_rec.PAYMENT_TERMS_ID1 := NULL;
446: END IF;
447: IF (l_cdtv_rec.GRACE_DURATION = OKC_API.G_MISS_NUM) THEN
448: l_cdtv_rec.GRACE_DURATION := NULL;
449: END IF;
450: IF (l_cdtv_rec.PAYMENT_TERMS_ID1 = OKC_API.G_MISS_CHAR) THEN
451: l_cdtv_rec.PAYMENT_TERMS_ID1 := NULL;
452: END IF;
453: IF (l_cdtv_rec.PAYMENT_TERMS_ID2 = OKC_API.G_MISS_CHAR) THEN
454: l_cdtv_rec.PAYMENT_TERMS_ID2 := NULL;
449: END IF;
450: IF (l_cdtv_rec.PAYMENT_TERMS_ID1 = OKC_API.G_MISS_CHAR) THEN
451: l_cdtv_rec.PAYMENT_TERMS_ID1 := NULL;
452: END IF;
453: IF (l_cdtv_rec.PAYMENT_TERMS_ID2 = OKC_API.G_MISS_CHAR) THEN
454: l_cdtv_rec.PAYMENT_TERMS_ID2 := NULL;
455: END IF;
456: IF (l_cdtv_rec.EVERGREEN_THRESHOLD_CURR = OKC_API.G_MISS_CHAR) THEN
457: l_cdtv_rec.EVERGREEN_THRESHOLD_CURR := NULL;
452: END IF;
453: IF (l_cdtv_rec.PAYMENT_TERMS_ID2 = OKC_API.G_MISS_CHAR) THEN
454: l_cdtv_rec.PAYMENT_TERMS_ID2 := NULL;
455: END IF;
456: IF (l_cdtv_rec.EVERGREEN_THRESHOLD_CURR = OKC_API.G_MISS_CHAR) THEN
457: l_cdtv_rec.EVERGREEN_THRESHOLD_CURR := NULL;
458: END IF;
459: IF (l_cdtv_rec.EVERGREEN_THRESHOLD_AMT = OKC_API.G_MISS_NUM) THEN
460: l_cdtv_rec.EVERGREEN_THRESHOLD_AMT := NULL;
455: END IF;
456: IF (l_cdtv_rec.EVERGREEN_THRESHOLD_CURR = OKC_API.G_MISS_CHAR) THEN
457: l_cdtv_rec.EVERGREEN_THRESHOLD_CURR := NULL;
458: END IF;
459: IF (l_cdtv_rec.EVERGREEN_THRESHOLD_AMT = OKC_API.G_MISS_NUM) THEN
460: l_cdtv_rec.EVERGREEN_THRESHOLD_AMT := NULL;
461: END IF;
462: IF (l_cdtv_rec.PAYMENT_METHOD = OKC_API.G_MISS_CHAR) THEN
463: l_cdtv_rec.PAYMENT_METHOD := NULL;
458: END IF;
459: IF (l_cdtv_rec.EVERGREEN_THRESHOLD_AMT = OKC_API.G_MISS_NUM) THEN
460: l_cdtv_rec.EVERGREEN_THRESHOLD_AMT := NULL;
461: END IF;
462: IF (l_cdtv_rec.PAYMENT_METHOD = OKC_API.G_MISS_CHAR) THEN
463: l_cdtv_rec.PAYMENT_METHOD := NULL;
464: END IF;
465: IF (l_cdtv_rec.PAYMENT_THRESHOLD_CURR = OKC_API.G_MISS_CHAR) THEN
466: l_cdtv_rec.PAYMENT_THRESHOLD_CURR := NULL;
461: END IF;
462: IF (l_cdtv_rec.PAYMENT_METHOD = OKC_API.G_MISS_CHAR) THEN
463: l_cdtv_rec.PAYMENT_METHOD := NULL;
464: END IF;
465: IF (l_cdtv_rec.PAYMENT_THRESHOLD_CURR = OKC_API.G_MISS_CHAR) THEN
466: l_cdtv_rec.PAYMENT_THRESHOLD_CURR := NULL;
467: END IF;
468: IF (l_cdtv_rec.PAYMENT_THRESHOLD_AMT = OKC_API.G_MISS_NUM) THEN
469: l_cdtv_rec.PAYMENT_THRESHOLD_AMT := NULL;
464: END IF;
465: IF (l_cdtv_rec.PAYMENT_THRESHOLD_CURR = OKC_API.G_MISS_CHAR) THEN
466: l_cdtv_rec.PAYMENT_THRESHOLD_CURR := NULL;
467: END IF;
468: IF (l_cdtv_rec.PAYMENT_THRESHOLD_AMT = OKC_API.G_MISS_NUM) THEN
469: l_cdtv_rec.PAYMENT_THRESHOLD_AMT := NULL;
470: END IF;
471: IF (l_cdtv_rec.INTERFACE_PRICE_BREAK = OKC_API.G_MISS_CHAR) THEN
472: l_cdtv_rec.INTERFACE_PRICE_BREAK := NULL;
467: END IF;
468: IF (l_cdtv_rec.PAYMENT_THRESHOLD_AMT = OKC_API.G_MISS_NUM) THEN
469: l_cdtv_rec.PAYMENT_THRESHOLD_AMT := NULL;
470: END IF;
471: IF (l_cdtv_rec.INTERFACE_PRICE_BREAK = OKC_API.G_MISS_CHAR) THEN
472: l_cdtv_rec.INTERFACE_PRICE_BREAK := NULL;
473: END IF;
474: IF (l_cdtv_rec.CREDIT_AMOUNT = OKC_API.G_MISS_CHAR) THEN
475: l_cdtv_rec.CREDIT_AMOUNT := NULL;
470: END IF;
471: IF (l_cdtv_rec.INTERFACE_PRICE_BREAK = OKC_API.G_MISS_CHAR) THEN
472: l_cdtv_rec.INTERFACE_PRICE_BREAK := NULL;
473: END IF;
474: IF (l_cdtv_rec.CREDIT_AMOUNT = OKC_API.G_MISS_CHAR) THEN
475: l_cdtv_rec.CREDIT_AMOUNT := NULL;
476: END IF;
477: -- R12 Data Model Changes 4485150 Start /* mmadhavi 4485150 : add other columns */
478: IF (l_cdtv_rec.PERIOD_TYPE = OKC_API.G_MISS_CHAR) THEN
474: IF (l_cdtv_rec.CREDIT_AMOUNT = OKC_API.G_MISS_CHAR) THEN
475: l_cdtv_rec.CREDIT_AMOUNT := NULL;
476: END IF;
477: -- R12 Data Model Changes 4485150 Start /* mmadhavi 4485150 : add other columns */
478: IF (l_cdtv_rec.PERIOD_TYPE = OKC_API.G_MISS_CHAR) THEN
479: l_cdtv_rec.PERIOD_TYPE := NULL;
480: END IF;
481: IF (l_cdtv_rec.PERIOD_START = OKC_API.G_MISS_CHAR) THEN
482: l_cdtv_rec.PERIOD_START := NULL;
477: -- R12 Data Model Changes 4485150 Start /* mmadhavi 4485150 : add other columns */
478: IF (l_cdtv_rec.PERIOD_TYPE = OKC_API.G_MISS_CHAR) THEN
479: l_cdtv_rec.PERIOD_TYPE := NULL;
480: END IF;
481: IF (l_cdtv_rec.PERIOD_START = OKC_API.G_MISS_CHAR) THEN
482: l_cdtv_rec.PERIOD_START := NULL;
483: END IF;
484: IF (l_cdtv_rec.PRICE_UOM = OKC_API.G_MISS_CHAR) THEN
485: l_cdtv_rec.PRICE_UOM := NULL;
480: END IF;
481: IF (l_cdtv_rec.PERIOD_START = OKC_API.G_MISS_CHAR) THEN
482: l_cdtv_rec.PERIOD_START := NULL;
483: END IF;
484: IF (l_cdtv_rec.PRICE_UOM = OKC_API.G_MISS_CHAR) THEN
485: l_cdtv_rec.PRICE_UOM := NULL;
486: END IF;
487: IF (l_cdtv_rec.BASE_CURRENCY = OKC_API.G_MISS_CHAR) THEN
488: l_cdtv_rec.BASE_CURRENCY := NULL;
483: END IF;
484: IF (l_cdtv_rec.PRICE_UOM = OKC_API.G_MISS_CHAR) THEN
485: l_cdtv_rec.PRICE_UOM := NULL;
486: END IF;
487: IF (l_cdtv_rec.BASE_CURRENCY = OKC_API.G_MISS_CHAR) THEN
488: l_cdtv_rec.BASE_CURRENCY := NULL;
489: END IF;
490: IF (l_cdtv_rec.APPROVAL_TYPE = OKC_API.G_MISS_CHAR) THEN
491: l_cdtv_rec.APPROVAL_TYPE := NULL;
486: END IF;
487: IF (l_cdtv_rec.BASE_CURRENCY = OKC_API.G_MISS_CHAR) THEN
488: l_cdtv_rec.BASE_CURRENCY := NULL;
489: END IF;
490: IF (l_cdtv_rec.APPROVAL_TYPE = OKC_API.G_MISS_CHAR) THEN
491: l_cdtv_rec.APPROVAL_TYPE := NULL;
492: END IF;
493: IF (l_cdtv_rec.EVERGREEN_APPROVAL_TYPE = OKC_API.G_MISS_CHAR) THEN
494: l_cdtv_rec.EVERGREEN_APPROVAL_TYPE := NULL;
489: END IF;
490: IF (l_cdtv_rec.APPROVAL_TYPE = OKC_API.G_MISS_CHAR) THEN
491: l_cdtv_rec.APPROVAL_TYPE := NULL;
492: END IF;
493: IF (l_cdtv_rec.EVERGREEN_APPROVAL_TYPE = OKC_API.G_MISS_CHAR) THEN
494: l_cdtv_rec.EVERGREEN_APPROVAL_TYPE := NULL;
495: END IF;
496: IF (l_cdtv_rec.ONLINE_APPROVAL_TYPE = OKC_API.G_MISS_CHAR) THEN
497: l_cdtv_rec.ONLINE_APPROVAL_TYPE := NULL;
492: END IF;
493: IF (l_cdtv_rec.EVERGREEN_APPROVAL_TYPE = OKC_API.G_MISS_CHAR) THEN
494: l_cdtv_rec.EVERGREEN_APPROVAL_TYPE := NULL;
495: END IF;
496: IF (l_cdtv_rec.ONLINE_APPROVAL_TYPE = OKC_API.G_MISS_CHAR) THEN
497: l_cdtv_rec.ONLINE_APPROVAL_TYPE := NULL;
498: END IF;
499: IF (l_cdtv_rec.PURCHASE_ORDER_FLAG = OKC_API.G_MISS_CHAR) THEN
500: l_cdtv_rec.PURCHASE_ORDER_FLAG := NULL;
495: END IF;
496: IF (l_cdtv_rec.ONLINE_APPROVAL_TYPE = OKC_API.G_MISS_CHAR) THEN
497: l_cdtv_rec.ONLINE_APPROVAL_TYPE := NULL;
498: END IF;
499: IF (l_cdtv_rec.PURCHASE_ORDER_FLAG = OKC_API.G_MISS_CHAR) THEN
500: l_cdtv_rec.PURCHASE_ORDER_FLAG := NULL;
501: END IF;
502: IF (l_cdtv_rec.CREDIT_CARD_FLAG = OKC_API.G_MISS_CHAR) THEN
503: l_cdtv_rec.CREDIT_CARD_FLAG := NULL;
498: END IF;
499: IF (l_cdtv_rec.PURCHASE_ORDER_FLAG = OKC_API.G_MISS_CHAR) THEN
500: l_cdtv_rec.PURCHASE_ORDER_FLAG := NULL;
501: END IF;
502: IF (l_cdtv_rec.CREDIT_CARD_FLAG = OKC_API.G_MISS_CHAR) THEN
503: l_cdtv_rec.CREDIT_CARD_FLAG := NULL;
504: END IF;
505: IF (l_cdtv_rec.WIRE_FLAG = OKC_API.G_MISS_CHAR) THEN
506: l_cdtv_rec.WIRE_FLAG := NULL;
501: END IF;
502: IF (l_cdtv_rec.CREDIT_CARD_FLAG = OKC_API.G_MISS_CHAR) THEN
503: l_cdtv_rec.CREDIT_CARD_FLAG := NULL;
504: END IF;
505: IF (l_cdtv_rec.WIRE_FLAG = OKC_API.G_MISS_CHAR) THEN
506: l_cdtv_rec.WIRE_FLAG := NULL;
507: END IF;
508: IF (l_cdtv_rec.COMMITMENT_NUMBER_FLAG = OKC_API.G_MISS_CHAR) THEN
509: l_cdtv_rec.COMMITMENT_NUMBER_FLAG := NULL;
504: END IF;
505: IF (l_cdtv_rec.WIRE_FLAG = OKC_API.G_MISS_CHAR) THEN
506: l_cdtv_rec.WIRE_FLAG := NULL;
507: END IF;
508: IF (l_cdtv_rec.COMMITMENT_NUMBER_FLAG = OKC_API.G_MISS_CHAR) THEN
509: l_cdtv_rec.COMMITMENT_NUMBER_FLAG := NULL;
510: END IF;
511: IF (l_cdtv_rec.CHECK_FLAG = OKC_API.G_MISS_CHAR) THEN
512: l_cdtv_rec.CHECK_FLAG := NULL;
507: END IF;
508: IF (l_cdtv_rec.COMMITMENT_NUMBER_FLAG = OKC_API.G_MISS_CHAR) THEN
509: l_cdtv_rec.COMMITMENT_NUMBER_FLAG := NULL;
510: END IF;
511: IF (l_cdtv_rec.CHECK_FLAG = OKC_API.G_MISS_CHAR) THEN
512: l_cdtv_rec.CHECK_FLAG := NULL;
513: END IF;
514: IF (l_cdtv_rec.TEMPLATE_LANGUAGE = OKC_API.G_MISS_CHAR) THEN
515: l_cdtv_rec.TEMPLATE_LANGUAGE := NULL;
510: END IF;
511: IF (l_cdtv_rec.CHECK_FLAG = OKC_API.G_MISS_CHAR) THEN
512: l_cdtv_rec.CHECK_FLAG := NULL;
513: END IF;
514: IF (l_cdtv_rec.TEMPLATE_LANGUAGE = OKC_API.G_MISS_CHAR) THEN
515: l_cdtv_rec.TEMPLATE_LANGUAGE := NULL;
516: END IF;
517: -- R12 Data Model Changes 4485150 End
518:
526: -----------------------------------------------------
527: PROCEDURE validate_id(x_return_status OUT NOCOPY varchar2,
528: p_id IN Number)
529: Is
530: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
531: Begin
532:
533: x_return_status := OKC_API.G_RET_STS_SUCCESS;
534:
529: Is
530: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
531: Begin
532:
533: x_return_status := OKC_API.G_RET_STS_SUCCESS;
534:
535: If p_id = OKC_API.G_MISS_NUM OR
536: p_id IS NULL
537: Then
531: Begin
532:
533: x_return_status := OKC_API.G_RET_STS_SUCCESS;
534:
535: If p_id = OKC_API.G_MISS_NUM OR
536: p_id IS NULL
537: Then
538: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
539: l_return_status := OKC_API.G_RET_STS_ERROR;
534:
535: If p_id = OKC_API.G_MISS_NUM OR
536: p_id IS NULL
537: Then
538: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
539: l_return_status := OKC_API.G_RET_STS_ERROR;
540: End If;
541:
542: Exception
535: If p_id = OKC_API.G_MISS_NUM OR
536: p_id IS NULL
537: Then
538: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
539: l_return_status := OKC_API.G_RET_STS_ERROR;
540: End If;
541:
542: Exception
543: When G_EXCEPTION_HALT_VALIDATION THEN
544: x_return_status := l_return_status;
545: NULL;
546: When OTHERS THEN
547: -- store SQL error message on message stack for caller
548: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
549: p_msg_name => g_unexpected_error,
550: p_token1 => g_sqlcode_token,
551: p_token1_value => sqlcode,
552: p_token2 => g_sqlerrm_token,
552: p_token2 => g_sqlerrm_token,
553: p_token2_value => sqlerrm);
554:
555: -- notify caller of an UNEXPECTED error
556: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
557: End validate_id;
558:
559: -----------------------------------------------------
560: -- Validate Object Version Number --
561: -----------------------------------------------------
562: PROCEDURE validate_objvernum(x_return_status OUT NOCOPY varchar2,
563: P_object_version_number IN Number)
564: Is
565: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
566: Begin
567:
568: x_return_status := OKC_API.G_RET_STS_SUCCESS;
569:
564: Is
565: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
566: Begin
567:
568: x_return_status := OKC_API.G_RET_STS_SUCCESS;
569:
570: If p_object_version_number = OKC_API.G_MISS_NUM OR
571: p_object_version_number IS NULL
572: Then
566: Begin
567:
568: x_return_status := OKC_API.G_RET_STS_SUCCESS;
569:
570: If p_object_version_number = OKC_API.G_MISS_NUM OR
571: p_object_version_number IS NULL
572: Then
573: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
574: x_return_status := OKC_API.G_RET_STS_ERROR;
569:
570: If p_object_version_number = OKC_API.G_MISS_NUM OR
571: p_object_version_number IS NULL
572: Then
573: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
574: x_return_status := OKC_API.G_RET_STS_ERROR;
575: RAISE G_EXCEPTION_HALT_VALIDATION;
576: End If;
577:
570: If p_object_version_number = OKC_API.G_MISS_NUM OR
571: p_object_version_number IS NULL
572: Then
573: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
574: x_return_status := OKC_API.G_RET_STS_ERROR;
575: RAISE G_EXCEPTION_HALT_VALIDATION;
576: End If;
577:
578: Exception
579: When G_EXCEPTION_HALT_VALIDATION Then
580: NULL;
581: When OTHERS Then
582: -- store SQL error message on message stack for caller
583: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
584: p_msg_name => g_unexpected_error,
585: p_token1 => g_sqlcode_token,
586: p_token1_value => sqlcode,
587: p_token2 => g_sqlerrm_token,
587: p_token2 => g_sqlerrm_token,
588: p_token2_value => sqlerrm);
589:
590: -- notify caller of an UNEXPECTED error
591: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
592: END validate_objvernum;
593:
594: -- Start of comments
595: --
602: PROCEDURE validate_Renewal_Type(x_return_status OUT NOCOPY VARCHAR2,
603: p_Renewal_Type IN VARCHAR2) is
604: Begin
605: -- initialize return status
606: x_return_status := OKC_API.G_RET_STS_SUCCESS;
607: -- check that data exists
608: If NOT (p_Renewal_Type = OKC_API.G_MISS_CHAR or
609: p_Renewal_Type IS NULL)
610: Then
604: Begin
605: -- initialize return status
606: x_return_status := OKC_API.G_RET_STS_SUCCESS;
607: -- check that data exists
608: If NOT (p_Renewal_Type = OKC_API.G_MISS_CHAR or
609: p_Renewal_Type IS NULL)
610: Then
611: IF upper(p_Renewal_Type) NOT IN ('NSR','SFA','EVN','DNR', 'ERN')
612: THEN
609: p_Renewal_Type IS NULL)
610: Then
611: IF upper(p_Renewal_Type) NOT IN ('NSR','SFA','EVN','DNR', 'ERN')
612: THEN
613: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
614: p_msg_name => g_invalid_value,
615: p_token1 => g_col_name_token,
616: p_token1_value => 'RENEWAL_TYPE');
617: -- notify caller of an error
614: p_msg_name => g_invalid_value,
615: p_token1 => g_col_name_token,
616: p_token1_value => 'RENEWAL_TYPE');
617: -- notify caller of an error
618: x_return_status := OKC_API.G_RET_STS_ERROR;
619: -- halt validation
620: End If;
621: END IF;
622: exception
625: null;
626:
627: when OTHERS then
628: -- store SQL error message on message stack
629: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
630: p_msg_name => g_unexpected_error,
631: p_token1 => g_sqlcode_token,
632: p_token1_value => sqlcode,
633: p_token2 => g_sqlerrm_token,
632: p_token1_value => sqlcode,
633: p_token2 => g_sqlerrm_token,
634: p_token2_value => sqlerrm);
635: -- notify caller of an error as UNEXPETED error
636: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
637:
638: End validate_renewal_Type;
639:
640: -- Start of comments
649: p_po_Required IN VARCHAR2) is
650:
651: Begin
652: -- initialize return status
653: x_return_status := OKC_API.G_RET_STS_SUCCESS;
654: If NOT (p_PO_Required= OKC_API.G_MISS_CHAR or
655: p_PO_Required IS NULL)
656: Then
657: -- check allowed values
650:
651: Begin
652: -- initialize return status
653: x_return_status := OKC_API.G_RET_STS_SUCCESS;
654: If NOT (p_PO_Required= OKC_API.G_MISS_CHAR or
655: p_PO_Required IS NULL)
656: Then
657: -- check allowed values
658: If upper(p_po_required) NOT IN ('Y','N') Then
655: p_PO_Required IS NULL)
656: Then
657: -- check allowed values
658: If upper(p_po_required) NOT IN ('Y','N') Then
659: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
660: p_msg_name => g_invalid_value,
661: p_token1 => g_col_name_token,
662: p_token1_value => 'po_required_yn');
663: -- notify caller of an error
660: p_msg_name => g_invalid_value,
661: p_token1 => g_col_name_token,
662: p_token1_value => 'po_required_yn');
663: -- notify caller of an error
664: x_return_status := OKC_API.G_RET_STS_ERROR;
665: End If;
666: END IF;
667: exception
668: when OTHERS then
666: END IF;
667: exception
668: when OTHERS then
669: -- store SQL error message on message stack
670: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
671: p_msg_name => g_unexpected_error,
672: p_token1 => g_sqlcode_token,
673: p_token1_value => sqlcode,
674: p_token2 => g_sqlerrm_token,
673: p_token1_value => sqlcode,
674: p_token2 => g_sqlerrm_token,
675: p_token2_value => sqlerrm);
676: -- notify caller of an error as UNEXPETED error
677: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
678:
679: End validate_po_required_yn;
680:
681: -- Procedure Name : validate_threshold_enabled_yn
688: p_threshold_enabled IN VARCHAR2) is
689:
690: Begin
691: -- initialize return status
692: x_return_status := OKC_API.G_RET_STS_SUCCESS;
693: If NOT (p_threshold_enabled = OKC_API.G_MISS_CHAR or
694: p_threshold_enabled IS NULL)
695: Then
696: -- check allowed values
689:
690: Begin
691: -- initialize return status
692: x_return_status := OKC_API.G_RET_STS_SUCCESS;
693: If NOT (p_threshold_enabled = OKC_API.G_MISS_CHAR or
694: p_threshold_enabled IS NULL)
695: Then
696: -- check allowed values
697: If upper(p_threshold_enabled) NOT IN ('Y','N') Then
694: p_threshold_enabled IS NULL)
695: Then
696: -- check allowed values
697: If upper(p_threshold_enabled) NOT IN ('Y','N') Then
698: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
699: p_msg_name => g_invalid_value,
700: p_token1 => g_col_name_token,
701: p_token1_value => 'threshold_enabled_yn');
702: -- notify caller of an error
699: p_msg_name => g_invalid_value,
700: p_token1 => g_col_name_token,
701: p_token1_value => 'threshold_enabled_yn');
702: -- notify caller of an error
703: x_return_status := OKC_API.G_RET_STS_ERROR;
704: End If;
705: END IF;
706: exception
707: when OTHERS then
705: END IF;
706: exception
707: when OTHERS then
708: -- store SQL error message on message stack
709: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
710: p_msg_name => g_unexpected_error,
711: p_token1 => g_sqlcode_token,
712: p_token1_value => sqlcode,
713: p_token2 => g_sqlerrm_token,
712: p_token1_value => sqlcode,
713: p_token2 => g_sqlerrm_token,
714: p_token2_value => sqlerrm);
715: -- notify caller of an error as UNEXPETED error
716: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
717:
718: End validate_threshold_enabled_yn;
719:
720:
730: p_renewal_pricing_type IN VARCHAR2) is
731:
732: Begin
733: -- initialize return status
734: x_return_status := OKC_API.G_RET_STS_SUCCESS;
735: -- check allowed values
736: If NOT (p_Renewal_Pricing_Type = OKC_API.G_MISS_CHAR or
737: p_Renewal_Pricing_Type IS NULL)
738: Then
732: Begin
733: -- initialize return status
734: x_return_status := OKC_API.G_RET_STS_SUCCESS;
735: -- check allowed values
736: If NOT (p_Renewal_Pricing_Type = OKC_API.G_MISS_CHAR or
737: p_Renewal_Pricing_Type IS NULL)
738: Then
739: If upper(p_renewal_pricing_type) NOT IN ('LST','PCT','MAN') Then
740: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
736: If NOT (p_Renewal_Pricing_Type = OKC_API.G_MISS_CHAR or
737: p_Renewal_Pricing_Type IS NULL)
738: Then
739: If upper(p_renewal_pricing_type) NOT IN ('LST','PCT','MAN') Then
740: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
741: p_msg_name => g_invalid_value,
742: p_token1 => g_col_name_token,
743: p_token1_value => 'renewal_pricing_type');
744: -- notify caller of an error
741: p_msg_name => g_invalid_value,
742: p_token1 => g_col_name_token,
743: p_token1_value => 'renewal_pricing_type');
744: -- notify caller of an error
745: x_return_status := OKC_API.G_RET_STS_ERROR;
746: End If;
747: END IF;
748: exception
749: when OTHERS then
747: END IF;
748: exception
749: when OTHERS then
750: -- store SQL error message on message stack
751: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
752: p_msg_name => g_unexpected_error,
753: p_token1 => g_sqlcode_token,
754: p_token1_value => sqlcode,
755: p_token2 => g_sqlerrm_token,
754: p_token1_value => sqlcode,
755: p_token2 => g_sqlerrm_token,
756: p_token2_value => sqlerrm);
757: -- notify caller of an error as UNEXPETED error
758: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
759:
760: End validate_renewal_pricing_type;
761:
762: -- Start of comments
771: p_markup_Percent IN NUMBER) is
772:
773: Begin
774: -- initialize return status
775: x_return_status := OKC_API.G_RET_STS_SUCCESS;
776:
777: exception
778: when OTHERS then
779: -- store SQL error message on message stack
776:
777: exception
778: when OTHERS then
779: -- store SQL error message on message stack
780: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
781: p_msg_name => g_unexpected_error,
782: p_token1 => g_sqlcode_token,
783: p_token1_value => sqlcode,
784: p_token2 => g_sqlerrm_token,
783: p_token1_value => sqlcode,
784: p_token2 => g_sqlerrm_token,
785: p_token2_value => sqlerrm);
786: -- notify caller of an error as UNEXPETED error
787: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
788:
789: End validate_markup_percent;
790:
791: -- R12 Data Model Changes 4485150 Start
816: okc_debug.log('500: Entered validate_currency_code', 2);
817: END IF;
818:
819: -- initialize return status
820: x_return_status := OKC_API.G_RET_STS_SUCCESS;
821:
822: -- check that data exists
823: If (p_currency_code = OKC_API.G_MISS_CHAR or
824: p_currency_code IS NULL)
819: -- initialize return status
820: x_return_status := OKC_API.G_RET_STS_SUCCESS;
821:
822: -- check that data exists
823: If (p_currency_code = OKC_API.G_MISS_CHAR or
824: p_currency_code IS NULL)
825: Then
826: /* OKC_API.SET_MESSAGE(p_app_name => g_app_name,
827: p_msg_name => g_required_value,
822: -- check that data exists
823: If (p_currency_code = OKC_API.G_MISS_CHAR or
824: p_currency_code IS NULL)
825: Then
826: /* OKC_API.SET_MESSAGE(p_app_name => g_app_name,
827: p_msg_name => g_required_value,
828: p_token1 => g_col_name_token,
829: p_token1_value => 'Currency Code');
830: -- notify caller of an error
827: p_msg_name => g_required_value,
828: p_token1 => g_col_name_token,
829: p_token1_value => 'Currency Code');
830: -- notify caller of an error
831: x_return_status := OKC_API.G_RET_STS_ERROR;
832:
833: -- halt validation
834: raise G_EXCEPTION_HALT_VALIDATION;
835: */
842: Close l_fndv_csr;
843:
844: -- if l_dummy_var still set to default, data was not found
845: If (l_dummy_var = '?') Then
846: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
847: p_msg_name => g_invalid_value,
848: p_token1 => g_col_name_token,
849: p_token1_value => 'currency_code');
850: -- notify caller of an error
847: p_msg_name => g_invalid_value,
848: p_token1 => g_col_name_token,
849: p_token1_value => 'currency_code');
850: -- notify caller of an error
851: x_return_status := OKC_API.G_RET_STS_ERROR;
852: End If;
853: IF (l_debug = 'Y') THEN
854: okc_debug.log('600: Exiting validate_currency_code', 2);
855: okc_debug.Reset_Indentation;
874: okc_debug.Reset_Indentation;
875: END IF;
876:
877: -- store SQL error message on message stack
878: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
879: p_msg_name => g_unexpected_error,
880: p_token1 => g_sqlcode_token,
881: p_token1_value => sqlcode,
882: p_token2 => g_sqlerrm_token,
881: p_token1_value => sqlcode,
882: p_token2 => g_sqlerrm_token,
883: p_token2_value => sqlerrm);
884: -- notify caller of an error as UNEXPETED error
885: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
886:
887: -- verify that cursor was closed
888: if l_fndv_csr%ISOPEN then
889: close l_fndv_csr;
922: okc_debug.log('500: Entered validate_approval_type', 2);
923: END IF;
924:
925: -- initialize return status
926: x_return_status := OKC_API.G_RET_STS_SUCCESS;
927:
928: -- check that data exists
929: If (p_approval_type = OKC_API.G_MISS_CHAR or
930: p_approval_type IS NULL)
925: -- initialize return status
926: x_return_status := OKC_API.G_RET_STS_SUCCESS;
927:
928: -- check that data exists
929: If (p_approval_type = OKC_API.G_MISS_CHAR or
930: p_approval_type IS NULL)
931: Then
932: NULL;
933: Else
937: Close l_fndv_csr;
938:
939: -- if l_dummy_var still set to default, data was not found
940: If (l_dummy_var = '?') Then
941: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
942: p_msg_name => g_invalid_value,
943: p_token1 => g_col_name_token,
944: p_token1_value => 'approval_type');
945: -- notify caller of an error
942: p_msg_name => g_invalid_value,
943: p_token1 => g_col_name_token,
944: p_token1_value => 'approval_type');
945: -- notify caller of an error
946: x_return_status := OKC_API.G_RET_STS_ERROR;
947: End If;
948: IF (l_debug = 'Y') THEN
949: okc_debug.log('600: Exiting validate_approval_type', 2);
950: okc_debug.Reset_Indentation;
969: okc_debug.Reset_Indentation;
970: END IF;
971:
972: -- store SQL error message on message stack
973: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
974: p_msg_name => g_unexpected_error,
975: p_token1 => g_sqlcode_token,
976: p_token1_value => sqlcode,
977: p_token2 => g_sqlerrm_token,
976: p_token1_value => sqlcode,
977: p_token2 => g_sqlerrm_token,
978: p_token2_value => sqlerrm);
979: -- notify caller of an error as UNEXPETED error
980: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
981:
982: -- verify that cursor was closed
983: if l_fndv_csr%ISOPEN then
984: close l_fndv_csr;
1016: okc_debug.log('500: Entered validate_approval_type', 2);
1017: END IF;
1018:
1019: -- initialize return status
1020: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1021:
1022: -- check that data exists
1023: If (p_evergreen_approval_type = OKC_API.G_MISS_CHAR or
1024: p_evergreen_approval_type IS NULL)
1019: -- initialize return status
1020: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1021:
1022: -- check that data exists
1023: If (p_evergreen_approval_type = OKC_API.G_MISS_CHAR or
1024: p_evergreen_approval_type IS NULL)
1025: Then
1026: NULL;
1027: Else
1031: Close l_fndv_csr;
1032:
1033: -- if l_dummy_var still set to default, data was not found
1034: If (l_dummy_var = '?') Then
1035: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1036: p_msg_name => g_invalid_value,
1037: p_token1 => g_col_name_token,
1038: p_token1_value => 'evergreen_approval_type');
1039: -- notify caller of an error
1036: p_msg_name => g_invalid_value,
1037: p_token1 => g_col_name_token,
1038: p_token1_value => 'evergreen_approval_type');
1039: -- notify caller of an error
1040: x_return_status := OKC_API.G_RET_STS_ERROR;
1041: End If;
1042: IF (l_debug = 'Y') THEN
1043: okc_debug.log('600: Exiting val_evergreen_appl_type', 2);
1044: okc_debug.Reset_Indentation;
1063: okc_debug.Reset_Indentation;
1064: END IF;
1065:
1066: -- store SQL error message on message stack
1067: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1068: p_msg_name => g_unexpected_error,
1069: p_token1 => g_sqlcode_token,
1070: p_token1_value => sqlcode,
1071: p_token2 => g_sqlerrm_token,
1070: p_token1_value => sqlcode,
1071: p_token2 => g_sqlerrm_token,
1072: p_token2_value => sqlerrm);
1073: -- notify caller of an error as UNEXPETED error
1074: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1075:
1076: -- verify that cursor was closed
1077: if l_fndv_csr%ISOPEN then
1078: close l_fndv_csr;
1110: okc_debug.log('500: Entered validate_online_approval_type', 2);
1111: END IF;
1112:
1113: -- initialize return status
1114: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1115:
1116: -- check that data exists
1117: If (p_online_approval_type = OKC_API.G_MISS_CHAR or
1118: p_online_approval_type IS NULL)
1113: -- initialize return status
1114: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1115:
1116: -- check that data exists
1117: If (p_online_approval_type = OKC_API.G_MISS_CHAR or
1118: p_online_approval_type IS NULL)
1119: Then
1120: NULL;
1121: Else
1125: Close l_fndv_csr;
1126:
1127: -- if l_dummy_var still set to default, data was not found
1128: If (l_dummy_var = '?') Then
1129: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1130: p_msg_name => g_invalid_value,
1131: p_token1 => g_col_name_token,
1132: p_token1_value => 'online_approval_type');
1133: -- notify caller of an error
1130: p_msg_name => g_invalid_value,
1131: p_token1 => g_col_name_token,
1132: p_token1_value => 'online_approval_type');
1133: -- notify caller of an error
1134: x_return_status := OKC_API.G_RET_STS_ERROR;
1135: End If;
1136: IF (l_debug = 'Y') THEN
1137: okc_debug.log('600: Exiting validate_online_approval_type', 2);
1138: okc_debug.Reset_Indentation;
1157: okc_debug.Reset_Indentation;
1158: END IF;
1159:
1160: -- store SQL error message on message stack
1161: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1162: p_msg_name => g_unexpected_error,
1163: p_token1 => g_sqlcode_token,
1164: p_token1_value => sqlcode,
1165: p_token2 => g_sqlerrm_token,
1164: p_token1_value => sqlcode,
1165: p_token2 => g_sqlerrm_token,
1166: p_token2_value => sqlerrm);
1167: -- notify caller of an error as UNEXPETED error
1168: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1169:
1170: -- verify that cursor was closed
1171: if l_fndv_csr%ISOPEN then
1172: close l_fndv_csr;
1184: FUNCTION Validate_Attributes (
1185: p_cdtv_rec IN cdtv_rec_type
1186: )
1187: Return VARCHAR2 Is
1188: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1189: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1190:
1191: Begin
1192: -- call OKC_UTIL.ADD_VIEW to prepare the PL/SQL table to hold columns of view
1185: p_cdtv_rec IN cdtv_rec_type
1186: )
1187: Return VARCHAR2 Is
1188: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1189: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1190:
1191: Begin
1192: -- call OKC_UTIL.ADD_VIEW to prepare the PL/SQL table to hold columns of view
1193:
1192: -- call OKC_UTIL.ADD_VIEW to prepare the PL/SQL table to hold columns of view
1193:
1194: OKC_UTIL.ADD_VIEW('OKS_K_DEFAULTS_V',x_return_status);
1195:
1196: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1197: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1198: -- need to leave
1199: l_return_status := x_return_status;
1200: RAISE G_EXCEPTION_HALT_VALIDATION;
1193:
1194: OKC_UTIL.ADD_VIEW('OKS_K_DEFAULTS_V',x_return_status);
1195:
1196: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1197: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1198: -- need to leave
1199: l_return_status := x_return_status;
1200: RAISE G_EXCEPTION_HALT_VALIDATION;
1201: ELSE
1209: --ID
1210: validate_id(x_return_status, p_cdtv_rec.id);
1211:
1212: -- store the highest degree of error
1213: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1214: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1215: -- need to leave
1216: l_return_status := x_return_status;
1217: RAISE G_EXCEPTION_HALT_VALIDATION;
1210: validate_id(x_return_status, p_cdtv_rec.id);
1211:
1212: -- store the highest degree of error
1213: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1214: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1215: -- need to leave
1216: l_return_status := x_return_status;
1217: RAISE G_EXCEPTION_HALT_VALIDATION;
1218: ELSE
1224: --OBJECT_VERSION_NUMBER
1225: validate_objvernum(x_return_status, p_cdtv_rec.object_version_number);
1226:
1227: -- store the highest degree of error
1228: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1229: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1230: -- need to leave
1231: l_return_status := x_return_status;
1232: RAISE G_EXCEPTION_HALT_VALIDATION;
1225: validate_objvernum(x_return_status, p_cdtv_rec.object_version_number);
1226:
1227: -- store the highest degree of error
1228: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1229: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1230: -- need to leave
1231: l_return_status := x_return_status;
1232: RAISE G_EXCEPTION_HALT_VALIDATION;
1233: ELSE
1239: --RENEWAL_TYPE
1240: validate_Renewal_Type(x_return_status, p_cdtv_rec.Renewal_Type);
1241:
1242: -- store the highest degree of error
1243: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1244: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1245: -- need to leave
1246: l_return_status := x_return_status;
1247: RAISE G_EXCEPTION_HALT_VALIDATION;
1240: validate_Renewal_Type(x_return_status, p_cdtv_rec.Renewal_Type);
1241:
1242: -- store the highest degree of error
1243: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1244: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1245: -- need to leave
1246: l_return_status := x_return_status;
1247: RAISE G_EXCEPTION_HALT_VALIDATION;
1248: ELSE
1255:
1256: validate_po_required_yn(x_return_status, p_cdtv_rec.PO_Required_YN);
1257:
1258: -- store the highest degree of error
1259: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1260: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1261:
1262: -- need to leave
1263: l_return_status := x_return_status;
1256: validate_po_required_yn(x_return_status, p_cdtv_rec.PO_Required_YN);
1257:
1258: -- store the highest degree of error
1259: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1260: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1261:
1262: -- need to leave
1263: l_return_status := x_return_status;
1264: RAISE G_EXCEPTION_HALT_VALIDATION;
1270:
1271: -- threshold_enabled_yn
1272: validate_threshold_enabled_yn(x_return_status, p_cdtv_rec.threshold_enabled_yn);
1273: -- store the highest degree of error
1274: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1275: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1276:
1277: -- need to leave
1278: l_return_status := x_return_status;
1271: -- threshold_enabled_yn
1272: validate_threshold_enabled_yn(x_return_status, p_cdtv_rec.threshold_enabled_yn);
1273: -- store the highest degree of error
1274: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1275: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1276:
1277: -- need to leave
1278: l_return_status := x_return_status;
1279: RAISE G_EXCEPTION_HALT_VALIDATION;
1285:
1286: --RENEWAL_PRICING_TYPE
1287: validate_Renewal_Pricing_Type(x_return_status, p_cdtv_rec.Renewal_Pricing_Type);
1288: -- store the highest degree of error
1289: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1290: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1291: -- need to leave
1292: l_return_status := x_return_status;
1293: RAISE G_EXCEPTION_HALT_VALIDATION;
1286: --RENEWAL_PRICING_TYPE
1287: validate_Renewal_Pricing_Type(x_return_status, p_cdtv_rec.Renewal_Pricing_Type);
1288: -- store the highest degree of error
1289: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1290: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1291: -- need to leave
1292: l_return_status := x_return_status;
1293: RAISE G_EXCEPTION_HALT_VALIDATION;
1294: ELSE
1300:
1301: --MARKUP_PERCENT
1302: validate_Markup_Percent(x_return_status, p_cdtv_rec.Markup_Percent);
1303: -- store the highest degree of error
1304: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1305: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1306: -- need to leave
1307: l_return_status := x_return_status;
1308: RAISE G_EXCEPTION_HALT_VALIDATION;
1301: --MARKUP_PERCENT
1302: validate_Markup_Percent(x_return_status, p_cdtv_rec.Markup_Percent);
1303: -- store the highest degree of error
1304: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1305: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1306: -- need to leave
1307: l_return_status := x_return_status;
1308: RAISE G_EXCEPTION_HALT_VALIDATION;
1309: ELSE
1315: -- R12 Data Model Changes 4485150 Start
1316: --APPROVAL_TYPE
1317: validate_Approval_Type(x_return_status, p_cdtv_rec.Approval_type);
1318: -- store the highest degree of error
1319: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1320: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1321: -- need to leave
1322: l_return_status := x_return_status;
1323: RAISE G_EXCEPTION_HALT_VALIDATION;
1316: --APPROVAL_TYPE
1317: validate_Approval_Type(x_return_status, p_cdtv_rec.Approval_type);
1318: -- store the highest degree of error
1319: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1320: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1321: -- need to leave
1322: l_return_status := x_return_status;
1323: RAISE G_EXCEPTION_HALT_VALIDATION;
1324: ELSE
1329:
1330: --ONLINE_APPROVAL_TYPE
1331: val_Online_Approval_Type(x_return_status, p_cdtv_rec.Online_Approval_type);
1332: -- store the highest degree of error
1333: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1334: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1335: -- need to leave
1336: l_return_status := x_return_status;
1337: RAISE G_EXCEPTION_HALT_VALIDATION;
1330: --ONLINE_APPROVAL_TYPE
1331: val_Online_Approval_Type(x_return_status, p_cdtv_rec.Online_Approval_type);
1332: -- store the highest degree of error
1333: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1334: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1335: -- need to leave
1336: l_return_status := x_return_status;
1337: RAISE G_EXCEPTION_HALT_VALIDATION;
1338: ELSE
1343:
1344: --EVERGREEN_APPROVAL_TYPE
1345: val_evergreen_appl_type(x_return_status, p_cdtv_rec.Evergreen_Approval_type);
1346: -- store the highest degree of error
1347: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1348: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1349: -- need to leave
1350: l_return_status := x_return_status;
1351: RAISE G_EXCEPTION_HALT_VALIDATION;
1344: --EVERGREEN_APPROVAL_TYPE
1345: val_evergreen_appl_type(x_return_status, p_cdtv_rec.Evergreen_Approval_type);
1346: -- store the highest degree of error
1347: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1348: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1349: -- need to leave
1350: l_return_status := x_return_status;
1351: RAISE G_EXCEPTION_HALT_VALIDATION;
1352: ELSE
1365: Return (l_return_status);
1366:
1367: When OTHERS Then
1368: -- store SQL error message on message stack for caller
1369: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1370: p_msg_name => g_unexpected_error,
1371: p_token1 => g_sqlcode_token,
1372: p_token1_value => sqlcode,
1373: p_token2 => g_sqlerrm_token,
1373: p_token2 => g_sqlerrm_token,
1374: p_token2_value => sqlerrm);
1375:
1376: -- notify caller of an UNEXPECTED error
1377: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1378: Return(l_return_status);
1379:
1380: END validate_attributes;
1381:
1381:
1382: /* FUNCTION Validate_Attributes (
1383: p_cdtv_rec IN cdtv_rec_type
1384: ) RETURN VARCHAR2 IS
1385: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1386: BEGIN
1387: IF p_cdtv_rec.id = OKC_API.G_MISS_NUM OR
1388: p_cdtv_rec.id IS NULL
1389: THEN
1383: p_cdtv_rec IN cdtv_rec_type
1384: ) RETURN VARCHAR2 IS
1385: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1386: BEGIN
1387: IF p_cdtv_rec.id = OKC_API.G_MISS_NUM OR
1388: p_cdtv_rec.id IS NULL
1389: THEN
1390: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
1391: l_return_status := OKC_API.G_RET_STS_ERROR;
1386: BEGIN
1387: IF p_cdtv_rec.id = OKC_API.G_MISS_NUM OR
1388: p_cdtv_rec.id IS NULL
1389: THEN
1390: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
1391: l_return_status := OKC_API.G_RET_STS_ERROR;
1392: ELSIF p_cdtv_rec.cdt_type = OKC_API.G_MISS_CHAR OR
1393: p_cdtv_rec.cdt_type IS NULL
1394: THEN
1387: IF p_cdtv_rec.id = OKC_API.G_MISS_NUM OR
1388: p_cdtv_rec.id IS NULL
1389: THEN
1390: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
1391: l_return_status := OKC_API.G_RET_STS_ERROR;
1392: ELSIF p_cdtv_rec.cdt_type = OKC_API.G_MISS_CHAR OR
1393: p_cdtv_rec.cdt_type IS NULL
1394: THEN
1395: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cdt_type');
1388: p_cdtv_rec.id IS NULL
1389: THEN
1390: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
1391: l_return_status := OKC_API.G_RET_STS_ERROR;
1392: ELSIF p_cdtv_rec.cdt_type = OKC_API.G_MISS_CHAR OR
1393: p_cdtv_rec.cdt_type IS NULL
1394: THEN
1395: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cdt_type');
1396: l_return_status := OKC_API.G_RET_STS_ERROR;
1391: l_return_status := OKC_API.G_RET_STS_ERROR;
1392: ELSIF p_cdtv_rec.cdt_type = OKC_API.G_MISS_CHAR OR
1393: p_cdtv_rec.cdt_type IS NULL
1394: THEN
1395: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cdt_type');
1396: l_return_status := OKC_API.G_RET_STS_ERROR;
1397: ELSIF p_cdtv_rec.object_version_number = OKC_API.G_MISS_NUM OR
1398: p_cdtv_rec.object_version_number IS NULL
1399: THEN
1392: ELSIF p_cdtv_rec.cdt_type = OKC_API.G_MISS_CHAR OR
1393: p_cdtv_rec.cdt_type IS NULL
1394: THEN
1395: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cdt_type');
1396: l_return_status := OKC_API.G_RET_STS_ERROR;
1397: ELSIF p_cdtv_rec.object_version_number = OKC_API.G_MISS_NUM OR
1398: p_cdtv_rec.object_version_number IS NULL
1399: THEN
1400: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
1393: p_cdtv_rec.cdt_type IS NULL
1394: THEN
1395: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cdt_type');
1396: l_return_status := OKC_API.G_RET_STS_ERROR;
1397: ELSIF p_cdtv_rec.object_version_number = OKC_API.G_MISS_NUM OR
1398: p_cdtv_rec.object_version_number IS NULL
1399: THEN
1400: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
1401: l_return_status := OKC_API.G_RET_STS_ERROR;
1396: l_return_status := OKC_API.G_RET_STS_ERROR;
1397: ELSIF p_cdtv_rec.object_version_number = OKC_API.G_MISS_NUM OR
1398: p_cdtv_rec.object_version_number IS NULL
1399: THEN
1400: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
1401: l_return_status := OKC_API.G_RET_STS_ERROR;
1402: END IF;
1403: RETURN(l_return_status);
1404: END Validate_Attributes;*/
1397: ELSIF p_cdtv_rec.object_version_number = OKC_API.G_MISS_NUM OR
1398: p_cdtv_rec.object_version_number IS NULL
1399: THEN
1400: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
1401: l_return_status := OKC_API.G_RET_STS_ERROR;
1402: END IF;
1403: RETURN(l_return_status);
1404: END Validate_Attributes;*/
1405:
1411: ------------------------------------------
1412: FUNCTION Validate_Record (
1413: p_cdtv_rec IN cdtv_rec_type
1414: ) RETURN VARCHAR2 IS
1415: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1416: BEGIN
1417: RETURN (l_return_status);
1418: END Validate_Record;
1419:
1559: -- validate_row for:OKS_K_DEFAULTS_V --
1560: ---------------------------------------
1561: PROCEDURE validate_row(
1562: p_api_version IN NUMBER,
1563: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1564: x_return_status OUT NOCOPY VARCHAR2,
1565: x_msg_count OUT NOCOPY NUMBER,
1566: x_msg_data OUT NOCOPY VARCHAR2,
1567: p_cdtv_rec IN cdtv_rec_type) IS
1567: p_cdtv_rec IN cdtv_rec_type) IS
1568:
1569: l_api_version CONSTANT NUMBER := 1;
1570: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1571: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1572: l_cdtv_rec cdtv_rec_type := p_cdtv_rec;
1573: l_cdt_rec cdt_rec_type;
1574: BEGIN
1575: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1571: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1572: l_cdtv_rec cdtv_rec_type := p_cdtv_rec;
1573: l_cdt_rec cdt_rec_type;
1574: BEGIN
1575: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1576: G_PKG_NAME,
1577: p_init_msg_list,
1578: l_api_version,
1579: p_api_version,
1578: l_api_version,
1579: p_api_version,
1580: '_PVT',
1581: x_return_status);
1582: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1583: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1584: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1585: RAISE OKC_API.G_EXCEPTION_ERROR;
1586: END IF;
1579: p_api_version,
1580: '_PVT',
1581: x_return_status);
1582: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1583: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1584: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1585: RAISE OKC_API.G_EXCEPTION_ERROR;
1586: END IF;
1587: --- Validate all non-missing attributes (Item Level Validation)
1580: '_PVT',
1581: x_return_status);
1582: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1583: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1584: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1585: RAISE OKC_API.G_EXCEPTION_ERROR;
1586: END IF;
1587: --- Validate all non-missing attributes (Item Level Validation)
1588: l_return_status := Validate_Attributes(l_cdtv_rec);
1581: x_return_status);
1582: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1583: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1584: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1585: RAISE OKC_API.G_EXCEPTION_ERROR;
1586: END IF;
1587: --- Validate all non-missing attributes (Item Level Validation)
1588: l_return_status := Validate_Attributes(l_cdtv_rec);
1589: --- If any errors happen abort API
1586: END IF;
1587: --- Validate all non-missing attributes (Item Level Validation)
1588: l_return_status := Validate_Attributes(l_cdtv_rec);
1589: --- If any errors happen abort API
1590: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1592: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1593: RAISE OKC_API.G_EXCEPTION_ERROR;
1594: END IF;
1587: --- Validate all non-missing attributes (Item Level Validation)
1588: l_return_status := Validate_Attributes(l_cdtv_rec);
1589: --- If any errors happen abort API
1590: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1592: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1593: RAISE OKC_API.G_EXCEPTION_ERROR;
1594: END IF;
1595: l_return_status := Validate_Record(l_cdtv_rec);
1588: l_return_status := Validate_Attributes(l_cdtv_rec);
1589: --- If any errors happen abort API
1590: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1592: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1593: RAISE OKC_API.G_EXCEPTION_ERROR;
1594: END IF;
1595: l_return_status := Validate_Record(l_cdtv_rec);
1596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1589: --- If any errors happen abort API
1590: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1592: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1593: RAISE OKC_API.G_EXCEPTION_ERROR;
1594: END IF;
1595: l_return_status := Validate_Record(l_cdtv_rec);
1596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1592: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1593: RAISE OKC_API.G_EXCEPTION_ERROR;
1594: END IF;
1595: l_return_status := Validate_Record(l_cdtv_rec);
1596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1598: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1599: RAISE OKC_API.G_EXCEPTION_ERROR;
1600: END IF;
1593: RAISE OKC_API.G_EXCEPTION_ERROR;
1594: END IF;
1595: l_return_status := Validate_Record(l_cdtv_rec);
1596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1598: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1599: RAISE OKC_API.G_EXCEPTION_ERROR;
1600: END IF;
1601: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1594: END IF;
1595: l_return_status := Validate_Record(l_cdtv_rec);
1596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1598: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1599: RAISE OKC_API.G_EXCEPTION_ERROR;
1600: END IF;
1601: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1602: EXCEPTION
1595: l_return_status := Validate_Record(l_cdtv_rec);
1596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1598: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1599: RAISE OKC_API.G_EXCEPTION_ERROR;
1600: END IF;
1601: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1602: EXCEPTION
1603: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1598: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1599: RAISE OKC_API.G_EXCEPTION_ERROR;
1600: END IF;
1601: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1602: EXCEPTION
1603: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1604: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1605: (
1599: RAISE OKC_API.G_EXCEPTION_ERROR;
1600: END IF;
1601: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1602: EXCEPTION
1603: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1604: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1605: (
1606: l_api_name,
1607: G_PKG_NAME,
1600: END IF;
1601: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1602: EXCEPTION
1603: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1604: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1605: (
1606: l_api_name,
1607: G_PKG_NAME,
1608: 'OKC_API.G_RET_STS_ERROR',
1604: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1605: (
1606: l_api_name,
1607: G_PKG_NAME,
1608: 'OKC_API.G_RET_STS_ERROR',
1609: x_msg_count,
1610: x_msg_data,
1611: '_PVT'
1612: );
1609: x_msg_count,
1610: x_msg_data,
1611: '_PVT'
1612: );
1613: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1614: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1615: (
1616: l_api_name,
1617: G_PKG_NAME,
1610: x_msg_data,
1611: '_PVT'
1612: );
1613: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1614: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1615: (
1616: l_api_name,
1617: G_PKG_NAME,
1618: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1614: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1615: (
1616: l_api_name,
1617: G_PKG_NAME,
1618: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1619: x_msg_count,
1620: x_msg_data,
1621: '_PVT'
1622: );
1620: x_msg_data,
1621: '_PVT'
1622: );
1623: WHEN OTHERS THEN
1624: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1625: (
1626: l_api_name,
1627: G_PKG_NAME,
1628: 'OTHERS',
1635: -- PL/SQL TBL validate_row for:CDTV_TBL --
1636: ------------------------------------------
1637: PROCEDURE validate_row(
1638: p_api_version IN NUMBER,
1639: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1640: x_return_status OUT NOCOPY VARCHAR2,
1641: x_msg_count OUT NOCOPY NUMBER,
1642: x_msg_data OUT NOCOPY VARCHAR2,
1643: p_cdtv_tbl IN cdtv_tbl_type) IS
1643: p_cdtv_tbl IN cdtv_tbl_type) IS
1644:
1645: l_api_version CONSTANT NUMBER := 1;
1646: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1647: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1648: i NUMBER := 0;
1649: BEGIN
1650: OKC_API.init_msg_list(p_init_msg_list);
1651: -- Make sure PL/SQL table has records in it before passing
1646: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1647: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1648: i NUMBER := 0;
1649: BEGIN
1650: OKC_API.init_msg_list(p_init_msg_list);
1651: -- Make sure PL/SQL table has records in it before passing
1652: IF (p_cdtv_tbl.COUNT > 0) THEN
1653: i := p_cdtv_tbl.FIRST;
1654: LOOP
1653: i := p_cdtv_tbl.FIRST;
1654: LOOP
1655: validate_row (
1656: p_api_version => p_api_version,
1657: p_init_msg_list => OKC_API.G_FALSE,
1658: x_return_status => x_return_status,
1659: x_msg_count => x_msg_count,
1660: x_msg_data => x_msg_data,
1661: p_cdtv_rec => p_cdtv_tbl(i));
1663: i := p_cdtv_tbl.NEXT(i);
1664: END LOOP;
1665: END IF;
1666: EXCEPTION
1667: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1668: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1669: (
1670: l_api_name,
1671: G_PKG_NAME,
1664: END LOOP;
1665: END IF;
1666: EXCEPTION
1667: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1668: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1669: (
1670: l_api_name,
1671: G_PKG_NAME,
1672: 'OKC_API.G_RET_STS_ERROR',
1668: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1669: (
1670: l_api_name,
1671: G_PKG_NAME,
1672: 'OKC_API.G_RET_STS_ERROR',
1673: x_msg_count,
1674: x_msg_data,
1675: '_PVT'
1676: );
1673: x_msg_count,
1674: x_msg_data,
1675: '_PVT'
1676: );
1677: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1678: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1679: (
1680: l_api_name,
1681: G_PKG_NAME,
1674: x_msg_data,
1675: '_PVT'
1676: );
1677: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1678: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1679: (
1680: l_api_name,
1681: G_PKG_NAME,
1682: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1678: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1679: (
1680: l_api_name,
1681: G_PKG_NAME,
1682: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1683: x_msg_count,
1684: x_msg_data,
1685: '_PVT'
1686: );
1684: x_msg_data,
1685: '_PVT'
1686: );
1687: WHEN OTHERS THEN
1688: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1689: (
1690: l_api_name,
1691: G_PKG_NAME,
1692: 'OTHERS',
1702: -----------------------------------
1703: -- insert_row for:OKS_K_DEFAULTS --
1704: -----------------------------------
1705: PROCEDURE insert_row(
1706: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1707: x_return_status OUT NOCOPY VARCHAR2,
1708: x_msg_count OUT NOCOPY NUMBER,
1709: x_msg_data OUT NOCOPY VARCHAR2,
1710: p_cdt_rec IN cdt_rec_type,
1711: x_cdt_rec OUT NOCOPY cdt_rec_type) IS
1712:
1713: l_api_version CONSTANT NUMBER := 1;
1714: l_api_name CONSTANT VARCHAR2(30) := 'DEFAULTS_insert_row';
1715: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1716: l_cdt_rec cdt_rec_type := p_cdt_rec;
1717: l_def_cdt_rec cdt_rec_type;
1718: ---------------------------------------
1719: -- Set_Attributes for:OKS_K_DEFAULTS --
1721: FUNCTION Set_Attributes (
1722: p_cdt_rec IN cdt_rec_type,
1723: x_cdt_rec OUT NOCOPY cdt_rec_type
1724: ) RETURN VARCHAR2 IS
1725: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1726: BEGIN
1727: x_cdt_rec := p_cdt_rec;
1728: RETURN(l_return_status);
1729: END Set_Attributes;
1727: x_cdt_rec := p_cdt_rec;
1728: RETURN(l_return_status);
1729: END Set_Attributes;
1730: BEGIN
1731: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1732: p_init_msg_list,
1733: '_PVT',
1734: x_return_status);
1735: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1731: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1732: p_init_msg_list,
1733: '_PVT',
1734: x_return_status);
1735: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1736: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1737: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1738: RAISE OKC_API.G_EXCEPTION_ERROR;
1739: END IF;
1732: p_init_msg_list,
1733: '_PVT',
1734: x_return_status);
1735: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1736: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1737: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1738: RAISE OKC_API.G_EXCEPTION_ERROR;
1739: END IF;
1740: --- Setting item attributes
1733: '_PVT',
1734: x_return_status);
1735: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1736: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1737: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1738: RAISE OKC_API.G_EXCEPTION_ERROR;
1739: END IF;
1740: --- Setting item attributes
1741: l_return_status := Set_Attributes(
1734: x_return_status);
1735: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1736: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1737: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1738: RAISE OKC_API.G_EXCEPTION_ERROR;
1739: END IF;
1740: --- Setting item attributes
1741: l_return_status := Set_Attributes(
1742: p_cdt_rec, -- IN
1741: l_return_status := Set_Attributes(
1742: p_cdt_rec, -- IN
1743: l_cdt_rec); -- OUT
1744: --- If any errors happen abort API
1745: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1746: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1747: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1748: RAISE OKC_API.G_EXCEPTION_ERROR;
1749: END IF;
1742: p_cdt_rec, -- IN
1743: l_cdt_rec); -- OUT
1744: --- If any errors happen abort API
1745: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1746: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1747: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1748: RAISE OKC_API.G_EXCEPTION_ERROR;
1749: END IF;
1750: INSERT INTO OKS_K_DEFAULTS(
1743: l_cdt_rec); -- OUT
1744: --- If any errors happen abort API
1745: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1746: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1747: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1748: RAISE OKC_API.G_EXCEPTION_ERROR;
1749: END IF;
1750: INSERT INTO OKS_K_DEFAULTS(
1751: id,
1744: --- If any errors happen abort API
1745: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1746: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1747: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1748: RAISE OKC_API.G_EXCEPTION_ERROR;
1749: END IF;
1750: INSERT INTO OKS_K_DEFAULTS(
1751: id,
1752: cdt_type,
1871: -- R12 Data Model Changes 4485150 End
1872: );
1873: -- Set OUT values
1874: x_cdt_rec := l_cdt_rec;
1875: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1876: EXCEPTION
1877: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1878: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1879: (
1873: -- Set OUT values
1874: x_cdt_rec := l_cdt_rec;
1875: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1876: EXCEPTION
1877: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1878: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1879: (
1880: l_api_name,
1881: G_PKG_NAME,
1874: x_cdt_rec := l_cdt_rec;
1875: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1876: EXCEPTION
1877: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1878: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1879: (
1880: l_api_name,
1881: G_PKG_NAME,
1882: 'OKC_API.G_RET_STS_ERROR',
1878: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1879: (
1880: l_api_name,
1881: G_PKG_NAME,
1882: 'OKC_API.G_RET_STS_ERROR',
1883: x_msg_count,
1884: x_msg_data,
1885: '_PVT'
1886: );
1883: x_msg_count,
1884: x_msg_data,
1885: '_PVT'
1886: );
1887: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1888: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1889: (
1890: l_api_name,
1891: G_PKG_NAME,
1884: x_msg_data,
1885: '_PVT'
1886: );
1887: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1888: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1889: (
1890: l_api_name,
1891: G_PKG_NAME,
1892: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1888: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1889: (
1890: l_api_name,
1891: G_PKG_NAME,
1892: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1893: x_msg_count,
1894: x_msg_data,
1895: '_PVT'
1896: );
1894: x_msg_data,
1895: '_PVT'
1896: );
1897: WHEN OTHERS THEN
1898: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1899: (
1900: l_api_name,
1901: G_PKG_NAME,
1902: 'OTHERS',
1909: -- insert_row for:OKS_K_DEFAULTS_V --
1910: -------------------------------------
1911: PROCEDURE insert_row(
1912: p_api_version IN NUMBER,
1913: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1914: x_return_status OUT NOCOPY VARCHAR2,
1915: x_msg_count OUT NOCOPY NUMBER,
1916: x_msg_data OUT NOCOPY VARCHAR2,
1917: p_cdtv_rec IN cdtv_rec_type,
1918: x_cdtv_rec OUT NOCOPY cdtv_rec_type) IS
1919:
1920: l_api_version CONSTANT NUMBER := 1;
1921: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1922: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1923: l_cdtv_rec cdtv_rec_type;
1924: l_def_cdtv_rec cdtv_rec_type;
1925: l_cdt_rec cdt_rec_type;
1926: lx_cdt_rec cdt_rec_type;
1944: FUNCTION Set_Attributes (
1945: p_cdtv_rec IN cdtv_rec_type,
1946: x_cdtv_rec OUT NOCOPY cdtv_rec_type
1947: ) RETURN VARCHAR2 IS
1948: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1949: BEGIN
1950: x_cdtv_rec := p_cdtv_rec;
1951: x_cdtv_rec.OBJECT_VERSION_NUMBER := 1;
1952: RETURN(l_return_status);
1951: x_cdtv_rec.OBJECT_VERSION_NUMBER := 1;
1952: RETURN(l_return_status);
1953: END Set_Attributes;
1954: BEGIN
1955: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1956: G_PKG_NAME,
1957: p_init_msg_list,
1958: l_api_version,
1959: p_api_version,
1958: l_api_version,
1959: p_api_version,
1960: '_PVT',
1961: x_return_status);
1962: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1963: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1964: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1965: RAISE OKC_API.G_EXCEPTION_ERROR;
1966: END IF;
1959: p_api_version,
1960: '_PVT',
1961: x_return_status);
1962: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1963: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1964: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1965: RAISE OKC_API.G_EXCEPTION_ERROR;
1966: END IF;
1967: l_cdtv_rec := null_out_defaults(p_cdtv_rec);
1960: '_PVT',
1961: x_return_status);
1962: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1963: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1964: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1965: RAISE OKC_API.G_EXCEPTION_ERROR;
1966: END IF;
1967: l_cdtv_rec := null_out_defaults(p_cdtv_rec);
1968: -- Set primary key value
1961: x_return_status);
1962: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1963: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1964: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1965: RAISE OKC_API.G_EXCEPTION_ERROR;
1966: END IF;
1967: l_cdtv_rec := null_out_defaults(p_cdtv_rec);
1968: -- Set primary key value
1969: l_cdtv_rec.ID := get_seq_id;
1971: l_return_status := Set_Attributes(
1972: l_cdtv_rec, -- IN
1973: l_def_cdtv_rec); -- OUT
1974: --- If any errors happen abort API
1975: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1976: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1977: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1978: RAISE OKC_API.G_EXCEPTION_ERROR;
1979: END IF;
1972: l_cdtv_rec, -- IN
1973: l_def_cdtv_rec); -- OUT
1974: --- If any errors happen abort API
1975: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1976: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1977: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1978: RAISE OKC_API.G_EXCEPTION_ERROR;
1979: END IF;
1980: l_def_cdtv_rec := fill_who_columns(l_def_cdtv_rec);
1973: l_def_cdtv_rec); -- OUT
1974: --- If any errors happen abort API
1975: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1976: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1977: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1978: RAISE OKC_API.G_EXCEPTION_ERROR;
1979: END IF;
1980: l_def_cdtv_rec := fill_who_columns(l_def_cdtv_rec);
1981: --- Validate all non-missing attributes (Item Level Validation)
1974: --- If any errors happen abort API
1975: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1976: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1977: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1978: RAISE OKC_API.G_EXCEPTION_ERROR;
1979: END IF;
1980: l_def_cdtv_rec := fill_who_columns(l_def_cdtv_rec);
1981: --- Validate all non-missing attributes (Item Level Validation)
1982: l_return_status := Validate_Attributes(l_def_cdtv_rec);
1980: l_def_cdtv_rec := fill_who_columns(l_def_cdtv_rec);
1981: --- Validate all non-missing attributes (Item Level Validation)
1982: l_return_status := Validate_Attributes(l_def_cdtv_rec);
1983: --- If any errors happen abort API
1984: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1985: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1986: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1987: RAISE OKC_API.G_EXCEPTION_ERROR;
1988: END IF;
1981: --- Validate all non-missing attributes (Item Level Validation)
1982: l_return_status := Validate_Attributes(l_def_cdtv_rec);
1983: --- If any errors happen abort API
1984: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1985: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1986: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1987: RAISE OKC_API.G_EXCEPTION_ERROR;
1988: END IF;
1989: l_return_status := Validate_Record(l_def_cdtv_rec);
1982: l_return_status := Validate_Attributes(l_def_cdtv_rec);
1983: --- If any errors happen abort API
1984: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1985: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1986: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1987: RAISE OKC_API.G_EXCEPTION_ERROR;
1988: END IF;
1989: l_return_status := Validate_Record(l_def_cdtv_rec);
1990: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1983: --- If any errors happen abort API
1984: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1985: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1986: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1987: RAISE OKC_API.G_EXCEPTION_ERROR;
1988: END IF;
1989: l_return_status := Validate_Record(l_def_cdtv_rec);
1990: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1991: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1986: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1987: RAISE OKC_API.G_EXCEPTION_ERROR;
1988: END IF;
1989: l_return_status := Validate_Record(l_def_cdtv_rec);
1990: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1991: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1992: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1993: RAISE OKC_API.G_EXCEPTION_ERROR;
1994: END IF;
1987: RAISE OKC_API.G_EXCEPTION_ERROR;
1988: END IF;
1989: l_return_status := Validate_Record(l_def_cdtv_rec);
1990: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1991: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1992: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1993: RAISE OKC_API.G_EXCEPTION_ERROR;
1994: END IF;
1995: --------------------------------------
1988: END IF;
1989: l_return_status := Validate_Record(l_def_cdtv_rec);
1990: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1991: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1992: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1993: RAISE OKC_API.G_EXCEPTION_ERROR;
1994: END IF;
1995: --------------------------------------
1996: -- Move VIEW record to "Child" records
1989: l_return_status := Validate_Record(l_def_cdtv_rec);
1990: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1991: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1992: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1993: RAISE OKC_API.G_EXCEPTION_ERROR;
1994: END IF;
1995: --------------------------------------
1996: -- Move VIEW record to "Child" records
1997: --------------------------------------
2006: x_msg_data,
2007: l_cdt_rec,
2008: lx_cdt_rec
2009: );
2010: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2011: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2012: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2013: RAISE OKC_API.G_EXCEPTION_ERROR;
2014: END IF;
2007: l_cdt_rec,
2008: lx_cdt_rec
2009: );
2010: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2011: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2012: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2013: RAISE OKC_API.G_EXCEPTION_ERROR;
2014: END IF;
2015: migrate(lx_cdt_rec, l_def_cdtv_rec);
2008: lx_cdt_rec
2009: );
2010: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2011: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2012: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2013: RAISE OKC_API.G_EXCEPTION_ERROR;
2014: END IF;
2015: migrate(lx_cdt_rec, l_def_cdtv_rec);
2016: -- Set OUT values
2009: );
2010: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2011: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2012: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2013: RAISE OKC_API.G_EXCEPTION_ERROR;
2014: END IF;
2015: migrate(lx_cdt_rec, l_def_cdtv_rec);
2016: -- Set OUT values
2017: x_cdtv_rec := l_def_cdtv_rec;
2014: END IF;
2015: migrate(lx_cdt_rec, l_def_cdtv_rec);
2016: -- Set OUT values
2017: x_cdtv_rec := l_def_cdtv_rec;
2018: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2019: EXCEPTION
2020: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2021: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2022: (
2016: -- Set OUT values
2017: x_cdtv_rec := l_def_cdtv_rec;
2018: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2019: EXCEPTION
2020: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2021: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2022: (
2023: l_api_name,
2024: G_PKG_NAME,
2017: x_cdtv_rec := l_def_cdtv_rec;
2018: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2019: EXCEPTION
2020: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2021: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2022: (
2023: l_api_name,
2024: G_PKG_NAME,
2025: 'OKC_API.G_RET_STS_ERROR',
2021: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2022: (
2023: l_api_name,
2024: G_PKG_NAME,
2025: 'OKC_API.G_RET_STS_ERROR',
2026: x_msg_count,
2027: x_msg_data,
2028: '_PVT'
2029: );
2026: x_msg_count,
2027: x_msg_data,
2028: '_PVT'
2029: );
2030: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2031: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2032: (
2033: l_api_name,
2034: G_PKG_NAME,
2027: x_msg_data,
2028: '_PVT'
2029: );
2030: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2031: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2032: (
2033: l_api_name,
2034: G_PKG_NAME,
2035: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2031: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2032: (
2033: l_api_name,
2034: G_PKG_NAME,
2035: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2036: x_msg_count,
2037: x_msg_data,
2038: '_PVT'
2039: );
2037: x_msg_data,
2038: '_PVT'
2039: );
2040: WHEN OTHERS THEN
2041: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2042: (
2043: l_api_name,
2044: G_PKG_NAME,
2045: 'OTHERS',
2052: -- PL/SQL TBL insert_row for:CDTV_TBL --
2053: ----------------------------------------
2054: PROCEDURE insert_row(
2055: p_api_version IN NUMBER,
2056: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2057: x_return_status OUT NOCOPY VARCHAR2,
2058: x_msg_count OUT NOCOPY NUMBER,
2059: x_msg_data OUT NOCOPY VARCHAR2,
2060: p_cdtv_tbl IN cdtv_tbl_type,
2061: x_cdtv_tbl OUT NOCOPY cdtv_tbl_type) IS
2062:
2063: l_api_version CONSTANT NUMBER := 1;
2064: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2065: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2066: i NUMBER := 0;
2067: BEGIN
2068: OKC_API.init_msg_list(p_init_msg_list);
2069: -- Make sure PL/SQL table has records in it before passing
2064: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2065: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2066: i NUMBER := 0;
2067: BEGIN
2068: OKC_API.init_msg_list(p_init_msg_list);
2069: -- Make sure PL/SQL table has records in it before passing
2070: IF (p_cdtv_tbl.COUNT > 0) THEN
2071: i := p_cdtv_tbl.FIRST;
2072: LOOP
2071: i := p_cdtv_tbl.FIRST;
2072: LOOP
2073: insert_row (
2074: p_api_version => p_api_version,
2075: p_init_msg_list => OKC_API.G_FALSE,
2076: x_return_status => x_return_status,
2077: x_msg_count => x_msg_count,
2078: x_msg_data => x_msg_data,
2079: p_cdtv_rec => p_cdtv_tbl(i),
2082: i := p_cdtv_tbl.NEXT(i);
2083: END LOOP;
2084: END IF;
2085: EXCEPTION
2086: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2087: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2088: (
2089: l_api_name,
2090: G_PKG_NAME,
2083: END LOOP;
2084: END IF;
2085: EXCEPTION
2086: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2087: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2088: (
2089: l_api_name,
2090: G_PKG_NAME,
2091: 'OKC_API.G_RET_STS_ERROR',
2087: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2088: (
2089: l_api_name,
2090: G_PKG_NAME,
2091: 'OKC_API.G_RET_STS_ERROR',
2092: x_msg_count,
2093: x_msg_data,
2094: '_PVT'
2095: );
2092: x_msg_count,
2093: x_msg_data,
2094: '_PVT'
2095: );
2096: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2097: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2098: (
2099: l_api_name,
2100: G_PKG_NAME,
2093: x_msg_data,
2094: '_PVT'
2095: );
2096: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2097: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2098: (
2099: l_api_name,
2100: G_PKG_NAME,
2101: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2097: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2098: (
2099: l_api_name,
2100: G_PKG_NAME,
2101: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2102: x_msg_count,
2103: x_msg_data,
2104: '_PVT'
2105: );
2103: x_msg_data,
2104: '_PVT'
2105: );
2106: WHEN OTHERS THEN
2107: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2108: (
2109: l_api_name,
2110: G_PKG_NAME,
2111: 'OTHERS',
2121: ---------------------------------
2122: -- lock_row for:OKS_K_DEFAULTS --
2123: ---------------------------------
2124: PROCEDURE lock_row(
2125: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2126: x_return_status OUT NOCOPY VARCHAR2,
2127: x_msg_count OUT NOCOPY NUMBER,
2128: x_msg_data OUT NOCOPY VARCHAR2,
2129: p_cdt_rec IN cdt_rec_type) IS
2142: FROM OKS_K_DEFAULTS
2143: WHERE ID = p_cdt_rec.id;
2144: l_api_version CONSTANT NUMBER := 1;
2145: l_api_name CONSTANT VARCHAR2(30) := 'DEFAULTS_lock_row';
2146: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2147: l_object_version_number OKS_K_DEFAULTS.OBJECT_VERSION_NUMBER%TYPE;
2148: lc_object_version_number OKS_K_DEFAULTS.OBJECT_VERSION_NUMBER%TYPE;
2149: l_row_notfound BOOLEAN := FALSE;
2150: lc_row_notfound BOOLEAN := FALSE;
2148: lc_object_version_number OKS_K_DEFAULTS.OBJECT_VERSION_NUMBER%TYPE;
2149: l_row_notfound BOOLEAN := FALSE;
2150: lc_row_notfound BOOLEAN := FALSE;
2151: BEGIN
2152: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2153: p_init_msg_list,
2154: '_PVT',
2155: x_return_status);
2156: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2152: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2153: p_init_msg_list,
2154: '_PVT',
2155: x_return_status);
2156: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2157: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2158: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2159: RAISE OKC_API.G_EXCEPTION_ERROR;
2160: END IF;
2153: p_init_msg_list,
2154: '_PVT',
2155: x_return_status);
2156: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2157: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2158: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2159: RAISE OKC_API.G_EXCEPTION_ERROR;
2160: END IF;
2161: BEGIN
2154: '_PVT',
2155: x_return_status);
2156: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2157: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2158: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2159: RAISE OKC_API.G_EXCEPTION_ERROR;
2160: END IF;
2161: BEGIN
2162: OPEN lock_csr(p_cdt_rec);
2155: x_return_status);
2156: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2157: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2158: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2159: RAISE OKC_API.G_EXCEPTION_ERROR;
2160: END IF;
2161: BEGIN
2162: OPEN lock_csr(p_cdt_rec);
2163: FETCH lock_csr INTO l_object_version_number;
2167: WHEN E_Resource_Busy THEN
2168: IF (lock_csr%ISOPEN) THEN
2169: CLOSE lock_csr;
2170: END IF;
2171: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2172: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2173: END;
2174:
2175: IF ( l_row_notfound ) THEN
2178: lc_row_notfound := lchk_csr%NOTFOUND;
2179: CLOSE lchk_csr;
2180: END IF;
2181: IF (lc_row_notfound) THEN
2182: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2183: RAISE OKC_API.G_EXCEPTION_ERROR;
2184: ELSIF lc_object_version_number > p_cdt_rec.object_version_number THEN
2185: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2186: RAISE OKC_API.G_EXCEPTION_ERROR;
2179: CLOSE lchk_csr;
2180: END IF;
2181: IF (lc_row_notfound) THEN
2182: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2183: RAISE OKC_API.G_EXCEPTION_ERROR;
2184: ELSIF lc_object_version_number > p_cdt_rec.object_version_number THEN
2185: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2186: RAISE OKC_API.G_EXCEPTION_ERROR;
2187: ELSIF lc_object_version_number <> p_cdt_rec.object_version_number THEN
2181: IF (lc_row_notfound) THEN
2182: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2183: RAISE OKC_API.G_EXCEPTION_ERROR;
2184: ELSIF lc_object_version_number > p_cdt_rec.object_version_number THEN
2185: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2186: RAISE OKC_API.G_EXCEPTION_ERROR;
2187: ELSIF lc_object_version_number <> p_cdt_rec.object_version_number THEN
2188: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2189: RAISE OKC_API.G_EXCEPTION_ERROR;
2182: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2183: RAISE OKC_API.G_EXCEPTION_ERROR;
2184: ELSIF lc_object_version_number > p_cdt_rec.object_version_number THEN
2185: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2186: RAISE OKC_API.G_EXCEPTION_ERROR;
2187: ELSIF lc_object_version_number <> p_cdt_rec.object_version_number THEN
2188: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2189: RAISE OKC_API.G_EXCEPTION_ERROR;
2190: ELSIF lc_object_version_number = -1 THEN
2184: ELSIF lc_object_version_number > p_cdt_rec.object_version_number THEN
2185: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2186: RAISE OKC_API.G_EXCEPTION_ERROR;
2187: ELSIF lc_object_version_number <> p_cdt_rec.object_version_number THEN
2188: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2189: RAISE OKC_API.G_EXCEPTION_ERROR;
2190: ELSIF lc_object_version_number = -1 THEN
2191: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2192: RAISE OKC_API.G_EXCEPTION_ERROR;
2185: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2186: RAISE OKC_API.G_EXCEPTION_ERROR;
2187: ELSIF lc_object_version_number <> p_cdt_rec.object_version_number THEN
2188: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2189: RAISE OKC_API.G_EXCEPTION_ERROR;
2190: ELSIF lc_object_version_number = -1 THEN
2191: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2192: RAISE OKC_API.G_EXCEPTION_ERROR;
2193: END IF;
2187: ELSIF lc_object_version_number <> p_cdt_rec.object_version_number THEN
2188: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2189: RAISE OKC_API.G_EXCEPTION_ERROR;
2190: ELSIF lc_object_version_number = -1 THEN
2191: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2192: RAISE OKC_API.G_EXCEPTION_ERROR;
2193: END IF;
2194: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2195: EXCEPTION
2188: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2189: RAISE OKC_API.G_EXCEPTION_ERROR;
2190: ELSIF lc_object_version_number = -1 THEN
2191: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2192: RAISE OKC_API.G_EXCEPTION_ERROR;
2193: END IF;
2194: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2195: EXCEPTION
2196: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2190: ELSIF lc_object_version_number = -1 THEN
2191: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2192: RAISE OKC_API.G_EXCEPTION_ERROR;
2193: END IF;
2194: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2195: EXCEPTION
2196: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2197: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2198: (
2192: RAISE OKC_API.G_EXCEPTION_ERROR;
2193: END IF;
2194: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2195: EXCEPTION
2196: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2197: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2198: (
2199: l_api_name,
2200: G_PKG_NAME,
2193: END IF;
2194: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2195: EXCEPTION
2196: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2197: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2198: (
2199: l_api_name,
2200: G_PKG_NAME,
2201: 'OKC_API.G_RET_STS_ERROR',
2197: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2198: (
2199: l_api_name,
2200: G_PKG_NAME,
2201: 'OKC_API.G_RET_STS_ERROR',
2202: x_msg_count,
2203: x_msg_data,
2204: '_PVT'
2205: );
2202: x_msg_count,
2203: x_msg_data,
2204: '_PVT'
2205: );
2206: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2207: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2208: (
2209: l_api_name,
2210: G_PKG_NAME,
2203: x_msg_data,
2204: '_PVT'
2205: );
2206: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2207: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2208: (
2209: l_api_name,
2210: G_PKG_NAME,
2211: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2207: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2208: (
2209: l_api_name,
2210: G_PKG_NAME,
2211: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2212: x_msg_count,
2213: x_msg_data,
2214: '_PVT'
2215: );
2213: x_msg_data,
2214: '_PVT'
2215: );
2216: WHEN OTHERS THEN
2217: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2218: (
2219: l_api_name,
2220: G_PKG_NAME,
2221: 'OTHERS',
2228: -- lock_row for:OKS_K_DEFAULTS_V --
2229: -----------------------------------
2230: PROCEDURE lock_row(
2231: p_api_version IN NUMBER,
2232: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2233: x_return_status OUT NOCOPY VARCHAR2,
2234: x_msg_count OUT NOCOPY NUMBER,
2235: x_msg_data OUT NOCOPY VARCHAR2,
2236: p_cdtv_rec IN cdtv_rec_type) IS
2236: p_cdtv_rec IN cdtv_rec_type) IS
2237:
2238: l_api_version CONSTANT NUMBER := 1;
2239: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2240: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2241: l_cdt_rec cdt_rec_type;
2242: BEGIN
2243: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2244: G_PKG_NAME,
2239: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2240: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2241: l_cdt_rec cdt_rec_type;
2242: BEGIN
2243: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2244: G_PKG_NAME,
2245: p_init_msg_list,
2246: l_api_version,
2247: p_api_version,
2246: l_api_version,
2247: p_api_version,
2248: '_PVT',
2249: x_return_status);
2250: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2251: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2252: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2253: RAISE OKC_API.G_EXCEPTION_ERROR;
2254: END IF;
2247: p_api_version,
2248: '_PVT',
2249: x_return_status);
2250: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2251: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2252: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2253: RAISE OKC_API.G_EXCEPTION_ERROR;
2254: END IF;
2255: --------------------------------------
2248: '_PVT',
2249: x_return_status);
2250: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2251: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2252: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2253: RAISE OKC_API.G_EXCEPTION_ERROR;
2254: END IF;
2255: --------------------------------------
2256: -- Move VIEW record to "Child" records
2249: x_return_status);
2250: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2251: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2252: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2253: RAISE OKC_API.G_EXCEPTION_ERROR;
2254: END IF;
2255: --------------------------------------
2256: -- Move VIEW record to "Child" records
2257: --------------------------------------
2265: x_msg_count,
2266: x_msg_data,
2267: l_cdt_rec
2268: );
2269: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2270: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2271: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2272: RAISE OKC_API.G_EXCEPTION_ERROR;
2273: END IF;
2266: x_msg_data,
2267: l_cdt_rec
2268: );
2269: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2270: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2271: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2272: RAISE OKC_API.G_EXCEPTION_ERROR;
2273: END IF;
2274: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2267: l_cdt_rec
2268: );
2269: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2270: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2271: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2272: RAISE OKC_API.G_EXCEPTION_ERROR;
2273: END IF;
2274: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2275: EXCEPTION
2268: );
2269: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2270: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2271: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2272: RAISE OKC_API.G_EXCEPTION_ERROR;
2273: END IF;
2274: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2275: EXCEPTION
2276: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2270: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2271: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2272: RAISE OKC_API.G_EXCEPTION_ERROR;
2273: END IF;
2274: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2275: EXCEPTION
2276: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2277: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2278: (
2272: RAISE OKC_API.G_EXCEPTION_ERROR;
2273: END IF;
2274: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2275: EXCEPTION
2276: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2277: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2278: (
2279: l_api_name,
2280: G_PKG_NAME,
2273: END IF;
2274: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2275: EXCEPTION
2276: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2277: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2278: (
2279: l_api_name,
2280: G_PKG_NAME,
2281: 'OKC_API.G_RET_STS_ERROR',
2277: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2278: (
2279: l_api_name,
2280: G_PKG_NAME,
2281: 'OKC_API.G_RET_STS_ERROR',
2282: x_msg_count,
2283: x_msg_data,
2284: '_PVT'
2285: );
2282: x_msg_count,
2283: x_msg_data,
2284: '_PVT'
2285: );
2286: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2287: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2288: (
2289: l_api_name,
2290: G_PKG_NAME,
2283: x_msg_data,
2284: '_PVT'
2285: );
2286: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2287: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2288: (
2289: l_api_name,
2290: G_PKG_NAME,
2291: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2287: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2288: (
2289: l_api_name,
2290: G_PKG_NAME,
2291: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2292: x_msg_count,
2293: x_msg_data,
2294: '_PVT'
2295: );
2293: x_msg_data,
2294: '_PVT'
2295: );
2296: WHEN OTHERS THEN
2297: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2298: (
2299: l_api_name,
2300: G_PKG_NAME,
2301: 'OTHERS',
2308: -- PL/SQL TBL lock_row for:CDTV_TBL --
2309: --------------------------------------
2310: PROCEDURE lock_row(
2311: p_api_version IN NUMBER,
2312: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2313: x_return_status OUT NOCOPY VARCHAR2,
2314: x_msg_count OUT NOCOPY NUMBER,
2315: x_msg_data OUT NOCOPY VARCHAR2,
2316: p_cdtv_tbl IN cdtv_tbl_type) IS
2316: p_cdtv_tbl IN cdtv_tbl_type) IS
2317:
2318: l_api_version CONSTANT NUMBER := 1;
2319: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2320: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2321: i NUMBER := 0;
2322: BEGIN
2323: OKC_API.init_msg_list(p_init_msg_list);
2324: -- Make sure PL/SQL table has records in it before passing
2319: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2320: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2321: i NUMBER := 0;
2322: BEGIN
2323: OKC_API.init_msg_list(p_init_msg_list);
2324: -- Make sure PL/SQL table has records in it before passing
2325: IF (p_cdtv_tbl.COUNT > 0) THEN
2326: i := p_cdtv_tbl.FIRST;
2327: LOOP
2326: i := p_cdtv_tbl.FIRST;
2327: LOOP
2328: lock_row (
2329: p_api_version => p_api_version,
2330: p_init_msg_list => OKC_API.G_FALSE,
2331: x_return_status => x_return_status,
2332: x_msg_count => x_msg_count,
2333: x_msg_data => x_msg_data,
2334: p_cdtv_rec => p_cdtv_tbl(i));
2336: i := p_cdtv_tbl.NEXT(i);
2337: END LOOP;
2338: END IF;
2339: EXCEPTION
2340: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2341: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2342: (
2343: l_api_name,
2344: G_PKG_NAME,
2337: END LOOP;
2338: END IF;
2339: EXCEPTION
2340: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2341: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2342: (
2343: l_api_name,
2344: G_PKG_NAME,
2345: 'OKC_API.G_RET_STS_ERROR',
2341: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2342: (
2343: l_api_name,
2344: G_PKG_NAME,
2345: 'OKC_API.G_RET_STS_ERROR',
2346: x_msg_count,
2347: x_msg_data,
2348: '_PVT'
2349: );
2346: x_msg_count,
2347: x_msg_data,
2348: '_PVT'
2349: );
2350: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2351: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2352: (
2353: l_api_name,
2354: G_PKG_NAME,
2347: x_msg_data,
2348: '_PVT'
2349: );
2350: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2351: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2352: (
2353: l_api_name,
2354: G_PKG_NAME,
2355: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2351: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2352: (
2353: l_api_name,
2354: G_PKG_NAME,
2355: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2356: x_msg_count,
2357: x_msg_data,
2358: '_PVT'
2359: );
2357: x_msg_data,
2358: '_PVT'
2359: );
2360: WHEN OTHERS THEN
2361: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2362: (
2363: l_api_name,
2364: G_PKG_NAME,
2365: 'OTHERS',
2375: -----------------------------------
2376: -- update_row for:OKS_K_DEFAULTS --
2377: -----------------------------------
2378: PROCEDURE update_row(
2379: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2380: x_return_status OUT NOCOPY VARCHAR2,
2381: x_msg_count OUT NOCOPY NUMBER,
2382: x_msg_data OUT NOCOPY VARCHAR2,
2383: p_cdt_rec IN cdt_rec_type,
2384: x_cdt_rec OUT NOCOPY cdt_rec_type) IS
2385:
2386: l_api_version CONSTANT NUMBER := 1;
2387: l_api_name CONSTANT VARCHAR2(30) := 'DEFAULTS_update_row';
2388: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2389: l_cdt_rec cdt_rec_type := p_cdt_rec;
2390: l_def_cdt_rec cdt_rec_type;
2391: l_row_notfound BOOLEAN := TRUE;
2392: ----------------------------------
2397: x_cdt_rec OUT NOCOPY cdt_rec_type
2398: ) RETURN VARCHAR2 IS
2399: l_cdt_rec cdt_rec_type;
2400: l_row_notfound BOOLEAN := TRUE;
2401: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2402: BEGIN
2403: x_cdt_rec := p_cdt_rec;
2404: -- Get current database values
2405: l_cdt_rec := get_rec(p_cdt_rec, l_row_notfound);
2403: x_cdt_rec := p_cdt_rec;
2404: -- Get current database values
2405: l_cdt_rec := get_rec(p_cdt_rec, l_row_notfound);
2406: IF (l_row_notfound) THEN
2407: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2408: END IF;
2409: IF (x_cdt_rec.id = OKC_API.G_MISS_NUM)
2410: THEN
2411: x_cdt_rec.id := l_cdt_rec.id;
2405: l_cdt_rec := get_rec(p_cdt_rec, l_row_notfound);
2406: IF (l_row_notfound) THEN
2407: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2408: END IF;
2409: IF (x_cdt_rec.id = OKC_API.G_MISS_NUM)
2410: THEN
2411: x_cdt_rec.id := l_cdt_rec.id;
2412: END IF;
2413: IF (x_cdt_rec.cdt_type = OKC_API.G_MISS_CHAR)
2409: IF (x_cdt_rec.id = OKC_API.G_MISS_NUM)
2410: THEN
2411: x_cdt_rec.id := l_cdt_rec.id;
2412: END IF;
2413: IF (x_cdt_rec.cdt_type = OKC_API.G_MISS_CHAR)
2414: THEN
2415: x_cdt_rec.cdt_type := l_cdt_rec.cdt_type;
2416: END IF;
2417: IF (x_cdt_rec.object_version_number = OKC_API.G_MISS_NUM)
2413: IF (x_cdt_rec.cdt_type = OKC_API.G_MISS_CHAR)
2414: THEN
2415: x_cdt_rec.cdt_type := l_cdt_rec.cdt_type;
2416: END IF;
2417: IF (x_cdt_rec.object_version_number = OKC_API.G_MISS_NUM)
2418: THEN
2419: x_cdt_rec.object_version_number := l_cdt_rec.object_version_number;
2420: END IF;
2421: IF (x_cdt_rec.created_by = OKC_API.G_MISS_NUM)
2417: IF (x_cdt_rec.object_version_number = OKC_API.G_MISS_NUM)
2418: THEN
2419: x_cdt_rec.object_version_number := l_cdt_rec.object_version_number;
2420: END IF;
2421: IF (x_cdt_rec.created_by = OKC_API.G_MISS_NUM)
2422: THEN
2423: x_cdt_rec.created_by := l_cdt_rec.created_by;
2424: END IF;
2425: IF (x_cdt_rec.creation_date = OKC_API.G_MISS_DATE)
2421: IF (x_cdt_rec.created_by = OKC_API.G_MISS_NUM)
2422: THEN
2423: x_cdt_rec.created_by := l_cdt_rec.created_by;
2424: END IF;
2425: IF (x_cdt_rec.creation_date = OKC_API.G_MISS_DATE)
2426: THEN
2427: x_cdt_rec.creation_date := l_cdt_rec.creation_date;
2428: END IF;
2429: IF (x_cdt_rec.last_updated_by = OKC_API.G_MISS_NUM)
2425: IF (x_cdt_rec.creation_date = OKC_API.G_MISS_DATE)
2426: THEN
2427: x_cdt_rec.creation_date := l_cdt_rec.creation_date;
2428: END IF;
2429: IF (x_cdt_rec.last_updated_by = OKC_API.G_MISS_NUM)
2430: THEN
2431: x_cdt_rec.last_updated_by := l_cdt_rec.last_updated_by;
2432: END IF;
2433: IF (x_cdt_rec.last_update_date = OKC_API.G_MISS_DATE)
2429: IF (x_cdt_rec.last_updated_by = OKC_API.G_MISS_NUM)
2430: THEN
2431: x_cdt_rec.last_updated_by := l_cdt_rec.last_updated_by;
2432: END IF;
2433: IF (x_cdt_rec.last_update_date = OKC_API.G_MISS_DATE)
2434: THEN
2435: x_cdt_rec.last_update_date := l_cdt_rec.last_update_date;
2436: END IF;
2437: IF (x_cdt_rec.segment_id1 = OKC_API.G_MISS_CHAR)
2433: IF (x_cdt_rec.last_update_date = OKC_API.G_MISS_DATE)
2434: THEN
2435: x_cdt_rec.last_update_date := l_cdt_rec.last_update_date;
2436: END IF;
2437: IF (x_cdt_rec.segment_id1 = OKC_API.G_MISS_CHAR)
2438: THEN
2439: x_cdt_rec.segment_id1 := l_cdt_rec.segment_id1;
2440: END IF;
2441: IF (x_cdt_rec.segment_id2 = OKC_API.G_MISS_CHAR)
2437: IF (x_cdt_rec.segment_id1 = OKC_API.G_MISS_CHAR)
2438: THEN
2439: x_cdt_rec.segment_id1 := l_cdt_rec.segment_id1;
2440: END IF;
2441: IF (x_cdt_rec.segment_id2 = OKC_API.G_MISS_CHAR)
2442: THEN
2443: x_cdt_rec.segment_id2 := l_cdt_rec.segment_id2;
2444: END IF;
2445: IF (x_cdt_rec.jtot_object_code = OKC_API.G_MISS_CHAR)
2441: IF (x_cdt_rec.segment_id2 = OKC_API.G_MISS_CHAR)
2442: THEN
2443: x_cdt_rec.segment_id2 := l_cdt_rec.segment_id2;
2444: END IF;
2445: IF (x_cdt_rec.jtot_object_code = OKC_API.G_MISS_CHAR)
2446: THEN
2447: x_cdt_rec.jtot_object_code := l_cdt_rec.jtot_object_code;
2448: END IF;
2449: IF (x_cdt_rec.pdf_id = OKC_API.G_MISS_NUM)
2445: IF (x_cdt_rec.jtot_object_code = OKC_API.G_MISS_CHAR)
2446: THEN
2447: x_cdt_rec.jtot_object_code := l_cdt_rec.jtot_object_code;
2448: END IF;
2449: IF (x_cdt_rec.pdf_id = OKC_API.G_MISS_NUM)
2450: THEN
2451: x_cdt_rec.pdf_id := l_cdt_rec.pdf_id;
2452: END IF;
2453: IF (x_cdt_rec.qcl_id = OKC_API.G_MISS_NUM)
2449: IF (x_cdt_rec.pdf_id = OKC_API.G_MISS_NUM)
2450: THEN
2451: x_cdt_rec.pdf_id := l_cdt_rec.pdf_id;
2452: END IF;
2453: IF (x_cdt_rec.qcl_id = OKC_API.G_MISS_NUM)
2454: THEN
2455: x_cdt_rec.qcl_id := l_cdt_rec.qcl_id;
2456: END IF;
2457: IF (x_cdt_rec.cgp_new_id = OKC_API.G_MISS_NUM)
2453: IF (x_cdt_rec.qcl_id = OKC_API.G_MISS_NUM)
2454: THEN
2455: x_cdt_rec.qcl_id := l_cdt_rec.qcl_id;
2456: END IF;
2457: IF (x_cdt_rec.cgp_new_id = OKC_API.G_MISS_NUM)
2458: THEN
2459: x_cdt_rec.cgp_new_id := l_cdt_rec.cgp_new_id;
2460: END IF;
2461: IF (x_cdt_rec.cgp_renew_id = OKC_API.G_MISS_NUM)
2457: IF (x_cdt_rec.cgp_new_id = OKC_API.G_MISS_NUM)
2458: THEN
2459: x_cdt_rec.cgp_new_id := l_cdt_rec.cgp_new_id;
2460: END IF;
2461: IF (x_cdt_rec.cgp_renew_id = OKC_API.G_MISS_NUM)
2462: THEN
2463: x_cdt_rec.cgp_renew_id := l_cdt_rec.cgp_renew_id;
2464: END IF;
2465: IF (x_cdt_rec.price_list_id1 = OKC_API.G_MISS_CHAR)
2461: IF (x_cdt_rec.cgp_renew_id = OKC_API.G_MISS_NUM)
2462: THEN
2463: x_cdt_rec.cgp_renew_id := l_cdt_rec.cgp_renew_id;
2464: END IF;
2465: IF (x_cdt_rec.price_list_id1 = OKC_API.G_MISS_CHAR)
2466: THEN
2467: x_cdt_rec.price_list_id1 := l_cdt_rec.price_list_id1;
2468: END IF;
2469: IF (x_cdt_rec.price_list_id2 = OKC_API.G_MISS_CHAR)
2465: IF (x_cdt_rec.price_list_id1 = OKC_API.G_MISS_CHAR)
2466: THEN
2467: x_cdt_rec.price_list_id1 := l_cdt_rec.price_list_id1;
2468: END IF;
2469: IF (x_cdt_rec.price_list_id2 = OKC_API.G_MISS_CHAR)
2470: THEN
2471: x_cdt_rec.price_list_id2 := l_cdt_rec.price_list_id2;
2472: END IF;
2473: IF (x_cdt_rec.renewal_type = OKC_API.G_MISS_CHAR)
2469: IF (x_cdt_rec.price_list_id2 = OKC_API.G_MISS_CHAR)
2470: THEN
2471: x_cdt_rec.price_list_id2 := l_cdt_rec.price_list_id2;
2472: END IF;
2473: IF (x_cdt_rec.renewal_type = OKC_API.G_MISS_CHAR)
2474: THEN
2475: x_cdt_rec.renewal_type := l_cdt_rec.renewal_type;
2476: END IF;
2477: IF (x_cdt_rec.po_required_yn = OKC_API.G_MISS_CHAR)
2473: IF (x_cdt_rec.renewal_type = OKC_API.G_MISS_CHAR)
2474: THEN
2475: x_cdt_rec.renewal_type := l_cdt_rec.renewal_type;
2476: END IF;
2477: IF (x_cdt_rec.po_required_yn = OKC_API.G_MISS_CHAR)
2478: THEN
2479: x_cdt_rec.po_required_yn := l_cdt_rec.po_required_yn;
2480: END IF;
2481: IF (x_cdt_rec.renewal_pricing_type = OKC_API.G_MISS_CHAR)
2477: IF (x_cdt_rec.po_required_yn = OKC_API.G_MISS_CHAR)
2478: THEN
2479: x_cdt_rec.po_required_yn := l_cdt_rec.po_required_yn;
2480: END IF;
2481: IF (x_cdt_rec.renewal_pricing_type = OKC_API.G_MISS_CHAR)
2482: THEN
2483: x_cdt_rec.renewal_pricing_type := l_cdt_rec.renewal_pricing_type;
2484: END IF;
2485: IF (x_cdt_rec.markup_percent = OKC_API.G_MISS_NUM)
2481: IF (x_cdt_rec.renewal_pricing_type = OKC_API.G_MISS_CHAR)
2482: THEN
2483: x_cdt_rec.renewal_pricing_type := l_cdt_rec.renewal_pricing_type;
2484: END IF;
2485: IF (x_cdt_rec.markup_percent = OKC_API.G_MISS_NUM)
2486: THEN
2487: x_cdt_rec.markup_percent := l_cdt_rec.markup_percent;
2488: END IF;
2489: IF (x_cdt_rec.rle_code= OKC_API.G_MISS_CHAR)
2485: IF (x_cdt_rec.markup_percent = OKC_API.G_MISS_NUM)
2486: THEN
2487: x_cdt_rec.markup_percent := l_cdt_rec.markup_percent;
2488: END IF;
2489: IF (x_cdt_rec.rle_code= OKC_API.G_MISS_CHAR)
2490: THEN
2491: x_cdt_rec.rle_code:= l_cdt_rec.rle_code;
2492: END IF;
2493: IF (x_cdt_rec.start_date = OKC_API.G_MISS_DATE)
2489: IF (x_cdt_rec.rle_code= OKC_API.G_MISS_CHAR)
2490: THEN
2491: x_cdt_rec.rle_code:= l_cdt_rec.rle_code;
2492: END IF;
2493: IF (x_cdt_rec.start_date = OKC_API.G_MISS_DATE)
2494: THEN
2495: x_cdt_rec.start_date := l_cdt_rec.start_date;
2496: END IF;
2497: IF (x_cdt_rec.end_date = OKC_API.G_MISS_DATE)
2493: IF (x_cdt_rec.start_date = OKC_API.G_MISS_DATE)
2494: THEN
2495: x_cdt_rec.start_date := l_cdt_rec.start_date;
2496: END IF;
2497: IF (x_cdt_rec.end_date = OKC_API.G_MISS_DATE)
2498: THEN
2499: x_cdt_rec.end_date := l_cdt_rec.end_date;
2500: END IF;
2501:
2499: x_cdt_rec.end_date := l_cdt_rec.end_date;
2500: END IF;
2501:
2502: /*
2503: IF (x_cdt_rec.security_group_id = OKC_API.G_MISS_NUM)
2504: THEN
2505: x_cdt_rec.security_group_id := l_cdt_rec.security_group_id;
2506: END IF;
2507: */
2505: x_cdt_rec.security_group_id := l_cdt_rec.security_group_id;
2506: END IF;
2507: */
2508:
2509: IF (x_cdt_rec.revenue_estimated_percent = OKC_API.G_MISS_NUM)
2510: THEN
2511: x_cdt_rec.revenue_estimated_percent := l_cdt_rec.revenue_estimated_percent;
2512: END IF;
2513: IF (x_cdt_rec.revenue_estimated_duration = OKC_API.G_MISS_NUM)
2509: IF (x_cdt_rec.revenue_estimated_percent = OKC_API.G_MISS_NUM)
2510: THEN
2511: x_cdt_rec.revenue_estimated_percent := l_cdt_rec.revenue_estimated_percent;
2512: END IF;
2513: IF (x_cdt_rec.revenue_estimated_duration = OKC_API.G_MISS_NUM)
2514: THEN
2515: x_cdt_rec.revenue_estimated_duration := l_cdt_rec.revenue_estimated_duration;
2516: END IF;
2517: IF (x_cdt_rec.revenue_estimated_period = OKC_API.G_MISS_CHAR)
2513: IF (x_cdt_rec.revenue_estimated_duration = OKC_API.G_MISS_NUM)
2514: THEN
2515: x_cdt_rec.revenue_estimated_duration := l_cdt_rec.revenue_estimated_duration;
2516: END IF;
2517: IF (x_cdt_rec.revenue_estimated_period = OKC_API.G_MISS_CHAR)
2518: THEN
2519: x_cdt_rec.revenue_estimated_period := l_cdt_rec.revenue_estimated_period;
2520: END IF;
2521: IF (x_cdt_rec.template_set_id = OKC_API.G_MISS_NUM)
2517: IF (x_cdt_rec.revenue_estimated_period = OKC_API.G_MISS_CHAR)
2518: THEN
2519: x_cdt_rec.revenue_estimated_period := l_cdt_rec.revenue_estimated_period;
2520: END IF;
2521: IF (x_cdt_rec.template_set_id = OKC_API.G_MISS_NUM)
2522: THEN
2523: x_cdt_rec.template_set_id := l_cdt_rec.template_set_id;
2524: END IF;
2525: IF (x_cdt_rec.THRESHOLD_CURRENCY = OKC_API.G_MISS_CHAR) THEN
2521: IF (x_cdt_rec.template_set_id = OKC_API.G_MISS_NUM)
2522: THEN
2523: x_cdt_rec.template_set_id := l_cdt_rec.template_set_id;
2524: END IF;
2525: IF (x_cdt_rec.THRESHOLD_CURRENCY = OKC_API.G_MISS_CHAR) THEN
2526: x_cdt_rec.THRESHOLD_CURRENCY := NULL;
2527: END IF;
2528: IF (x_cdt_rec.THRESHOLD_AMOUNT = OKC_API.G_MISS_NUM) THEN
2529: x_cdt_rec.THRESHOLD_AMOUNT := NULL;
2524: END IF;
2525: IF (x_cdt_rec.THRESHOLD_CURRENCY = OKC_API.G_MISS_CHAR) THEN
2526: x_cdt_rec.THRESHOLD_CURRENCY := NULL;
2527: END IF;
2528: IF (x_cdt_rec.THRESHOLD_AMOUNT = OKC_API.G_MISS_NUM) THEN
2529: x_cdt_rec.THRESHOLD_AMOUNT := NULL;
2530: END IF;
2531: IF (x_cdt_rec.EMAIL_ADDRESS = OKC_API.G_MISS_CHAR) THEN
2532: x_cdt_rec.EMAIL_ADDRESS := NULL;
2527: END IF;
2528: IF (x_cdt_rec.THRESHOLD_AMOUNT = OKC_API.G_MISS_NUM) THEN
2529: x_cdt_rec.THRESHOLD_AMOUNT := NULL;
2530: END IF;
2531: IF (x_cdt_rec.EMAIL_ADDRESS = OKC_API.G_MISS_CHAR) THEN
2532: x_cdt_rec.EMAIL_ADDRESS := NULL;
2533: END IF;
2534: IF (x_cdt_rec.BILLING_PROFILE_ID = OKC_API.G_MISS_NUM) THEN
2535: x_cdt_rec.BILLING_PROFILE_ID := NULL;
2530: END IF;
2531: IF (x_cdt_rec.EMAIL_ADDRESS = OKC_API.G_MISS_CHAR) THEN
2532: x_cdt_rec.EMAIL_ADDRESS := NULL;
2533: END IF;
2534: IF (x_cdt_rec.BILLING_PROFILE_ID = OKC_API.G_MISS_NUM) THEN
2535: x_cdt_rec.BILLING_PROFILE_ID := NULL;
2536: END IF;
2537: IF (x_cdt_rec.USER_ID = OKC_API.G_MISS_NUM) THEN
2538: x_cdt_rec.USER_ID := NULL;
2533: END IF;
2534: IF (x_cdt_rec.BILLING_PROFILE_ID = OKC_API.G_MISS_NUM) THEN
2535: x_cdt_rec.BILLING_PROFILE_ID := NULL;
2536: END IF;
2537: IF (x_cdt_rec.USER_ID = OKC_API.G_MISS_NUM) THEN
2538: x_cdt_rec.USER_ID := NULL;
2539: END IF;
2540: IF (x_cdt_rec.THRESHOLD_ENABLED_YN = OKC_API.G_MISS_CHAR) THEN
2541: x_cdt_rec.THRESHOLD_ENABLED_YN := NULL;
2536: END IF;
2537: IF (x_cdt_rec.USER_ID = OKC_API.G_MISS_NUM) THEN
2538: x_cdt_rec.USER_ID := NULL;
2539: END IF;
2540: IF (x_cdt_rec.THRESHOLD_ENABLED_YN = OKC_API.G_MISS_CHAR) THEN
2541: x_cdt_rec.THRESHOLD_ENABLED_YN := NULL;
2542: END IF;
2543: IF (x_cdt_rec.GRACE_PERIOD = OKC_API.G_MISS_CHAR) THEN
2544: x_cdt_rec.GRACE_PERIOD := NULL;
2539: END IF;
2540: IF (x_cdt_rec.THRESHOLD_ENABLED_YN = OKC_API.G_MISS_CHAR) THEN
2541: x_cdt_rec.THRESHOLD_ENABLED_YN := NULL;
2542: END IF;
2543: IF (x_cdt_rec.GRACE_PERIOD = OKC_API.G_MISS_CHAR) THEN
2544: x_cdt_rec.GRACE_PERIOD := NULL;
2545: END IF;
2546: IF (x_cdt_rec.GRACE_DURATION = OKC_API.G_MISS_NUM) THEN
2547: x_cdt_rec.GRACE_DURATION := NULL;
2542: END IF;
2543: IF (x_cdt_rec.GRACE_PERIOD = OKC_API.G_MISS_CHAR) THEN
2544: x_cdt_rec.GRACE_PERIOD := NULL;
2545: END IF;
2546: IF (x_cdt_rec.GRACE_DURATION = OKC_API.G_MISS_NUM) THEN
2547: x_cdt_rec.GRACE_DURATION := NULL;
2548: END IF;
2549: IF (x_cdt_rec.PAYMENT_TERMS_ID1 = OKC_API.G_MISS_CHAR) THEN
2550: x_cdt_rec.PAYMENT_TERMS_ID1 := NULL;
2545: END IF;
2546: IF (x_cdt_rec.GRACE_DURATION = OKC_API.G_MISS_NUM) THEN
2547: x_cdt_rec.GRACE_DURATION := NULL;
2548: END IF;
2549: IF (x_cdt_rec.PAYMENT_TERMS_ID1 = OKC_API.G_MISS_CHAR) THEN
2550: x_cdt_rec.PAYMENT_TERMS_ID1 := NULL;
2551: END IF;
2552: IF (x_cdt_rec.PAYMENT_TERMS_ID2 = OKC_API.G_MISS_CHAR) THEN
2553: x_cdt_rec.PAYMENT_TERMS_ID2 := NULL;
2548: END IF;
2549: IF (x_cdt_rec.PAYMENT_TERMS_ID1 = OKC_API.G_MISS_CHAR) THEN
2550: x_cdt_rec.PAYMENT_TERMS_ID1 := NULL;
2551: END IF;
2552: IF (x_cdt_rec.PAYMENT_TERMS_ID2 = OKC_API.G_MISS_CHAR) THEN
2553: x_cdt_rec.PAYMENT_TERMS_ID2 := NULL;
2554: END IF;
2555: IF (x_cdt_rec.EVERGREEN_THRESHOLD_CURR = OKC_API.G_MISS_CHAR) THEN
2556: x_cdt_rec.EVERGREEN_THRESHOLD_CURR := NULL;
2551: END IF;
2552: IF (x_cdt_rec.PAYMENT_TERMS_ID2 = OKC_API.G_MISS_CHAR) THEN
2553: x_cdt_rec.PAYMENT_TERMS_ID2 := NULL;
2554: END IF;
2555: IF (x_cdt_rec.EVERGREEN_THRESHOLD_CURR = OKC_API.G_MISS_CHAR) THEN
2556: x_cdt_rec.EVERGREEN_THRESHOLD_CURR := NULL;
2557: END IF;
2558: IF (x_cdt_rec.EVERGREEN_THRESHOLD_AMT = OKC_API.G_MISS_NUM) THEN
2559: x_cdt_rec.EVERGREEN_THRESHOLD_AMT := NULL;
2554: END IF;
2555: IF (x_cdt_rec.EVERGREEN_THRESHOLD_CURR = OKC_API.G_MISS_CHAR) THEN
2556: x_cdt_rec.EVERGREEN_THRESHOLD_CURR := NULL;
2557: END IF;
2558: IF (x_cdt_rec.EVERGREEN_THRESHOLD_AMT = OKC_API.G_MISS_NUM) THEN
2559: x_cdt_rec.EVERGREEN_THRESHOLD_AMT := NULL;
2560: END IF;
2561: IF (x_cdt_rec.PAYMENT_METHOD = OKC_API.G_MISS_CHAR) THEN
2562: x_cdt_rec.PAYMENT_METHOD := NULL;
2557: END IF;
2558: IF (x_cdt_rec.EVERGREEN_THRESHOLD_AMT = OKC_API.G_MISS_NUM) THEN
2559: x_cdt_rec.EVERGREEN_THRESHOLD_AMT := NULL;
2560: END IF;
2561: IF (x_cdt_rec.PAYMENT_METHOD = OKC_API.G_MISS_CHAR) THEN
2562: x_cdt_rec.PAYMENT_METHOD := NULL;
2563: END IF;
2564: IF (x_cdt_rec.PAYMENT_THRESHOLD_CURR = OKC_API.G_MISS_CHAR) THEN
2565: x_cdt_rec.PAYMENT_THRESHOLD_CURR := NULL;
2560: END IF;
2561: IF (x_cdt_rec.PAYMENT_METHOD = OKC_API.G_MISS_CHAR) THEN
2562: x_cdt_rec.PAYMENT_METHOD := NULL;
2563: END IF;
2564: IF (x_cdt_rec.PAYMENT_THRESHOLD_CURR = OKC_API.G_MISS_CHAR) THEN
2565: x_cdt_rec.PAYMENT_THRESHOLD_CURR := NULL;
2566: END IF;
2567: IF (x_cdt_rec.PAYMENT_THRESHOLD_AMT = OKC_API.G_MISS_NUM) THEN
2568: x_cdt_rec.PAYMENT_THRESHOLD_AMT := NULL;
2563: END IF;
2564: IF (x_cdt_rec.PAYMENT_THRESHOLD_CURR = OKC_API.G_MISS_CHAR) THEN
2565: x_cdt_rec.PAYMENT_THRESHOLD_CURR := NULL;
2566: END IF;
2567: IF (x_cdt_rec.PAYMENT_THRESHOLD_AMT = OKC_API.G_MISS_NUM) THEN
2568: x_cdt_rec.PAYMENT_THRESHOLD_AMT := NULL;
2569: END IF;
2570: IF (x_cdt_rec.INTERFACE_PRICE_BREAK = OKC_API.G_MISS_CHAR) THEN
2571: x_cdt_rec.INTERFACE_PRICE_BREAK := NULL;
2566: END IF;
2567: IF (x_cdt_rec.PAYMENT_THRESHOLD_AMT = OKC_API.G_MISS_NUM) THEN
2568: x_cdt_rec.PAYMENT_THRESHOLD_AMT := NULL;
2569: END IF;
2570: IF (x_cdt_rec.INTERFACE_PRICE_BREAK = OKC_API.G_MISS_CHAR) THEN
2571: x_cdt_rec.INTERFACE_PRICE_BREAK := NULL;
2572: END IF;
2573: IF (x_cdt_rec.CREDIT_AMOUNT = OKC_API.G_MISS_CHAR) THEN
2574: x_cdt_rec.CREDIT_AMOUNT := NULL;
2569: END IF;
2570: IF (x_cdt_rec.INTERFACE_PRICE_BREAK = OKC_API.G_MISS_CHAR) THEN
2571: x_cdt_rec.INTERFACE_PRICE_BREAK := NULL;
2572: END IF;
2573: IF (x_cdt_rec.CREDIT_AMOUNT = OKC_API.G_MISS_CHAR) THEN
2574: x_cdt_rec.CREDIT_AMOUNT := NULL;
2575: END IF;
2576:
2577: -- R12 Data Model Changes 4485150 Start
2574: x_cdt_rec.CREDIT_AMOUNT := NULL;
2575: END IF;
2576:
2577: -- R12 Data Model Changes 4485150 Start
2578: IF (x_cdt_rec.BASE_CURRENCY = OKC_API.G_MISS_CHAR) THEN
2579: x_cdt_rec.BASE_CURRENCY := NULL;
2580: END IF;
2581: IF (x_cdt_rec.APPROVAL_TYPE = OKC_API.G_MISS_CHAR) THEN
2582: x_cdt_rec.APPROVAL_TYPE := NULL;
2577: -- R12 Data Model Changes 4485150 Start
2578: IF (x_cdt_rec.BASE_CURRENCY = OKC_API.G_MISS_CHAR) THEN
2579: x_cdt_rec.BASE_CURRENCY := NULL;
2580: END IF;
2581: IF (x_cdt_rec.APPROVAL_TYPE = OKC_API.G_MISS_CHAR) THEN
2582: x_cdt_rec.APPROVAL_TYPE := NULL;
2583: END IF;
2584: IF (x_cdt_rec.EVERGREEN_APPROVAL_TYPE = OKC_API.G_MISS_CHAR) THEN
2585: x_cdt_rec.EVERGREEN_APPROVAL_TYPE := NULL;
2580: END IF;
2581: IF (x_cdt_rec.APPROVAL_TYPE = OKC_API.G_MISS_CHAR) THEN
2582: x_cdt_rec.APPROVAL_TYPE := NULL;
2583: END IF;
2584: IF (x_cdt_rec.EVERGREEN_APPROVAL_TYPE = OKC_API.G_MISS_CHAR) THEN
2585: x_cdt_rec.EVERGREEN_APPROVAL_TYPE := NULL;
2586: END IF;
2587: IF (x_cdt_rec.ONLINE_APPROVAL_TYPE = OKC_API.G_MISS_CHAR) THEN
2588: x_cdt_rec.ONLINE_APPROVAL_TYPE := NULL;
2583: END IF;
2584: IF (x_cdt_rec.EVERGREEN_APPROVAL_TYPE = OKC_API.G_MISS_CHAR) THEN
2585: x_cdt_rec.EVERGREEN_APPROVAL_TYPE := NULL;
2586: END IF;
2587: IF (x_cdt_rec.ONLINE_APPROVAL_TYPE = OKC_API.G_MISS_CHAR) THEN
2588: x_cdt_rec.ONLINE_APPROVAL_TYPE := NULL;
2589: END IF;
2590: IF (x_cdt_rec.PURCHASE_ORDER_FLAG = OKC_API.G_MISS_CHAR) THEN
2591: x_cdt_rec.PURCHASE_ORDER_FLAG := NULL;
2586: END IF;
2587: IF (x_cdt_rec.ONLINE_APPROVAL_TYPE = OKC_API.G_MISS_CHAR) THEN
2588: x_cdt_rec.ONLINE_APPROVAL_TYPE := NULL;
2589: END IF;
2590: IF (x_cdt_rec.PURCHASE_ORDER_FLAG = OKC_API.G_MISS_CHAR) THEN
2591: x_cdt_rec.PURCHASE_ORDER_FLAG := NULL;
2592: END IF;
2593: IF (x_cdt_rec.CREDIT_CARD_FLAG = OKC_API.G_MISS_CHAR) THEN
2594: x_cdt_rec.CREDIT_CARD_FLAG := NULL;
2589: END IF;
2590: IF (x_cdt_rec.PURCHASE_ORDER_FLAG = OKC_API.G_MISS_CHAR) THEN
2591: x_cdt_rec.PURCHASE_ORDER_FLAG := NULL;
2592: END IF;
2593: IF (x_cdt_rec.CREDIT_CARD_FLAG = OKC_API.G_MISS_CHAR) THEN
2594: x_cdt_rec.CREDIT_CARD_FLAG := NULL;
2595: END IF;
2596: IF (x_cdt_rec.WIRE_FLAG = OKC_API.G_MISS_CHAR) THEN
2597: x_cdt_rec.WIRE_FLAG := NULL;
2592: END IF;
2593: IF (x_cdt_rec.CREDIT_CARD_FLAG = OKC_API.G_MISS_CHAR) THEN
2594: x_cdt_rec.CREDIT_CARD_FLAG := NULL;
2595: END IF;
2596: IF (x_cdt_rec.WIRE_FLAG = OKC_API.G_MISS_CHAR) THEN
2597: x_cdt_rec.WIRE_FLAG := NULL;
2598: END IF;
2599: IF (x_cdt_rec.COMMITMENT_NUMBER_FLAG = OKC_API.G_MISS_CHAR) THEN
2600: x_cdt_rec.COMMITMENT_NUMBER_FLAG := NULL;
2595: END IF;
2596: IF (x_cdt_rec.WIRE_FLAG = OKC_API.G_MISS_CHAR) THEN
2597: x_cdt_rec.WIRE_FLAG := NULL;
2598: END IF;
2599: IF (x_cdt_rec.COMMITMENT_NUMBER_FLAG = OKC_API.G_MISS_CHAR) THEN
2600: x_cdt_rec.COMMITMENT_NUMBER_FLAG := NULL;
2601: END IF;
2602: IF (x_cdt_rec.CHECK_FLAG = OKC_API.G_MISS_CHAR) THEN
2603: x_cdt_rec.CHECK_FLAG := NULL;
2598: END IF;
2599: IF (x_cdt_rec.COMMITMENT_NUMBER_FLAG = OKC_API.G_MISS_CHAR) THEN
2600: x_cdt_rec.COMMITMENT_NUMBER_FLAG := NULL;
2601: END IF;
2602: IF (x_cdt_rec.CHECK_FLAG = OKC_API.G_MISS_CHAR) THEN
2603: x_cdt_rec.CHECK_FLAG := NULL;
2604: END IF;
2605: IF (x_cdt_rec.PERIOD_TYPE = OKC_API.G_MISS_CHAR) THEN
2606: x_cdt_rec.PERIOD_TYPE := NULL;
2601: END IF;
2602: IF (x_cdt_rec.CHECK_FLAG = OKC_API.G_MISS_CHAR) THEN
2603: x_cdt_rec.CHECK_FLAG := NULL;
2604: END IF;
2605: IF (x_cdt_rec.PERIOD_TYPE = OKC_API.G_MISS_CHAR) THEN
2606: x_cdt_rec.PERIOD_TYPE := NULL;
2607: END IF;
2608: IF (x_cdt_rec.PERIOD_START = OKC_API.G_MISS_CHAR) THEN
2609: x_cdt_rec.PERIOD_START := NULL;
2604: END IF;
2605: IF (x_cdt_rec.PERIOD_TYPE = OKC_API.G_MISS_CHAR) THEN
2606: x_cdt_rec.PERIOD_TYPE := NULL;
2607: END IF;
2608: IF (x_cdt_rec.PERIOD_START = OKC_API.G_MISS_CHAR) THEN
2609: x_cdt_rec.PERIOD_START := NULL;
2610: END IF;
2611: IF (x_cdt_rec.PRICE_UOM = OKC_API.G_MISS_CHAR) THEN
2612: x_cdt_rec.PRICE_UOM := NULL;
2607: END IF;
2608: IF (x_cdt_rec.PERIOD_START = OKC_API.G_MISS_CHAR) THEN
2609: x_cdt_rec.PERIOD_START := NULL;
2610: END IF;
2611: IF (x_cdt_rec.PRICE_UOM = OKC_API.G_MISS_CHAR) THEN
2612: x_cdt_rec.PRICE_UOM := NULL;
2613: END IF;
2614: IF (x_cdt_rec.TEMPLATE_LANGUAGE = OKC_API.G_MISS_CHAR) THEN
2615: x_cdt_rec.TEMPLATE_LANGUAGE := NULL;
2610: END IF;
2611: IF (x_cdt_rec.PRICE_UOM = OKC_API.G_MISS_CHAR) THEN
2612: x_cdt_rec.PRICE_UOM := NULL;
2613: END IF;
2614: IF (x_cdt_rec.TEMPLATE_LANGUAGE = OKC_API.G_MISS_CHAR) THEN
2615: x_cdt_rec.TEMPLATE_LANGUAGE := NULL;
2616: END IF;
2617:
2618: -- R12 Data Model Changes 4485150 End
2624: FUNCTION Set_Attributes (
2625: p_cdt_rec IN cdt_rec_type,
2626: x_cdt_rec OUT NOCOPY cdt_rec_type
2627: ) RETURN VARCHAR2 IS
2628: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2629: BEGIN
2630: x_cdt_rec := p_cdt_rec;
2631: RETURN(l_return_status);
2632: END Set_Attributes;
2630: x_cdt_rec := p_cdt_rec;
2631: RETURN(l_return_status);
2632: END Set_Attributes;
2633: BEGIN
2634: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2635: p_init_msg_list,
2636: '_PVT',
2637: x_return_status);
2638: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2634: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2635: p_init_msg_list,
2636: '_PVT',
2637: x_return_status);
2638: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2639: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2640: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2641: RAISE OKC_API.G_EXCEPTION_ERROR;
2642: END IF;
2635: p_init_msg_list,
2636: '_PVT',
2637: x_return_status);
2638: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2639: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2640: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2641: RAISE OKC_API.G_EXCEPTION_ERROR;
2642: END IF;
2643: --- Setting item attributes
2636: '_PVT',
2637: x_return_status);
2638: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2639: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2640: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2641: RAISE OKC_API.G_EXCEPTION_ERROR;
2642: END IF;
2643: --- Setting item attributes
2644: l_return_status := Set_Attributes(
2637: x_return_status);
2638: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2639: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2640: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2641: RAISE OKC_API.G_EXCEPTION_ERROR;
2642: END IF;
2643: --- Setting item attributes
2644: l_return_status := Set_Attributes(
2645: p_cdt_rec, -- IN
2644: l_return_status := Set_Attributes(
2645: p_cdt_rec, -- IN
2646: l_cdt_rec); -- OUT
2647: --- If any errors happen abort API
2648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2650: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2651: RAISE OKC_API.G_EXCEPTION_ERROR;
2652: END IF;
2645: p_cdt_rec, -- IN
2646: l_cdt_rec); -- OUT
2647: --- If any errors happen abort API
2648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2650: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2651: RAISE OKC_API.G_EXCEPTION_ERROR;
2652: END IF;
2653: l_return_status := populate_new_record(l_cdt_rec, l_def_cdt_rec);
2646: l_cdt_rec); -- OUT
2647: --- If any errors happen abort API
2648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2650: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2651: RAISE OKC_API.G_EXCEPTION_ERROR;
2652: END IF;
2653: l_return_status := populate_new_record(l_cdt_rec, l_def_cdt_rec);
2654: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2647: --- If any errors happen abort API
2648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2650: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2651: RAISE OKC_API.G_EXCEPTION_ERROR;
2652: END IF;
2653: l_return_status := populate_new_record(l_cdt_rec, l_def_cdt_rec);
2654: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2655: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2650: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2651: RAISE OKC_API.G_EXCEPTION_ERROR;
2652: END IF;
2653: l_return_status := populate_new_record(l_cdt_rec, l_def_cdt_rec);
2654: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2655: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2656: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2657: RAISE OKC_API.G_EXCEPTION_ERROR;
2658: END IF;
2651: RAISE OKC_API.G_EXCEPTION_ERROR;
2652: END IF;
2653: l_return_status := populate_new_record(l_cdt_rec, l_def_cdt_rec);
2654: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2655: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2656: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2657: RAISE OKC_API.G_EXCEPTION_ERROR;
2658: END IF;
2659: UPDATE OKS_K_DEFAULTS
2652: END IF;
2653: l_return_status := populate_new_record(l_cdt_rec, l_def_cdt_rec);
2654: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2655: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2656: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2657: RAISE OKC_API.G_EXCEPTION_ERROR;
2658: END IF;
2659: UPDATE OKS_K_DEFAULTS
2660: SET CDT_TYPE = l_def_cdt_rec.cdt_type,
2653: l_return_status := populate_new_record(l_cdt_rec, l_def_cdt_rec);
2654: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2655: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2656: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2657: RAISE OKC_API.G_EXCEPTION_ERROR;
2658: END IF;
2659: UPDATE OKS_K_DEFAULTS
2660: SET CDT_TYPE = l_def_cdt_rec.cdt_type,
2661: OBJECT_VERSION_NUMBER = l_def_cdt_rec.object_version_number,
2718: -- R12 Data Model Changes 4485150 End
2719: WHERE ID = l_def_cdt_rec.id;
2720:
2721: x_cdt_rec := l_def_cdt_rec;
2722: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2723: EXCEPTION
2724: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2725: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2726: (
2720:
2721: x_cdt_rec := l_def_cdt_rec;
2722: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2723: EXCEPTION
2724: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2725: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2726: (
2727: l_api_name,
2728: G_PKG_NAME,
2721: x_cdt_rec := l_def_cdt_rec;
2722: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2723: EXCEPTION
2724: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2725: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2726: (
2727: l_api_name,
2728: G_PKG_NAME,
2729: 'OKC_API.G_RET_STS_ERROR',
2725: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2726: (
2727: l_api_name,
2728: G_PKG_NAME,
2729: 'OKC_API.G_RET_STS_ERROR',
2730: x_msg_count,
2731: x_msg_data,
2732: '_PVT'
2733: );
2730: x_msg_count,
2731: x_msg_data,
2732: '_PVT'
2733: );
2734: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2735: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2736: (
2737: l_api_name,
2738: G_PKG_NAME,
2731: x_msg_data,
2732: '_PVT'
2733: );
2734: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2735: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2736: (
2737: l_api_name,
2738: G_PKG_NAME,
2739: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2735: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2736: (
2737: l_api_name,
2738: G_PKG_NAME,
2739: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2740: x_msg_count,
2741: x_msg_data,
2742: '_PVT'
2743: );
2741: x_msg_data,
2742: '_PVT'
2743: );
2744: WHEN OTHERS THEN
2745: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2746: (
2747: l_api_name,
2748: G_PKG_NAME,
2749: 'OTHERS',
2756: -- update_row for:OKS_K_DEFAULTS_V --
2757: -------------------------------------
2758: PROCEDURE update_row(
2759: p_api_version IN NUMBER,
2760: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2761: x_return_status OUT NOCOPY VARCHAR2,
2762: x_msg_count OUT NOCOPY NUMBER,
2763: x_msg_data OUT NOCOPY VARCHAR2,
2764: p_cdtv_rec IN cdtv_rec_type,
2765: x_cdtv_rec OUT NOCOPY cdtv_rec_type) IS
2766:
2767: l_api_version CONSTANT NUMBER := 1;
2768: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2769: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2770: l_cdtv_rec cdtv_rec_type := p_cdtv_rec;
2771: l_def_cdtv_rec cdtv_rec_type;
2772: l_cdt_rec cdt_rec_type;
2773: lx_cdt_rec cdt_rec_type;
2791: x_cdtv_rec OUT NOCOPY cdtv_rec_type
2792: ) RETURN VARCHAR2 IS
2793: l_cdtv_rec cdtv_rec_type;
2794: l_row_notfound BOOLEAN := TRUE;
2795: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2796: BEGIN
2797: x_cdtv_rec := p_cdtv_rec;
2798: -- Get current database values
2799: l_cdtv_rec := get_rec(p_cdtv_rec, l_row_notfound);
2797: x_cdtv_rec := p_cdtv_rec;
2798: -- Get current database values
2799: l_cdtv_rec := get_rec(p_cdtv_rec, l_row_notfound);
2800: IF (l_row_notfound) THEN
2801: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2802: END IF;
2803: IF (x_cdtv_rec.id = OKC_API.G_MISS_NUM)
2804: THEN
2805: x_cdtv_rec.id := l_cdtv_rec.id;
2799: l_cdtv_rec := get_rec(p_cdtv_rec, l_row_notfound);
2800: IF (l_row_notfound) THEN
2801: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2802: END IF;
2803: IF (x_cdtv_rec.id = OKC_API.G_MISS_NUM)
2804: THEN
2805: x_cdtv_rec.id := l_cdtv_rec.id;
2806: END IF;
2807: IF (x_cdtv_rec.cdt_type = OKC_API.G_MISS_CHAR)
2803: IF (x_cdtv_rec.id = OKC_API.G_MISS_NUM)
2804: THEN
2805: x_cdtv_rec.id := l_cdtv_rec.id;
2806: END IF;
2807: IF (x_cdtv_rec.cdt_type = OKC_API.G_MISS_CHAR)
2808: THEN
2809: x_cdtv_rec.cdt_type := l_cdtv_rec.cdt_type;
2810: END IF;
2811: IF (x_cdtv_rec.object_version_number = OKC_API.G_MISS_NUM)
2807: IF (x_cdtv_rec.cdt_type = OKC_API.G_MISS_CHAR)
2808: THEN
2809: x_cdtv_rec.cdt_type := l_cdtv_rec.cdt_type;
2810: END IF;
2811: IF (x_cdtv_rec.object_version_number = OKC_API.G_MISS_NUM)
2812: THEN
2813: x_cdtv_rec.object_version_number := l_cdtv_rec.object_version_number;
2814: END IF;
2815: IF (x_cdtv_rec.created_by = OKC_API.G_MISS_NUM)
2811: IF (x_cdtv_rec.object_version_number = OKC_API.G_MISS_NUM)
2812: THEN
2813: x_cdtv_rec.object_version_number := l_cdtv_rec.object_version_number;
2814: END IF;
2815: IF (x_cdtv_rec.created_by = OKC_API.G_MISS_NUM)
2816: THEN
2817: x_cdtv_rec.created_by := l_cdtv_rec.created_by;
2818: END IF;
2819: IF (x_cdtv_rec.creation_date = OKC_API.G_MISS_DATE)
2815: IF (x_cdtv_rec.created_by = OKC_API.G_MISS_NUM)
2816: THEN
2817: x_cdtv_rec.created_by := l_cdtv_rec.created_by;
2818: END IF;
2819: IF (x_cdtv_rec.creation_date = OKC_API.G_MISS_DATE)
2820: THEN
2821: x_cdtv_rec.creation_date := l_cdtv_rec.creation_date;
2822: END IF;
2823: IF (x_cdtv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2819: IF (x_cdtv_rec.creation_date = OKC_API.G_MISS_DATE)
2820: THEN
2821: x_cdtv_rec.creation_date := l_cdtv_rec.creation_date;
2822: END IF;
2823: IF (x_cdtv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2824: THEN
2825: x_cdtv_rec.last_updated_by := l_cdtv_rec.last_updated_by;
2826: END IF;
2827: IF (x_cdtv_rec.last_update_date = OKC_API.G_MISS_DATE)
2823: IF (x_cdtv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2824: THEN
2825: x_cdtv_rec.last_updated_by := l_cdtv_rec.last_updated_by;
2826: END IF;
2827: IF (x_cdtv_rec.last_update_date = OKC_API.G_MISS_DATE)
2828: THEN
2829: x_cdtv_rec.last_update_date := l_cdtv_rec.last_update_date;
2830: END IF;
2831: IF (x_cdtv_rec.segment_id1 = OKC_API.G_MISS_CHAR)
2827: IF (x_cdtv_rec.last_update_date = OKC_API.G_MISS_DATE)
2828: THEN
2829: x_cdtv_rec.last_update_date := l_cdtv_rec.last_update_date;
2830: END IF;
2831: IF (x_cdtv_rec.segment_id1 = OKC_API.G_MISS_CHAR)
2832: THEN
2833: x_cdtv_rec.segment_id1 := l_cdtv_rec.segment_id1;
2834: END IF;
2835: IF (x_cdtv_rec.segment_id2 = OKC_API.G_MISS_CHAR)
2831: IF (x_cdtv_rec.segment_id1 = OKC_API.G_MISS_CHAR)
2832: THEN
2833: x_cdtv_rec.segment_id1 := l_cdtv_rec.segment_id1;
2834: END IF;
2835: IF (x_cdtv_rec.segment_id2 = OKC_API.G_MISS_CHAR)
2836: THEN
2837: x_cdtv_rec.segment_id2 := l_cdtv_rec.segment_id2;
2838: END IF;
2839: IF (x_cdtv_rec.jtot_object_code = OKC_API.G_MISS_CHAR)
2835: IF (x_cdtv_rec.segment_id2 = OKC_API.G_MISS_CHAR)
2836: THEN
2837: x_cdtv_rec.segment_id2 := l_cdtv_rec.segment_id2;
2838: END IF;
2839: IF (x_cdtv_rec.jtot_object_code = OKC_API.G_MISS_CHAR)
2840: THEN
2841: x_cdtv_rec.jtot_object_code := l_cdtv_rec.jtot_object_code;
2842: END IF;
2843: IF (x_cdtv_rec.pdf_id = OKC_API.G_MISS_NUM)
2839: IF (x_cdtv_rec.jtot_object_code = OKC_API.G_MISS_CHAR)
2840: THEN
2841: x_cdtv_rec.jtot_object_code := l_cdtv_rec.jtot_object_code;
2842: END IF;
2843: IF (x_cdtv_rec.pdf_id = OKC_API.G_MISS_NUM)
2844: THEN
2845: x_cdtv_rec.pdf_id := l_cdtv_rec.pdf_id;
2846: END IF;
2847: IF (x_cdtv_rec.qcl_id = OKC_API.G_MISS_NUM)
2843: IF (x_cdtv_rec.pdf_id = OKC_API.G_MISS_NUM)
2844: THEN
2845: x_cdtv_rec.pdf_id := l_cdtv_rec.pdf_id;
2846: END IF;
2847: IF (x_cdtv_rec.qcl_id = OKC_API.G_MISS_NUM)
2848: THEN
2849: x_cdtv_rec.qcl_id := l_cdtv_rec.qcl_id;
2850: END IF;
2851: IF (x_cdtv_rec.cgp_new_id = OKC_API.G_MISS_NUM)
2847: IF (x_cdtv_rec.qcl_id = OKC_API.G_MISS_NUM)
2848: THEN
2849: x_cdtv_rec.qcl_id := l_cdtv_rec.qcl_id;
2850: END IF;
2851: IF (x_cdtv_rec.cgp_new_id = OKC_API.G_MISS_NUM)
2852: THEN
2853: x_cdtv_rec.cgp_new_id := l_cdtv_rec.cgp_new_id;
2854: END IF;
2855: IF (x_cdtv_rec.cgp_renew_id = OKC_API.G_MISS_NUM)
2851: IF (x_cdtv_rec.cgp_new_id = OKC_API.G_MISS_NUM)
2852: THEN
2853: x_cdtv_rec.cgp_new_id := l_cdtv_rec.cgp_new_id;
2854: END IF;
2855: IF (x_cdtv_rec.cgp_renew_id = OKC_API.G_MISS_NUM)
2856: THEN
2857: x_cdtv_rec.cgp_renew_id := l_cdtv_rec.cgp_renew_id;
2858: END IF;
2859: IF (x_cdtv_rec.price_list_id1 = OKC_API.G_MISS_CHAR)
2855: IF (x_cdtv_rec.cgp_renew_id = OKC_API.G_MISS_NUM)
2856: THEN
2857: x_cdtv_rec.cgp_renew_id := l_cdtv_rec.cgp_renew_id;
2858: END IF;
2859: IF (x_cdtv_rec.price_list_id1 = OKC_API.G_MISS_CHAR)
2860: THEN
2861: x_cdtv_rec.price_list_id1 := l_cdtv_rec.price_list_id1;
2862: END IF;
2863: IF (x_cdtv_rec.price_list_id2 = OKC_API.G_MISS_CHAR)
2859: IF (x_cdtv_rec.price_list_id1 = OKC_API.G_MISS_CHAR)
2860: THEN
2861: x_cdtv_rec.price_list_id1 := l_cdtv_rec.price_list_id1;
2862: END IF;
2863: IF (x_cdtv_rec.price_list_id2 = OKC_API.G_MISS_CHAR)
2864: THEN
2865: x_cdtv_rec.price_list_id2 := l_cdtv_rec.price_list_id2;
2866: END IF;
2867: IF (x_cdtv_rec.renewal_type = OKC_API.G_MISS_CHAR)
2863: IF (x_cdtv_rec.price_list_id2 = OKC_API.G_MISS_CHAR)
2864: THEN
2865: x_cdtv_rec.price_list_id2 := l_cdtv_rec.price_list_id2;
2866: END IF;
2867: IF (x_cdtv_rec.renewal_type = OKC_API.G_MISS_CHAR)
2868: THEN
2869: x_cdtv_rec.renewal_type := l_cdtv_rec.renewal_type;
2870: END IF;
2871: IF (x_cdtv_rec.po_required_yn = OKC_API.G_MISS_CHAR)
2867: IF (x_cdtv_rec.renewal_type = OKC_API.G_MISS_CHAR)
2868: THEN
2869: x_cdtv_rec.renewal_type := l_cdtv_rec.renewal_type;
2870: END IF;
2871: IF (x_cdtv_rec.po_required_yn = OKC_API.G_MISS_CHAR)
2872: THEN
2873: x_cdtv_rec.po_required_yn := l_cdtv_rec.po_required_yn;
2874: END IF;
2875: IF (x_cdtv_rec.renewal_pricing_type = OKC_API.G_MISS_CHAR)
2871: IF (x_cdtv_rec.po_required_yn = OKC_API.G_MISS_CHAR)
2872: THEN
2873: x_cdtv_rec.po_required_yn := l_cdtv_rec.po_required_yn;
2874: END IF;
2875: IF (x_cdtv_rec.renewal_pricing_type = OKC_API.G_MISS_CHAR)
2876: THEN
2877: x_cdtv_rec.renewal_pricing_type := l_cdtv_rec.renewal_pricing_type;
2878: END IF;
2879: IF (x_cdtv_rec.markup_percent = OKC_API.G_MISS_NUM)
2875: IF (x_cdtv_rec.renewal_pricing_type = OKC_API.G_MISS_CHAR)
2876: THEN
2877: x_cdtv_rec.renewal_pricing_type := l_cdtv_rec.renewal_pricing_type;
2878: END IF;
2879: IF (x_cdtv_rec.markup_percent = OKC_API.G_MISS_NUM)
2880: THEN
2881: x_cdtv_rec.markup_percent := l_cdtv_rec.markup_percent;
2882: END IF;
2883: IF (x_cdtv_rec.rle_code= OKC_API.G_MISS_CHAR)
2879: IF (x_cdtv_rec.markup_percent = OKC_API.G_MISS_NUM)
2880: THEN
2881: x_cdtv_rec.markup_percent := l_cdtv_rec.markup_percent;
2882: END IF;
2883: IF (x_cdtv_rec.rle_code= OKC_API.G_MISS_CHAR)
2884: THEN
2885: x_cdtv_rec.rle_code:= l_cdtv_rec.rle_code;
2886: END IF;
2887: IF (x_cdtv_rec.start_date = OKC_API.G_MISS_DATE)
2883: IF (x_cdtv_rec.rle_code= OKC_API.G_MISS_CHAR)
2884: THEN
2885: x_cdtv_rec.rle_code:= l_cdtv_rec.rle_code;
2886: END IF;
2887: IF (x_cdtv_rec.start_date = OKC_API.G_MISS_DATE)
2888: THEN
2889: x_cdtv_rec.start_date := l_cdtv_rec.start_date;
2890: END IF;
2891: IF (x_cdtv_rec.end_date = OKC_API.G_MISS_DATE)
2887: IF (x_cdtv_rec.start_date = OKC_API.G_MISS_DATE)
2888: THEN
2889: x_cdtv_rec.start_date := l_cdtv_rec.start_date;
2890: END IF;
2891: IF (x_cdtv_rec.end_date = OKC_API.G_MISS_DATE)
2892: THEN
2893: x_cdtv_rec.end_date := l_cdtv_rec.end_date;
2894: END IF;
2895: IF (x_cdtv_rec.revenue_estimated_percent = OKC_API.G_MISS_NUM)
2891: IF (x_cdtv_rec.end_date = OKC_API.G_MISS_DATE)
2892: THEN
2893: x_cdtv_rec.end_date := l_cdtv_rec.end_date;
2894: END IF;
2895: IF (x_cdtv_rec.revenue_estimated_percent = OKC_API.G_MISS_NUM)
2896: THEN
2897: x_cdtv_rec.revenue_estimated_percent := l_cdtv_rec.revenue_estimated_percent;
2898: END IF;
2899: IF (x_cdtv_rec.revenue_estimated_duration = OKC_API.G_MISS_NUM)
2895: IF (x_cdtv_rec.revenue_estimated_percent = OKC_API.G_MISS_NUM)
2896: THEN
2897: x_cdtv_rec.revenue_estimated_percent := l_cdtv_rec.revenue_estimated_percent;
2898: END IF;
2899: IF (x_cdtv_rec.revenue_estimated_duration = OKC_API.G_MISS_NUM)
2900: THEN
2901: x_cdtv_rec.revenue_estimated_duration := l_cdtv_rec.revenue_estimated_duration;
2902: END IF;
2903: IF (x_cdtv_rec.revenue_estimated_period = OKC_API.G_MISS_CHAR)
2899: IF (x_cdtv_rec.revenue_estimated_duration = OKC_API.G_MISS_NUM)
2900: THEN
2901: x_cdtv_rec.revenue_estimated_duration := l_cdtv_rec.revenue_estimated_duration;
2902: END IF;
2903: IF (x_cdtv_rec.revenue_estimated_period = OKC_API.G_MISS_CHAR)
2904: THEN
2905: x_cdtv_rec.revenue_estimated_period := l_cdtv_rec.revenue_estimated_period;
2906: END IF;
2907: IF (x_cdtv_rec.template_set_id = OKC_API.G_MISS_NUM)
2903: IF (x_cdtv_rec.revenue_estimated_period = OKC_API.G_MISS_CHAR)
2904: THEN
2905: x_cdtv_rec.revenue_estimated_period := l_cdtv_rec.revenue_estimated_period;
2906: END IF;
2907: IF (x_cdtv_rec.template_set_id = OKC_API.G_MISS_NUM)
2908: THEN
2909: x_cdtv_rec.template_set_id := l_cdtv_rec.template_set_id;
2910: END IF;
2911: IF (x_cdtv_rec.THRESHOLD_CURRENCY = OKC_API.G_MISS_CHAR) THEN
2907: IF (x_cdtv_rec.template_set_id = OKC_API.G_MISS_NUM)
2908: THEN
2909: x_cdtv_rec.template_set_id := l_cdtv_rec.template_set_id;
2910: END IF;
2911: IF (x_cdtv_rec.THRESHOLD_CURRENCY = OKC_API.G_MISS_CHAR) THEN
2912: x_cdtv_rec.THRESHOLD_CURRENCY := l_cdtv_rec.THRESHOLD_CURRENCY;
2913: END IF;
2914: IF (x_cdtv_rec.THRESHOLD_AMOUNT = OKC_API.G_MISS_NUM) THEN
2915: x_cdtv_rec.THRESHOLD_AMOUNT := l_cdtv_rec.THRESHOLD_AMOUNT;
2910: END IF;
2911: IF (x_cdtv_rec.THRESHOLD_CURRENCY = OKC_API.G_MISS_CHAR) THEN
2912: x_cdtv_rec.THRESHOLD_CURRENCY := l_cdtv_rec.THRESHOLD_CURRENCY;
2913: END IF;
2914: IF (x_cdtv_rec.THRESHOLD_AMOUNT = OKC_API.G_MISS_NUM) THEN
2915: x_cdtv_rec.THRESHOLD_AMOUNT := l_cdtv_rec.THRESHOLD_AMOUNT;
2916: END IF;
2917: IF (x_cdtv_rec.EMAIL_ADDRESS = OKC_API.G_MISS_CHAR) THEN
2918: x_cdtv_rec.EMAIL_ADDRESS := l_cdtv_rec.EMAIL_ADDRESS;
2913: END IF;
2914: IF (x_cdtv_rec.THRESHOLD_AMOUNT = OKC_API.G_MISS_NUM) THEN
2915: x_cdtv_rec.THRESHOLD_AMOUNT := l_cdtv_rec.THRESHOLD_AMOUNT;
2916: END IF;
2917: IF (x_cdtv_rec.EMAIL_ADDRESS = OKC_API.G_MISS_CHAR) THEN
2918: x_cdtv_rec.EMAIL_ADDRESS := l_cdtv_rec.EMAIL_ADDRESS;
2919: END IF;
2920: IF (x_cdtv_rec.BILLING_PROFILE_ID = OKC_API.G_MISS_NUM) THEN
2921: x_cdtv_rec.BILLING_PROFILE_ID := l_cdtv_rec.BILLING_PROFILE_ID;
2916: END IF;
2917: IF (x_cdtv_rec.EMAIL_ADDRESS = OKC_API.G_MISS_CHAR) THEN
2918: x_cdtv_rec.EMAIL_ADDRESS := l_cdtv_rec.EMAIL_ADDRESS;
2919: END IF;
2920: IF (x_cdtv_rec.BILLING_PROFILE_ID = OKC_API.G_MISS_NUM) THEN
2921: x_cdtv_rec.BILLING_PROFILE_ID := l_cdtv_rec.BILLING_PROFILE_ID;
2922: END IF;
2923: IF (x_cdtv_rec.USER_ID = OKC_API.G_MISS_NUM) THEN
2924: x_cdtv_rec.USER_ID := l_cdtv_rec.USER_ID;
2919: END IF;
2920: IF (x_cdtv_rec.BILLING_PROFILE_ID = OKC_API.G_MISS_NUM) THEN
2921: x_cdtv_rec.BILLING_PROFILE_ID := l_cdtv_rec.BILLING_PROFILE_ID;
2922: END IF;
2923: IF (x_cdtv_rec.USER_ID = OKC_API.G_MISS_NUM) THEN
2924: x_cdtv_rec.USER_ID := l_cdtv_rec.USER_ID;
2925: END IF;
2926: IF (x_cdtv_rec.THRESHOLD_ENABLED_YN = OKC_API.G_MISS_CHAR) THEN
2927: x_cdtv_rec.THRESHOLD_ENABLED_YN := l_cdtv_rec.THRESHOLD_ENABLED_YN;
2922: END IF;
2923: IF (x_cdtv_rec.USER_ID = OKC_API.G_MISS_NUM) THEN
2924: x_cdtv_rec.USER_ID := l_cdtv_rec.USER_ID;
2925: END IF;
2926: IF (x_cdtv_rec.THRESHOLD_ENABLED_YN = OKC_API.G_MISS_CHAR) THEN
2927: x_cdtv_rec.THRESHOLD_ENABLED_YN := l_cdtv_rec.THRESHOLD_ENABLED_YN;
2928: END IF;
2929: IF (x_cdtv_rec.GRACE_PERIOD = OKC_API.G_MISS_CHAR) THEN
2930: x_cdtv_rec.GRACE_PERIOD := l_cdtv_rec.GRACE_PERIOD;
2925: END IF;
2926: IF (x_cdtv_rec.THRESHOLD_ENABLED_YN = OKC_API.G_MISS_CHAR) THEN
2927: x_cdtv_rec.THRESHOLD_ENABLED_YN := l_cdtv_rec.THRESHOLD_ENABLED_YN;
2928: END IF;
2929: IF (x_cdtv_rec.GRACE_PERIOD = OKC_API.G_MISS_CHAR) THEN
2930: x_cdtv_rec.GRACE_PERIOD := l_cdtv_rec.GRACE_PERIOD;
2931: END IF;
2932: IF (x_cdtv_rec.GRACE_DURATION = OKC_API.G_MISS_NUM) THEN
2933: x_cdtv_rec.GRACE_DURATION := l_cdtv_rec.GRACE_DURATION;
2928: END IF;
2929: IF (x_cdtv_rec.GRACE_PERIOD = OKC_API.G_MISS_CHAR) THEN
2930: x_cdtv_rec.GRACE_PERIOD := l_cdtv_rec.GRACE_PERIOD;
2931: END IF;
2932: IF (x_cdtv_rec.GRACE_DURATION = OKC_API.G_MISS_NUM) THEN
2933: x_cdtv_rec.GRACE_DURATION := l_cdtv_rec.GRACE_DURATION;
2934: END IF;
2935: IF (x_cdtv_rec.PAYMENT_TERMS_ID1 = OKC_API.G_MISS_CHAR) THEN
2936: x_cdtv_rec.PAYMENT_TERMS_ID1 := l_cdtv_rec.PAYMENT_TERMS_ID1;
2931: END IF;
2932: IF (x_cdtv_rec.GRACE_DURATION = OKC_API.G_MISS_NUM) THEN
2933: x_cdtv_rec.GRACE_DURATION := l_cdtv_rec.GRACE_DURATION;
2934: END IF;
2935: IF (x_cdtv_rec.PAYMENT_TERMS_ID1 = OKC_API.G_MISS_CHAR) THEN
2936: x_cdtv_rec.PAYMENT_TERMS_ID1 := l_cdtv_rec.PAYMENT_TERMS_ID1;
2937: END IF;
2938: IF (x_cdtv_rec.PAYMENT_TERMS_ID2 = OKC_API.G_MISS_CHAR) THEN
2939: x_cdtv_rec.PAYMENT_TERMS_ID2 := l_cdtv_rec.PAYMENT_TERMS_ID1;
2934: END IF;
2935: IF (x_cdtv_rec.PAYMENT_TERMS_ID1 = OKC_API.G_MISS_CHAR) THEN
2936: x_cdtv_rec.PAYMENT_TERMS_ID1 := l_cdtv_rec.PAYMENT_TERMS_ID1;
2937: END IF;
2938: IF (x_cdtv_rec.PAYMENT_TERMS_ID2 = OKC_API.G_MISS_CHAR) THEN
2939: x_cdtv_rec.PAYMENT_TERMS_ID2 := l_cdtv_rec.PAYMENT_TERMS_ID1;
2940: END IF;
2941: IF (x_cdtv_rec.EVERGREEN_THRESHOLD_CURR = OKC_API.G_MISS_CHAR) THEN
2942: x_cdtv_rec.EVERGREEN_THRESHOLD_CURR := l_cdtv_rec.EVERGREEN_THRESHOLD_CURR;
2937: END IF;
2938: IF (x_cdtv_rec.PAYMENT_TERMS_ID2 = OKC_API.G_MISS_CHAR) THEN
2939: x_cdtv_rec.PAYMENT_TERMS_ID2 := l_cdtv_rec.PAYMENT_TERMS_ID1;
2940: END IF;
2941: IF (x_cdtv_rec.EVERGREEN_THRESHOLD_CURR = OKC_API.G_MISS_CHAR) THEN
2942: x_cdtv_rec.EVERGREEN_THRESHOLD_CURR := l_cdtv_rec.EVERGREEN_THRESHOLD_CURR;
2943: END IF;
2944: IF (x_cdtv_rec.EVERGREEN_THRESHOLD_AMT = OKC_API.G_MISS_NUM) THEN
2945: x_cdtv_rec.EVERGREEN_THRESHOLD_AMT := l_cdtv_rec.EVERGREEN_THRESHOLD_AMT;
2940: END IF;
2941: IF (x_cdtv_rec.EVERGREEN_THRESHOLD_CURR = OKC_API.G_MISS_CHAR) THEN
2942: x_cdtv_rec.EVERGREEN_THRESHOLD_CURR := l_cdtv_rec.EVERGREEN_THRESHOLD_CURR;
2943: END IF;
2944: IF (x_cdtv_rec.EVERGREEN_THRESHOLD_AMT = OKC_API.G_MISS_NUM) THEN
2945: x_cdtv_rec.EVERGREEN_THRESHOLD_AMT := l_cdtv_rec.EVERGREEN_THRESHOLD_AMT;
2946: END IF;
2947: IF (x_cdtv_rec.PAYMENT_METHOD = OKC_API.G_MISS_CHAR) THEN
2948: x_cdtv_rec.PAYMENT_METHOD := l_cdtv_rec.PAYMENT_METHOD;
2943: END IF;
2944: IF (x_cdtv_rec.EVERGREEN_THRESHOLD_AMT = OKC_API.G_MISS_NUM) THEN
2945: x_cdtv_rec.EVERGREEN_THRESHOLD_AMT := l_cdtv_rec.EVERGREEN_THRESHOLD_AMT;
2946: END IF;
2947: IF (x_cdtv_rec.PAYMENT_METHOD = OKC_API.G_MISS_CHAR) THEN
2948: x_cdtv_rec.PAYMENT_METHOD := l_cdtv_rec.PAYMENT_METHOD;
2949: END IF;
2950: IF (x_cdtv_rec.PAYMENT_THRESHOLD_CURR = OKC_API.G_MISS_CHAR) THEN
2951: x_cdtv_rec.PAYMENT_THRESHOLD_CURR := l_cdtv_rec.PAYMENT_THRESHOLD_CURR;
2946: END IF;
2947: IF (x_cdtv_rec.PAYMENT_METHOD = OKC_API.G_MISS_CHAR) THEN
2948: x_cdtv_rec.PAYMENT_METHOD := l_cdtv_rec.PAYMENT_METHOD;
2949: END IF;
2950: IF (x_cdtv_rec.PAYMENT_THRESHOLD_CURR = OKC_API.G_MISS_CHAR) THEN
2951: x_cdtv_rec.PAYMENT_THRESHOLD_CURR := l_cdtv_rec.PAYMENT_THRESHOLD_CURR;
2952: END IF;
2953: IF (x_cdtv_rec.PAYMENT_THRESHOLD_AMT = OKC_API.G_MISS_NUM) THEN
2954: x_cdtv_rec.PAYMENT_THRESHOLD_AMT := l_cdtv_rec.PAYMENT_THRESHOLD_AMT;
2949: END IF;
2950: IF (x_cdtv_rec.PAYMENT_THRESHOLD_CURR = OKC_API.G_MISS_CHAR) THEN
2951: x_cdtv_rec.PAYMENT_THRESHOLD_CURR := l_cdtv_rec.PAYMENT_THRESHOLD_CURR;
2952: END IF;
2953: IF (x_cdtv_rec.PAYMENT_THRESHOLD_AMT = OKC_API.G_MISS_NUM) THEN
2954: x_cdtv_rec.PAYMENT_THRESHOLD_AMT := l_cdtv_rec.PAYMENT_THRESHOLD_AMT;
2955: END IF;
2956: IF (x_cdtv_rec.INTERFACE_PRICE_BREAK = OKC_API.G_MISS_CHAR) THEN
2957: x_cdtv_rec.INTERFACE_PRICE_BREAK := l_cdtv_rec.INTERFACE_PRICE_BREAK;
2952: END IF;
2953: IF (x_cdtv_rec.PAYMENT_THRESHOLD_AMT = OKC_API.G_MISS_NUM) THEN
2954: x_cdtv_rec.PAYMENT_THRESHOLD_AMT := l_cdtv_rec.PAYMENT_THRESHOLD_AMT;
2955: END IF;
2956: IF (x_cdtv_rec.INTERFACE_PRICE_BREAK = OKC_API.G_MISS_CHAR) THEN
2957: x_cdtv_rec.INTERFACE_PRICE_BREAK := l_cdtv_rec.INTERFACE_PRICE_BREAK;
2958: END IF;
2959: IF (x_cdtv_rec.CREDIT_AMOUNT = OKC_API.G_MISS_CHAR) THEN
2960: x_cdtv_rec.CREDIT_AMOUNT := l_cdtv_rec.CREDIT_AMOUNT;
2955: END IF;
2956: IF (x_cdtv_rec.INTERFACE_PRICE_BREAK = OKC_API.G_MISS_CHAR) THEN
2957: x_cdtv_rec.INTERFACE_PRICE_BREAK := l_cdtv_rec.INTERFACE_PRICE_BREAK;
2958: END IF;
2959: IF (x_cdtv_rec.CREDIT_AMOUNT = OKC_API.G_MISS_CHAR) THEN
2960: x_cdtv_rec.CREDIT_AMOUNT := l_cdtv_rec.CREDIT_AMOUNT;
2961: END IF;
2962: -- R12 Data Model Changes 4485150 Start /* mmadhavi 4485150 : add other columns */
2963: IF (x_cdtv_rec.PERIOD_TYPE = OKC_API.G_MISS_CHAR) THEN
2959: IF (x_cdtv_rec.CREDIT_AMOUNT = OKC_API.G_MISS_CHAR) THEN
2960: x_cdtv_rec.CREDIT_AMOUNT := l_cdtv_rec.CREDIT_AMOUNT;
2961: END IF;
2962: -- R12 Data Model Changes 4485150 Start /* mmadhavi 4485150 : add other columns */
2963: IF (x_cdtv_rec.PERIOD_TYPE = OKC_API.G_MISS_CHAR) THEN
2964: x_cdtv_rec.PERIOD_TYPE := l_cdtv_rec.PERIOD_TYPE;
2965: END IF;
2966: IF (x_cdtv_rec.PERIOD_START= OKC_API.G_MISS_CHAR) THEN
2967: x_cdtv_rec.PERIOD_START := l_cdtv_rec.PERIOD_START;
2962: -- R12 Data Model Changes 4485150 Start /* mmadhavi 4485150 : add other columns */
2963: IF (x_cdtv_rec.PERIOD_TYPE = OKC_API.G_MISS_CHAR) THEN
2964: x_cdtv_rec.PERIOD_TYPE := l_cdtv_rec.PERIOD_TYPE;
2965: END IF;
2966: IF (x_cdtv_rec.PERIOD_START= OKC_API.G_MISS_CHAR) THEN
2967: x_cdtv_rec.PERIOD_START := l_cdtv_rec.PERIOD_START;
2968: END IF;
2969: IF (x_cdtv_rec.PRICE_UOM = OKC_API.G_MISS_CHAR) THEN
2970: x_cdtv_rec.PRICE_UOM := l_cdtv_rec.PRICE_UOM;
2965: END IF;
2966: IF (x_cdtv_rec.PERIOD_START= OKC_API.G_MISS_CHAR) THEN
2967: x_cdtv_rec.PERIOD_START := l_cdtv_rec.PERIOD_START;
2968: END IF;
2969: IF (x_cdtv_rec.PRICE_UOM = OKC_API.G_MISS_CHAR) THEN
2970: x_cdtv_rec.PRICE_UOM := l_cdtv_rec.PRICE_UOM;
2971: END IF;
2972: IF (x_cdtv_rec.BASE_CURRENCY = OKC_API.G_MISS_CHAR) THEN
2973: x_cdtv_rec.BASE_CURRENCY := l_cdtv_rec.BASE_CURRENCY;
2968: END IF;
2969: IF (x_cdtv_rec.PRICE_UOM = OKC_API.G_MISS_CHAR) THEN
2970: x_cdtv_rec.PRICE_UOM := l_cdtv_rec.PRICE_UOM;
2971: END IF;
2972: IF (x_cdtv_rec.BASE_CURRENCY = OKC_API.G_MISS_CHAR) THEN
2973: x_cdtv_rec.BASE_CURRENCY := l_cdtv_rec.BASE_CURRENCY;
2974: END IF;
2975: IF (x_cdtv_rec.APPROVAL_TYPE= OKC_API.G_MISS_CHAR) THEN
2976: x_cdtv_rec.APPROVAL_TYPE := l_cdtv_rec.APPROVAL_TYPE;
2971: END IF;
2972: IF (x_cdtv_rec.BASE_CURRENCY = OKC_API.G_MISS_CHAR) THEN
2973: x_cdtv_rec.BASE_CURRENCY := l_cdtv_rec.BASE_CURRENCY;
2974: END IF;
2975: IF (x_cdtv_rec.APPROVAL_TYPE= OKC_API.G_MISS_CHAR) THEN
2976: x_cdtv_rec.APPROVAL_TYPE := l_cdtv_rec.APPROVAL_TYPE;
2977: END IF;
2978: IF (x_cdtv_rec.EVERGREEN_APPROVAL_TYPE = OKC_API.G_MISS_CHAR) THEN
2979: x_cdtv_rec.EVERGREEN_APPROVAL_TYPE := l_cdtv_rec.EVERGREEN_APPROVAL_TYPE;
2974: END IF;
2975: IF (x_cdtv_rec.APPROVAL_TYPE= OKC_API.G_MISS_CHAR) THEN
2976: x_cdtv_rec.APPROVAL_TYPE := l_cdtv_rec.APPROVAL_TYPE;
2977: END IF;
2978: IF (x_cdtv_rec.EVERGREEN_APPROVAL_TYPE = OKC_API.G_MISS_CHAR) THEN
2979: x_cdtv_rec.EVERGREEN_APPROVAL_TYPE := l_cdtv_rec.EVERGREEN_APPROVAL_TYPE;
2980: END IF;
2981: IF (x_cdtv_rec.ONLINE_APPROVAL_TYPE = OKC_API.G_MISS_CHAR) THEN
2982: x_cdtv_rec.ONLINE_APPROVAL_TYPE := l_cdtv_rec.ONLINE_APPROVAL_TYPE;
2977: END IF;
2978: IF (x_cdtv_rec.EVERGREEN_APPROVAL_TYPE = OKC_API.G_MISS_CHAR) THEN
2979: x_cdtv_rec.EVERGREEN_APPROVAL_TYPE := l_cdtv_rec.EVERGREEN_APPROVAL_TYPE;
2980: END IF;
2981: IF (x_cdtv_rec.ONLINE_APPROVAL_TYPE = OKC_API.G_MISS_CHAR) THEN
2982: x_cdtv_rec.ONLINE_APPROVAL_TYPE := l_cdtv_rec.ONLINE_APPROVAL_TYPE;
2983: END IF;
2984: IF (x_cdtv_rec.PURCHASE_ORDER_FLAG= OKC_API.G_MISS_CHAR) THEN
2985: x_cdtv_rec.PURCHASE_ORDER_FLAG := l_cdtv_rec.PURCHASE_ORDER_FLAG;
2980: END IF;
2981: IF (x_cdtv_rec.ONLINE_APPROVAL_TYPE = OKC_API.G_MISS_CHAR) THEN
2982: x_cdtv_rec.ONLINE_APPROVAL_TYPE := l_cdtv_rec.ONLINE_APPROVAL_TYPE;
2983: END IF;
2984: IF (x_cdtv_rec.PURCHASE_ORDER_FLAG= OKC_API.G_MISS_CHAR) THEN
2985: x_cdtv_rec.PURCHASE_ORDER_FLAG := l_cdtv_rec.PURCHASE_ORDER_FLAG;
2986: END IF;
2987: IF (x_cdtv_rec.CREDIT_CARD_FLAG = OKC_API.G_MISS_CHAR) THEN
2988: x_cdtv_rec.CREDIT_CARD_FLAG := l_cdtv_rec.CREDIT_CARD_FLAG;
2983: END IF;
2984: IF (x_cdtv_rec.PURCHASE_ORDER_FLAG= OKC_API.G_MISS_CHAR) THEN
2985: x_cdtv_rec.PURCHASE_ORDER_FLAG := l_cdtv_rec.PURCHASE_ORDER_FLAG;
2986: END IF;
2987: IF (x_cdtv_rec.CREDIT_CARD_FLAG = OKC_API.G_MISS_CHAR) THEN
2988: x_cdtv_rec.CREDIT_CARD_FLAG := l_cdtv_rec.CREDIT_CARD_FLAG;
2989: END IF;
2990: IF (x_cdtv_rec.WIRE_FLAG = OKC_API.G_MISS_CHAR) THEN
2991: x_cdtv_rec.WIRE_FLAG := l_cdtv_rec.WIRE_FLAG;
2986: END IF;
2987: IF (x_cdtv_rec.CREDIT_CARD_FLAG = OKC_API.G_MISS_CHAR) THEN
2988: x_cdtv_rec.CREDIT_CARD_FLAG := l_cdtv_rec.CREDIT_CARD_FLAG;
2989: END IF;
2990: IF (x_cdtv_rec.WIRE_FLAG = OKC_API.G_MISS_CHAR) THEN
2991: x_cdtv_rec.WIRE_FLAG := l_cdtv_rec.WIRE_FLAG;
2992: END IF;
2993: IF (x_cdtv_rec.COMMITMENT_NUMBER_FLAG= OKC_API.G_MISS_CHAR) THEN
2994: x_cdtv_rec.COMMITMENT_NUMBER_FLAG := l_cdtv_rec.COMMITMENT_NUMBER_FLAG;
2989: END IF;
2990: IF (x_cdtv_rec.WIRE_FLAG = OKC_API.G_MISS_CHAR) THEN
2991: x_cdtv_rec.WIRE_FLAG := l_cdtv_rec.WIRE_FLAG;
2992: END IF;
2993: IF (x_cdtv_rec.COMMITMENT_NUMBER_FLAG= OKC_API.G_MISS_CHAR) THEN
2994: x_cdtv_rec.COMMITMENT_NUMBER_FLAG := l_cdtv_rec.COMMITMENT_NUMBER_FLAG;
2995: END IF;
2996: IF (x_cdtv_rec.CHECK_FLAG = OKC_API.G_MISS_CHAR) THEN
2997: x_cdtv_rec.CHECK_FLAG := l_cdtv_rec.CHECK_FLAG;
2992: END IF;
2993: IF (x_cdtv_rec.COMMITMENT_NUMBER_FLAG= OKC_API.G_MISS_CHAR) THEN
2994: x_cdtv_rec.COMMITMENT_NUMBER_FLAG := l_cdtv_rec.COMMITMENT_NUMBER_FLAG;
2995: END IF;
2996: IF (x_cdtv_rec.CHECK_FLAG = OKC_API.G_MISS_CHAR) THEN
2997: x_cdtv_rec.CHECK_FLAG := l_cdtv_rec.CHECK_FLAG;
2998: END IF;
2999: IF (x_cdtv_rec.TEMPLATE_LANGUAGE = OKC_API.G_MISS_CHAR) THEN
3000: x_cdtv_rec.TEMPLATE_LANGUAGE := l_cdtv_rec.TEMPLATE_LANGUAGE;
2995: END IF;
2996: IF (x_cdtv_rec.CHECK_FLAG = OKC_API.G_MISS_CHAR) THEN
2997: x_cdtv_rec.CHECK_FLAG := l_cdtv_rec.CHECK_FLAG;
2998: END IF;
2999: IF (x_cdtv_rec.TEMPLATE_LANGUAGE = OKC_API.G_MISS_CHAR) THEN
3000: x_cdtv_rec.TEMPLATE_LANGUAGE := l_cdtv_rec.TEMPLATE_LANGUAGE;
3001: END IF;
3002: -- R12 Data Model Changes 4485150 End
3003:
3009: FUNCTION Set_Attributes (
3010: p_cdtv_rec IN cdtv_rec_type,
3011: x_cdtv_rec OUT NOCOPY cdtv_rec_type
3012: ) RETURN VARCHAR2 IS
3013: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3014: BEGIN
3015: x_cdtv_rec := p_cdtv_rec;
3016: x_cdtv_rec.OBJECT_VERSION_NUMBER := NVL(x_cdtv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
3017: RETURN(l_return_status);
3016: x_cdtv_rec.OBJECT_VERSION_NUMBER := NVL(x_cdtv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
3017: RETURN(l_return_status);
3018: END Set_Attributes;
3019: BEGIN
3020: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3021: G_PKG_NAME,
3022: p_init_msg_list,
3023: l_api_version,
3024: p_api_version,
3023: l_api_version,
3024: p_api_version,
3025: '_PVT',
3026: x_return_status);
3027: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3028: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3029: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3030: RAISE OKC_API.G_EXCEPTION_ERROR;
3031: END IF;
3024: p_api_version,
3025: '_PVT',
3026: x_return_status);
3027: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3028: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3029: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3030: RAISE OKC_API.G_EXCEPTION_ERROR;
3031: END IF;
3032: --- Setting item attributes
3025: '_PVT',
3026: x_return_status);
3027: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3028: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3029: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3030: RAISE OKC_API.G_EXCEPTION_ERROR;
3031: END IF;
3032: --- Setting item attributes
3033: l_return_status := Set_Attributes(
3026: x_return_status);
3027: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3028: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3029: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3030: RAISE OKC_API.G_EXCEPTION_ERROR;
3031: END IF;
3032: --- Setting item attributes
3033: l_return_status := Set_Attributes(
3034: p_cdtv_rec, -- IN
3033: l_return_status := Set_Attributes(
3034: p_cdtv_rec, -- IN
3035: l_cdtv_rec); -- OUT
3036: --- If any errors happen abort API
3037: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3038: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3039: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3040: RAISE OKC_API.G_EXCEPTION_ERROR;
3041: END IF;
3034: p_cdtv_rec, -- IN
3035: l_cdtv_rec); -- OUT
3036: --- If any errors happen abort API
3037: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3038: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3039: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3040: RAISE OKC_API.G_EXCEPTION_ERROR;
3041: END IF;
3042: l_return_status := populate_new_record(l_cdtv_rec, l_def_cdtv_rec);
3035: l_cdtv_rec); -- OUT
3036: --- If any errors happen abort API
3037: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3038: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3039: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3040: RAISE OKC_API.G_EXCEPTION_ERROR;
3041: END IF;
3042: l_return_status := populate_new_record(l_cdtv_rec, l_def_cdtv_rec);
3043: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3036: --- If any errors happen abort API
3037: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3038: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3039: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3040: RAISE OKC_API.G_EXCEPTION_ERROR;
3041: END IF;
3042: l_return_status := populate_new_record(l_cdtv_rec, l_def_cdtv_rec);
3043: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3044: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3039: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3040: RAISE OKC_API.G_EXCEPTION_ERROR;
3041: END IF;
3042: l_return_status := populate_new_record(l_cdtv_rec, l_def_cdtv_rec);
3043: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3044: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3045: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3046: RAISE OKC_API.G_EXCEPTION_ERROR;
3047: END IF;
3040: RAISE OKC_API.G_EXCEPTION_ERROR;
3041: END IF;
3042: l_return_status := populate_new_record(l_cdtv_rec, l_def_cdtv_rec);
3043: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3044: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3045: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3046: RAISE OKC_API.G_EXCEPTION_ERROR;
3047: END IF;
3048: l_def_cdtv_rec := fill_who_columns(l_def_cdtv_rec);
3041: END IF;
3042: l_return_status := populate_new_record(l_cdtv_rec, l_def_cdtv_rec);
3043: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3044: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3045: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3046: RAISE OKC_API.G_EXCEPTION_ERROR;
3047: END IF;
3048: l_def_cdtv_rec := fill_who_columns(l_def_cdtv_rec);
3049: --- Validate all non-missing attributes (Item Level Validation)
3042: l_return_status := populate_new_record(l_cdtv_rec, l_def_cdtv_rec);
3043: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3044: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3045: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3046: RAISE OKC_API.G_EXCEPTION_ERROR;
3047: END IF;
3048: l_def_cdtv_rec := fill_who_columns(l_def_cdtv_rec);
3049: --- Validate all non-missing attributes (Item Level Validation)
3050: l_return_status := Validate_Attributes(l_def_cdtv_rec);
3048: l_def_cdtv_rec := fill_who_columns(l_def_cdtv_rec);
3049: --- Validate all non-missing attributes (Item Level Validation)
3050: l_return_status := Validate_Attributes(l_def_cdtv_rec);
3051: --- If any errors happen abort API
3052: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3053: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3054: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3055: RAISE OKC_API.G_EXCEPTION_ERROR;
3056: END IF;
3049: --- Validate all non-missing attributes (Item Level Validation)
3050: l_return_status := Validate_Attributes(l_def_cdtv_rec);
3051: --- If any errors happen abort API
3052: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3053: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3054: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3055: RAISE OKC_API.G_EXCEPTION_ERROR;
3056: END IF;
3057: l_return_status := Validate_Record(l_def_cdtv_rec);
3050: l_return_status := Validate_Attributes(l_def_cdtv_rec);
3051: --- If any errors happen abort API
3052: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3053: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3054: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3055: RAISE OKC_API.G_EXCEPTION_ERROR;
3056: END IF;
3057: l_return_status := Validate_Record(l_def_cdtv_rec);
3058: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3051: --- If any errors happen abort API
3052: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3053: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3054: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3055: RAISE OKC_API.G_EXCEPTION_ERROR;
3056: END IF;
3057: l_return_status := Validate_Record(l_def_cdtv_rec);
3058: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3059: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3054: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3055: RAISE OKC_API.G_EXCEPTION_ERROR;
3056: END IF;
3057: l_return_status := Validate_Record(l_def_cdtv_rec);
3058: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3059: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3060: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3061: RAISE OKC_API.G_EXCEPTION_ERROR;
3062: END IF;
3055: RAISE OKC_API.G_EXCEPTION_ERROR;
3056: END IF;
3057: l_return_status := Validate_Record(l_def_cdtv_rec);
3058: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3059: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3060: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3061: RAISE OKC_API.G_EXCEPTION_ERROR;
3062: END IF;
3063:
3056: END IF;
3057: l_return_status := Validate_Record(l_def_cdtv_rec);
3058: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3059: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3060: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3061: RAISE OKC_API.G_EXCEPTION_ERROR;
3062: END IF;
3063:
3064: --------------------------------------
3057: l_return_status := Validate_Record(l_def_cdtv_rec);
3058: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3059: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3060: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3061: RAISE OKC_API.G_EXCEPTION_ERROR;
3062: END IF;
3063:
3064: --------------------------------------
3065: -- Move VIEW record to "Child" records
3075: x_msg_data,
3076: l_cdt_rec,
3077: lx_cdt_rec
3078: );
3079: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3080: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3081: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3082: RAISE OKC_API.G_EXCEPTION_ERROR;
3083: END IF;
3076: l_cdt_rec,
3077: lx_cdt_rec
3078: );
3079: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3080: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3081: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3082: RAISE OKC_API.G_EXCEPTION_ERROR;
3083: END IF;
3084: migrate(lx_cdt_rec, l_def_cdtv_rec);
3077: lx_cdt_rec
3078: );
3079: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3080: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3081: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3082: RAISE OKC_API.G_EXCEPTION_ERROR;
3083: END IF;
3084: migrate(lx_cdt_rec, l_def_cdtv_rec);
3085: x_cdtv_rec := l_def_cdtv_rec;
3078: );
3079: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3080: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3081: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3082: RAISE OKC_API.G_EXCEPTION_ERROR;
3083: END IF;
3084: migrate(lx_cdt_rec, l_def_cdtv_rec);
3085: x_cdtv_rec := l_def_cdtv_rec;
3086: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3082: RAISE OKC_API.G_EXCEPTION_ERROR;
3083: END IF;
3084: migrate(lx_cdt_rec, l_def_cdtv_rec);
3085: x_cdtv_rec := l_def_cdtv_rec;
3086: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3087: EXCEPTION
3088: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3089: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3090: (
3084: migrate(lx_cdt_rec, l_def_cdtv_rec);
3085: x_cdtv_rec := l_def_cdtv_rec;
3086: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3087: EXCEPTION
3088: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3089: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3090: (
3091: l_api_name,
3092: G_PKG_NAME,
3085: x_cdtv_rec := l_def_cdtv_rec;
3086: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3087: EXCEPTION
3088: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3089: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3090: (
3091: l_api_name,
3092: G_PKG_NAME,
3093: 'OKC_API.G_RET_STS_ERROR',
3089: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3090: (
3091: l_api_name,
3092: G_PKG_NAME,
3093: 'OKC_API.G_RET_STS_ERROR',
3094: x_msg_count,
3095: x_msg_data,
3096: '_PVT'
3097: );
3094: x_msg_count,
3095: x_msg_data,
3096: '_PVT'
3097: );
3098: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3099: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3100: (
3101: l_api_name,
3102: G_PKG_NAME,
3095: x_msg_data,
3096: '_PVT'
3097: );
3098: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3099: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3100: (
3101: l_api_name,
3102: G_PKG_NAME,
3103: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3099: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3100: (
3101: l_api_name,
3102: G_PKG_NAME,
3103: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3104: x_msg_count,
3105: x_msg_data,
3106: '_PVT'
3107: );
3105: x_msg_data,
3106: '_PVT'
3107: );
3108: WHEN OTHERS THEN
3109: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3110: (
3111: l_api_name,
3112: G_PKG_NAME,
3113: 'OTHERS',
3120: -- PL/SQL TBL update_row for:CDTV_TBL --
3121: ----------------------------------------
3122: PROCEDURE update_row(
3123: p_api_version IN NUMBER,
3124: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3125: x_return_status OUT NOCOPY VARCHAR2,
3126: x_msg_count OUT NOCOPY NUMBER,
3127: x_msg_data OUT NOCOPY VARCHAR2,
3128: p_cdtv_tbl IN cdtv_tbl_type,
3129: x_cdtv_tbl OUT NOCOPY cdtv_tbl_type) IS
3130:
3131: l_api_version CONSTANT NUMBER := 1;
3132: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3133: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3134: i NUMBER := 0;
3135: BEGIN
3136: OKC_API.init_msg_list(p_init_msg_list);
3137: -- Make sure PL/SQL table has records in it before passing
3132: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3133: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3134: i NUMBER := 0;
3135: BEGIN
3136: OKC_API.init_msg_list(p_init_msg_list);
3137: -- Make sure PL/SQL table has records in it before passing
3138: IF (p_cdtv_tbl.COUNT > 0) THEN
3139: i := p_cdtv_tbl.FIRST;
3140: LOOP
3139: i := p_cdtv_tbl.FIRST;
3140: LOOP
3141: update_row (
3142: p_api_version => p_api_version,
3143: p_init_msg_list => OKC_API.G_FALSE,
3144: x_return_status => x_return_status,
3145: x_msg_count => x_msg_count,
3146: x_msg_data => x_msg_data,
3147: p_cdtv_rec => p_cdtv_tbl(i),
3150: i := p_cdtv_tbl.NEXT(i);
3151: END LOOP;
3152: END IF;
3153: EXCEPTION
3154: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3155: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3156: (
3157: l_api_name,
3158: G_PKG_NAME,
3151: END LOOP;
3152: END IF;
3153: EXCEPTION
3154: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3155: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3156: (
3157: l_api_name,
3158: G_PKG_NAME,
3159: 'OKC_API.G_RET_STS_ERROR',
3155: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3156: (
3157: l_api_name,
3158: G_PKG_NAME,
3159: 'OKC_API.G_RET_STS_ERROR',
3160: x_msg_count,
3161: x_msg_data,
3162: '_PVT'
3163: );
3160: x_msg_count,
3161: x_msg_data,
3162: '_PVT'
3163: );
3164: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3165: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3166: (
3167: l_api_name,
3168: G_PKG_NAME,
3161: x_msg_data,
3162: '_PVT'
3163: );
3164: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3165: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3166: (
3167: l_api_name,
3168: G_PKG_NAME,
3169: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3165: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3166: (
3167: l_api_name,
3168: G_PKG_NAME,
3169: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3170: x_msg_count,
3171: x_msg_data,
3172: '_PVT'
3173: );
3171: x_msg_data,
3172: '_PVT'
3173: );
3174: WHEN OTHERS THEN
3175: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3176: (
3177: l_api_name,
3178: G_PKG_NAME,
3179: 'OTHERS',
3189: -----------------------------------
3190: -- delete_row for:OKS_K_DEFAULTS --
3191: -----------------------------------
3192: PROCEDURE delete_row(
3193: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3194: x_return_status OUT NOCOPY VARCHAR2,
3195: x_msg_count OUT NOCOPY NUMBER,
3196: x_msg_data OUT NOCOPY VARCHAR2,
3197: p_cdt_rec IN cdt_rec_type) IS
3197: p_cdt_rec IN cdt_rec_type) IS
3198:
3199: l_api_version CONSTANT NUMBER := 1;
3200: l_api_name CONSTANT VARCHAR2(30) := 'DEFAULTS_delete_row';
3201: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3202: l_cdt_rec cdt_rec_type:= p_cdt_rec;
3203: l_row_notfound BOOLEAN := TRUE;
3204: BEGIN
3205: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3201: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3202: l_cdt_rec cdt_rec_type:= p_cdt_rec;
3203: l_row_notfound BOOLEAN := TRUE;
3204: BEGIN
3205: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3206: p_init_msg_list,
3207: '_PVT',
3208: x_return_status);
3209: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3205: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3206: p_init_msg_list,
3207: '_PVT',
3208: x_return_status);
3209: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3210: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3211: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3212: RAISE OKC_API.G_EXCEPTION_ERROR;
3213: END IF;
3206: p_init_msg_list,
3207: '_PVT',
3208: x_return_status);
3209: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3210: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3211: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3212: RAISE OKC_API.G_EXCEPTION_ERROR;
3213: END IF;
3214: DELETE FROM OKS_K_DEFAULTS
3207: '_PVT',
3208: x_return_status);
3209: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3210: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3211: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3212: RAISE OKC_API.G_EXCEPTION_ERROR;
3213: END IF;
3214: DELETE FROM OKS_K_DEFAULTS
3215: WHERE ID = l_cdt_rec.id;
3208: x_return_status);
3209: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3210: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3211: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3212: RAISE OKC_API.G_EXCEPTION_ERROR;
3213: END IF;
3214: DELETE FROM OKS_K_DEFAULTS
3215: WHERE ID = l_cdt_rec.id;
3216:
3213: END IF;
3214: DELETE FROM OKS_K_DEFAULTS
3215: WHERE ID = l_cdt_rec.id;
3216:
3217: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3218: EXCEPTION
3219: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3220: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3221: (
3215: WHERE ID = l_cdt_rec.id;
3216:
3217: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3218: EXCEPTION
3219: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3220: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3221: (
3222: l_api_name,
3223: G_PKG_NAME,
3216:
3217: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3218: EXCEPTION
3219: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3220: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3221: (
3222: l_api_name,
3223: G_PKG_NAME,
3224: 'OKC_API.G_RET_STS_ERROR',
3220: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3221: (
3222: l_api_name,
3223: G_PKG_NAME,
3224: 'OKC_API.G_RET_STS_ERROR',
3225: x_msg_count,
3226: x_msg_data,
3227: '_PVT'
3228: );
3225: x_msg_count,
3226: x_msg_data,
3227: '_PVT'
3228: );
3229: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3230: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3231: (
3232: l_api_name,
3233: G_PKG_NAME,
3226: x_msg_data,
3227: '_PVT'
3228: );
3229: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3230: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3231: (
3232: l_api_name,
3233: G_PKG_NAME,
3234: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3230: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3231: (
3232: l_api_name,
3233: G_PKG_NAME,
3234: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3235: x_msg_count,
3236: x_msg_data,
3237: '_PVT'
3238: );
3236: x_msg_data,
3237: '_PVT'
3238: );
3239: WHEN OTHERS THEN
3240: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3241: (
3242: l_api_name,
3243: G_PKG_NAME,
3244: 'OTHERS',
3251: -- delete_row for:OKS_K_DEFAULTS_V --
3252: -------------------------------------
3253: PROCEDURE delete_row(
3254: p_api_version IN NUMBER,
3255: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3256: x_return_status OUT NOCOPY VARCHAR2,
3257: x_msg_count OUT NOCOPY NUMBER,
3258: x_msg_data OUT NOCOPY VARCHAR2,
3259: p_cdtv_rec IN cdtv_rec_type) IS
3259: p_cdtv_rec IN cdtv_rec_type) IS
3260:
3261: l_api_version CONSTANT NUMBER := 1;
3262: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3263: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3264: l_cdtv_rec cdtv_rec_type := p_cdtv_rec;
3265: l_cdt_rec cdt_rec_type;
3266: BEGIN
3267: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3263: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3264: l_cdtv_rec cdtv_rec_type := p_cdtv_rec;
3265: l_cdt_rec cdt_rec_type;
3266: BEGIN
3267: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3268: G_PKG_NAME,
3269: p_init_msg_list,
3270: l_api_version,
3271: p_api_version,
3270: l_api_version,
3271: p_api_version,
3272: '_PVT',
3273: x_return_status);
3274: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3275: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3276: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3277: RAISE OKC_API.G_EXCEPTION_ERROR;
3278: END IF;
3271: p_api_version,
3272: '_PVT',
3273: x_return_status);
3274: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3275: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3276: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3277: RAISE OKC_API.G_EXCEPTION_ERROR;
3278: END IF;
3279: --------------------------------------
3272: '_PVT',
3273: x_return_status);
3274: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3275: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3276: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3277: RAISE OKC_API.G_EXCEPTION_ERROR;
3278: END IF;
3279: --------------------------------------
3280: -- Move VIEW record to "Child" records
3273: x_return_status);
3274: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3275: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3276: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3277: RAISE OKC_API.G_EXCEPTION_ERROR;
3278: END IF;
3279: --------------------------------------
3280: -- Move VIEW record to "Child" records
3281: --------------------------------------
3289: x_msg_count,
3290: x_msg_data,
3291: l_cdt_rec
3292: );
3293: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3294: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3295: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3296: RAISE OKC_API.G_EXCEPTION_ERROR;
3297: END IF;
3290: x_msg_data,
3291: l_cdt_rec
3292: );
3293: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3294: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3295: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3296: RAISE OKC_API.G_EXCEPTION_ERROR;
3297: END IF;
3298: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3291: l_cdt_rec
3292: );
3293: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3294: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3295: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3296: RAISE OKC_API.G_EXCEPTION_ERROR;
3297: END IF;
3298: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3299: EXCEPTION
3292: );
3293: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3294: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3295: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3296: RAISE OKC_API.G_EXCEPTION_ERROR;
3297: END IF;
3298: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3299: EXCEPTION
3300: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3294: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3295: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3296: RAISE OKC_API.G_EXCEPTION_ERROR;
3297: END IF;
3298: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3299: EXCEPTION
3300: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3301: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3302: (
3296: RAISE OKC_API.G_EXCEPTION_ERROR;
3297: END IF;
3298: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3299: EXCEPTION
3300: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3301: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3302: (
3303: l_api_name,
3304: G_PKG_NAME,
3297: END IF;
3298: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3299: EXCEPTION
3300: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3301: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3302: (
3303: l_api_name,
3304: G_PKG_NAME,
3305: 'OKC_API.G_RET_STS_ERROR',
3301: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3302: (
3303: l_api_name,
3304: G_PKG_NAME,
3305: 'OKC_API.G_RET_STS_ERROR',
3306: x_msg_count,
3307: x_msg_data,
3308: '_PVT'
3309: );
3306: x_msg_count,
3307: x_msg_data,
3308: '_PVT'
3309: );
3310: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3311: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3312: (
3313: l_api_name,
3314: G_PKG_NAME,
3307: x_msg_data,
3308: '_PVT'
3309: );
3310: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3311: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3312: (
3313: l_api_name,
3314: G_PKG_NAME,
3315: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3311: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3312: (
3313: l_api_name,
3314: G_PKG_NAME,
3315: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3316: x_msg_count,
3317: x_msg_data,
3318: '_PVT'
3319: );
3317: x_msg_data,
3318: '_PVT'
3319: );
3320: WHEN OTHERS THEN
3321: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3322: (
3323: l_api_name,
3324: G_PKG_NAME,
3325: 'OTHERS',
3332: -- PL/SQL TBL delete_row for:CDTV_TBL --
3333: ----------------------------------------
3334: PROCEDURE delete_row(
3335: p_api_version IN NUMBER,
3336: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3337: x_return_status OUT NOCOPY VARCHAR2,
3338: x_msg_count OUT NOCOPY NUMBER,
3339: x_msg_data OUT NOCOPY VARCHAR2,
3340: p_cdtv_tbl IN cdtv_tbl_type) IS
3340: p_cdtv_tbl IN cdtv_tbl_type) IS
3341:
3342: l_api_version CONSTANT NUMBER := 1;
3343: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3344: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3345: i NUMBER := 0;
3346: BEGIN
3347: OKC_API.init_msg_list(p_init_msg_list);
3348: -- Make sure PL/SQL table has records in it before passing
3343: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3344: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3345: i NUMBER := 0;
3346: BEGIN
3347: OKC_API.init_msg_list(p_init_msg_list);
3348: -- Make sure PL/SQL table has records in it before passing
3349: IF (p_cdtv_tbl.COUNT > 0) THEN
3350: i := p_cdtv_tbl.FIRST;
3351: LOOP
3350: i := p_cdtv_tbl.FIRST;
3351: LOOP
3352: delete_row (
3353: p_api_version => p_api_version,
3354: p_init_msg_list => OKC_API.G_FALSE,
3355: x_return_status => x_return_status,
3356: x_msg_count => x_msg_count,
3357: x_msg_data => x_msg_data,
3358: p_cdtv_rec => p_cdtv_tbl(i));
3360: i := p_cdtv_tbl.NEXT(i);
3361: END LOOP;
3362: END IF;
3363: EXCEPTION
3364: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3365: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3366: (
3367: l_api_name,
3368: G_PKG_NAME,
3361: END LOOP;
3362: END IF;
3363: EXCEPTION
3364: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3365: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3366: (
3367: l_api_name,
3368: G_PKG_NAME,
3369: 'OKC_API.G_RET_STS_ERROR',
3365: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3366: (
3367: l_api_name,
3368: G_PKG_NAME,
3369: 'OKC_API.G_RET_STS_ERROR',
3370: x_msg_count,
3371: x_msg_data,
3372: '_PVT'
3373: );
3370: x_msg_count,
3371: x_msg_data,
3372: '_PVT'
3373: );
3374: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3375: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3376: (
3377: l_api_name,
3378: G_PKG_NAME,
3371: x_msg_data,
3372: '_PVT'
3373: );
3374: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3375: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3376: (
3377: l_api_name,
3378: G_PKG_NAME,
3379: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3375: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3376: (
3377: l_api_name,
3378: G_PKG_NAME,
3379: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3380: x_msg_count,
3381: x_msg_data,
3382: '_PVT'
3383: );
3381: x_msg_data,
3382: '_PVT'
3383: );
3384: WHEN OTHERS THEN
3385: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3386: (
3387: l_api_name,
3388: G_PKG_NAME,
3389: 'OTHERS',