[Home] [Help]
415: -- PROCEDURE add_language
416: ---------------------------------------------------------------------------
417: PROCEDURE add_language IS
418: BEGIN
419: DELETE FROM OKL_CNSLD_AR_HDRS_TL T
420: WHERE NOT EXISTS (
421: SELECT NULL
422: FROM OKL_CNSLD_AR_HDRS_ALL_B B --fixed bug 3321017 by kmotepal
423: WHERE B.ID = T.ID
422: FROM OKL_CNSLD_AR_HDRS_ALL_B B --fixed bug 3321017 by kmotepal
423: WHERE B.ID = T.ID
424: );
425:
426: UPDATE OKL_CNSLD_AR_HDRS_TL T SET (
427: PRIVATE_LABEL_LOGO_URL) = (SELECT
428: B.PRIVATE_LABEL_LOGO_URL
429: FROM OKL_CNSLD_AR_HDRS_TL B
430: WHERE B.ID = T.ID
425:
426: UPDATE OKL_CNSLD_AR_HDRS_TL T SET (
427: PRIVATE_LABEL_LOGO_URL) = (SELECT
428: B.PRIVATE_LABEL_LOGO_URL
429: FROM OKL_CNSLD_AR_HDRS_TL B
430: WHERE B.ID = T.ID
431: AND B.LANGUAGE = T.SOURCE_LANG)
432: WHERE (
433: T.ID,
434: T.LANGUAGE)
435: IN (SELECT
436: SUBT.ID,
437: SUBT.LANGUAGE
438: FROM OKL_CNSLD_AR_HDRS_TL SUBB, OKL_CNSLD_AR_HDRS_TL SUBT
439: WHERE SUBB.ID = SUBT.ID
440: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
441: AND (SUBB.PRIVATE_LABEL_LOGO_URL <> SUBT.PRIVATE_LABEL_LOGO_URL
442: OR (SUBB.PRIVATE_LABEL_LOGO_URL IS NULL AND SUBT.PRIVATE_LABEL_LOGO_URL IS NOT NULL)
442: OR (SUBB.PRIVATE_LABEL_LOGO_URL IS NULL AND SUBT.PRIVATE_LABEL_LOGO_URL IS NOT NULL)
443: OR (SUBB.PRIVATE_LABEL_LOGO_URL IS NOT NULL AND SUBT.PRIVATE_LABEL_LOGO_URL IS NULL)
444: ));
445:
446: INSERT INTO OKL_CNSLD_AR_HDRS_TL (
447: ID,
448: LANGUAGE,
449: SOURCE_LANG,
450: SFWT_FLAG,
464: B.CREATION_DATE,
465: B.LAST_UPDATED_BY,
466: B.LAST_UPDATE_DATE,
467: B.LAST_UPDATE_LOGIN
468: FROM OKL_CNSLD_AR_HDRS_TL B, FND_LANGUAGES L
469: WHERE L.INSTALLED_FLAG IN ('I', 'B')
470: AND B.LANGUAGE = USERENV('LANG')
471: AND NOT EXISTS(
472: SELECT NULL
469: WHERE L.INSTALLED_FLAG IN ('I', 'B')
470: AND B.LANGUAGE = USERENV('LANG')
471: AND NOT EXISTS(
472: SELECT NULL
473: FROM OKL_CNSLD_AR_HDRS_TL T
474: WHERE T.ID = B.ID
475: AND T.LANGUAGE = L.LANGUAGE_CODE
476: );
477:
589: BEGIN
590: RETURN(get_rec(p_cnr_rec, l_row_notfound));
591: END get_rec;
592: ---------------------------------------------------------------------------
593: -- FUNCTION get_rec for: OKL_CNSLD_AR_HDRS_TL
594: ---------------------------------------------------------------------------
595: FUNCTION get_rec (
596: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type,
597: x_no_data_found OUT NOCOPY BOOLEAN
592: ---------------------------------------------------------------------------
593: -- FUNCTION get_rec for: OKL_CNSLD_AR_HDRS_TL
594: ---------------------------------------------------------------------------
595: FUNCTION get_rec (
596: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type,
597: x_no_data_found OUT NOCOPY BOOLEAN
598: ) RETURN okl_cnsld_ar_hdrs_tl_rec_type IS
599: CURSOR okl_cnsld_ar_hdrs_tl_pk_csr (p_id IN NUMBER,
600: p_language IN VARCHAR2) IS
594: ---------------------------------------------------------------------------
595: FUNCTION get_rec (
596: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type,
597: x_no_data_found OUT NOCOPY BOOLEAN
598: ) RETURN okl_cnsld_ar_hdrs_tl_rec_type IS
599: CURSOR okl_cnsld_ar_hdrs_tl_pk_csr (p_id IN NUMBER,
600: p_language IN VARCHAR2) IS
601: SELECT
602: ID,
595: FUNCTION get_rec (
596: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type,
597: x_no_data_found OUT NOCOPY BOOLEAN
598: ) RETURN okl_cnsld_ar_hdrs_tl_rec_type IS
599: CURSOR okl_cnsld_ar_hdrs_tl_pk_csr (p_id IN NUMBER,
600: p_language IN VARCHAR2) IS
601: SELECT
602: ID,
603: LANGUAGE,
608: CREATION_DATE,
609: LAST_UPDATED_BY,
610: LAST_UPDATE_DATE,
611: LAST_UPDATE_LOGIN
612: FROM Okl_Cnsld_Ar_Hdrs_Tl
613: WHERE okl_cnsld_ar_hdrs_tl.id = p_id
614: AND okl_cnsld_ar_hdrs_tl.LANGUAGE = p_language;
615: l_okl_cnsld_ar_hdrs_tl_pk okl_cnsld_ar_hdrs_tl_pk_csr%ROWTYPE;
616: l_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type;
609: LAST_UPDATED_BY,
610: LAST_UPDATE_DATE,
611: LAST_UPDATE_LOGIN
612: FROM Okl_Cnsld_Ar_Hdrs_Tl
613: WHERE okl_cnsld_ar_hdrs_tl.id = p_id
614: AND okl_cnsld_ar_hdrs_tl.LANGUAGE = p_language;
615: l_okl_cnsld_ar_hdrs_tl_pk okl_cnsld_ar_hdrs_tl_pk_csr%ROWTYPE;
616: l_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type;
617: BEGIN
610: LAST_UPDATE_DATE,
611: LAST_UPDATE_LOGIN
612: FROM Okl_Cnsld_Ar_Hdrs_Tl
613: WHERE okl_cnsld_ar_hdrs_tl.id = p_id
614: AND okl_cnsld_ar_hdrs_tl.LANGUAGE = p_language;
615: l_okl_cnsld_ar_hdrs_tl_pk okl_cnsld_ar_hdrs_tl_pk_csr%ROWTYPE;
616: l_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type;
617: BEGIN
618: x_no_data_found := TRUE;
611: LAST_UPDATE_LOGIN
612: FROM Okl_Cnsld_Ar_Hdrs_Tl
613: WHERE okl_cnsld_ar_hdrs_tl.id = p_id
614: AND okl_cnsld_ar_hdrs_tl.LANGUAGE = p_language;
615: l_okl_cnsld_ar_hdrs_tl_pk okl_cnsld_ar_hdrs_tl_pk_csr%ROWTYPE;
616: l_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type;
617: BEGIN
618: x_no_data_found := TRUE;
619: -- Get current database values
612: FROM Okl_Cnsld_Ar_Hdrs_Tl
613: WHERE okl_cnsld_ar_hdrs_tl.id = p_id
614: AND okl_cnsld_ar_hdrs_tl.LANGUAGE = p_language;
615: l_okl_cnsld_ar_hdrs_tl_pk okl_cnsld_ar_hdrs_tl_pk_csr%ROWTYPE;
616: l_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type;
617: BEGIN
618: x_no_data_found := TRUE;
619: -- Get current database values
620: OPEN okl_cnsld_ar_hdrs_tl_pk_csr (p_okl_cnsld_ar_hdrs_tl_rec.id,
616: l_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type;
617: BEGIN
618: x_no_data_found := TRUE;
619: -- Get current database values
620: OPEN okl_cnsld_ar_hdrs_tl_pk_csr (p_okl_cnsld_ar_hdrs_tl_rec.id,
621: p_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE);
622: FETCH okl_cnsld_ar_hdrs_tl_pk_csr INTO
623: l_okl_cnsld_ar_hdrs_tl_rec.ID,
624: l_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE,
617: BEGIN
618: x_no_data_found := TRUE;
619: -- Get current database values
620: OPEN okl_cnsld_ar_hdrs_tl_pk_csr (p_okl_cnsld_ar_hdrs_tl_rec.id,
621: p_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE);
622: FETCH okl_cnsld_ar_hdrs_tl_pk_csr INTO
623: l_okl_cnsld_ar_hdrs_tl_rec.ID,
624: l_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE,
625: l_okl_cnsld_ar_hdrs_tl_rec.SOURCE_LANG,
618: x_no_data_found := TRUE;
619: -- Get current database values
620: OPEN okl_cnsld_ar_hdrs_tl_pk_csr (p_okl_cnsld_ar_hdrs_tl_rec.id,
621: p_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE);
622: FETCH okl_cnsld_ar_hdrs_tl_pk_csr INTO
623: l_okl_cnsld_ar_hdrs_tl_rec.ID,
624: l_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE,
625: l_okl_cnsld_ar_hdrs_tl_rec.SOURCE_LANG,
626: l_okl_cnsld_ar_hdrs_tl_rec.SFWT_FLAG,
619: -- Get current database values
620: OPEN okl_cnsld_ar_hdrs_tl_pk_csr (p_okl_cnsld_ar_hdrs_tl_rec.id,
621: p_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE);
622: FETCH okl_cnsld_ar_hdrs_tl_pk_csr INTO
623: l_okl_cnsld_ar_hdrs_tl_rec.ID,
624: l_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE,
625: l_okl_cnsld_ar_hdrs_tl_rec.SOURCE_LANG,
626: l_okl_cnsld_ar_hdrs_tl_rec.SFWT_FLAG,
627: l_okl_cnsld_ar_hdrs_tl_rec.PRIVATE_LABEL_LOGO_URL,
620: OPEN okl_cnsld_ar_hdrs_tl_pk_csr (p_okl_cnsld_ar_hdrs_tl_rec.id,
621: p_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE);
622: FETCH okl_cnsld_ar_hdrs_tl_pk_csr INTO
623: l_okl_cnsld_ar_hdrs_tl_rec.ID,
624: l_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE,
625: l_okl_cnsld_ar_hdrs_tl_rec.SOURCE_LANG,
626: l_okl_cnsld_ar_hdrs_tl_rec.SFWT_FLAG,
627: l_okl_cnsld_ar_hdrs_tl_rec.PRIVATE_LABEL_LOGO_URL,
628: l_okl_cnsld_ar_hdrs_tl_rec.CREATED_BY,
621: p_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE);
622: FETCH okl_cnsld_ar_hdrs_tl_pk_csr INTO
623: l_okl_cnsld_ar_hdrs_tl_rec.ID,
624: l_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE,
625: l_okl_cnsld_ar_hdrs_tl_rec.SOURCE_LANG,
626: l_okl_cnsld_ar_hdrs_tl_rec.SFWT_FLAG,
627: l_okl_cnsld_ar_hdrs_tl_rec.PRIVATE_LABEL_LOGO_URL,
628: l_okl_cnsld_ar_hdrs_tl_rec.CREATED_BY,
629: l_okl_cnsld_ar_hdrs_tl_rec.CREATION_DATE,
622: FETCH okl_cnsld_ar_hdrs_tl_pk_csr INTO
623: l_okl_cnsld_ar_hdrs_tl_rec.ID,
624: l_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE,
625: l_okl_cnsld_ar_hdrs_tl_rec.SOURCE_LANG,
626: l_okl_cnsld_ar_hdrs_tl_rec.SFWT_FLAG,
627: l_okl_cnsld_ar_hdrs_tl_rec.PRIVATE_LABEL_LOGO_URL,
628: l_okl_cnsld_ar_hdrs_tl_rec.CREATED_BY,
629: l_okl_cnsld_ar_hdrs_tl_rec.CREATION_DATE,
630: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATED_BY,
623: l_okl_cnsld_ar_hdrs_tl_rec.ID,
624: l_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE,
625: l_okl_cnsld_ar_hdrs_tl_rec.SOURCE_LANG,
626: l_okl_cnsld_ar_hdrs_tl_rec.SFWT_FLAG,
627: l_okl_cnsld_ar_hdrs_tl_rec.PRIVATE_LABEL_LOGO_URL,
628: l_okl_cnsld_ar_hdrs_tl_rec.CREATED_BY,
629: l_okl_cnsld_ar_hdrs_tl_rec.CREATION_DATE,
630: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATED_BY,
631: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATE_DATE,
624: l_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE,
625: l_okl_cnsld_ar_hdrs_tl_rec.SOURCE_LANG,
626: l_okl_cnsld_ar_hdrs_tl_rec.SFWT_FLAG,
627: l_okl_cnsld_ar_hdrs_tl_rec.PRIVATE_LABEL_LOGO_URL,
628: l_okl_cnsld_ar_hdrs_tl_rec.CREATED_BY,
629: l_okl_cnsld_ar_hdrs_tl_rec.CREATION_DATE,
630: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATED_BY,
631: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATE_DATE,
632: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATE_LOGIN;
625: l_okl_cnsld_ar_hdrs_tl_rec.SOURCE_LANG,
626: l_okl_cnsld_ar_hdrs_tl_rec.SFWT_FLAG,
627: l_okl_cnsld_ar_hdrs_tl_rec.PRIVATE_LABEL_LOGO_URL,
628: l_okl_cnsld_ar_hdrs_tl_rec.CREATED_BY,
629: l_okl_cnsld_ar_hdrs_tl_rec.CREATION_DATE,
630: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATED_BY,
631: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATE_DATE,
632: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATE_LOGIN;
633: x_no_data_found := okl_cnsld_ar_hdrs_tl_pk_csr%NOTFOUND;
626: l_okl_cnsld_ar_hdrs_tl_rec.SFWT_FLAG,
627: l_okl_cnsld_ar_hdrs_tl_rec.PRIVATE_LABEL_LOGO_URL,
628: l_okl_cnsld_ar_hdrs_tl_rec.CREATED_BY,
629: l_okl_cnsld_ar_hdrs_tl_rec.CREATION_DATE,
630: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATED_BY,
631: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATE_DATE,
632: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATE_LOGIN;
633: x_no_data_found := okl_cnsld_ar_hdrs_tl_pk_csr%NOTFOUND;
634: CLOSE okl_cnsld_ar_hdrs_tl_pk_csr;
627: l_okl_cnsld_ar_hdrs_tl_rec.PRIVATE_LABEL_LOGO_URL,
628: l_okl_cnsld_ar_hdrs_tl_rec.CREATED_BY,
629: l_okl_cnsld_ar_hdrs_tl_rec.CREATION_DATE,
630: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATED_BY,
631: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATE_DATE,
632: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATE_LOGIN;
633: x_no_data_found := okl_cnsld_ar_hdrs_tl_pk_csr%NOTFOUND;
634: CLOSE okl_cnsld_ar_hdrs_tl_pk_csr;
635: RETURN(l_okl_cnsld_ar_hdrs_tl_rec);
628: l_okl_cnsld_ar_hdrs_tl_rec.CREATED_BY,
629: l_okl_cnsld_ar_hdrs_tl_rec.CREATION_DATE,
630: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATED_BY,
631: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATE_DATE,
632: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATE_LOGIN;
633: x_no_data_found := okl_cnsld_ar_hdrs_tl_pk_csr%NOTFOUND;
634: CLOSE okl_cnsld_ar_hdrs_tl_pk_csr;
635: RETURN(l_okl_cnsld_ar_hdrs_tl_rec);
636: END get_rec;
629: l_okl_cnsld_ar_hdrs_tl_rec.CREATION_DATE,
630: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATED_BY,
631: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATE_DATE,
632: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATE_LOGIN;
633: x_no_data_found := okl_cnsld_ar_hdrs_tl_pk_csr%NOTFOUND;
634: CLOSE okl_cnsld_ar_hdrs_tl_pk_csr;
635: RETURN(l_okl_cnsld_ar_hdrs_tl_rec);
636: END get_rec;
637:
630: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATED_BY,
631: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATE_DATE,
632: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATE_LOGIN;
633: x_no_data_found := okl_cnsld_ar_hdrs_tl_pk_csr%NOTFOUND;
634: CLOSE okl_cnsld_ar_hdrs_tl_pk_csr;
635: RETURN(l_okl_cnsld_ar_hdrs_tl_rec);
636: END get_rec;
637:
638: FUNCTION get_rec (
631: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATE_DATE,
632: l_okl_cnsld_ar_hdrs_tl_rec.LAST_UPDATE_LOGIN;
633: x_no_data_found := okl_cnsld_ar_hdrs_tl_pk_csr%NOTFOUND;
634: CLOSE okl_cnsld_ar_hdrs_tl_pk_csr;
635: RETURN(l_okl_cnsld_ar_hdrs_tl_rec);
636: END get_rec;
637:
638: FUNCTION get_rec (
639: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type
635: RETURN(l_okl_cnsld_ar_hdrs_tl_rec);
636: END get_rec;
637:
638: FUNCTION get_rec (
639: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type
640: ) RETURN okl_cnsld_ar_hdrs_tl_rec_type IS
641: l_row_notfound BOOLEAN := TRUE;
642: BEGIN
643: RETURN(get_rec(p_okl_cnsld_ar_hdrs_tl_rec, l_row_notfound));
636: END get_rec;
637:
638: FUNCTION get_rec (
639: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type
640: ) RETURN okl_cnsld_ar_hdrs_tl_rec_type IS
641: l_row_notfound BOOLEAN := TRUE;
642: BEGIN
643: RETURN(get_rec(p_okl_cnsld_ar_hdrs_tl_rec, l_row_notfound));
644: END get_rec;
639: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type
640: ) RETURN okl_cnsld_ar_hdrs_tl_rec_type IS
641: l_row_notfound BOOLEAN := TRUE;
642: BEGIN
643: RETURN(get_rec(p_okl_cnsld_ar_hdrs_tl_rec, l_row_notfound));
644: END get_rec;
645: ---------------------------------------------------------------------------
646: -- FUNCTION get_rec for: OKL_CNSLD_AR_HDRS_V
647: ---------------------------------------------------------------------------
1158: p_to.legal_entity_id := p_from.legal_entity_id; -- for LE Uptake project 08-11-2006
1159: END migrate;
1160: PROCEDURE migrate (
1161: p_from IN cnrv_rec_type,
1162: p_to OUT NOCOPY okl_cnsld_ar_hdrs_tl_rec_type
1163: ) IS
1164: BEGIN
1165: p_to.id := p_from.id;
1166: p_to.sfwt_flag := p_from.sfwt_flag;
1171: p_to.last_update_date := p_from.last_update_date;
1172: p_to.last_update_login := p_from.last_update_login;
1173: END migrate;
1174: PROCEDURE migrate (
1175: p_from IN okl_cnsld_ar_hdrs_tl_rec_type,
1176: p_to OUT NOCOPY cnrv_rec_type
1177: ) IS
1178: BEGIN
1179: p_to.id := p_from.id;
1204: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1205: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1206: l_cnrv_rec cnrv_rec_type := p_cnrv_rec;
1207: l_cnr_rec cnr_rec_type;
1208: l_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type;
1209: BEGIN
1210: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1211: G_PKG_NAME,
1212: p_init_msg_list,
1501: '_PVT'
1502: );
1503: END insert_row;
1504: -----------------------------------------
1505: -- insert_row for:OKL_CNSLD_AR_HDRS_TL --
1506: -----------------------------------------
1507: PROCEDURE insert_row(
1508: p_init_msg_list IN VARCHAR2,
1509: x_return_status OUT NOCOPY VARCHAR2,
1508: p_init_msg_list IN VARCHAR2,
1509: x_return_status OUT NOCOPY VARCHAR2,
1510: x_msg_count OUT NOCOPY NUMBER,
1511: x_msg_data OUT NOCOPY VARCHAR2,
1512: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type,
1513: x_okl_cnsld_ar_hdrs_tl_rec OUT NOCOPY okl_cnsld_ar_hdrs_tl_rec_type) IS
1514:
1515: l_api_version CONSTANT NUMBER := 1;
1516: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1509: x_return_status OUT NOCOPY VARCHAR2,
1510: x_msg_count OUT NOCOPY NUMBER,
1511: x_msg_data OUT NOCOPY VARCHAR2,
1512: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type,
1513: x_okl_cnsld_ar_hdrs_tl_rec OUT NOCOPY okl_cnsld_ar_hdrs_tl_rec_type) IS
1514:
1515: l_api_version CONSTANT NUMBER := 1;
1516: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1517: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1514:
1515: l_api_version CONSTANT NUMBER := 1;
1516: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1517: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1518: l_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type := p_okl_cnsld_ar_hdrs_tl_rec;
1519: ldefoklcnsldarhdrstlrec okl_cnsld_ar_hdrs_tl_rec_type;
1520: CURSOR get_languages IS
1521: SELECT *
1522: FROM FND_LANGUAGES
1515: l_api_version CONSTANT NUMBER := 1;
1516: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1517: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1518: l_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type := p_okl_cnsld_ar_hdrs_tl_rec;
1519: ldefoklcnsldarhdrstlrec okl_cnsld_ar_hdrs_tl_rec_type;
1520: CURSOR get_languages IS
1521: SELECT *
1522: FROM FND_LANGUAGES
1523: WHERE INSTALLED_FLAG IN ('I', 'B');
1521: SELECT *
1522: FROM FND_LANGUAGES
1523: WHERE INSTALLED_FLAG IN ('I', 'B');
1524: ---------------------------------------------
1525: -- Set_Attributes for:OKL_CNSLD_AR_HDRS_TL --
1526: ---------------------------------------------
1527: FUNCTION Set_Attributes (
1528: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type,
1529: x_okl_cnsld_ar_hdrs_tl_rec OUT NOCOPY okl_cnsld_ar_hdrs_tl_rec_type
1524: ---------------------------------------------
1525: -- Set_Attributes for:OKL_CNSLD_AR_HDRS_TL --
1526: ---------------------------------------------
1527: FUNCTION Set_Attributes (
1528: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type,
1529: x_okl_cnsld_ar_hdrs_tl_rec OUT NOCOPY okl_cnsld_ar_hdrs_tl_rec_type
1530: ) RETURN VARCHAR2 IS
1531: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1532: BEGIN
1525: -- Set_Attributes for:OKL_CNSLD_AR_HDRS_TL --
1526: ---------------------------------------------
1527: FUNCTION Set_Attributes (
1528: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type,
1529: x_okl_cnsld_ar_hdrs_tl_rec OUT NOCOPY okl_cnsld_ar_hdrs_tl_rec_type
1530: ) RETURN VARCHAR2 IS
1531: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1532: BEGIN
1533: x_okl_cnsld_ar_hdrs_tl_rec := p_okl_cnsld_ar_hdrs_tl_rec;
1529: x_okl_cnsld_ar_hdrs_tl_rec OUT NOCOPY okl_cnsld_ar_hdrs_tl_rec_type
1530: ) RETURN VARCHAR2 IS
1531: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1532: BEGIN
1533: x_okl_cnsld_ar_hdrs_tl_rec := p_okl_cnsld_ar_hdrs_tl_rec;
1534: x_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE := USERENV('LANG');
1535: x_okl_cnsld_ar_hdrs_tl_rec.SOURCE_LANG := USERENV('LANG');
1536: RETURN(l_return_status);
1537: END Set_Attributes;
1530: ) RETURN VARCHAR2 IS
1531: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1532: BEGIN
1533: x_okl_cnsld_ar_hdrs_tl_rec := p_okl_cnsld_ar_hdrs_tl_rec;
1534: x_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE := USERENV('LANG');
1535: x_okl_cnsld_ar_hdrs_tl_rec.SOURCE_LANG := USERENV('LANG');
1536: RETURN(l_return_status);
1537: END Set_Attributes;
1538: BEGIN
1531: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1532: BEGIN
1533: x_okl_cnsld_ar_hdrs_tl_rec := p_okl_cnsld_ar_hdrs_tl_rec;
1534: x_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE := USERENV('LANG');
1535: x_okl_cnsld_ar_hdrs_tl_rec.SOURCE_LANG := USERENV('LANG');
1536: RETURN(l_return_status);
1537: END Set_Attributes;
1538: BEGIN
1539: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1546: RAISE Okc_Api.G_EXCEPTION_ERROR;
1547: END IF;
1548: --- Setting item attributes
1549: l_return_status := Set_Attributes(
1550: p_okl_cnsld_ar_hdrs_tl_rec, -- IN
1551: l_okl_cnsld_ar_hdrs_tl_rec); -- OUT
1552: --- If any errors happen abort API
1553: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1554: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1547: END IF;
1548: --- Setting item attributes
1549: l_return_status := Set_Attributes(
1550: p_okl_cnsld_ar_hdrs_tl_rec, -- IN
1551: l_okl_cnsld_ar_hdrs_tl_rec); -- OUT
1552: --- If any errors happen abort API
1553: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1554: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1555: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1555: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1556: RAISE Okc_Api.G_EXCEPTION_ERROR;
1557: END IF;
1558: FOR l_lang_rec IN get_languages LOOP
1559: l_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE := l_lang_rec.language_code;
1560: INSERT INTO OKL_CNSLD_AR_HDRS_TL(
1561: id,
1562: LANGUAGE,
1563: source_lang,
1556: RAISE Okc_Api.G_EXCEPTION_ERROR;
1557: END IF;
1558: FOR l_lang_rec IN get_languages LOOP
1559: l_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE := l_lang_rec.language_code;
1560: INSERT INTO OKL_CNSLD_AR_HDRS_TL(
1561: id,
1562: LANGUAGE,
1563: source_lang,
1564: sfwt_flag,
1568: last_updated_by,
1569: last_update_date,
1570: last_update_login)
1571: VALUES (
1572: l_okl_cnsld_ar_hdrs_tl_rec.id,
1573: l_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE,
1574: l_okl_cnsld_ar_hdrs_tl_rec.source_lang,
1575: l_okl_cnsld_ar_hdrs_tl_rec.sfwt_flag,
1576: l_okl_cnsld_ar_hdrs_tl_rec.private_label_logo_url,
1569: last_update_date,
1570: last_update_login)
1571: VALUES (
1572: l_okl_cnsld_ar_hdrs_tl_rec.id,
1573: l_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE,
1574: l_okl_cnsld_ar_hdrs_tl_rec.source_lang,
1575: l_okl_cnsld_ar_hdrs_tl_rec.sfwt_flag,
1576: l_okl_cnsld_ar_hdrs_tl_rec.private_label_logo_url,
1577: l_okl_cnsld_ar_hdrs_tl_rec.created_by,
1570: last_update_login)
1571: VALUES (
1572: l_okl_cnsld_ar_hdrs_tl_rec.id,
1573: l_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE,
1574: l_okl_cnsld_ar_hdrs_tl_rec.source_lang,
1575: l_okl_cnsld_ar_hdrs_tl_rec.sfwt_flag,
1576: l_okl_cnsld_ar_hdrs_tl_rec.private_label_logo_url,
1577: l_okl_cnsld_ar_hdrs_tl_rec.created_by,
1578: l_okl_cnsld_ar_hdrs_tl_rec.creation_date,
1571: VALUES (
1572: l_okl_cnsld_ar_hdrs_tl_rec.id,
1573: l_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE,
1574: l_okl_cnsld_ar_hdrs_tl_rec.source_lang,
1575: l_okl_cnsld_ar_hdrs_tl_rec.sfwt_flag,
1576: l_okl_cnsld_ar_hdrs_tl_rec.private_label_logo_url,
1577: l_okl_cnsld_ar_hdrs_tl_rec.created_by,
1578: l_okl_cnsld_ar_hdrs_tl_rec.creation_date,
1579: l_okl_cnsld_ar_hdrs_tl_rec.last_updated_by,
1572: l_okl_cnsld_ar_hdrs_tl_rec.id,
1573: l_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE,
1574: l_okl_cnsld_ar_hdrs_tl_rec.source_lang,
1575: l_okl_cnsld_ar_hdrs_tl_rec.sfwt_flag,
1576: l_okl_cnsld_ar_hdrs_tl_rec.private_label_logo_url,
1577: l_okl_cnsld_ar_hdrs_tl_rec.created_by,
1578: l_okl_cnsld_ar_hdrs_tl_rec.creation_date,
1579: l_okl_cnsld_ar_hdrs_tl_rec.last_updated_by,
1580: l_okl_cnsld_ar_hdrs_tl_rec.last_update_date,
1573: l_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE,
1574: l_okl_cnsld_ar_hdrs_tl_rec.source_lang,
1575: l_okl_cnsld_ar_hdrs_tl_rec.sfwt_flag,
1576: l_okl_cnsld_ar_hdrs_tl_rec.private_label_logo_url,
1577: l_okl_cnsld_ar_hdrs_tl_rec.created_by,
1578: l_okl_cnsld_ar_hdrs_tl_rec.creation_date,
1579: l_okl_cnsld_ar_hdrs_tl_rec.last_updated_by,
1580: l_okl_cnsld_ar_hdrs_tl_rec.last_update_date,
1581: l_okl_cnsld_ar_hdrs_tl_rec.last_update_login);
1574: l_okl_cnsld_ar_hdrs_tl_rec.source_lang,
1575: l_okl_cnsld_ar_hdrs_tl_rec.sfwt_flag,
1576: l_okl_cnsld_ar_hdrs_tl_rec.private_label_logo_url,
1577: l_okl_cnsld_ar_hdrs_tl_rec.created_by,
1578: l_okl_cnsld_ar_hdrs_tl_rec.creation_date,
1579: l_okl_cnsld_ar_hdrs_tl_rec.last_updated_by,
1580: l_okl_cnsld_ar_hdrs_tl_rec.last_update_date,
1581: l_okl_cnsld_ar_hdrs_tl_rec.last_update_login);
1582: END LOOP;
1575: l_okl_cnsld_ar_hdrs_tl_rec.sfwt_flag,
1576: l_okl_cnsld_ar_hdrs_tl_rec.private_label_logo_url,
1577: l_okl_cnsld_ar_hdrs_tl_rec.created_by,
1578: l_okl_cnsld_ar_hdrs_tl_rec.creation_date,
1579: l_okl_cnsld_ar_hdrs_tl_rec.last_updated_by,
1580: l_okl_cnsld_ar_hdrs_tl_rec.last_update_date,
1581: l_okl_cnsld_ar_hdrs_tl_rec.last_update_login);
1582: END LOOP;
1583: -- Set OUT values
1576: l_okl_cnsld_ar_hdrs_tl_rec.private_label_logo_url,
1577: l_okl_cnsld_ar_hdrs_tl_rec.created_by,
1578: l_okl_cnsld_ar_hdrs_tl_rec.creation_date,
1579: l_okl_cnsld_ar_hdrs_tl_rec.last_updated_by,
1580: l_okl_cnsld_ar_hdrs_tl_rec.last_update_date,
1581: l_okl_cnsld_ar_hdrs_tl_rec.last_update_login);
1582: END LOOP;
1583: -- Set OUT values
1584: x_okl_cnsld_ar_hdrs_tl_rec := l_okl_cnsld_ar_hdrs_tl_rec;
1577: l_okl_cnsld_ar_hdrs_tl_rec.created_by,
1578: l_okl_cnsld_ar_hdrs_tl_rec.creation_date,
1579: l_okl_cnsld_ar_hdrs_tl_rec.last_updated_by,
1580: l_okl_cnsld_ar_hdrs_tl_rec.last_update_date,
1581: l_okl_cnsld_ar_hdrs_tl_rec.last_update_login);
1582: END LOOP;
1583: -- Set OUT values
1584: x_okl_cnsld_ar_hdrs_tl_rec := l_okl_cnsld_ar_hdrs_tl_rec;
1585: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1580: l_okl_cnsld_ar_hdrs_tl_rec.last_update_date,
1581: l_okl_cnsld_ar_hdrs_tl_rec.last_update_login);
1582: END LOOP;
1583: -- Set OUT values
1584: x_okl_cnsld_ar_hdrs_tl_rec := l_okl_cnsld_ar_hdrs_tl_rec;
1585: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1586: EXCEPTION
1587: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1588: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1633: l_cnrv_rec cnrv_rec_type;
1634: l_def_cnrv_rec cnrv_rec_type;
1635: l_cnr_rec cnr_rec_type;
1636: lx_cnr_rec cnr_rec_type;
1637: l_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type;
1638: lx_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type;
1639: -------------------------------
1640: -- FUNCTION fill_who_columns --
1641: -------------------------------
1634: l_def_cnrv_rec cnrv_rec_type;
1635: l_cnr_rec cnr_rec_type;
1636: lx_cnr_rec cnr_rec_type;
1637: l_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type;
1638: lx_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type;
1639: -------------------------------
1640: -- FUNCTION fill_who_columns --
1641: -------------------------------
1642: FUNCTION fill_who_columns (
1724: --------------------------------------
1725: -- Move VIEW record to "Child" records
1726: --------------------------------------
1727: migrate(l_def_cnrv_rec, l_cnr_rec);
1728: migrate(l_def_cnrv_rec, l_okl_cnsld_ar_hdrs_tl_rec);
1729: --------------------------------------------
1730: -- Call the INSERT_ROW for each child record
1731: --------------------------------------------
1732: insert_row(
1747: p_init_msg_list,
1748: x_return_status,
1749: x_msg_count,
1750: x_msg_data,
1751: l_okl_cnsld_ar_hdrs_tl_rec,
1752: lx_okl_cnsld_ar_hdrs_tl_rec
1753: );
1754: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1755: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1748: x_return_status,
1749: x_msg_count,
1750: x_msg_data,
1751: l_okl_cnsld_ar_hdrs_tl_rec,
1752: lx_okl_cnsld_ar_hdrs_tl_rec
1753: );
1754: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1755: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1756: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1755: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1756: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1757: RAISE Okc_Api.G_EXCEPTION_ERROR;
1758: END IF;
1759: migrate(lx_okl_cnsld_ar_hdrs_tl_rec, l_def_cnrv_rec);
1760: -- Set OUT values
1761: x_cnrv_rec := l_def_cnrv_rec;
1762: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1763: EXCEPTION
1968: '_PVT'
1969: );
1970: END lock_row;
1971: ---------------------------------------
1972: -- lock_row for:OKL_CNSLD_AR_HDRS_TL --
1973: ---------------------------------------
1974: PROCEDURE lock_row(
1975: p_init_msg_list IN VARCHAR2,
1976: x_return_status OUT NOCOPY VARCHAR2,
1975: p_init_msg_list IN VARCHAR2,
1976: x_return_status OUT NOCOPY VARCHAR2,
1977: x_msg_count OUT NOCOPY NUMBER,
1978: x_msg_data OUT NOCOPY VARCHAR2,
1979: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type) IS
1980:
1981: E_Resource_Busy EXCEPTION;
1982: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1983: CURSOR lock_csr (p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type) IS
1979: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type) IS
1980:
1981: E_Resource_Busy EXCEPTION;
1982: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1983: CURSOR lock_csr (p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type) IS
1984: SELECT *
1985: FROM OKL_CNSLD_AR_HDRS_TL
1986: WHERE ID = p_okl_cnsld_ar_hdrs_tl_rec.id
1987: FOR UPDATE NOWAIT;
1981: E_Resource_Busy EXCEPTION;
1982: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1983: CURSOR lock_csr (p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type) IS
1984: SELECT *
1985: FROM OKL_CNSLD_AR_HDRS_TL
1986: WHERE ID = p_okl_cnsld_ar_hdrs_tl_rec.id
1987: FOR UPDATE NOWAIT;
1988:
1989: l_api_version CONSTANT NUMBER := 1;
1982: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1983: CURSOR lock_csr (p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type) IS
1984: SELECT *
1985: FROM OKL_CNSLD_AR_HDRS_TL
1986: WHERE ID = p_okl_cnsld_ar_hdrs_tl_rec.id
1987: FOR UPDATE NOWAIT;
1988:
1989: l_api_version CONSTANT NUMBER := 1;
1990: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
2002: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2003: RAISE Okc_Api.G_EXCEPTION_ERROR;
2004: END IF;
2005: BEGIN
2006: OPEN lock_csr(p_okl_cnsld_ar_hdrs_tl_rec);
2007: FETCH lock_csr INTO l_lock_var;
2008: l_row_notfound := lock_csr%NOTFOUND;
2009: CLOSE lock_csr;
2010: EXCEPTION
2067: l_api_version CONSTANT NUMBER := 1;
2068: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2069: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2070: l_cnr_rec cnr_rec_type;
2071: l_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type;
2072: BEGIN
2073: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2074: G_PKG_NAME,
2075: p_init_msg_list,
2085: --------------------------------------
2086: -- Move VIEW record to "Child" records
2087: --------------------------------------
2088: migrate(p_cnrv_rec, l_cnr_rec);
2089: migrate(p_cnrv_rec, l_okl_cnsld_ar_hdrs_tl_rec);
2090: --------------------------------------------
2091: -- Call the LOCK_ROW for each child record
2092: --------------------------------------------
2093: lock_row(
2106: p_init_msg_list,
2107: x_return_status,
2108: x_msg_count,
2109: x_msg_data,
2110: l_okl_cnsld_ar_hdrs_tl_rec
2111: );
2112: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2113: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2114: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2532: '_PVT'
2533: );
2534: END update_row;
2535: -----------------------------------------
2536: -- update_row for:OKL_CNSLD_AR_HDRS_TL --
2537: -----------------------------------------
2538: PROCEDURE update_row(
2539: p_init_msg_list IN VARCHAR2,
2540: x_return_status OUT NOCOPY VARCHAR2,
2539: p_init_msg_list IN VARCHAR2,
2540: x_return_status OUT NOCOPY VARCHAR2,
2541: x_msg_count OUT NOCOPY NUMBER,
2542: x_msg_data OUT NOCOPY VARCHAR2,
2543: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type,
2544: x_okl_cnsld_ar_hdrs_tl_rec OUT NOCOPY okl_cnsld_ar_hdrs_tl_rec_type) IS
2545:
2546: l_api_version CONSTANT NUMBER := 1;
2547: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2540: x_return_status OUT NOCOPY VARCHAR2,
2541: x_msg_count OUT NOCOPY NUMBER,
2542: x_msg_data OUT NOCOPY VARCHAR2,
2543: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type,
2544: x_okl_cnsld_ar_hdrs_tl_rec OUT NOCOPY okl_cnsld_ar_hdrs_tl_rec_type) IS
2545:
2546: l_api_version CONSTANT NUMBER := 1;
2547: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2548: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2545:
2546: l_api_version CONSTANT NUMBER := 1;
2547: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2548: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2549: l_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type := p_okl_cnsld_ar_hdrs_tl_rec;
2550: ldefoklcnsldarhdrstlrec okl_cnsld_ar_hdrs_tl_rec_type;
2551: l_row_notfound BOOLEAN := TRUE;
2552: ----------------------------------
2553: -- FUNCTION populate_new_record --
2546: l_api_version CONSTANT NUMBER := 1;
2547: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2548: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2549: l_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type := p_okl_cnsld_ar_hdrs_tl_rec;
2550: ldefoklcnsldarhdrstlrec okl_cnsld_ar_hdrs_tl_rec_type;
2551: l_row_notfound BOOLEAN := TRUE;
2552: ----------------------------------
2553: -- FUNCTION populate_new_record --
2554: ----------------------------------
2552: ----------------------------------
2553: -- FUNCTION populate_new_record --
2554: ----------------------------------
2555: FUNCTION populate_new_record (
2556: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type,
2557: x_okl_cnsld_ar_hdrs_tl_rec OUT NOCOPY okl_cnsld_ar_hdrs_tl_rec_type
2558: ) RETURN VARCHAR2 IS
2559: l_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type;
2560: l_row_notfound BOOLEAN := TRUE;
2553: -- FUNCTION populate_new_record --
2554: ----------------------------------
2555: FUNCTION populate_new_record (
2556: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type,
2557: x_okl_cnsld_ar_hdrs_tl_rec OUT NOCOPY okl_cnsld_ar_hdrs_tl_rec_type
2558: ) RETURN VARCHAR2 IS
2559: l_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type;
2560: l_row_notfound BOOLEAN := TRUE;
2561: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2555: FUNCTION populate_new_record (
2556: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type,
2557: x_okl_cnsld_ar_hdrs_tl_rec OUT NOCOPY okl_cnsld_ar_hdrs_tl_rec_type
2558: ) RETURN VARCHAR2 IS
2559: l_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type;
2560: l_row_notfound BOOLEAN := TRUE;
2561: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2562: BEGIN
2563: x_okl_cnsld_ar_hdrs_tl_rec := p_okl_cnsld_ar_hdrs_tl_rec;
2559: l_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type;
2560: l_row_notfound BOOLEAN := TRUE;
2561: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2562: BEGIN
2563: x_okl_cnsld_ar_hdrs_tl_rec := p_okl_cnsld_ar_hdrs_tl_rec;
2564: -- Get current database values
2565: l_okl_cnsld_ar_hdrs_tl_rec := get_rec(p_okl_cnsld_ar_hdrs_tl_rec, l_row_notfound);
2566: IF (l_row_notfound) THEN
2567: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2561: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2562: BEGIN
2563: x_okl_cnsld_ar_hdrs_tl_rec := p_okl_cnsld_ar_hdrs_tl_rec;
2564: -- Get current database values
2565: l_okl_cnsld_ar_hdrs_tl_rec := get_rec(p_okl_cnsld_ar_hdrs_tl_rec, l_row_notfound);
2566: IF (l_row_notfound) THEN
2567: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2568: END IF;
2569: IF (x_okl_cnsld_ar_hdrs_tl_rec.id = Okc_Api.G_MISS_NUM)
2565: l_okl_cnsld_ar_hdrs_tl_rec := get_rec(p_okl_cnsld_ar_hdrs_tl_rec, l_row_notfound);
2566: IF (l_row_notfound) THEN
2567: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2568: END IF;
2569: IF (x_okl_cnsld_ar_hdrs_tl_rec.id = Okc_Api.G_MISS_NUM)
2570: THEN
2571: x_okl_cnsld_ar_hdrs_tl_rec.id := l_okl_cnsld_ar_hdrs_tl_rec.id;
2572: END IF;
2573: IF (x_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE = Okc_Api.G_MISS_CHAR)
2567: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2568: END IF;
2569: IF (x_okl_cnsld_ar_hdrs_tl_rec.id = Okc_Api.G_MISS_NUM)
2570: THEN
2571: x_okl_cnsld_ar_hdrs_tl_rec.id := l_okl_cnsld_ar_hdrs_tl_rec.id;
2572: END IF;
2573: IF (x_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE = Okc_Api.G_MISS_CHAR)
2574: THEN
2575: x_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE := l_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE;
2569: IF (x_okl_cnsld_ar_hdrs_tl_rec.id = Okc_Api.G_MISS_NUM)
2570: THEN
2571: x_okl_cnsld_ar_hdrs_tl_rec.id := l_okl_cnsld_ar_hdrs_tl_rec.id;
2572: END IF;
2573: IF (x_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE = Okc_Api.G_MISS_CHAR)
2574: THEN
2575: x_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE := l_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE;
2576: END IF;
2577: IF (x_okl_cnsld_ar_hdrs_tl_rec.source_lang = Okc_Api.G_MISS_CHAR)
2571: x_okl_cnsld_ar_hdrs_tl_rec.id := l_okl_cnsld_ar_hdrs_tl_rec.id;
2572: END IF;
2573: IF (x_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE = Okc_Api.G_MISS_CHAR)
2574: THEN
2575: x_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE := l_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE;
2576: END IF;
2577: IF (x_okl_cnsld_ar_hdrs_tl_rec.source_lang = Okc_Api.G_MISS_CHAR)
2578: THEN
2579: x_okl_cnsld_ar_hdrs_tl_rec.source_lang := l_okl_cnsld_ar_hdrs_tl_rec.source_lang;
2573: IF (x_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE = Okc_Api.G_MISS_CHAR)
2574: THEN
2575: x_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE := l_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE;
2576: END IF;
2577: IF (x_okl_cnsld_ar_hdrs_tl_rec.source_lang = Okc_Api.G_MISS_CHAR)
2578: THEN
2579: x_okl_cnsld_ar_hdrs_tl_rec.source_lang := l_okl_cnsld_ar_hdrs_tl_rec.source_lang;
2580: END IF;
2581: IF (x_okl_cnsld_ar_hdrs_tl_rec.sfwt_flag = Okc_Api.G_MISS_CHAR)
2575: x_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE := l_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE;
2576: END IF;
2577: IF (x_okl_cnsld_ar_hdrs_tl_rec.source_lang = Okc_Api.G_MISS_CHAR)
2578: THEN
2579: x_okl_cnsld_ar_hdrs_tl_rec.source_lang := l_okl_cnsld_ar_hdrs_tl_rec.source_lang;
2580: END IF;
2581: IF (x_okl_cnsld_ar_hdrs_tl_rec.sfwt_flag = Okc_Api.G_MISS_CHAR)
2582: THEN
2583: x_okl_cnsld_ar_hdrs_tl_rec.sfwt_flag := l_okl_cnsld_ar_hdrs_tl_rec.sfwt_flag;
2577: IF (x_okl_cnsld_ar_hdrs_tl_rec.source_lang = Okc_Api.G_MISS_CHAR)
2578: THEN
2579: x_okl_cnsld_ar_hdrs_tl_rec.source_lang := l_okl_cnsld_ar_hdrs_tl_rec.source_lang;
2580: END IF;
2581: IF (x_okl_cnsld_ar_hdrs_tl_rec.sfwt_flag = Okc_Api.G_MISS_CHAR)
2582: THEN
2583: x_okl_cnsld_ar_hdrs_tl_rec.sfwt_flag := l_okl_cnsld_ar_hdrs_tl_rec.sfwt_flag;
2584: END IF;
2585: IF (x_okl_cnsld_ar_hdrs_tl_rec.private_label_logo_url = Okc_Api.G_MISS_CHAR)
2579: x_okl_cnsld_ar_hdrs_tl_rec.source_lang := l_okl_cnsld_ar_hdrs_tl_rec.source_lang;
2580: END IF;
2581: IF (x_okl_cnsld_ar_hdrs_tl_rec.sfwt_flag = Okc_Api.G_MISS_CHAR)
2582: THEN
2583: x_okl_cnsld_ar_hdrs_tl_rec.sfwt_flag := l_okl_cnsld_ar_hdrs_tl_rec.sfwt_flag;
2584: END IF;
2585: IF (x_okl_cnsld_ar_hdrs_tl_rec.private_label_logo_url = Okc_Api.G_MISS_CHAR)
2586: THEN
2587: x_okl_cnsld_ar_hdrs_tl_rec.private_label_logo_url := l_okl_cnsld_ar_hdrs_tl_rec.private_label_logo_url;
2581: IF (x_okl_cnsld_ar_hdrs_tl_rec.sfwt_flag = Okc_Api.G_MISS_CHAR)
2582: THEN
2583: x_okl_cnsld_ar_hdrs_tl_rec.sfwt_flag := l_okl_cnsld_ar_hdrs_tl_rec.sfwt_flag;
2584: END IF;
2585: IF (x_okl_cnsld_ar_hdrs_tl_rec.private_label_logo_url = Okc_Api.G_MISS_CHAR)
2586: THEN
2587: x_okl_cnsld_ar_hdrs_tl_rec.private_label_logo_url := l_okl_cnsld_ar_hdrs_tl_rec.private_label_logo_url;
2588: END IF;
2589: IF (x_okl_cnsld_ar_hdrs_tl_rec.created_by = Okc_Api.G_MISS_NUM)
2583: x_okl_cnsld_ar_hdrs_tl_rec.sfwt_flag := l_okl_cnsld_ar_hdrs_tl_rec.sfwt_flag;
2584: END IF;
2585: IF (x_okl_cnsld_ar_hdrs_tl_rec.private_label_logo_url = Okc_Api.G_MISS_CHAR)
2586: THEN
2587: x_okl_cnsld_ar_hdrs_tl_rec.private_label_logo_url := l_okl_cnsld_ar_hdrs_tl_rec.private_label_logo_url;
2588: END IF;
2589: IF (x_okl_cnsld_ar_hdrs_tl_rec.created_by = Okc_Api.G_MISS_NUM)
2590: THEN
2591: x_okl_cnsld_ar_hdrs_tl_rec.created_by := l_okl_cnsld_ar_hdrs_tl_rec.created_by;
2585: IF (x_okl_cnsld_ar_hdrs_tl_rec.private_label_logo_url = Okc_Api.G_MISS_CHAR)
2586: THEN
2587: x_okl_cnsld_ar_hdrs_tl_rec.private_label_logo_url := l_okl_cnsld_ar_hdrs_tl_rec.private_label_logo_url;
2588: END IF;
2589: IF (x_okl_cnsld_ar_hdrs_tl_rec.created_by = Okc_Api.G_MISS_NUM)
2590: THEN
2591: x_okl_cnsld_ar_hdrs_tl_rec.created_by := l_okl_cnsld_ar_hdrs_tl_rec.created_by;
2592: END IF;
2593: IF (x_okl_cnsld_ar_hdrs_tl_rec.creation_date = Okc_Api.G_MISS_DATE)
2587: x_okl_cnsld_ar_hdrs_tl_rec.private_label_logo_url := l_okl_cnsld_ar_hdrs_tl_rec.private_label_logo_url;
2588: END IF;
2589: IF (x_okl_cnsld_ar_hdrs_tl_rec.created_by = Okc_Api.G_MISS_NUM)
2590: THEN
2591: x_okl_cnsld_ar_hdrs_tl_rec.created_by := l_okl_cnsld_ar_hdrs_tl_rec.created_by;
2592: END IF;
2593: IF (x_okl_cnsld_ar_hdrs_tl_rec.creation_date = Okc_Api.G_MISS_DATE)
2594: THEN
2595: x_okl_cnsld_ar_hdrs_tl_rec.creation_date := l_okl_cnsld_ar_hdrs_tl_rec.creation_date;
2589: IF (x_okl_cnsld_ar_hdrs_tl_rec.created_by = Okc_Api.G_MISS_NUM)
2590: THEN
2591: x_okl_cnsld_ar_hdrs_tl_rec.created_by := l_okl_cnsld_ar_hdrs_tl_rec.created_by;
2592: END IF;
2593: IF (x_okl_cnsld_ar_hdrs_tl_rec.creation_date = Okc_Api.G_MISS_DATE)
2594: THEN
2595: x_okl_cnsld_ar_hdrs_tl_rec.creation_date := l_okl_cnsld_ar_hdrs_tl_rec.creation_date;
2596: END IF;
2597: IF (x_okl_cnsld_ar_hdrs_tl_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2591: x_okl_cnsld_ar_hdrs_tl_rec.created_by := l_okl_cnsld_ar_hdrs_tl_rec.created_by;
2592: END IF;
2593: IF (x_okl_cnsld_ar_hdrs_tl_rec.creation_date = Okc_Api.G_MISS_DATE)
2594: THEN
2595: x_okl_cnsld_ar_hdrs_tl_rec.creation_date := l_okl_cnsld_ar_hdrs_tl_rec.creation_date;
2596: END IF;
2597: IF (x_okl_cnsld_ar_hdrs_tl_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2598: THEN
2599: x_okl_cnsld_ar_hdrs_tl_rec.last_updated_by := l_okl_cnsld_ar_hdrs_tl_rec.last_updated_by;
2593: IF (x_okl_cnsld_ar_hdrs_tl_rec.creation_date = Okc_Api.G_MISS_DATE)
2594: THEN
2595: x_okl_cnsld_ar_hdrs_tl_rec.creation_date := l_okl_cnsld_ar_hdrs_tl_rec.creation_date;
2596: END IF;
2597: IF (x_okl_cnsld_ar_hdrs_tl_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2598: THEN
2599: x_okl_cnsld_ar_hdrs_tl_rec.last_updated_by := l_okl_cnsld_ar_hdrs_tl_rec.last_updated_by;
2600: END IF;
2601: IF (x_okl_cnsld_ar_hdrs_tl_rec.last_update_date = Okc_Api.G_MISS_DATE)
2595: x_okl_cnsld_ar_hdrs_tl_rec.creation_date := l_okl_cnsld_ar_hdrs_tl_rec.creation_date;
2596: END IF;
2597: IF (x_okl_cnsld_ar_hdrs_tl_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2598: THEN
2599: x_okl_cnsld_ar_hdrs_tl_rec.last_updated_by := l_okl_cnsld_ar_hdrs_tl_rec.last_updated_by;
2600: END IF;
2601: IF (x_okl_cnsld_ar_hdrs_tl_rec.last_update_date = Okc_Api.G_MISS_DATE)
2602: THEN
2603: x_okl_cnsld_ar_hdrs_tl_rec.last_update_date := l_okl_cnsld_ar_hdrs_tl_rec.last_update_date;
2597: IF (x_okl_cnsld_ar_hdrs_tl_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2598: THEN
2599: x_okl_cnsld_ar_hdrs_tl_rec.last_updated_by := l_okl_cnsld_ar_hdrs_tl_rec.last_updated_by;
2600: END IF;
2601: IF (x_okl_cnsld_ar_hdrs_tl_rec.last_update_date = Okc_Api.G_MISS_DATE)
2602: THEN
2603: x_okl_cnsld_ar_hdrs_tl_rec.last_update_date := l_okl_cnsld_ar_hdrs_tl_rec.last_update_date;
2604: END IF;
2605: IF (x_okl_cnsld_ar_hdrs_tl_rec.last_update_login = Okc_Api.G_MISS_NUM)
2599: x_okl_cnsld_ar_hdrs_tl_rec.last_updated_by := l_okl_cnsld_ar_hdrs_tl_rec.last_updated_by;
2600: END IF;
2601: IF (x_okl_cnsld_ar_hdrs_tl_rec.last_update_date = Okc_Api.G_MISS_DATE)
2602: THEN
2603: x_okl_cnsld_ar_hdrs_tl_rec.last_update_date := l_okl_cnsld_ar_hdrs_tl_rec.last_update_date;
2604: END IF;
2605: IF (x_okl_cnsld_ar_hdrs_tl_rec.last_update_login = Okc_Api.G_MISS_NUM)
2606: THEN
2607: x_okl_cnsld_ar_hdrs_tl_rec.last_update_login := l_okl_cnsld_ar_hdrs_tl_rec.last_update_login;
2601: IF (x_okl_cnsld_ar_hdrs_tl_rec.last_update_date = Okc_Api.G_MISS_DATE)
2602: THEN
2603: x_okl_cnsld_ar_hdrs_tl_rec.last_update_date := l_okl_cnsld_ar_hdrs_tl_rec.last_update_date;
2604: END IF;
2605: IF (x_okl_cnsld_ar_hdrs_tl_rec.last_update_login = Okc_Api.G_MISS_NUM)
2606: THEN
2607: x_okl_cnsld_ar_hdrs_tl_rec.last_update_login := l_okl_cnsld_ar_hdrs_tl_rec.last_update_login;
2608: END IF;
2609: RETURN(l_return_status);
2603: x_okl_cnsld_ar_hdrs_tl_rec.last_update_date := l_okl_cnsld_ar_hdrs_tl_rec.last_update_date;
2604: END IF;
2605: IF (x_okl_cnsld_ar_hdrs_tl_rec.last_update_login = Okc_Api.G_MISS_NUM)
2606: THEN
2607: x_okl_cnsld_ar_hdrs_tl_rec.last_update_login := l_okl_cnsld_ar_hdrs_tl_rec.last_update_login;
2608: END IF;
2609: RETURN(l_return_status);
2610: END populate_new_record;
2611: ---------------------------------------------
2608: END IF;
2609: RETURN(l_return_status);
2610: END populate_new_record;
2611: ---------------------------------------------
2612: -- Set_Attributes for:OKL_CNSLD_AR_HDRS_TL --
2613: ---------------------------------------------
2614: FUNCTION Set_Attributes (
2615: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type,
2616: x_okl_cnsld_ar_hdrs_tl_rec OUT NOCOPY okl_cnsld_ar_hdrs_tl_rec_type
2611: ---------------------------------------------
2612: -- Set_Attributes for:OKL_CNSLD_AR_HDRS_TL --
2613: ---------------------------------------------
2614: FUNCTION Set_Attributes (
2615: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type,
2616: x_okl_cnsld_ar_hdrs_tl_rec OUT NOCOPY okl_cnsld_ar_hdrs_tl_rec_type
2617: ) RETURN VARCHAR2 IS
2618: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2619: BEGIN
2612: -- Set_Attributes for:OKL_CNSLD_AR_HDRS_TL --
2613: ---------------------------------------------
2614: FUNCTION Set_Attributes (
2615: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type,
2616: x_okl_cnsld_ar_hdrs_tl_rec OUT NOCOPY okl_cnsld_ar_hdrs_tl_rec_type
2617: ) RETURN VARCHAR2 IS
2618: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2619: BEGIN
2620: x_okl_cnsld_ar_hdrs_tl_rec := p_okl_cnsld_ar_hdrs_tl_rec;
2616: x_okl_cnsld_ar_hdrs_tl_rec OUT NOCOPY okl_cnsld_ar_hdrs_tl_rec_type
2617: ) RETURN VARCHAR2 IS
2618: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2619: BEGIN
2620: x_okl_cnsld_ar_hdrs_tl_rec := p_okl_cnsld_ar_hdrs_tl_rec;
2621: x_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE := USERENV('LANG');
2622: x_okl_cnsld_ar_hdrs_tl_rec.SOURCE_LANG := USERENV('LANG');
2623: RETURN(l_return_status);
2624: END Set_Attributes;
2617: ) RETURN VARCHAR2 IS
2618: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2619: BEGIN
2620: x_okl_cnsld_ar_hdrs_tl_rec := p_okl_cnsld_ar_hdrs_tl_rec;
2621: x_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE := USERENV('LANG');
2622: x_okl_cnsld_ar_hdrs_tl_rec.SOURCE_LANG := USERENV('LANG');
2623: RETURN(l_return_status);
2624: END Set_Attributes;
2625: BEGIN
2618: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2619: BEGIN
2620: x_okl_cnsld_ar_hdrs_tl_rec := p_okl_cnsld_ar_hdrs_tl_rec;
2621: x_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE := USERENV('LANG');
2622: x_okl_cnsld_ar_hdrs_tl_rec.SOURCE_LANG := USERENV('LANG');
2623: RETURN(l_return_status);
2624: END Set_Attributes;
2625: BEGIN
2626: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2633: RAISE Okc_Api.G_EXCEPTION_ERROR;
2634: END IF;
2635: --- Setting item attributes
2636: l_return_status := Set_Attributes(
2637: p_okl_cnsld_ar_hdrs_tl_rec, -- IN
2638: l_okl_cnsld_ar_hdrs_tl_rec); -- OUT
2639: --- If any errors happen abort API
2640: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2641: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2634: END IF;
2635: --- Setting item attributes
2636: l_return_status := Set_Attributes(
2637: p_okl_cnsld_ar_hdrs_tl_rec, -- IN
2638: l_okl_cnsld_ar_hdrs_tl_rec); -- OUT
2639: --- If any errors happen abort API
2640: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2641: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2642: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2641: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2642: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2643: RAISE Okc_Api.G_EXCEPTION_ERROR;
2644: END IF;
2645: l_return_status := populate_new_record(l_okl_cnsld_ar_hdrs_tl_rec, ldefoklcnsldarhdrstlrec);
2646: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2647: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2648: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2649: RAISE Okc_Api.G_EXCEPTION_ERROR;
2647: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2648: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2649: RAISE Okc_Api.G_EXCEPTION_ERROR;
2650: END IF;
2651: UPDATE OKL_CNSLD_AR_HDRS_TL
2652: SET PRIVATE_LABEL_LOGO_URL = ldefoklcnsldarhdrstlrec.private_label_logo_url,
2653: CREATED_BY = ldefoklcnsldarhdrstlrec.created_by,
2654: CREATION_DATE = ldefoklcnsldarhdrstlrec.creation_date,
2655: LAST_UPDATED_BY = ldefoklcnsldarhdrstlrec.last_updated_by,
2658: WHERE ID = ldefoklcnsldarhdrstlrec.id
2659: --AND SOURCE_LANG = USERENV('LANG');
2660: AND USERENV('LANG') in (SOURCE_LANG, LANGUAGE);
2661:
2662: UPDATE OKL_CNSLD_AR_HDRS_TL
2663: SET SFWT_FLAG = 'Y'
2664: WHERE ID = ldefoklcnsldarhdrstlrec.id
2665: AND SOURCE_LANG <> USERENV('LANG');
2666:
2663: SET SFWT_FLAG = 'Y'
2664: WHERE ID = ldefoklcnsldarhdrstlrec.id
2665: AND SOURCE_LANG <> USERENV('LANG');
2666:
2667: x_okl_cnsld_ar_hdrs_tl_rec := ldefoklcnsldarhdrstlrec;
2668: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2669: EXCEPTION
2670: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2671: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2714: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2715: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2716: l_cnrv_rec cnrv_rec_type := p_cnrv_rec;
2717: l_def_cnrv_rec cnrv_rec_type;
2718: l_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type;
2719: lx_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type;
2720: l_cnr_rec cnr_rec_type;
2721: lx_cnr_rec cnr_rec_type;
2722: -------------------------------
2715: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2716: l_cnrv_rec cnrv_rec_type := p_cnrv_rec;
2717: l_def_cnrv_rec cnrv_rec_type;
2718: l_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type;
2719: lx_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type;
2720: l_cnr_rec cnr_rec_type;
2721: lx_cnr_rec cnr_rec_type;
2722: -------------------------------
2723: -- FUNCTION fill_who_columns --
3005:
3006: --------------------------------------
3007: -- Move VIEW record to "Child" records
3008: --------------------------------------
3009: migrate(l_def_cnrv_rec, l_okl_cnsld_ar_hdrs_tl_rec);
3010: migrate(l_def_cnrv_rec, l_cnr_rec);
3011: --------------------------------------------
3012: -- Call the UPDATE_ROW for each child record
3013: --------------------------------------------
3015: p_init_msg_list,
3016: x_return_status,
3017: x_msg_count,
3018: x_msg_data,
3019: l_okl_cnsld_ar_hdrs_tl_rec,
3020: lx_okl_cnsld_ar_hdrs_tl_rec
3021: );
3022: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3023: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3016: x_return_status,
3017: x_msg_count,
3018: x_msg_data,
3019: l_okl_cnsld_ar_hdrs_tl_rec,
3020: lx_okl_cnsld_ar_hdrs_tl_rec
3021: );
3022: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3023: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3024: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3023: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3024: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3025: RAISE Okc_Api.G_EXCEPTION_ERROR;
3026: END IF;
3027: migrate(lx_okl_cnsld_ar_hdrs_tl_rec, l_def_cnrv_rec);
3028: update_row(
3029: p_init_msg_list,
3030: x_return_status,
3031: x_msg_count,
3204: '_PVT'
3205: );
3206: END delete_row;
3207: -----------------------------------------
3208: -- delete_row for:OKL_CNSLD_AR_HDRS_TL --
3209: -----------------------------------------
3210: PROCEDURE delete_row(
3211: p_init_msg_list IN VARCHAR2,
3212: x_return_status OUT NOCOPY VARCHAR2,
3211: p_init_msg_list IN VARCHAR2,
3212: x_return_status OUT NOCOPY VARCHAR2,
3213: x_msg_count OUT NOCOPY NUMBER,
3214: x_msg_data OUT NOCOPY VARCHAR2,
3215: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type) IS
3216:
3217: l_api_version CONSTANT NUMBER := 1;
3218: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3219: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3216:
3217: l_api_version CONSTANT NUMBER := 1;
3218: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3219: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3220: l_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type:= p_okl_cnsld_ar_hdrs_tl_rec;
3221: l_row_notfound BOOLEAN := TRUE;
3222: ---------------------------------------------
3223: -- Set_Attributes for:OKL_CNSLD_AR_HDRS_TL --
3224: ---------------------------------------------
3219: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3220: l_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type:= p_okl_cnsld_ar_hdrs_tl_rec;
3221: l_row_notfound BOOLEAN := TRUE;
3222: ---------------------------------------------
3223: -- Set_Attributes for:OKL_CNSLD_AR_HDRS_TL --
3224: ---------------------------------------------
3225: FUNCTION Set_Attributes (
3226: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type,
3227: x_okl_cnsld_ar_hdrs_tl_rec OUT NOCOPY okl_cnsld_ar_hdrs_tl_rec_type
3222: ---------------------------------------------
3223: -- Set_Attributes for:OKL_CNSLD_AR_HDRS_TL --
3224: ---------------------------------------------
3225: FUNCTION Set_Attributes (
3226: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type,
3227: x_okl_cnsld_ar_hdrs_tl_rec OUT NOCOPY okl_cnsld_ar_hdrs_tl_rec_type
3228: ) RETURN VARCHAR2 IS
3229: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3230: BEGIN
3223: -- Set_Attributes for:OKL_CNSLD_AR_HDRS_TL --
3224: ---------------------------------------------
3225: FUNCTION Set_Attributes (
3226: p_okl_cnsld_ar_hdrs_tl_rec IN okl_cnsld_ar_hdrs_tl_rec_type,
3227: x_okl_cnsld_ar_hdrs_tl_rec OUT NOCOPY okl_cnsld_ar_hdrs_tl_rec_type
3228: ) RETURN VARCHAR2 IS
3229: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3230: BEGIN
3231: x_okl_cnsld_ar_hdrs_tl_rec := p_okl_cnsld_ar_hdrs_tl_rec;
3227: x_okl_cnsld_ar_hdrs_tl_rec OUT NOCOPY okl_cnsld_ar_hdrs_tl_rec_type
3228: ) RETURN VARCHAR2 IS
3229: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3230: BEGIN
3231: x_okl_cnsld_ar_hdrs_tl_rec := p_okl_cnsld_ar_hdrs_tl_rec;
3232: x_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE := USERENV('LANG');
3233: RETURN(l_return_status);
3234: END Set_Attributes;
3235: BEGIN
3228: ) RETURN VARCHAR2 IS
3229: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3230: BEGIN
3231: x_okl_cnsld_ar_hdrs_tl_rec := p_okl_cnsld_ar_hdrs_tl_rec;
3232: x_okl_cnsld_ar_hdrs_tl_rec.LANGUAGE := USERENV('LANG');
3233: RETURN(l_return_status);
3234: END Set_Attributes;
3235: BEGIN
3236: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3243: RAISE Okc_Api.G_EXCEPTION_ERROR;
3244: END IF;
3245: --- Setting item attributes
3246: l_return_status := Set_Attributes(
3247: p_okl_cnsld_ar_hdrs_tl_rec, -- IN
3248: l_okl_cnsld_ar_hdrs_tl_rec); -- OUT
3249: --- If any errors happen abort API
3250: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3251: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3244: END IF;
3245: --- Setting item attributes
3246: l_return_status := Set_Attributes(
3247: p_okl_cnsld_ar_hdrs_tl_rec, -- IN
3248: l_okl_cnsld_ar_hdrs_tl_rec); -- OUT
3249: --- If any errors happen abort API
3250: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3251: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3252: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3251: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3252: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3253: RAISE Okc_Api.G_EXCEPTION_ERROR;
3254: END IF;
3255: DELETE FROM OKL_CNSLD_AR_HDRS_TL
3256: WHERE ID = l_okl_cnsld_ar_hdrs_tl_rec.id;
3257:
3258: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3259: EXCEPTION
3252: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3253: RAISE Okc_Api.G_EXCEPTION_ERROR;
3254: END IF;
3255: DELETE FROM OKL_CNSLD_AR_HDRS_TL
3256: WHERE ID = l_okl_cnsld_ar_hdrs_tl_rec.id;
3257:
3258: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3259: EXCEPTION
3260: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3302: l_api_version CONSTANT NUMBER := 1;
3303: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3304: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3305: l_cnrv_rec cnrv_rec_type := p_cnrv_rec;
3306: l_okl_cnsld_ar_hdrs_tl_rec okl_cnsld_ar_hdrs_tl_rec_type;
3307: l_cnr_rec cnr_rec_type;
3308: BEGIN
3309: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3310: G_PKG_NAME,
3320: END IF;
3321: --------------------------------------
3322: -- Move VIEW record to "Child" records
3323: --------------------------------------
3324: migrate(l_cnrv_rec, l_okl_cnsld_ar_hdrs_tl_rec);
3325: migrate(l_cnrv_rec, l_cnr_rec);
3326: --------------------------------------------
3327: -- Call the DELETE_ROW for each child record
3328: --------------------------------------------
3330: p_init_msg_list,
3331: x_return_status,
3332: x_msg_count,
3333: x_msg_data,
3334: l_okl_cnsld_ar_hdrs_tl_rec
3335: );
3336: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3337: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3338: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN