38: -- PROCEDURE add_language
39: ---------------------------------------------------------------------------
40: PROCEDURE add_language IS
41: BEGIN
42: DELETE FROM OKC_CLASSES_TL T
43: WHERE NOT EXISTS (
44: SELECT NULL
45: FROM OKC_CLASSES_B B
46: WHERE B.CODE = T.CODE
45: FROM OKC_CLASSES_B B
46: WHERE B.CODE = T.CODE
47: );
48:
49: UPDATE OKC_CLASSES_TL T SET (
50: MEANING,
51: DESCRIPTION) = (SELECT
52: B.MEANING,
53: B.DESCRIPTION
50: MEANING,
51: DESCRIPTION) = (SELECT
52: B.MEANING,
53: B.DESCRIPTION
54: FROM OKC_CLASSES_TL B
55: WHERE B.CODE = T.CODE
56: AND B.LANGUAGE = T.SOURCE_LANG)
57: WHERE (
58: T.CODE,
59: T.LANGUAGE)
60: IN (SELECT
61: SUBT.CODE,
62: SUBT.LANGUAGE
63: FROM OKC_CLASSES_TL SUBB, OKC_CLASSES_TL SUBT
64: WHERE SUBB.CODE = SUBT.CODE
65: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
66: AND (SUBB.MEANING <> SUBT.MEANING
67: OR SUBB.DESCRIPTION <> SUBT.DESCRIPTION
68: OR (SUBB.DESCRIPTION IS NULL AND SUBT.DESCRIPTION IS NOT NULL)
69: OR (SUBB.DESCRIPTION IS NOT NULL AND SUBT.DESCRIPTION IS NULL)
70: ));
71:
72: INSERT INTO OKC_CLASSES_TL (
73: CODE,
74: LANGUAGE,
75: SOURCE_LANG,
76: SFWT_FLAG,
92: B.CREATION_DATE,
93: B.LAST_UPDATED_BY,
94: B.LAST_UPDATE_DATE,
95: B.LAST_UPDATE_LOGIN
96: FROM OKC_CLASSES_TL B, FND_LANGUAGES L
97: WHERE L.INSTALLED_FLAG IN ('I', 'B')
98: AND B.LANGUAGE = USERENV('LANG')
99: AND NOT EXISTS(
100: SELECT NULL
97: WHERE L.INSTALLED_FLAG IN ('I', 'B')
98: AND B.LANGUAGE = USERENV('LANG')
99: AND NOT EXISTS(
100: SELECT NULL
101: FROM OKC_CLASSES_TL T
102: WHERE T.CODE = B.CODE
103: AND T.LANGUAGE = L.LANGUAGE_CODE
104: );
105:
155: BEGIN
156: RETURN(get_rec(p_cls_rec, l_row_notfound));
157: END get_rec;
158: ---------------------------------------------------------------------------
159: -- FUNCTION get_rec for: OKC_CLASSES_TL
160: ---------------------------------------------------------------------------
161: FUNCTION get_rec (
162: p_okc_classes_tl_rec IN okc_classes_tl_rec_type,
163: x_no_data_found OUT NOCOPY BOOLEAN
158: ---------------------------------------------------------------------------
159: -- FUNCTION get_rec for: OKC_CLASSES_TL
160: ---------------------------------------------------------------------------
161: FUNCTION get_rec (
162: p_okc_classes_tl_rec IN okc_classes_tl_rec_type,
163: x_no_data_found OUT NOCOPY BOOLEAN
164: ) RETURN okc_classes_tl_rec_type IS
165: CURSOR okc_classes_tl_pk_csr (p_code IN VARCHAR2,
166: p_language IN VARCHAR2) IS
160: ---------------------------------------------------------------------------
161: FUNCTION get_rec (
162: p_okc_classes_tl_rec IN okc_classes_tl_rec_type,
163: x_no_data_found OUT NOCOPY BOOLEAN
164: ) RETURN okc_classes_tl_rec_type IS
165: CURSOR okc_classes_tl_pk_csr (p_code IN VARCHAR2,
166: p_language IN VARCHAR2) IS
167: SELECT
168: CODE,
161: FUNCTION get_rec (
162: p_okc_classes_tl_rec IN okc_classes_tl_rec_type,
163: x_no_data_found OUT NOCOPY BOOLEAN
164: ) RETURN okc_classes_tl_rec_type IS
165: CURSOR okc_classes_tl_pk_csr (p_code IN VARCHAR2,
166: p_language IN VARCHAR2) IS
167: SELECT
168: CODE,
169: LANGUAGE,
175: CREATION_DATE,
176: LAST_UPDATED_BY,
177: LAST_UPDATE_DATE,
178: LAST_UPDATE_LOGIN
179: FROM Okc_Classes_Tl
180: WHERE okc_classes_tl.code = p_code
181: AND okc_classes_tl.language = p_language;
182: l_okc_classes_tl_pk okc_classes_tl_pk_csr%ROWTYPE;
183: l_okc_classes_tl_rec okc_classes_tl_rec_type;
176: LAST_UPDATED_BY,
177: LAST_UPDATE_DATE,
178: LAST_UPDATE_LOGIN
179: FROM Okc_Classes_Tl
180: WHERE okc_classes_tl.code = p_code
181: AND okc_classes_tl.language = p_language;
182: l_okc_classes_tl_pk okc_classes_tl_pk_csr%ROWTYPE;
183: l_okc_classes_tl_rec okc_classes_tl_rec_type;
184: BEGIN
177: LAST_UPDATE_DATE,
178: LAST_UPDATE_LOGIN
179: FROM Okc_Classes_Tl
180: WHERE okc_classes_tl.code = p_code
181: AND okc_classes_tl.language = p_language;
182: l_okc_classes_tl_pk okc_classes_tl_pk_csr%ROWTYPE;
183: l_okc_classes_tl_rec okc_classes_tl_rec_type;
184: BEGIN
185: x_no_data_found := TRUE;
178: LAST_UPDATE_LOGIN
179: FROM Okc_Classes_Tl
180: WHERE okc_classes_tl.code = p_code
181: AND okc_classes_tl.language = p_language;
182: l_okc_classes_tl_pk okc_classes_tl_pk_csr%ROWTYPE;
183: l_okc_classes_tl_rec okc_classes_tl_rec_type;
184: BEGIN
185: x_no_data_found := TRUE;
186: -- Get current database values
179: FROM Okc_Classes_Tl
180: WHERE okc_classes_tl.code = p_code
181: AND okc_classes_tl.language = p_language;
182: l_okc_classes_tl_pk okc_classes_tl_pk_csr%ROWTYPE;
183: l_okc_classes_tl_rec okc_classes_tl_rec_type;
184: BEGIN
185: x_no_data_found := TRUE;
186: -- Get current database values
187: OPEN okc_classes_tl_pk_csr (p_okc_classes_tl_rec.code,
183: l_okc_classes_tl_rec okc_classes_tl_rec_type;
184: BEGIN
185: x_no_data_found := TRUE;
186: -- Get current database values
187: OPEN okc_classes_tl_pk_csr (p_okc_classes_tl_rec.code,
188: p_okc_classes_tl_rec.language);
189: FETCH okc_classes_tl_pk_csr INTO
190: l_okc_classes_tl_rec.CODE,
191: l_okc_classes_tl_rec.LANGUAGE,
184: BEGIN
185: x_no_data_found := TRUE;
186: -- Get current database values
187: OPEN okc_classes_tl_pk_csr (p_okc_classes_tl_rec.code,
188: p_okc_classes_tl_rec.language);
189: FETCH okc_classes_tl_pk_csr INTO
190: l_okc_classes_tl_rec.CODE,
191: l_okc_classes_tl_rec.LANGUAGE,
192: l_okc_classes_tl_rec.SOURCE_LANG,
185: x_no_data_found := TRUE;
186: -- Get current database values
187: OPEN okc_classes_tl_pk_csr (p_okc_classes_tl_rec.code,
188: p_okc_classes_tl_rec.language);
189: FETCH okc_classes_tl_pk_csr INTO
190: l_okc_classes_tl_rec.CODE,
191: l_okc_classes_tl_rec.LANGUAGE,
192: l_okc_classes_tl_rec.SOURCE_LANG,
193: l_okc_classes_tl_rec.SFWT_FLAG,
186: -- Get current database values
187: OPEN okc_classes_tl_pk_csr (p_okc_classes_tl_rec.code,
188: p_okc_classes_tl_rec.language);
189: FETCH okc_classes_tl_pk_csr INTO
190: l_okc_classes_tl_rec.CODE,
191: l_okc_classes_tl_rec.LANGUAGE,
192: l_okc_classes_tl_rec.SOURCE_LANG,
193: l_okc_classes_tl_rec.SFWT_FLAG,
194: l_okc_classes_tl_rec.MEANING,
187: OPEN okc_classes_tl_pk_csr (p_okc_classes_tl_rec.code,
188: p_okc_classes_tl_rec.language);
189: FETCH okc_classes_tl_pk_csr INTO
190: l_okc_classes_tl_rec.CODE,
191: l_okc_classes_tl_rec.LANGUAGE,
192: l_okc_classes_tl_rec.SOURCE_LANG,
193: l_okc_classes_tl_rec.SFWT_FLAG,
194: l_okc_classes_tl_rec.MEANING,
195: l_okc_classes_tl_rec.DESCRIPTION,
188: p_okc_classes_tl_rec.language);
189: FETCH okc_classes_tl_pk_csr INTO
190: l_okc_classes_tl_rec.CODE,
191: l_okc_classes_tl_rec.LANGUAGE,
192: l_okc_classes_tl_rec.SOURCE_LANG,
193: l_okc_classes_tl_rec.SFWT_FLAG,
194: l_okc_classes_tl_rec.MEANING,
195: l_okc_classes_tl_rec.DESCRIPTION,
196: l_okc_classes_tl_rec.CREATED_BY,
189: FETCH okc_classes_tl_pk_csr INTO
190: l_okc_classes_tl_rec.CODE,
191: l_okc_classes_tl_rec.LANGUAGE,
192: l_okc_classes_tl_rec.SOURCE_LANG,
193: l_okc_classes_tl_rec.SFWT_FLAG,
194: l_okc_classes_tl_rec.MEANING,
195: l_okc_classes_tl_rec.DESCRIPTION,
196: l_okc_classes_tl_rec.CREATED_BY,
197: l_okc_classes_tl_rec.CREATION_DATE,
190: l_okc_classes_tl_rec.CODE,
191: l_okc_classes_tl_rec.LANGUAGE,
192: l_okc_classes_tl_rec.SOURCE_LANG,
193: l_okc_classes_tl_rec.SFWT_FLAG,
194: l_okc_classes_tl_rec.MEANING,
195: l_okc_classes_tl_rec.DESCRIPTION,
196: l_okc_classes_tl_rec.CREATED_BY,
197: l_okc_classes_tl_rec.CREATION_DATE,
198: l_okc_classes_tl_rec.LAST_UPDATED_BY,
191: l_okc_classes_tl_rec.LANGUAGE,
192: l_okc_classes_tl_rec.SOURCE_LANG,
193: l_okc_classes_tl_rec.SFWT_FLAG,
194: l_okc_classes_tl_rec.MEANING,
195: l_okc_classes_tl_rec.DESCRIPTION,
196: l_okc_classes_tl_rec.CREATED_BY,
197: l_okc_classes_tl_rec.CREATION_DATE,
198: l_okc_classes_tl_rec.LAST_UPDATED_BY,
199: l_okc_classes_tl_rec.LAST_UPDATE_DATE,
192: l_okc_classes_tl_rec.SOURCE_LANG,
193: l_okc_classes_tl_rec.SFWT_FLAG,
194: l_okc_classes_tl_rec.MEANING,
195: l_okc_classes_tl_rec.DESCRIPTION,
196: l_okc_classes_tl_rec.CREATED_BY,
197: l_okc_classes_tl_rec.CREATION_DATE,
198: l_okc_classes_tl_rec.LAST_UPDATED_BY,
199: l_okc_classes_tl_rec.LAST_UPDATE_DATE,
200: l_okc_classes_tl_rec.LAST_UPDATE_LOGIN;
193: l_okc_classes_tl_rec.SFWT_FLAG,
194: l_okc_classes_tl_rec.MEANING,
195: l_okc_classes_tl_rec.DESCRIPTION,
196: l_okc_classes_tl_rec.CREATED_BY,
197: l_okc_classes_tl_rec.CREATION_DATE,
198: l_okc_classes_tl_rec.LAST_UPDATED_BY,
199: l_okc_classes_tl_rec.LAST_UPDATE_DATE,
200: l_okc_classes_tl_rec.LAST_UPDATE_LOGIN;
201: x_no_data_found := okc_classes_tl_pk_csr%NOTFOUND;
194: l_okc_classes_tl_rec.MEANING,
195: l_okc_classes_tl_rec.DESCRIPTION,
196: l_okc_classes_tl_rec.CREATED_BY,
197: l_okc_classes_tl_rec.CREATION_DATE,
198: l_okc_classes_tl_rec.LAST_UPDATED_BY,
199: l_okc_classes_tl_rec.LAST_UPDATE_DATE,
200: l_okc_classes_tl_rec.LAST_UPDATE_LOGIN;
201: x_no_data_found := okc_classes_tl_pk_csr%NOTFOUND;
202: CLOSE okc_classes_tl_pk_csr;
195: l_okc_classes_tl_rec.DESCRIPTION,
196: l_okc_classes_tl_rec.CREATED_BY,
197: l_okc_classes_tl_rec.CREATION_DATE,
198: l_okc_classes_tl_rec.LAST_UPDATED_BY,
199: l_okc_classes_tl_rec.LAST_UPDATE_DATE,
200: l_okc_classes_tl_rec.LAST_UPDATE_LOGIN;
201: x_no_data_found := okc_classes_tl_pk_csr%NOTFOUND;
202: CLOSE okc_classes_tl_pk_csr;
203: RETURN(l_okc_classes_tl_rec);
196: l_okc_classes_tl_rec.CREATED_BY,
197: l_okc_classes_tl_rec.CREATION_DATE,
198: l_okc_classes_tl_rec.LAST_UPDATED_BY,
199: l_okc_classes_tl_rec.LAST_UPDATE_DATE,
200: l_okc_classes_tl_rec.LAST_UPDATE_LOGIN;
201: x_no_data_found := okc_classes_tl_pk_csr%NOTFOUND;
202: CLOSE okc_classes_tl_pk_csr;
203: RETURN(l_okc_classes_tl_rec);
204: END get_rec;
197: l_okc_classes_tl_rec.CREATION_DATE,
198: l_okc_classes_tl_rec.LAST_UPDATED_BY,
199: l_okc_classes_tl_rec.LAST_UPDATE_DATE,
200: l_okc_classes_tl_rec.LAST_UPDATE_LOGIN;
201: x_no_data_found := okc_classes_tl_pk_csr%NOTFOUND;
202: CLOSE okc_classes_tl_pk_csr;
203: RETURN(l_okc_classes_tl_rec);
204: END get_rec;
205:
198: l_okc_classes_tl_rec.LAST_UPDATED_BY,
199: l_okc_classes_tl_rec.LAST_UPDATE_DATE,
200: l_okc_classes_tl_rec.LAST_UPDATE_LOGIN;
201: x_no_data_found := okc_classes_tl_pk_csr%NOTFOUND;
202: CLOSE okc_classes_tl_pk_csr;
203: RETURN(l_okc_classes_tl_rec);
204: END get_rec;
205:
206: FUNCTION get_rec (
199: l_okc_classes_tl_rec.LAST_UPDATE_DATE,
200: l_okc_classes_tl_rec.LAST_UPDATE_LOGIN;
201: x_no_data_found := okc_classes_tl_pk_csr%NOTFOUND;
202: CLOSE okc_classes_tl_pk_csr;
203: RETURN(l_okc_classes_tl_rec);
204: END get_rec;
205:
206: FUNCTION get_rec (
207: p_okc_classes_tl_rec IN okc_classes_tl_rec_type
203: RETURN(l_okc_classes_tl_rec);
204: END get_rec;
205:
206: FUNCTION get_rec (
207: p_okc_classes_tl_rec IN okc_classes_tl_rec_type
208: ) RETURN okc_classes_tl_rec_type IS
209: l_row_notfound BOOLEAN := TRUE;
210: BEGIN
211: RETURN(get_rec(p_okc_classes_tl_rec, l_row_notfound));
204: END get_rec;
205:
206: FUNCTION get_rec (
207: p_okc_classes_tl_rec IN okc_classes_tl_rec_type
208: ) RETURN okc_classes_tl_rec_type IS
209: l_row_notfound BOOLEAN := TRUE;
210: BEGIN
211: RETURN(get_rec(p_okc_classes_tl_rec, l_row_notfound));
212: END get_rec;
207: p_okc_classes_tl_rec IN okc_classes_tl_rec_type
208: ) RETURN okc_classes_tl_rec_type IS
209: l_row_notfound BOOLEAN := TRUE;
210: BEGIN
211: RETURN(get_rec(p_okc_classes_tl_rec, l_row_notfound));
212: END get_rec;
213: ---------------------------------------------------------------------------
214: -- FUNCTION get_rec for: OKC_CLASSES_V
215: ---------------------------------------------------------------------------
393: p_to.adv_search_form_function_id := p_from.adv_search_form_function_id;
394: END migrate;
395: PROCEDURE migrate (
396: p_from IN clsv_rec_type,
397: p_to OUT NOCOPY okc_classes_tl_rec_type
398: ) IS
399: BEGIN
400: p_to.code := p_from.code;
401: p_to.sfwt_flag := p_from.sfwt_flag;
407: p_to.last_update_date := p_from.last_update_date;
408: p_to.last_update_login := p_from.last_update_login;
409: END migrate;
410: PROCEDURE migrate (
411: p_from IN okc_classes_tl_rec_type,
412: p_to IN OUT NOCOPY clsv_rec_type
413: ) IS
414: BEGIN
415: p_to.code := p_from.code;
441: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
442: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
443: l_clsv_rec clsv_rec_type := p_clsv_rec;
444: l_cls_rec cls_rec_type;
445: l_okc_classes_tl_rec okc_classes_tl_rec_type;
446: BEGIN
447: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
448: G_PKG_NAME,
449: p_init_msg_list,
676: '_PVT'
677: );
678: END insert_row;
679: -----------------------------------
680: -- insert_row for:OKC_CLASSES_TL --
681: -----------------------------------
682: PROCEDURE insert_row(
683: p_init_msg_list IN VARCHAR2 ,
684: x_return_status OUT NOCOPY VARCHAR2,
683: p_init_msg_list IN VARCHAR2 ,
684: x_return_status OUT NOCOPY VARCHAR2,
685: x_msg_count OUT NOCOPY NUMBER,
686: x_msg_data OUT NOCOPY VARCHAR2,
687: p_okc_classes_tl_rec IN okc_classes_tl_rec_type,
688: x_okc_classes_tl_rec OUT NOCOPY okc_classes_tl_rec_type) IS
689:
690: l_api_version CONSTANT NUMBER := 1;
691: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
684: x_return_status OUT NOCOPY VARCHAR2,
685: x_msg_count OUT NOCOPY NUMBER,
686: x_msg_data OUT NOCOPY VARCHAR2,
687: p_okc_classes_tl_rec IN okc_classes_tl_rec_type,
688: x_okc_classes_tl_rec OUT NOCOPY okc_classes_tl_rec_type) IS
689:
690: l_api_version CONSTANT NUMBER := 1;
691: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
692: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
689:
690: l_api_version CONSTANT NUMBER := 1;
691: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
692: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
693: l_okc_classes_tl_rec okc_classes_tl_rec_type := p_okc_classes_tl_rec;
694: l_def_okc_classes_tl_rec okc_classes_tl_rec_type;
695: CURSOR get_languages IS
696: SELECT *
697: FROM FND_LANGUAGES
690: l_api_version CONSTANT NUMBER := 1;
691: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
692: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
693: l_okc_classes_tl_rec okc_classes_tl_rec_type := p_okc_classes_tl_rec;
694: l_def_okc_classes_tl_rec okc_classes_tl_rec_type;
695: CURSOR get_languages IS
696: SELECT *
697: FROM FND_LANGUAGES
698: WHERE INSTALLED_FLAG IN ('I', 'B');
696: SELECT *
697: FROM FND_LANGUAGES
698: WHERE INSTALLED_FLAG IN ('I', 'B');
699: ---------------------------------------
700: -- Set_Attributes for:OKC_CLASSES_TL --
701: ---------------------------------------
702: FUNCTION Set_Attributes (
703: p_okc_classes_tl_rec IN okc_classes_tl_rec_type,
704: x_okc_classes_tl_rec OUT NOCOPY okc_classes_tl_rec_type
699: ---------------------------------------
700: -- Set_Attributes for:OKC_CLASSES_TL --
701: ---------------------------------------
702: FUNCTION Set_Attributes (
703: p_okc_classes_tl_rec IN okc_classes_tl_rec_type,
704: x_okc_classes_tl_rec OUT NOCOPY okc_classes_tl_rec_type
705: ) RETURN VARCHAR2 IS
706: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
707: BEGIN
700: -- Set_Attributes for:OKC_CLASSES_TL --
701: ---------------------------------------
702: FUNCTION Set_Attributes (
703: p_okc_classes_tl_rec IN okc_classes_tl_rec_type,
704: x_okc_classes_tl_rec OUT NOCOPY okc_classes_tl_rec_type
705: ) RETURN VARCHAR2 IS
706: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
707: BEGIN
708: x_okc_classes_tl_rec := p_okc_classes_tl_rec;
704: x_okc_classes_tl_rec OUT NOCOPY okc_classes_tl_rec_type
705: ) RETURN VARCHAR2 IS
706: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
707: BEGIN
708: x_okc_classes_tl_rec := p_okc_classes_tl_rec;
709: x_okc_classes_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
710: x_okc_classes_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
711: RETURN(l_return_status);
712: END Set_Attributes;
705: ) RETURN VARCHAR2 IS
706: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
707: BEGIN
708: x_okc_classes_tl_rec := p_okc_classes_tl_rec;
709: x_okc_classes_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
710: x_okc_classes_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
711: RETURN(l_return_status);
712: END Set_Attributes;
713: BEGIN
706: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
707: BEGIN
708: x_okc_classes_tl_rec := p_okc_classes_tl_rec;
709: x_okc_classes_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
710: x_okc_classes_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
711: RETURN(l_return_status);
712: END Set_Attributes;
713: BEGIN
714: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
721: RAISE OKC_API.G_EXCEPTION_ERROR;
722: END IF;
723: --- Setting item attributes
724: l_return_status := Set_Attributes(
725: p_okc_classes_tl_rec, -- IN
726: l_okc_classes_tl_rec); -- OUT
727: --- If any errors happen abort API
728: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
729: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
722: END IF;
723: --- Setting item attributes
724: l_return_status := Set_Attributes(
725: p_okc_classes_tl_rec, -- IN
726: l_okc_classes_tl_rec); -- OUT
727: --- If any errors happen abort API
728: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
729: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
730: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
730: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
731: RAISE OKC_API.G_EXCEPTION_ERROR;
732: END IF;
733: FOR l_lang_rec IN get_languages LOOP
734: l_okc_classes_tl_rec.language := l_lang_rec.language_code;
735: INSERT INTO OKC_CLASSES_TL(
736: code,
737: language,
738: source_lang,
731: RAISE OKC_API.G_EXCEPTION_ERROR;
732: END IF;
733: FOR l_lang_rec IN get_languages LOOP
734: l_okc_classes_tl_rec.language := l_lang_rec.language_code;
735: INSERT INTO OKC_CLASSES_TL(
736: code,
737: language,
738: source_lang,
739: sfwt_flag,
744: last_updated_by,
745: last_update_date,
746: last_update_login)
747: VALUES (
748: l_okc_classes_tl_rec.code,
749: l_okc_classes_tl_rec.language,
750: l_okc_classes_tl_rec.source_lang,
751: l_okc_classes_tl_rec.sfwt_flag,
752: l_okc_classes_tl_rec.meaning,
745: last_update_date,
746: last_update_login)
747: VALUES (
748: l_okc_classes_tl_rec.code,
749: l_okc_classes_tl_rec.language,
750: l_okc_classes_tl_rec.source_lang,
751: l_okc_classes_tl_rec.sfwt_flag,
752: l_okc_classes_tl_rec.meaning,
753: l_okc_classes_tl_rec.description,
746: last_update_login)
747: VALUES (
748: l_okc_classes_tl_rec.code,
749: l_okc_classes_tl_rec.language,
750: l_okc_classes_tl_rec.source_lang,
751: l_okc_classes_tl_rec.sfwt_flag,
752: l_okc_classes_tl_rec.meaning,
753: l_okc_classes_tl_rec.description,
754: l_okc_classes_tl_rec.created_by,
747: VALUES (
748: l_okc_classes_tl_rec.code,
749: l_okc_classes_tl_rec.language,
750: l_okc_classes_tl_rec.source_lang,
751: l_okc_classes_tl_rec.sfwt_flag,
752: l_okc_classes_tl_rec.meaning,
753: l_okc_classes_tl_rec.description,
754: l_okc_classes_tl_rec.created_by,
755: l_okc_classes_tl_rec.creation_date,
748: l_okc_classes_tl_rec.code,
749: l_okc_classes_tl_rec.language,
750: l_okc_classes_tl_rec.source_lang,
751: l_okc_classes_tl_rec.sfwt_flag,
752: l_okc_classes_tl_rec.meaning,
753: l_okc_classes_tl_rec.description,
754: l_okc_classes_tl_rec.created_by,
755: l_okc_classes_tl_rec.creation_date,
756: l_okc_classes_tl_rec.last_updated_by,
749: l_okc_classes_tl_rec.language,
750: l_okc_classes_tl_rec.source_lang,
751: l_okc_classes_tl_rec.sfwt_flag,
752: l_okc_classes_tl_rec.meaning,
753: l_okc_classes_tl_rec.description,
754: l_okc_classes_tl_rec.created_by,
755: l_okc_classes_tl_rec.creation_date,
756: l_okc_classes_tl_rec.last_updated_by,
757: l_okc_classes_tl_rec.last_update_date,
750: l_okc_classes_tl_rec.source_lang,
751: l_okc_classes_tl_rec.sfwt_flag,
752: l_okc_classes_tl_rec.meaning,
753: l_okc_classes_tl_rec.description,
754: l_okc_classes_tl_rec.created_by,
755: l_okc_classes_tl_rec.creation_date,
756: l_okc_classes_tl_rec.last_updated_by,
757: l_okc_classes_tl_rec.last_update_date,
758: l_okc_classes_tl_rec.last_update_login);
751: l_okc_classes_tl_rec.sfwt_flag,
752: l_okc_classes_tl_rec.meaning,
753: l_okc_classes_tl_rec.description,
754: l_okc_classes_tl_rec.created_by,
755: l_okc_classes_tl_rec.creation_date,
756: l_okc_classes_tl_rec.last_updated_by,
757: l_okc_classes_tl_rec.last_update_date,
758: l_okc_classes_tl_rec.last_update_login);
759: END LOOP;
752: l_okc_classes_tl_rec.meaning,
753: l_okc_classes_tl_rec.description,
754: l_okc_classes_tl_rec.created_by,
755: l_okc_classes_tl_rec.creation_date,
756: l_okc_classes_tl_rec.last_updated_by,
757: l_okc_classes_tl_rec.last_update_date,
758: l_okc_classes_tl_rec.last_update_login);
759: END LOOP;
760: -- Set OUT values
753: l_okc_classes_tl_rec.description,
754: l_okc_classes_tl_rec.created_by,
755: l_okc_classes_tl_rec.creation_date,
756: l_okc_classes_tl_rec.last_updated_by,
757: l_okc_classes_tl_rec.last_update_date,
758: l_okc_classes_tl_rec.last_update_login);
759: END LOOP;
760: -- Set OUT values
761: x_okc_classes_tl_rec := l_okc_classes_tl_rec;
754: l_okc_classes_tl_rec.created_by,
755: l_okc_classes_tl_rec.creation_date,
756: l_okc_classes_tl_rec.last_updated_by,
757: l_okc_classes_tl_rec.last_update_date,
758: l_okc_classes_tl_rec.last_update_login);
759: END LOOP;
760: -- Set OUT values
761: x_okc_classes_tl_rec := l_okc_classes_tl_rec;
762: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
757: l_okc_classes_tl_rec.last_update_date,
758: l_okc_classes_tl_rec.last_update_login);
759: END LOOP;
760: -- Set OUT values
761: x_okc_classes_tl_rec := l_okc_classes_tl_rec;
762: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
763: EXCEPTION
764: WHEN OKC_API.G_EXCEPTION_ERROR THEN
765: x_return_status := OKC_API.HANDLE_EXCEPTIONS
810: l_clsv_rec clsv_rec_type;
811: l_def_clsv_rec clsv_rec_type;
812: l_cls_rec cls_rec_type;
813: lx_cls_rec cls_rec_type;
814: l_okc_classes_tl_rec okc_classes_tl_rec_type;
815: lx_okc_classes_tl_rec okc_classes_tl_rec_type;
816: -------------------------------
817: -- FUNCTION fill_who_columns --
818: -------------------------------
811: l_def_clsv_rec clsv_rec_type;
812: l_cls_rec cls_rec_type;
813: lx_cls_rec cls_rec_type;
814: l_okc_classes_tl_rec okc_classes_tl_rec_type;
815: lx_okc_classes_tl_rec okc_classes_tl_rec_type;
816: -------------------------------
817: -- FUNCTION fill_who_columns --
818: -------------------------------
819: FUNCTION fill_who_columns (
884: --------------------------------------
885: -- Move VIEW record to "Child" records
886: --------------------------------------
887: migrate(l_def_clsv_rec, l_cls_rec);
888: migrate(l_def_clsv_rec, l_okc_classes_tl_rec);
889: --------------------------------------------
890: -- Call the INSERT_ROW for each child record
891: --------------------------------------------
892: insert_row(
907: p_init_msg_list,
908: x_return_status,
909: x_msg_count,
910: x_msg_data,
911: l_okc_classes_tl_rec,
912: lx_okc_classes_tl_rec
913: );
914: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
915: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
908: x_return_status,
909: x_msg_count,
910: x_msg_data,
911: l_okc_classes_tl_rec,
912: lx_okc_classes_tl_rec
913: );
914: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
915: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
916: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
915: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
916: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
917: RAISE OKC_API.G_EXCEPTION_ERROR;
918: END IF;
919: migrate(lx_okc_classes_tl_rec, l_def_clsv_rec);
920: -- Set OUT values
921: x_clsv_rec := l_def_clsv_rec;
922: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
923: EXCEPTION
1128: '_PVT'
1129: );
1130: END lock_row;
1131: ---------------------------------
1132: -- lock_row for:OKC_CLASSES_TL --
1133: ---------------------------------
1134: PROCEDURE lock_row(
1135: p_init_msg_list IN VARCHAR2 ,
1136: x_return_status OUT NOCOPY VARCHAR2,
1135: p_init_msg_list IN VARCHAR2 ,
1136: x_return_status OUT NOCOPY VARCHAR2,
1137: x_msg_count OUT NOCOPY NUMBER,
1138: x_msg_data OUT NOCOPY VARCHAR2,
1139: p_okc_classes_tl_rec IN okc_classes_tl_rec_type) IS
1140:
1141: E_Resource_Busy EXCEPTION;
1142: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1143: CURSOR lock_csr (p_okc_classes_tl_rec IN okc_classes_tl_rec_type) IS
1139: p_okc_classes_tl_rec IN okc_classes_tl_rec_type) IS
1140:
1141: E_Resource_Busy EXCEPTION;
1142: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1143: CURSOR lock_csr (p_okc_classes_tl_rec IN okc_classes_tl_rec_type) IS
1144: SELECT *
1145: FROM OKC_CLASSES_TL
1146: WHERE CODE = p_okc_classes_tl_rec.code
1147: FOR UPDATE NOWAIT;
1141: E_Resource_Busy EXCEPTION;
1142: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1143: CURSOR lock_csr (p_okc_classes_tl_rec IN okc_classes_tl_rec_type) IS
1144: SELECT *
1145: FROM OKC_CLASSES_TL
1146: WHERE CODE = p_okc_classes_tl_rec.code
1147: FOR UPDATE NOWAIT;
1148:
1149: l_api_version CONSTANT NUMBER := 1;
1142: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1143: CURSOR lock_csr (p_okc_classes_tl_rec IN okc_classes_tl_rec_type) IS
1144: SELECT *
1145: FROM OKC_CLASSES_TL
1146: WHERE CODE = p_okc_classes_tl_rec.code
1147: FOR UPDATE NOWAIT;
1148:
1149: l_api_version CONSTANT NUMBER := 1;
1150: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
1162: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1163: RAISE OKC_API.G_EXCEPTION_ERROR;
1164: END IF;
1165: BEGIN
1166: OPEN lock_csr(p_okc_classes_tl_rec);
1167: FETCH lock_csr INTO l_lock_var;
1168: l_row_notfound := lock_csr%NOTFOUND;
1169: CLOSE lock_csr;
1170: EXCEPTION
1227: l_api_version CONSTANT NUMBER := 1;
1228: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1229: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1230: l_cls_rec cls_rec_type;
1231: l_okc_classes_tl_rec okc_classes_tl_rec_type;
1232: BEGIN
1233: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1234: G_PKG_NAME,
1235: p_init_msg_list,
1245: --------------------------------------
1246: -- Move VIEW record to "Child" records
1247: --------------------------------------
1248: migrate(p_clsv_rec, l_cls_rec);
1249: migrate(p_clsv_rec, l_okc_classes_tl_rec);
1250: --------------------------------------------
1251: -- Call the LOCK_ROW for each child record
1252: --------------------------------------------
1253: lock_row(
1266: p_init_msg_list,
1267: x_return_status,
1268: x_msg_count,
1269: x_msg_data,
1270: l_okc_classes_tl_rec
1271: );
1272: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1273: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1274: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1535: '_PVT'
1536: );
1537: END update_row;
1538: -----------------------------------
1539: -- update_row for:OKC_CLASSES_TL --
1540: -----------------------------------
1541: PROCEDURE update_row(
1542: p_init_msg_list IN VARCHAR2 ,
1543: x_return_status OUT NOCOPY VARCHAR2,
1542: p_init_msg_list IN VARCHAR2 ,
1543: x_return_status OUT NOCOPY VARCHAR2,
1544: x_msg_count OUT NOCOPY NUMBER,
1545: x_msg_data OUT NOCOPY VARCHAR2,
1546: p_okc_classes_tl_rec IN okc_classes_tl_rec_type,
1547: x_okc_classes_tl_rec OUT NOCOPY okc_classes_tl_rec_type) IS
1548:
1549: l_api_version CONSTANT NUMBER := 1;
1550: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
1543: x_return_status OUT NOCOPY VARCHAR2,
1544: x_msg_count OUT NOCOPY NUMBER,
1545: x_msg_data OUT NOCOPY VARCHAR2,
1546: p_okc_classes_tl_rec IN okc_classes_tl_rec_type,
1547: x_okc_classes_tl_rec OUT NOCOPY okc_classes_tl_rec_type) IS
1548:
1549: l_api_version CONSTANT NUMBER := 1;
1550: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
1551: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1548:
1549: l_api_version CONSTANT NUMBER := 1;
1550: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
1551: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1552: l_okc_classes_tl_rec okc_classes_tl_rec_type := p_okc_classes_tl_rec;
1553: l_def_okc_classes_tl_rec okc_classes_tl_rec_type;
1554: l_row_notfound BOOLEAN := TRUE;
1555: ----------------------------------
1556: -- FUNCTION populate_new_record --
1549: l_api_version CONSTANT NUMBER := 1;
1550: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
1551: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1552: l_okc_classes_tl_rec okc_classes_tl_rec_type := p_okc_classes_tl_rec;
1553: l_def_okc_classes_tl_rec okc_classes_tl_rec_type;
1554: l_row_notfound BOOLEAN := TRUE;
1555: ----------------------------------
1556: -- FUNCTION populate_new_record --
1557: ----------------------------------
1555: ----------------------------------
1556: -- FUNCTION populate_new_record --
1557: ----------------------------------
1558: FUNCTION populate_new_record (
1559: p_okc_classes_tl_rec IN okc_classes_tl_rec_type,
1560: x_okc_classes_tl_rec OUT NOCOPY okc_classes_tl_rec_type
1561: ) RETURN VARCHAR2 IS
1562: l_okc_classes_tl_rec okc_classes_tl_rec_type;
1563: l_row_notfound BOOLEAN := TRUE;
1556: -- FUNCTION populate_new_record --
1557: ----------------------------------
1558: FUNCTION populate_new_record (
1559: p_okc_classes_tl_rec IN okc_classes_tl_rec_type,
1560: x_okc_classes_tl_rec OUT NOCOPY okc_classes_tl_rec_type
1561: ) RETURN VARCHAR2 IS
1562: l_okc_classes_tl_rec okc_classes_tl_rec_type;
1563: l_row_notfound BOOLEAN := TRUE;
1564: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1558: FUNCTION populate_new_record (
1559: p_okc_classes_tl_rec IN okc_classes_tl_rec_type,
1560: x_okc_classes_tl_rec OUT NOCOPY okc_classes_tl_rec_type
1561: ) RETURN VARCHAR2 IS
1562: l_okc_classes_tl_rec okc_classes_tl_rec_type;
1563: l_row_notfound BOOLEAN := TRUE;
1564: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1565: BEGIN
1566: x_okc_classes_tl_rec := p_okc_classes_tl_rec;
1562: l_okc_classes_tl_rec okc_classes_tl_rec_type;
1563: l_row_notfound BOOLEAN := TRUE;
1564: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1565: BEGIN
1566: x_okc_classes_tl_rec := p_okc_classes_tl_rec;
1567: -- Get current database values
1568: l_okc_classes_tl_rec := get_rec(p_okc_classes_tl_rec, l_row_notfound);
1569: IF (l_row_notfound) THEN
1570: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1564: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1565: BEGIN
1566: x_okc_classes_tl_rec := p_okc_classes_tl_rec;
1567: -- Get current database values
1568: l_okc_classes_tl_rec := get_rec(p_okc_classes_tl_rec, l_row_notfound);
1569: IF (l_row_notfound) THEN
1570: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1571: END IF;
1572: IF (x_okc_classes_tl_rec.code = OKC_API.G_MISS_CHAR)
1568: l_okc_classes_tl_rec := get_rec(p_okc_classes_tl_rec, l_row_notfound);
1569: IF (l_row_notfound) THEN
1570: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1571: END IF;
1572: IF (x_okc_classes_tl_rec.code = OKC_API.G_MISS_CHAR)
1573: THEN
1574: x_okc_classes_tl_rec.code := l_okc_classes_tl_rec.code;
1575: END IF;
1576: IF (x_okc_classes_tl_rec.language = OKC_API.G_MISS_CHAR)
1570: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1571: END IF;
1572: IF (x_okc_classes_tl_rec.code = OKC_API.G_MISS_CHAR)
1573: THEN
1574: x_okc_classes_tl_rec.code := l_okc_classes_tl_rec.code;
1575: END IF;
1576: IF (x_okc_classes_tl_rec.language = OKC_API.G_MISS_CHAR)
1577: THEN
1578: x_okc_classes_tl_rec.language := l_okc_classes_tl_rec.language;
1572: IF (x_okc_classes_tl_rec.code = OKC_API.G_MISS_CHAR)
1573: THEN
1574: x_okc_classes_tl_rec.code := l_okc_classes_tl_rec.code;
1575: END IF;
1576: IF (x_okc_classes_tl_rec.language = OKC_API.G_MISS_CHAR)
1577: THEN
1578: x_okc_classes_tl_rec.language := l_okc_classes_tl_rec.language;
1579: END IF;
1580: IF (x_okc_classes_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
1574: x_okc_classes_tl_rec.code := l_okc_classes_tl_rec.code;
1575: END IF;
1576: IF (x_okc_classes_tl_rec.language = OKC_API.G_MISS_CHAR)
1577: THEN
1578: x_okc_classes_tl_rec.language := l_okc_classes_tl_rec.language;
1579: END IF;
1580: IF (x_okc_classes_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
1581: THEN
1582: x_okc_classes_tl_rec.source_lang := l_okc_classes_tl_rec.source_lang;
1576: IF (x_okc_classes_tl_rec.language = OKC_API.G_MISS_CHAR)
1577: THEN
1578: x_okc_classes_tl_rec.language := l_okc_classes_tl_rec.language;
1579: END IF;
1580: IF (x_okc_classes_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
1581: THEN
1582: x_okc_classes_tl_rec.source_lang := l_okc_classes_tl_rec.source_lang;
1583: END IF;
1584: IF (x_okc_classes_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
1578: x_okc_classes_tl_rec.language := l_okc_classes_tl_rec.language;
1579: END IF;
1580: IF (x_okc_classes_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
1581: THEN
1582: x_okc_classes_tl_rec.source_lang := l_okc_classes_tl_rec.source_lang;
1583: END IF;
1584: IF (x_okc_classes_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
1585: THEN
1586: x_okc_classes_tl_rec.sfwt_flag := l_okc_classes_tl_rec.sfwt_flag;
1580: IF (x_okc_classes_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
1581: THEN
1582: x_okc_classes_tl_rec.source_lang := l_okc_classes_tl_rec.source_lang;
1583: END IF;
1584: IF (x_okc_classes_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
1585: THEN
1586: x_okc_classes_tl_rec.sfwt_flag := l_okc_classes_tl_rec.sfwt_flag;
1587: END IF;
1588: IF (x_okc_classes_tl_rec.meaning = OKC_API.G_MISS_CHAR)
1582: x_okc_classes_tl_rec.source_lang := l_okc_classes_tl_rec.source_lang;
1583: END IF;
1584: IF (x_okc_classes_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
1585: THEN
1586: x_okc_classes_tl_rec.sfwt_flag := l_okc_classes_tl_rec.sfwt_flag;
1587: END IF;
1588: IF (x_okc_classes_tl_rec.meaning = OKC_API.G_MISS_CHAR)
1589: THEN
1590: x_okc_classes_tl_rec.meaning := l_okc_classes_tl_rec.meaning;
1584: IF (x_okc_classes_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
1585: THEN
1586: x_okc_classes_tl_rec.sfwt_flag := l_okc_classes_tl_rec.sfwt_flag;
1587: END IF;
1588: IF (x_okc_classes_tl_rec.meaning = OKC_API.G_MISS_CHAR)
1589: THEN
1590: x_okc_classes_tl_rec.meaning := l_okc_classes_tl_rec.meaning;
1591: END IF;
1592: IF (x_okc_classes_tl_rec.description = OKC_API.G_MISS_CHAR)
1586: x_okc_classes_tl_rec.sfwt_flag := l_okc_classes_tl_rec.sfwt_flag;
1587: END IF;
1588: IF (x_okc_classes_tl_rec.meaning = OKC_API.G_MISS_CHAR)
1589: THEN
1590: x_okc_classes_tl_rec.meaning := l_okc_classes_tl_rec.meaning;
1591: END IF;
1592: IF (x_okc_classes_tl_rec.description = OKC_API.G_MISS_CHAR)
1593: THEN
1594: x_okc_classes_tl_rec.description := l_okc_classes_tl_rec.description;
1588: IF (x_okc_classes_tl_rec.meaning = OKC_API.G_MISS_CHAR)
1589: THEN
1590: x_okc_classes_tl_rec.meaning := l_okc_classes_tl_rec.meaning;
1591: END IF;
1592: IF (x_okc_classes_tl_rec.description = OKC_API.G_MISS_CHAR)
1593: THEN
1594: x_okc_classes_tl_rec.description := l_okc_classes_tl_rec.description;
1595: END IF;
1596: IF (x_okc_classes_tl_rec.created_by = OKC_API.G_MISS_NUM)
1590: x_okc_classes_tl_rec.meaning := l_okc_classes_tl_rec.meaning;
1591: END IF;
1592: IF (x_okc_classes_tl_rec.description = OKC_API.G_MISS_CHAR)
1593: THEN
1594: x_okc_classes_tl_rec.description := l_okc_classes_tl_rec.description;
1595: END IF;
1596: IF (x_okc_classes_tl_rec.created_by = OKC_API.G_MISS_NUM)
1597: THEN
1598: x_okc_classes_tl_rec.created_by := l_okc_classes_tl_rec.created_by;
1592: IF (x_okc_classes_tl_rec.description = OKC_API.G_MISS_CHAR)
1593: THEN
1594: x_okc_classes_tl_rec.description := l_okc_classes_tl_rec.description;
1595: END IF;
1596: IF (x_okc_classes_tl_rec.created_by = OKC_API.G_MISS_NUM)
1597: THEN
1598: x_okc_classes_tl_rec.created_by := l_okc_classes_tl_rec.created_by;
1599: END IF;
1600: IF (x_okc_classes_tl_rec.creation_date = OKC_API.G_MISS_DATE)
1594: x_okc_classes_tl_rec.description := l_okc_classes_tl_rec.description;
1595: END IF;
1596: IF (x_okc_classes_tl_rec.created_by = OKC_API.G_MISS_NUM)
1597: THEN
1598: x_okc_classes_tl_rec.created_by := l_okc_classes_tl_rec.created_by;
1599: END IF;
1600: IF (x_okc_classes_tl_rec.creation_date = OKC_API.G_MISS_DATE)
1601: THEN
1602: x_okc_classes_tl_rec.creation_date := l_okc_classes_tl_rec.creation_date;
1596: IF (x_okc_classes_tl_rec.created_by = OKC_API.G_MISS_NUM)
1597: THEN
1598: x_okc_classes_tl_rec.created_by := l_okc_classes_tl_rec.created_by;
1599: END IF;
1600: IF (x_okc_classes_tl_rec.creation_date = OKC_API.G_MISS_DATE)
1601: THEN
1602: x_okc_classes_tl_rec.creation_date := l_okc_classes_tl_rec.creation_date;
1603: END IF;
1604: IF (x_okc_classes_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
1598: x_okc_classes_tl_rec.created_by := l_okc_classes_tl_rec.created_by;
1599: END IF;
1600: IF (x_okc_classes_tl_rec.creation_date = OKC_API.G_MISS_DATE)
1601: THEN
1602: x_okc_classes_tl_rec.creation_date := l_okc_classes_tl_rec.creation_date;
1603: END IF;
1604: IF (x_okc_classes_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
1605: THEN
1606: x_okc_classes_tl_rec.last_updated_by := l_okc_classes_tl_rec.last_updated_by;
1600: IF (x_okc_classes_tl_rec.creation_date = OKC_API.G_MISS_DATE)
1601: THEN
1602: x_okc_classes_tl_rec.creation_date := l_okc_classes_tl_rec.creation_date;
1603: END IF;
1604: IF (x_okc_classes_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
1605: THEN
1606: x_okc_classes_tl_rec.last_updated_by := l_okc_classes_tl_rec.last_updated_by;
1607: END IF;
1608: IF (x_okc_classes_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
1602: x_okc_classes_tl_rec.creation_date := l_okc_classes_tl_rec.creation_date;
1603: END IF;
1604: IF (x_okc_classes_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
1605: THEN
1606: x_okc_classes_tl_rec.last_updated_by := l_okc_classes_tl_rec.last_updated_by;
1607: END IF;
1608: IF (x_okc_classes_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
1609: THEN
1610: x_okc_classes_tl_rec.last_update_date := l_okc_classes_tl_rec.last_update_date;
1604: IF (x_okc_classes_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
1605: THEN
1606: x_okc_classes_tl_rec.last_updated_by := l_okc_classes_tl_rec.last_updated_by;
1607: END IF;
1608: IF (x_okc_classes_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
1609: THEN
1610: x_okc_classes_tl_rec.last_update_date := l_okc_classes_tl_rec.last_update_date;
1611: END IF;
1612: IF (x_okc_classes_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
1606: x_okc_classes_tl_rec.last_updated_by := l_okc_classes_tl_rec.last_updated_by;
1607: END IF;
1608: IF (x_okc_classes_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
1609: THEN
1610: x_okc_classes_tl_rec.last_update_date := l_okc_classes_tl_rec.last_update_date;
1611: END IF;
1612: IF (x_okc_classes_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
1613: THEN
1614: x_okc_classes_tl_rec.last_update_login := l_okc_classes_tl_rec.last_update_login;
1608: IF (x_okc_classes_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
1609: THEN
1610: x_okc_classes_tl_rec.last_update_date := l_okc_classes_tl_rec.last_update_date;
1611: END IF;
1612: IF (x_okc_classes_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
1613: THEN
1614: x_okc_classes_tl_rec.last_update_login := l_okc_classes_tl_rec.last_update_login;
1615: END IF;
1616: RETURN(l_return_status);
1610: x_okc_classes_tl_rec.last_update_date := l_okc_classes_tl_rec.last_update_date;
1611: END IF;
1612: IF (x_okc_classes_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
1613: THEN
1614: x_okc_classes_tl_rec.last_update_login := l_okc_classes_tl_rec.last_update_login;
1615: END IF;
1616: RETURN(l_return_status);
1617: END populate_new_record;
1618: ---------------------------------------
1615: END IF;
1616: RETURN(l_return_status);
1617: END populate_new_record;
1618: ---------------------------------------
1619: -- Set_Attributes for:OKC_CLASSES_TL --
1620: ---------------------------------------
1621: FUNCTION Set_Attributes (
1622: p_okc_classes_tl_rec IN okc_classes_tl_rec_type,
1623: x_okc_classes_tl_rec OUT NOCOPY okc_classes_tl_rec_type
1618: ---------------------------------------
1619: -- Set_Attributes for:OKC_CLASSES_TL --
1620: ---------------------------------------
1621: FUNCTION Set_Attributes (
1622: p_okc_classes_tl_rec IN okc_classes_tl_rec_type,
1623: x_okc_classes_tl_rec OUT NOCOPY okc_classes_tl_rec_type
1624: ) RETURN VARCHAR2 IS
1625: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1626: BEGIN
1619: -- Set_Attributes for:OKC_CLASSES_TL --
1620: ---------------------------------------
1621: FUNCTION Set_Attributes (
1622: p_okc_classes_tl_rec IN okc_classes_tl_rec_type,
1623: x_okc_classes_tl_rec OUT NOCOPY okc_classes_tl_rec_type
1624: ) RETURN VARCHAR2 IS
1625: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1626: BEGIN
1627: x_okc_classes_tl_rec := p_okc_classes_tl_rec;
1623: x_okc_classes_tl_rec OUT NOCOPY okc_classes_tl_rec_type
1624: ) RETURN VARCHAR2 IS
1625: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1626: BEGIN
1627: x_okc_classes_tl_rec := p_okc_classes_tl_rec;
1628: x_okc_classes_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
1629: x_okc_classes_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
1630: RETURN(l_return_status);
1631: END Set_Attributes;
1624: ) RETURN VARCHAR2 IS
1625: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1626: BEGIN
1627: x_okc_classes_tl_rec := p_okc_classes_tl_rec;
1628: x_okc_classes_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
1629: x_okc_classes_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
1630: RETURN(l_return_status);
1631: END Set_Attributes;
1632: BEGIN
1625: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1626: BEGIN
1627: x_okc_classes_tl_rec := p_okc_classes_tl_rec;
1628: x_okc_classes_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
1629: x_okc_classes_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
1630: RETURN(l_return_status);
1631: END Set_Attributes;
1632: BEGIN
1633: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1640: RAISE OKC_API.G_EXCEPTION_ERROR;
1641: END IF;
1642: --- Setting item attributes
1643: l_return_status := Set_Attributes(
1644: p_okc_classes_tl_rec, -- IN
1645: l_okc_classes_tl_rec); -- OUT
1646: --- If any errors happen abort API
1647: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1648: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1641: END IF;
1642: --- Setting item attributes
1643: l_return_status := Set_Attributes(
1644: p_okc_classes_tl_rec, -- IN
1645: l_okc_classes_tl_rec); -- OUT
1646: --- If any errors happen abort API
1647: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1648: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1649: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1648: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1649: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1650: RAISE OKC_API.G_EXCEPTION_ERROR;
1651: END IF;
1652: l_return_status := populate_new_record(l_okc_classes_tl_rec, l_def_okc_classes_tl_rec);
1653: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1654: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1655: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1656: RAISE OKC_API.G_EXCEPTION_ERROR;
1654: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1655: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1656: RAISE OKC_API.G_EXCEPTION_ERROR;
1657: END IF;
1658: UPDATE OKC_CLASSES_TL
1659: SET MEANING = l_def_okc_classes_tl_rec.meaning,
1660: DESCRIPTION = l_def_okc_classes_tl_rec.description,
1661: CREATED_BY = l_def_okc_classes_tl_rec.created_by,
1662: CREATION_DATE = l_def_okc_classes_tl_rec.creation_date,
1655: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1656: RAISE OKC_API.G_EXCEPTION_ERROR;
1657: END IF;
1658: UPDATE OKC_CLASSES_TL
1659: SET MEANING = l_def_okc_classes_tl_rec.meaning,
1660: DESCRIPTION = l_def_okc_classes_tl_rec.description,
1661: CREATED_BY = l_def_okc_classes_tl_rec.created_by,
1662: CREATION_DATE = l_def_okc_classes_tl_rec.creation_date,
1663: LAST_UPDATED_BY = l_def_okc_classes_tl_rec.last_updated_by,
1656: RAISE OKC_API.G_EXCEPTION_ERROR;
1657: END IF;
1658: UPDATE OKC_CLASSES_TL
1659: SET MEANING = l_def_okc_classes_tl_rec.meaning,
1660: DESCRIPTION = l_def_okc_classes_tl_rec.description,
1661: CREATED_BY = l_def_okc_classes_tl_rec.created_by,
1662: CREATION_DATE = l_def_okc_classes_tl_rec.creation_date,
1663: LAST_UPDATED_BY = l_def_okc_classes_tl_rec.last_updated_by,
1664: LAST_UPDATE_DATE = l_def_okc_classes_tl_rec.last_update_date,
1657: END IF;
1658: UPDATE OKC_CLASSES_TL
1659: SET MEANING = l_def_okc_classes_tl_rec.meaning,
1660: DESCRIPTION = l_def_okc_classes_tl_rec.description,
1661: CREATED_BY = l_def_okc_classes_tl_rec.created_by,
1662: CREATION_DATE = l_def_okc_classes_tl_rec.creation_date,
1663: LAST_UPDATED_BY = l_def_okc_classes_tl_rec.last_updated_by,
1664: LAST_UPDATE_DATE = l_def_okc_classes_tl_rec.last_update_date,
1665: LAST_UPDATE_LOGIN = l_def_okc_classes_tl_rec.last_update_login
1658: UPDATE OKC_CLASSES_TL
1659: SET MEANING = l_def_okc_classes_tl_rec.meaning,
1660: DESCRIPTION = l_def_okc_classes_tl_rec.description,
1661: CREATED_BY = l_def_okc_classes_tl_rec.created_by,
1662: CREATION_DATE = l_def_okc_classes_tl_rec.creation_date,
1663: LAST_UPDATED_BY = l_def_okc_classes_tl_rec.last_updated_by,
1664: LAST_UPDATE_DATE = l_def_okc_classes_tl_rec.last_update_date,
1665: LAST_UPDATE_LOGIN = l_def_okc_classes_tl_rec.last_update_login
1666: WHERE CODE = l_def_okc_classes_tl_rec.code
1659: SET MEANING = l_def_okc_classes_tl_rec.meaning,
1660: DESCRIPTION = l_def_okc_classes_tl_rec.description,
1661: CREATED_BY = l_def_okc_classes_tl_rec.created_by,
1662: CREATION_DATE = l_def_okc_classes_tl_rec.creation_date,
1663: LAST_UPDATED_BY = l_def_okc_classes_tl_rec.last_updated_by,
1664: LAST_UPDATE_DATE = l_def_okc_classes_tl_rec.last_update_date,
1665: LAST_UPDATE_LOGIN = l_def_okc_classes_tl_rec.last_update_login
1666: WHERE CODE = l_def_okc_classes_tl_rec.code
1667: AND SOURCE_LANG = USERENV('LANG');
1660: DESCRIPTION = l_def_okc_classes_tl_rec.description,
1661: CREATED_BY = l_def_okc_classes_tl_rec.created_by,
1662: CREATION_DATE = l_def_okc_classes_tl_rec.creation_date,
1663: LAST_UPDATED_BY = l_def_okc_classes_tl_rec.last_updated_by,
1664: LAST_UPDATE_DATE = l_def_okc_classes_tl_rec.last_update_date,
1665: LAST_UPDATE_LOGIN = l_def_okc_classes_tl_rec.last_update_login
1666: WHERE CODE = l_def_okc_classes_tl_rec.code
1667: AND SOURCE_LANG = USERENV('LANG');
1668:
1661: CREATED_BY = l_def_okc_classes_tl_rec.created_by,
1662: CREATION_DATE = l_def_okc_classes_tl_rec.creation_date,
1663: LAST_UPDATED_BY = l_def_okc_classes_tl_rec.last_updated_by,
1664: LAST_UPDATE_DATE = l_def_okc_classes_tl_rec.last_update_date,
1665: LAST_UPDATE_LOGIN = l_def_okc_classes_tl_rec.last_update_login
1666: WHERE CODE = l_def_okc_classes_tl_rec.code
1667: AND SOURCE_LANG = USERENV('LANG');
1668:
1669: UPDATE OKC_CLASSES_TL
1662: CREATION_DATE = l_def_okc_classes_tl_rec.creation_date,
1663: LAST_UPDATED_BY = l_def_okc_classes_tl_rec.last_updated_by,
1664: LAST_UPDATE_DATE = l_def_okc_classes_tl_rec.last_update_date,
1665: LAST_UPDATE_LOGIN = l_def_okc_classes_tl_rec.last_update_login
1666: WHERE CODE = l_def_okc_classes_tl_rec.code
1667: AND SOURCE_LANG = USERENV('LANG');
1668:
1669: UPDATE OKC_CLASSES_TL
1670: SET SFWT_FLAG = 'Y'
1665: LAST_UPDATE_LOGIN = l_def_okc_classes_tl_rec.last_update_login
1666: WHERE CODE = l_def_okc_classes_tl_rec.code
1667: AND SOURCE_LANG = USERENV('LANG');
1668:
1669: UPDATE OKC_CLASSES_TL
1670: SET SFWT_FLAG = 'Y'
1671: WHERE CODE = l_def_okc_classes_tl_rec.code
1672: AND SOURCE_LANG <> USERENV('LANG');
1673:
1667: AND SOURCE_LANG = USERENV('LANG');
1668:
1669: UPDATE OKC_CLASSES_TL
1670: SET SFWT_FLAG = 'Y'
1671: WHERE CODE = l_def_okc_classes_tl_rec.code
1672: AND SOURCE_LANG <> USERENV('LANG');
1673:
1674: x_okc_classes_tl_rec := l_def_okc_classes_tl_rec;
1675: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1670: SET SFWT_FLAG = 'Y'
1671: WHERE CODE = l_def_okc_classes_tl_rec.code
1672: AND SOURCE_LANG <> USERENV('LANG');
1673:
1674: x_okc_classes_tl_rec := l_def_okc_classes_tl_rec;
1675: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1676: EXCEPTION
1677: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1678: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1721: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
1722: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1723: l_clsv_rec clsv_rec_type := p_clsv_rec;
1724: l_def_clsv_rec clsv_rec_type;
1725: l_okc_classes_tl_rec okc_classes_tl_rec_type;
1726: lx_okc_classes_tl_rec okc_classes_tl_rec_type;
1727: l_cls_rec cls_rec_type;
1728: lx_cls_rec cls_rec_type;
1729: -------------------------------
1722: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1723: l_clsv_rec clsv_rec_type := p_clsv_rec;
1724: l_def_clsv_rec clsv_rec_type;
1725: l_okc_classes_tl_rec okc_classes_tl_rec_type;
1726: lx_okc_classes_tl_rec okc_classes_tl_rec_type;
1727: l_cls_rec cls_rec_type;
1728: lx_cls_rec cls_rec_type;
1729: -------------------------------
1730: -- FUNCTION fill_who_columns --
1870:
1871: --------------------------------------
1872: -- Move VIEW record to "Child" records
1873: --------------------------------------
1874: migrate(l_def_clsv_rec, l_okc_classes_tl_rec);
1875: migrate(l_def_clsv_rec, l_cls_rec);
1876: --------------------------------------------
1877: -- Call the UPDATE_ROW for each child record
1878: --------------------------------------------
1880: p_init_msg_list,
1881: x_return_status,
1882: x_msg_count,
1883: x_msg_data,
1884: l_okc_classes_tl_rec,
1885: lx_okc_classes_tl_rec
1886: );
1887: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1888: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1881: x_return_status,
1882: x_msg_count,
1883: x_msg_data,
1884: l_okc_classes_tl_rec,
1885: lx_okc_classes_tl_rec
1886: );
1887: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1888: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1889: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1888: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1889: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1890: RAISE OKC_API.G_EXCEPTION_ERROR;
1891: END IF;
1892: migrate(lx_okc_classes_tl_rec, l_def_clsv_rec);
1893: update_row(
1894: p_init_msg_list,
1895: x_return_status,
1896: x_msg_count,
2069: '_PVT'
2070: );
2071: END delete_row;
2072: -----------------------------------
2073: -- delete_row for:OKC_CLASSES_TL --
2074: -----------------------------------
2075: PROCEDURE delete_row(
2076: p_init_msg_list IN VARCHAR2 ,
2077: x_return_status OUT NOCOPY VARCHAR2,
2076: p_init_msg_list IN VARCHAR2 ,
2077: x_return_status OUT NOCOPY VARCHAR2,
2078: x_msg_count OUT NOCOPY NUMBER,
2079: x_msg_data OUT NOCOPY VARCHAR2,
2080: p_okc_classes_tl_rec IN okc_classes_tl_rec_type) IS
2081:
2082: l_api_version CONSTANT NUMBER := 1;
2083: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
2084: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2081:
2082: l_api_version CONSTANT NUMBER := 1;
2083: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
2084: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2085: l_okc_classes_tl_rec okc_classes_tl_rec_type:= p_okc_classes_tl_rec;
2086: l_row_notfound BOOLEAN := TRUE;
2087: ---------------------------------------
2088: -- Set_Attributes for:OKC_CLASSES_TL --
2089: ---------------------------------------
2084: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2085: l_okc_classes_tl_rec okc_classes_tl_rec_type:= p_okc_classes_tl_rec;
2086: l_row_notfound BOOLEAN := TRUE;
2087: ---------------------------------------
2088: -- Set_Attributes for:OKC_CLASSES_TL --
2089: ---------------------------------------
2090: FUNCTION Set_Attributes (
2091: p_okc_classes_tl_rec IN okc_classes_tl_rec_type,
2092: x_okc_classes_tl_rec OUT NOCOPY okc_classes_tl_rec_type
2087: ---------------------------------------
2088: -- Set_Attributes for:OKC_CLASSES_TL --
2089: ---------------------------------------
2090: FUNCTION Set_Attributes (
2091: p_okc_classes_tl_rec IN okc_classes_tl_rec_type,
2092: x_okc_classes_tl_rec OUT NOCOPY okc_classes_tl_rec_type
2093: ) RETURN VARCHAR2 IS
2094: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2095: BEGIN
2088: -- Set_Attributes for:OKC_CLASSES_TL --
2089: ---------------------------------------
2090: FUNCTION Set_Attributes (
2091: p_okc_classes_tl_rec IN okc_classes_tl_rec_type,
2092: x_okc_classes_tl_rec OUT NOCOPY okc_classes_tl_rec_type
2093: ) RETURN VARCHAR2 IS
2094: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2095: BEGIN
2096: x_okc_classes_tl_rec := p_okc_classes_tl_rec;
2092: x_okc_classes_tl_rec OUT NOCOPY okc_classes_tl_rec_type
2093: ) RETURN VARCHAR2 IS
2094: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2095: BEGIN
2096: x_okc_classes_tl_rec := p_okc_classes_tl_rec;
2097: x_okc_classes_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2098: RETURN(l_return_status);
2099: END Set_Attributes;
2100: BEGIN
2093: ) RETURN VARCHAR2 IS
2094: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2095: BEGIN
2096: x_okc_classes_tl_rec := p_okc_classes_tl_rec;
2097: x_okc_classes_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2098: RETURN(l_return_status);
2099: END Set_Attributes;
2100: BEGIN
2101: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2108: RAISE OKC_API.G_EXCEPTION_ERROR;
2109: END IF;
2110: --- Setting item attributes
2111: l_return_status := Set_Attributes(
2112: p_okc_classes_tl_rec, -- IN
2113: l_okc_classes_tl_rec); -- OUT
2114: --- If any errors happen abort API
2115: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2116: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2109: END IF;
2110: --- Setting item attributes
2111: l_return_status := Set_Attributes(
2112: p_okc_classes_tl_rec, -- IN
2113: l_okc_classes_tl_rec); -- OUT
2114: --- If any errors happen abort API
2115: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2116: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2117: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2116: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2117: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2118: RAISE OKC_API.G_EXCEPTION_ERROR;
2119: END IF;
2120: DELETE FROM OKC_CLASSES_TL
2121: WHERE CODE = l_okc_classes_tl_rec.code;
2122:
2123: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2124: EXCEPTION
2117: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2118: RAISE OKC_API.G_EXCEPTION_ERROR;
2119: END IF;
2120: DELETE FROM OKC_CLASSES_TL
2121: WHERE CODE = l_okc_classes_tl_rec.code;
2122:
2123: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2124: EXCEPTION
2125: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2167: l_api_version CONSTANT NUMBER := 1;
2168: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2169: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2170: l_clsv_rec clsv_rec_type := p_clsv_rec;
2171: l_okc_classes_tl_rec okc_classes_tl_rec_type;
2172: l_cls_rec cls_rec_type;
2173: BEGIN
2174: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2175: G_PKG_NAME,
2185: END IF;
2186: --------------------------------------
2187: -- Move VIEW record to "Child" records
2188: --------------------------------------
2189: migrate(l_clsv_rec, l_okc_classes_tl_rec);
2190: migrate(l_clsv_rec, l_cls_rec);
2191: --------------------------------------------
2192: -- Call the DELETE_ROW for each child record
2193: --------------------------------------------
2195: p_init_msg_list,
2196: x_return_status,
2197: x_msg_count,
2198: x_msg_data,
2199: l_okc_classes_tl_rec
2200: );
2201: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2202: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2203: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN