63: -- PROCEDURE add_language
64: ---------------------------------------------------------------------------
65: PROCEDURE add_language IS
66: BEGIN
67: DELETE FROM OKC_LINE_STYLES_TL T
68: WHERE NOT EXISTS (
69: SELECT NULL
70: FROM OKC_LINE_STYLES_B B
71: WHERE B.ID = T.ID
70: FROM OKC_LINE_STYLES_B B
71: WHERE B.ID = T.ID
72: );
73:
74: UPDATE OKC_LINE_STYLES_TL T SET (
75: NAME,
76: DESCRIPTION) = (SELECT
77: B.NAME,
78: B.DESCRIPTION
75: NAME,
76: DESCRIPTION) = (SELECT
77: B.NAME,
78: B.DESCRIPTION
79: FROM OKC_LINE_STYLES_TL B
80: WHERE B.ID = T.ID
81: AND B.LANGUAGE = T.SOURCE_LANG)
82: WHERE (
83: T.ID,
84: T.LANGUAGE)
85: IN (SELECT
86: SUBT.ID,
87: SUBT.LANGUAGE
88: FROM OKC_LINE_STYLES_TL SUBB, OKC_LINE_STYLES_TL SUBT
89: WHERE SUBB.ID = SUBT.ID
90: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
91: AND (SUBB.NAME <> SUBT.NAME
92: OR SUBB.DESCRIPTION <> SUBT.DESCRIPTION
95: OR (SUBB.DESCRIPTION IS NULL AND SUBT.DESCRIPTION IS NOT NULL)
96: OR (SUBB.DESCRIPTION IS NOT NULL AND SUBT.DESCRIPTION IS NULL)
97: ));
98:
99: INSERT INTO OKC_LINE_STYLES_TL (
100: ID,
101: LANGUAGE,
102: SOURCE_LANG,
103: SFWT_FLAG,
119: B.CREATION_DATE,
120: B.LAST_UPDATED_BY,
121: B.LAST_UPDATE_DATE,
122: B.LAST_UPDATE_LOGIN
123: FROM OKC_LINE_STYLES_TL B, FND_LANGUAGES L
124: WHERE L.INSTALLED_FLAG IN ('I', 'B')
125: AND B.LANGUAGE = USERENV('LANG')
126: AND NOT EXISTS(
127: SELECT NULL
124: WHERE L.INSTALLED_FLAG IN ('I', 'B')
125: AND B.LANGUAGE = USERENV('LANG')
126: AND NOT EXISTS(
127: SELECT NULL
128: FROM OKC_LINE_STYLES_TL T
129: WHERE T.ID = B.ID
130: AND T.LANGUAGE = L.LANGUAGE_CODE
131: );
132:
230: BEGIN
231: RETURN(get_rec(p_lse_rec, l_row_notfound));
232: END get_rec;
233: ---------------------------------------------------------------------------
234: -- FUNCTION get_rec for: OKC_LINE_STYLES_TL
235: ---------------------------------------------------------------------------
236: FUNCTION get_rec (
237: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type,
238: x_no_data_found OUT NOCOPY BOOLEAN
233: ---------------------------------------------------------------------------
234: -- FUNCTION get_rec for: OKC_LINE_STYLES_TL
235: ---------------------------------------------------------------------------
236: FUNCTION get_rec (
237: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type,
238: x_no_data_found OUT NOCOPY BOOLEAN
239: ) RETURN okc_line_styles_tl_rec_type IS
240: CURSOR lse_pktl_csr (p_id IN NUMBER,
241: p_language IN VARCHAR2) IS
235: ---------------------------------------------------------------------------
236: FUNCTION get_rec (
237: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type,
238: x_no_data_found OUT NOCOPY BOOLEAN
239: ) RETURN okc_line_styles_tl_rec_type IS
240: CURSOR lse_pktl_csr (p_id IN NUMBER,
241: p_language IN VARCHAR2) IS
242: SELECT
243: ID,
250: CREATION_DATE,
251: LAST_UPDATED_BY,
252: LAST_UPDATE_DATE,
253: LAST_UPDATE_LOGIN
254: FROM Okc_Line_Styles_Tl
255: WHERE okc_line_styles_tl.id = p_id
256: AND okc_line_styles_tl.language = p_language;
257: l_lse_pktl lse_pktl_csr%ROWTYPE;
258: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
251: LAST_UPDATED_BY,
252: LAST_UPDATE_DATE,
253: LAST_UPDATE_LOGIN
254: FROM Okc_Line_Styles_Tl
255: WHERE okc_line_styles_tl.id = p_id
256: AND okc_line_styles_tl.language = p_language;
257: l_lse_pktl lse_pktl_csr%ROWTYPE;
258: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
259: BEGIN
252: LAST_UPDATE_DATE,
253: LAST_UPDATE_LOGIN
254: FROM Okc_Line_Styles_Tl
255: WHERE okc_line_styles_tl.id = p_id
256: AND okc_line_styles_tl.language = p_language;
257: l_lse_pktl lse_pktl_csr%ROWTYPE;
258: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
259: BEGIN
260: x_no_data_found := TRUE;
254: FROM Okc_Line_Styles_Tl
255: WHERE okc_line_styles_tl.id = p_id
256: AND okc_line_styles_tl.language = p_language;
257: l_lse_pktl lse_pktl_csr%ROWTYPE;
258: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
259: BEGIN
260: x_no_data_found := TRUE;
261: -- Get current database values
262: OPEN lse_pktl_csr (p_okc_line_styles_tl_rec.id,
258: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
259: BEGIN
260: x_no_data_found := TRUE;
261: -- Get current database values
262: OPEN lse_pktl_csr (p_okc_line_styles_tl_rec.id,
263: p_okc_line_styles_tl_rec.language);
264: FETCH lse_pktl_csr INTO
265: l_okc_line_styles_tl_rec.ID,
266: l_okc_line_styles_tl_rec.LANGUAGE,
259: BEGIN
260: x_no_data_found := TRUE;
261: -- Get current database values
262: OPEN lse_pktl_csr (p_okc_line_styles_tl_rec.id,
263: p_okc_line_styles_tl_rec.language);
264: FETCH lse_pktl_csr INTO
265: l_okc_line_styles_tl_rec.ID,
266: l_okc_line_styles_tl_rec.LANGUAGE,
267: l_okc_line_styles_tl_rec.SOURCE_LANG,
261: -- Get current database values
262: OPEN lse_pktl_csr (p_okc_line_styles_tl_rec.id,
263: p_okc_line_styles_tl_rec.language);
264: FETCH lse_pktl_csr INTO
265: l_okc_line_styles_tl_rec.ID,
266: l_okc_line_styles_tl_rec.LANGUAGE,
267: l_okc_line_styles_tl_rec.SOURCE_LANG,
268: l_okc_line_styles_tl_rec.SFWT_FLAG,
269: l_okc_line_styles_tl_rec.NAME,
262: OPEN lse_pktl_csr (p_okc_line_styles_tl_rec.id,
263: p_okc_line_styles_tl_rec.language);
264: FETCH lse_pktl_csr INTO
265: l_okc_line_styles_tl_rec.ID,
266: l_okc_line_styles_tl_rec.LANGUAGE,
267: l_okc_line_styles_tl_rec.SOURCE_LANG,
268: l_okc_line_styles_tl_rec.SFWT_FLAG,
269: l_okc_line_styles_tl_rec.NAME,
270: l_okc_line_styles_tl_rec.DESCRIPTION,
263: p_okc_line_styles_tl_rec.language);
264: FETCH lse_pktl_csr INTO
265: l_okc_line_styles_tl_rec.ID,
266: l_okc_line_styles_tl_rec.LANGUAGE,
267: l_okc_line_styles_tl_rec.SOURCE_LANG,
268: l_okc_line_styles_tl_rec.SFWT_FLAG,
269: l_okc_line_styles_tl_rec.NAME,
270: l_okc_line_styles_tl_rec.DESCRIPTION,
271: l_okc_line_styles_tl_rec.CREATED_BY,
264: FETCH lse_pktl_csr INTO
265: l_okc_line_styles_tl_rec.ID,
266: l_okc_line_styles_tl_rec.LANGUAGE,
267: l_okc_line_styles_tl_rec.SOURCE_LANG,
268: l_okc_line_styles_tl_rec.SFWT_FLAG,
269: l_okc_line_styles_tl_rec.NAME,
270: l_okc_line_styles_tl_rec.DESCRIPTION,
271: l_okc_line_styles_tl_rec.CREATED_BY,
272: l_okc_line_styles_tl_rec.CREATION_DATE,
265: l_okc_line_styles_tl_rec.ID,
266: l_okc_line_styles_tl_rec.LANGUAGE,
267: l_okc_line_styles_tl_rec.SOURCE_LANG,
268: l_okc_line_styles_tl_rec.SFWT_FLAG,
269: l_okc_line_styles_tl_rec.NAME,
270: l_okc_line_styles_tl_rec.DESCRIPTION,
271: l_okc_line_styles_tl_rec.CREATED_BY,
272: l_okc_line_styles_tl_rec.CREATION_DATE,
273: l_okc_line_styles_tl_rec.LAST_UPDATED_BY,
266: l_okc_line_styles_tl_rec.LANGUAGE,
267: l_okc_line_styles_tl_rec.SOURCE_LANG,
268: l_okc_line_styles_tl_rec.SFWT_FLAG,
269: l_okc_line_styles_tl_rec.NAME,
270: l_okc_line_styles_tl_rec.DESCRIPTION,
271: l_okc_line_styles_tl_rec.CREATED_BY,
272: l_okc_line_styles_tl_rec.CREATION_DATE,
273: l_okc_line_styles_tl_rec.LAST_UPDATED_BY,
274: l_okc_line_styles_tl_rec.LAST_UPDATE_DATE,
267: l_okc_line_styles_tl_rec.SOURCE_LANG,
268: l_okc_line_styles_tl_rec.SFWT_FLAG,
269: l_okc_line_styles_tl_rec.NAME,
270: l_okc_line_styles_tl_rec.DESCRIPTION,
271: l_okc_line_styles_tl_rec.CREATED_BY,
272: l_okc_line_styles_tl_rec.CREATION_DATE,
273: l_okc_line_styles_tl_rec.LAST_UPDATED_BY,
274: l_okc_line_styles_tl_rec.LAST_UPDATE_DATE,
275: l_okc_line_styles_tl_rec.LAST_UPDATE_LOGIN;
268: l_okc_line_styles_tl_rec.SFWT_FLAG,
269: l_okc_line_styles_tl_rec.NAME,
270: l_okc_line_styles_tl_rec.DESCRIPTION,
271: l_okc_line_styles_tl_rec.CREATED_BY,
272: l_okc_line_styles_tl_rec.CREATION_DATE,
273: l_okc_line_styles_tl_rec.LAST_UPDATED_BY,
274: l_okc_line_styles_tl_rec.LAST_UPDATE_DATE,
275: l_okc_line_styles_tl_rec.LAST_UPDATE_LOGIN;
276: x_no_data_found := lse_pktl_csr%NOTFOUND;
269: l_okc_line_styles_tl_rec.NAME,
270: l_okc_line_styles_tl_rec.DESCRIPTION,
271: l_okc_line_styles_tl_rec.CREATED_BY,
272: l_okc_line_styles_tl_rec.CREATION_DATE,
273: l_okc_line_styles_tl_rec.LAST_UPDATED_BY,
274: l_okc_line_styles_tl_rec.LAST_UPDATE_DATE,
275: l_okc_line_styles_tl_rec.LAST_UPDATE_LOGIN;
276: x_no_data_found := lse_pktl_csr%NOTFOUND;
277: CLOSE lse_pktl_csr;
270: l_okc_line_styles_tl_rec.DESCRIPTION,
271: l_okc_line_styles_tl_rec.CREATED_BY,
272: l_okc_line_styles_tl_rec.CREATION_DATE,
273: l_okc_line_styles_tl_rec.LAST_UPDATED_BY,
274: l_okc_line_styles_tl_rec.LAST_UPDATE_DATE,
275: l_okc_line_styles_tl_rec.LAST_UPDATE_LOGIN;
276: x_no_data_found := lse_pktl_csr%NOTFOUND;
277: CLOSE lse_pktl_csr;
278: RETURN(l_okc_line_styles_tl_rec);
271: l_okc_line_styles_tl_rec.CREATED_BY,
272: l_okc_line_styles_tl_rec.CREATION_DATE,
273: l_okc_line_styles_tl_rec.LAST_UPDATED_BY,
274: l_okc_line_styles_tl_rec.LAST_UPDATE_DATE,
275: l_okc_line_styles_tl_rec.LAST_UPDATE_LOGIN;
276: x_no_data_found := lse_pktl_csr%NOTFOUND;
277: CLOSE lse_pktl_csr;
278: RETURN(l_okc_line_styles_tl_rec);
279: END get_rec;
274: l_okc_line_styles_tl_rec.LAST_UPDATE_DATE,
275: l_okc_line_styles_tl_rec.LAST_UPDATE_LOGIN;
276: x_no_data_found := lse_pktl_csr%NOTFOUND;
277: CLOSE lse_pktl_csr;
278: RETURN(l_okc_line_styles_tl_rec);
279: END get_rec;
280:
281: FUNCTION get_rec (
282: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type
278: RETURN(l_okc_line_styles_tl_rec);
279: END get_rec;
280:
281: FUNCTION get_rec (
282: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type
283: ) RETURN okc_line_styles_tl_rec_type IS
284: l_row_notfound BOOLEAN := TRUE;
285: BEGIN
286: RETURN(get_rec(p_okc_line_styles_tl_rec, l_row_notfound));
279: END get_rec;
280:
281: FUNCTION get_rec (
282: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type
283: ) RETURN okc_line_styles_tl_rec_type IS
284: l_row_notfound BOOLEAN := TRUE;
285: BEGIN
286: RETURN(get_rec(p_okc_line_styles_tl_rec, l_row_notfound));
287: END get_rec;
282: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type
283: ) RETURN okc_line_styles_tl_rec_type IS
284: l_row_notfound BOOLEAN := TRUE;
285: BEGIN
286: RETURN(get_rec(p_okc_line_styles_tl_rec, l_row_notfound));
287: END get_rec;
288: ---------------------------------------------------------------------------
289: -- FUNCTION get_rec for: OKC_LINE_STYLES_V
290: ---------------------------------------------------------------------------
1434:
1435:
1436: PROCEDURE migrate (
1437: p_from IN lsev_rec_type,
1438: p_to IN OUT NOCOPY okc_line_styles_tl_rec_type
1439: ) IS
1440: BEGIN
1441: p_to.id := p_from.id;
1442: p_to.sfwt_flag := p_from.sfwt_flag;
1448: p_to.last_update_date := p_from.last_update_date;
1449: p_to.last_update_login := p_from.last_update_login;
1450: END migrate;
1451: PROCEDURE migrate (
1452: p_from IN okc_line_styles_tl_rec_type,
1453: p_to IN OUT NOCOPY lsev_rec_type
1454: ) IS
1455: BEGIN
1456: p_to.id := p_from.id;
1482: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1483: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1484: l_lsev_rec lsev_rec_type := p_lsev_rec;
1485: l_lse_rec lse_rec_type;
1486: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
1487: BEGIN
1488: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1489: G_PKG_NAME,
1490: p_init_msg_list,
1765: '_PVT'
1766: );
1767: END insert_row;
1768: ---------------------------------------
1769: -- insert_row for:OKC_LINE_STYLES_TL --
1770: ---------------------------------------
1771: PROCEDURE insert_row(
1772: p_init_msg_list IN VARCHAR2 ,
1773: x_return_status OUT NOCOPY VARCHAR2,
1772: p_init_msg_list IN VARCHAR2 ,
1773: x_return_status OUT NOCOPY VARCHAR2,
1774: x_msg_count OUT NOCOPY NUMBER,
1775: x_msg_data OUT NOCOPY VARCHAR2,
1776: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type,
1777: x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type) IS
1778:
1779: l_api_version CONSTANT NUMBER := 1;
1780: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1773: x_return_status OUT NOCOPY VARCHAR2,
1774: x_msg_count OUT NOCOPY NUMBER,
1775: x_msg_data OUT NOCOPY VARCHAR2,
1776: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type,
1777: x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type) IS
1778:
1779: l_api_version CONSTANT NUMBER := 1;
1780: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1781: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1778:
1779: l_api_version CONSTANT NUMBER := 1;
1780: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1781: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1782: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type := p_okc_line_styles_tl_rec;
1783: l_def_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
1784: CURSOR get_languages IS
1785: SELECT *
1786: FROM FND_LANGUAGES
1779: l_api_version CONSTANT NUMBER := 1;
1780: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1781: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1782: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type := p_okc_line_styles_tl_rec;
1783: l_def_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
1784: CURSOR get_languages IS
1785: SELECT *
1786: FROM FND_LANGUAGES
1787: WHERE INSTALLED_FLAG IN ('I', 'B');
1785: SELECT *
1786: FROM FND_LANGUAGES
1787: WHERE INSTALLED_FLAG IN ('I', 'B');
1788: -------------------------------------------
1789: -- Set_Attributes for:OKC_LINE_STYLES_TL --
1790: -------------------------------------------
1791: FUNCTION Set_Attributes (
1792: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type,
1793: x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type
1788: -------------------------------------------
1789: -- Set_Attributes for:OKC_LINE_STYLES_TL --
1790: -------------------------------------------
1791: FUNCTION Set_Attributes (
1792: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type,
1793: x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type
1794: ) RETURN VARCHAR2 IS
1795: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1796: BEGIN
1789: -- Set_Attributes for:OKC_LINE_STYLES_TL --
1790: -------------------------------------------
1791: FUNCTION Set_Attributes (
1792: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type,
1793: x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type
1794: ) RETURN VARCHAR2 IS
1795: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1796: BEGIN
1797: x_okc_line_styles_tl_rec := p_okc_line_styles_tl_rec;
1793: x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type
1794: ) RETURN VARCHAR2 IS
1795: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1796: BEGIN
1797: x_okc_line_styles_tl_rec := p_okc_line_styles_tl_rec;
1798: x_okc_line_styles_tl_rec.LANGUAGE := USERENV('LANG');
1799: x_okc_line_styles_tl_rec.SOURCE_LANG := USERENV('LANG');
1800: RETURN(l_return_status);
1801: END Set_Attributes;
1794: ) RETURN VARCHAR2 IS
1795: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1796: BEGIN
1797: x_okc_line_styles_tl_rec := p_okc_line_styles_tl_rec;
1798: x_okc_line_styles_tl_rec.LANGUAGE := USERENV('LANG');
1799: x_okc_line_styles_tl_rec.SOURCE_LANG := USERENV('LANG');
1800: RETURN(l_return_status);
1801: END Set_Attributes;
1802: BEGIN
1795: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1796: BEGIN
1797: x_okc_line_styles_tl_rec := p_okc_line_styles_tl_rec;
1798: x_okc_line_styles_tl_rec.LANGUAGE := USERENV('LANG');
1799: x_okc_line_styles_tl_rec.SOURCE_LANG := USERENV('LANG');
1800: RETURN(l_return_status);
1801: END Set_Attributes;
1802: BEGIN
1803: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1810: RAISE OKC_API.G_EXCEPTION_ERROR;
1811: END IF;
1812: --- Setting item attributes
1813: l_return_status := Set_Attributes(
1814: p_okc_line_styles_tl_rec, -- IN
1815: l_okc_line_styles_tl_rec); -- OUT
1816: --- If any errors happen abort API
1817: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1818: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1811: END IF;
1812: --- Setting item attributes
1813: l_return_status := Set_Attributes(
1814: p_okc_line_styles_tl_rec, -- IN
1815: l_okc_line_styles_tl_rec); -- OUT
1816: --- If any errors happen abort API
1817: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1818: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1819: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1819: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1820: RAISE OKC_API.G_EXCEPTION_ERROR;
1821: END IF;
1822: FOR l_lang_rec IN get_languages LOOP
1823: l_okc_line_styles_tl_rec.language := l_lang_rec.language_code;
1824: INSERT INTO OKC_LINE_STYLES_TL(
1825: id,
1826: language,
1827: source_lang,
1820: RAISE OKC_API.G_EXCEPTION_ERROR;
1821: END IF;
1822: FOR l_lang_rec IN get_languages LOOP
1823: l_okc_line_styles_tl_rec.language := l_lang_rec.language_code;
1824: INSERT INTO OKC_LINE_STYLES_TL(
1825: id,
1826: language,
1827: source_lang,
1828: sfwt_flag,
1833: last_updated_by,
1834: last_update_date,
1835: last_update_login)
1836: VALUES (
1837: l_okc_line_styles_tl_rec.id,
1838: l_okc_line_styles_tl_rec.language,
1839: l_okc_line_styles_tl_rec.source_lang,
1840: l_okc_line_styles_tl_rec.sfwt_flag,
1841: l_okc_line_styles_tl_rec.name,
1834: last_update_date,
1835: last_update_login)
1836: VALUES (
1837: l_okc_line_styles_tl_rec.id,
1838: l_okc_line_styles_tl_rec.language,
1839: l_okc_line_styles_tl_rec.source_lang,
1840: l_okc_line_styles_tl_rec.sfwt_flag,
1841: l_okc_line_styles_tl_rec.name,
1842: l_okc_line_styles_tl_rec.description,
1835: last_update_login)
1836: VALUES (
1837: l_okc_line_styles_tl_rec.id,
1838: l_okc_line_styles_tl_rec.language,
1839: l_okc_line_styles_tl_rec.source_lang,
1840: l_okc_line_styles_tl_rec.sfwt_flag,
1841: l_okc_line_styles_tl_rec.name,
1842: l_okc_line_styles_tl_rec.description,
1843: l_okc_line_styles_tl_rec.created_by,
1836: VALUES (
1837: l_okc_line_styles_tl_rec.id,
1838: l_okc_line_styles_tl_rec.language,
1839: l_okc_line_styles_tl_rec.source_lang,
1840: l_okc_line_styles_tl_rec.sfwt_flag,
1841: l_okc_line_styles_tl_rec.name,
1842: l_okc_line_styles_tl_rec.description,
1843: l_okc_line_styles_tl_rec.created_by,
1844: l_okc_line_styles_tl_rec.creation_date,
1837: l_okc_line_styles_tl_rec.id,
1838: l_okc_line_styles_tl_rec.language,
1839: l_okc_line_styles_tl_rec.source_lang,
1840: l_okc_line_styles_tl_rec.sfwt_flag,
1841: l_okc_line_styles_tl_rec.name,
1842: l_okc_line_styles_tl_rec.description,
1843: l_okc_line_styles_tl_rec.created_by,
1844: l_okc_line_styles_tl_rec.creation_date,
1845: l_okc_line_styles_tl_rec.last_updated_by,
1838: l_okc_line_styles_tl_rec.language,
1839: l_okc_line_styles_tl_rec.source_lang,
1840: l_okc_line_styles_tl_rec.sfwt_flag,
1841: l_okc_line_styles_tl_rec.name,
1842: l_okc_line_styles_tl_rec.description,
1843: l_okc_line_styles_tl_rec.created_by,
1844: l_okc_line_styles_tl_rec.creation_date,
1845: l_okc_line_styles_tl_rec.last_updated_by,
1846: l_okc_line_styles_tl_rec.last_update_date,
1839: l_okc_line_styles_tl_rec.source_lang,
1840: l_okc_line_styles_tl_rec.sfwt_flag,
1841: l_okc_line_styles_tl_rec.name,
1842: l_okc_line_styles_tl_rec.description,
1843: l_okc_line_styles_tl_rec.created_by,
1844: l_okc_line_styles_tl_rec.creation_date,
1845: l_okc_line_styles_tl_rec.last_updated_by,
1846: l_okc_line_styles_tl_rec.last_update_date,
1847: l_okc_line_styles_tl_rec.last_update_login);
1840: l_okc_line_styles_tl_rec.sfwt_flag,
1841: l_okc_line_styles_tl_rec.name,
1842: l_okc_line_styles_tl_rec.description,
1843: l_okc_line_styles_tl_rec.created_by,
1844: l_okc_line_styles_tl_rec.creation_date,
1845: l_okc_line_styles_tl_rec.last_updated_by,
1846: l_okc_line_styles_tl_rec.last_update_date,
1847: l_okc_line_styles_tl_rec.last_update_login);
1848: END LOOP;
1841: l_okc_line_styles_tl_rec.name,
1842: l_okc_line_styles_tl_rec.description,
1843: l_okc_line_styles_tl_rec.created_by,
1844: l_okc_line_styles_tl_rec.creation_date,
1845: l_okc_line_styles_tl_rec.last_updated_by,
1846: l_okc_line_styles_tl_rec.last_update_date,
1847: l_okc_line_styles_tl_rec.last_update_login);
1848: END LOOP;
1849: -- Set OUT values
1842: l_okc_line_styles_tl_rec.description,
1843: l_okc_line_styles_tl_rec.created_by,
1844: l_okc_line_styles_tl_rec.creation_date,
1845: l_okc_line_styles_tl_rec.last_updated_by,
1846: l_okc_line_styles_tl_rec.last_update_date,
1847: l_okc_line_styles_tl_rec.last_update_login);
1848: END LOOP;
1849: -- Set OUT values
1850: x_okc_line_styles_tl_rec := l_okc_line_styles_tl_rec;
1843: l_okc_line_styles_tl_rec.created_by,
1844: l_okc_line_styles_tl_rec.creation_date,
1845: l_okc_line_styles_tl_rec.last_updated_by,
1846: l_okc_line_styles_tl_rec.last_update_date,
1847: l_okc_line_styles_tl_rec.last_update_login);
1848: END LOOP;
1849: -- Set OUT values
1850: x_okc_line_styles_tl_rec := l_okc_line_styles_tl_rec;
1851: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1846: l_okc_line_styles_tl_rec.last_update_date,
1847: l_okc_line_styles_tl_rec.last_update_login);
1848: END LOOP;
1849: -- Set OUT values
1850: x_okc_line_styles_tl_rec := l_okc_line_styles_tl_rec;
1851: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1852: EXCEPTION
1853: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1854: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1899: l_lsev_rec lsev_rec_type;
1900: l_def_lsev_rec lsev_rec_type;
1901: l_lse_rec lse_rec_type;
1902: lx_lse_rec lse_rec_type;
1903: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
1904: lx_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
1905: -------------------------------
1906: -- FUNCTION fill_who_columns --
1907: -------------------------------
1900: l_def_lsev_rec lsev_rec_type;
1901: l_lse_rec lse_rec_type;
1902: lx_lse_rec lse_rec_type;
1903: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
1904: lx_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
1905: -------------------------------
1906: -- FUNCTION fill_who_columns --
1907: -------------------------------
1908: FUNCTION fill_who_columns (
1975: --------------------------------------
1976: -- Move VIEW record to "Child" records
1977: --------------------------------------
1978: migrate(l_def_lsev_rec, l_lse_rec);
1979: migrate(l_def_lsev_rec, l_okc_line_styles_tl_rec);
1980: --------------------------------------------
1981: -- Call the INSERT_ROW for each child record
1982: --------------------------------------------
1983: insert_row(
1998: p_init_msg_list,
1999: x_return_status,
2000: x_msg_count,
2001: x_msg_data,
2002: l_okc_line_styles_tl_rec,
2003: lx_okc_line_styles_tl_rec
2004: );
2005: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2006: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1999: x_return_status,
2000: x_msg_count,
2001: x_msg_data,
2002: l_okc_line_styles_tl_rec,
2003: lx_okc_line_styles_tl_rec
2004: );
2005: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2006: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2007: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2006: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2007: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2008: RAISE OKC_API.G_EXCEPTION_ERROR;
2009: END IF;
2010: migrate(lx_okc_line_styles_tl_rec, l_def_lsev_rec);
2011: -- Set OUT values
2012: x_lsev_rec := l_def_lsev_rec;
2013: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2014: EXCEPTION
2219: '_PVT'
2220: );
2221: END lock_row;
2222: -------------------------------------
2223: -- lock_row for:OKC_LINE_STYLES_TL --
2224: -------------------------------------
2225: PROCEDURE lock_row(
2226: p_init_msg_list IN VARCHAR2 ,
2227: x_return_status OUT NOCOPY VARCHAR2,
2226: p_init_msg_list IN VARCHAR2 ,
2227: x_return_status OUT NOCOPY VARCHAR2,
2228: x_msg_count OUT NOCOPY NUMBER,
2229: x_msg_data OUT NOCOPY VARCHAR2,
2230: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type) IS
2231:
2232: E_Resource_Busy EXCEPTION;
2233: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2234: CURSOR lock_csr (p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type) IS
2230: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type) IS
2231:
2232: E_Resource_Busy EXCEPTION;
2233: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2234: CURSOR lock_csr (p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type) IS
2235: SELECT *
2236: FROM OKC_LINE_STYLES_TL
2237: WHERE ID = p_okc_line_styles_tl_rec.id
2238: FOR UPDATE NOWAIT;
2232: E_Resource_Busy EXCEPTION;
2233: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2234: CURSOR lock_csr (p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type) IS
2235: SELECT *
2236: FROM OKC_LINE_STYLES_TL
2237: WHERE ID = p_okc_line_styles_tl_rec.id
2238: FOR UPDATE NOWAIT;
2239:
2240: l_api_version CONSTANT NUMBER := 1;
2233: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2234: CURSOR lock_csr (p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type) IS
2235: SELECT *
2236: FROM OKC_LINE_STYLES_TL
2237: WHERE ID = p_okc_line_styles_tl_rec.id
2238: FOR UPDATE NOWAIT;
2239:
2240: l_api_version CONSTANT NUMBER := 1;
2241: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
2253: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2254: RAISE OKC_API.G_EXCEPTION_ERROR;
2255: END IF;
2256: BEGIN
2257: OPEN lock_csr(p_okc_line_styles_tl_rec);
2258: FETCH lock_csr INTO l_lock_var;
2259: l_row_notfound := lock_csr%NOTFOUND;
2260: CLOSE lock_csr;
2261: EXCEPTION
2318: l_api_version CONSTANT NUMBER := 1;
2319: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2320: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2321: l_lse_rec lse_rec_type;
2322: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
2323: BEGIN
2324: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2325: G_PKG_NAME,
2326: p_init_msg_list,
2336: --------------------------------------
2337: -- Move VIEW record to "Child" records
2338: --------------------------------------
2339: migrate(p_lsev_rec, l_lse_rec);
2340: migrate(p_lsev_rec, l_okc_line_styles_tl_rec);
2341: --------------------------------------------
2342: -- Call the LOCK_ROW for each child record
2343: --------------------------------------------
2344: lock_row(
2357: p_init_msg_list,
2358: x_return_status,
2359: x_msg_count,
2360: x_msg_data,
2361: l_okc_line_styles_tl_rec
2362: );
2363: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2364: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2365: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2745: '_PVT'
2746: );
2747: END update_row;
2748: ---------------------------------------
2749: -- update_row for:OKC_LINE_STYLES_TL --
2750: ---------------------------------------
2751: PROCEDURE update_row(
2752: p_init_msg_list IN VARCHAR2 ,
2753: x_return_status OUT NOCOPY VARCHAR2,
2752: p_init_msg_list IN VARCHAR2 ,
2753: x_return_status OUT NOCOPY VARCHAR2,
2754: x_msg_count OUT NOCOPY NUMBER,
2755: x_msg_data OUT NOCOPY VARCHAR2,
2756: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type,
2757: x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type) IS
2758:
2759: l_api_version CONSTANT NUMBER := 1;
2760: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2753: x_return_status OUT NOCOPY VARCHAR2,
2754: x_msg_count OUT NOCOPY NUMBER,
2755: x_msg_data OUT NOCOPY VARCHAR2,
2756: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type,
2757: x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type) IS
2758:
2759: l_api_version CONSTANT NUMBER := 1;
2760: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2761: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2758:
2759: l_api_version CONSTANT NUMBER := 1;
2760: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2761: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2762: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type := p_okc_line_styles_tl_rec;
2763: l_def_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
2764: l_row_notfound BOOLEAN := TRUE;
2765: ----------------------------------
2766: -- FUNCTION populate_new_record --
2759: l_api_version CONSTANT NUMBER := 1;
2760: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2761: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2762: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type := p_okc_line_styles_tl_rec;
2763: l_def_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
2764: l_row_notfound BOOLEAN := TRUE;
2765: ----------------------------------
2766: -- FUNCTION populate_new_record --
2767: ----------------------------------
2765: ----------------------------------
2766: -- FUNCTION populate_new_record --
2767: ----------------------------------
2768: FUNCTION populate_new_record (
2769: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type,
2770: x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type
2771: ) RETURN VARCHAR2 IS
2772: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
2773: l_row_notfound BOOLEAN := TRUE;
2766: -- FUNCTION populate_new_record --
2767: ----------------------------------
2768: FUNCTION populate_new_record (
2769: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type,
2770: x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type
2771: ) RETURN VARCHAR2 IS
2772: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
2773: l_row_notfound BOOLEAN := TRUE;
2774: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2768: FUNCTION populate_new_record (
2769: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type,
2770: x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type
2771: ) RETURN VARCHAR2 IS
2772: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
2773: l_row_notfound BOOLEAN := TRUE;
2774: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2775: BEGIN
2776: x_okc_line_styles_tl_rec := p_okc_line_styles_tl_rec;
2772: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
2773: l_row_notfound BOOLEAN := TRUE;
2774: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2775: BEGIN
2776: x_okc_line_styles_tl_rec := p_okc_line_styles_tl_rec;
2777: -- Get current database values
2778: l_okc_line_styles_tl_rec := get_rec(p_okc_line_styles_tl_rec, l_row_notfound);
2779: IF (l_row_notfound) THEN
2780: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2774: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2775: BEGIN
2776: x_okc_line_styles_tl_rec := p_okc_line_styles_tl_rec;
2777: -- Get current database values
2778: l_okc_line_styles_tl_rec := get_rec(p_okc_line_styles_tl_rec, l_row_notfound);
2779: IF (l_row_notfound) THEN
2780: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2781: END IF;
2782: IF (x_okc_line_styles_tl_rec.id = OKC_API.G_MISS_NUM)
2778: l_okc_line_styles_tl_rec := get_rec(p_okc_line_styles_tl_rec, l_row_notfound);
2779: IF (l_row_notfound) THEN
2780: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2781: END IF;
2782: IF (x_okc_line_styles_tl_rec.id = OKC_API.G_MISS_NUM)
2783: THEN
2784: x_okc_line_styles_tl_rec.id := l_okc_line_styles_tl_rec.id;
2785: END IF;
2786: IF (x_okc_line_styles_tl_rec.language = OKC_API.G_MISS_CHAR)
2780: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2781: END IF;
2782: IF (x_okc_line_styles_tl_rec.id = OKC_API.G_MISS_NUM)
2783: THEN
2784: x_okc_line_styles_tl_rec.id := l_okc_line_styles_tl_rec.id;
2785: END IF;
2786: IF (x_okc_line_styles_tl_rec.language = OKC_API.G_MISS_CHAR)
2787: THEN
2788: x_okc_line_styles_tl_rec.language := l_okc_line_styles_tl_rec.language;
2782: IF (x_okc_line_styles_tl_rec.id = OKC_API.G_MISS_NUM)
2783: THEN
2784: x_okc_line_styles_tl_rec.id := l_okc_line_styles_tl_rec.id;
2785: END IF;
2786: IF (x_okc_line_styles_tl_rec.language = OKC_API.G_MISS_CHAR)
2787: THEN
2788: x_okc_line_styles_tl_rec.language := l_okc_line_styles_tl_rec.language;
2789: END IF;
2790: IF (x_okc_line_styles_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2784: x_okc_line_styles_tl_rec.id := l_okc_line_styles_tl_rec.id;
2785: END IF;
2786: IF (x_okc_line_styles_tl_rec.language = OKC_API.G_MISS_CHAR)
2787: THEN
2788: x_okc_line_styles_tl_rec.language := l_okc_line_styles_tl_rec.language;
2789: END IF;
2790: IF (x_okc_line_styles_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2791: THEN
2792: x_okc_line_styles_tl_rec.source_lang := l_okc_line_styles_tl_rec.source_lang;
2786: IF (x_okc_line_styles_tl_rec.language = OKC_API.G_MISS_CHAR)
2787: THEN
2788: x_okc_line_styles_tl_rec.language := l_okc_line_styles_tl_rec.language;
2789: END IF;
2790: IF (x_okc_line_styles_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2791: THEN
2792: x_okc_line_styles_tl_rec.source_lang := l_okc_line_styles_tl_rec.source_lang;
2793: END IF;
2794: IF (x_okc_line_styles_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2788: x_okc_line_styles_tl_rec.language := l_okc_line_styles_tl_rec.language;
2789: END IF;
2790: IF (x_okc_line_styles_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2791: THEN
2792: x_okc_line_styles_tl_rec.source_lang := l_okc_line_styles_tl_rec.source_lang;
2793: END IF;
2794: IF (x_okc_line_styles_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2795: THEN
2796: x_okc_line_styles_tl_rec.sfwt_flag := l_okc_line_styles_tl_rec.sfwt_flag;
2790: IF (x_okc_line_styles_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2791: THEN
2792: x_okc_line_styles_tl_rec.source_lang := l_okc_line_styles_tl_rec.source_lang;
2793: END IF;
2794: IF (x_okc_line_styles_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2795: THEN
2796: x_okc_line_styles_tl_rec.sfwt_flag := l_okc_line_styles_tl_rec.sfwt_flag;
2797: END IF;
2798: IF (x_okc_line_styles_tl_rec.name = OKC_API.G_MISS_CHAR)
2792: x_okc_line_styles_tl_rec.source_lang := l_okc_line_styles_tl_rec.source_lang;
2793: END IF;
2794: IF (x_okc_line_styles_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2795: THEN
2796: x_okc_line_styles_tl_rec.sfwt_flag := l_okc_line_styles_tl_rec.sfwt_flag;
2797: END IF;
2798: IF (x_okc_line_styles_tl_rec.name = OKC_API.G_MISS_CHAR)
2799: THEN
2800: x_okc_line_styles_tl_rec.name := l_okc_line_styles_tl_rec.name;
2794: IF (x_okc_line_styles_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2795: THEN
2796: x_okc_line_styles_tl_rec.sfwt_flag := l_okc_line_styles_tl_rec.sfwt_flag;
2797: END IF;
2798: IF (x_okc_line_styles_tl_rec.name = OKC_API.G_MISS_CHAR)
2799: THEN
2800: x_okc_line_styles_tl_rec.name := l_okc_line_styles_tl_rec.name;
2801: END IF;
2802: IF (x_okc_line_styles_tl_rec.description = OKC_API.G_MISS_CHAR)
2796: x_okc_line_styles_tl_rec.sfwt_flag := l_okc_line_styles_tl_rec.sfwt_flag;
2797: END IF;
2798: IF (x_okc_line_styles_tl_rec.name = OKC_API.G_MISS_CHAR)
2799: THEN
2800: x_okc_line_styles_tl_rec.name := l_okc_line_styles_tl_rec.name;
2801: END IF;
2802: IF (x_okc_line_styles_tl_rec.description = OKC_API.G_MISS_CHAR)
2803: THEN
2804: x_okc_line_styles_tl_rec.description := l_okc_line_styles_tl_rec.description;
2798: IF (x_okc_line_styles_tl_rec.name = OKC_API.G_MISS_CHAR)
2799: THEN
2800: x_okc_line_styles_tl_rec.name := l_okc_line_styles_tl_rec.name;
2801: END IF;
2802: IF (x_okc_line_styles_tl_rec.description = OKC_API.G_MISS_CHAR)
2803: THEN
2804: x_okc_line_styles_tl_rec.description := l_okc_line_styles_tl_rec.description;
2805: END IF;
2806: IF (x_okc_line_styles_tl_rec.created_by = OKC_API.G_MISS_NUM)
2800: x_okc_line_styles_tl_rec.name := l_okc_line_styles_tl_rec.name;
2801: END IF;
2802: IF (x_okc_line_styles_tl_rec.description = OKC_API.G_MISS_CHAR)
2803: THEN
2804: x_okc_line_styles_tl_rec.description := l_okc_line_styles_tl_rec.description;
2805: END IF;
2806: IF (x_okc_line_styles_tl_rec.created_by = OKC_API.G_MISS_NUM)
2807: THEN
2808: x_okc_line_styles_tl_rec.created_by := l_okc_line_styles_tl_rec.created_by;
2802: IF (x_okc_line_styles_tl_rec.description = OKC_API.G_MISS_CHAR)
2803: THEN
2804: x_okc_line_styles_tl_rec.description := l_okc_line_styles_tl_rec.description;
2805: END IF;
2806: IF (x_okc_line_styles_tl_rec.created_by = OKC_API.G_MISS_NUM)
2807: THEN
2808: x_okc_line_styles_tl_rec.created_by := l_okc_line_styles_tl_rec.created_by;
2809: END IF;
2810: IF (x_okc_line_styles_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2804: x_okc_line_styles_tl_rec.description := l_okc_line_styles_tl_rec.description;
2805: END IF;
2806: IF (x_okc_line_styles_tl_rec.created_by = OKC_API.G_MISS_NUM)
2807: THEN
2808: x_okc_line_styles_tl_rec.created_by := l_okc_line_styles_tl_rec.created_by;
2809: END IF;
2810: IF (x_okc_line_styles_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2811: THEN
2812: x_okc_line_styles_tl_rec.creation_date := l_okc_line_styles_tl_rec.creation_date;
2806: IF (x_okc_line_styles_tl_rec.created_by = OKC_API.G_MISS_NUM)
2807: THEN
2808: x_okc_line_styles_tl_rec.created_by := l_okc_line_styles_tl_rec.created_by;
2809: END IF;
2810: IF (x_okc_line_styles_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2811: THEN
2812: x_okc_line_styles_tl_rec.creation_date := l_okc_line_styles_tl_rec.creation_date;
2813: END IF;
2814: IF (x_okc_line_styles_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2808: x_okc_line_styles_tl_rec.created_by := l_okc_line_styles_tl_rec.created_by;
2809: END IF;
2810: IF (x_okc_line_styles_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2811: THEN
2812: x_okc_line_styles_tl_rec.creation_date := l_okc_line_styles_tl_rec.creation_date;
2813: END IF;
2814: IF (x_okc_line_styles_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2815: THEN
2816: x_okc_line_styles_tl_rec.last_updated_by := l_okc_line_styles_tl_rec.last_updated_by;
2810: IF (x_okc_line_styles_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2811: THEN
2812: x_okc_line_styles_tl_rec.creation_date := l_okc_line_styles_tl_rec.creation_date;
2813: END IF;
2814: IF (x_okc_line_styles_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2815: THEN
2816: x_okc_line_styles_tl_rec.last_updated_by := l_okc_line_styles_tl_rec.last_updated_by;
2817: END IF;
2818: IF (x_okc_line_styles_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2812: x_okc_line_styles_tl_rec.creation_date := l_okc_line_styles_tl_rec.creation_date;
2813: END IF;
2814: IF (x_okc_line_styles_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2815: THEN
2816: x_okc_line_styles_tl_rec.last_updated_by := l_okc_line_styles_tl_rec.last_updated_by;
2817: END IF;
2818: IF (x_okc_line_styles_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2819: THEN
2820: x_okc_line_styles_tl_rec.last_update_date := l_okc_line_styles_tl_rec.last_update_date;
2814: IF (x_okc_line_styles_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2815: THEN
2816: x_okc_line_styles_tl_rec.last_updated_by := l_okc_line_styles_tl_rec.last_updated_by;
2817: END IF;
2818: IF (x_okc_line_styles_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2819: THEN
2820: x_okc_line_styles_tl_rec.last_update_date := l_okc_line_styles_tl_rec.last_update_date;
2821: END IF;
2822: IF (x_okc_line_styles_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2816: x_okc_line_styles_tl_rec.last_updated_by := l_okc_line_styles_tl_rec.last_updated_by;
2817: END IF;
2818: IF (x_okc_line_styles_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2819: THEN
2820: x_okc_line_styles_tl_rec.last_update_date := l_okc_line_styles_tl_rec.last_update_date;
2821: END IF;
2822: IF (x_okc_line_styles_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2823: THEN
2824: x_okc_line_styles_tl_rec.last_update_login := l_okc_line_styles_tl_rec.last_update_login;
2818: IF (x_okc_line_styles_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2819: THEN
2820: x_okc_line_styles_tl_rec.last_update_date := l_okc_line_styles_tl_rec.last_update_date;
2821: END IF;
2822: IF (x_okc_line_styles_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2823: THEN
2824: x_okc_line_styles_tl_rec.last_update_login := l_okc_line_styles_tl_rec.last_update_login;
2825: END IF;
2826: RETURN(l_return_status);
2820: x_okc_line_styles_tl_rec.last_update_date := l_okc_line_styles_tl_rec.last_update_date;
2821: END IF;
2822: IF (x_okc_line_styles_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2823: THEN
2824: x_okc_line_styles_tl_rec.last_update_login := l_okc_line_styles_tl_rec.last_update_login;
2825: END IF;
2826: RETURN(l_return_status);
2827: END populate_new_record;
2828: -------------------------------------------
2825: END IF;
2826: RETURN(l_return_status);
2827: END populate_new_record;
2828: -------------------------------------------
2829: -- Set_Attributes for:OKC_LINE_STYLES_TL --
2830: -------------------------------------------
2831: FUNCTION Set_Attributes (
2832: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type,
2833: x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type
2828: -------------------------------------------
2829: -- Set_Attributes for:OKC_LINE_STYLES_TL --
2830: -------------------------------------------
2831: FUNCTION Set_Attributes (
2832: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type,
2833: x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type
2834: ) RETURN VARCHAR2 IS
2835: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2836: BEGIN
2829: -- Set_Attributes for:OKC_LINE_STYLES_TL --
2830: -------------------------------------------
2831: FUNCTION Set_Attributes (
2832: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type,
2833: x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type
2834: ) RETURN VARCHAR2 IS
2835: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2836: BEGIN
2837: x_okc_line_styles_tl_rec := p_okc_line_styles_tl_rec;
2833: x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type
2834: ) RETURN VARCHAR2 IS
2835: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2836: BEGIN
2837: x_okc_line_styles_tl_rec := p_okc_line_styles_tl_rec;
2838: x_okc_line_styles_tl_rec.LANGUAGE := USERENV('LANG');
2839: x_okc_line_styles_tl_rec.SOURCE_LANG := USERENV('LANG');
2840: RETURN(l_return_status);
2841: END Set_Attributes;
2834: ) RETURN VARCHAR2 IS
2835: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2836: BEGIN
2837: x_okc_line_styles_tl_rec := p_okc_line_styles_tl_rec;
2838: x_okc_line_styles_tl_rec.LANGUAGE := USERENV('LANG');
2839: x_okc_line_styles_tl_rec.SOURCE_LANG := USERENV('LANG');
2840: RETURN(l_return_status);
2841: END Set_Attributes;
2842: BEGIN
2835: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2836: BEGIN
2837: x_okc_line_styles_tl_rec := p_okc_line_styles_tl_rec;
2838: x_okc_line_styles_tl_rec.LANGUAGE := USERENV('LANG');
2839: x_okc_line_styles_tl_rec.SOURCE_LANG := USERENV('LANG');
2840: RETURN(l_return_status);
2841: END Set_Attributes;
2842: BEGIN
2843: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2850: RAISE OKC_API.G_EXCEPTION_ERROR;
2851: END IF;
2852: --- Setting item attributes
2853: l_return_status := Set_Attributes(
2854: p_okc_line_styles_tl_rec, -- IN
2855: l_okc_line_styles_tl_rec); -- OUT
2856: --- If any errors happen abort API
2857: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2851: END IF;
2852: --- Setting item attributes
2853: l_return_status := Set_Attributes(
2854: p_okc_line_styles_tl_rec, -- IN
2855: l_okc_line_styles_tl_rec); -- OUT
2856: --- If any errors happen abort API
2857: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2858: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2860: RAISE OKC_API.G_EXCEPTION_ERROR;
2861: END IF;
2862: l_return_status := populate_new_record(l_okc_line_styles_tl_rec, l_def_okc_line_styles_tl_rec);
2863: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2864: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2865: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2866: RAISE OKC_API.G_EXCEPTION_ERROR;
2864: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2865: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2866: RAISE OKC_API.G_EXCEPTION_ERROR;
2867: END IF;
2868: UPDATE OKC_LINE_STYLES_TL
2869: SET NAME = l_def_okc_line_styles_tl_rec.name,
2870: DESCRIPTION = l_def_okc_line_styles_tl_rec.description,
2871: CREATED_BY = l_def_okc_line_styles_tl_rec.created_by,
2872: CREATION_DATE = l_def_okc_line_styles_tl_rec.creation_date,
2865: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2866: RAISE OKC_API.G_EXCEPTION_ERROR;
2867: END IF;
2868: UPDATE OKC_LINE_STYLES_TL
2869: SET NAME = l_def_okc_line_styles_tl_rec.name,
2870: DESCRIPTION = l_def_okc_line_styles_tl_rec.description,
2871: CREATED_BY = l_def_okc_line_styles_tl_rec.created_by,
2872: CREATION_DATE = l_def_okc_line_styles_tl_rec.creation_date,
2873: LAST_UPDATED_BY = l_def_okc_line_styles_tl_rec.last_updated_by,
2866: RAISE OKC_API.G_EXCEPTION_ERROR;
2867: END IF;
2868: UPDATE OKC_LINE_STYLES_TL
2869: SET NAME = l_def_okc_line_styles_tl_rec.name,
2870: DESCRIPTION = l_def_okc_line_styles_tl_rec.description,
2871: CREATED_BY = l_def_okc_line_styles_tl_rec.created_by,
2872: CREATION_DATE = l_def_okc_line_styles_tl_rec.creation_date,
2873: LAST_UPDATED_BY = l_def_okc_line_styles_tl_rec.last_updated_by,
2874: LAST_UPDATE_DATE = l_def_okc_line_styles_tl_rec.last_update_date,
2867: END IF;
2868: UPDATE OKC_LINE_STYLES_TL
2869: SET NAME = l_def_okc_line_styles_tl_rec.name,
2870: DESCRIPTION = l_def_okc_line_styles_tl_rec.description,
2871: CREATED_BY = l_def_okc_line_styles_tl_rec.created_by,
2872: CREATION_DATE = l_def_okc_line_styles_tl_rec.creation_date,
2873: LAST_UPDATED_BY = l_def_okc_line_styles_tl_rec.last_updated_by,
2874: LAST_UPDATE_DATE = l_def_okc_line_styles_tl_rec.last_update_date,
2875: LAST_UPDATE_LOGIN = l_def_okc_line_styles_tl_rec.last_update_login
2868: UPDATE OKC_LINE_STYLES_TL
2869: SET NAME = l_def_okc_line_styles_tl_rec.name,
2870: DESCRIPTION = l_def_okc_line_styles_tl_rec.description,
2871: CREATED_BY = l_def_okc_line_styles_tl_rec.created_by,
2872: CREATION_DATE = l_def_okc_line_styles_tl_rec.creation_date,
2873: LAST_UPDATED_BY = l_def_okc_line_styles_tl_rec.last_updated_by,
2874: LAST_UPDATE_DATE = l_def_okc_line_styles_tl_rec.last_update_date,
2875: LAST_UPDATE_LOGIN = l_def_okc_line_styles_tl_rec.last_update_login
2876: WHERE ID = l_def_okc_line_styles_tl_rec.id
2869: SET NAME = l_def_okc_line_styles_tl_rec.name,
2870: DESCRIPTION = l_def_okc_line_styles_tl_rec.description,
2871: CREATED_BY = l_def_okc_line_styles_tl_rec.created_by,
2872: CREATION_DATE = l_def_okc_line_styles_tl_rec.creation_date,
2873: LAST_UPDATED_BY = l_def_okc_line_styles_tl_rec.last_updated_by,
2874: LAST_UPDATE_DATE = l_def_okc_line_styles_tl_rec.last_update_date,
2875: LAST_UPDATE_LOGIN = l_def_okc_line_styles_tl_rec.last_update_login
2876: WHERE ID = l_def_okc_line_styles_tl_rec.id
2877: AND SOURCE_LANG = USERENV('LANG');
2870: DESCRIPTION = l_def_okc_line_styles_tl_rec.description,
2871: CREATED_BY = l_def_okc_line_styles_tl_rec.created_by,
2872: CREATION_DATE = l_def_okc_line_styles_tl_rec.creation_date,
2873: LAST_UPDATED_BY = l_def_okc_line_styles_tl_rec.last_updated_by,
2874: LAST_UPDATE_DATE = l_def_okc_line_styles_tl_rec.last_update_date,
2875: LAST_UPDATE_LOGIN = l_def_okc_line_styles_tl_rec.last_update_login
2876: WHERE ID = l_def_okc_line_styles_tl_rec.id
2877: AND SOURCE_LANG = USERENV('LANG');
2878:
2871: CREATED_BY = l_def_okc_line_styles_tl_rec.created_by,
2872: CREATION_DATE = l_def_okc_line_styles_tl_rec.creation_date,
2873: LAST_UPDATED_BY = l_def_okc_line_styles_tl_rec.last_updated_by,
2874: LAST_UPDATE_DATE = l_def_okc_line_styles_tl_rec.last_update_date,
2875: LAST_UPDATE_LOGIN = l_def_okc_line_styles_tl_rec.last_update_login
2876: WHERE ID = l_def_okc_line_styles_tl_rec.id
2877: AND SOURCE_LANG = USERENV('LANG');
2878:
2879: UPDATE OKC_LINE_STYLES_TL
2872: CREATION_DATE = l_def_okc_line_styles_tl_rec.creation_date,
2873: LAST_UPDATED_BY = l_def_okc_line_styles_tl_rec.last_updated_by,
2874: LAST_UPDATE_DATE = l_def_okc_line_styles_tl_rec.last_update_date,
2875: LAST_UPDATE_LOGIN = l_def_okc_line_styles_tl_rec.last_update_login
2876: WHERE ID = l_def_okc_line_styles_tl_rec.id
2877: AND SOURCE_LANG = USERENV('LANG');
2878:
2879: UPDATE OKC_LINE_STYLES_TL
2880: SET SFWT_FLAG = 'Y'
2875: LAST_UPDATE_LOGIN = l_def_okc_line_styles_tl_rec.last_update_login
2876: WHERE ID = l_def_okc_line_styles_tl_rec.id
2877: AND SOURCE_LANG = USERENV('LANG');
2878:
2879: UPDATE OKC_LINE_STYLES_TL
2880: SET SFWT_FLAG = 'Y'
2881: WHERE ID = l_def_okc_line_styles_tl_rec.id
2882: AND SOURCE_LANG <> USERENV('LANG');
2883:
2877: AND SOURCE_LANG = USERENV('LANG');
2878:
2879: UPDATE OKC_LINE_STYLES_TL
2880: SET SFWT_FLAG = 'Y'
2881: WHERE ID = l_def_okc_line_styles_tl_rec.id
2882: AND SOURCE_LANG <> USERENV('LANG');
2883:
2884: x_okc_line_styles_tl_rec := l_def_okc_line_styles_tl_rec;
2885: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2880: SET SFWT_FLAG = 'Y'
2881: WHERE ID = l_def_okc_line_styles_tl_rec.id
2882: AND SOURCE_LANG <> USERENV('LANG');
2883:
2884: x_okc_line_styles_tl_rec := l_def_okc_line_styles_tl_rec;
2885: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2886: EXCEPTION
2887: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2888: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2931: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2932: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2933: l_lsev_rec lsev_rec_type := p_lsev_rec;
2934: l_def_lsev_rec lsev_rec_type;
2935: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
2936: lx_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
2937: l_lse_rec lse_rec_type;
2938: lx_lse_rec lse_rec_type;
2939: -------------------------------
2932: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2933: l_lsev_rec lsev_rec_type := p_lsev_rec;
2934: l_def_lsev_rec lsev_rec_type;
2935: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
2936: lx_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
2937: l_lse_rec lse_rec_type;
2938: lx_lse_rec lse_rec_type;
2939: -------------------------------
2940: -- FUNCTION fill_who_columns --
3172:
3173: --------------------------------------
3174: -- Move VIEW record to "Child" records
3175: --------------------------------------
3176: migrate(l_def_lsev_rec, l_okc_line_styles_tl_rec);
3177: migrate(l_def_lsev_rec, l_lse_rec);
3178: --------------------------------------------
3179: -- Call the UPDATE_ROW for each child record
3180: --------------------------------------------
3182: p_init_msg_list,
3183: x_return_status,
3184: x_msg_count,
3185: x_msg_data,
3186: l_okc_line_styles_tl_rec,
3187: lx_okc_line_styles_tl_rec
3188: );
3189: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3190: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3183: x_return_status,
3184: x_msg_count,
3185: x_msg_data,
3186: l_okc_line_styles_tl_rec,
3187: lx_okc_line_styles_tl_rec
3188: );
3189: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3190: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3191: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3190: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3191: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3192: RAISE OKC_API.G_EXCEPTION_ERROR;
3193: END IF;
3194: migrate(lx_okc_line_styles_tl_rec, l_def_lsev_rec);
3195: update_row(
3196: p_init_msg_list,
3197: x_return_status,
3198: x_msg_count,
3372: '_PVT'
3373: );
3374: END delete_row;
3375: ---------------------------------------
3376: -- delete_row for:OKC_LINE_STYLES_TL --
3377: ---------------------------------------
3378: PROCEDURE delete_row(
3379: p_init_msg_list IN VARCHAR2 ,
3380: x_return_status OUT NOCOPY VARCHAR2,
3379: p_init_msg_list IN VARCHAR2 ,
3380: x_return_status OUT NOCOPY VARCHAR2,
3381: x_msg_count OUT NOCOPY NUMBER,
3382: x_msg_data OUT NOCOPY VARCHAR2,
3383: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type) IS
3384:
3385: l_api_version CONSTANT NUMBER := 1;
3386: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3387: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3384:
3385: l_api_version CONSTANT NUMBER := 1;
3386: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3387: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3388: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type:= p_okc_line_styles_tl_rec;
3389: l_row_notfound BOOLEAN := TRUE;
3390: -------------------------------------------
3391: -- Set_Attributes for:OKC_LINE_STYLES_TL --
3392: -------------------------------------------
3387: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3388: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type:= p_okc_line_styles_tl_rec;
3389: l_row_notfound BOOLEAN := TRUE;
3390: -------------------------------------------
3391: -- Set_Attributes for:OKC_LINE_STYLES_TL --
3392: -------------------------------------------
3393: FUNCTION Set_Attributes (
3394: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type,
3395: x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type
3390: -------------------------------------------
3391: -- Set_Attributes for:OKC_LINE_STYLES_TL --
3392: -------------------------------------------
3393: FUNCTION Set_Attributes (
3394: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type,
3395: x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type
3396: ) RETURN VARCHAR2 IS
3397: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3398: BEGIN
3391: -- Set_Attributes for:OKC_LINE_STYLES_TL --
3392: -------------------------------------------
3393: FUNCTION Set_Attributes (
3394: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type,
3395: x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type
3396: ) RETURN VARCHAR2 IS
3397: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3398: BEGIN
3399: x_okc_line_styles_tl_rec := p_okc_line_styles_tl_rec;
3395: x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type
3396: ) RETURN VARCHAR2 IS
3397: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3398: BEGIN
3399: x_okc_line_styles_tl_rec := p_okc_line_styles_tl_rec;
3400: x_okc_line_styles_tl_rec.LANGUAGE := USERENV('LANG');
3401: RETURN(l_return_status);
3402: END Set_Attributes;
3403: BEGIN
3396: ) RETURN VARCHAR2 IS
3397: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3398: BEGIN
3399: x_okc_line_styles_tl_rec := p_okc_line_styles_tl_rec;
3400: x_okc_line_styles_tl_rec.LANGUAGE := USERENV('LANG');
3401: RETURN(l_return_status);
3402: END Set_Attributes;
3403: BEGIN
3404: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3411: RAISE OKC_API.G_EXCEPTION_ERROR;
3412: END IF;
3413: --- Setting item attributes
3414: l_return_status := Set_Attributes(
3415: p_okc_line_styles_tl_rec, -- IN
3416: l_okc_line_styles_tl_rec); -- OUT
3417: --- If any errors happen abort API
3418: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3412: END IF;
3413: --- Setting item attributes
3414: l_return_status := Set_Attributes(
3415: p_okc_line_styles_tl_rec, -- IN
3416: l_okc_line_styles_tl_rec); -- OUT
3417: --- If any errors happen abort API
3418: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3420: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3420: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3421: RAISE OKC_API.G_EXCEPTION_ERROR;
3422: END IF;
3423: DELETE FROM OKC_LINE_STYLES_TL
3424: WHERE ID = l_okc_line_styles_tl_rec.id;
3425:
3426: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3427: EXCEPTION
3420: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3421: RAISE OKC_API.G_EXCEPTION_ERROR;
3422: END IF;
3423: DELETE FROM OKC_LINE_STYLES_TL
3424: WHERE ID = l_okc_line_styles_tl_rec.id;
3425:
3426: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3427: EXCEPTION
3428: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3470: l_api_version CONSTANT NUMBER := 1;
3471: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3472: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3473: l_lsev_rec lsev_rec_type := p_lsev_rec;
3474: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
3475: l_lse_rec lse_rec_type;
3476: cursor c1(p_id number) is select created_by from OKC_LINE_STYLES_B
3477: where ID=p_id;
3478: l_created_by number:=OKC_API.G_MISS_NUM;
3499: END IF;
3500: --------------------------------------
3501: -- Move VIEW record to "Child" records
3502: --------------------------------------
3503: migrate(l_lsev_rec, l_okc_line_styles_tl_rec);
3504: migrate(l_lsev_rec, l_lse_rec);
3505: --------------------------------------------
3506: -- Call the DELETE_ROW for each child record
3507: --------------------------------------------
3509: p_init_msg_list,
3510: x_return_status,
3511: x_msg_count,
3512: x_msg_data,
3513: l_okc_line_styles_tl_rec
3514: );
3515: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3516: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3517: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN