[Home] [Help]
44: /* as a quick workaround to fix the time-consuming table handler issue */
45: /* Eventually we'll need to turn them into a separate fix_language procedure */
46: /*
47:
48: DELETE FROM OKC_STD_ART_VERSIONS_TL T
49: WHERE NOT EXISTS (
50: SELECT NULL
51: FROM OKC_STD_ART_VERSIONS_B B
52: WHERE B.SAE_ID = T.SAE_ID
52: WHERE B.SAE_ID = T.SAE_ID
53: AND B.SAV_RELEASE = T.SAV_RELEASE
54: );
55:
56: UPDATE OKC_STD_ART_VERSIONS_TL T SET (
57: TEXT,
58: SHORT_DESCRIPTION) = (SELECT
59: B.TEXT,
60: B.SHORT_DESCRIPTION
57: TEXT,
58: SHORT_DESCRIPTION) = (SELECT
59: B.TEXT,
60: B.SHORT_DESCRIPTION
61: FROM OKC_STD_ART_VERSIONS_TL B
62: WHERE B.SAE_ID = T.SAE_ID
63: AND B.SAV_RELEASE = T.SAV_RELEASE
64: AND B.LANGUAGE = T.SOURCE_LANG)
65: WHERE (
69: IN (SELECT
70: SUBT.SAE_ID,
71: SUBT.SAV_RELEASE,
72: SUBT.LANGUAGE
73: FROM OKC_STD_ART_VERSIONS_TL SUBB, OKC_STD_ART_VERSIONS_TL SUBT
74: WHERE SUBB.SAE_ID = SUBT.SAE_ID
75: AND SUBB.SAV_RELEASE = SUBT.SAV_RELEASE
76: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
77: AND
90:
91: ));
92: */
93:
94: INSERT INTO OKC_STD_ART_VERSIONS_TL (
95: SAE_ID,
96: SAV_RELEASE,
97: LANGUAGE,
98: SOURCE_LANG,
118: B.LAST_UPDATE_DATE,
119: B.TEXT,
120: B.SHORT_DESCRIPTION,
121: B.LAST_UPDATE_LOGIN
122: FROM OKC_STD_ART_VERSIONS_TL B, FND_LANGUAGES L
123: WHERE L.INSTALLED_FLAG IN ('I', 'B')
124: AND B.LANGUAGE = USERENV('LANG')
125: AND NOT EXISTS(
126: SELECT NULL
123: WHERE L.INSTALLED_FLAG IN ('I', 'B')
124: AND B.LANGUAGE = USERENV('LANG')
125: AND NOT EXISTS(
126: SELECT NULL
127: FROM OKC_STD_ART_VERSIONS_TL T
128: WHERE T.SAE_ID = B.SAE_ID
129: AND T.SAV_RELEASE = B.SAV_RELEASE
130: AND T.LANGUAGE = L.LANGUAGE_CODE
131: );
215: BEGIN
216: RETURN(get_rec(p_sav_rec, l_row_notfound));
217: END get_rec;
218: ---------------------------------------------------------------------------
219: -- FUNCTION get_rec for: OKC_STD_ART_VERSIONS_TL
220: ---------------------------------------------------------------------------
221: FUNCTION get_rec (
222: p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType,
223: x_no_data_found OUT NOCOPY BOOLEAN
218: ---------------------------------------------------------------------------
219: -- FUNCTION get_rec for: OKC_STD_ART_VERSIONS_TL
220: ---------------------------------------------------------------------------
221: FUNCTION get_rec (
222: p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType,
223: x_no_data_found OUT NOCOPY BOOLEAN
224: ) RETURN OkcStdArtVersionsTlRecType IS
225: CURSOR sav_pktl_csr (p_sae_id IN NUMBER,
226: p_sav_release IN VARCHAR2,
238: LAST_UPDATE_DATE,
239: TEXT,
240: SHORT_DESCRIPTION,
241: LAST_UPDATE_LOGIN
242: FROM Okc_Std_Art_Versions_Tl
243: WHERE okc_std_art_versions_tl.sae_id = p_sae_id
244: AND okc_std_art_versions_tl.sav_release = p_sav_release
245: AND okc_std_art_versions_tl.language = p_language;
246: l_sav_pktl sav_pktl_csr%ROWTYPE;
239: TEXT,
240: SHORT_DESCRIPTION,
241: LAST_UPDATE_LOGIN
242: FROM Okc_Std_Art_Versions_Tl
243: WHERE okc_std_art_versions_tl.sae_id = p_sae_id
244: AND okc_std_art_versions_tl.sav_release = p_sav_release
245: AND okc_std_art_versions_tl.language = p_language;
246: l_sav_pktl sav_pktl_csr%ROWTYPE;
247: l_okc_std_art_versions_tl_rec OkcStdArtVersionsTlRecType;
240: SHORT_DESCRIPTION,
241: LAST_UPDATE_LOGIN
242: FROM Okc_Std_Art_Versions_Tl
243: WHERE okc_std_art_versions_tl.sae_id = p_sae_id
244: AND okc_std_art_versions_tl.sav_release = p_sav_release
245: AND okc_std_art_versions_tl.language = p_language;
246: l_sav_pktl sav_pktl_csr%ROWTYPE;
247: l_okc_std_art_versions_tl_rec OkcStdArtVersionsTlRecType;
248: BEGIN
241: LAST_UPDATE_LOGIN
242: FROM Okc_Std_Art_Versions_Tl
243: WHERE okc_std_art_versions_tl.sae_id = p_sae_id
244: AND okc_std_art_versions_tl.sav_release = p_sav_release
245: AND okc_std_art_versions_tl.language = p_language;
246: l_sav_pktl sav_pktl_csr%ROWTYPE;
247: l_okc_std_art_versions_tl_rec OkcStdArtVersionsTlRecType;
248: BEGIN
249: x_no_data_found := TRUE;
243: WHERE okc_std_art_versions_tl.sae_id = p_sae_id
244: AND okc_std_art_versions_tl.sav_release = p_sav_release
245: AND okc_std_art_versions_tl.language = p_language;
246: l_sav_pktl sav_pktl_csr%ROWTYPE;
247: l_okc_std_art_versions_tl_rec OkcStdArtVersionsTlRecType;
248: BEGIN
249: x_no_data_found := TRUE;
250: -- Get current database values
251: OPEN sav_pktl_csr (p_okc_std_art_versions_tl_rec.sae_id,
247: l_okc_std_art_versions_tl_rec OkcStdArtVersionsTlRecType;
248: BEGIN
249: x_no_data_found := TRUE;
250: -- Get current database values
251: OPEN sav_pktl_csr (p_okc_std_art_versions_tl_rec.sae_id,
252: p_okc_std_art_versions_tl_rec.sav_release,
253: p_okc_std_art_versions_tl_rec.language);
254: FETCH sav_pktl_csr INTO
255: l_okc_std_art_versions_tl_rec.SAE_ID,
248: BEGIN
249: x_no_data_found := TRUE;
250: -- Get current database values
251: OPEN sav_pktl_csr (p_okc_std_art_versions_tl_rec.sae_id,
252: p_okc_std_art_versions_tl_rec.sav_release,
253: p_okc_std_art_versions_tl_rec.language);
254: FETCH sav_pktl_csr INTO
255: l_okc_std_art_versions_tl_rec.SAE_ID,
256: l_okc_std_art_versions_tl_rec.SAV_RELEASE,
249: x_no_data_found := TRUE;
250: -- Get current database values
251: OPEN sav_pktl_csr (p_okc_std_art_versions_tl_rec.sae_id,
252: p_okc_std_art_versions_tl_rec.sav_release,
253: p_okc_std_art_versions_tl_rec.language);
254: FETCH sav_pktl_csr INTO
255: l_okc_std_art_versions_tl_rec.SAE_ID,
256: l_okc_std_art_versions_tl_rec.SAV_RELEASE,
257: l_okc_std_art_versions_tl_rec.LANGUAGE,
251: OPEN sav_pktl_csr (p_okc_std_art_versions_tl_rec.sae_id,
252: p_okc_std_art_versions_tl_rec.sav_release,
253: p_okc_std_art_versions_tl_rec.language);
254: FETCH sav_pktl_csr INTO
255: l_okc_std_art_versions_tl_rec.SAE_ID,
256: l_okc_std_art_versions_tl_rec.SAV_RELEASE,
257: l_okc_std_art_versions_tl_rec.LANGUAGE,
258: l_okc_std_art_versions_tl_rec.SOURCE_LANG,
259: l_okc_std_art_versions_tl_rec.SFWT_FLAG,
252: p_okc_std_art_versions_tl_rec.sav_release,
253: p_okc_std_art_versions_tl_rec.language);
254: FETCH sav_pktl_csr INTO
255: l_okc_std_art_versions_tl_rec.SAE_ID,
256: l_okc_std_art_versions_tl_rec.SAV_RELEASE,
257: l_okc_std_art_versions_tl_rec.LANGUAGE,
258: l_okc_std_art_versions_tl_rec.SOURCE_LANG,
259: l_okc_std_art_versions_tl_rec.SFWT_FLAG,
260: l_okc_std_art_versions_tl_rec.OBJECT_VERSION_NUMBER,
253: p_okc_std_art_versions_tl_rec.language);
254: FETCH sav_pktl_csr INTO
255: l_okc_std_art_versions_tl_rec.SAE_ID,
256: l_okc_std_art_versions_tl_rec.SAV_RELEASE,
257: l_okc_std_art_versions_tl_rec.LANGUAGE,
258: l_okc_std_art_versions_tl_rec.SOURCE_LANG,
259: l_okc_std_art_versions_tl_rec.SFWT_FLAG,
260: l_okc_std_art_versions_tl_rec.OBJECT_VERSION_NUMBER,
261: l_okc_std_art_versions_tl_rec.CREATED_BY,
254: FETCH sav_pktl_csr INTO
255: l_okc_std_art_versions_tl_rec.SAE_ID,
256: l_okc_std_art_versions_tl_rec.SAV_RELEASE,
257: l_okc_std_art_versions_tl_rec.LANGUAGE,
258: l_okc_std_art_versions_tl_rec.SOURCE_LANG,
259: l_okc_std_art_versions_tl_rec.SFWT_FLAG,
260: l_okc_std_art_versions_tl_rec.OBJECT_VERSION_NUMBER,
261: l_okc_std_art_versions_tl_rec.CREATED_BY,
262: l_okc_std_art_versions_tl_rec.CREATION_DATE,
255: l_okc_std_art_versions_tl_rec.SAE_ID,
256: l_okc_std_art_versions_tl_rec.SAV_RELEASE,
257: l_okc_std_art_versions_tl_rec.LANGUAGE,
258: l_okc_std_art_versions_tl_rec.SOURCE_LANG,
259: l_okc_std_art_versions_tl_rec.SFWT_FLAG,
260: l_okc_std_art_versions_tl_rec.OBJECT_VERSION_NUMBER,
261: l_okc_std_art_versions_tl_rec.CREATED_BY,
262: l_okc_std_art_versions_tl_rec.CREATION_DATE,
263: l_okc_std_art_versions_tl_rec.LAST_UPDATED_BY,
256: l_okc_std_art_versions_tl_rec.SAV_RELEASE,
257: l_okc_std_art_versions_tl_rec.LANGUAGE,
258: l_okc_std_art_versions_tl_rec.SOURCE_LANG,
259: l_okc_std_art_versions_tl_rec.SFWT_FLAG,
260: l_okc_std_art_versions_tl_rec.OBJECT_VERSION_NUMBER,
261: l_okc_std_art_versions_tl_rec.CREATED_BY,
262: l_okc_std_art_versions_tl_rec.CREATION_DATE,
263: l_okc_std_art_versions_tl_rec.LAST_UPDATED_BY,
264: l_okc_std_art_versions_tl_rec.LAST_UPDATE_DATE,
257: l_okc_std_art_versions_tl_rec.LANGUAGE,
258: l_okc_std_art_versions_tl_rec.SOURCE_LANG,
259: l_okc_std_art_versions_tl_rec.SFWT_FLAG,
260: l_okc_std_art_versions_tl_rec.OBJECT_VERSION_NUMBER,
261: l_okc_std_art_versions_tl_rec.CREATED_BY,
262: l_okc_std_art_versions_tl_rec.CREATION_DATE,
263: l_okc_std_art_versions_tl_rec.LAST_UPDATED_BY,
264: l_okc_std_art_versions_tl_rec.LAST_UPDATE_DATE,
265: l_okc_std_art_versions_tl_rec.TEXT,
258: l_okc_std_art_versions_tl_rec.SOURCE_LANG,
259: l_okc_std_art_versions_tl_rec.SFWT_FLAG,
260: l_okc_std_art_versions_tl_rec.OBJECT_VERSION_NUMBER,
261: l_okc_std_art_versions_tl_rec.CREATED_BY,
262: l_okc_std_art_versions_tl_rec.CREATION_DATE,
263: l_okc_std_art_versions_tl_rec.LAST_UPDATED_BY,
264: l_okc_std_art_versions_tl_rec.LAST_UPDATE_DATE,
265: l_okc_std_art_versions_tl_rec.TEXT,
266: l_okc_std_art_versions_tl_rec.SHORT_DESCRIPTION,
259: l_okc_std_art_versions_tl_rec.SFWT_FLAG,
260: l_okc_std_art_versions_tl_rec.OBJECT_VERSION_NUMBER,
261: l_okc_std_art_versions_tl_rec.CREATED_BY,
262: l_okc_std_art_versions_tl_rec.CREATION_DATE,
263: l_okc_std_art_versions_tl_rec.LAST_UPDATED_BY,
264: l_okc_std_art_versions_tl_rec.LAST_UPDATE_DATE,
265: l_okc_std_art_versions_tl_rec.TEXT,
266: l_okc_std_art_versions_tl_rec.SHORT_DESCRIPTION,
267: l_okc_std_art_versions_tl_rec.LAST_UPDATE_LOGIN;
260: l_okc_std_art_versions_tl_rec.OBJECT_VERSION_NUMBER,
261: l_okc_std_art_versions_tl_rec.CREATED_BY,
262: l_okc_std_art_versions_tl_rec.CREATION_DATE,
263: l_okc_std_art_versions_tl_rec.LAST_UPDATED_BY,
264: l_okc_std_art_versions_tl_rec.LAST_UPDATE_DATE,
265: l_okc_std_art_versions_tl_rec.TEXT,
266: l_okc_std_art_versions_tl_rec.SHORT_DESCRIPTION,
267: l_okc_std_art_versions_tl_rec.LAST_UPDATE_LOGIN;
268: x_no_data_found := sav_pktl_csr%NOTFOUND;
261: l_okc_std_art_versions_tl_rec.CREATED_BY,
262: l_okc_std_art_versions_tl_rec.CREATION_DATE,
263: l_okc_std_art_versions_tl_rec.LAST_UPDATED_BY,
264: l_okc_std_art_versions_tl_rec.LAST_UPDATE_DATE,
265: l_okc_std_art_versions_tl_rec.TEXT,
266: l_okc_std_art_versions_tl_rec.SHORT_DESCRIPTION,
267: l_okc_std_art_versions_tl_rec.LAST_UPDATE_LOGIN;
268: x_no_data_found := sav_pktl_csr%NOTFOUND;
269: CLOSE sav_pktl_csr;
262: l_okc_std_art_versions_tl_rec.CREATION_DATE,
263: l_okc_std_art_versions_tl_rec.LAST_UPDATED_BY,
264: l_okc_std_art_versions_tl_rec.LAST_UPDATE_DATE,
265: l_okc_std_art_versions_tl_rec.TEXT,
266: l_okc_std_art_versions_tl_rec.SHORT_DESCRIPTION,
267: l_okc_std_art_versions_tl_rec.LAST_UPDATE_LOGIN;
268: x_no_data_found := sav_pktl_csr%NOTFOUND;
269: CLOSE sav_pktl_csr;
270: RETURN(l_okc_std_art_versions_tl_rec);
263: l_okc_std_art_versions_tl_rec.LAST_UPDATED_BY,
264: l_okc_std_art_versions_tl_rec.LAST_UPDATE_DATE,
265: l_okc_std_art_versions_tl_rec.TEXT,
266: l_okc_std_art_versions_tl_rec.SHORT_DESCRIPTION,
267: l_okc_std_art_versions_tl_rec.LAST_UPDATE_LOGIN;
268: x_no_data_found := sav_pktl_csr%NOTFOUND;
269: CLOSE sav_pktl_csr;
270: RETURN(l_okc_std_art_versions_tl_rec);
271: END get_rec;
266: l_okc_std_art_versions_tl_rec.SHORT_DESCRIPTION,
267: l_okc_std_art_versions_tl_rec.LAST_UPDATE_LOGIN;
268: x_no_data_found := sav_pktl_csr%NOTFOUND;
269: CLOSE sav_pktl_csr;
270: RETURN(l_okc_std_art_versions_tl_rec);
271: END get_rec;
272:
273: FUNCTION get_rec (
274: p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType
270: RETURN(l_okc_std_art_versions_tl_rec);
271: END get_rec;
272:
273: FUNCTION get_rec (
274: p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType
275: ) RETURN OkcStdArtVersionsTlRecType IS
276: l_row_notfound BOOLEAN := TRUE;
277: BEGIN
278: RETURN(get_rec(p_okc_std_art_versions_tl_rec, l_row_notfound));
274: p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType
275: ) RETURN OkcStdArtVersionsTlRecType IS
276: l_row_notfound BOOLEAN := TRUE;
277: BEGIN
278: RETURN(get_rec(p_okc_std_art_versions_tl_rec, l_row_notfound));
279: END get_rec;
280: ---------------------------------------------------------------------------
281: -- FUNCTION get_rec for: OKC_STD_ART_VERSIONS_V
282: ---------------------------------------------------------------------------
1184: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1185: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1186: l_savv_rec savv_rec_type := p_savv_rec;
1187: l_sav_rec sav_rec_type;
1188: l_okc_std_art_versions_tl_rec OkcStdArtVersionsTlRecType;
1189: BEGIN
1190: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1191: G_PKG_NAME,
1192: p_init_msg_list,
1448: '_PVT'
1449: );
1450: END insert_row;
1451: --------------------------------------------
1452: -- insert_row for:OKC_STD_ART_VERSIONS_TL --
1453: --------------------------------------------
1454: PROCEDURE insert_row(
1455: p_init_msg_list IN VARCHAR2 ,
1456: x_return_status OUT NOCOPY VARCHAR2,
1455: p_init_msg_list IN VARCHAR2 ,
1456: x_return_status OUT NOCOPY VARCHAR2,
1457: x_msg_count OUT NOCOPY NUMBER,
1458: x_msg_data OUT NOCOPY VARCHAR2,
1459: p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType,
1460: x_okc_std_art_versions_tl_rec OUT NOCOPY OkcStdArtVersionsTlRecType) IS
1461:
1462: l_api_version CONSTANT NUMBER := 1;
1463: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1456: x_return_status OUT NOCOPY VARCHAR2,
1457: x_msg_count OUT NOCOPY NUMBER,
1458: x_msg_data OUT NOCOPY VARCHAR2,
1459: p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType,
1460: x_okc_std_art_versions_tl_rec OUT NOCOPY OkcStdArtVersionsTlRecType) IS
1461:
1462: l_api_version CONSTANT NUMBER := 1;
1463: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1464: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1461:
1462: l_api_version CONSTANT NUMBER := 1;
1463: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1464: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1465: l_okc_std_art_versions_tl_rec OkcStdArtVersionsTlRecType := p_okc_std_art_versions_tl_rec;
1466: ldefokcstdartversionstlrec OkcStdArtVersionsTlRecType;
1467: CURSOR get_languages IS
1468: SELECT *
1469: FROM FND_LANGUAGES
1468: SELECT *
1469: FROM FND_LANGUAGES
1470: WHERE INSTALLED_FLAG IN ('I', 'B');
1471: ------------------------------------------------
1472: -- Set_Attributes for:OKC_STD_ART_VERSIONS_TL --
1473: ------------------------------------------------
1474: FUNCTION Set_Attributes (
1475: p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType,
1476: x_okc_std_art_versions_tl_rec OUT NOCOPY OkcStdArtVersionsTlRecType
1471: ------------------------------------------------
1472: -- Set_Attributes for:OKC_STD_ART_VERSIONS_TL --
1473: ------------------------------------------------
1474: FUNCTION Set_Attributes (
1475: p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType,
1476: x_okc_std_art_versions_tl_rec OUT NOCOPY OkcStdArtVersionsTlRecType
1477: ) RETURN VARCHAR2 IS
1478: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1479: BEGIN
1472: -- Set_Attributes for:OKC_STD_ART_VERSIONS_TL --
1473: ------------------------------------------------
1474: FUNCTION Set_Attributes (
1475: p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType,
1476: x_okc_std_art_versions_tl_rec OUT NOCOPY OkcStdArtVersionsTlRecType
1477: ) RETURN VARCHAR2 IS
1478: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1479: BEGIN
1480: x_okc_std_art_versions_tl_rec := p_okc_std_art_versions_tl_rec;
1476: x_okc_std_art_versions_tl_rec OUT NOCOPY OkcStdArtVersionsTlRecType
1477: ) RETURN VARCHAR2 IS
1478: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1479: BEGIN
1480: x_okc_std_art_versions_tl_rec := p_okc_std_art_versions_tl_rec;
1481: --x_okc_std_art_versions_tl_rec.LANGUAGE := USERENV('LANG');
1482: x_okc_std_art_versions_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
1483: --x_okc_std_art_versions_tl_rec.SOURCE_LANG := USERENV('LANG');
1484: x_okc_std_art_versions_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
1477: ) RETURN VARCHAR2 IS
1478: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1479: BEGIN
1480: x_okc_std_art_versions_tl_rec := p_okc_std_art_versions_tl_rec;
1481: --x_okc_std_art_versions_tl_rec.LANGUAGE := USERENV('LANG');
1482: x_okc_std_art_versions_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
1483: --x_okc_std_art_versions_tl_rec.SOURCE_LANG := USERENV('LANG');
1484: x_okc_std_art_versions_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
1485: RETURN(l_return_status);
1478: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1479: BEGIN
1480: x_okc_std_art_versions_tl_rec := p_okc_std_art_versions_tl_rec;
1481: --x_okc_std_art_versions_tl_rec.LANGUAGE := USERENV('LANG');
1482: x_okc_std_art_versions_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
1483: --x_okc_std_art_versions_tl_rec.SOURCE_LANG := USERENV('LANG');
1484: x_okc_std_art_versions_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
1485: RETURN(l_return_status);
1486: END Set_Attributes;
1479: BEGIN
1480: x_okc_std_art_versions_tl_rec := p_okc_std_art_versions_tl_rec;
1481: --x_okc_std_art_versions_tl_rec.LANGUAGE := USERENV('LANG');
1482: x_okc_std_art_versions_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
1483: --x_okc_std_art_versions_tl_rec.SOURCE_LANG := USERENV('LANG');
1484: x_okc_std_art_versions_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
1485: RETURN(l_return_status);
1486: END Set_Attributes;
1487: BEGIN
1480: x_okc_std_art_versions_tl_rec := p_okc_std_art_versions_tl_rec;
1481: --x_okc_std_art_versions_tl_rec.LANGUAGE := USERENV('LANG');
1482: x_okc_std_art_versions_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
1483: --x_okc_std_art_versions_tl_rec.SOURCE_LANG := USERENV('LANG');
1484: x_okc_std_art_versions_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
1485: RETURN(l_return_status);
1486: END Set_Attributes;
1487: BEGIN
1488: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1495: RAISE OKC_API.G_EXCEPTION_ERROR;
1496: END IF;
1497: --- Setting item attributes
1498: l_return_status := Set_Attributes(
1499: p_okc_std_art_versions_tl_rec, -- IN
1500: l_okc_std_art_versions_tl_rec); -- OUT
1501: --- If any errors happen abort API
1502: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1503: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1496: END IF;
1497: --- Setting item attributes
1498: l_return_status := Set_Attributes(
1499: p_okc_std_art_versions_tl_rec, -- IN
1500: l_okc_std_art_versions_tl_rec); -- OUT
1501: --- If any errors happen abort API
1502: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1503: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1504: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1504: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1505: RAISE OKC_API.G_EXCEPTION_ERROR;
1506: END IF;
1507: FOR l_lang_rec IN get_languages LOOP
1508: l_okc_std_art_versions_tl_rec.language := l_lang_rec.language_code;
1509: INSERT INTO OKC_STD_ART_VERSIONS_TL(
1510: sae_id,
1511: sav_release,
1512: language,
1505: RAISE OKC_API.G_EXCEPTION_ERROR;
1506: END IF;
1507: FOR l_lang_rec IN get_languages LOOP
1508: l_okc_std_art_versions_tl_rec.language := l_lang_rec.language_code;
1509: INSERT INTO OKC_STD_ART_VERSIONS_TL(
1510: sae_id,
1511: sav_release,
1512: language,
1513: source_lang,
1520: text,
1521: short_description,
1522: last_update_login)
1523: VALUES (
1524: l_okc_std_art_versions_tl_rec.sae_id,
1525: l_okc_std_art_versions_tl_rec.sav_release,
1526: l_okc_std_art_versions_tl_rec.language,
1527: l_okc_std_art_versions_tl_rec.source_lang,
1528: l_okc_std_art_versions_tl_rec.sfwt_flag,
1521: short_description,
1522: last_update_login)
1523: VALUES (
1524: l_okc_std_art_versions_tl_rec.sae_id,
1525: l_okc_std_art_versions_tl_rec.sav_release,
1526: l_okc_std_art_versions_tl_rec.language,
1527: l_okc_std_art_versions_tl_rec.source_lang,
1528: l_okc_std_art_versions_tl_rec.sfwt_flag,
1529: l_okc_std_art_versions_tl_rec.object_version_number,
1522: last_update_login)
1523: VALUES (
1524: l_okc_std_art_versions_tl_rec.sae_id,
1525: l_okc_std_art_versions_tl_rec.sav_release,
1526: l_okc_std_art_versions_tl_rec.language,
1527: l_okc_std_art_versions_tl_rec.source_lang,
1528: l_okc_std_art_versions_tl_rec.sfwt_flag,
1529: l_okc_std_art_versions_tl_rec.object_version_number,
1530: l_okc_std_art_versions_tl_rec.created_by,
1523: VALUES (
1524: l_okc_std_art_versions_tl_rec.sae_id,
1525: l_okc_std_art_versions_tl_rec.sav_release,
1526: l_okc_std_art_versions_tl_rec.language,
1527: l_okc_std_art_versions_tl_rec.source_lang,
1528: l_okc_std_art_versions_tl_rec.sfwt_flag,
1529: l_okc_std_art_versions_tl_rec.object_version_number,
1530: l_okc_std_art_versions_tl_rec.created_by,
1531: l_okc_std_art_versions_tl_rec.creation_date,
1524: l_okc_std_art_versions_tl_rec.sae_id,
1525: l_okc_std_art_versions_tl_rec.sav_release,
1526: l_okc_std_art_versions_tl_rec.language,
1527: l_okc_std_art_versions_tl_rec.source_lang,
1528: l_okc_std_art_versions_tl_rec.sfwt_flag,
1529: l_okc_std_art_versions_tl_rec.object_version_number,
1530: l_okc_std_art_versions_tl_rec.created_by,
1531: l_okc_std_art_versions_tl_rec.creation_date,
1532: l_okc_std_art_versions_tl_rec.last_updated_by,
1525: l_okc_std_art_versions_tl_rec.sav_release,
1526: l_okc_std_art_versions_tl_rec.language,
1527: l_okc_std_art_versions_tl_rec.source_lang,
1528: l_okc_std_art_versions_tl_rec.sfwt_flag,
1529: l_okc_std_art_versions_tl_rec.object_version_number,
1530: l_okc_std_art_versions_tl_rec.created_by,
1531: l_okc_std_art_versions_tl_rec.creation_date,
1532: l_okc_std_art_versions_tl_rec.last_updated_by,
1533: l_okc_std_art_versions_tl_rec.last_update_date,
1526: l_okc_std_art_versions_tl_rec.language,
1527: l_okc_std_art_versions_tl_rec.source_lang,
1528: l_okc_std_art_versions_tl_rec.sfwt_flag,
1529: l_okc_std_art_versions_tl_rec.object_version_number,
1530: l_okc_std_art_versions_tl_rec.created_by,
1531: l_okc_std_art_versions_tl_rec.creation_date,
1532: l_okc_std_art_versions_tl_rec.last_updated_by,
1533: l_okc_std_art_versions_tl_rec.last_update_date,
1534: l_okc_std_art_versions_tl_rec.text,
1527: l_okc_std_art_versions_tl_rec.source_lang,
1528: l_okc_std_art_versions_tl_rec.sfwt_flag,
1529: l_okc_std_art_versions_tl_rec.object_version_number,
1530: l_okc_std_art_versions_tl_rec.created_by,
1531: l_okc_std_art_versions_tl_rec.creation_date,
1532: l_okc_std_art_versions_tl_rec.last_updated_by,
1533: l_okc_std_art_versions_tl_rec.last_update_date,
1534: l_okc_std_art_versions_tl_rec.text,
1535: l_okc_std_art_versions_tl_rec.short_description,
1528: l_okc_std_art_versions_tl_rec.sfwt_flag,
1529: l_okc_std_art_versions_tl_rec.object_version_number,
1530: l_okc_std_art_versions_tl_rec.created_by,
1531: l_okc_std_art_versions_tl_rec.creation_date,
1532: l_okc_std_art_versions_tl_rec.last_updated_by,
1533: l_okc_std_art_versions_tl_rec.last_update_date,
1534: l_okc_std_art_versions_tl_rec.text,
1535: l_okc_std_art_versions_tl_rec.short_description,
1536: l_okc_std_art_versions_tl_rec.last_update_login);
1529: l_okc_std_art_versions_tl_rec.object_version_number,
1530: l_okc_std_art_versions_tl_rec.created_by,
1531: l_okc_std_art_versions_tl_rec.creation_date,
1532: l_okc_std_art_versions_tl_rec.last_updated_by,
1533: l_okc_std_art_versions_tl_rec.last_update_date,
1534: l_okc_std_art_versions_tl_rec.text,
1535: l_okc_std_art_versions_tl_rec.short_description,
1536: l_okc_std_art_versions_tl_rec.last_update_login);
1537: END LOOP;
1530: l_okc_std_art_versions_tl_rec.created_by,
1531: l_okc_std_art_versions_tl_rec.creation_date,
1532: l_okc_std_art_versions_tl_rec.last_updated_by,
1533: l_okc_std_art_versions_tl_rec.last_update_date,
1534: l_okc_std_art_versions_tl_rec.text,
1535: l_okc_std_art_versions_tl_rec.short_description,
1536: l_okc_std_art_versions_tl_rec.last_update_login);
1537: END LOOP;
1538: -- Set OUT values
1531: l_okc_std_art_versions_tl_rec.creation_date,
1532: l_okc_std_art_versions_tl_rec.last_updated_by,
1533: l_okc_std_art_versions_tl_rec.last_update_date,
1534: l_okc_std_art_versions_tl_rec.text,
1535: l_okc_std_art_versions_tl_rec.short_description,
1536: l_okc_std_art_versions_tl_rec.last_update_login);
1537: END LOOP;
1538: -- Set OUT values
1539: x_okc_std_art_versions_tl_rec := l_okc_std_art_versions_tl_rec;
1532: l_okc_std_art_versions_tl_rec.last_updated_by,
1533: l_okc_std_art_versions_tl_rec.last_update_date,
1534: l_okc_std_art_versions_tl_rec.text,
1535: l_okc_std_art_versions_tl_rec.short_description,
1536: l_okc_std_art_versions_tl_rec.last_update_login);
1537: END LOOP;
1538: -- Set OUT values
1539: x_okc_std_art_versions_tl_rec := l_okc_std_art_versions_tl_rec;
1540: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1535: l_okc_std_art_versions_tl_rec.short_description,
1536: l_okc_std_art_versions_tl_rec.last_update_login);
1537: END LOOP;
1538: -- Set OUT values
1539: x_okc_std_art_versions_tl_rec := l_okc_std_art_versions_tl_rec;
1540: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1541: EXCEPTION
1542: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1543: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1588: l_savv_rec savv_rec_type;
1589: l_def_savv_rec savv_rec_type;
1590: l_sav_rec sav_rec_type;
1591: lx_sav_rec sav_rec_type;
1592: l_okc_std_art_versions_tl_rec OkcStdArtVersionsTlRecType;
1593: lx_okc_std_art_versions_tl_rec OkcStdArtVersionsTlRecType;
1594:
1595: /****************ADDED AFTER TAPI**************/
1596: -- ------------------------------------------------------
1589: l_def_savv_rec savv_rec_type;
1590: l_sav_rec sav_rec_type;
1591: lx_sav_rec sav_rec_type;
1592: l_okc_std_art_versions_tl_rec OkcStdArtVersionsTlRecType;
1593: lx_okc_std_art_versions_tl_rec OkcStdArtVersionsTlRecType;
1594:
1595: /****************ADDED AFTER TAPI**************/
1596: -- ------------------------------------------------------
1597: -- To check for any matching row, for unique combination.
1720: --------------------------------------
1721: -- Move VIEW record to "Child" records
1722: --------------------------------------
1723: migrate(l_def_savv_rec, l_sav_rec);
1724: migrate(l_def_savv_rec, l_okc_std_art_versions_tl_rec);
1725: --------------------------------------------
1726: -- Call the INSERT_ROW for each child record
1727: --------------------------------------------
1728: insert_row(
1743: p_init_msg_list,
1744: x_return_status,
1745: x_msg_count,
1746: x_msg_data,
1747: l_okc_std_art_versions_tl_rec,
1748: lx_okc_std_art_versions_tl_rec
1749: );
1750: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1751: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1744: x_return_status,
1745: x_msg_count,
1746: x_msg_data,
1747: l_okc_std_art_versions_tl_rec,
1748: lx_okc_std_art_versions_tl_rec
1749: );
1750: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1751: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1752: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1751: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1752: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1753: RAISE OKC_API.G_EXCEPTION_ERROR;
1754: END IF;
1755: migrate(lx_okc_std_art_versions_tl_rec, l_def_savv_rec);
1756: -- Set OUT values
1757: x_savv_rec := l_def_savv_rec;
1758: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1759: EXCEPTION
1965: '_PVT'
1966: );
1967: END lock_row;
1968: ------------------------------------------
1969: -- lock_row for:OKC_STD_ART_VERSIONS_TL --
1970: ------------------------------------------
1971: PROCEDURE lock_row(
1972: p_init_msg_list IN VARCHAR2 ,
1973: x_return_status OUT NOCOPY VARCHAR2,
1972: p_init_msg_list IN VARCHAR2 ,
1973: x_return_status OUT NOCOPY VARCHAR2,
1974: x_msg_count OUT NOCOPY NUMBER,
1975: x_msg_data OUT NOCOPY VARCHAR2,
1976: p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType) IS
1977:
1978: E_Resource_Busy EXCEPTION;
1979: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1980: CURSOR lock_csr (p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType) IS
1976: p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType) IS
1977:
1978: E_Resource_Busy EXCEPTION;
1979: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1980: CURSOR lock_csr (p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType) IS
1981: SELECT *
1982: FROM OKC_STD_ART_VERSIONS_TL
1983: WHERE SAE_ID = p_okc_std_art_versions_tl_rec.sae_id
1984: AND SAV_RELEASE = p_okc_std_art_versions_tl_rec.sav_release
1978: E_Resource_Busy EXCEPTION;
1979: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1980: CURSOR lock_csr (p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType) IS
1981: SELECT *
1982: FROM OKC_STD_ART_VERSIONS_TL
1983: WHERE SAE_ID = p_okc_std_art_versions_tl_rec.sae_id
1984: AND SAV_RELEASE = p_okc_std_art_versions_tl_rec.sav_release
1985: FOR UPDATE NOWAIT;
1986:
1979: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1980: CURSOR lock_csr (p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType) IS
1981: SELECT *
1982: FROM OKC_STD_ART_VERSIONS_TL
1983: WHERE SAE_ID = p_okc_std_art_versions_tl_rec.sae_id
1984: AND SAV_RELEASE = p_okc_std_art_versions_tl_rec.sav_release
1985: FOR UPDATE NOWAIT;
1986:
1987: l_api_version CONSTANT NUMBER := 1;
1980: CURSOR lock_csr (p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType) IS
1981: SELECT *
1982: FROM OKC_STD_ART_VERSIONS_TL
1983: WHERE SAE_ID = p_okc_std_art_versions_tl_rec.sae_id
1984: AND SAV_RELEASE = p_okc_std_art_versions_tl_rec.sav_release
1985: FOR UPDATE NOWAIT;
1986:
1987: l_api_version CONSTANT NUMBER := 1;
1988: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
2000: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2001: RAISE OKC_API.G_EXCEPTION_ERROR;
2002: END IF;
2003: BEGIN
2004: OPEN lock_csr(p_okc_std_art_versions_tl_rec);
2005: FETCH lock_csr INTO l_lock_var;
2006: l_row_notfound := lock_csr%NOTFOUND;
2007: CLOSE lock_csr;
2008: EXCEPTION
2065: l_api_version CONSTANT NUMBER := 1;
2066: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2067: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2068: l_sav_rec sav_rec_type;
2069: l_okc_std_art_versions_tl_rec OkcStdArtVersionsTlRecType;
2070: BEGIN
2071: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2072: G_PKG_NAME,
2073: p_init_msg_list,
2083: --------------------------------------
2084: -- Move VIEW record to "Child" records
2085: --------------------------------------
2086: migrate(p_savv_rec, l_sav_rec);
2087: migrate(p_savv_rec, l_okc_std_art_versions_tl_rec);
2088: --------------------------------------------
2089: -- Call the LOCK_ROW for each child record
2090: --------------------------------------------
2091: lock_row(
2104: p_init_msg_list,
2105: x_return_status,
2106: x_msg_count,
2107: x_msg_data,
2108: l_okc_std_art_versions_tl_rec
2109: );
2110: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2111: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2112: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2447: '_PVT'
2448: );
2449: END update_row;
2450: --------------------------------------------
2451: -- update_row for:OKC_STD_ART_VERSIONS_TL --
2452: --------------------------------------------
2453: PROCEDURE update_row(
2454: p_init_msg_list IN VARCHAR2 ,
2455: x_return_status OUT NOCOPY VARCHAR2,
2454: p_init_msg_list IN VARCHAR2 ,
2455: x_return_status OUT NOCOPY VARCHAR2,
2456: x_msg_count OUT NOCOPY NUMBER,
2457: x_msg_data OUT NOCOPY VARCHAR2,
2458: p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType,
2459: x_okc_std_art_versions_tl_rec OUT NOCOPY OkcStdArtVersionsTlRecType) IS
2460:
2461: l_api_version CONSTANT NUMBER := 1;
2462: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2455: x_return_status OUT NOCOPY VARCHAR2,
2456: x_msg_count OUT NOCOPY NUMBER,
2457: x_msg_data OUT NOCOPY VARCHAR2,
2458: p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType,
2459: x_okc_std_art_versions_tl_rec OUT NOCOPY OkcStdArtVersionsTlRecType) IS
2460:
2461: l_api_version CONSTANT NUMBER := 1;
2462: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2463: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2460:
2461: l_api_version CONSTANT NUMBER := 1;
2462: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2463: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2464: l_okc_std_art_versions_tl_rec OkcStdArtVersionsTlRecType := p_okc_std_art_versions_tl_rec;
2465: ldefokcstdartversionstlrec OkcStdArtVersionsTlRecType;
2466: l_row_notfound BOOLEAN := TRUE;
2467: ----------------------------------
2468: -- FUNCTION populate_new_record --
2467: ----------------------------------
2468: -- FUNCTION populate_new_record --
2469: ----------------------------------
2470: FUNCTION populate_new_record (
2471: p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType,
2472: x_okc_std_art_versions_tl_rec OUT NOCOPY OkcStdArtVersionsTlRecType
2473: ) RETURN VARCHAR2 IS
2474: l_okc_std_art_versions_tl_rec OkcStdArtVersionsTlRecType;
2475: l_row_notfound BOOLEAN := TRUE;
2468: -- FUNCTION populate_new_record --
2469: ----------------------------------
2470: FUNCTION populate_new_record (
2471: p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType,
2472: x_okc_std_art_versions_tl_rec OUT NOCOPY OkcStdArtVersionsTlRecType
2473: ) RETURN VARCHAR2 IS
2474: l_okc_std_art_versions_tl_rec OkcStdArtVersionsTlRecType;
2475: l_row_notfound BOOLEAN := TRUE;
2476: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2470: FUNCTION populate_new_record (
2471: p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType,
2472: x_okc_std_art_versions_tl_rec OUT NOCOPY OkcStdArtVersionsTlRecType
2473: ) RETURN VARCHAR2 IS
2474: l_okc_std_art_versions_tl_rec OkcStdArtVersionsTlRecType;
2475: l_row_notfound BOOLEAN := TRUE;
2476: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2477: BEGIN
2478: x_okc_std_art_versions_tl_rec := p_okc_std_art_versions_tl_rec;
2474: l_okc_std_art_versions_tl_rec OkcStdArtVersionsTlRecType;
2475: l_row_notfound BOOLEAN := TRUE;
2476: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2477: BEGIN
2478: x_okc_std_art_versions_tl_rec := p_okc_std_art_versions_tl_rec;
2479: -- Get current database values
2480: l_okc_std_art_versions_tl_rec := get_rec(p_okc_std_art_versions_tl_rec, l_row_notfound);
2481: IF (l_row_notfound) THEN
2482: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2476: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2477: BEGIN
2478: x_okc_std_art_versions_tl_rec := p_okc_std_art_versions_tl_rec;
2479: -- Get current database values
2480: l_okc_std_art_versions_tl_rec := get_rec(p_okc_std_art_versions_tl_rec, l_row_notfound);
2481: IF (l_row_notfound) THEN
2482: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2483: END IF;
2484: IF (x_okc_std_art_versions_tl_rec.sae_id = OKC_API.G_MISS_NUM)
2480: l_okc_std_art_versions_tl_rec := get_rec(p_okc_std_art_versions_tl_rec, l_row_notfound);
2481: IF (l_row_notfound) THEN
2482: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2483: END IF;
2484: IF (x_okc_std_art_versions_tl_rec.sae_id = OKC_API.G_MISS_NUM)
2485: THEN
2486: x_okc_std_art_versions_tl_rec.sae_id := l_okc_std_art_versions_tl_rec.sae_id;
2487: END IF;
2488: IF (x_okc_std_art_versions_tl_rec.sav_release = OKC_API.G_MISS_CHAR)
2482: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2483: END IF;
2484: IF (x_okc_std_art_versions_tl_rec.sae_id = OKC_API.G_MISS_NUM)
2485: THEN
2486: x_okc_std_art_versions_tl_rec.sae_id := l_okc_std_art_versions_tl_rec.sae_id;
2487: END IF;
2488: IF (x_okc_std_art_versions_tl_rec.sav_release = OKC_API.G_MISS_CHAR)
2489: THEN
2490: x_okc_std_art_versions_tl_rec.sav_release := l_okc_std_art_versions_tl_rec.sav_release;
2484: IF (x_okc_std_art_versions_tl_rec.sae_id = OKC_API.G_MISS_NUM)
2485: THEN
2486: x_okc_std_art_versions_tl_rec.sae_id := l_okc_std_art_versions_tl_rec.sae_id;
2487: END IF;
2488: IF (x_okc_std_art_versions_tl_rec.sav_release = OKC_API.G_MISS_CHAR)
2489: THEN
2490: x_okc_std_art_versions_tl_rec.sav_release := l_okc_std_art_versions_tl_rec.sav_release;
2491: END IF;
2492: IF (x_okc_std_art_versions_tl_rec.language = OKC_API.G_MISS_CHAR)
2486: x_okc_std_art_versions_tl_rec.sae_id := l_okc_std_art_versions_tl_rec.sae_id;
2487: END IF;
2488: IF (x_okc_std_art_versions_tl_rec.sav_release = OKC_API.G_MISS_CHAR)
2489: THEN
2490: x_okc_std_art_versions_tl_rec.sav_release := l_okc_std_art_versions_tl_rec.sav_release;
2491: END IF;
2492: IF (x_okc_std_art_versions_tl_rec.language = OKC_API.G_MISS_CHAR)
2493: THEN
2494: x_okc_std_art_versions_tl_rec.language := l_okc_std_art_versions_tl_rec.language;
2488: IF (x_okc_std_art_versions_tl_rec.sav_release = OKC_API.G_MISS_CHAR)
2489: THEN
2490: x_okc_std_art_versions_tl_rec.sav_release := l_okc_std_art_versions_tl_rec.sav_release;
2491: END IF;
2492: IF (x_okc_std_art_versions_tl_rec.language = OKC_API.G_MISS_CHAR)
2493: THEN
2494: x_okc_std_art_versions_tl_rec.language := l_okc_std_art_versions_tl_rec.language;
2495: END IF;
2496: IF (x_okc_std_art_versions_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2490: x_okc_std_art_versions_tl_rec.sav_release := l_okc_std_art_versions_tl_rec.sav_release;
2491: END IF;
2492: IF (x_okc_std_art_versions_tl_rec.language = OKC_API.G_MISS_CHAR)
2493: THEN
2494: x_okc_std_art_versions_tl_rec.language := l_okc_std_art_versions_tl_rec.language;
2495: END IF;
2496: IF (x_okc_std_art_versions_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2497: THEN
2498: x_okc_std_art_versions_tl_rec.source_lang := l_okc_std_art_versions_tl_rec.source_lang;
2492: IF (x_okc_std_art_versions_tl_rec.language = OKC_API.G_MISS_CHAR)
2493: THEN
2494: x_okc_std_art_versions_tl_rec.language := l_okc_std_art_versions_tl_rec.language;
2495: END IF;
2496: IF (x_okc_std_art_versions_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2497: THEN
2498: x_okc_std_art_versions_tl_rec.source_lang := l_okc_std_art_versions_tl_rec.source_lang;
2499: END IF;
2500: IF (x_okc_std_art_versions_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2494: x_okc_std_art_versions_tl_rec.language := l_okc_std_art_versions_tl_rec.language;
2495: END IF;
2496: IF (x_okc_std_art_versions_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2497: THEN
2498: x_okc_std_art_versions_tl_rec.source_lang := l_okc_std_art_versions_tl_rec.source_lang;
2499: END IF;
2500: IF (x_okc_std_art_versions_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2501: THEN
2502: x_okc_std_art_versions_tl_rec.sfwt_flag := l_okc_std_art_versions_tl_rec.sfwt_flag;
2496: IF (x_okc_std_art_versions_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2497: THEN
2498: x_okc_std_art_versions_tl_rec.source_lang := l_okc_std_art_versions_tl_rec.source_lang;
2499: END IF;
2500: IF (x_okc_std_art_versions_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2501: THEN
2502: x_okc_std_art_versions_tl_rec.sfwt_flag := l_okc_std_art_versions_tl_rec.sfwt_flag;
2503: END IF;
2504: IF (x_okc_std_art_versions_tl_rec.object_version_number = OKC_API.G_MISS_NUM)
2498: x_okc_std_art_versions_tl_rec.source_lang := l_okc_std_art_versions_tl_rec.source_lang;
2499: END IF;
2500: IF (x_okc_std_art_versions_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2501: THEN
2502: x_okc_std_art_versions_tl_rec.sfwt_flag := l_okc_std_art_versions_tl_rec.sfwt_flag;
2503: END IF;
2504: IF (x_okc_std_art_versions_tl_rec.object_version_number = OKC_API.G_MISS_NUM)
2505: THEN
2506: x_okc_std_art_versions_tl_rec.object_version_number := l_okc_std_art_versions_tl_rec.object_version_number;
2500: IF (x_okc_std_art_versions_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2501: THEN
2502: x_okc_std_art_versions_tl_rec.sfwt_flag := l_okc_std_art_versions_tl_rec.sfwt_flag;
2503: END IF;
2504: IF (x_okc_std_art_versions_tl_rec.object_version_number = OKC_API.G_MISS_NUM)
2505: THEN
2506: x_okc_std_art_versions_tl_rec.object_version_number := l_okc_std_art_versions_tl_rec.object_version_number;
2507: END IF;
2508: IF (x_okc_std_art_versions_tl_rec.created_by = OKC_API.G_MISS_NUM)
2502: x_okc_std_art_versions_tl_rec.sfwt_flag := l_okc_std_art_versions_tl_rec.sfwt_flag;
2503: END IF;
2504: IF (x_okc_std_art_versions_tl_rec.object_version_number = OKC_API.G_MISS_NUM)
2505: THEN
2506: x_okc_std_art_versions_tl_rec.object_version_number := l_okc_std_art_versions_tl_rec.object_version_number;
2507: END IF;
2508: IF (x_okc_std_art_versions_tl_rec.created_by = OKC_API.G_MISS_NUM)
2509: THEN
2510: x_okc_std_art_versions_tl_rec.created_by := l_okc_std_art_versions_tl_rec.created_by;
2504: IF (x_okc_std_art_versions_tl_rec.object_version_number = OKC_API.G_MISS_NUM)
2505: THEN
2506: x_okc_std_art_versions_tl_rec.object_version_number := l_okc_std_art_versions_tl_rec.object_version_number;
2507: END IF;
2508: IF (x_okc_std_art_versions_tl_rec.created_by = OKC_API.G_MISS_NUM)
2509: THEN
2510: x_okc_std_art_versions_tl_rec.created_by := l_okc_std_art_versions_tl_rec.created_by;
2511: END IF;
2512: IF (x_okc_std_art_versions_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2506: x_okc_std_art_versions_tl_rec.object_version_number := l_okc_std_art_versions_tl_rec.object_version_number;
2507: END IF;
2508: IF (x_okc_std_art_versions_tl_rec.created_by = OKC_API.G_MISS_NUM)
2509: THEN
2510: x_okc_std_art_versions_tl_rec.created_by := l_okc_std_art_versions_tl_rec.created_by;
2511: END IF;
2512: IF (x_okc_std_art_versions_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2513: THEN
2514: x_okc_std_art_versions_tl_rec.creation_date := l_okc_std_art_versions_tl_rec.creation_date;
2508: IF (x_okc_std_art_versions_tl_rec.created_by = OKC_API.G_MISS_NUM)
2509: THEN
2510: x_okc_std_art_versions_tl_rec.created_by := l_okc_std_art_versions_tl_rec.created_by;
2511: END IF;
2512: IF (x_okc_std_art_versions_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2513: THEN
2514: x_okc_std_art_versions_tl_rec.creation_date := l_okc_std_art_versions_tl_rec.creation_date;
2515: END IF;
2516: IF (x_okc_std_art_versions_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2510: x_okc_std_art_versions_tl_rec.created_by := l_okc_std_art_versions_tl_rec.created_by;
2511: END IF;
2512: IF (x_okc_std_art_versions_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2513: THEN
2514: x_okc_std_art_versions_tl_rec.creation_date := l_okc_std_art_versions_tl_rec.creation_date;
2515: END IF;
2516: IF (x_okc_std_art_versions_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2517: THEN
2518: x_okc_std_art_versions_tl_rec.last_updated_by := l_okc_std_art_versions_tl_rec.last_updated_by;
2512: IF (x_okc_std_art_versions_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2513: THEN
2514: x_okc_std_art_versions_tl_rec.creation_date := l_okc_std_art_versions_tl_rec.creation_date;
2515: END IF;
2516: IF (x_okc_std_art_versions_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2517: THEN
2518: x_okc_std_art_versions_tl_rec.last_updated_by := l_okc_std_art_versions_tl_rec.last_updated_by;
2519: END IF;
2520: IF (x_okc_std_art_versions_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2514: x_okc_std_art_versions_tl_rec.creation_date := l_okc_std_art_versions_tl_rec.creation_date;
2515: END IF;
2516: IF (x_okc_std_art_versions_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2517: THEN
2518: x_okc_std_art_versions_tl_rec.last_updated_by := l_okc_std_art_versions_tl_rec.last_updated_by;
2519: END IF;
2520: IF (x_okc_std_art_versions_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2521: THEN
2522: x_okc_std_art_versions_tl_rec.last_update_date := l_okc_std_art_versions_tl_rec.last_update_date;
2516: IF (x_okc_std_art_versions_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2517: THEN
2518: x_okc_std_art_versions_tl_rec.last_updated_by := l_okc_std_art_versions_tl_rec.last_updated_by;
2519: END IF;
2520: IF (x_okc_std_art_versions_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2521: THEN
2522: x_okc_std_art_versions_tl_rec.last_update_date := l_okc_std_art_versions_tl_rec.last_update_date;
2523: END IF;
2524: --alex solution added after tapi
2518: x_okc_std_art_versions_tl_rec.last_updated_by := l_okc_std_art_versions_tl_rec.last_updated_by;
2519: END IF;
2520: IF (x_okc_std_art_versions_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2521: THEN
2522: x_okc_std_art_versions_tl_rec.last_update_date := l_okc_std_art_versions_tl_rec.last_update_date;
2523: END IF;
2524: --alex solution added after tapi
2525: -- IF (x_okc_std_art_versions_tl_rec.text = OKC_API.G_MISS_DATE)
2526: IF (x_okc_std_art_versions_tl_rec.text is NULL)
2521: THEN
2522: x_okc_std_art_versions_tl_rec.last_update_date := l_okc_std_art_versions_tl_rec.last_update_date;
2523: END IF;
2524: --alex solution added after tapi
2525: -- IF (x_okc_std_art_versions_tl_rec.text = OKC_API.G_MISS_DATE)
2526: IF (x_okc_std_art_versions_tl_rec.text is NULL)
2527: THEN
2528: x_okc_std_art_versions_tl_rec.text := l_okc_std_art_versions_tl_rec.text;
2529: END IF;
2522: x_okc_std_art_versions_tl_rec.last_update_date := l_okc_std_art_versions_tl_rec.last_update_date;
2523: END IF;
2524: --alex solution added after tapi
2525: -- IF (x_okc_std_art_versions_tl_rec.text = OKC_API.G_MISS_DATE)
2526: IF (x_okc_std_art_versions_tl_rec.text is NULL)
2527: THEN
2528: x_okc_std_art_versions_tl_rec.text := l_okc_std_art_versions_tl_rec.text;
2529: END IF;
2530: IF (x_okc_std_art_versions_tl_rec.short_description = OKC_API.G_MISS_CHAR)
2524: --alex solution added after tapi
2525: -- IF (x_okc_std_art_versions_tl_rec.text = OKC_API.G_MISS_DATE)
2526: IF (x_okc_std_art_versions_tl_rec.text is NULL)
2527: THEN
2528: x_okc_std_art_versions_tl_rec.text := l_okc_std_art_versions_tl_rec.text;
2529: END IF;
2530: IF (x_okc_std_art_versions_tl_rec.short_description = OKC_API.G_MISS_CHAR)
2531: THEN
2532: x_okc_std_art_versions_tl_rec.short_description := l_okc_std_art_versions_tl_rec.short_description;
2526: IF (x_okc_std_art_versions_tl_rec.text is NULL)
2527: THEN
2528: x_okc_std_art_versions_tl_rec.text := l_okc_std_art_versions_tl_rec.text;
2529: END IF;
2530: IF (x_okc_std_art_versions_tl_rec.short_description = OKC_API.G_MISS_CHAR)
2531: THEN
2532: x_okc_std_art_versions_tl_rec.short_description := l_okc_std_art_versions_tl_rec.short_description;
2533: END IF;
2534: IF (x_okc_std_art_versions_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2528: x_okc_std_art_versions_tl_rec.text := l_okc_std_art_versions_tl_rec.text;
2529: END IF;
2530: IF (x_okc_std_art_versions_tl_rec.short_description = OKC_API.G_MISS_CHAR)
2531: THEN
2532: x_okc_std_art_versions_tl_rec.short_description := l_okc_std_art_versions_tl_rec.short_description;
2533: END IF;
2534: IF (x_okc_std_art_versions_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2535: THEN
2536: x_okc_std_art_versions_tl_rec.last_update_login := l_okc_std_art_versions_tl_rec.last_update_login;
2530: IF (x_okc_std_art_versions_tl_rec.short_description = OKC_API.G_MISS_CHAR)
2531: THEN
2532: x_okc_std_art_versions_tl_rec.short_description := l_okc_std_art_versions_tl_rec.short_description;
2533: END IF;
2534: IF (x_okc_std_art_versions_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2535: THEN
2536: x_okc_std_art_versions_tl_rec.last_update_login := l_okc_std_art_versions_tl_rec.last_update_login;
2537: END IF;
2538: RETURN(l_return_status);
2532: x_okc_std_art_versions_tl_rec.short_description := l_okc_std_art_versions_tl_rec.short_description;
2533: END IF;
2534: IF (x_okc_std_art_versions_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2535: THEN
2536: x_okc_std_art_versions_tl_rec.last_update_login := l_okc_std_art_versions_tl_rec.last_update_login;
2537: END IF;
2538: RETURN(l_return_status);
2539: END populate_new_record;
2540: ------------------------------------------------
2537: END IF;
2538: RETURN(l_return_status);
2539: END populate_new_record;
2540: ------------------------------------------------
2541: -- Set_Attributes for:OKC_STD_ART_VERSIONS_TL --
2542: ------------------------------------------------
2543: FUNCTION Set_Attributes (
2544: p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType,
2545: x_okc_std_art_versions_tl_rec OUT NOCOPY OkcStdArtVersionsTlRecType
2540: ------------------------------------------------
2541: -- Set_Attributes for:OKC_STD_ART_VERSIONS_TL --
2542: ------------------------------------------------
2543: FUNCTION Set_Attributes (
2544: p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType,
2545: x_okc_std_art_versions_tl_rec OUT NOCOPY OkcStdArtVersionsTlRecType
2546: ) RETURN VARCHAR2 IS
2547: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2548: BEGIN
2541: -- Set_Attributes for:OKC_STD_ART_VERSIONS_TL --
2542: ------------------------------------------------
2543: FUNCTION Set_Attributes (
2544: p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType,
2545: x_okc_std_art_versions_tl_rec OUT NOCOPY OkcStdArtVersionsTlRecType
2546: ) RETURN VARCHAR2 IS
2547: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2548: BEGIN
2549: x_okc_std_art_versions_tl_rec := p_okc_std_art_versions_tl_rec;
2545: x_okc_std_art_versions_tl_rec OUT NOCOPY OkcStdArtVersionsTlRecType
2546: ) RETURN VARCHAR2 IS
2547: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2548: BEGIN
2549: x_okc_std_art_versions_tl_rec := p_okc_std_art_versions_tl_rec;
2550: --x_okc_std_art_versions_tl_rec.LANGUAGE := USERENV('LANG');
2551: x_okc_std_art_versions_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2552: --x_okc_std_art_versions_tl_rec.SOURCE_LANG := USERENV('LANG');
2553: x_okc_std_art_versions_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
2546: ) RETURN VARCHAR2 IS
2547: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2548: BEGIN
2549: x_okc_std_art_versions_tl_rec := p_okc_std_art_versions_tl_rec;
2550: --x_okc_std_art_versions_tl_rec.LANGUAGE := USERENV('LANG');
2551: x_okc_std_art_versions_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2552: --x_okc_std_art_versions_tl_rec.SOURCE_LANG := USERENV('LANG');
2553: x_okc_std_art_versions_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
2554: RETURN(l_return_status);
2547: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2548: BEGIN
2549: x_okc_std_art_versions_tl_rec := p_okc_std_art_versions_tl_rec;
2550: --x_okc_std_art_versions_tl_rec.LANGUAGE := USERENV('LANG');
2551: x_okc_std_art_versions_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2552: --x_okc_std_art_versions_tl_rec.SOURCE_LANG := USERENV('LANG');
2553: x_okc_std_art_versions_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
2554: RETURN(l_return_status);
2555: END Set_Attributes;
2548: BEGIN
2549: x_okc_std_art_versions_tl_rec := p_okc_std_art_versions_tl_rec;
2550: --x_okc_std_art_versions_tl_rec.LANGUAGE := USERENV('LANG');
2551: x_okc_std_art_versions_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2552: --x_okc_std_art_versions_tl_rec.SOURCE_LANG := USERENV('LANG');
2553: x_okc_std_art_versions_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
2554: RETURN(l_return_status);
2555: END Set_Attributes;
2556: BEGIN
2549: x_okc_std_art_versions_tl_rec := p_okc_std_art_versions_tl_rec;
2550: --x_okc_std_art_versions_tl_rec.LANGUAGE := USERENV('LANG');
2551: x_okc_std_art_versions_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2552: --x_okc_std_art_versions_tl_rec.SOURCE_LANG := USERENV('LANG');
2553: x_okc_std_art_versions_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
2554: RETURN(l_return_status);
2555: END Set_Attributes;
2556: BEGIN
2557: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2564: RAISE OKC_API.G_EXCEPTION_ERROR;
2565: END IF;
2566: --- Setting item attributes
2567: l_return_status := Set_Attributes(
2568: p_okc_std_art_versions_tl_rec, -- IN
2569: l_okc_std_art_versions_tl_rec); -- OUT
2570: --- If any errors happen abort API
2571: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2572: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2565: END IF;
2566: --- Setting item attributes
2567: l_return_status := Set_Attributes(
2568: p_okc_std_art_versions_tl_rec, -- IN
2569: l_okc_std_art_versions_tl_rec); -- OUT
2570: --- If any errors happen abort API
2571: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2572: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2573: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2572: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2573: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2574: RAISE OKC_API.G_EXCEPTION_ERROR;
2575: END IF;
2576: l_return_status := populate_new_record(l_okc_std_art_versions_tl_rec, ldefokcstdartversionstlrec);
2577: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2578: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2579: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2580: RAISE OKC_API.G_EXCEPTION_ERROR;
2578: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2579: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2580: RAISE OKC_API.G_EXCEPTION_ERROR;
2581: END IF;
2582: UPDATE OKC_STD_ART_VERSIONS_TL
2583: SET OBJECT_VERSION_NUMBER = ldefokcstdartversionstlrec.object_version_number,
2584: CREATED_BY = ldefokcstdartversionstlrec.created_by,
2585: CREATION_DATE = ldefokcstdartversionstlrec.creation_date,
2586: LAST_UPDATED_BY = ldefokcstdartversionstlrec.last_updated_by,
2596: --commented after tapi replaced with following
2597: --AND SOURCE_LANG = USERENV('LANG');
2598: AND USERENV('LANG') IN (SOURCE_LANG,LANGUAGE);
2599:
2600: UPDATE OKC_STD_ART_VERSIONS_TL
2601: SET SFWT_FLAG = 'Y'
2602: WHERE SAE_ID = ldefokcstdartversionstlrec.sae_id
2603: AND SAV_RELEASE = ldefokcstdartversionstlrec.sav_release
2604: AND SOURCE_LANG <> USERENV('LANG');
2602: WHERE SAE_ID = ldefokcstdartversionstlrec.sae_id
2603: AND SAV_RELEASE = ldefokcstdartversionstlrec.sav_release
2604: AND SOURCE_LANG <> USERENV('LANG');
2605:
2606: x_okc_std_art_versions_tl_rec := ldefokcstdartversionstlrec;
2607: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2608: EXCEPTION
2609: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2610: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2653: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2654: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2655: l_savv_rec savv_rec_type := p_savv_rec;
2656: l_def_savv_rec savv_rec_type;
2657: l_okc_std_art_versions_tl_rec OkcStdArtVersionsTlRecType;
2658: lx_okc_std_art_versions_tl_rec OkcStdArtVersionsTlRecType;
2659: l_sav_rec sav_rec_type;
2660: lx_sav_rec sav_rec_type;
2661: -------------------------------
2654: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2655: l_savv_rec savv_rec_type := p_savv_rec;
2656: l_def_savv_rec savv_rec_type;
2657: l_okc_std_art_versions_tl_rec OkcStdArtVersionsTlRecType;
2658: lx_okc_std_art_versions_tl_rec OkcStdArtVersionsTlRecType;
2659: l_sav_rec sav_rec_type;
2660: lx_sav_rec sav_rec_type;
2661: -------------------------------
2662: -- FUNCTION fill_who_columns --
2877:
2878: --------------------------------------
2879: -- Move VIEW record to "Child" records
2880: --------------------------------------
2881: migrate(l_def_savv_rec, l_okc_std_art_versions_tl_rec);
2882: migrate(l_def_savv_rec, l_sav_rec);
2883: --------------------------------------------
2884: -- Call the UPDATE_ROW for each child record
2885: --------------------------------------------
2887: p_init_msg_list,
2888: x_return_status,
2889: x_msg_count,
2890: x_msg_data,
2891: l_okc_std_art_versions_tl_rec,
2892: lx_okc_std_art_versions_tl_rec
2893: );
2894: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2895: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2888: x_return_status,
2889: x_msg_count,
2890: x_msg_data,
2891: l_okc_std_art_versions_tl_rec,
2892: lx_okc_std_art_versions_tl_rec
2893: );
2894: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2895: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2896: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2895: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2896: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2897: RAISE OKC_API.G_EXCEPTION_ERROR;
2898: END IF;
2899: migrate(lx_okc_std_art_versions_tl_rec, l_def_savv_rec);
2900: update_row(
2901: p_init_msg_list,
2902: x_return_status,
2903: x_msg_count,
3076: '_PVT'
3077: );
3078: END delete_row;
3079: --------------------------------------------
3080: -- delete_row for:OKC_STD_ART_VERSIONS_TL --
3081: --------------------------------------------
3082: PROCEDURE delete_row(
3083: p_init_msg_list IN VARCHAR2 ,
3084: x_return_status OUT NOCOPY VARCHAR2,
3083: p_init_msg_list IN VARCHAR2 ,
3084: x_return_status OUT NOCOPY VARCHAR2,
3085: x_msg_count OUT NOCOPY NUMBER,
3086: x_msg_data OUT NOCOPY VARCHAR2,
3087: p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType) IS
3088:
3089: l_api_version CONSTANT NUMBER := 1;
3090: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3091: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3088:
3089: l_api_version CONSTANT NUMBER := 1;
3090: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3091: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3092: l_okc_std_art_versions_tl_rec OkcStdArtVersionsTlRecType:= p_okc_std_art_versions_tl_rec;
3093: l_row_notfound BOOLEAN := TRUE;
3094: ------------------------------------------------
3095: -- Set_Attributes for:OKC_STD_ART_VERSIONS_TL --
3096: ------------------------------------------------
3091: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3092: l_okc_std_art_versions_tl_rec OkcStdArtVersionsTlRecType:= p_okc_std_art_versions_tl_rec;
3093: l_row_notfound BOOLEAN := TRUE;
3094: ------------------------------------------------
3095: -- Set_Attributes for:OKC_STD_ART_VERSIONS_TL --
3096: ------------------------------------------------
3097: FUNCTION Set_Attributes (
3098: p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType,
3099: x_okc_std_art_versions_tl_rec OUT NOCOPY OkcStdArtVersionsTlRecType
3094: ------------------------------------------------
3095: -- Set_Attributes for:OKC_STD_ART_VERSIONS_TL --
3096: ------------------------------------------------
3097: FUNCTION Set_Attributes (
3098: p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType,
3099: x_okc_std_art_versions_tl_rec OUT NOCOPY OkcStdArtVersionsTlRecType
3100: ) RETURN VARCHAR2 IS
3101: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3102: BEGIN
3095: -- Set_Attributes for:OKC_STD_ART_VERSIONS_TL --
3096: ------------------------------------------------
3097: FUNCTION Set_Attributes (
3098: p_okc_std_art_versions_tl_rec IN OkcStdArtVersionsTlRecType,
3099: x_okc_std_art_versions_tl_rec OUT NOCOPY OkcStdArtVersionsTlRecType
3100: ) RETURN VARCHAR2 IS
3101: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3102: BEGIN
3103: x_okc_std_art_versions_tl_rec := p_okc_std_art_versions_tl_rec;
3099: x_okc_std_art_versions_tl_rec OUT NOCOPY OkcStdArtVersionsTlRecType
3100: ) RETURN VARCHAR2 IS
3101: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3102: BEGIN
3103: x_okc_std_art_versions_tl_rec := p_okc_std_art_versions_tl_rec;
3104: x_okc_std_art_versions_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
3105: RETURN(l_return_status);
3106: END Set_Attributes;
3107: BEGIN
3100: ) RETURN VARCHAR2 IS
3101: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3102: BEGIN
3103: x_okc_std_art_versions_tl_rec := p_okc_std_art_versions_tl_rec;
3104: x_okc_std_art_versions_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
3105: RETURN(l_return_status);
3106: END Set_Attributes;
3107: BEGIN
3108: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3115: RAISE OKC_API.G_EXCEPTION_ERROR;
3116: END IF;
3117: --- Setting item attributes
3118: l_return_status := Set_Attributes(
3119: p_okc_std_art_versions_tl_rec, -- IN
3120: l_okc_std_art_versions_tl_rec); -- OUT
3121: --- If any errors happen abort API
3122: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3123: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3116: END IF;
3117: --- Setting item attributes
3118: l_return_status := Set_Attributes(
3119: p_okc_std_art_versions_tl_rec, -- IN
3120: l_okc_std_art_versions_tl_rec); -- OUT
3121: --- If any errors happen abort API
3122: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3123: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3124: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3123: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3124: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3125: RAISE OKC_API.G_EXCEPTION_ERROR;
3126: END IF;
3127: DELETE FROM OKC_STD_ART_VERSIONS_TL
3128: WHERE SAE_ID = l_okc_std_art_versions_tl_rec.sae_id AND
3129: SAV_RELEASE = l_okc_std_art_versions_tl_rec.sav_release;
3130:
3131: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3124: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3125: RAISE OKC_API.G_EXCEPTION_ERROR;
3126: END IF;
3127: DELETE FROM OKC_STD_ART_VERSIONS_TL
3128: WHERE SAE_ID = l_okc_std_art_versions_tl_rec.sae_id AND
3129: SAV_RELEASE = l_okc_std_art_versions_tl_rec.sav_release;
3130:
3131: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3132: EXCEPTION
3125: RAISE OKC_API.G_EXCEPTION_ERROR;
3126: END IF;
3127: DELETE FROM OKC_STD_ART_VERSIONS_TL
3128: WHERE SAE_ID = l_okc_std_art_versions_tl_rec.sae_id AND
3129: SAV_RELEASE = l_okc_std_art_versions_tl_rec.sav_release;
3130:
3131: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3132: EXCEPTION
3133: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3175: l_api_version CONSTANT NUMBER := 1;
3176: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3177: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3178: l_savv_rec savv_rec_type := p_savv_rec;
3179: l_okc_std_art_versions_tl_rec OkcStdArtVersionsTlRecType;
3180: l_sav_rec sav_rec_type;
3181: BEGIN
3182: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3183: G_PKG_NAME,
3206:
3207: --------------------------------------
3208: -- Move VIEW record to "Child" records
3209: --------------------------------------
3210: migrate(l_savv_rec, l_okc_std_art_versions_tl_rec);
3211: migrate(l_savv_rec, l_sav_rec);
3212: --------------------------------------------
3213: -- Call the DELETE_ROW for each child record
3214: --------------------------------------------
3216: p_init_msg_list,
3217: x_return_status,
3218: x_msg_count,
3219: x_msg_data,
3220: l_okc_std_art_versions_tl_rec
3221: );
3222: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3223: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3224: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN