195: PROCEDURE add_language IS
196:
197: BEGIN
198:
199: DELETE FROM OKL_DISB_RULES_TL T
200:
201: WHERE NOT EXISTS (
202:
203: SELECT NULL
209: );
210:
211:
212:
213: UPDATE OKL_DISB_RULES_TL T SET(
214:
215: DESCRIPTION) = (SELECT
216:
217: B.DESCRIPTION
215: DESCRIPTION) = (SELECT
216:
217: B.DESCRIPTION
218:
219: FROM OKL_DISB_RULES_TL B
220:
221: WHERE B.DISB_RULE_ID = T.DISB_RULE_ID
222:
223: AND B.LANGUAGE = T.SOURCE_LANG)
231: SUBT.DISB_RULE_ID,
232:
233: SUBT.LANGUAGE
234:
235: FROM OKL_DISB_RULES_TL SUBB, OKL_DISB_RULES_TL SUBT
236:
237: WHERE SUBB.DISB_RULE_ID = SUBT.DISB_RULE_ID
238:
239: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
245: ));
246:
247:
248:
249: INSERT INTO OKL_DISB_RULES_TL (
250:
251: DISB_RULE_ID,
252:
253: LANGUAGE,
289: B.LAST_UPDATE_DATE,
290:
291: B.LAST_UPDATE_LOGIN
292:
293: FROM OKL_DISB_RULES_TL B, FND_LANGUAGES L
294:
295: WHERE L.INSTALLED_FLAG IN ('I', 'B')
296:
297: AND B.LANGUAGE = USERENV('LANG')
299: AND NOT EXISTS (
300:
301: SELECT NULL
302:
303: FROM OKL_DISB_RULES_TL T
304:
305: WHERE T.DISB_RULE_ID = B.DISB_RULE_ID
306:
307: AND T.LANGUAGE = L.LANGUAGE_CODE
526: END get_rec;
527:
528: ---------------------------------------------------------------------------
529:
530: -- FUNCTION get_rec for: OKL_DISB_RULES_TL
531:
532: ---------------------------------------------------------------------------
533:
534: FUNCTION get_rec (
532: ---------------------------------------------------------------------------
533:
534: FUNCTION get_rec (
535:
536: p_okl_disb_rules_tl_rec IN okl_disb_rules_tl_rec_type,
537:
538: x_no_data_found OUT NOCOPY BOOLEAN
539:
540: ) RETURN okl_disb_rules_tl_rec_type IS
536: p_okl_disb_rules_tl_rec IN okl_disb_rules_tl_rec_type,
537:
538: x_no_data_found OUT NOCOPY BOOLEAN
539:
540: ) RETURN okl_disb_rules_tl_rec_type IS
541:
542: CURSOR okl_drt_pk_csr (p_disb_rule_id IN NUMBER,
543:
544: p_language IN VARCHAR2) IS
564: LAST_UPDATE_DATE,
565:
566: LAST_UPDATE_LOGIN
567:
568: FROM Okl_Disb_Rules_Tl
569:
570: WHERE okl_disb_rules_tl.disb_rule_id = p_disb_rule_id
571:
572: AND okl_disb_rules_tl.language = p_language;
566: LAST_UPDATE_LOGIN
567:
568: FROM Okl_Disb_Rules_Tl
569:
570: WHERE okl_disb_rules_tl.disb_rule_id = p_disb_rule_id
571:
572: AND okl_disb_rules_tl.language = p_language;
573:
574: l_okl_drt_pk okl_drt_pk_csr%ROWTYPE;
568: FROM Okl_Disb_Rules_Tl
569:
570: WHERE okl_disb_rules_tl.disb_rule_id = p_disb_rule_id
571:
572: AND okl_disb_rules_tl.language = p_language;
573:
574: l_okl_drt_pk okl_drt_pk_csr%ROWTYPE;
575:
576: l_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
572: AND okl_disb_rules_tl.language = p_language;
573:
574: l_okl_drt_pk okl_drt_pk_csr%ROWTYPE;
575:
576: l_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
577:
578: BEGIN
579:
580: x_no_data_found := TRUE;
580: x_no_data_found := TRUE;
581:
582: -- Get current database values
583:
584: OPEN okl_drt_pk_csr (p_okl_disb_rules_tl_rec.disb_rule_id,
585:
586: p_okl_disb_rules_tl_rec.language);
587:
588: FETCH okl_drt_pk_csr INTO
582: -- Get current database values
583:
584: OPEN okl_drt_pk_csr (p_okl_disb_rules_tl_rec.disb_rule_id,
585:
586: p_okl_disb_rules_tl_rec.language);
587:
588: FETCH okl_drt_pk_csr INTO
589:
590: l_okl_disb_rules_tl_rec.disb_rule_id,
586: p_okl_disb_rules_tl_rec.language);
587:
588: FETCH okl_drt_pk_csr INTO
589:
590: l_okl_disb_rules_tl_rec.disb_rule_id,
591:
592: l_okl_disb_rules_tl_rec.language,
593:
594: l_okl_disb_rules_tl_rec.source_lang,
588: FETCH okl_drt_pk_csr INTO
589:
590: l_okl_disb_rules_tl_rec.disb_rule_id,
591:
592: l_okl_disb_rules_tl_rec.language,
593:
594: l_okl_disb_rules_tl_rec.source_lang,
595:
596: l_okl_disb_rules_tl_rec.sfwt_flag,
590: l_okl_disb_rules_tl_rec.disb_rule_id,
591:
592: l_okl_disb_rules_tl_rec.language,
593:
594: l_okl_disb_rules_tl_rec.source_lang,
595:
596: l_okl_disb_rules_tl_rec.sfwt_flag,
597:
598: l_okl_disb_rules_tl_rec.description,
592: l_okl_disb_rules_tl_rec.language,
593:
594: l_okl_disb_rules_tl_rec.source_lang,
595:
596: l_okl_disb_rules_tl_rec.sfwt_flag,
597:
598: l_okl_disb_rules_tl_rec.description,
599:
600: l_okl_disb_rules_tl_rec.created_by,
594: l_okl_disb_rules_tl_rec.source_lang,
595:
596: l_okl_disb_rules_tl_rec.sfwt_flag,
597:
598: l_okl_disb_rules_tl_rec.description,
599:
600: l_okl_disb_rules_tl_rec.created_by,
601:
602: l_okl_disb_rules_tl_rec.creation_date,
596: l_okl_disb_rules_tl_rec.sfwt_flag,
597:
598: l_okl_disb_rules_tl_rec.description,
599:
600: l_okl_disb_rules_tl_rec.created_by,
601:
602: l_okl_disb_rules_tl_rec.creation_date,
603:
604: l_okl_disb_rules_tl_rec.last_updated_by,
598: l_okl_disb_rules_tl_rec.description,
599:
600: l_okl_disb_rules_tl_rec.created_by,
601:
602: l_okl_disb_rules_tl_rec.creation_date,
603:
604: l_okl_disb_rules_tl_rec.last_updated_by,
605:
606: l_okl_disb_rules_tl_rec.last_update_date,
600: l_okl_disb_rules_tl_rec.created_by,
601:
602: l_okl_disb_rules_tl_rec.creation_date,
603:
604: l_okl_disb_rules_tl_rec.last_updated_by,
605:
606: l_okl_disb_rules_tl_rec.last_update_date,
607:
608: l_okl_disb_rules_tl_rec.last_update_login;
602: l_okl_disb_rules_tl_rec.creation_date,
603:
604: l_okl_disb_rules_tl_rec.last_updated_by,
605:
606: l_okl_disb_rules_tl_rec.last_update_date,
607:
608: l_okl_disb_rules_tl_rec.last_update_login;
609:
610: x_no_data_found := okl_drt_pk_csr%NOTFOUND;
604: l_okl_disb_rules_tl_rec.last_updated_by,
605:
606: l_okl_disb_rules_tl_rec.last_update_date,
607:
608: l_okl_disb_rules_tl_rec.last_update_login;
609:
610: x_no_data_found := okl_drt_pk_csr%NOTFOUND;
611:
612: CLOSE okl_drt_pk_csr;
610: x_no_data_found := okl_drt_pk_csr%NOTFOUND;
611:
612: CLOSE okl_drt_pk_csr;
613:
614: RETURN(l_okl_disb_rules_tl_rec);
615:
616: END get_rec;
617:
618:
624: ------------------------------------------------------------------
625:
626: FUNCTION get_rec (
627:
628: p_okl_disb_rules_tl_rec IN okl_disb_rules_tl_rec_type,
629:
630: x_return_status OUT NOCOPY VARCHAR2
631:
632: ) RETURN okl_disb_rules_tl_rec_type IS
628: p_okl_disb_rules_tl_rec IN okl_disb_rules_tl_rec_type,
629:
630: x_return_status OUT NOCOPY VARCHAR2
631:
632: ) RETURN okl_disb_rules_tl_rec_type IS
633:
634: l_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
635:
636: l_row_notfound BOOLEAN := TRUE;
630: x_return_status OUT NOCOPY VARCHAR2
631:
632: ) RETURN okl_disb_rules_tl_rec_type IS
633:
634: l_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
635:
636: l_row_notfound BOOLEAN := TRUE;
637:
638: BEGIN
638: BEGIN
639:
640: x_return_status := OKL_API.G_RET_STS_SUCCESS;
641:
642: l_okl_disb_rules_tl_rec := get_rec(p_okl_disb_rules_tl_rec, l_row_notfound);
643:
644: IF (l_row_notfound) THEN
645:
646: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'DISB_RULE_ID');
650: x_return_status := OKL_API.G_RET_STS_ERROR;
651:
652: END IF;
653:
654: RETURN(l_okl_disb_rules_tl_rec);
655:
656: END get_rec;
657:
658: -----------------------------------------------------------
662: -----------------------------------------------------------
663:
664: FUNCTION get_rec (
665:
666: p_okl_disb_rules_tl_rec IN okl_disb_rules_tl_rec_type
667:
668: ) RETURN okl_disb_rules_tl_rec_type IS
669:
670: l_row_not_found BOOLEAN := TRUE;
664: FUNCTION get_rec (
665:
666: p_okl_disb_rules_tl_rec IN okl_disb_rules_tl_rec_type
667:
668: ) RETURN okl_disb_rules_tl_rec_type IS
669:
670: l_row_not_found BOOLEAN := TRUE;
671:
672: BEGIN
670: l_row_not_found BOOLEAN := TRUE;
671:
672: BEGIN
673:
674: RETURN(get_rec(p_okl_disb_rules_tl_rec, l_row_not_found));
675:
676: END get_rec;
677:
678: ---------------------------------------------------------------------------
1694: PROCEDURE migrate (
1695:
1696: p_from IN drav_rec_type,
1697:
1698: p_to IN OUT NOCOPY okl_disb_rules_tl_rec_type
1699:
1700: ) IS
1701:
1702: BEGIN
1720: END migrate;
1721:
1722: PROCEDURE migrate (
1723:
1724: p_from IN okl_disb_rules_tl_rec_type,
1725:
1726: p_to IN OUT NOCOPY drav_rec_type
1727:
1728: ) IS
1958: l_drav_rec drav_rec_type := p_drav_rec;
1959:
1960: l_dra_rec dra_rec_type;
1961:
1962: l_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
1963:
1964: BEGIN
1965:
1966: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2689: END insert_row;
2690:
2691: --------------------------------------
2692:
2693: -- insert_row for:OKL_DISB_RULES_TL --
2694:
2695: --------------------------------------
2696:
2697: PROCEDURE insert_row(
2703: x_msg_count OUT NOCOPY NUMBER,
2704:
2705: x_msg_data OUT NOCOPY VARCHAR2,
2706:
2707: p_okl_disb_rules_tl_rec IN okl_disb_rules_tl_rec_type,
2708:
2709: x_okl_disb_rules_tl_rec OUT NOCOPY okl_disb_rules_tl_rec_type) IS
2710:
2711:
2705: x_msg_data OUT NOCOPY VARCHAR2,
2706:
2707: p_okl_disb_rules_tl_rec IN okl_disb_rules_tl_rec_type,
2708:
2709: x_okl_disb_rules_tl_rec OUT NOCOPY okl_disb_rules_tl_rec_type) IS
2710:
2711:
2712:
2713: l_api_version CONSTANT NUMBER := 1;
2715: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
2716:
2717: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2718:
2719: l_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type := p_okl_disb_rules_tl_rec;
2720:
2721: l_def_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
2722:
2723: CURSOR get_languages IS
2717: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2718:
2719: l_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type := p_okl_disb_rules_tl_rec;
2720:
2721: l_def_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
2722:
2723: CURSOR get_languages IS
2724:
2725: SELECT *
2729: WHERE INSTALLED_FLAG IN ('I', 'B');
2730:
2731: ------------------------------------------
2732:
2733: -- Set_Attributes for:OKL_DISB_RULES_TL --
2734:
2735: ------------------------------------------
2736:
2737: FUNCTION Set_Attributes (
2735: ------------------------------------------
2736:
2737: FUNCTION Set_Attributes (
2738:
2739: p_okl_disb_rules_tl_rec IN okl_disb_rules_tl_rec_type,
2740:
2741: x_okl_disb_rules_tl_rec OUT NOCOPY okl_disb_rules_tl_rec_type
2742:
2743: ) RETURN VARCHAR2 IS
2737: FUNCTION Set_Attributes (
2738:
2739: p_okl_disb_rules_tl_rec IN okl_disb_rules_tl_rec_type,
2740:
2741: x_okl_disb_rules_tl_rec OUT NOCOPY okl_disb_rules_tl_rec_type
2742:
2743: ) RETURN VARCHAR2 IS
2744:
2745: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2745: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2746:
2747: BEGIN
2748:
2749: x_okl_disb_rules_tl_rec := p_okl_disb_rules_tl_rec;
2750:
2751: x_okl_disb_rules_tl_rec.LANGUAGE := USERENV('LANG');
2752:
2753: x_okl_disb_rules_tl_rec.SOURCE_LANG := USERENV('LANG');
2747: BEGIN
2748:
2749: x_okl_disb_rules_tl_rec := p_okl_disb_rules_tl_rec;
2750:
2751: x_okl_disb_rules_tl_rec.LANGUAGE := USERENV('LANG');
2752:
2753: x_okl_disb_rules_tl_rec.SOURCE_LANG := USERENV('LANG');
2754:
2755: RETURN(l_return_status);
2749: x_okl_disb_rules_tl_rec := p_okl_disb_rules_tl_rec;
2750:
2751: x_okl_disb_rules_tl_rec.LANGUAGE := USERENV('LANG');
2752:
2753: x_okl_disb_rules_tl_rec.SOURCE_LANG := USERENV('LANG');
2754:
2755: RETURN(l_return_status);
2756:
2757: END Set_Attributes;
2779: --- Setting item attributes
2780:
2781: l_return_status := Set_Attributes(
2782:
2783: p_okl_disb_rules_tl_rec, -- IN
2784:
2785: l_okl_disb_rules_tl_rec); -- OUT
2786:
2787: --- If any errors happen abort API
2781: l_return_status := Set_Attributes(
2782:
2783: p_okl_disb_rules_tl_rec, -- IN
2784:
2785: l_okl_disb_rules_tl_rec); -- OUT
2786:
2787: --- If any errors happen abort API
2788:
2789: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2797: END IF;
2798:
2799: FOR l_lang_rec IN get_languages LOOP
2800:
2801: l_okl_disb_rules_tl_rec.language := l_lang_rec.language_code;
2802:
2803: INSERT INTO OKL_DISB_RULES_TL(
2804:
2805: disb_rule_id,
2799: FOR l_lang_rec IN get_languages LOOP
2800:
2801: l_okl_disb_rules_tl_rec.language := l_lang_rec.language_code;
2802:
2803: INSERT INTO OKL_DISB_RULES_TL(
2804:
2805: disb_rule_id,
2806:
2807: language,
2823: last_update_login)
2824:
2825: VALUES (
2826:
2827: l_okl_disb_rules_tl_rec.disb_rule_id,
2828:
2829: l_okl_disb_rules_tl_rec.language,
2830:
2831: l_okl_disb_rules_tl_rec.source_lang,
2825: VALUES (
2826:
2827: l_okl_disb_rules_tl_rec.disb_rule_id,
2828:
2829: l_okl_disb_rules_tl_rec.language,
2830:
2831: l_okl_disb_rules_tl_rec.source_lang,
2832:
2833: l_okl_disb_rules_tl_rec.sfwt_flag,
2827: l_okl_disb_rules_tl_rec.disb_rule_id,
2828:
2829: l_okl_disb_rules_tl_rec.language,
2830:
2831: l_okl_disb_rules_tl_rec.source_lang,
2832:
2833: l_okl_disb_rules_tl_rec.sfwt_flag,
2834:
2835: l_okl_disb_rules_tl_rec.description,
2829: l_okl_disb_rules_tl_rec.language,
2830:
2831: l_okl_disb_rules_tl_rec.source_lang,
2832:
2833: l_okl_disb_rules_tl_rec.sfwt_flag,
2834:
2835: l_okl_disb_rules_tl_rec.description,
2836:
2837: l_okl_disb_rules_tl_rec.created_by,
2831: l_okl_disb_rules_tl_rec.source_lang,
2832:
2833: l_okl_disb_rules_tl_rec.sfwt_flag,
2834:
2835: l_okl_disb_rules_tl_rec.description,
2836:
2837: l_okl_disb_rules_tl_rec.created_by,
2838:
2839: l_okl_disb_rules_tl_rec.creation_date,
2833: l_okl_disb_rules_tl_rec.sfwt_flag,
2834:
2835: l_okl_disb_rules_tl_rec.description,
2836:
2837: l_okl_disb_rules_tl_rec.created_by,
2838:
2839: l_okl_disb_rules_tl_rec.creation_date,
2840:
2841: l_okl_disb_rules_tl_rec.last_updated_by,
2835: l_okl_disb_rules_tl_rec.description,
2836:
2837: l_okl_disb_rules_tl_rec.created_by,
2838:
2839: l_okl_disb_rules_tl_rec.creation_date,
2840:
2841: l_okl_disb_rules_tl_rec.last_updated_by,
2842:
2843: l_okl_disb_rules_tl_rec.last_update_date,
2837: l_okl_disb_rules_tl_rec.created_by,
2838:
2839: l_okl_disb_rules_tl_rec.creation_date,
2840:
2841: l_okl_disb_rules_tl_rec.last_updated_by,
2842:
2843: l_okl_disb_rules_tl_rec.last_update_date,
2844:
2845: l_okl_disb_rules_tl_rec.last_update_login);
2839: l_okl_disb_rules_tl_rec.creation_date,
2840:
2841: l_okl_disb_rules_tl_rec.last_updated_by,
2842:
2843: l_okl_disb_rules_tl_rec.last_update_date,
2844:
2845: l_okl_disb_rules_tl_rec.last_update_login);
2846:
2847: END LOOP;
2841: l_okl_disb_rules_tl_rec.last_updated_by,
2842:
2843: l_okl_disb_rules_tl_rec.last_update_date,
2844:
2845: l_okl_disb_rules_tl_rec.last_update_login);
2846:
2847: END LOOP;
2848:
2849: -- Set OUT values
2847: END LOOP;
2848:
2849: -- Set OUT values
2850:
2851: x_okl_disb_rules_tl_rec := l_okl_disb_rules_tl_rec;
2852:
2853: x_return_status := l_return_status;
2854:
2855: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2955: l_dra_rec dra_rec_type;
2956:
2957: lx_dra_rec dra_rec_type;
2958:
2959: l_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
2960:
2961: lx_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
2962:
2963: -------------------------------
2957: lx_dra_rec dra_rec_type;
2958:
2959: l_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
2960:
2961: lx_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
2962:
2963: -------------------------------
2964:
2965: -- FUNCTION fill_who_columns --
3107: -----------------------------------------
3108:
3109: migrate(l_def_drav_rec, l_dra_rec);
3110:
3111: migrate(l_def_drav_rec, l_okl_disb_rules_tl_rec);
3112:
3113: --g_debug_proc('DRA INSERT l_def_drav_rec' || l_def_drav_rec.disb_rule_id);
3114: --g_debug_proc('DRA INSERT l_dra_rec' || l_dra_rec.disb_rule_id);
3115: --g_debug_proc('DRA INSERT l_okl_disb_rules_tl_rec' || l_okl_disb_rules_tl_rec.disb_rule_id);
3111: migrate(l_def_drav_rec, l_okl_disb_rules_tl_rec);
3112:
3113: --g_debug_proc('DRA INSERT l_def_drav_rec' || l_def_drav_rec.disb_rule_id);
3114: --g_debug_proc('DRA INSERT l_dra_rec' || l_dra_rec.disb_rule_id);
3115: --g_debug_proc('DRA INSERT l_okl_disb_rules_tl_rec' || l_okl_disb_rules_tl_rec.disb_rule_id);
3116:
3117:
3118: -----------------------------------------------
3119:
3158: x_msg_count,
3159:
3160: x_msg_data,
3161:
3162: l_okl_disb_rules_tl_rec,
3163:
3164: lx_okl_disb_rules_tl_rec
3165:
3166: );
3160: x_msg_data,
3161:
3162: l_okl_disb_rules_tl_rec,
3163:
3164: lx_okl_disb_rules_tl_rec
3165:
3166: );
3167:
3168: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3174: RAISE OKL_API.G_EXCEPTION_ERROR;
3175:
3176: END IF;
3177:
3178: migrate(lx_okl_disb_rules_tl_rec, l_def_drav_rec);
3179:
3180: -- Set OUT values
3181:
3182: x_drav_rec := l_def_drav_rec;
3794: END lock_row;
3795:
3796: ------------------------------------
3797:
3798: -- lock_row for:OKL_DISB_RULES_TL --
3799:
3800: ------------------------------------
3801:
3802: PROCEDURE lock_row(
3808: x_msg_count OUT NOCOPY NUMBER,
3809:
3810: x_msg_data OUT NOCOPY VARCHAR2,
3811:
3812: p_okl_disb_rules_tl_rec IN okl_disb_rules_tl_rec_type) IS
3813:
3814:
3815:
3816: E_Resource_Busy EXCEPTION;
3816: E_Resource_Busy EXCEPTION;
3817:
3818: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
3819:
3820: CURSOR lock_csr (p_okl_disb_rules_tl_rec IN okl_disb_rules_tl_rec_type) IS
3821:
3822: SELECT *
3823:
3824: FROM OKL_DISB_RULES_TL
3820: CURSOR lock_csr (p_okl_disb_rules_tl_rec IN okl_disb_rules_tl_rec_type) IS
3821:
3822: SELECT *
3823:
3824: FROM OKL_DISB_RULES_TL
3825:
3826: WHERE DISB_RULE_ID = p_okl_disb_rules_tl_rec.disb_rule_id
3827:
3828: FOR UPDATE NOWAIT;
3822: SELECT *
3823:
3824: FROM OKL_DISB_RULES_TL
3825:
3826: WHERE DISB_RULE_ID = p_okl_disb_rules_tl_rec.disb_rule_id
3827:
3828: FOR UPDATE NOWAIT;
3829:
3830:
3862: END IF;
3863:
3864: BEGIN
3865:
3866: OPEN lock_csr(p_okl_disb_rules_tl_rec);
3867:
3868: FETCH lock_csr INTO l_lock_var;
3869:
3870: l_row_notfound := lock_csr%NOTFOUND;
3992: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
3993:
3994: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3995:
3996: l_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
3997:
3998: l_dra_rec dra_rec_type;
3999:
4000: BEGIN
4028: -- Move VIEW record to "Child" records --
4029:
4030: -----------------------------------------
4031:
4032: migrate(p_drav_rec, l_okl_disb_rules_tl_rec);
4033:
4034: migrate(p_drav_rec, l_dra_rec);
4035:
4036: ---------------------------------------------
4048: x_msg_count,
4049:
4050: x_msg_data,
4051:
4052: l_okl_disb_rules_tl_rec
4053:
4054: );
4055:
4056: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4980: END update_row;
4981:
4982: --------------------------------------
4983:
4984: -- update_row for:OKL_DISB_RULES_TL --
4985:
4986: --------------------------------------
4987:
4988: PROCEDURE update_row(
4994: x_msg_count OUT NOCOPY NUMBER,
4995:
4996: x_msg_data OUT NOCOPY VARCHAR2,
4997:
4998: p_okl_disb_rules_tl_rec IN okl_disb_rules_tl_rec_type,
4999:
5000: x_okl_disb_rules_tl_rec OUT NOCOPY okl_disb_rules_tl_rec_type) IS
5001:
5002:
4996: x_msg_data OUT NOCOPY VARCHAR2,
4997:
4998: p_okl_disb_rules_tl_rec IN okl_disb_rules_tl_rec_type,
4999:
5000: x_okl_disb_rules_tl_rec OUT NOCOPY okl_disb_rules_tl_rec_type) IS
5001:
5002:
5003:
5004: l_api_version CONSTANT NUMBER := 1;
5006: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
5007:
5008: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5009:
5010: l_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type := p_okl_disb_rules_tl_rec;
5011:
5012: l_def_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
5013:
5014: l_row_notfound BOOLEAN := TRUE;
5008: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5009:
5010: l_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type := p_okl_disb_rules_tl_rec;
5011:
5012: l_def_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
5013:
5014: l_row_notfound BOOLEAN := TRUE;
5015:
5016: ----------------------------------
5020: ----------------------------------
5021:
5022: FUNCTION populate_new_record (
5023:
5024: p_okl_disb_rules_tl_rec IN okl_disb_rules_tl_rec_type,
5025:
5026: x_okl_disb_rules_tl_rec OUT NOCOPY okl_disb_rules_tl_rec_type
5027:
5028: ) RETURN VARCHAR2 IS
5022: FUNCTION populate_new_record (
5023:
5024: p_okl_disb_rules_tl_rec IN okl_disb_rules_tl_rec_type,
5025:
5026: x_okl_disb_rules_tl_rec OUT NOCOPY okl_disb_rules_tl_rec_type
5027:
5028: ) RETURN VARCHAR2 IS
5029:
5030: l_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
5026: x_okl_disb_rules_tl_rec OUT NOCOPY okl_disb_rules_tl_rec_type
5027:
5028: ) RETURN VARCHAR2 IS
5029:
5030: l_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
5031:
5032: l_row_notfound BOOLEAN := TRUE;
5033:
5034: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5034: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5035:
5036: BEGIN
5037:
5038: x_okl_disb_rules_tl_rec := p_okl_disb_rules_tl_rec;
5039:
5040: -- Get current database values
5041:
5042: l_okl_disb_rules_tl_rec := get_rec(p_okl_disb_rules_tl_rec, l_return_status);
5038: x_okl_disb_rules_tl_rec := p_okl_disb_rules_tl_rec;
5039:
5040: -- Get current database values
5041:
5042: l_okl_disb_rules_tl_rec := get_rec(p_okl_disb_rules_tl_rec, l_return_status);
5043:
5044: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
5045:
5046: IF x_okl_disb_rules_tl_rec.disb_rule_id IS NULL THEN
5042: l_okl_disb_rules_tl_rec := get_rec(p_okl_disb_rules_tl_rec, l_return_status);
5043:
5044: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
5045:
5046: IF x_okl_disb_rules_tl_rec.disb_rule_id IS NULL THEN
5047:
5048: x_okl_disb_rules_tl_rec.disb_rule_id := l_okl_disb_rules_tl_rec.disb_rule_id;
5049:
5050: END IF;
5044: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
5045:
5046: IF x_okl_disb_rules_tl_rec.disb_rule_id IS NULL THEN
5047:
5048: x_okl_disb_rules_tl_rec.disb_rule_id := l_okl_disb_rules_tl_rec.disb_rule_id;
5049:
5050: END IF;
5051:
5052: IF x_okl_disb_rules_tl_rec.language IS NULL THEN
5048: x_okl_disb_rules_tl_rec.disb_rule_id := l_okl_disb_rules_tl_rec.disb_rule_id;
5049:
5050: END IF;
5051:
5052: IF x_okl_disb_rules_tl_rec.language IS NULL THEN
5053:
5054: x_okl_disb_rules_tl_rec.language := l_okl_disb_rules_tl_rec.language;
5055:
5056: END IF;
5050: END IF;
5051:
5052: IF x_okl_disb_rules_tl_rec.language IS NULL THEN
5053:
5054: x_okl_disb_rules_tl_rec.language := l_okl_disb_rules_tl_rec.language;
5055:
5056: END IF;
5057:
5058: IF x_okl_disb_rules_tl_rec.source_lang IS NULL THEN
5054: x_okl_disb_rules_tl_rec.language := l_okl_disb_rules_tl_rec.language;
5055:
5056: END IF;
5057:
5058: IF x_okl_disb_rules_tl_rec.source_lang IS NULL THEN
5059:
5060: x_okl_disb_rules_tl_rec.source_lang := l_okl_disb_rules_tl_rec.source_lang;
5061:
5062: END IF;
5056: END IF;
5057:
5058: IF x_okl_disb_rules_tl_rec.source_lang IS NULL THEN
5059:
5060: x_okl_disb_rules_tl_rec.source_lang := l_okl_disb_rules_tl_rec.source_lang;
5061:
5062: END IF;
5063:
5064: IF x_okl_disb_rules_tl_rec.sfwt_flag IS NULL THEN
5060: x_okl_disb_rules_tl_rec.source_lang := l_okl_disb_rules_tl_rec.source_lang;
5061:
5062: END IF;
5063:
5064: IF x_okl_disb_rules_tl_rec.sfwt_flag IS NULL THEN
5065:
5066: x_okl_disb_rules_tl_rec.sfwt_flag := l_okl_disb_rules_tl_rec.sfwt_flag;
5067:
5068: END IF;
5062: END IF;
5063:
5064: IF x_okl_disb_rules_tl_rec.sfwt_flag IS NULL THEN
5065:
5066: x_okl_disb_rules_tl_rec.sfwt_flag := l_okl_disb_rules_tl_rec.sfwt_flag;
5067:
5068: END IF;
5069:
5070: IF x_okl_disb_rules_tl_rec.description IS NULL THEN
5066: x_okl_disb_rules_tl_rec.sfwt_flag := l_okl_disb_rules_tl_rec.sfwt_flag;
5067:
5068: END IF;
5069:
5070: IF x_okl_disb_rules_tl_rec.description IS NULL THEN
5071:
5072: x_okl_disb_rules_tl_rec.description := l_okl_disb_rules_tl_rec.description;
5073:
5074: END IF;
5068: END IF;
5069:
5070: IF x_okl_disb_rules_tl_rec.description IS NULL THEN
5071:
5072: x_okl_disb_rules_tl_rec.description := l_okl_disb_rules_tl_rec.description;
5073:
5074: END IF;
5075:
5076: IF x_okl_disb_rules_tl_rec.created_by IS NULL THEN
5072: x_okl_disb_rules_tl_rec.description := l_okl_disb_rules_tl_rec.description;
5073:
5074: END IF;
5075:
5076: IF x_okl_disb_rules_tl_rec.created_by IS NULL THEN
5077:
5078: x_okl_disb_rules_tl_rec.created_by := l_okl_disb_rules_tl_rec.created_by;
5079:
5080: END IF;
5074: END IF;
5075:
5076: IF x_okl_disb_rules_tl_rec.created_by IS NULL THEN
5077:
5078: x_okl_disb_rules_tl_rec.created_by := l_okl_disb_rules_tl_rec.created_by;
5079:
5080: END IF;
5081:
5082: IF x_okl_disb_rules_tl_rec.creation_date IS NULL THEN
5078: x_okl_disb_rules_tl_rec.created_by := l_okl_disb_rules_tl_rec.created_by;
5079:
5080: END IF;
5081:
5082: IF x_okl_disb_rules_tl_rec.creation_date IS NULL THEN
5083:
5084: x_okl_disb_rules_tl_rec.creation_date := l_okl_disb_rules_tl_rec.creation_date;
5085:
5086: END IF;
5080: END IF;
5081:
5082: IF x_okl_disb_rules_tl_rec.creation_date IS NULL THEN
5083:
5084: x_okl_disb_rules_tl_rec.creation_date := l_okl_disb_rules_tl_rec.creation_date;
5085:
5086: END IF;
5087:
5088: IF x_okl_disb_rules_tl_rec.last_updated_by IS NULL THEN
5084: x_okl_disb_rules_tl_rec.creation_date := l_okl_disb_rules_tl_rec.creation_date;
5085:
5086: END IF;
5087:
5088: IF x_okl_disb_rules_tl_rec.last_updated_by IS NULL THEN
5089:
5090: x_okl_disb_rules_tl_rec.last_updated_by := l_okl_disb_rules_tl_rec.last_updated_by;
5091:
5092: END IF;
5086: END IF;
5087:
5088: IF x_okl_disb_rules_tl_rec.last_updated_by IS NULL THEN
5089:
5090: x_okl_disb_rules_tl_rec.last_updated_by := l_okl_disb_rules_tl_rec.last_updated_by;
5091:
5092: END IF;
5093:
5094: IF x_okl_disb_rules_tl_rec.last_update_date IS NULL THEN
5090: x_okl_disb_rules_tl_rec.last_updated_by := l_okl_disb_rules_tl_rec.last_updated_by;
5091:
5092: END IF;
5093:
5094: IF x_okl_disb_rules_tl_rec.last_update_date IS NULL THEN
5095:
5096: x_okl_disb_rules_tl_rec.last_update_date := l_okl_disb_rules_tl_rec.last_update_date;
5097:
5098: END IF;
5092: END IF;
5093:
5094: IF x_okl_disb_rules_tl_rec.last_update_date IS NULL THEN
5095:
5096: x_okl_disb_rules_tl_rec.last_update_date := l_okl_disb_rules_tl_rec.last_update_date;
5097:
5098: END IF;
5099:
5100: IF x_okl_disb_rules_tl_rec.last_update_login IS NULL THEN
5096: x_okl_disb_rules_tl_rec.last_update_date := l_okl_disb_rules_tl_rec.last_update_date;
5097:
5098: END IF;
5099:
5100: IF x_okl_disb_rules_tl_rec.last_update_login IS NULL THEN
5101:
5102: x_okl_disb_rules_tl_rec.last_update_login := l_okl_disb_rules_tl_rec.last_update_login;
5103:
5104: END IF;
5098: END IF;
5099:
5100: IF x_okl_disb_rules_tl_rec.last_update_login IS NULL THEN
5101:
5102: x_okl_disb_rules_tl_rec.last_update_login := l_okl_disb_rules_tl_rec.last_update_login;
5103:
5104: END IF;
5105:
5106: END IF;
5110: END populate_new_record;
5111:
5112: ------------------------------------------
5113:
5114: -- Set_Attributes for:OKL_DISB_RULES_TL --
5115:
5116: ------------------------------------------
5117:
5118: FUNCTION Set_Attributes (
5116: ------------------------------------------
5117:
5118: FUNCTION Set_Attributes (
5119:
5120: p_okl_disb_rules_tl_rec IN okl_disb_rules_tl_rec_type,
5121:
5122: x_okl_disb_rules_tl_rec OUT NOCOPY okl_disb_rules_tl_rec_type
5123:
5124: ) RETURN VARCHAR2 IS
5118: FUNCTION Set_Attributes (
5119:
5120: p_okl_disb_rules_tl_rec IN okl_disb_rules_tl_rec_type,
5121:
5122: x_okl_disb_rules_tl_rec OUT NOCOPY okl_disb_rules_tl_rec_type
5123:
5124: ) RETURN VARCHAR2 IS
5125: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5126: BEGIN
5123:
5124: ) RETURN VARCHAR2 IS
5125: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5126: BEGIN
5127: x_okl_disb_rules_tl_rec := p_okl_disb_rules_tl_rec;
5128: x_okl_disb_rules_tl_rec.LANGUAGE := USERENV('LANG');
5129: x_okl_disb_rules_tl_rec.LANGUAGE := USERENV('LANG');
5130: RETURN(l_return_status);
5131: END Set_Attributes;
5124: ) RETURN VARCHAR2 IS
5125: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5126: BEGIN
5127: x_okl_disb_rules_tl_rec := p_okl_disb_rules_tl_rec;
5128: x_okl_disb_rules_tl_rec.LANGUAGE := USERENV('LANG');
5129: x_okl_disb_rules_tl_rec.LANGUAGE := USERENV('LANG');
5130: RETURN(l_return_status);
5131: END Set_Attributes;
5132:
5125: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5126: BEGIN
5127: x_okl_disb_rules_tl_rec := p_okl_disb_rules_tl_rec;
5128: x_okl_disb_rules_tl_rec.LANGUAGE := USERENV('LANG');
5129: x_okl_disb_rules_tl_rec.LANGUAGE := USERENV('LANG');
5130: RETURN(l_return_status);
5131: END Set_Attributes;
5132:
5133: BEGIN
5153: --- Setting item attributes
5154:
5155: l_return_status := Set_Attributes(
5156:
5157: p_okl_disb_rules_tl_rec, -- IN
5158:
5159: l_okl_disb_rules_tl_rec); -- OUT
5160:
5161: --- If any errors happen abort API
5155: l_return_status := Set_Attributes(
5156:
5157: p_okl_disb_rules_tl_rec, -- IN
5158:
5159: l_okl_disb_rules_tl_rec); -- OUT
5160:
5161: --- If any errors happen abort API
5162:
5163: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5169: RAISE OKL_API.G_EXCEPTION_ERROR;
5170:
5171: END IF;
5172:
5173: l_return_status := populate_new_record(l_okl_disb_rules_tl_rec, l_def_okl_disb_rules_tl_rec);
5174:
5175: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5176:
5177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5181: RAISE OKL_API.G_EXCEPTION_ERROR;
5182:
5183: END IF;
5184:
5185: UPDATE OKL_DISB_RULES_TL
5186:
5187: SET DESCRIPTION = l_def_okl_disb_rules_tl_rec.description,
5188:
5189: CREATED_BY = l_def_okl_disb_rules_tl_rec.created_by,
5183: END IF;
5184:
5185: UPDATE OKL_DISB_RULES_TL
5186:
5187: SET DESCRIPTION = l_def_okl_disb_rules_tl_rec.description,
5188:
5189: CREATED_BY = l_def_okl_disb_rules_tl_rec.created_by,
5190:
5191: CREATION_DATE = l_def_okl_disb_rules_tl_rec.creation_date,
5185: UPDATE OKL_DISB_RULES_TL
5186:
5187: SET DESCRIPTION = l_def_okl_disb_rules_tl_rec.description,
5188:
5189: CREATED_BY = l_def_okl_disb_rules_tl_rec.created_by,
5190:
5191: CREATION_DATE = l_def_okl_disb_rules_tl_rec.creation_date,
5192:
5193: LAST_UPDATED_BY = l_def_okl_disb_rules_tl_rec.last_updated_by,
5187: SET DESCRIPTION = l_def_okl_disb_rules_tl_rec.description,
5188:
5189: CREATED_BY = l_def_okl_disb_rules_tl_rec.created_by,
5190:
5191: CREATION_DATE = l_def_okl_disb_rules_tl_rec.creation_date,
5192:
5193: LAST_UPDATED_BY = l_def_okl_disb_rules_tl_rec.last_updated_by,
5194:
5195: LAST_UPDATE_DATE = l_def_okl_disb_rules_tl_rec.last_update_date,
5189: CREATED_BY = l_def_okl_disb_rules_tl_rec.created_by,
5190:
5191: CREATION_DATE = l_def_okl_disb_rules_tl_rec.creation_date,
5192:
5193: LAST_UPDATED_BY = l_def_okl_disb_rules_tl_rec.last_updated_by,
5194:
5195: LAST_UPDATE_DATE = l_def_okl_disb_rules_tl_rec.last_update_date,
5196:
5197: LAST_UPDATE_LOGIN = l_def_okl_disb_rules_tl_rec.last_update_login
5191: CREATION_DATE = l_def_okl_disb_rules_tl_rec.creation_date,
5192:
5193: LAST_UPDATED_BY = l_def_okl_disb_rules_tl_rec.last_updated_by,
5194:
5195: LAST_UPDATE_DATE = l_def_okl_disb_rules_tl_rec.last_update_date,
5196:
5197: LAST_UPDATE_LOGIN = l_def_okl_disb_rules_tl_rec.last_update_login
5198:
5199: WHERE DISB_RULE_ID = l_def_okl_disb_rules_tl_rec.disb_rule_id
5193: LAST_UPDATED_BY = l_def_okl_disb_rules_tl_rec.last_updated_by,
5194:
5195: LAST_UPDATE_DATE = l_def_okl_disb_rules_tl_rec.last_update_date,
5196:
5197: LAST_UPDATE_LOGIN = l_def_okl_disb_rules_tl_rec.last_update_login
5198:
5199: WHERE DISB_RULE_ID = l_def_okl_disb_rules_tl_rec.disb_rule_id
5200:
5201: AND SOURCE_LANG = USERENV('LANG');
5195: LAST_UPDATE_DATE = l_def_okl_disb_rules_tl_rec.last_update_date,
5196:
5197: LAST_UPDATE_LOGIN = l_def_okl_disb_rules_tl_rec.last_update_login
5198:
5199: WHERE DISB_RULE_ID = l_def_okl_disb_rules_tl_rec.disb_rule_id
5200:
5201: AND SOURCE_LANG = USERENV('LANG');
5202:
5203:
5201: AND SOURCE_LANG = USERENV('LANG');
5202:
5203:
5204:
5205: UPDATE OKL_DISB_RULES_TL
5206:
5207: SET SFWT_FLAG = 'Y'
5208:
5209: WHERE DISB_RULE_ID = l_def_okl_disb_rules_tl_rec.disb_rule_id
5205: UPDATE OKL_DISB_RULES_TL
5206:
5207: SET SFWT_FLAG = 'Y'
5208:
5209: WHERE DISB_RULE_ID = l_def_okl_disb_rules_tl_rec.disb_rule_id
5210:
5211: AND SOURCE_LANG <> USERENV('LANG');
5212:
5213:
5211: AND SOURCE_LANG <> USERENV('LANG');
5212:
5213:
5214:
5215: x_okl_disb_rules_tl_rec := l_okl_disb_rules_tl_rec;
5216:
5217: x_return_status := l_return_status;
5218:
5219: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5304: l_def_drav_rec drav_rec_type;
5305: l_db_drav_rec drav_rec_type;
5306: l_dra_rec dra_rec_type;
5307: lx_dra_rec dra_rec_type;
5308: l_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
5309: lx_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
5310:
5311: -------------------------------
5312:
5305: l_db_drav_rec drav_rec_type;
5306: l_dra_rec dra_rec_type;
5307: lx_dra_rec dra_rec_type;
5308: l_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
5309: lx_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
5310:
5311: -------------------------------
5312:
5313: -- FUNCTION fill_who_columns --
5719:
5720: -----------------------------------------
5721: --g_debug_proc('Tapi Before Migrate');
5722: migrate(l_def_drav_rec, l_dra_rec);
5723: migrate(l_def_drav_rec, l_okl_disb_rules_tl_rec);
5724:
5725: -----------------------------------------------
5726:
5727: -- Call the UPDATE_ROW for each child record --
5763: x_msg_count,
5764:
5765: x_msg_data,
5766:
5767: l_okl_disb_rules_tl_rec,
5768:
5769: lx_okl_disb_rules_tl_rec
5770:
5771: );
5765: x_msg_data,
5766:
5767: l_okl_disb_rules_tl_rec,
5768:
5769: lx_okl_disb_rules_tl_rec
5770:
5771: );
5772:
5773: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5779: RAISE OKL_API.G_EXCEPTION_ERROR;
5780:
5781: END IF;
5782:
5783: migrate(lx_okl_disb_rules_tl_rec, l_def_drav_rec);
5784:
5785: x_drav_rec := l_def_drav_rec;
5786:
5787: x_return_status := l_return_status;
6309: END delete_row;
6310:
6311: --------------------------------------
6312:
6313: -- delete_row for:OKL_DISB_RULES_TL --
6314:
6315: --------------------------------------
6316:
6317: PROCEDURE delete_row(
6323: x_msg_count OUT NOCOPY NUMBER,
6324:
6325: x_msg_data OUT NOCOPY VARCHAR2,
6326:
6327: p_okl_disb_rules_tl_rec IN okl_disb_rules_tl_rec_type) IS
6328:
6329:
6330:
6331: l_api_version CONSTANT NUMBER := 1;
6333: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
6334:
6335: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6336:
6337: l_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type := p_okl_disb_rules_tl_rec;
6338:
6339: l_row_notfound BOOLEAN := TRUE;
6340:
6341: BEGIN
6359: END IF;
6360:
6361:
6362:
6363: DELETE FROM OKL_DISB_RULES_TL
6364:
6365: WHERE DISB_RULE_ID = p_okl_disb_rules_tl_rec.disb_rule_id;
6366:
6367:
6361:
6362:
6363: DELETE FROM OKL_DISB_RULES_TL
6364:
6365: WHERE DISB_RULE_ID = p_okl_disb_rules_tl_rec.disb_rule_id;
6366:
6367:
6368:
6369: x_return_status := l_return_status;
6463: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6464:
6465: l_drav_rec drav_rec_type := p_drav_rec;
6466:
6467: l_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
6468:
6469: l_dra_rec dra_rec_type;
6470:
6471: BEGIN
6499: -- Move VIEW record to "Child" records --
6500:
6501: -----------------------------------------
6502:
6503: migrate(l_drav_rec, l_okl_disb_rules_tl_rec);
6504:
6505: migrate(l_drav_rec, l_dra_rec);
6506:
6507: -----------------------------------------------
6519: x_msg_count,
6520:
6521: x_msg_data,
6522:
6523: l_okl_disb_rules_tl_rec
6524:
6525: );
6526:
6527: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN