[Home] [Help]
458: -- PROCEDURE add_language
459: ---------------------------------------------------------------------------
460: PROCEDURE add_language IS
461: BEGIN
462: DELETE FROM OKL_TXL_AR_INV_LNS_TL T
463: WHERE NOT EXISTS (
464: SELECT NULL
465: FROM OKL_TXL_AR_INV_LNS_B B
466: WHERE B.ID = T.ID
466: WHERE B.ID = T.ID
467: AND T.LANGUAGE = USERENV('LANG')
468: );
469:
470: UPDATE OKL_TXL_AR_INV_LNS_TL T SET (
471: DESCRIPTION) = (SELECT
472: B.DESCRIPTION
473: FROM OKL_TXL_AR_INV_LNS_TL B
474: WHERE B.ID = T.ID
469:
470: UPDATE OKL_TXL_AR_INV_LNS_TL T SET (
471: DESCRIPTION) = (SELECT
472: B.DESCRIPTION
473: FROM OKL_TXL_AR_INV_LNS_TL B
474: WHERE B.ID = T.ID
475: AND B.LANGUAGE = T.SOURCE_LANG)
476: WHERE (
477: T.ID,
478: T.LANGUAGE)
479: IN (SELECT
480: SUBT.ID,
481: SUBT.LANGUAGE
482: FROM OKL_TXL_AR_INV_LNS_TL SUBB, OKL_TXL_AR_INV_LNS_TL SUBT
483: WHERE SUBB.ID = SUBT.ID
484: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
485: AND (SUBB.DESCRIPTION <> SUBT.DESCRIPTION
486: OR (SUBB.DESCRIPTION IS NULL AND SUBT.DESCRIPTION IS NOT NULL)
486: OR (SUBB.DESCRIPTION IS NULL AND SUBT.DESCRIPTION IS NOT NULL)
487: OR (SUBB.DESCRIPTION IS NOT NULL AND SUBT.DESCRIPTION IS NULL)
488: ));
489:
490: INSERT INTO OKL_TXL_AR_INV_LNS_TL (
491: ID,
492: LANGUAGE,
493: SOURCE_LANG,
494: ERROR_MESSAGE,
510: B.CREATION_DATE,
511: B.LAST_UPDATED_BY,
512: B.LAST_UPDATE_DATE,
513: B.LAST_UPDATE_LOGIN
514: FROM OKL_TXL_AR_INV_LNS_TL B, FND_LANGUAGES L
515: WHERE L.INSTALLED_FLAG IN ('I', 'B')
516: AND B.LANGUAGE = USERENV('LANG')
517: AND NOT EXISTS(
518: SELECT NULL
515: WHERE L.INSTALLED_FLAG IN ('I', 'B')
516: AND B.LANGUAGE = USERENV('LANG')
517: AND NOT EXISTS(
518: SELECT NULL
519: FROM OKL_TXL_AR_INV_LNS_TL T
520: WHERE T.ID = B.ID
521: AND T.LANGUAGE = L.LANGUAGE_CODE
522: );
523:
676: BEGIN
677: RETURN(get_rec(p_til_rec, l_row_notfound));
678: END get_rec;
679: ---------------------------------------------------------------------------
680: -- FUNCTION get_rec for: OKL_TXL_AR_INV_LNS_TL
681: ---------------------------------------------------------------------------
682: FUNCTION get_rec (
683: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type,
684: x_no_data_found OUT NOCOPY BOOLEAN
679: ---------------------------------------------------------------------------
680: -- FUNCTION get_rec for: OKL_TXL_AR_INV_LNS_TL
681: ---------------------------------------------------------------------------
682: FUNCTION get_rec (
683: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type,
684: x_no_data_found OUT NOCOPY BOOLEAN
685: ) RETURN okl_txl_ar_inv_lns_tl_rec_type IS
686: CURSOR okl_txl_ar_inv_lns_tl_pk_csr (p_id IN NUMBER,
687: p_language IN VARCHAR2) IS
681: ---------------------------------------------------------------------------
682: FUNCTION get_rec (
683: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type,
684: x_no_data_found OUT NOCOPY BOOLEAN
685: ) RETURN okl_txl_ar_inv_lns_tl_rec_type IS
686: CURSOR okl_txl_ar_inv_lns_tl_pk_csr (p_id IN NUMBER,
687: p_language IN VARCHAR2) IS
688: SELECT
689: ID,
682: FUNCTION get_rec (
683: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type,
684: x_no_data_found OUT NOCOPY BOOLEAN
685: ) RETURN okl_txl_ar_inv_lns_tl_rec_type IS
686: CURSOR okl_txl_ar_inv_lns_tl_pk_csr (p_id IN NUMBER,
687: p_language IN VARCHAR2) IS
688: SELECT
689: ID,
690: LANGUAGE,
696: CREATION_DATE,
697: LAST_UPDATED_BY,
698: LAST_UPDATE_DATE,
699: LAST_UPDATE_LOGIN
700: FROM Okl_Txl_Ar_Inv_Lns_Tl
701: WHERE okl_txl_ar_inv_lns_tl.id = p_id
702: AND okl_txl_ar_inv_lns_tl.LANGUAGE = p_language;
703: l_okl_txl_ar_inv_lns_tl_pk okl_txl_ar_inv_lns_tl_pk_csr%ROWTYPE;
704: l_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type;
697: LAST_UPDATED_BY,
698: LAST_UPDATE_DATE,
699: LAST_UPDATE_LOGIN
700: FROM Okl_Txl_Ar_Inv_Lns_Tl
701: WHERE okl_txl_ar_inv_lns_tl.id = p_id
702: AND okl_txl_ar_inv_lns_tl.LANGUAGE = p_language;
703: l_okl_txl_ar_inv_lns_tl_pk okl_txl_ar_inv_lns_tl_pk_csr%ROWTYPE;
704: l_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type;
705: BEGIN
698: LAST_UPDATE_DATE,
699: LAST_UPDATE_LOGIN
700: FROM Okl_Txl_Ar_Inv_Lns_Tl
701: WHERE okl_txl_ar_inv_lns_tl.id = p_id
702: AND okl_txl_ar_inv_lns_tl.LANGUAGE = p_language;
703: l_okl_txl_ar_inv_lns_tl_pk okl_txl_ar_inv_lns_tl_pk_csr%ROWTYPE;
704: l_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type;
705: BEGIN
706: x_no_data_found := TRUE;
699: LAST_UPDATE_LOGIN
700: FROM Okl_Txl_Ar_Inv_Lns_Tl
701: WHERE okl_txl_ar_inv_lns_tl.id = p_id
702: AND okl_txl_ar_inv_lns_tl.LANGUAGE = p_language;
703: l_okl_txl_ar_inv_lns_tl_pk okl_txl_ar_inv_lns_tl_pk_csr%ROWTYPE;
704: l_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type;
705: BEGIN
706: x_no_data_found := TRUE;
707: -- Get current database values
700: FROM Okl_Txl_Ar_Inv_Lns_Tl
701: WHERE okl_txl_ar_inv_lns_tl.id = p_id
702: AND okl_txl_ar_inv_lns_tl.LANGUAGE = p_language;
703: l_okl_txl_ar_inv_lns_tl_pk okl_txl_ar_inv_lns_tl_pk_csr%ROWTYPE;
704: l_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type;
705: BEGIN
706: x_no_data_found := TRUE;
707: -- Get current database values
708: OPEN okl_txl_ar_inv_lns_tl_pk_csr (p_okl_txl_ar_inv_lns_tl_rec.id,
704: l_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type;
705: BEGIN
706: x_no_data_found := TRUE;
707: -- Get current database values
708: OPEN okl_txl_ar_inv_lns_tl_pk_csr (p_okl_txl_ar_inv_lns_tl_rec.id,
709: p_okl_txl_ar_inv_lns_tl_rec.LANGUAGE);
710: FETCH okl_txl_ar_inv_lns_tl_pk_csr INTO
711: l_okl_txl_ar_inv_lns_tl_rec.ID,
712: l_okl_txl_ar_inv_lns_tl_rec.LANGUAGE,
705: BEGIN
706: x_no_data_found := TRUE;
707: -- Get current database values
708: OPEN okl_txl_ar_inv_lns_tl_pk_csr (p_okl_txl_ar_inv_lns_tl_rec.id,
709: p_okl_txl_ar_inv_lns_tl_rec.LANGUAGE);
710: FETCH okl_txl_ar_inv_lns_tl_pk_csr INTO
711: l_okl_txl_ar_inv_lns_tl_rec.ID,
712: l_okl_txl_ar_inv_lns_tl_rec.LANGUAGE,
713: l_okl_txl_ar_inv_lns_tl_rec.SOURCE_LANG,
706: x_no_data_found := TRUE;
707: -- Get current database values
708: OPEN okl_txl_ar_inv_lns_tl_pk_csr (p_okl_txl_ar_inv_lns_tl_rec.id,
709: p_okl_txl_ar_inv_lns_tl_rec.LANGUAGE);
710: FETCH okl_txl_ar_inv_lns_tl_pk_csr INTO
711: l_okl_txl_ar_inv_lns_tl_rec.ID,
712: l_okl_txl_ar_inv_lns_tl_rec.LANGUAGE,
713: l_okl_txl_ar_inv_lns_tl_rec.SOURCE_LANG,
714: l_okl_txl_ar_inv_lns_tl_rec.ERROR_MESSAGE,
707: -- Get current database values
708: OPEN okl_txl_ar_inv_lns_tl_pk_csr (p_okl_txl_ar_inv_lns_tl_rec.id,
709: p_okl_txl_ar_inv_lns_tl_rec.LANGUAGE);
710: FETCH okl_txl_ar_inv_lns_tl_pk_csr INTO
711: l_okl_txl_ar_inv_lns_tl_rec.ID,
712: l_okl_txl_ar_inv_lns_tl_rec.LANGUAGE,
713: l_okl_txl_ar_inv_lns_tl_rec.SOURCE_LANG,
714: l_okl_txl_ar_inv_lns_tl_rec.ERROR_MESSAGE,
715: l_okl_txl_ar_inv_lns_tl_rec.SFWT_FLAG,
708: OPEN okl_txl_ar_inv_lns_tl_pk_csr (p_okl_txl_ar_inv_lns_tl_rec.id,
709: p_okl_txl_ar_inv_lns_tl_rec.LANGUAGE);
710: FETCH okl_txl_ar_inv_lns_tl_pk_csr INTO
711: l_okl_txl_ar_inv_lns_tl_rec.ID,
712: l_okl_txl_ar_inv_lns_tl_rec.LANGUAGE,
713: l_okl_txl_ar_inv_lns_tl_rec.SOURCE_LANG,
714: l_okl_txl_ar_inv_lns_tl_rec.ERROR_MESSAGE,
715: l_okl_txl_ar_inv_lns_tl_rec.SFWT_FLAG,
716: l_okl_txl_ar_inv_lns_tl_rec.DESCRIPTION,
709: p_okl_txl_ar_inv_lns_tl_rec.LANGUAGE);
710: FETCH okl_txl_ar_inv_lns_tl_pk_csr INTO
711: l_okl_txl_ar_inv_lns_tl_rec.ID,
712: l_okl_txl_ar_inv_lns_tl_rec.LANGUAGE,
713: l_okl_txl_ar_inv_lns_tl_rec.SOURCE_LANG,
714: l_okl_txl_ar_inv_lns_tl_rec.ERROR_MESSAGE,
715: l_okl_txl_ar_inv_lns_tl_rec.SFWT_FLAG,
716: l_okl_txl_ar_inv_lns_tl_rec.DESCRIPTION,
717: l_okl_txl_ar_inv_lns_tl_rec.CREATED_BY,
710: FETCH okl_txl_ar_inv_lns_tl_pk_csr INTO
711: l_okl_txl_ar_inv_lns_tl_rec.ID,
712: l_okl_txl_ar_inv_lns_tl_rec.LANGUAGE,
713: l_okl_txl_ar_inv_lns_tl_rec.SOURCE_LANG,
714: l_okl_txl_ar_inv_lns_tl_rec.ERROR_MESSAGE,
715: l_okl_txl_ar_inv_lns_tl_rec.SFWT_FLAG,
716: l_okl_txl_ar_inv_lns_tl_rec.DESCRIPTION,
717: l_okl_txl_ar_inv_lns_tl_rec.CREATED_BY,
718: l_okl_txl_ar_inv_lns_tl_rec.CREATION_DATE,
711: l_okl_txl_ar_inv_lns_tl_rec.ID,
712: l_okl_txl_ar_inv_lns_tl_rec.LANGUAGE,
713: l_okl_txl_ar_inv_lns_tl_rec.SOURCE_LANG,
714: l_okl_txl_ar_inv_lns_tl_rec.ERROR_MESSAGE,
715: l_okl_txl_ar_inv_lns_tl_rec.SFWT_FLAG,
716: l_okl_txl_ar_inv_lns_tl_rec.DESCRIPTION,
717: l_okl_txl_ar_inv_lns_tl_rec.CREATED_BY,
718: l_okl_txl_ar_inv_lns_tl_rec.CREATION_DATE,
719: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATED_BY,
712: l_okl_txl_ar_inv_lns_tl_rec.LANGUAGE,
713: l_okl_txl_ar_inv_lns_tl_rec.SOURCE_LANG,
714: l_okl_txl_ar_inv_lns_tl_rec.ERROR_MESSAGE,
715: l_okl_txl_ar_inv_lns_tl_rec.SFWT_FLAG,
716: l_okl_txl_ar_inv_lns_tl_rec.DESCRIPTION,
717: l_okl_txl_ar_inv_lns_tl_rec.CREATED_BY,
718: l_okl_txl_ar_inv_lns_tl_rec.CREATION_DATE,
719: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATED_BY,
720: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATE_DATE,
713: l_okl_txl_ar_inv_lns_tl_rec.SOURCE_LANG,
714: l_okl_txl_ar_inv_lns_tl_rec.ERROR_MESSAGE,
715: l_okl_txl_ar_inv_lns_tl_rec.SFWT_FLAG,
716: l_okl_txl_ar_inv_lns_tl_rec.DESCRIPTION,
717: l_okl_txl_ar_inv_lns_tl_rec.CREATED_BY,
718: l_okl_txl_ar_inv_lns_tl_rec.CREATION_DATE,
719: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATED_BY,
720: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATE_DATE,
721: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATE_LOGIN;
714: l_okl_txl_ar_inv_lns_tl_rec.ERROR_MESSAGE,
715: l_okl_txl_ar_inv_lns_tl_rec.SFWT_FLAG,
716: l_okl_txl_ar_inv_lns_tl_rec.DESCRIPTION,
717: l_okl_txl_ar_inv_lns_tl_rec.CREATED_BY,
718: l_okl_txl_ar_inv_lns_tl_rec.CREATION_DATE,
719: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATED_BY,
720: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATE_DATE,
721: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATE_LOGIN;
722: x_no_data_found := okl_txl_ar_inv_lns_tl_pk_csr%NOTFOUND;
715: l_okl_txl_ar_inv_lns_tl_rec.SFWT_FLAG,
716: l_okl_txl_ar_inv_lns_tl_rec.DESCRIPTION,
717: l_okl_txl_ar_inv_lns_tl_rec.CREATED_BY,
718: l_okl_txl_ar_inv_lns_tl_rec.CREATION_DATE,
719: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATED_BY,
720: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATE_DATE,
721: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATE_LOGIN;
722: x_no_data_found := okl_txl_ar_inv_lns_tl_pk_csr%NOTFOUND;
723: CLOSE okl_txl_ar_inv_lns_tl_pk_csr;
716: l_okl_txl_ar_inv_lns_tl_rec.DESCRIPTION,
717: l_okl_txl_ar_inv_lns_tl_rec.CREATED_BY,
718: l_okl_txl_ar_inv_lns_tl_rec.CREATION_DATE,
719: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATED_BY,
720: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATE_DATE,
721: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATE_LOGIN;
722: x_no_data_found := okl_txl_ar_inv_lns_tl_pk_csr%NOTFOUND;
723: CLOSE okl_txl_ar_inv_lns_tl_pk_csr;
724: RETURN(l_okl_txl_ar_inv_lns_tl_rec);
717: l_okl_txl_ar_inv_lns_tl_rec.CREATED_BY,
718: l_okl_txl_ar_inv_lns_tl_rec.CREATION_DATE,
719: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATED_BY,
720: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATE_DATE,
721: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATE_LOGIN;
722: x_no_data_found := okl_txl_ar_inv_lns_tl_pk_csr%NOTFOUND;
723: CLOSE okl_txl_ar_inv_lns_tl_pk_csr;
724: RETURN(l_okl_txl_ar_inv_lns_tl_rec);
725: END get_rec;
718: l_okl_txl_ar_inv_lns_tl_rec.CREATION_DATE,
719: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATED_BY,
720: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATE_DATE,
721: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATE_LOGIN;
722: x_no_data_found := okl_txl_ar_inv_lns_tl_pk_csr%NOTFOUND;
723: CLOSE okl_txl_ar_inv_lns_tl_pk_csr;
724: RETURN(l_okl_txl_ar_inv_lns_tl_rec);
725: END get_rec;
726:
719: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATED_BY,
720: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATE_DATE,
721: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATE_LOGIN;
722: x_no_data_found := okl_txl_ar_inv_lns_tl_pk_csr%NOTFOUND;
723: CLOSE okl_txl_ar_inv_lns_tl_pk_csr;
724: RETURN(l_okl_txl_ar_inv_lns_tl_rec);
725: END get_rec;
726:
727: FUNCTION get_rec (
720: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATE_DATE,
721: l_okl_txl_ar_inv_lns_tl_rec.LAST_UPDATE_LOGIN;
722: x_no_data_found := okl_txl_ar_inv_lns_tl_pk_csr%NOTFOUND;
723: CLOSE okl_txl_ar_inv_lns_tl_pk_csr;
724: RETURN(l_okl_txl_ar_inv_lns_tl_rec);
725: END get_rec;
726:
727: FUNCTION get_rec (
728: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type
724: RETURN(l_okl_txl_ar_inv_lns_tl_rec);
725: END get_rec;
726:
727: FUNCTION get_rec (
728: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type
729: ) RETURN okl_txl_ar_inv_lns_tl_rec_type IS
730: l_row_notfound BOOLEAN := TRUE;
731: BEGIN
732: RETURN(get_rec(p_okl_txl_ar_inv_lns_tl_rec, l_row_notfound));
725: END get_rec;
726:
727: FUNCTION get_rec (
728: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type
729: ) RETURN okl_txl_ar_inv_lns_tl_rec_type IS
730: l_row_notfound BOOLEAN := TRUE;
731: BEGIN
732: RETURN(get_rec(p_okl_txl_ar_inv_lns_tl_rec, l_row_notfound));
733: END get_rec;
728: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type
729: ) RETURN okl_txl_ar_inv_lns_tl_rec_type IS
730: l_row_notfound BOOLEAN := TRUE;
731: BEGIN
732: RETURN(get_rec(p_okl_txl_ar_inv_lns_tl_rec, l_row_notfound));
733: END get_rec;
734: ---------------------------------------------------------------------------
735: -- FUNCTION get_rec for: OKL_TXL_AR_INV_LNS_V
736: ---------------------------------------------------------------------------
1382:
1383: END migrate;
1384: PROCEDURE migrate (
1385: p_from IN tilv_rec_type,
1386: p_to IN OUT NOCOPY okl_txl_ar_inv_lns_tl_rec_type
1387: ) IS
1388: BEGIN
1389: p_to.id := p_from.id;
1390: p_to.error_message := p_from.error_message;
1396: p_to.last_update_date := p_from.last_update_date;
1397: p_to.last_update_login := p_from.last_update_login;
1398: END migrate;
1399: PROCEDURE migrate (
1400: p_from IN okl_txl_ar_inv_lns_tl_rec_type,
1401: p_to IN OUT NOCOPY tilv_rec_type
1402: ) IS
1403: BEGIN
1404: p_to.id := p_from.id;
1430: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1431: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1432: l_tilv_rec tilv_rec_type := p_tilv_rec;
1433: l_til_rec til_rec_type;
1434: l_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type;
1435: BEGIN
1436: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1437: G_PKG_NAME,
1438: p_init_msg_list,
1816: '_PVT'
1817: );
1818: END insert_row;
1819: ------------------------------------------
1820: -- insert_row for:OKL_TXL_AR_INV_LNS_TL --
1821: ------------------------------------------
1822: PROCEDURE insert_row(
1823: p_init_msg_list IN VARCHAR2,
1824: x_return_status OUT NOCOPY VARCHAR2,
1823: p_init_msg_list IN VARCHAR2,
1824: x_return_status OUT NOCOPY VARCHAR2,
1825: x_msg_count OUT NOCOPY NUMBER,
1826: x_msg_data OUT NOCOPY VARCHAR2,
1827: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type,
1828: x_okl_txl_ar_inv_lns_tl_rec OUT NOCOPY okl_txl_ar_inv_lns_tl_rec_type) IS
1829:
1830: l_api_version CONSTANT NUMBER := 1;
1831: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1824: x_return_status OUT NOCOPY VARCHAR2,
1825: x_msg_count OUT NOCOPY NUMBER,
1826: x_msg_data OUT NOCOPY VARCHAR2,
1827: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type,
1828: x_okl_txl_ar_inv_lns_tl_rec OUT NOCOPY okl_txl_ar_inv_lns_tl_rec_type) IS
1829:
1830: l_api_version CONSTANT NUMBER := 1;
1831: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1832: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1829:
1830: l_api_version CONSTANT NUMBER := 1;
1831: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1832: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1833: l_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type := p_okl_txl_ar_inv_lns_tl_rec;
1834: ldefokltxlarinvlnstlrec okl_txl_ar_inv_lns_tl_rec_type;
1835: CURSOR get_languages IS
1836: SELECT *
1837: FROM FND_LANGUAGES
1830: l_api_version CONSTANT NUMBER := 1;
1831: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1832: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1833: l_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type := p_okl_txl_ar_inv_lns_tl_rec;
1834: ldefokltxlarinvlnstlrec okl_txl_ar_inv_lns_tl_rec_type;
1835: CURSOR get_languages IS
1836: SELECT *
1837: FROM FND_LANGUAGES
1838: WHERE INSTALLED_FLAG IN ('I', 'B');
1836: SELECT *
1837: FROM FND_LANGUAGES
1838: WHERE INSTALLED_FLAG IN ('I', 'B');
1839: ----------------------------------------------
1840: -- Set_Attributes for:OKL_TXL_AR_INV_LNS_TL --
1841: ----------------------------------------------
1842: FUNCTION Set_Attributes (
1843: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type,
1844: x_okl_txl_ar_inv_lns_tl_rec OUT NOCOPY okl_txl_ar_inv_lns_tl_rec_type
1839: ----------------------------------------------
1840: -- Set_Attributes for:OKL_TXL_AR_INV_LNS_TL --
1841: ----------------------------------------------
1842: FUNCTION Set_Attributes (
1843: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type,
1844: x_okl_txl_ar_inv_lns_tl_rec OUT NOCOPY okl_txl_ar_inv_lns_tl_rec_type
1845: ) RETURN VARCHAR2 IS
1846: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1847: BEGIN
1840: -- Set_Attributes for:OKL_TXL_AR_INV_LNS_TL --
1841: ----------------------------------------------
1842: FUNCTION Set_Attributes (
1843: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type,
1844: x_okl_txl_ar_inv_lns_tl_rec OUT NOCOPY okl_txl_ar_inv_lns_tl_rec_type
1845: ) RETURN VARCHAR2 IS
1846: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1847: BEGIN
1848: x_okl_txl_ar_inv_lns_tl_rec := p_okl_txl_ar_inv_lns_tl_rec;
1844: x_okl_txl_ar_inv_lns_tl_rec OUT NOCOPY okl_txl_ar_inv_lns_tl_rec_type
1845: ) RETURN VARCHAR2 IS
1846: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1847: BEGIN
1848: x_okl_txl_ar_inv_lns_tl_rec := p_okl_txl_ar_inv_lns_tl_rec;
1849: x_okl_txl_ar_inv_lns_tl_rec.LANGUAGE := USERENV('LANG');
1850: x_okl_txl_ar_inv_lns_tl_rec.SOURCE_LANG := USERENV('LANG');
1851: RETURN(l_return_status);
1852: END Set_Attributes;
1845: ) RETURN VARCHAR2 IS
1846: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1847: BEGIN
1848: x_okl_txl_ar_inv_lns_tl_rec := p_okl_txl_ar_inv_lns_tl_rec;
1849: x_okl_txl_ar_inv_lns_tl_rec.LANGUAGE := USERENV('LANG');
1850: x_okl_txl_ar_inv_lns_tl_rec.SOURCE_LANG := USERENV('LANG');
1851: RETURN(l_return_status);
1852: END Set_Attributes;
1853: BEGIN
1846: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1847: BEGIN
1848: x_okl_txl_ar_inv_lns_tl_rec := p_okl_txl_ar_inv_lns_tl_rec;
1849: x_okl_txl_ar_inv_lns_tl_rec.LANGUAGE := USERENV('LANG');
1850: x_okl_txl_ar_inv_lns_tl_rec.SOURCE_LANG := USERENV('LANG');
1851: RETURN(l_return_status);
1852: END Set_Attributes;
1853: BEGIN
1854: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1861: RAISE Okl_Api.G_EXCEPTION_ERROR;
1862: END IF;
1863: --- Setting item attributes
1864: l_return_status := Set_Attributes(
1865: p_okl_txl_ar_inv_lns_tl_rec, -- IN
1866: l_okl_txl_ar_inv_lns_tl_rec); -- OUT
1867: --- If any errors happen abort API
1868: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1869: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1862: END IF;
1863: --- Setting item attributes
1864: l_return_status := Set_Attributes(
1865: p_okl_txl_ar_inv_lns_tl_rec, -- IN
1866: l_okl_txl_ar_inv_lns_tl_rec); -- OUT
1867: --- If any errors happen abort API
1868: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1869: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1870: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1870: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1871: RAISE Okl_Api.G_EXCEPTION_ERROR;
1872: END IF;
1873: FOR l_lang_rec IN get_languages LOOP
1874: l_okl_txl_ar_inv_lns_tl_rec.LANGUAGE := l_lang_rec.language_code;
1875: INSERT INTO OKL_TXL_AR_INV_LNS_TL(
1876: id,
1877: LANGUAGE,
1878: source_lang,
1871: RAISE Okl_Api.G_EXCEPTION_ERROR;
1872: END IF;
1873: FOR l_lang_rec IN get_languages LOOP
1874: l_okl_txl_ar_inv_lns_tl_rec.LANGUAGE := l_lang_rec.language_code;
1875: INSERT INTO OKL_TXL_AR_INV_LNS_TL(
1876: id,
1877: LANGUAGE,
1878: source_lang,
1879: error_message,
1884: last_updated_by,
1885: last_update_date,
1886: last_update_login)
1887: VALUES (
1888: l_okl_txl_ar_inv_lns_tl_rec.id,
1889: l_okl_txl_ar_inv_lns_tl_rec.LANGUAGE,
1890: l_okl_txl_ar_inv_lns_tl_rec.source_lang,
1891: l_okl_txl_ar_inv_lns_tl_rec.error_message,
1892: l_okl_txl_ar_inv_lns_tl_rec.sfwt_flag,
1885: last_update_date,
1886: last_update_login)
1887: VALUES (
1888: l_okl_txl_ar_inv_lns_tl_rec.id,
1889: l_okl_txl_ar_inv_lns_tl_rec.LANGUAGE,
1890: l_okl_txl_ar_inv_lns_tl_rec.source_lang,
1891: l_okl_txl_ar_inv_lns_tl_rec.error_message,
1892: l_okl_txl_ar_inv_lns_tl_rec.sfwt_flag,
1893: l_okl_txl_ar_inv_lns_tl_rec.description,
1886: last_update_login)
1887: VALUES (
1888: l_okl_txl_ar_inv_lns_tl_rec.id,
1889: l_okl_txl_ar_inv_lns_tl_rec.LANGUAGE,
1890: l_okl_txl_ar_inv_lns_tl_rec.source_lang,
1891: l_okl_txl_ar_inv_lns_tl_rec.error_message,
1892: l_okl_txl_ar_inv_lns_tl_rec.sfwt_flag,
1893: l_okl_txl_ar_inv_lns_tl_rec.description,
1894: l_okl_txl_ar_inv_lns_tl_rec.created_by,
1887: VALUES (
1888: l_okl_txl_ar_inv_lns_tl_rec.id,
1889: l_okl_txl_ar_inv_lns_tl_rec.LANGUAGE,
1890: l_okl_txl_ar_inv_lns_tl_rec.source_lang,
1891: l_okl_txl_ar_inv_lns_tl_rec.error_message,
1892: l_okl_txl_ar_inv_lns_tl_rec.sfwt_flag,
1893: l_okl_txl_ar_inv_lns_tl_rec.description,
1894: l_okl_txl_ar_inv_lns_tl_rec.created_by,
1895: l_okl_txl_ar_inv_lns_tl_rec.creation_date,
1888: l_okl_txl_ar_inv_lns_tl_rec.id,
1889: l_okl_txl_ar_inv_lns_tl_rec.LANGUAGE,
1890: l_okl_txl_ar_inv_lns_tl_rec.source_lang,
1891: l_okl_txl_ar_inv_lns_tl_rec.error_message,
1892: l_okl_txl_ar_inv_lns_tl_rec.sfwt_flag,
1893: l_okl_txl_ar_inv_lns_tl_rec.description,
1894: l_okl_txl_ar_inv_lns_tl_rec.created_by,
1895: l_okl_txl_ar_inv_lns_tl_rec.creation_date,
1896: l_okl_txl_ar_inv_lns_tl_rec.last_updated_by,
1889: l_okl_txl_ar_inv_lns_tl_rec.LANGUAGE,
1890: l_okl_txl_ar_inv_lns_tl_rec.source_lang,
1891: l_okl_txl_ar_inv_lns_tl_rec.error_message,
1892: l_okl_txl_ar_inv_lns_tl_rec.sfwt_flag,
1893: l_okl_txl_ar_inv_lns_tl_rec.description,
1894: l_okl_txl_ar_inv_lns_tl_rec.created_by,
1895: l_okl_txl_ar_inv_lns_tl_rec.creation_date,
1896: l_okl_txl_ar_inv_lns_tl_rec.last_updated_by,
1897: l_okl_txl_ar_inv_lns_tl_rec.last_update_date,
1890: l_okl_txl_ar_inv_lns_tl_rec.source_lang,
1891: l_okl_txl_ar_inv_lns_tl_rec.error_message,
1892: l_okl_txl_ar_inv_lns_tl_rec.sfwt_flag,
1893: l_okl_txl_ar_inv_lns_tl_rec.description,
1894: l_okl_txl_ar_inv_lns_tl_rec.created_by,
1895: l_okl_txl_ar_inv_lns_tl_rec.creation_date,
1896: l_okl_txl_ar_inv_lns_tl_rec.last_updated_by,
1897: l_okl_txl_ar_inv_lns_tl_rec.last_update_date,
1898: l_okl_txl_ar_inv_lns_tl_rec.last_update_login);
1891: l_okl_txl_ar_inv_lns_tl_rec.error_message,
1892: l_okl_txl_ar_inv_lns_tl_rec.sfwt_flag,
1893: l_okl_txl_ar_inv_lns_tl_rec.description,
1894: l_okl_txl_ar_inv_lns_tl_rec.created_by,
1895: l_okl_txl_ar_inv_lns_tl_rec.creation_date,
1896: l_okl_txl_ar_inv_lns_tl_rec.last_updated_by,
1897: l_okl_txl_ar_inv_lns_tl_rec.last_update_date,
1898: l_okl_txl_ar_inv_lns_tl_rec.last_update_login);
1899: END LOOP;
1892: l_okl_txl_ar_inv_lns_tl_rec.sfwt_flag,
1893: l_okl_txl_ar_inv_lns_tl_rec.description,
1894: l_okl_txl_ar_inv_lns_tl_rec.created_by,
1895: l_okl_txl_ar_inv_lns_tl_rec.creation_date,
1896: l_okl_txl_ar_inv_lns_tl_rec.last_updated_by,
1897: l_okl_txl_ar_inv_lns_tl_rec.last_update_date,
1898: l_okl_txl_ar_inv_lns_tl_rec.last_update_login);
1899: END LOOP;
1900: -- Set OUT values
1893: l_okl_txl_ar_inv_lns_tl_rec.description,
1894: l_okl_txl_ar_inv_lns_tl_rec.created_by,
1895: l_okl_txl_ar_inv_lns_tl_rec.creation_date,
1896: l_okl_txl_ar_inv_lns_tl_rec.last_updated_by,
1897: l_okl_txl_ar_inv_lns_tl_rec.last_update_date,
1898: l_okl_txl_ar_inv_lns_tl_rec.last_update_login);
1899: END LOOP;
1900: -- Set OUT values
1901: x_okl_txl_ar_inv_lns_tl_rec := l_okl_txl_ar_inv_lns_tl_rec;
1894: l_okl_txl_ar_inv_lns_tl_rec.created_by,
1895: l_okl_txl_ar_inv_lns_tl_rec.creation_date,
1896: l_okl_txl_ar_inv_lns_tl_rec.last_updated_by,
1897: l_okl_txl_ar_inv_lns_tl_rec.last_update_date,
1898: l_okl_txl_ar_inv_lns_tl_rec.last_update_login);
1899: END LOOP;
1900: -- Set OUT values
1901: x_okl_txl_ar_inv_lns_tl_rec := l_okl_txl_ar_inv_lns_tl_rec;
1902: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1897: l_okl_txl_ar_inv_lns_tl_rec.last_update_date,
1898: l_okl_txl_ar_inv_lns_tl_rec.last_update_login);
1899: END LOOP;
1900: -- Set OUT values
1901: x_okl_txl_ar_inv_lns_tl_rec := l_okl_txl_ar_inv_lns_tl_rec;
1902: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1903: EXCEPTION
1904: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1905: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1960: l_tilv_rec tilv_rec_type;
1961: l_def_tilv_rec tilv_rec_type;
1962: l_til_rec til_rec_type;
1963: lx_til_rec til_rec_type;
1964: l_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type;
1965: lx_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type;
1966: -------------------------------
1967: -- FUNCTION fill_who_columns --
1968: -------------------------------
1961: l_def_tilv_rec tilv_rec_type;
1962: l_til_rec til_rec_type;
1963: lx_til_rec til_rec_type;
1964: l_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type;
1965: lx_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type;
1966: -------------------------------
1967: -- FUNCTION fill_who_columns --
1968: -------------------------------
1969: FUNCTION fill_who_columns (
2052: --------------------------------------
2053: -- Move VIEW record to "Child" records
2054: --------------------------------------
2055: migrate(l_def_tilv_rec, l_til_rec);
2056: migrate(l_def_tilv_rec, l_okl_txl_ar_inv_lns_tl_rec);
2057: --------------------------------------------
2058: -- Call the INSERT_ROW for each child record
2059: --------------------------------------------
2060: insert_row(
2075: p_init_msg_list,
2076: x_return_status,
2077: x_msg_count,
2078: x_msg_data,
2079: l_okl_txl_ar_inv_lns_tl_rec,
2080: lx_okl_txl_ar_inv_lns_tl_rec
2081: );
2082: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2083: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2076: x_return_status,
2077: x_msg_count,
2078: x_msg_data,
2079: l_okl_txl_ar_inv_lns_tl_rec,
2080: lx_okl_txl_ar_inv_lns_tl_rec
2081: );
2082: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2083: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2084: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2083: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2084: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2085: RAISE Okl_Api.G_EXCEPTION_ERROR;
2086: END IF;
2087: migrate(lx_okl_txl_ar_inv_lns_tl_rec, l_def_tilv_rec);
2088: -- Set OUT values
2089: x_tilv_rec := l_def_tilv_rec;
2090: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2091: EXCEPTION
2342: '_PVT'
2343: );
2344: END lock_row;
2345: ----------------------------------------
2346: -- lock_row for:OKL_TXL_AR_INV_LNS_TL --
2347: ----------------------------------------
2348: PROCEDURE lock_row(
2349: p_init_msg_list IN VARCHAR2,
2350: x_return_status OUT NOCOPY VARCHAR2,
2349: p_init_msg_list IN VARCHAR2,
2350: x_return_status OUT NOCOPY VARCHAR2,
2351: x_msg_count OUT NOCOPY NUMBER,
2352: x_msg_data OUT NOCOPY VARCHAR2,
2353: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type) IS
2354:
2355: E_Resource_Busy EXCEPTION;
2356: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2357: CURSOR lock_csr (p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type) IS
2353: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type) IS
2354:
2355: E_Resource_Busy EXCEPTION;
2356: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2357: CURSOR lock_csr (p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type) IS
2358: SELECT *
2359: FROM OKL_TXL_AR_INV_LNS_TL
2360: WHERE ID = p_okl_txl_ar_inv_lns_tl_rec.id
2361: FOR UPDATE NOWAIT;
2355: E_Resource_Busy EXCEPTION;
2356: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2357: CURSOR lock_csr (p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type) IS
2358: SELECT *
2359: FROM OKL_TXL_AR_INV_LNS_TL
2360: WHERE ID = p_okl_txl_ar_inv_lns_tl_rec.id
2361: FOR UPDATE NOWAIT;
2362:
2363: l_api_version CONSTANT NUMBER := 1;
2356: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2357: CURSOR lock_csr (p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type) IS
2358: SELECT *
2359: FROM OKL_TXL_AR_INV_LNS_TL
2360: WHERE ID = p_okl_txl_ar_inv_lns_tl_rec.id
2361: FOR UPDATE NOWAIT;
2362:
2363: l_api_version CONSTANT NUMBER := 1;
2364: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
2376: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2377: RAISE Okl_Api.G_EXCEPTION_ERROR;
2378: END IF;
2379: BEGIN
2380: OPEN lock_csr(p_okl_txl_ar_inv_lns_tl_rec);
2381: FETCH lock_csr INTO l_lock_var;
2382: l_row_notfound := lock_csr%NOTFOUND;
2383: CLOSE lock_csr;
2384: EXCEPTION
2451: l_api_version CONSTANT NUMBER := 1;
2452: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2453: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2454: l_til_rec til_rec_type;
2455: l_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type;
2456: BEGIN
2457: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
2458: G_PKG_NAME,
2459: p_init_msg_list,
2469: --------------------------------------
2470: -- Move VIEW record to "Child" records
2471: --------------------------------------
2472: migrate(p_tilv_rec, l_til_rec);
2473: migrate(p_tilv_rec, l_okl_txl_ar_inv_lns_tl_rec);
2474: --------------------------------------------
2475: -- Call the LOCK_ROW for each child record
2476: --------------------------------------------
2477: lock_row(
2490: p_init_msg_list,
2491: x_return_status,
2492: x_msg_count,
2493: x_msg_data,
2494: l_okl_txl_ar_inv_lns_tl_rec
2495: );
2496: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2497: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2498: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3055: '_PVT'
3056: );
3057: END update_row;
3058: ------------------------------------------
3059: -- update_row for:OKL_TXL_AR_INV_LNS_TL --
3060: ------------------------------------------
3061: PROCEDURE update_row(
3062: p_init_msg_list IN VARCHAR2,
3063: x_return_status OUT NOCOPY VARCHAR2,
3062: p_init_msg_list IN VARCHAR2,
3063: x_return_status OUT NOCOPY VARCHAR2,
3064: x_msg_count OUT NOCOPY NUMBER,
3065: x_msg_data OUT NOCOPY VARCHAR2,
3066: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type,
3067: x_okl_txl_ar_inv_lns_tl_rec OUT NOCOPY okl_txl_ar_inv_lns_tl_rec_type) IS
3068:
3069: l_api_version CONSTANT NUMBER := 1;
3070: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
3063: x_return_status OUT NOCOPY VARCHAR2,
3064: x_msg_count OUT NOCOPY NUMBER,
3065: x_msg_data OUT NOCOPY VARCHAR2,
3066: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type,
3067: x_okl_txl_ar_inv_lns_tl_rec OUT NOCOPY okl_txl_ar_inv_lns_tl_rec_type) IS
3068:
3069: l_api_version CONSTANT NUMBER := 1;
3070: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
3071: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3068:
3069: l_api_version CONSTANT NUMBER := 1;
3070: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
3071: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3072: l_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type := p_okl_txl_ar_inv_lns_tl_rec;
3073: ldefokltxlarinvlnstlrec okl_txl_ar_inv_lns_tl_rec_type;
3074: l_row_notfound BOOLEAN := TRUE;
3075: ----------------------------------
3076: -- FUNCTION populate_new_record --
3069: l_api_version CONSTANT NUMBER := 1;
3070: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
3071: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3072: l_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type := p_okl_txl_ar_inv_lns_tl_rec;
3073: ldefokltxlarinvlnstlrec okl_txl_ar_inv_lns_tl_rec_type;
3074: l_row_notfound BOOLEAN := TRUE;
3075: ----------------------------------
3076: -- FUNCTION populate_new_record --
3077: ----------------------------------
3075: ----------------------------------
3076: -- FUNCTION populate_new_record --
3077: ----------------------------------
3078: FUNCTION populate_new_record (
3079: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type,
3080: x_okl_txl_ar_inv_lns_tl_rec OUT NOCOPY okl_txl_ar_inv_lns_tl_rec_type
3081: ) RETURN VARCHAR2 IS
3082: l_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type;
3083: l_row_notfound BOOLEAN := TRUE;
3076: -- FUNCTION populate_new_record --
3077: ----------------------------------
3078: FUNCTION populate_new_record (
3079: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type,
3080: x_okl_txl_ar_inv_lns_tl_rec OUT NOCOPY okl_txl_ar_inv_lns_tl_rec_type
3081: ) RETURN VARCHAR2 IS
3082: l_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type;
3083: l_row_notfound BOOLEAN := TRUE;
3084: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3078: FUNCTION populate_new_record (
3079: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type,
3080: x_okl_txl_ar_inv_lns_tl_rec OUT NOCOPY okl_txl_ar_inv_lns_tl_rec_type
3081: ) RETURN VARCHAR2 IS
3082: l_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type;
3083: l_row_notfound BOOLEAN := TRUE;
3084: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3085: BEGIN
3086: x_okl_txl_ar_inv_lns_tl_rec := p_okl_txl_ar_inv_lns_tl_rec;
3082: l_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type;
3083: l_row_notfound BOOLEAN := TRUE;
3084: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3085: BEGIN
3086: x_okl_txl_ar_inv_lns_tl_rec := p_okl_txl_ar_inv_lns_tl_rec;
3087: -- Get current database values
3088: l_okl_txl_ar_inv_lns_tl_rec := get_rec(p_okl_txl_ar_inv_lns_tl_rec, l_row_notfound);
3089: IF (l_row_notfound) THEN
3090: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
3084: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3085: BEGIN
3086: x_okl_txl_ar_inv_lns_tl_rec := p_okl_txl_ar_inv_lns_tl_rec;
3087: -- Get current database values
3088: l_okl_txl_ar_inv_lns_tl_rec := get_rec(p_okl_txl_ar_inv_lns_tl_rec, l_row_notfound);
3089: IF (l_row_notfound) THEN
3090: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
3091: END IF;
3092: IF (x_okl_txl_ar_inv_lns_tl_rec.id = Okl_Api.G_MISS_NUM)
3088: l_okl_txl_ar_inv_lns_tl_rec := get_rec(p_okl_txl_ar_inv_lns_tl_rec, l_row_notfound);
3089: IF (l_row_notfound) THEN
3090: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
3091: END IF;
3092: IF (x_okl_txl_ar_inv_lns_tl_rec.id = Okl_Api.G_MISS_NUM)
3093: THEN
3094: x_okl_txl_ar_inv_lns_tl_rec.id := l_okl_txl_ar_inv_lns_tl_rec.id;
3095: END IF;
3096: IF (x_okl_txl_ar_inv_lns_tl_rec.LANGUAGE = Okl_Api.G_MISS_CHAR)
3090: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
3091: END IF;
3092: IF (x_okl_txl_ar_inv_lns_tl_rec.id = Okl_Api.G_MISS_NUM)
3093: THEN
3094: x_okl_txl_ar_inv_lns_tl_rec.id := l_okl_txl_ar_inv_lns_tl_rec.id;
3095: END IF;
3096: IF (x_okl_txl_ar_inv_lns_tl_rec.LANGUAGE = Okl_Api.G_MISS_CHAR)
3097: THEN
3098: x_okl_txl_ar_inv_lns_tl_rec.LANGUAGE := l_okl_txl_ar_inv_lns_tl_rec.LANGUAGE;
3092: IF (x_okl_txl_ar_inv_lns_tl_rec.id = Okl_Api.G_MISS_NUM)
3093: THEN
3094: x_okl_txl_ar_inv_lns_tl_rec.id := l_okl_txl_ar_inv_lns_tl_rec.id;
3095: END IF;
3096: IF (x_okl_txl_ar_inv_lns_tl_rec.LANGUAGE = Okl_Api.G_MISS_CHAR)
3097: THEN
3098: x_okl_txl_ar_inv_lns_tl_rec.LANGUAGE := l_okl_txl_ar_inv_lns_tl_rec.LANGUAGE;
3099: END IF;
3100: IF (x_okl_txl_ar_inv_lns_tl_rec.source_lang = Okl_Api.G_MISS_CHAR)
3094: x_okl_txl_ar_inv_lns_tl_rec.id := l_okl_txl_ar_inv_lns_tl_rec.id;
3095: END IF;
3096: IF (x_okl_txl_ar_inv_lns_tl_rec.LANGUAGE = Okl_Api.G_MISS_CHAR)
3097: THEN
3098: x_okl_txl_ar_inv_lns_tl_rec.LANGUAGE := l_okl_txl_ar_inv_lns_tl_rec.LANGUAGE;
3099: END IF;
3100: IF (x_okl_txl_ar_inv_lns_tl_rec.source_lang = Okl_Api.G_MISS_CHAR)
3101: THEN
3102: x_okl_txl_ar_inv_lns_tl_rec.source_lang := l_okl_txl_ar_inv_lns_tl_rec.source_lang;
3096: IF (x_okl_txl_ar_inv_lns_tl_rec.LANGUAGE = Okl_Api.G_MISS_CHAR)
3097: THEN
3098: x_okl_txl_ar_inv_lns_tl_rec.LANGUAGE := l_okl_txl_ar_inv_lns_tl_rec.LANGUAGE;
3099: END IF;
3100: IF (x_okl_txl_ar_inv_lns_tl_rec.source_lang = Okl_Api.G_MISS_CHAR)
3101: THEN
3102: x_okl_txl_ar_inv_lns_tl_rec.source_lang := l_okl_txl_ar_inv_lns_tl_rec.source_lang;
3103: END IF;
3104: IF (x_okl_txl_ar_inv_lns_tl_rec.error_message = Okl_Api.G_MISS_CHAR)
3098: x_okl_txl_ar_inv_lns_tl_rec.LANGUAGE := l_okl_txl_ar_inv_lns_tl_rec.LANGUAGE;
3099: END IF;
3100: IF (x_okl_txl_ar_inv_lns_tl_rec.source_lang = Okl_Api.G_MISS_CHAR)
3101: THEN
3102: x_okl_txl_ar_inv_lns_tl_rec.source_lang := l_okl_txl_ar_inv_lns_tl_rec.source_lang;
3103: END IF;
3104: IF (x_okl_txl_ar_inv_lns_tl_rec.error_message = Okl_Api.G_MISS_CHAR)
3105: THEN
3106: x_okl_txl_ar_inv_lns_tl_rec.error_message := l_okl_txl_ar_inv_lns_tl_rec.error_message;
3100: IF (x_okl_txl_ar_inv_lns_tl_rec.source_lang = Okl_Api.G_MISS_CHAR)
3101: THEN
3102: x_okl_txl_ar_inv_lns_tl_rec.source_lang := l_okl_txl_ar_inv_lns_tl_rec.source_lang;
3103: END IF;
3104: IF (x_okl_txl_ar_inv_lns_tl_rec.error_message = Okl_Api.G_MISS_CHAR)
3105: THEN
3106: x_okl_txl_ar_inv_lns_tl_rec.error_message := l_okl_txl_ar_inv_lns_tl_rec.error_message;
3107: END IF;
3108: IF (x_okl_txl_ar_inv_lns_tl_rec.sfwt_flag = Okl_Api.G_MISS_CHAR)
3102: x_okl_txl_ar_inv_lns_tl_rec.source_lang := l_okl_txl_ar_inv_lns_tl_rec.source_lang;
3103: END IF;
3104: IF (x_okl_txl_ar_inv_lns_tl_rec.error_message = Okl_Api.G_MISS_CHAR)
3105: THEN
3106: x_okl_txl_ar_inv_lns_tl_rec.error_message := l_okl_txl_ar_inv_lns_tl_rec.error_message;
3107: END IF;
3108: IF (x_okl_txl_ar_inv_lns_tl_rec.sfwt_flag = Okl_Api.G_MISS_CHAR)
3109: THEN
3110: x_okl_txl_ar_inv_lns_tl_rec.sfwt_flag := l_okl_txl_ar_inv_lns_tl_rec.sfwt_flag;
3104: IF (x_okl_txl_ar_inv_lns_tl_rec.error_message = Okl_Api.G_MISS_CHAR)
3105: THEN
3106: x_okl_txl_ar_inv_lns_tl_rec.error_message := l_okl_txl_ar_inv_lns_tl_rec.error_message;
3107: END IF;
3108: IF (x_okl_txl_ar_inv_lns_tl_rec.sfwt_flag = Okl_Api.G_MISS_CHAR)
3109: THEN
3110: x_okl_txl_ar_inv_lns_tl_rec.sfwt_flag := l_okl_txl_ar_inv_lns_tl_rec.sfwt_flag;
3111: END IF;
3112: IF (x_okl_txl_ar_inv_lns_tl_rec.description = Okl_Api.G_MISS_CHAR)
3106: x_okl_txl_ar_inv_lns_tl_rec.error_message := l_okl_txl_ar_inv_lns_tl_rec.error_message;
3107: END IF;
3108: IF (x_okl_txl_ar_inv_lns_tl_rec.sfwt_flag = Okl_Api.G_MISS_CHAR)
3109: THEN
3110: x_okl_txl_ar_inv_lns_tl_rec.sfwt_flag := l_okl_txl_ar_inv_lns_tl_rec.sfwt_flag;
3111: END IF;
3112: IF (x_okl_txl_ar_inv_lns_tl_rec.description = Okl_Api.G_MISS_CHAR)
3113: THEN
3114: x_okl_txl_ar_inv_lns_tl_rec.description := l_okl_txl_ar_inv_lns_tl_rec.description;
3108: IF (x_okl_txl_ar_inv_lns_tl_rec.sfwt_flag = Okl_Api.G_MISS_CHAR)
3109: THEN
3110: x_okl_txl_ar_inv_lns_tl_rec.sfwt_flag := l_okl_txl_ar_inv_lns_tl_rec.sfwt_flag;
3111: END IF;
3112: IF (x_okl_txl_ar_inv_lns_tl_rec.description = Okl_Api.G_MISS_CHAR)
3113: THEN
3114: x_okl_txl_ar_inv_lns_tl_rec.description := l_okl_txl_ar_inv_lns_tl_rec.description;
3115: END IF;
3116: IF (x_okl_txl_ar_inv_lns_tl_rec.created_by = Okl_Api.G_MISS_NUM)
3110: x_okl_txl_ar_inv_lns_tl_rec.sfwt_flag := l_okl_txl_ar_inv_lns_tl_rec.sfwt_flag;
3111: END IF;
3112: IF (x_okl_txl_ar_inv_lns_tl_rec.description = Okl_Api.G_MISS_CHAR)
3113: THEN
3114: x_okl_txl_ar_inv_lns_tl_rec.description := l_okl_txl_ar_inv_lns_tl_rec.description;
3115: END IF;
3116: IF (x_okl_txl_ar_inv_lns_tl_rec.created_by = Okl_Api.G_MISS_NUM)
3117: THEN
3118: x_okl_txl_ar_inv_lns_tl_rec.created_by := l_okl_txl_ar_inv_lns_tl_rec.created_by;
3112: IF (x_okl_txl_ar_inv_lns_tl_rec.description = Okl_Api.G_MISS_CHAR)
3113: THEN
3114: x_okl_txl_ar_inv_lns_tl_rec.description := l_okl_txl_ar_inv_lns_tl_rec.description;
3115: END IF;
3116: IF (x_okl_txl_ar_inv_lns_tl_rec.created_by = Okl_Api.G_MISS_NUM)
3117: THEN
3118: x_okl_txl_ar_inv_lns_tl_rec.created_by := l_okl_txl_ar_inv_lns_tl_rec.created_by;
3119: END IF;
3120: IF (x_okl_txl_ar_inv_lns_tl_rec.creation_date = Okl_Api.G_MISS_DATE)
3114: x_okl_txl_ar_inv_lns_tl_rec.description := l_okl_txl_ar_inv_lns_tl_rec.description;
3115: END IF;
3116: IF (x_okl_txl_ar_inv_lns_tl_rec.created_by = Okl_Api.G_MISS_NUM)
3117: THEN
3118: x_okl_txl_ar_inv_lns_tl_rec.created_by := l_okl_txl_ar_inv_lns_tl_rec.created_by;
3119: END IF;
3120: IF (x_okl_txl_ar_inv_lns_tl_rec.creation_date = Okl_Api.G_MISS_DATE)
3121: THEN
3122: x_okl_txl_ar_inv_lns_tl_rec.creation_date := l_okl_txl_ar_inv_lns_tl_rec.creation_date;
3116: IF (x_okl_txl_ar_inv_lns_tl_rec.created_by = Okl_Api.G_MISS_NUM)
3117: THEN
3118: x_okl_txl_ar_inv_lns_tl_rec.created_by := l_okl_txl_ar_inv_lns_tl_rec.created_by;
3119: END IF;
3120: IF (x_okl_txl_ar_inv_lns_tl_rec.creation_date = Okl_Api.G_MISS_DATE)
3121: THEN
3122: x_okl_txl_ar_inv_lns_tl_rec.creation_date := l_okl_txl_ar_inv_lns_tl_rec.creation_date;
3123: END IF;
3124: IF (x_okl_txl_ar_inv_lns_tl_rec.last_updated_by = Okl_Api.G_MISS_NUM)
3118: x_okl_txl_ar_inv_lns_tl_rec.created_by := l_okl_txl_ar_inv_lns_tl_rec.created_by;
3119: END IF;
3120: IF (x_okl_txl_ar_inv_lns_tl_rec.creation_date = Okl_Api.G_MISS_DATE)
3121: THEN
3122: x_okl_txl_ar_inv_lns_tl_rec.creation_date := l_okl_txl_ar_inv_lns_tl_rec.creation_date;
3123: END IF;
3124: IF (x_okl_txl_ar_inv_lns_tl_rec.last_updated_by = Okl_Api.G_MISS_NUM)
3125: THEN
3126: x_okl_txl_ar_inv_lns_tl_rec.last_updated_by := l_okl_txl_ar_inv_lns_tl_rec.last_updated_by;
3120: IF (x_okl_txl_ar_inv_lns_tl_rec.creation_date = Okl_Api.G_MISS_DATE)
3121: THEN
3122: x_okl_txl_ar_inv_lns_tl_rec.creation_date := l_okl_txl_ar_inv_lns_tl_rec.creation_date;
3123: END IF;
3124: IF (x_okl_txl_ar_inv_lns_tl_rec.last_updated_by = Okl_Api.G_MISS_NUM)
3125: THEN
3126: x_okl_txl_ar_inv_lns_tl_rec.last_updated_by := l_okl_txl_ar_inv_lns_tl_rec.last_updated_by;
3127: END IF;
3128: IF (x_okl_txl_ar_inv_lns_tl_rec.last_update_date = Okl_Api.G_MISS_DATE)
3122: x_okl_txl_ar_inv_lns_tl_rec.creation_date := l_okl_txl_ar_inv_lns_tl_rec.creation_date;
3123: END IF;
3124: IF (x_okl_txl_ar_inv_lns_tl_rec.last_updated_by = Okl_Api.G_MISS_NUM)
3125: THEN
3126: x_okl_txl_ar_inv_lns_tl_rec.last_updated_by := l_okl_txl_ar_inv_lns_tl_rec.last_updated_by;
3127: END IF;
3128: IF (x_okl_txl_ar_inv_lns_tl_rec.last_update_date = Okl_Api.G_MISS_DATE)
3129: THEN
3130: x_okl_txl_ar_inv_lns_tl_rec.last_update_date := l_okl_txl_ar_inv_lns_tl_rec.last_update_date;
3124: IF (x_okl_txl_ar_inv_lns_tl_rec.last_updated_by = Okl_Api.G_MISS_NUM)
3125: THEN
3126: x_okl_txl_ar_inv_lns_tl_rec.last_updated_by := l_okl_txl_ar_inv_lns_tl_rec.last_updated_by;
3127: END IF;
3128: IF (x_okl_txl_ar_inv_lns_tl_rec.last_update_date = Okl_Api.G_MISS_DATE)
3129: THEN
3130: x_okl_txl_ar_inv_lns_tl_rec.last_update_date := l_okl_txl_ar_inv_lns_tl_rec.last_update_date;
3131: END IF;
3132: IF (x_okl_txl_ar_inv_lns_tl_rec.last_update_login = Okl_Api.G_MISS_NUM)
3126: x_okl_txl_ar_inv_lns_tl_rec.last_updated_by := l_okl_txl_ar_inv_lns_tl_rec.last_updated_by;
3127: END IF;
3128: IF (x_okl_txl_ar_inv_lns_tl_rec.last_update_date = Okl_Api.G_MISS_DATE)
3129: THEN
3130: x_okl_txl_ar_inv_lns_tl_rec.last_update_date := l_okl_txl_ar_inv_lns_tl_rec.last_update_date;
3131: END IF;
3132: IF (x_okl_txl_ar_inv_lns_tl_rec.last_update_login = Okl_Api.G_MISS_NUM)
3133: THEN
3134: x_okl_txl_ar_inv_lns_tl_rec.last_update_login := l_okl_txl_ar_inv_lns_tl_rec.last_update_login;
3128: IF (x_okl_txl_ar_inv_lns_tl_rec.last_update_date = Okl_Api.G_MISS_DATE)
3129: THEN
3130: x_okl_txl_ar_inv_lns_tl_rec.last_update_date := l_okl_txl_ar_inv_lns_tl_rec.last_update_date;
3131: END IF;
3132: IF (x_okl_txl_ar_inv_lns_tl_rec.last_update_login = Okl_Api.G_MISS_NUM)
3133: THEN
3134: x_okl_txl_ar_inv_lns_tl_rec.last_update_login := l_okl_txl_ar_inv_lns_tl_rec.last_update_login;
3135: END IF;
3136:
3130: x_okl_txl_ar_inv_lns_tl_rec.last_update_date := l_okl_txl_ar_inv_lns_tl_rec.last_update_date;
3131: END IF;
3132: IF (x_okl_txl_ar_inv_lns_tl_rec.last_update_login = Okl_Api.G_MISS_NUM)
3133: THEN
3134: x_okl_txl_ar_inv_lns_tl_rec.last_update_login := l_okl_txl_ar_inv_lns_tl_rec.last_update_login;
3135: END IF;
3136:
3137: RETURN(l_return_status);
3138: END populate_new_record;
3136:
3137: RETURN(l_return_status);
3138: END populate_new_record;
3139: ----------------------------------------------
3140: -- Set_Attributes for:OKL_TXL_AR_INV_LNS_TL --
3141: ----------------------------------------------
3142: FUNCTION Set_Attributes (
3143: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type,
3144: x_okl_txl_ar_inv_lns_tl_rec OUT NOCOPY okl_txl_ar_inv_lns_tl_rec_type
3139: ----------------------------------------------
3140: -- Set_Attributes for:OKL_TXL_AR_INV_LNS_TL --
3141: ----------------------------------------------
3142: FUNCTION Set_Attributes (
3143: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type,
3144: x_okl_txl_ar_inv_lns_tl_rec OUT NOCOPY okl_txl_ar_inv_lns_tl_rec_type
3145: ) RETURN VARCHAR2 IS
3146: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3147: BEGIN
3140: -- Set_Attributes for:OKL_TXL_AR_INV_LNS_TL --
3141: ----------------------------------------------
3142: FUNCTION Set_Attributes (
3143: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type,
3144: x_okl_txl_ar_inv_lns_tl_rec OUT NOCOPY okl_txl_ar_inv_lns_tl_rec_type
3145: ) RETURN VARCHAR2 IS
3146: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3147: BEGIN
3148: x_okl_txl_ar_inv_lns_tl_rec := p_okl_txl_ar_inv_lns_tl_rec;
3144: x_okl_txl_ar_inv_lns_tl_rec OUT NOCOPY okl_txl_ar_inv_lns_tl_rec_type
3145: ) RETURN VARCHAR2 IS
3146: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3147: BEGIN
3148: x_okl_txl_ar_inv_lns_tl_rec := p_okl_txl_ar_inv_lns_tl_rec;
3149: x_okl_txl_ar_inv_lns_tl_rec.LANGUAGE := USERENV('LANG');
3150: x_okl_txl_ar_inv_lns_tl_rec.SOURCE_LANG := USERENV('LANG');
3151: RETURN(l_return_status);
3152: END Set_Attributes;
3145: ) RETURN VARCHAR2 IS
3146: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3147: BEGIN
3148: x_okl_txl_ar_inv_lns_tl_rec := p_okl_txl_ar_inv_lns_tl_rec;
3149: x_okl_txl_ar_inv_lns_tl_rec.LANGUAGE := USERENV('LANG');
3150: x_okl_txl_ar_inv_lns_tl_rec.SOURCE_LANG := USERENV('LANG');
3151: RETURN(l_return_status);
3152: END Set_Attributes;
3153: BEGIN
3146: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3147: BEGIN
3148: x_okl_txl_ar_inv_lns_tl_rec := p_okl_txl_ar_inv_lns_tl_rec;
3149: x_okl_txl_ar_inv_lns_tl_rec.LANGUAGE := USERENV('LANG');
3150: x_okl_txl_ar_inv_lns_tl_rec.SOURCE_LANG := USERENV('LANG');
3151: RETURN(l_return_status);
3152: END Set_Attributes;
3153: BEGIN
3154: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
3161: RAISE Okl_Api.G_EXCEPTION_ERROR;
3162: END IF;
3163: --- Setting item attributes
3164: l_return_status := Set_Attributes(
3165: p_okl_txl_ar_inv_lns_tl_rec, -- IN
3166: l_okl_txl_ar_inv_lns_tl_rec); -- OUT
3167: --- If any errors happen abort API
3168: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3169: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3162: END IF;
3163: --- Setting item attributes
3164: l_return_status := Set_Attributes(
3165: p_okl_txl_ar_inv_lns_tl_rec, -- IN
3166: l_okl_txl_ar_inv_lns_tl_rec); -- OUT
3167: --- If any errors happen abort API
3168: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3169: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3170: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3169: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3170: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3171: RAISE Okl_Api.G_EXCEPTION_ERROR;
3172: END IF;
3173: l_return_status := populate_new_record(l_okl_txl_ar_inv_lns_tl_rec, ldefokltxlarinvlnstlrec);
3174: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3175: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3176: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3177: RAISE Okl_Api.G_EXCEPTION_ERROR;
3175: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3176: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3177: RAISE Okl_Api.G_EXCEPTION_ERROR;
3178: END IF;
3179: UPDATE OKL_TXL_AR_INV_LNS_TL
3180: SET DESCRIPTION = ldefokltxlarinvlnstlrec.description,
3181: SOURCE_LANG = ldefokltxlarinvlnstlrec.source_lang,
3182: CREATED_BY = ldefokltxlarinvlnstlrec.created_by,
3183: CREATION_DATE = ldefokltxlarinvlnstlrec.creation_date,
3186: LAST_UPDATE_LOGIN = ldefokltxlarinvlnstlrec.last_update_login
3187: WHERE ID = ldefokltxlarinvlnstlrec.id
3188: AND USERENV('LANG') in (SOURCE_LANG, LANGUAGE);
3189:
3190: UPDATE OKL_TXL_AR_INV_LNS_TL
3191: SET SFWT_FLAG = 'Y'
3192: WHERE ID = ldefokltxlarinvlnstlrec.id
3193: AND SOURCE_LANG <> USERENV('LANG');
3194:
3191: SET SFWT_FLAG = 'Y'
3192: WHERE ID = ldefokltxlarinvlnstlrec.id
3193: AND SOURCE_LANG <> USERENV('LANG');
3194:
3195: x_okl_txl_ar_inv_lns_tl_rec := ldefokltxlarinvlnstlrec;
3196: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3197: EXCEPTION
3198: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3199: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
3252: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
3253: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3254: l_tilv_rec tilv_rec_type := p_tilv_rec;
3255: l_def_tilv_rec tilv_rec_type;
3256: l_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type;
3257: lx_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type;
3258: l_til_rec til_rec_type;
3259: lx_til_rec til_rec_type;
3260: -------------------------------
3253: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3254: l_tilv_rec tilv_rec_type := p_tilv_rec;
3255: l_def_tilv_rec tilv_rec_type;
3256: l_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type;
3257: lx_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type;
3258: l_til_rec til_rec_type;
3259: lx_til_rec til_rec_type;
3260: -------------------------------
3261: -- FUNCTION fill_who_columns --
3610:
3611: --------------------------------------
3612: -- Move VIEW record to "Child" records
3613: --------------------------------------
3614: migrate(l_def_tilv_rec, l_okl_txl_ar_inv_lns_tl_rec);
3615: migrate(l_def_tilv_rec, l_til_rec);
3616: --------------------------------------------
3617: -- Call the UPDATE_ROW for each child record
3618: --------------------------------------------
3620: p_init_msg_list,
3621: x_return_status,
3622: x_msg_count,
3623: x_msg_data,
3624: l_okl_txl_ar_inv_lns_tl_rec,
3625: lx_okl_txl_ar_inv_lns_tl_rec
3626: );
3627: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3628: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3621: x_return_status,
3622: x_msg_count,
3623: x_msg_data,
3624: l_okl_txl_ar_inv_lns_tl_rec,
3625: lx_okl_txl_ar_inv_lns_tl_rec
3626: );
3627: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3628: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3629: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3628: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3629: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3630: RAISE Okl_Api.G_EXCEPTION_ERROR;
3631: END IF;
3632: migrate(lx_okl_txl_ar_inv_lns_tl_rec, l_def_tilv_rec);
3633: update_row(
3634: p_init_msg_list,
3635: x_return_status,
3636: x_msg_count,
3855: '_PVT'
3856: );
3857: END delete_row;
3858: ------------------------------------------
3859: -- delete_row for:OKL_TXL_AR_INV_LNS_TL --
3860: ------------------------------------------
3861: PROCEDURE delete_row(
3862: p_init_msg_list IN VARCHAR2,
3863: x_return_status OUT NOCOPY VARCHAR2,
3862: p_init_msg_list IN VARCHAR2,
3863: x_return_status OUT NOCOPY VARCHAR2,
3864: x_msg_count OUT NOCOPY NUMBER,
3865: x_msg_data OUT NOCOPY VARCHAR2,
3866: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type) IS
3867:
3868: l_api_version CONSTANT NUMBER := 1;
3869: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3870: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3867:
3868: l_api_version CONSTANT NUMBER := 1;
3869: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3870: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3871: l_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type:= p_okl_txl_ar_inv_lns_tl_rec;
3872: l_row_notfound BOOLEAN := TRUE;
3873: ----------------------------------------------
3874: -- Set_Attributes for:OKL_TXL_AR_INV_LNS_TL --
3875: ----------------------------------------------
3870: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3871: l_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type:= p_okl_txl_ar_inv_lns_tl_rec;
3872: l_row_notfound BOOLEAN := TRUE;
3873: ----------------------------------------------
3874: -- Set_Attributes for:OKL_TXL_AR_INV_LNS_TL --
3875: ----------------------------------------------
3876: FUNCTION Set_Attributes (
3877: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type,
3878: x_okl_txl_ar_inv_lns_tl_rec OUT NOCOPY okl_txl_ar_inv_lns_tl_rec_type
3873: ----------------------------------------------
3874: -- Set_Attributes for:OKL_TXL_AR_INV_LNS_TL --
3875: ----------------------------------------------
3876: FUNCTION Set_Attributes (
3877: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type,
3878: x_okl_txl_ar_inv_lns_tl_rec OUT NOCOPY okl_txl_ar_inv_lns_tl_rec_type
3879: ) RETURN VARCHAR2 IS
3880: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3881: BEGIN
3874: -- Set_Attributes for:OKL_TXL_AR_INV_LNS_TL --
3875: ----------------------------------------------
3876: FUNCTION Set_Attributes (
3877: p_okl_txl_ar_inv_lns_tl_rec IN okl_txl_ar_inv_lns_tl_rec_type,
3878: x_okl_txl_ar_inv_lns_tl_rec OUT NOCOPY okl_txl_ar_inv_lns_tl_rec_type
3879: ) RETURN VARCHAR2 IS
3880: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3881: BEGIN
3882: x_okl_txl_ar_inv_lns_tl_rec := p_okl_txl_ar_inv_lns_tl_rec;
3878: x_okl_txl_ar_inv_lns_tl_rec OUT NOCOPY okl_txl_ar_inv_lns_tl_rec_type
3879: ) RETURN VARCHAR2 IS
3880: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3881: BEGIN
3882: x_okl_txl_ar_inv_lns_tl_rec := p_okl_txl_ar_inv_lns_tl_rec;
3883: x_okl_txl_ar_inv_lns_tl_rec.LANGUAGE := USERENV('LANG');
3884: RETURN(l_return_status);
3885: END Set_Attributes;
3886: BEGIN
3879: ) RETURN VARCHAR2 IS
3880: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3881: BEGIN
3882: x_okl_txl_ar_inv_lns_tl_rec := p_okl_txl_ar_inv_lns_tl_rec;
3883: x_okl_txl_ar_inv_lns_tl_rec.LANGUAGE := USERENV('LANG');
3884: RETURN(l_return_status);
3885: END Set_Attributes;
3886: BEGIN
3887: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
3894: RAISE Okl_Api.G_EXCEPTION_ERROR;
3895: END IF;
3896: --- Setting item attributes
3897: l_return_status := Set_Attributes(
3898: p_okl_txl_ar_inv_lns_tl_rec, -- IN
3899: l_okl_txl_ar_inv_lns_tl_rec); -- OUT
3900: --- If any errors happen abort API
3901: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3902: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3895: END IF;
3896: --- Setting item attributes
3897: l_return_status := Set_Attributes(
3898: p_okl_txl_ar_inv_lns_tl_rec, -- IN
3899: l_okl_txl_ar_inv_lns_tl_rec); -- OUT
3900: --- If any errors happen abort API
3901: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3902: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3903: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3902: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3903: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3904: RAISE Okl_Api.G_EXCEPTION_ERROR;
3905: END IF;
3906: DELETE FROM OKL_TXL_AR_INV_LNS_TL
3907: WHERE ID = l_okl_txl_ar_inv_lns_tl_rec.id;
3908:
3909: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3910: EXCEPTION
3903: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3904: RAISE Okl_Api.G_EXCEPTION_ERROR;
3905: END IF;
3906: DELETE FROM OKL_TXL_AR_INV_LNS_TL
3907: WHERE ID = l_okl_txl_ar_inv_lns_tl_rec.id;
3908:
3909: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3910: EXCEPTION
3911: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3963: l_api_version CONSTANT NUMBER := 1;
3964: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3965: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3966: l_tilv_rec tilv_rec_type := p_tilv_rec;
3967: l_okl_txl_ar_inv_lns_tl_rec okl_txl_ar_inv_lns_tl_rec_type;
3968: l_til_rec til_rec_type;
3969: BEGIN
3970: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
3971: G_PKG_NAME,
3981: END IF;
3982: --------------------------------------
3983: -- Move VIEW record to "Child" records
3984: --------------------------------------
3985: migrate(l_tilv_rec, l_okl_txl_ar_inv_lns_tl_rec);
3986: migrate(l_tilv_rec, l_til_rec);
3987: --------------------------------------------
3988: -- Call the DELETE_ROW for each child record
3989: --------------------------------------------
3991: p_init_msg_list,
3992: x_return_status,
3993: x_msg_count,
3994: x_msg_data,
3995: l_okl_txl_ar_inv_lns_tl_rec
3996: );
3997: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3998: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3999: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN