677: -- PROCEDURE add_language
678: ---------------------------------------------------------------------------
679: PROCEDURE add_language IS
680: BEGIN
681: DELETE FROM OKL_XTL_PAY_INVS_TL T
682: WHERE NOT EXISTS (
683: SELECT NULL
684: FROM OKL_XTL_PAY_INVS_ALL_B B
685: WHERE B.ID = T.ID
685: WHERE B.ID = T.ID
686: AND T.LANGUAGE = USERENV('LANG')
687: );
688:
689: UPDATE OKL_XTL_PAY_INVS_TL T SET (
690: DESCRIPTION,
691: STREAM_TYPE) = (SELECT
692: B.DESCRIPTION,
693: B.STREAM_TYPE
690: DESCRIPTION,
691: STREAM_TYPE) = (SELECT
692: B.DESCRIPTION,
693: B.STREAM_TYPE
694: FROM OKL_XTL_PAY_INVS_TL B
695: WHERE B.ID = T.ID
696: AND B.LANGUAGE = T.SOURCE_LANG)
697: WHERE (
698: T.ID,
699: T.LANGUAGE)
700: IN (SELECT
701: SUBT.ID,
702: SUBT.LANGUAGE
703: FROM OKL_XTL_PAY_INVS_TL SUBB, OKL_XTL_PAY_INVS_TL SUBT
704: WHERE SUBB.ID = SUBT.ID
705: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
706: AND (SUBB.DESCRIPTION <> SUBT.DESCRIPTION
707: OR SUBB.STREAM_TYPE <> SUBT.STREAM_TYPE
710: OR (SUBB.STREAM_TYPE IS NULL AND SUBT.STREAM_TYPE IS NOT NULL)
711: OR (SUBB.STREAM_TYPE IS NOT NULL AND SUBT.STREAM_TYPE IS NULL)
712: ));
713:
714: INSERT INTO OKL_XTL_PAY_INVS_TL (
715: ID,
716: LANGUAGE,
717: SOURCE_LANG,
718: SFWT_FLAG,
734: B.CREATION_DATE,
735: B.LAST_UPDATED_BY,
736: B.LAST_UPDATE_DATE,
737: B.LAST_UPDATE_LOGIN
738: FROM OKL_XTL_PAY_INVS_TL B, FND_LANGUAGES L
739: WHERE L.INSTALLED_FLAG IN ('I', 'B')
740: AND B.LANGUAGE = USERENV('LANG')
741: AND NOT EXISTS(
742: SELECT NULL
739: WHERE L.INSTALLED_FLAG IN ('I', 'B')
740: AND B.LANGUAGE = USERENV('LANG')
741: AND NOT EXISTS(
742: SELECT NULL
743: FROM OKL_XTL_PAY_INVS_TL T
744: WHERE T.ID = B.ID
745: AND T.LANGUAGE = L.LANGUAGE_CODE
746: );
747:
857: BEGIN
858: RETURN(get_rec(p_xlp_rec, l_row_notfound));
859: END get_rec;
860: ---------------------------------------------------------------------------
861: -- FUNCTION get_rec for: OKL_XTL_PAY_INVS_TL
862: ---------------------------------------------------------------------------
863: FUNCTION get_rec (
864: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type,
865: x_no_data_found OUT NOCOPY BOOLEAN
860: ---------------------------------------------------------------------------
861: -- FUNCTION get_rec for: OKL_XTL_PAY_INVS_TL
862: ---------------------------------------------------------------------------
863: FUNCTION get_rec (
864: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type,
865: x_no_data_found OUT NOCOPY BOOLEAN
866: ) RETURN okl_xtl_pay_invs_tl_rec_type IS
867: CURSOR okl_xtl_pay_invs_tl_pk_csr (p_id IN NUMBER,
868: p_language IN VARCHAR2) IS
862: ---------------------------------------------------------------------------
863: FUNCTION get_rec (
864: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type,
865: x_no_data_found OUT NOCOPY BOOLEAN
866: ) RETURN okl_xtl_pay_invs_tl_rec_type IS
867: CURSOR okl_xtl_pay_invs_tl_pk_csr (p_id IN NUMBER,
868: p_language IN VARCHAR2) IS
869: SELECT
870: ID,
863: FUNCTION get_rec (
864: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type,
865: x_no_data_found OUT NOCOPY BOOLEAN
866: ) RETURN okl_xtl_pay_invs_tl_rec_type IS
867: CURSOR okl_xtl_pay_invs_tl_pk_csr (p_id IN NUMBER,
868: p_language IN VARCHAR2) IS
869: SELECT
870: ID,
871: LANGUAGE,
877: CREATION_DATE,
878: LAST_UPDATED_BY,
879: LAST_UPDATE_DATE,
880: LAST_UPDATE_LOGIN
881: FROM Okl_Xtl_Pay_Invs_Tl
882: WHERE okl_xtl_pay_invs_tl.id = p_id
883: AND okl_xtl_pay_invs_tl.language = p_language;
884: l_okl_xtl_pay_invs_tl_pk okl_xtl_pay_invs_tl_pk_csr%ROWTYPE;
885: l_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type;
878: LAST_UPDATED_BY,
879: LAST_UPDATE_DATE,
880: LAST_UPDATE_LOGIN
881: FROM Okl_Xtl_Pay_Invs_Tl
882: WHERE okl_xtl_pay_invs_tl.id = p_id
883: AND okl_xtl_pay_invs_tl.language = p_language;
884: l_okl_xtl_pay_invs_tl_pk okl_xtl_pay_invs_tl_pk_csr%ROWTYPE;
885: l_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type;
886: BEGIN
879: LAST_UPDATE_DATE,
880: LAST_UPDATE_LOGIN
881: FROM Okl_Xtl_Pay_Invs_Tl
882: WHERE okl_xtl_pay_invs_tl.id = p_id
883: AND okl_xtl_pay_invs_tl.language = p_language;
884: l_okl_xtl_pay_invs_tl_pk okl_xtl_pay_invs_tl_pk_csr%ROWTYPE;
885: l_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type;
886: BEGIN
887: x_no_data_found := TRUE;
880: LAST_UPDATE_LOGIN
881: FROM Okl_Xtl_Pay_Invs_Tl
882: WHERE okl_xtl_pay_invs_tl.id = p_id
883: AND okl_xtl_pay_invs_tl.language = p_language;
884: l_okl_xtl_pay_invs_tl_pk okl_xtl_pay_invs_tl_pk_csr%ROWTYPE;
885: l_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type;
886: BEGIN
887: x_no_data_found := TRUE;
888: -- Get current database values
881: FROM Okl_Xtl_Pay_Invs_Tl
882: WHERE okl_xtl_pay_invs_tl.id = p_id
883: AND okl_xtl_pay_invs_tl.language = p_language;
884: l_okl_xtl_pay_invs_tl_pk okl_xtl_pay_invs_tl_pk_csr%ROWTYPE;
885: l_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type;
886: BEGIN
887: x_no_data_found := TRUE;
888: -- Get current database values
889: OPEN okl_xtl_pay_invs_tl_pk_csr (p_okl_xtl_pay_invs_tl_rec.id,
885: l_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type;
886: BEGIN
887: x_no_data_found := TRUE;
888: -- Get current database values
889: OPEN okl_xtl_pay_invs_tl_pk_csr (p_okl_xtl_pay_invs_tl_rec.id,
890: p_okl_xtl_pay_invs_tl_rec.language);
891: FETCH okl_xtl_pay_invs_tl_pk_csr INTO
892: l_okl_xtl_pay_invs_tl_rec.ID,
893: l_okl_xtl_pay_invs_tl_rec.LANGUAGE,
886: BEGIN
887: x_no_data_found := TRUE;
888: -- Get current database values
889: OPEN okl_xtl_pay_invs_tl_pk_csr (p_okl_xtl_pay_invs_tl_rec.id,
890: p_okl_xtl_pay_invs_tl_rec.language);
891: FETCH okl_xtl_pay_invs_tl_pk_csr INTO
892: l_okl_xtl_pay_invs_tl_rec.ID,
893: l_okl_xtl_pay_invs_tl_rec.LANGUAGE,
894: l_okl_xtl_pay_invs_tl_rec.SOURCE_LANG,
887: x_no_data_found := TRUE;
888: -- Get current database values
889: OPEN okl_xtl_pay_invs_tl_pk_csr (p_okl_xtl_pay_invs_tl_rec.id,
890: p_okl_xtl_pay_invs_tl_rec.language);
891: FETCH okl_xtl_pay_invs_tl_pk_csr INTO
892: l_okl_xtl_pay_invs_tl_rec.ID,
893: l_okl_xtl_pay_invs_tl_rec.LANGUAGE,
894: l_okl_xtl_pay_invs_tl_rec.SOURCE_LANG,
895: l_okl_xtl_pay_invs_tl_rec.SFWT_FLAG,
888: -- Get current database values
889: OPEN okl_xtl_pay_invs_tl_pk_csr (p_okl_xtl_pay_invs_tl_rec.id,
890: p_okl_xtl_pay_invs_tl_rec.language);
891: FETCH okl_xtl_pay_invs_tl_pk_csr INTO
892: l_okl_xtl_pay_invs_tl_rec.ID,
893: l_okl_xtl_pay_invs_tl_rec.LANGUAGE,
894: l_okl_xtl_pay_invs_tl_rec.SOURCE_LANG,
895: l_okl_xtl_pay_invs_tl_rec.SFWT_FLAG,
896: l_okl_xtl_pay_invs_tl_rec.DESCRIPTION,
889: OPEN okl_xtl_pay_invs_tl_pk_csr (p_okl_xtl_pay_invs_tl_rec.id,
890: p_okl_xtl_pay_invs_tl_rec.language);
891: FETCH okl_xtl_pay_invs_tl_pk_csr INTO
892: l_okl_xtl_pay_invs_tl_rec.ID,
893: l_okl_xtl_pay_invs_tl_rec.LANGUAGE,
894: l_okl_xtl_pay_invs_tl_rec.SOURCE_LANG,
895: l_okl_xtl_pay_invs_tl_rec.SFWT_FLAG,
896: l_okl_xtl_pay_invs_tl_rec.DESCRIPTION,
897: l_okl_xtl_pay_invs_tl_rec.STREAM_TYPE,
890: p_okl_xtl_pay_invs_tl_rec.language);
891: FETCH okl_xtl_pay_invs_tl_pk_csr INTO
892: l_okl_xtl_pay_invs_tl_rec.ID,
893: l_okl_xtl_pay_invs_tl_rec.LANGUAGE,
894: l_okl_xtl_pay_invs_tl_rec.SOURCE_LANG,
895: l_okl_xtl_pay_invs_tl_rec.SFWT_FLAG,
896: l_okl_xtl_pay_invs_tl_rec.DESCRIPTION,
897: l_okl_xtl_pay_invs_tl_rec.STREAM_TYPE,
898: l_okl_xtl_pay_invs_tl_rec.CREATED_BY,
891: FETCH okl_xtl_pay_invs_tl_pk_csr INTO
892: l_okl_xtl_pay_invs_tl_rec.ID,
893: l_okl_xtl_pay_invs_tl_rec.LANGUAGE,
894: l_okl_xtl_pay_invs_tl_rec.SOURCE_LANG,
895: l_okl_xtl_pay_invs_tl_rec.SFWT_FLAG,
896: l_okl_xtl_pay_invs_tl_rec.DESCRIPTION,
897: l_okl_xtl_pay_invs_tl_rec.STREAM_TYPE,
898: l_okl_xtl_pay_invs_tl_rec.CREATED_BY,
899: l_okl_xtl_pay_invs_tl_rec.CREATION_DATE,
892: l_okl_xtl_pay_invs_tl_rec.ID,
893: l_okl_xtl_pay_invs_tl_rec.LANGUAGE,
894: l_okl_xtl_pay_invs_tl_rec.SOURCE_LANG,
895: l_okl_xtl_pay_invs_tl_rec.SFWT_FLAG,
896: l_okl_xtl_pay_invs_tl_rec.DESCRIPTION,
897: l_okl_xtl_pay_invs_tl_rec.STREAM_TYPE,
898: l_okl_xtl_pay_invs_tl_rec.CREATED_BY,
899: l_okl_xtl_pay_invs_tl_rec.CREATION_DATE,
900: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATED_BY,
893: l_okl_xtl_pay_invs_tl_rec.LANGUAGE,
894: l_okl_xtl_pay_invs_tl_rec.SOURCE_LANG,
895: l_okl_xtl_pay_invs_tl_rec.SFWT_FLAG,
896: l_okl_xtl_pay_invs_tl_rec.DESCRIPTION,
897: l_okl_xtl_pay_invs_tl_rec.STREAM_TYPE,
898: l_okl_xtl_pay_invs_tl_rec.CREATED_BY,
899: l_okl_xtl_pay_invs_tl_rec.CREATION_DATE,
900: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATED_BY,
901: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATE_DATE,
894: l_okl_xtl_pay_invs_tl_rec.SOURCE_LANG,
895: l_okl_xtl_pay_invs_tl_rec.SFWT_FLAG,
896: l_okl_xtl_pay_invs_tl_rec.DESCRIPTION,
897: l_okl_xtl_pay_invs_tl_rec.STREAM_TYPE,
898: l_okl_xtl_pay_invs_tl_rec.CREATED_BY,
899: l_okl_xtl_pay_invs_tl_rec.CREATION_DATE,
900: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATED_BY,
901: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATE_DATE,
902: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATE_LOGIN;
895: l_okl_xtl_pay_invs_tl_rec.SFWT_FLAG,
896: l_okl_xtl_pay_invs_tl_rec.DESCRIPTION,
897: l_okl_xtl_pay_invs_tl_rec.STREAM_TYPE,
898: l_okl_xtl_pay_invs_tl_rec.CREATED_BY,
899: l_okl_xtl_pay_invs_tl_rec.CREATION_DATE,
900: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATED_BY,
901: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATE_DATE,
902: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATE_LOGIN;
903: x_no_data_found := okl_xtl_pay_invs_tl_pk_csr%NOTFOUND;
896: l_okl_xtl_pay_invs_tl_rec.DESCRIPTION,
897: l_okl_xtl_pay_invs_tl_rec.STREAM_TYPE,
898: l_okl_xtl_pay_invs_tl_rec.CREATED_BY,
899: l_okl_xtl_pay_invs_tl_rec.CREATION_DATE,
900: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATED_BY,
901: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATE_DATE,
902: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATE_LOGIN;
903: x_no_data_found := okl_xtl_pay_invs_tl_pk_csr%NOTFOUND;
904: CLOSE okl_xtl_pay_invs_tl_pk_csr;
897: l_okl_xtl_pay_invs_tl_rec.STREAM_TYPE,
898: l_okl_xtl_pay_invs_tl_rec.CREATED_BY,
899: l_okl_xtl_pay_invs_tl_rec.CREATION_DATE,
900: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATED_BY,
901: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATE_DATE,
902: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATE_LOGIN;
903: x_no_data_found := okl_xtl_pay_invs_tl_pk_csr%NOTFOUND;
904: CLOSE okl_xtl_pay_invs_tl_pk_csr;
905: RETURN(l_okl_xtl_pay_invs_tl_rec);
898: l_okl_xtl_pay_invs_tl_rec.CREATED_BY,
899: l_okl_xtl_pay_invs_tl_rec.CREATION_DATE,
900: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATED_BY,
901: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATE_DATE,
902: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATE_LOGIN;
903: x_no_data_found := okl_xtl_pay_invs_tl_pk_csr%NOTFOUND;
904: CLOSE okl_xtl_pay_invs_tl_pk_csr;
905: RETURN(l_okl_xtl_pay_invs_tl_rec);
906: END get_rec;
899: l_okl_xtl_pay_invs_tl_rec.CREATION_DATE,
900: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATED_BY,
901: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATE_DATE,
902: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATE_LOGIN;
903: x_no_data_found := okl_xtl_pay_invs_tl_pk_csr%NOTFOUND;
904: CLOSE okl_xtl_pay_invs_tl_pk_csr;
905: RETURN(l_okl_xtl_pay_invs_tl_rec);
906: END get_rec;
907:
900: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATED_BY,
901: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATE_DATE,
902: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATE_LOGIN;
903: x_no_data_found := okl_xtl_pay_invs_tl_pk_csr%NOTFOUND;
904: CLOSE okl_xtl_pay_invs_tl_pk_csr;
905: RETURN(l_okl_xtl_pay_invs_tl_rec);
906: END get_rec;
907:
908: FUNCTION get_rec (
901: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATE_DATE,
902: l_okl_xtl_pay_invs_tl_rec.LAST_UPDATE_LOGIN;
903: x_no_data_found := okl_xtl_pay_invs_tl_pk_csr%NOTFOUND;
904: CLOSE okl_xtl_pay_invs_tl_pk_csr;
905: RETURN(l_okl_xtl_pay_invs_tl_rec);
906: END get_rec;
907:
908: FUNCTION get_rec (
909: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type
905: RETURN(l_okl_xtl_pay_invs_tl_rec);
906: END get_rec;
907:
908: FUNCTION get_rec (
909: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type
910: ) RETURN okl_xtl_pay_invs_tl_rec_type IS
911: l_row_notfound BOOLEAN := TRUE;
912: BEGIN
913: RETURN(get_rec(p_okl_xtl_pay_invs_tl_rec, l_row_notfound));
906: END get_rec;
907:
908: FUNCTION get_rec (
909: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type
910: ) RETURN okl_xtl_pay_invs_tl_rec_type IS
911: l_row_notfound BOOLEAN := TRUE;
912: BEGIN
913: RETURN(get_rec(p_okl_xtl_pay_invs_tl_rec, l_row_notfound));
914: END get_rec;
909: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type
910: ) RETURN okl_xtl_pay_invs_tl_rec_type IS
911: l_row_notfound BOOLEAN := TRUE;
912: BEGIN
913: RETURN(get_rec(p_okl_xtl_pay_invs_tl_rec, l_row_notfound));
914: END get_rec;
915: ---------------------------------------------------------------------------
916: -- FUNCTION get_rec for: OKL_XTL_PAY_INVS_V
917: ---------------------------------------------------------------------------
1419: p_to.last_update_login := p_from.last_update_login;
1420: END migrate;
1421: PROCEDURE migrate (
1422: p_from IN xlpv_rec_type,
1423: p_to IN OUT NOCOPY okl_xtl_pay_invs_tl_rec_type -- PostGen-11
1424: ) IS
1425: BEGIN
1426: p_to.id := p_from.id;
1427: p_to.sfwt_flag := p_from.sfwt_flag;
1433: p_to.last_update_date := p_from.last_update_date;
1434: p_to.last_update_login := p_from.last_update_login;
1435: END migrate;
1436: PROCEDURE migrate (
1437: p_from IN okl_xtl_pay_invs_tl_rec_type,
1438: p_to IN OUT NOCOPY xlpv_rec_type -- PostGen-11
1439: ) IS
1440: BEGIN
1441: p_to.id := p_from.id;
1467: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1468: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1469: l_xlpv_rec xlpv_rec_type := p_xlpv_rec;
1470: l_xlp_rec xlp_rec_type;
1471: l_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type;
1472: BEGIN
1473: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1474: G_PKG_NAME,
1475: p_init_msg_list,
1774: '_PVT'
1775: );
1776: END insert_row;
1777: ----------------------------------------
1778: -- insert_row for:OKL_XTL_PAY_INVS_TL --
1779: ----------------------------------------
1780: PROCEDURE insert_row(
1781: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1782: x_return_status OUT NOCOPY VARCHAR2,
1781: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1782: x_return_status OUT NOCOPY VARCHAR2,
1783: x_msg_count OUT NOCOPY NUMBER,
1784: x_msg_data OUT NOCOPY VARCHAR2,
1785: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type,
1786: x_okl_xtl_pay_invs_tl_rec OUT NOCOPY okl_xtl_pay_invs_tl_rec_type) IS
1787:
1788: l_api_version CONSTANT NUMBER := 1;
1789: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1782: x_return_status OUT NOCOPY VARCHAR2,
1783: x_msg_count OUT NOCOPY NUMBER,
1784: x_msg_data OUT NOCOPY VARCHAR2,
1785: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type,
1786: x_okl_xtl_pay_invs_tl_rec OUT NOCOPY okl_xtl_pay_invs_tl_rec_type) IS
1787:
1788: l_api_version CONSTANT NUMBER := 1;
1789: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1790: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1787:
1788: l_api_version CONSTANT NUMBER := 1;
1789: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1790: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1791: l_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type := p_okl_xtl_pay_invs_tl_rec;
1792: ldefoklxtlpayinvstlrec okl_xtl_pay_invs_tl_rec_type;
1793: CURSOR get_languages IS
1794: SELECT *
1795: FROM FND_LANGUAGES
1788: l_api_version CONSTANT NUMBER := 1;
1789: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1790: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1791: l_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type := p_okl_xtl_pay_invs_tl_rec;
1792: ldefoklxtlpayinvstlrec okl_xtl_pay_invs_tl_rec_type;
1793: CURSOR get_languages IS
1794: SELECT *
1795: FROM FND_LANGUAGES
1796: WHERE INSTALLED_FLAG IN ('I', 'B');
1794: SELECT *
1795: FROM FND_LANGUAGES
1796: WHERE INSTALLED_FLAG IN ('I', 'B');
1797: --------------------------------------------
1798: -- Set_Attributes for:OKL_XTL_PAY_INVS_TL --
1799: --------------------------------------------
1800: FUNCTION Set_Attributes (
1801: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type,
1802: x_okl_xtl_pay_invs_tl_rec OUT NOCOPY okl_xtl_pay_invs_tl_rec_type
1797: --------------------------------------------
1798: -- Set_Attributes for:OKL_XTL_PAY_INVS_TL --
1799: --------------------------------------------
1800: FUNCTION Set_Attributes (
1801: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type,
1802: x_okl_xtl_pay_invs_tl_rec OUT NOCOPY okl_xtl_pay_invs_tl_rec_type
1803: ) RETURN VARCHAR2 IS
1804: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1805: BEGIN
1798: -- Set_Attributes for:OKL_XTL_PAY_INVS_TL --
1799: --------------------------------------------
1800: FUNCTION Set_Attributes (
1801: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type,
1802: x_okl_xtl_pay_invs_tl_rec OUT NOCOPY okl_xtl_pay_invs_tl_rec_type
1803: ) RETURN VARCHAR2 IS
1804: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1805: BEGIN
1806: x_okl_xtl_pay_invs_tl_rec := p_okl_xtl_pay_invs_tl_rec;
1802: x_okl_xtl_pay_invs_tl_rec OUT NOCOPY okl_xtl_pay_invs_tl_rec_type
1803: ) RETURN VARCHAR2 IS
1804: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1805: BEGIN
1806: x_okl_xtl_pay_invs_tl_rec := p_okl_xtl_pay_invs_tl_rec;
1807: x_okl_xtl_pay_invs_tl_rec.LANGUAGE := USERENV('LANG');
1808: x_okl_xtl_pay_invs_tl_rec.SOURCE_LANG := USERENV('LANG');
1809: RETURN(l_return_status);
1810: END Set_Attributes;
1803: ) RETURN VARCHAR2 IS
1804: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1805: BEGIN
1806: x_okl_xtl_pay_invs_tl_rec := p_okl_xtl_pay_invs_tl_rec;
1807: x_okl_xtl_pay_invs_tl_rec.LANGUAGE := USERENV('LANG');
1808: x_okl_xtl_pay_invs_tl_rec.SOURCE_LANG := USERENV('LANG');
1809: RETURN(l_return_status);
1810: END Set_Attributes;
1811: BEGIN
1804: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1805: BEGIN
1806: x_okl_xtl_pay_invs_tl_rec := p_okl_xtl_pay_invs_tl_rec;
1807: x_okl_xtl_pay_invs_tl_rec.LANGUAGE := USERENV('LANG');
1808: x_okl_xtl_pay_invs_tl_rec.SOURCE_LANG := USERENV('LANG');
1809: RETURN(l_return_status);
1810: END Set_Attributes;
1811: BEGIN
1812: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1819: RAISE OKL_API.G_EXCEPTION_ERROR;
1820: END IF;
1821: --- Setting item attributes
1822: l_return_status := Set_Attributes(
1823: p_okl_xtl_pay_invs_tl_rec, -- IN
1824: l_okl_xtl_pay_invs_tl_rec); -- OUT
1825: --- If any errors happen abort API
1826: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1827: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1820: END IF;
1821: --- Setting item attributes
1822: l_return_status := Set_Attributes(
1823: p_okl_xtl_pay_invs_tl_rec, -- IN
1824: l_okl_xtl_pay_invs_tl_rec); -- OUT
1825: --- If any errors happen abort API
1826: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1827: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1828: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1828: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1829: RAISE OKL_API.G_EXCEPTION_ERROR;
1830: END IF;
1831: FOR l_lang_rec IN get_languages LOOP
1832: l_okl_xtl_pay_invs_tl_rec.language := l_lang_rec.language_code;
1833: INSERT INTO OKL_XTL_PAY_INVS_TL(
1834: id,
1835: language,
1836: source_lang,
1829: RAISE OKL_API.G_EXCEPTION_ERROR;
1830: END IF;
1831: FOR l_lang_rec IN get_languages LOOP
1832: l_okl_xtl_pay_invs_tl_rec.language := l_lang_rec.language_code;
1833: INSERT INTO OKL_XTL_PAY_INVS_TL(
1834: id,
1835: language,
1836: source_lang,
1837: sfwt_flag,
1842: last_updated_by,
1843: last_update_date,
1844: last_update_login)
1845: VALUES (
1846: l_okl_xtl_pay_invs_tl_rec.id,
1847: l_okl_xtl_pay_invs_tl_rec.language,
1848: l_okl_xtl_pay_invs_tl_rec.source_lang,
1849: l_okl_xtl_pay_invs_tl_rec.sfwt_flag,
1850: l_okl_xtl_pay_invs_tl_rec.description,
1843: last_update_date,
1844: last_update_login)
1845: VALUES (
1846: l_okl_xtl_pay_invs_tl_rec.id,
1847: l_okl_xtl_pay_invs_tl_rec.language,
1848: l_okl_xtl_pay_invs_tl_rec.source_lang,
1849: l_okl_xtl_pay_invs_tl_rec.sfwt_flag,
1850: l_okl_xtl_pay_invs_tl_rec.description,
1851: l_okl_xtl_pay_invs_tl_rec.stream_type,
1844: last_update_login)
1845: VALUES (
1846: l_okl_xtl_pay_invs_tl_rec.id,
1847: l_okl_xtl_pay_invs_tl_rec.language,
1848: l_okl_xtl_pay_invs_tl_rec.source_lang,
1849: l_okl_xtl_pay_invs_tl_rec.sfwt_flag,
1850: l_okl_xtl_pay_invs_tl_rec.description,
1851: l_okl_xtl_pay_invs_tl_rec.stream_type,
1852: l_okl_xtl_pay_invs_tl_rec.created_by,
1845: VALUES (
1846: l_okl_xtl_pay_invs_tl_rec.id,
1847: l_okl_xtl_pay_invs_tl_rec.language,
1848: l_okl_xtl_pay_invs_tl_rec.source_lang,
1849: l_okl_xtl_pay_invs_tl_rec.sfwt_flag,
1850: l_okl_xtl_pay_invs_tl_rec.description,
1851: l_okl_xtl_pay_invs_tl_rec.stream_type,
1852: l_okl_xtl_pay_invs_tl_rec.created_by,
1853: l_okl_xtl_pay_invs_tl_rec.creation_date,
1846: l_okl_xtl_pay_invs_tl_rec.id,
1847: l_okl_xtl_pay_invs_tl_rec.language,
1848: l_okl_xtl_pay_invs_tl_rec.source_lang,
1849: l_okl_xtl_pay_invs_tl_rec.sfwt_flag,
1850: l_okl_xtl_pay_invs_tl_rec.description,
1851: l_okl_xtl_pay_invs_tl_rec.stream_type,
1852: l_okl_xtl_pay_invs_tl_rec.created_by,
1853: l_okl_xtl_pay_invs_tl_rec.creation_date,
1854: l_okl_xtl_pay_invs_tl_rec.last_updated_by,
1847: l_okl_xtl_pay_invs_tl_rec.language,
1848: l_okl_xtl_pay_invs_tl_rec.source_lang,
1849: l_okl_xtl_pay_invs_tl_rec.sfwt_flag,
1850: l_okl_xtl_pay_invs_tl_rec.description,
1851: l_okl_xtl_pay_invs_tl_rec.stream_type,
1852: l_okl_xtl_pay_invs_tl_rec.created_by,
1853: l_okl_xtl_pay_invs_tl_rec.creation_date,
1854: l_okl_xtl_pay_invs_tl_rec.last_updated_by,
1855: l_okl_xtl_pay_invs_tl_rec.last_update_date,
1848: l_okl_xtl_pay_invs_tl_rec.source_lang,
1849: l_okl_xtl_pay_invs_tl_rec.sfwt_flag,
1850: l_okl_xtl_pay_invs_tl_rec.description,
1851: l_okl_xtl_pay_invs_tl_rec.stream_type,
1852: l_okl_xtl_pay_invs_tl_rec.created_by,
1853: l_okl_xtl_pay_invs_tl_rec.creation_date,
1854: l_okl_xtl_pay_invs_tl_rec.last_updated_by,
1855: l_okl_xtl_pay_invs_tl_rec.last_update_date,
1856: l_okl_xtl_pay_invs_tl_rec.last_update_login);
1849: l_okl_xtl_pay_invs_tl_rec.sfwt_flag,
1850: l_okl_xtl_pay_invs_tl_rec.description,
1851: l_okl_xtl_pay_invs_tl_rec.stream_type,
1852: l_okl_xtl_pay_invs_tl_rec.created_by,
1853: l_okl_xtl_pay_invs_tl_rec.creation_date,
1854: l_okl_xtl_pay_invs_tl_rec.last_updated_by,
1855: l_okl_xtl_pay_invs_tl_rec.last_update_date,
1856: l_okl_xtl_pay_invs_tl_rec.last_update_login);
1857: END LOOP;
1850: l_okl_xtl_pay_invs_tl_rec.description,
1851: l_okl_xtl_pay_invs_tl_rec.stream_type,
1852: l_okl_xtl_pay_invs_tl_rec.created_by,
1853: l_okl_xtl_pay_invs_tl_rec.creation_date,
1854: l_okl_xtl_pay_invs_tl_rec.last_updated_by,
1855: l_okl_xtl_pay_invs_tl_rec.last_update_date,
1856: l_okl_xtl_pay_invs_tl_rec.last_update_login);
1857: END LOOP;
1858: -- Set OUT values
1851: l_okl_xtl_pay_invs_tl_rec.stream_type,
1852: l_okl_xtl_pay_invs_tl_rec.created_by,
1853: l_okl_xtl_pay_invs_tl_rec.creation_date,
1854: l_okl_xtl_pay_invs_tl_rec.last_updated_by,
1855: l_okl_xtl_pay_invs_tl_rec.last_update_date,
1856: l_okl_xtl_pay_invs_tl_rec.last_update_login);
1857: END LOOP;
1858: -- Set OUT values
1859: x_okl_xtl_pay_invs_tl_rec := l_okl_xtl_pay_invs_tl_rec;
1852: l_okl_xtl_pay_invs_tl_rec.created_by,
1853: l_okl_xtl_pay_invs_tl_rec.creation_date,
1854: l_okl_xtl_pay_invs_tl_rec.last_updated_by,
1855: l_okl_xtl_pay_invs_tl_rec.last_update_date,
1856: l_okl_xtl_pay_invs_tl_rec.last_update_login);
1857: END LOOP;
1858: -- Set OUT values
1859: x_okl_xtl_pay_invs_tl_rec := l_okl_xtl_pay_invs_tl_rec;
1860: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1855: l_okl_xtl_pay_invs_tl_rec.last_update_date,
1856: l_okl_xtl_pay_invs_tl_rec.last_update_login);
1857: END LOOP;
1858: -- Set OUT values
1859: x_okl_xtl_pay_invs_tl_rec := l_okl_xtl_pay_invs_tl_rec;
1860: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1861: EXCEPTION
1862: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1863: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1908: l_xlpv_rec xlpv_rec_type;
1909: l_def_xlpv_rec xlpv_rec_type;
1910: l_xlp_rec xlp_rec_type;
1911: lx_xlp_rec xlp_rec_type;
1912: l_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type;
1913: lx_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type;
1914: -------------------------------
1915: -- FUNCTION fill_who_columns --
1916: -------------------------------
1909: l_def_xlpv_rec xlpv_rec_type;
1910: l_xlp_rec xlp_rec_type;
1911: lx_xlp_rec xlp_rec_type;
1912: l_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type;
1913: lx_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type;
1914: -------------------------------
1915: -- FUNCTION fill_who_columns --
1916: -------------------------------
1917: FUNCTION fill_who_columns (
1998: --------------------------------------
1999: -- Move VIEW record to "Child" records
2000: --------------------------------------
2001: migrate(l_def_xlpv_rec, l_xlp_rec);
2002: migrate(l_def_xlpv_rec, l_okl_xtl_pay_invs_tl_rec);
2003: --------------------------------------------
2004: -- Call the INSERT_ROW for each child record
2005: --------------------------------------------
2006: insert_row(
2021: p_init_msg_list,
2022: x_return_status,
2023: x_msg_count,
2024: x_msg_data,
2025: l_okl_xtl_pay_invs_tl_rec,
2026: lx_okl_xtl_pay_invs_tl_rec
2027: );
2028: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2022: x_return_status,
2023: x_msg_count,
2024: x_msg_data,
2025: l_okl_xtl_pay_invs_tl_rec,
2026: lx_okl_xtl_pay_invs_tl_rec
2027: );
2028: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2030: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2030: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2031: RAISE OKL_API.G_EXCEPTION_ERROR;
2032: END IF;
2033: migrate(lx_okl_xtl_pay_invs_tl_rec, l_def_xlpv_rec);
2034: -- Set OUT values
2035: x_xlpv_rec := l_def_xlpv_rec;
2036: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2037: EXCEPTION
2254: '_PVT'
2255: );
2256: END lock_row;
2257: --------------------------------------
2258: -- lock_row for:OKL_XTL_PAY_INVS_TL --
2259: --------------------------------------
2260: PROCEDURE lock_row(
2261: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2262: x_return_status OUT NOCOPY VARCHAR2,
2261: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2262: x_return_status OUT NOCOPY VARCHAR2,
2263: x_msg_count OUT NOCOPY NUMBER,
2264: x_msg_data OUT NOCOPY VARCHAR2,
2265: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type) IS
2266:
2267: E_Resource_Busy EXCEPTION;
2268: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2269: CURSOR lock_csr (p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type) IS
2265: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type) IS
2266:
2267: E_Resource_Busy EXCEPTION;
2268: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2269: CURSOR lock_csr (p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type) IS
2270: SELECT *
2271: FROM OKL_XTL_PAY_INVS_TL
2272: WHERE ID = p_okl_xtl_pay_invs_tl_rec.id
2273: FOR UPDATE NOWAIT;
2267: E_Resource_Busy EXCEPTION;
2268: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2269: CURSOR lock_csr (p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type) IS
2270: SELECT *
2271: FROM OKL_XTL_PAY_INVS_TL
2272: WHERE ID = p_okl_xtl_pay_invs_tl_rec.id
2273: FOR UPDATE NOWAIT;
2274:
2275: l_api_version CONSTANT NUMBER := 1;
2268: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2269: CURSOR lock_csr (p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type) IS
2270: SELECT *
2271: FROM OKL_XTL_PAY_INVS_TL
2272: WHERE ID = p_okl_xtl_pay_invs_tl_rec.id
2273: FOR UPDATE NOWAIT;
2274:
2275: l_api_version CONSTANT NUMBER := 1;
2276: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
2288: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2289: RAISE OKL_API.G_EXCEPTION_ERROR;
2290: END IF;
2291: BEGIN
2292: OPEN lock_csr(p_okl_xtl_pay_invs_tl_rec);
2293: FETCH lock_csr INTO l_lock_var;
2294: l_row_notfound := lock_csr%NOTFOUND;
2295: CLOSE lock_csr;
2296: EXCEPTION
2353: l_api_version CONSTANT NUMBER := 1;
2354: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2355: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2356: l_xlp_rec xlp_rec_type;
2357: l_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type;
2358: BEGIN
2359: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2360: G_PKG_NAME,
2361: p_init_msg_list,
2371: --------------------------------------
2372: -- Move VIEW record to "Child" records
2373: --------------------------------------
2374: migrate(p_xlpv_rec, l_xlp_rec);
2375: migrate(p_xlpv_rec, l_okl_xtl_pay_invs_tl_rec);
2376: --------------------------------------------
2377: -- Call the LOCK_ROW for each child record
2378: --------------------------------------------
2379: lock_row(
2392: p_init_msg_list,
2393: x_return_status,
2394: x_msg_count,
2395: x_msg_data,
2396: l_okl_xtl_pay_invs_tl_rec
2397: );
2398: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2399: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2400: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2823: '_PVT'
2824: );
2825: END update_row;
2826: ----------------------------------------
2827: -- update_row for:OKL_XTL_PAY_INVS_TL --
2828: ----------------------------------------
2829: PROCEDURE update_row(
2830: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2831: x_return_status OUT NOCOPY VARCHAR2,
2830: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2831: x_return_status OUT NOCOPY VARCHAR2,
2832: x_msg_count OUT NOCOPY NUMBER,
2833: x_msg_data OUT NOCOPY VARCHAR2,
2834: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type,
2835: x_okl_xtl_pay_invs_tl_rec OUT NOCOPY okl_xtl_pay_invs_tl_rec_type) IS
2836:
2837: l_api_version CONSTANT NUMBER := 1;
2838: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2831: x_return_status OUT NOCOPY VARCHAR2,
2832: x_msg_count OUT NOCOPY NUMBER,
2833: x_msg_data OUT NOCOPY VARCHAR2,
2834: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type,
2835: x_okl_xtl_pay_invs_tl_rec OUT NOCOPY okl_xtl_pay_invs_tl_rec_type) IS
2836:
2837: l_api_version CONSTANT NUMBER := 1;
2838: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2839: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2836:
2837: l_api_version CONSTANT NUMBER := 1;
2838: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2839: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2840: l_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type := p_okl_xtl_pay_invs_tl_rec;
2841: ldefoklxtlpayinvstlrec okl_xtl_pay_invs_tl_rec_type;
2842: l_row_notfound BOOLEAN := TRUE;
2843: ----------------------------------
2844: -- FUNCTION populate_new_record --
2837: l_api_version CONSTANT NUMBER := 1;
2838: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2839: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2840: l_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type := p_okl_xtl_pay_invs_tl_rec;
2841: ldefoklxtlpayinvstlrec okl_xtl_pay_invs_tl_rec_type;
2842: l_row_notfound BOOLEAN := TRUE;
2843: ----------------------------------
2844: -- FUNCTION populate_new_record --
2845: ----------------------------------
2843: ----------------------------------
2844: -- FUNCTION populate_new_record --
2845: ----------------------------------
2846: FUNCTION populate_new_record (
2847: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type,
2848: x_okl_xtl_pay_invs_tl_rec OUT NOCOPY okl_xtl_pay_invs_tl_rec_type
2849: ) RETURN VARCHAR2 IS
2850: l_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type;
2851: l_row_notfound BOOLEAN := TRUE;
2844: -- FUNCTION populate_new_record --
2845: ----------------------------------
2846: FUNCTION populate_new_record (
2847: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type,
2848: x_okl_xtl_pay_invs_tl_rec OUT NOCOPY okl_xtl_pay_invs_tl_rec_type
2849: ) RETURN VARCHAR2 IS
2850: l_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type;
2851: l_row_notfound BOOLEAN := TRUE;
2852: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2846: FUNCTION populate_new_record (
2847: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type,
2848: x_okl_xtl_pay_invs_tl_rec OUT NOCOPY okl_xtl_pay_invs_tl_rec_type
2849: ) RETURN VARCHAR2 IS
2850: l_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type;
2851: l_row_notfound BOOLEAN := TRUE;
2852: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2853: BEGIN
2854: x_okl_xtl_pay_invs_tl_rec := p_okl_xtl_pay_invs_tl_rec;
2850: l_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type;
2851: l_row_notfound BOOLEAN := TRUE;
2852: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2853: BEGIN
2854: x_okl_xtl_pay_invs_tl_rec := p_okl_xtl_pay_invs_tl_rec;
2855: -- Get current database values
2856: l_okl_xtl_pay_invs_tl_rec := get_rec(p_okl_xtl_pay_invs_tl_rec, l_row_notfound);
2857: IF (l_row_notfound) THEN
2858: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2852: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2853: BEGIN
2854: x_okl_xtl_pay_invs_tl_rec := p_okl_xtl_pay_invs_tl_rec;
2855: -- Get current database values
2856: l_okl_xtl_pay_invs_tl_rec := get_rec(p_okl_xtl_pay_invs_tl_rec, l_row_notfound);
2857: IF (l_row_notfound) THEN
2858: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2859: END IF;
2860: IF (x_okl_xtl_pay_invs_tl_rec.id = OKL_API.G_MISS_NUM)
2856: l_okl_xtl_pay_invs_tl_rec := get_rec(p_okl_xtl_pay_invs_tl_rec, l_row_notfound);
2857: IF (l_row_notfound) THEN
2858: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2859: END IF;
2860: IF (x_okl_xtl_pay_invs_tl_rec.id = OKL_API.G_MISS_NUM)
2861: THEN
2862: x_okl_xtl_pay_invs_tl_rec.id := l_okl_xtl_pay_invs_tl_rec.id;
2863: END IF;
2864: IF (x_okl_xtl_pay_invs_tl_rec.language = OKL_API.G_MISS_CHAR)
2858: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2859: END IF;
2860: IF (x_okl_xtl_pay_invs_tl_rec.id = OKL_API.G_MISS_NUM)
2861: THEN
2862: x_okl_xtl_pay_invs_tl_rec.id := l_okl_xtl_pay_invs_tl_rec.id;
2863: END IF;
2864: IF (x_okl_xtl_pay_invs_tl_rec.language = OKL_API.G_MISS_CHAR)
2865: THEN
2866: x_okl_xtl_pay_invs_tl_rec.language := l_okl_xtl_pay_invs_tl_rec.language;
2860: IF (x_okl_xtl_pay_invs_tl_rec.id = OKL_API.G_MISS_NUM)
2861: THEN
2862: x_okl_xtl_pay_invs_tl_rec.id := l_okl_xtl_pay_invs_tl_rec.id;
2863: END IF;
2864: IF (x_okl_xtl_pay_invs_tl_rec.language = OKL_API.G_MISS_CHAR)
2865: THEN
2866: x_okl_xtl_pay_invs_tl_rec.language := l_okl_xtl_pay_invs_tl_rec.language;
2867: END IF;
2868: IF (x_okl_xtl_pay_invs_tl_rec.source_lang = OKL_API.G_MISS_CHAR)
2862: x_okl_xtl_pay_invs_tl_rec.id := l_okl_xtl_pay_invs_tl_rec.id;
2863: END IF;
2864: IF (x_okl_xtl_pay_invs_tl_rec.language = OKL_API.G_MISS_CHAR)
2865: THEN
2866: x_okl_xtl_pay_invs_tl_rec.language := l_okl_xtl_pay_invs_tl_rec.language;
2867: END IF;
2868: IF (x_okl_xtl_pay_invs_tl_rec.source_lang = OKL_API.G_MISS_CHAR)
2869: THEN
2870: x_okl_xtl_pay_invs_tl_rec.source_lang := l_okl_xtl_pay_invs_tl_rec.source_lang;
2864: IF (x_okl_xtl_pay_invs_tl_rec.language = OKL_API.G_MISS_CHAR)
2865: THEN
2866: x_okl_xtl_pay_invs_tl_rec.language := l_okl_xtl_pay_invs_tl_rec.language;
2867: END IF;
2868: IF (x_okl_xtl_pay_invs_tl_rec.source_lang = OKL_API.G_MISS_CHAR)
2869: THEN
2870: x_okl_xtl_pay_invs_tl_rec.source_lang := l_okl_xtl_pay_invs_tl_rec.source_lang;
2871: END IF;
2872: IF (x_okl_xtl_pay_invs_tl_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
2866: x_okl_xtl_pay_invs_tl_rec.language := l_okl_xtl_pay_invs_tl_rec.language;
2867: END IF;
2868: IF (x_okl_xtl_pay_invs_tl_rec.source_lang = OKL_API.G_MISS_CHAR)
2869: THEN
2870: x_okl_xtl_pay_invs_tl_rec.source_lang := l_okl_xtl_pay_invs_tl_rec.source_lang;
2871: END IF;
2872: IF (x_okl_xtl_pay_invs_tl_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
2873: THEN
2874: x_okl_xtl_pay_invs_tl_rec.sfwt_flag := l_okl_xtl_pay_invs_tl_rec.sfwt_flag;
2868: IF (x_okl_xtl_pay_invs_tl_rec.source_lang = OKL_API.G_MISS_CHAR)
2869: THEN
2870: x_okl_xtl_pay_invs_tl_rec.source_lang := l_okl_xtl_pay_invs_tl_rec.source_lang;
2871: END IF;
2872: IF (x_okl_xtl_pay_invs_tl_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
2873: THEN
2874: x_okl_xtl_pay_invs_tl_rec.sfwt_flag := l_okl_xtl_pay_invs_tl_rec.sfwt_flag;
2875: END IF;
2876: IF (x_okl_xtl_pay_invs_tl_rec.description = OKL_API.G_MISS_CHAR)
2870: x_okl_xtl_pay_invs_tl_rec.source_lang := l_okl_xtl_pay_invs_tl_rec.source_lang;
2871: END IF;
2872: IF (x_okl_xtl_pay_invs_tl_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
2873: THEN
2874: x_okl_xtl_pay_invs_tl_rec.sfwt_flag := l_okl_xtl_pay_invs_tl_rec.sfwt_flag;
2875: END IF;
2876: IF (x_okl_xtl_pay_invs_tl_rec.description = OKL_API.G_MISS_CHAR)
2877: THEN
2878: x_okl_xtl_pay_invs_tl_rec.description := l_okl_xtl_pay_invs_tl_rec.description;
2872: IF (x_okl_xtl_pay_invs_tl_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
2873: THEN
2874: x_okl_xtl_pay_invs_tl_rec.sfwt_flag := l_okl_xtl_pay_invs_tl_rec.sfwt_flag;
2875: END IF;
2876: IF (x_okl_xtl_pay_invs_tl_rec.description = OKL_API.G_MISS_CHAR)
2877: THEN
2878: x_okl_xtl_pay_invs_tl_rec.description := l_okl_xtl_pay_invs_tl_rec.description;
2879: END IF;
2880: IF (x_okl_xtl_pay_invs_tl_rec.stream_type = OKL_API.G_MISS_CHAR)
2874: x_okl_xtl_pay_invs_tl_rec.sfwt_flag := l_okl_xtl_pay_invs_tl_rec.sfwt_flag;
2875: END IF;
2876: IF (x_okl_xtl_pay_invs_tl_rec.description = OKL_API.G_MISS_CHAR)
2877: THEN
2878: x_okl_xtl_pay_invs_tl_rec.description := l_okl_xtl_pay_invs_tl_rec.description;
2879: END IF;
2880: IF (x_okl_xtl_pay_invs_tl_rec.stream_type = OKL_API.G_MISS_CHAR)
2881: THEN
2882: x_okl_xtl_pay_invs_tl_rec.stream_type := l_okl_xtl_pay_invs_tl_rec.stream_type;
2876: IF (x_okl_xtl_pay_invs_tl_rec.description = OKL_API.G_MISS_CHAR)
2877: THEN
2878: x_okl_xtl_pay_invs_tl_rec.description := l_okl_xtl_pay_invs_tl_rec.description;
2879: END IF;
2880: IF (x_okl_xtl_pay_invs_tl_rec.stream_type = OKL_API.G_MISS_CHAR)
2881: THEN
2882: x_okl_xtl_pay_invs_tl_rec.stream_type := l_okl_xtl_pay_invs_tl_rec.stream_type;
2883: END IF;
2884: IF (x_okl_xtl_pay_invs_tl_rec.created_by = OKL_API.G_MISS_NUM)
2878: x_okl_xtl_pay_invs_tl_rec.description := l_okl_xtl_pay_invs_tl_rec.description;
2879: END IF;
2880: IF (x_okl_xtl_pay_invs_tl_rec.stream_type = OKL_API.G_MISS_CHAR)
2881: THEN
2882: x_okl_xtl_pay_invs_tl_rec.stream_type := l_okl_xtl_pay_invs_tl_rec.stream_type;
2883: END IF;
2884: IF (x_okl_xtl_pay_invs_tl_rec.created_by = OKL_API.G_MISS_NUM)
2885: THEN
2886: x_okl_xtl_pay_invs_tl_rec.created_by := l_okl_xtl_pay_invs_tl_rec.created_by;
2880: IF (x_okl_xtl_pay_invs_tl_rec.stream_type = OKL_API.G_MISS_CHAR)
2881: THEN
2882: x_okl_xtl_pay_invs_tl_rec.stream_type := l_okl_xtl_pay_invs_tl_rec.stream_type;
2883: END IF;
2884: IF (x_okl_xtl_pay_invs_tl_rec.created_by = OKL_API.G_MISS_NUM)
2885: THEN
2886: x_okl_xtl_pay_invs_tl_rec.created_by := l_okl_xtl_pay_invs_tl_rec.created_by;
2887: END IF;
2888: IF (x_okl_xtl_pay_invs_tl_rec.creation_date = OKL_API.G_MISS_DATE)
2882: x_okl_xtl_pay_invs_tl_rec.stream_type := l_okl_xtl_pay_invs_tl_rec.stream_type;
2883: END IF;
2884: IF (x_okl_xtl_pay_invs_tl_rec.created_by = OKL_API.G_MISS_NUM)
2885: THEN
2886: x_okl_xtl_pay_invs_tl_rec.created_by := l_okl_xtl_pay_invs_tl_rec.created_by;
2887: END IF;
2888: IF (x_okl_xtl_pay_invs_tl_rec.creation_date = OKL_API.G_MISS_DATE)
2889: THEN
2890: x_okl_xtl_pay_invs_tl_rec.creation_date := l_okl_xtl_pay_invs_tl_rec.creation_date;
2884: IF (x_okl_xtl_pay_invs_tl_rec.created_by = OKL_API.G_MISS_NUM)
2885: THEN
2886: x_okl_xtl_pay_invs_tl_rec.created_by := l_okl_xtl_pay_invs_tl_rec.created_by;
2887: END IF;
2888: IF (x_okl_xtl_pay_invs_tl_rec.creation_date = OKL_API.G_MISS_DATE)
2889: THEN
2890: x_okl_xtl_pay_invs_tl_rec.creation_date := l_okl_xtl_pay_invs_tl_rec.creation_date;
2891: END IF;
2892: IF (x_okl_xtl_pay_invs_tl_rec.last_updated_by = OKL_API.G_MISS_NUM)
2886: x_okl_xtl_pay_invs_tl_rec.created_by := l_okl_xtl_pay_invs_tl_rec.created_by;
2887: END IF;
2888: IF (x_okl_xtl_pay_invs_tl_rec.creation_date = OKL_API.G_MISS_DATE)
2889: THEN
2890: x_okl_xtl_pay_invs_tl_rec.creation_date := l_okl_xtl_pay_invs_tl_rec.creation_date;
2891: END IF;
2892: IF (x_okl_xtl_pay_invs_tl_rec.last_updated_by = OKL_API.G_MISS_NUM)
2893: THEN
2894: x_okl_xtl_pay_invs_tl_rec.last_updated_by := l_okl_xtl_pay_invs_tl_rec.last_updated_by;
2888: IF (x_okl_xtl_pay_invs_tl_rec.creation_date = OKL_API.G_MISS_DATE)
2889: THEN
2890: x_okl_xtl_pay_invs_tl_rec.creation_date := l_okl_xtl_pay_invs_tl_rec.creation_date;
2891: END IF;
2892: IF (x_okl_xtl_pay_invs_tl_rec.last_updated_by = OKL_API.G_MISS_NUM)
2893: THEN
2894: x_okl_xtl_pay_invs_tl_rec.last_updated_by := l_okl_xtl_pay_invs_tl_rec.last_updated_by;
2895: END IF;
2896: IF (x_okl_xtl_pay_invs_tl_rec.last_update_date = OKL_API.G_MISS_DATE)
2890: x_okl_xtl_pay_invs_tl_rec.creation_date := l_okl_xtl_pay_invs_tl_rec.creation_date;
2891: END IF;
2892: IF (x_okl_xtl_pay_invs_tl_rec.last_updated_by = OKL_API.G_MISS_NUM)
2893: THEN
2894: x_okl_xtl_pay_invs_tl_rec.last_updated_by := l_okl_xtl_pay_invs_tl_rec.last_updated_by;
2895: END IF;
2896: IF (x_okl_xtl_pay_invs_tl_rec.last_update_date = OKL_API.G_MISS_DATE)
2897: THEN
2898: x_okl_xtl_pay_invs_tl_rec.last_update_date := l_okl_xtl_pay_invs_tl_rec.last_update_date;
2892: IF (x_okl_xtl_pay_invs_tl_rec.last_updated_by = OKL_API.G_MISS_NUM)
2893: THEN
2894: x_okl_xtl_pay_invs_tl_rec.last_updated_by := l_okl_xtl_pay_invs_tl_rec.last_updated_by;
2895: END IF;
2896: IF (x_okl_xtl_pay_invs_tl_rec.last_update_date = OKL_API.G_MISS_DATE)
2897: THEN
2898: x_okl_xtl_pay_invs_tl_rec.last_update_date := l_okl_xtl_pay_invs_tl_rec.last_update_date;
2899: END IF;
2900: IF (x_okl_xtl_pay_invs_tl_rec.last_update_login = OKL_API.G_MISS_NUM)
2894: x_okl_xtl_pay_invs_tl_rec.last_updated_by := l_okl_xtl_pay_invs_tl_rec.last_updated_by;
2895: END IF;
2896: IF (x_okl_xtl_pay_invs_tl_rec.last_update_date = OKL_API.G_MISS_DATE)
2897: THEN
2898: x_okl_xtl_pay_invs_tl_rec.last_update_date := l_okl_xtl_pay_invs_tl_rec.last_update_date;
2899: END IF;
2900: IF (x_okl_xtl_pay_invs_tl_rec.last_update_login = OKL_API.G_MISS_NUM)
2901: THEN
2902: x_okl_xtl_pay_invs_tl_rec.last_update_login := l_okl_xtl_pay_invs_tl_rec.last_update_login;
2896: IF (x_okl_xtl_pay_invs_tl_rec.last_update_date = OKL_API.G_MISS_DATE)
2897: THEN
2898: x_okl_xtl_pay_invs_tl_rec.last_update_date := l_okl_xtl_pay_invs_tl_rec.last_update_date;
2899: END IF;
2900: IF (x_okl_xtl_pay_invs_tl_rec.last_update_login = OKL_API.G_MISS_NUM)
2901: THEN
2902: x_okl_xtl_pay_invs_tl_rec.last_update_login := l_okl_xtl_pay_invs_tl_rec.last_update_login;
2903: END IF;
2904: RETURN(l_return_status);
2898: x_okl_xtl_pay_invs_tl_rec.last_update_date := l_okl_xtl_pay_invs_tl_rec.last_update_date;
2899: END IF;
2900: IF (x_okl_xtl_pay_invs_tl_rec.last_update_login = OKL_API.G_MISS_NUM)
2901: THEN
2902: x_okl_xtl_pay_invs_tl_rec.last_update_login := l_okl_xtl_pay_invs_tl_rec.last_update_login;
2903: END IF;
2904: RETURN(l_return_status);
2905: END populate_new_record;
2906: --------------------------------------------
2903: END IF;
2904: RETURN(l_return_status);
2905: END populate_new_record;
2906: --------------------------------------------
2907: -- Set_Attributes for:OKL_XTL_PAY_INVS_TL --
2908: --------------------------------------------
2909: FUNCTION Set_Attributes (
2910: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type,
2911: x_okl_xtl_pay_invs_tl_rec OUT NOCOPY okl_xtl_pay_invs_tl_rec_type
2906: --------------------------------------------
2907: -- Set_Attributes for:OKL_XTL_PAY_INVS_TL --
2908: --------------------------------------------
2909: FUNCTION Set_Attributes (
2910: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type,
2911: x_okl_xtl_pay_invs_tl_rec OUT NOCOPY okl_xtl_pay_invs_tl_rec_type
2912: ) RETURN VARCHAR2 IS
2913: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2914: BEGIN
2907: -- Set_Attributes for:OKL_XTL_PAY_INVS_TL --
2908: --------------------------------------------
2909: FUNCTION Set_Attributes (
2910: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type,
2911: x_okl_xtl_pay_invs_tl_rec OUT NOCOPY okl_xtl_pay_invs_tl_rec_type
2912: ) RETURN VARCHAR2 IS
2913: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2914: BEGIN
2915: x_okl_xtl_pay_invs_tl_rec := p_okl_xtl_pay_invs_tl_rec;
2911: x_okl_xtl_pay_invs_tl_rec OUT NOCOPY okl_xtl_pay_invs_tl_rec_type
2912: ) RETURN VARCHAR2 IS
2913: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2914: BEGIN
2915: x_okl_xtl_pay_invs_tl_rec := p_okl_xtl_pay_invs_tl_rec;
2916: x_okl_xtl_pay_invs_tl_rec.LANGUAGE := USERENV('LANG');
2917: x_okl_xtl_pay_invs_tl_rec.SOURCE_LANG := USERENV('LANG');
2918: RETURN(l_return_status);
2919: END Set_Attributes;
2912: ) RETURN VARCHAR2 IS
2913: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2914: BEGIN
2915: x_okl_xtl_pay_invs_tl_rec := p_okl_xtl_pay_invs_tl_rec;
2916: x_okl_xtl_pay_invs_tl_rec.LANGUAGE := USERENV('LANG');
2917: x_okl_xtl_pay_invs_tl_rec.SOURCE_LANG := USERENV('LANG');
2918: RETURN(l_return_status);
2919: END Set_Attributes;
2920: BEGIN
2913: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2914: BEGIN
2915: x_okl_xtl_pay_invs_tl_rec := p_okl_xtl_pay_invs_tl_rec;
2916: x_okl_xtl_pay_invs_tl_rec.LANGUAGE := USERENV('LANG');
2917: x_okl_xtl_pay_invs_tl_rec.SOURCE_LANG := USERENV('LANG');
2918: RETURN(l_return_status);
2919: END Set_Attributes;
2920: BEGIN
2921: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2928: RAISE OKL_API.G_EXCEPTION_ERROR;
2929: END IF;
2930: --- Setting item attributes
2931: l_return_status := Set_Attributes(
2932: p_okl_xtl_pay_invs_tl_rec, -- IN
2933: l_okl_xtl_pay_invs_tl_rec); -- OUT
2934: --- If any errors happen abort API
2935: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2936: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2929: END IF;
2930: --- Setting item attributes
2931: l_return_status := Set_Attributes(
2932: p_okl_xtl_pay_invs_tl_rec, -- IN
2933: l_okl_xtl_pay_invs_tl_rec); -- OUT
2934: --- If any errors happen abort API
2935: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2936: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2937: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2936: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2937: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2938: RAISE OKL_API.G_EXCEPTION_ERROR;
2939: END IF;
2940: l_return_status := populate_new_record(l_okl_xtl_pay_invs_tl_rec, ldefoklxtlpayinvstlrec);
2941: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2942: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2943: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2944: RAISE OKL_API.G_EXCEPTION_ERROR;
2942: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2943: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2944: RAISE OKL_API.G_EXCEPTION_ERROR;
2945: END IF;
2946: UPDATE OKL_XTL_PAY_INVS_TL
2947: SET DESCRIPTION = ldefoklxtlpayinvstlrec.description,
2948: STREAM_TYPE = ldefoklxtlpayinvstlrec.stream_type,
2949: SOURCE_LANG = ldefoklxtlpayinvstlrec.source_lang,
2950: CREATED_BY = ldefoklxtlpayinvstlrec.created_by,
2954: LAST_UPDATE_LOGIN = ldefoklxtlpayinvstlrec.last_update_login
2955: WHERE ID = ldefoklxtlpayinvstlrec.id
2956: AND USERENV('LANG') in (SOURCE_LANG, LANGUAGE);
2957:
2958: UPDATE OKL_XTL_PAY_INVS_TL
2959: SET SFWT_FLAG = 'Y'
2960: WHERE ID = ldefoklxtlpayinvstlrec.id
2961: AND SOURCE_LANG <> USERENV('LANG');
2962:
2959: SET SFWT_FLAG = 'Y'
2960: WHERE ID = ldefoklxtlpayinvstlrec.id
2961: AND SOURCE_LANG <> USERENV('LANG');
2962:
2963: x_okl_xtl_pay_invs_tl_rec := ldefoklxtlpayinvstlrec;
2964: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2965: EXCEPTION
2966: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2967: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3010: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
3011: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3012: l_xlpv_rec xlpv_rec_type := p_xlpv_rec;
3013: l_def_xlpv_rec xlpv_rec_type;
3014: l_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type;
3015: lx_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type;
3016: l_xlp_rec xlp_rec_type;
3017: lx_xlp_rec xlp_rec_type;
3018: -------------------------------
3011: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3012: l_xlpv_rec xlpv_rec_type := p_xlpv_rec;
3013: l_def_xlpv_rec xlpv_rec_type;
3014: l_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type;
3015: lx_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type;
3016: l_xlp_rec xlp_rec_type;
3017: lx_xlp_rec xlp_rec_type;
3018: -------------------------------
3019: -- FUNCTION fill_who_columns --
3298:
3299: --------------------------------------
3300: -- Move VIEW record to "Child" records
3301: --------------------------------------
3302: migrate(l_def_xlpv_rec, l_okl_xtl_pay_invs_tl_rec);
3303: migrate(l_def_xlpv_rec, l_xlp_rec);
3304: --------------------------------------------
3305: -- Call the UPDATE_ROW for each child record
3306: --------------------------------------------
3308: p_init_msg_list,
3309: x_return_status,
3310: x_msg_count,
3311: x_msg_data,
3312: l_okl_xtl_pay_invs_tl_rec,
3313: lx_okl_xtl_pay_invs_tl_rec
3314: );
3315: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3316: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3309: x_return_status,
3310: x_msg_count,
3311: x_msg_data,
3312: l_okl_xtl_pay_invs_tl_rec,
3313: lx_okl_xtl_pay_invs_tl_rec
3314: );
3315: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3316: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3317: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3316: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3317: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3318: RAISE OKL_API.G_EXCEPTION_ERROR;
3319: END IF;
3320: migrate(lx_okl_xtl_pay_invs_tl_rec, l_def_xlpv_rec);
3321: update_row(
3322: p_init_msg_list,
3323: x_return_status,
3324: x_msg_count,
3509: '_PVT'
3510: );
3511: END delete_row;
3512: ----------------------------------------
3513: -- delete_row for:OKL_XTL_PAY_INVS_TL --
3514: ----------------------------------------
3515: PROCEDURE delete_row(
3516: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3517: x_return_status OUT NOCOPY VARCHAR2,
3516: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3517: x_return_status OUT NOCOPY VARCHAR2,
3518: x_msg_count OUT NOCOPY NUMBER,
3519: x_msg_data OUT NOCOPY VARCHAR2,
3520: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type) IS
3521:
3522: l_api_version CONSTANT NUMBER := 1;
3523: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3524: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3521:
3522: l_api_version CONSTANT NUMBER := 1;
3523: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3524: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3525: l_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type:= p_okl_xtl_pay_invs_tl_rec;
3526: l_row_notfound BOOLEAN := TRUE;
3527: --------------------------------------------
3528: -- Set_Attributes for:OKL_XTL_PAY_INVS_TL --
3529: --------------------------------------------
3524: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3525: l_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type:= p_okl_xtl_pay_invs_tl_rec;
3526: l_row_notfound BOOLEAN := TRUE;
3527: --------------------------------------------
3528: -- Set_Attributes for:OKL_XTL_PAY_INVS_TL --
3529: --------------------------------------------
3530: FUNCTION Set_Attributes (
3531: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type,
3532: x_okl_xtl_pay_invs_tl_rec OUT NOCOPY okl_xtl_pay_invs_tl_rec_type
3527: --------------------------------------------
3528: -- Set_Attributes for:OKL_XTL_PAY_INVS_TL --
3529: --------------------------------------------
3530: FUNCTION Set_Attributes (
3531: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type,
3532: x_okl_xtl_pay_invs_tl_rec OUT NOCOPY okl_xtl_pay_invs_tl_rec_type
3533: ) RETURN VARCHAR2 IS
3534: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3535: BEGIN
3528: -- Set_Attributes for:OKL_XTL_PAY_INVS_TL --
3529: --------------------------------------------
3530: FUNCTION Set_Attributes (
3531: p_okl_xtl_pay_invs_tl_rec IN okl_xtl_pay_invs_tl_rec_type,
3532: x_okl_xtl_pay_invs_tl_rec OUT NOCOPY okl_xtl_pay_invs_tl_rec_type
3533: ) RETURN VARCHAR2 IS
3534: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3535: BEGIN
3536: x_okl_xtl_pay_invs_tl_rec := p_okl_xtl_pay_invs_tl_rec;
3532: x_okl_xtl_pay_invs_tl_rec OUT NOCOPY okl_xtl_pay_invs_tl_rec_type
3533: ) RETURN VARCHAR2 IS
3534: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3535: BEGIN
3536: x_okl_xtl_pay_invs_tl_rec := p_okl_xtl_pay_invs_tl_rec;
3537: x_okl_xtl_pay_invs_tl_rec.LANGUAGE := USERENV('LANG');
3538: RETURN(l_return_status);
3539: END Set_Attributes;
3540: BEGIN
3533: ) RETURN VARCHAR2 IS
3534: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3535: BEGIN
3536: x_okl_xtl_pay_invs_tl_rec := p_okl_xtl_pay_invs_tl_rec;
3537: x_okl_xtl_pay_invs_tl_rec.LANGUAGE := USERENV('LANG');
3538: RETURN(l_return_status);
3539: END Set_Attributes;
3540: BEGIN
3541: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3548: RAISE OKL_API.G_EXCEPTION_ERROR;
3549: END IF;
3550: --- Setting item attributes
3551: l_return_status := Set_Attributes(
3552: p_okl_xtl_pay_invs_tl_rec, -- IN
3553: l_okl_xtl_pay_invs_tl_rec); -- OUT
3554: --- If any errors happen abort API
3555: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3549: END IF;
3550: --- Setting item attributes
3551: l_return_status := Set_Attributes(
3552: p_okl_xtl_pay_invs_tl_rec, -- IN
3553: l_okl_xtl_pay_invs_tl_rec); -- OUT
3554: --- If any errors happen abort API
3555: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3557: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3557: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3558: RAISE OKL_API.G_EXCEPTION_ERROR;
3559: END IF;
3560: DELETE FROM OKL_XTL_PAY_INVS_TL
3561: WHERE ID = l_okl_xtl_pay_invs_tl_rec.id;
3562:
3563: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3564: EXCEPTION
3557: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3558: RAISE OKL_API.G_EXCEPTION_ERROR;
3559: END IF;
3560: DELETE FROM OKL_XTL_PAY_INVS_TL
3561: WHERE ID = l_okl_xtl_pay_invs_tl_rec.id;
3562:
3563: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3564: EXCEPTION
3565: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3607: l_api_version CONSTANT NUMBER := 1;
3608: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3609: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3610: l_xlpv_rec xlpv_rec_type := p_xlpv_rec;
3611: l_okl_xtl_pay_invs_tl_rec okl_xtl_pay_invs_tl_rec_type;
3612: l_xlp_rec xlp_rec_type;
3613: BEGIN
3614: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3615: G_PKG_NAME,
3625: END IF;
3626: --------------------------------------
3627: -- Move VIEW record to "Child" records
3628: --------------------------------------
3629: migrate(l_xlpv_rec, l_okl_xtl_pay_invs_tl_rec);
3630: migrate(l_xlpv_rec, l_xlp_rec);
3631: --------------------------------------------
3632: -- Call the DELETE_ROW for each child record
3633: --------------------------------------------
3635: p_init_msg_list,
3636: x_return_status,
3637: x_msg_count,
3638: x_msg_data,
3639: l_okl_xtl_pay_invs_tl_rec
3640: );
3641: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3642: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3643: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN