38: -- PROCEDURE add_language
39: ---------------------------------------------------------------------------
40: PROCEDURE add_language IS
41: BEGIN
42: DELETE FROM OKC_OPERATIONS_TL T
43: WHERE NOT EXISTS (
44: SELECT NULL
45: FROM OKC_OPERATIONS_B B
46: WHERE B.CODE = T.CODE
45: FROM OKC_OPERATIONS_B B
46: WHERE B.CODE = T.CODE
47: );
48:
49: UPDATE OKC_OPERATIONS_TL T SET (
50: MEANING,
51: DESCRIPTION,
52: OPN_TYPE) = (SELECT
53: B.MEANING,
52: OPN_TYPE) = (SELECT
53: B.MEANING,
54: B.DESCRIPTION,
55: B.OPN_TYPE
56: FROM OKC_OPERATIONS_TL B
57: WHERE B.CODE = T.CODE
58: AND B.LANGUAGE = T.SOURCE_LANG)
59: WHERE (
60: T.CODE,
61: T.LANGUAGE)
62: IN (SELECT
63: SUBT.CODE,
64: SUBT.LANGUAGE
65: FROM OKC_OPERATIONS_TL SUBB, OKC_OPERATIONS_TL SUBT
66: WHERE SUBB.CODE = SUBT.CODE
67: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
68: AND (SUBB.MEANING <> SUBT.MEANING
69: OR SUBB.DESCRIPTION <> SUBT.DESCRIPTION
71: OR (SUBB.DESCRIPTION IS NULL AND SUBT.DESCRIPTION IS NOT NULL)
72: OR (SUBB.DESCRIPTION IS NOT NULL AND SUBT.DESCRIPTION IS NULL)
73: ));
74:
75: INSERT INTO OKC_OPERATIONS_TL (
76: CODE,
77: LANGUAGE,
78: SOURCE_LANG,
79: SFWT_FLAG,
97: B.CREATION_DATE,
98: B.LAST_UPDATED_BY,
99: B.LAST_UPDATE_DATE,
100: B.LAST_UPDATE_LOGIN
101: FROM OKC_OPERATIONS_TL B, FND_LANGUAGES L
102: WHERE L.INSTALLED_FLAG IN ('I', 'B')
103: AND B.LANGUAGE = USERENV('LANG')
104: AND NOT EXISTS(
105: SELECT NULL
102: WHERE L.INSTALLED_FLAG IN ('I', 'B')
103: AND B.LANGUAGE = USERENV('LANG')
104: AND NOT EXISTS(
105: SELECT NULL
106: FROM OKC_OPERATIONS_TL T
107: WHERE T.CODE = B.CODE
108: AND T.LANGUAGE = L.LANGUAGE_CODE
109: );
110:
158: BEGIN
159: RETURN(get_rec(p_opn_rec, l_row_notfound));
160: END get_rec;
161: ---------------------------------------------------------------------------
162: -- FUNCTION get_rec for: OKC_OPERATIONS_TL
163: ---------------------------------------------------------------------------
164: FUNCTION get_rec (
165: p_okc_operations_tl_rec IN okc_operations_tl_rec_type,
166: x_no_data_found OUT NOCOPY BOOLEAN
161: ---------------------------------------------------------------------------
162: -- FUNCTION get_rec for: OKC_OPERATIONS_TL
163: ---------------------------------------------------------------------------
164: FUNCTION get_rec (
165: p_okc_operations_tl_rec IN okc_operations_tl_rec_type,
166: x_no_data_found OUT NOCOPY BOOLEAN
167: ) RETURN okc_operations_tl_rec_type IS
168: CURSOR okc_operations_tl_pk_csr (p_code IN VARCHAR2,
169: p_language IN VARCHAR2) IS
163: ---------------------------------------------------------------------------
164: FUNCTION get_rec (
165: p_okc_operations_tl_rec IN okc_operations_tl_rec_type,
166: x_no_data_found OUT NOCOPY BOOLEAN
167: ) RETURN okc_operations_tl_rec_type IS
168: CURSOR okc_operations_tl_pk_csr (p_code IN VARCHAR2,
169: p_language IN VARCHAR2) IS
170: SELECT
171: CODE,
164: FUNCTION get_rec (
165: p_okc_operations_tl_rec IN okc_operations_tl_rec_type,
166: x_no_data_found OUT NOCOPY BOOLEAN
167: ) RETURN okc_operations_tl_rec_type IS
168: CURSOR okc_operations_tl_pk_csr (p_code IN VARCHAR2,
169: p_language IN VARCHAR2) IS
170: SELECT
171: CODE,
172: LANGUAGE,
179: CREATION_DATE,
180: LAST_UPDATED_BY,
181: LAST_UPDATE_DATE,
182: LAST_UPDATE_LOGIN
183: FROM Okc_Operations_Tl
184: WHERE okc_operations_tl.code = p_code
185: AND okc_operations_tl.language = p_language;
186: l_okc_operations_tl_pk okc_operations_tl_pk_csr%ROWTYPE;
187: l_okc_operations_tl_rec okc_operations_tl_rec_type;
180: LAST_UPDATED_BY,
181: LAST_UPDATE_DATE,
182: LAST_UPDATE_LOGIN
183: FROM Okc_Operations_Tl
184: WHERE okc_operations_tl.code = p_code
185: AND okc_operations_tl.language = p_language;
186: l_okc_operations_tl_pk okc_operations_tl_pk_csr%ROWTYPE;
187: l_okc_operations_tl_rec okc_operations_tl_rec_type;
188: BEGIN
181: LAST_UPDATE_DATE,
182: LAST_UPDATE_LOGIN
183: FROM Okc_Operations_Tl
184: WHERE okc_operations_tl.code = p_code
185: AND okc_operations_tl.language = p_language;
186: l_okc_operations_tl_pk okc_operations_tl_pk_csr%ROWTYPE;
187: l_okc_operations_tl_rec okc_operations_tl_rec_type;
188: BEGIN
189: x_no_data_found := TRUE;
182: LAST_UPDATE_LOGIN
183: FROM Okc_Operations_Tl
184: WHERE okc_operations_tl.code = p_code
185: AND okc_operations_tl.language = p_language;
186: l_okc_operations_tl_pk okc_operations_tl_pk_csr%ROWTYPE;
187: l_okc_operations_tl_rec okc_operations_tl_rec_type;
188: BEGIN
189: x_no_data_found := TRUE;
190: -- Get current database values
183: FROM Okc_Operations_Tl
184: WHERE okc_operations_tl.code = p_code
185: AND okc_operations_tl.language = p_language;
186: l_okc_operations_tl_pk okc_operations_tl_pk_csr%ROWTYPE;
187: l_okc_operations_tl_rec okc_operations_tl_rec_type;
188: BEGIN
189: x_no_data_found := TRUE;
190: -- Get current database values
191: OPEN okc_operations_tl_pk_csr (p_okc_operations_tl_rec.code,
187: l_okc_operations_tl_rec okc_operations_tl_rec_type;
188: BEGIN
189: x_no_data_found := TRUE;
190: -- Get current database values
191: OPEN okc_operations_tl_pk_csr (p_okc_operations_tl_rec.code,
192: p_okc_operations_tl_rec.language);
193: FETCH okc_operations_tl_pk_csr INTO
194: l_okc_operations_tl_rec.CODE,
195: l_okc_operations_tl_rec.LANGUAGE,
188: BEGIN
189: x_no_data_found := TRUE;
190: -- Get current database values
191: OPEN okc_operations_tl_pk_csr (p_okc_operations_tl_rec.code,
192: p_okc_operations_tl_rec.language);
193: FETCH okc_operations_tl_pk_csr INTO
194: l_okc_operations_tl_rec.CODE,
195: l_okc_operations_tl_rec.LANGUAGE,
196: l_okc_operations_tl_rec.SOURCE_LANG,
189: x_no_data_found := TRUE;
190: -- Get current database values
191: OPEN okc_operations_tl_pk_csr (p_okc_operations_tl_rec.code,
192: p_okc_operations_tl_rec.language);
193: FETCH okc_operations_tl_pk_csr INTO
194: l_okc_operations_tl_rec.CODE,
195: l_okc_operations_tl_rec.LANGUAGE,
196: l_okc_operations_tl_rec.SOURCE_LANG,
197: l_okc_operations_tl_rec.SFWT_FLAG,
190: -- Get current database values
191: OPEN okc_operations_tl_pk_csr (p_okc_operations_tl_rec.code,
192: p_okc_operations_tl_rec.language);
193: FETCH okc_operations_tl_pk_csr INTO
194: l_okc_operations_tl_rec.CODE,
195: l_okc_operations_tl_rec.LANGUAGE,
196: l_okc_operations_tl_rec.SOURCE_LANG,
197: l_okc_operations_tl_rec.SFWT_FLAG,
198: l_okc_operations_tl_rec.MEANING,
191: OPEN okc_operations_tl_pk_csr (p_okc_operations_tl_rec.code,
192: p_okc_operations_tl_rec.language);
193: FETCH okc_operations_tl_pk_csr INTO
194: l_okc_operations_tl_rec.CODE,
195: l_okc_operations_tl_rec.LANGUAGE,
196: l_okc_operations_tl_rec.SOURCE_LANG,
197: l_okc_operations_tl_rec.SFWT_FLAG,
198: l_okc_operations_tl_rec.MEANING,
199: l_okc_operations_tl_rec.DESCRIPTION,
192: p_okc_operations_tl_rec.language);
193: FETCH okc_operations_tl_pk_csr INTO
194: l_okc_operations_tl_rec.CODE,
195: l_okc_operations_tl_rec.LANGUAGE,
196: l_okc_operations_tl_rec.SOURCE_LANG,
197: l_okc_operations_tl_rec.SFWT_FLAG,
198: l_okc_operations_tl_rec.MEANING,
199: l_okc_operations_tl_rec.DESCRIPTION,
200: l_okc_operations_tl_rec.OPN_TYPE,
193: FETCH okc_operations_tl_pk_csr INTO
194: l_okc_operations_tl_rec.CODE,
195: l_okc_operations_tl_rec.LANGUAGE,
196: l_okc_operations_tl_rec.SOURCE_LANG,
197: l_okc_operations_tl_rec.SFWT_FLAG,
198: l_okc_operations_tl_rec.MEANING,
199: l_okc_operations_tl_rec.DESCRIPTION,
200: l_okc_operations_tl_rec.OPN_TYPE,
201: l_okc_operations_tl_rec.CREATED_BY,
194: l_okc_operations_tl_rec.CODE,
195: l_okc_operations_tl_rec.LANGUAGE,
196: l_okc_operations_tl_rec.SOURCE_LANG,
197: l_okc_operations_tl_rec.SFWT_FLAG,
198: l_okc_operations_tl_rec.MEANING,
199: l_okc_operations_tl_rec.DESCRIPTION,
200: l_okc_operations_tl_rec.OPN_TYPE,
201: l_okc_operations_tl_rec.CREATED_BY,
202: l_okc_operations_tl_rec.CREATION_DATE,
195: l_okc_operations_tl_rec.LANGUAGE,
196: l_okc_operations_tl_rec.SOURCE_LANG,
197: l_okc_operations_tl_rec.SFWT_FLAG,
198: l_okc_operations_tl_rec.MEANING,
199: l_okc_operations_tl_rec.DESCRIPTION,
200: l_okc_operations_tl_rec.OPN_TYPE,
201: l_okc_operations_tl_rec.CREATED_BY,
202: l_okc_operations_tl_rec.CREATION_DATE,
203: l_okc_operations_tl_rec.LAST_UPDATED_BY,
196: l_okc_operations_tl_rec.SOURCE_LANG,
197: l_okc_operations_tl_rec.SFWT_FLAG,
198: l_okc_operations_tl_rec.MEANING,
199: l_okc_operations_tl_rec.DESCRIPTION,
200: l_okc_operations_tl_rec.OPN_TYPE,
201: l_okc_operations_tl_rec.CREATED_BY,
202: l_okc_operations_tl_rec.CREATION_DATE,
203: l_okc_operations_tl_rec.LAST_UPDATED_BY,
204: l_okc_operations_tl_rec.LAST_UPDATE_DATE,
197: l_okc_operations_tl_rec.SFWT_FLAG,
198: l_okc_operations_tl_rec.MEANING,
199: l_okc_operations_tl_rec.DESCRIPTION,
200: l_okc_operations_tl_rec.OPN_TYPE,
201: l_okc_operations_tl_rec.CREATED_BY,
202: l_okc_operations_tl_rec.CREATION_DATE,
203: l_okc_operations_tl_rec.LAST_UPDATED_BY,
204: l_okc_operations_tl_rec.LAST_UPDATE_DATE,
205: l_okc_operations_tl_rec.LAST_UPDATE_LOGIN;
198: l_okc_operations_tl_rec.MEANING,
199: l_okc_operations_tl_rec.DESCRIPTION,
200: l_okc_operations_tl_rec.OPN_TYPE,
201: l_okc_operations_tl_rec.CREATED_BY,
202: l_okc_operations_tl_rec.CREATION_DATE,
203: l_okc_operations_tl_rec.LAST_UPDATED_BY,
204: l_okc_operations_tl_rec.LAST_UPDATE_DATE,
205: l_okc_operations_tl_rec.LAST_UPDATE_LOGIN;
206: x_no_data_found := okc_operations_tl_pk_csr%NOTFOUND;
199: l_okc_operations_tl_rec.DESCRIPTION,
200: l_okc_operations_tl_rec.OPN_TYPE,
201: l_okc_operations_tl_rec.CREATED_BY,
202: l_okc_operations_tl_rec.CREATION_DATE,
203: l_okc_operations_tl_rec.LAST_UPDATED_BY,
204: l_okc_operations_tl_rec.LAST_UPDATE_DATE,
205: l_okc_operations_tl_rec.LAST_UPDATE_LOGIN;
206: x_no_data_found := okc_operations_tl_pk_csr%NOTFOUND;
207: CLOSE okc_operations_tl_pk_csr;
200: l_okc_operations_tl_rec.OPN_TYPE,
201: l_okc_operations_tl_rec.CREATED_BY,
202: l_okc_operations_tl_rec.CREATION_DATE,
203: l_okc_operations_tl_rec.LAST_UPDATED_BY,
204: l_okc_operations_tl_rec.LAST_UPDATE_DATE,
205: l_okc_operations_tl_rec.LAST_UPDATE_LOGIN;
206: x_no_data_found := okc_operations_tl_pk_csr%NOTFOUND;
207: CLOSE okc_operations_tl_pk_csr;
208: RETURN(l_okc_operations_tl_rec);
201: l_okc_operations_tl_rec.CREATED_BY,
202: l_okc_operations_tl_rec.CREATION_DATE,
203: l_okc_operations_tl_rec.LAST_UPDATED_BY,
204: l_okc_operations_tl_rec.LAST_UPDATE_DATE,
205: l_okc_operations_tl_rec.LAST_UPDATE_LOGIN;
206: x_no_data_found := okc_operations_tl_pk_csr%NOTFOUND;
207: CLOSE okc_operations_tl_pk_csr;
208: RETURN(l_okc_operations_tl_rec);
209: END get_rec;
202: l_okc_operations_tl_rec.CREATION_DATE,
203: l_okc_operations_tl_rec.LAST_UPDATED_BY,
204: l_okc_operations_tl_rec.LAST_UPDATE_DATE,
205: l_okc_operations_tl_rec.LAST_UPDATE_LOGIN;
206: x_no_data_found := okc_operations_tl_pk_csr%NOTFOUND;
207: CLOSE okc_operations_tl_pk_csr;
208: RETURN(l_okc_operations_tl_rec);
209: END get_rec;
210:
203: l_okc_operations_tl_rec.LAST_UPDATED_BY,
204: l_okc_operations_tl_rec.LAST_UPDATE_DATE,
205: l_okc_operations_tl_rec.LAST_UPDATE_LOGIN;
206: x_no_data_found := okc_operations_tl_pk_csr%NOTFOUND;
207: CLOSE okc_operations_tl_pk_csr;
208: RETURN(l_okc_operations_tl_rec);
209: END get_rec;
210:
211: FUNCTION get_rec (
204: l_okc_operations_tl_rec.LAST_UPDATE_DATE,
205: l_okc_operations_tl_rec.LAST_UPDATE_LOGIN;
206: x_no_data_found := okc_operations_tl_pk_csr%NOTFOUND;
207: CLOSE okc_operations_tl_pk_csr;
208: RETURN(l_okc_operations_tl_rec);
209: END get_rec;
210:
211: FUNCTION get_rec (
212: p_okc_operations_tl_rec IN okc_operations_tl_rec_type
208: RETURN(l_okc_operations_tl_rec);
209: END get_rec;
210:
211: FUNCTION get_rec (
212: p_okc_operations_tl_rec IN okc_operations_tl_rec_type
213: ) RETURN okc_operations_tl_rec_type IS
214: l_row_notfound BOOLEAN := TRUE;
215: BEGIN
216: RETURN(get_rec(p_okc_operations_tl_rec, l_row_notfound));
209: END get_rec;
210:
211: FUNCTION get_rec (
212: p_okc_operations_tl_rec IN okc_operations_tl_rec_type
213: ) RETURN okc_operations_tl_rec_type IS
214: l_row_notfound BOOLEAN := TRUE;
215: BEGIN
216: RETURN(get_rec(p_okc_operations_tl_rec, l_row_notfound));
217: END get_rec;
212: p_okc_operations_tl_rec IN okc_operations_tl_rec_type
213: ) RETURN okc_operations_tl_rec_type IS
214: l_row_notfound BOOLEAN := TRUE;
215: BEGIN
216: RETURN(get_rec(p_okc_operations_tl_rec, l_row_notfound));
217: END get_rec;
218: ---------------------------------------------------------------------------
219: -- FUNCTION get_rec for: OKC_OPERATIONS_V
220: ---------------------------------------------------------------------------
391: p_to.purpose := p_from.purpose; -- Bug # 2171059
392: END migrate;
393: PROCEDURE migrate (
394: p_from IN opnv_rec_type,
395: p_to OUT NOCOPY okc_operations_tl_rec_type
396: ) IS
397: BEGIN
398: p_to.code := p_from.code;
399: p_to.sfwt_flag := p_from.sfwt_flag;
406: p_to.last_update_date := p_from.last_update_date;
407: p_to.last_update_login := p_from.last_update_login;
408: END migrate;
409: PROCEDURE migrate (
410: p_from IN okc_operations_tl_rec_type,
411: p_to IN OUT NOCOPY opnv_rec_type
412: ) IS
413: BEGIN
414: 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_opnv_rec opnv_rec_type := p_opnv_rec;
444: l_opn_rec opn_rec_type;
445: l_okc_operations_tl_rec okc_operations_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,
674: '_PVT'
675: );
676: END insert_row;
677: --------------------------------------
678: -- insert_row for:OKC_OPERATIONS_TL --
679: --------------------------------------
680: PROCEDURE insert_row(
681: p_init_msg_list IN VARCHAR2 ,
682: x_return_status OUT NOCOPY VARCHAR2,
681: p_init_msg_list IN VARCHAR2 ,
682: x_return_status OUT NOCOPY VARCHAR2,
683: x_msg_count OUT NOCOPY NUMBER,
684: x_msg_data OUT NOCOPY VARCHAR2,
685: p_okc_operations_tl_rec IN okc_operations_tl_rec_type,
686: x_okc_operations_tl_rec OUT NOCOPY okc_operations_tl_rec_type) IS
687:
688: l_api_version CONSTANT NUMBER := 1;
689: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
682: x_return_status OUT NOCOPY VARCHAR2,
683: x_msg_count OUT NOCOPY NUMBER,
684: x_msg_data OUT NOCOPY VARCHAR2,
685: p_okc_operations_tl_rec IN okc_operations_tl_rec_type,
686: x_okc_operations_tl_rec OUT NOCOPY okc_operations_tl_rec_type) IS
687:
688: l_api_version CONSTANT NUMBER := 1;
689: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
690: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
687:
688: l_api_version CONSTANT NUMBER := 1;
689: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
690: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
691: l_okc_operations_tl_rec okc_operations_tl_rec_type := p_okc_operations_tl_rec;
692: l_def_okc_operations_tl_rec okc_operations_tl_rec_type;
693: CURSOR get_languages IS
694: SELECT *
695: FROM FND_LANGUAGES
688: l_api_version CONSTANT NUMBER := 1;
689: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
690: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
691: l_okc_operations_tl_rec okc_operations_tl_rec_type := p_okc_operations_tl_rec;
692: l_def_okc_operations_tl_rec okc_operations_tl_rec_type;
693: CURSOR get_languages IS
694: SELECT *
695: FROM FND_LANGUAGES
696: WHERE INSTALLED_FLAG IN ('I', 'B');
694: SELECT *
695: FROM FND_LANGUAGES
696: WHERE INSTALLED_FLAG IN ('I', 'B');
697: ------------------------------------------
698: -- Set_Attributes for:OKC_OPERATIONS_TL --
699: ------------------------------------------
700: FUNCTION Set_Attributes (
701: p_okc_operations_tl_rec IN okc_operations_tl_rec_type,
702: x_okc_operations_tl_rec OUT NOCOPY okc_operations_tl_rec_type
697: ------------------------------------------
698: -- Set_Attributes for:OKC_OPERATIONS_TL --
699: ------------------------------------------
700: FUNCTION Set_Attributes (
701: p_okc_operations_tl_rec IN okc_operations_tl_rec_type,
702: x_okc_operations_tl_rec OUT NOCOPY okc_operations_tl_rec_type
703: ) RETURN VARCHAR2 IS
704: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
705: BEGIN
698: -- Set_Attributes for:OKC_OPERATIONS_TL --
699: ------------------------------------------
700: FUNCTION Set_Attributes (
701: p_okc_operations_tl_rec IN okc_operations_tl_rec_type,
702: x_okc_operations_tl_rec OUT NOCOPY okc_operations_tl_rec_type
703: ) RETURN VARCHAR2 IS
704: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
705: BEGIN
706: x_okc_operations_tl_rec := p_okc_operations_tl_rec;
702: x_okc_operations_tl_rec OUT NOCOPY okc_operations_tl_rec_type
703: ) RETURN VARCHAR2 IS
704: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
705: BEGIN
706: x_okc_operations_tl_rec := p_okc_operations_tl_rec;
707: x_okc_operations_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
708: x_okc_operations_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
709: RETURN(l_return_status);
710: END Set_Attributes;
703: ) RETURN VARCHAR2 IS
704: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
705: BEGIN
706: x_okc_operations_tl_rec := p_okc_operations_tl_rec;
707: x_okc_operations_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
708: x_okc_operations_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
709: RETURN(l_return_status);
710: END Set_Attributes;
711: BEGIN
704: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
705: BEGIN
706: x_okc_operations_tl_rec := p_okc_operations_tl_rec;
707: x_okc_operations_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
708: x_okc_operations_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
709: RETURN(l_return_status);
710: END Set_Attributes;
711: BEGIN
712: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
719: RAISE OKC_API.G_EXCEPTION_ERROR;
720: END IF;
721: --- Setting item attributes
722: l_return_status := Set_Attributes(
723: p_okc_operations_tl_rec, -- IN
724: l_okc_operations_tl_rec); -- OUT
725: --- If any errors happen abort API
726: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
727: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
720: END IF;
721: --- Setting item attributes
722: l_return_status := Set_Attributes(
723: p_okc_operations_tl_rec, -- IN
724: l_okc_operations_tl_rec); -- OUT
725: --- If any errors happen abort API
726: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
727: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
728: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
728: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
729: RAISE OKC_API.G_EXCEPTION_ERROR;
730: END IF;
731: FOR l_lang_rec IN get_languages LOOP
732: l_okc_operations_tl_rec.language := l_lang_rec.language_code;
733: INSERT INTO OKC_OPERATIONS_TL(
734: code,
735: language,
736: source_lang,
729: RAISE OKC_API.G_EXCEPTION_ERROR;
730: END IF;
731: FOR l_lang_rec IN get_languages LOOP
732: l_okc_operations_tl_rec.language := l_lang_rec.language_code;
733: INSERT INTO OKC_OPERATIONS_TL(
734: code,
735: language,
736: source_lang,
737: sfwt_flag,
743: last_updated_by,
744: last_update_date,
745: last_update_login)
746: VALUES (
747: l_okc_operations_tl_rec.code,
748: l_okc_operations_tl_rec.language,
749: l_okc_operations_tl_rec.source_lang,
750: l_okc_operations_tl_rec.sfwt_flag,
751: l_okc_operations_tl_rec.meaning,
744: last_update_date,
745: last_update_login)
746: VALUES (
747: l_okc_operations_tl_rec.code,
748: l_okc_operations_tl_rec.language,
749: l_okc_operations_tl_rec.source_lang,
750: l_okc_operations_tl_rec.sfwt_flag,
751: l_okc_operations_tl_rec.meaning,
752: l_okc_operations_tl_rec.description,
745: last_update_login)
746: VALUES (
747: l_okc_operations_tl_rec.code,
748: l_okc_operations_tl_rec.language,
749: l_okc_operations_tl_rec.source_lang,
750: l_okc_operations_tl_rec.sfwt_flag,
751: l_okc_operations_tl_rec.meaning,
752: l_okc_operations_tl_rec.description,
753: l_okc_operations_tl_rec.opn_type,
746: VALUES (
747: l_okc_operations_tl_rec.code,
748: l_okc_operations_tl_rec.language,
749: l_okc_operations_tl_rec.source_lang,
750: l_okc_operations_tl_rec.sfwt_flag,
751: l_okc_operations_tl_rec.meaning,
752: l_okc_operations_tl_rec.description,
753: l_okc_operations_tl_rec.opn_type,
754: l_okc_operations_tl_rec.created_by,
747: l_okc_operations_tl_rec.code,
748: l_okc_operations_tl_rec.language,
749: l_okc_operations_tl_rec.source_lang,
750: l_okc_operations_tl_rec.sfwt_flag,
751: l_okc_operations_tl_rec.meaning,
752: l_okc_operations_tl_rec.description,
753: l_okc_operations_tl_rec.opn_type,
754: l_okc_operations_tl_rec.created_by,
755: l_okc_operations_tl_rec.creation_date,
748: l_okc_operations_tl_rec.language,
749: l_okc_operations_tl_rec.source_lang,
750: l_okc_operations_tl_rec.sfwt_flag,
751: l_okc_operations_tl_rec.meaning,
752: l_okc_operations_tl_rec.description,
753: l_okc_operations_tl_rec.opn_type,
754: l_okc_operations_tl_rec.created_by,
755: l_okc_operations_tl_rec.creation_date,
756: l_okc_operations_tl_rec.last_updated_by,
749: l_okc_operations_tl_rec.source_lang,
750: l_okc_operations_tl_rec.sfwt_flag,
751: l_okc_operations_tl_rec.meaning,
752: l_okc_operations_tl_rec.description,
753: l_okc_operations_tl_rec.opn_type,
754: l_okc_operations_tl_rec.created_by,
755: l_okc_operations_tl_rec.creation_date,
756: l_okc_operations_tl_rec.last_updated_by,
757: l_okc_operations_tl_rec.last_update_date,
750: l_okc_operations_tl_rec.sfwt_flag,
751: l_okc_operations_tl_rec.meaning,
752: l_okc_operations_tl_rec.description,
753: l_okc_operations_tl_rec.opn_type,
754: l_okc_operations_tl_rec.created_by,
755: l_okc_operations_tl_rec.creation_date,
756: l_okc_operations_tl_rec.last_updated_by,
757: l_okc_operations_tl_rec.last_update_date,
758: l_okc_operations_tl_rec.last_update_login);
751: l_okc_operations_tl_rec.meaning,
752: l_okc_operations_tl_rec.description,
753: l_okc_operations_tl_rec.opn_type,
754: l_okc_operations_tl_rec.created_by,
755: l_okc_operations_tl_rec.creation_date,
756: l_okc_operations_tl_rec.last_updated_by,
757: l_okc_operations_tl_rec.last_update_date,
758: l_okc_operations_tl_rec.last_update_login);
759: END LOOP;
752: l_okc_operations_tl_rec.description,
753: l_okc_operations_tl_rec.opn_type,
754: l_okc_operations_tl_rec.created_by,
755: l_okc_operations_tl_rec.creation_date,
756: l_okc_operations_tl_rec.last_updated_by,
757: l_okc_operations_tl_rec.last_update_date,
758: l_okc_operations_tl_rec.last_update_login);
759: END LOOP;
760: -- Set OUT values
753: l_okc_operations_tl_rec.opn_type,
754: l_okc_operations_tl_rec.created_by,
755: l_okc_operations_tl_rec.creation_date,
756: l_okc_operations_tl_rec.last_updated_by,
757: l_okc_operations_tl_rec.last_update_date,
758: l_okc_operations_tl_rec.last_update_login);
759: END LOOP;
760: -- Set OUT values
761: x_okc_operations_tl_rec := l_okc_operations_tl_rec;
754: l_okc_operations_tl_rec.created_by,
755: l_okc_operations_tl_rec.creation_date,
756: l_okc_operations_tl_rec.last_updated_by,
757: l_okc_operations_tl_rec.last_update_date,
758: l_okc_operations_tl_rec.last_update_login);
759: END LOOP;
760: -- Set OUT values
761: x_okc_operations_tl_rec := l_okc_operations_tl_rec;
762: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
757: l_okc_operations_tl_rec.last_update_date,
758: l_okc_operations_tl_rec.last_update_login);
759: END LOOP;
760: -- Set OUT values
761: x_okc_operations_tl_rec := l_okc_operations_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_opnv_rec opnv_rec_type;
811: l_def_opnv_rec opnv_rec_type;
812: l_opn_rec opn_rec_type;
813: lx_opn_rec opn_rec_type;
814: l_okc_operations_tl_rec okc_operations_tl_rec_type;
815: lx_okc_operations_tl_rec okc_operations_tl_rec_type;
816: -------------------------------
817: -- FUNCTION fill_who_columns --
818: -------------------------------
811: l_def_opnv_rec opnv_rec_type;
812: l_opn_rec opn_rec_type;
813: lx_opn_rec opn_rec_type;
814: l_okc_operations_tl_rec okc_operations_tl_rec_type;
815: lx_okc_operations_tl_rec okc_operations_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_opnv_rec, l_opn_rec);
888: migrate(l_def_opnv_rec, l_okc_operations_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_operations_tl_rec,
912: lx_okc_operations_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_operations_tl_rec,
912: lx_okc_operations_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_operations_tl_rec, l_def_opnv_rec);
920: -- Set OUT values
921: x_opnv_rec := l_def_opnv_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_OPERATIONS_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_operations_tl_rec IN okc_operations_tl_rec_type) IS
1140:
1141: E_Resource_Busy EXCEPTION;
1142: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1143: CURSOR lock_csr (p_okc_operations_tl_rec IN okc_operations_tl_rec_type) IS
1139: p_okc_operations_tl_rec IN okc_operations_tl_rec_type) IS
1140:
1141: E_Resource_Busy EXCEPTION;
1142: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1143: CURSOR lock_csr (p_okc_operations_tl_rec IN okc_operations_tl_rec_type) IS
1144: SELECT *
1145: FROM OKC_OPERATIONS_TL
1146: WHERE CODE = p_okc_operations_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_operations_tl_rec IN okc_operations_tl_rec_type) IS
1144: SELECT *
1145: FROM OKC_OPERATIONS_TL
1146: WHERE CODE = p_okc_operations_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_operations_tl_rec IN okc_operations_tl_rec_type) IS
1144: SELECT *
1145: FROM OKC_OPERATIONS_TL
1146: WHERE CODE = p_okc_operations_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_operations_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_opn_rec opn_rec_type;
1231: l_okc_operations_tl_rec okc_operations_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_opnv_rec, l_opn_rec);
1249: migrate(p_opnv_rec, l_okc_operations_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_operations_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
1530: '_PVT'
1531: );
1532: END update_row;
1533: --------------------------------------
1534: -- update_row for:OKC_OPERATIONS_TL --
1535: --------------------------------------
1536: PROCEDURE update_row(
1537: p_init_msg_list IN VARCHAR2 ,
1538: x_return_status OUT NOCOPY VARCHAR2,
1537: p_init_msg_list IN VARCHAR2 ,
1538: x_return_status OUT NOCOPY VARCHAR2,
1539: x_msg_count OUT NOCOPY NUMBER,
1540: x_msg_data OUT NOCOPY VARCHAR2,
1541: p_okc_operations_tl_rec IN okc_operations_tl_rec_type,
1542: x_okc_operations_tl_rec OUT NOCOPY okc_operations_tl_rec_type) IS
1543:
1544: l_api_version CONSTANT NUMBER := 1;
1545: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
1538: x_return_status OUT NOCOPY VARCHAR2,
1539: x_msg_count OUT NOCOPY NUMBER,
1540: x_msg_data OUT NOCOPY VARCHAR2,
1541: p_okc_operations_tl_rec IN okc_operations_tl_rec_type,
1542: x_okc_operations_tl_rec OUT NOCOPY okc_operations_tl_rec_type) IS
1543:
1544: l_api_version CONSTANT NUMBER := 1;
1545: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
1546: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1543:
1544: l_api_version CONSTANT NUMBER := 1;
1545: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
1546: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1547: l_okc_operations_tl_rec okc_operations_tl_rec_type := p_okc_operations_tl_rec;
1548: l_def_okc_operations_tl_rec okc_operations_tl_rec_type;
1549: l_row_notfound BOOLEAN := TRUE;
1550: ----------------------------------
1551: -- FUNCTION populate_new_record --
1544: l_api_version CONSTANT NUMBER := 1;
1545: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
1546: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1547: l_okc_operations_tl_rec okc_operations_tl_rec_type := p_okc_operations_tl_rec;
1548: l_def_okc_operations_tl_rec okc_operations_tl_rec_type;
1549: l_row_notfound BOOLEAN := TRUE;
1550: ----------------------------------
1551: -- FUNCTION populate_new_record --
1552: ----------------------------------
1550: ----------------------------------
1551: -- FUNCTION populate_new_record --
1552: ----------------------------------
1553: FUNCTION populate_new_record (
1554: p_okc_operations_tl_rec IN okc_operations_tl_rec_type,
1555: x_okc_operations_tl_rec OUT NOCOPY okc_operations_tl_rec_type
1556: ) RETURN VARCHAR2 IS
1557: l_okc_operations_tl_rec okc_operations_tl_rec_type;
1558: l_row_notfound BOOLEAN := TRUE;
1551: -- FUNCTION populate_new_record --
1552: ----------------------------------
1553: FUNCTION populate_new_record (
1554: p_okc_operations_tl_rec IN okc_operations_tl_rec_type,
1555: x_okc_operations_tl_rec OUT NOCOPY okc_operations_tl_rec_type
1556: ) RETURN VARCHAR2 IS
1557: l_okc_operations_tl_rec okc_operations_tl_rec_type;
1558: l_row_notfound BOOLEAN := TRUE;
1559: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1553: FUNCTION populate_new_record (
1554: p_okc_operations_tl_rec IN okc_operations_tl_rec_type,
1555: x_okc_operations_tl_rec OUT NOCOPY okc_operations_tl_rec_type
1556: ) RETURN VARCHAR2 IS
1557: l_okc_operations_tl_rec okc_operations_tl_rec_type;
1558: l_row_notfound BOOLEAN := TRUE;
1559: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1560: BEGIN
1561: x_okc_operations_tl_rec := p_okc_operations_tl_rec;
1557: l_okc_operations_tl_rec okc_operations_tl_rec_type;
1558: l_row_notfound BOOLEAN := TRUE;
1559: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1560: BEGIN
1561: x_okc_operations_tl_rec := p_okc_operations_tl_rec;
1562: -- Get current database values
1563: l_okc_operations_tl_rec := get_rec(p_okc_operations_tl_rec, l_row_notfound);
1564: IF (l_row_notfound) THEN
1565: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1559: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1560: BEGIN
1561: x_okc_operations_tl_rec := p_okc_operations_tl_rec;
1562: -- Get current database values
1563: l_okc_operations_tl_rec := get_rec(p_okc_operations_tl_rec, l_row_notfound);
1564: IF (l_row_notfound) THEN
1565: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1566: END IF;
1567: IF (x_okc_operations_tl_rec.code = OKC_API.G_MISS_CHAR)
1563: l_okc_operations_tl_rec := get_rec(p_okc_operations_tl_rec, l_row_notfound);
1564: IF (l_row_notfound) THEN
1565: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1566: END IF;
1567: IF (x_okc_operations_tl_rec.code = OKC_API.G_MISS_CHAR)
1568: THEN
1569: x_okc_operations_tl_rec.code := l_okc_operations_tl_rec.code;
1570: END IF;
1571: IF (x_okc_operations_tl_rec.language = OKC_API.G_MISS_CHAR)
1565: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1566: END IF;
1567: IF (x_okc_operations_tl_rec.code = OKC_API.G_MISS_CHAR)
1568: THEN
1569: x_okc_operations_tl_rec.code := l_okc_operations_tl_rec.code;
1570: END IF;
1571: IF (x_okc_operations_tl_rec.language = OKC_API.G_MISS_CHAR)
1572: THEN
1573: x_okc_operations_tl_rec.language := l_okc_operations_tl_rec.language;
1567: IF (x_okc_operations_tl_rec.code = OKC_API.G_MISS_CHAR)
1568: THEN
1569: x_okc_operations_tl_rec.code := l_okc_operations_tl_rec.code;
1570: END IF;
1571: IF (x_okc_operations_tl_rec.language = OKC_API.G_MISS_CHAR)
1572: THEN
1573: x_okc_operations_tl_rec.language := l_okc_operations_tl_rec.language;
1574: END IF;
1575: IF (x_okc_operations_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
1569: x_okc_operations_tl_rec.code := l_okc_operations_tl_rec.code;
1570: END IF;
1571: IF (x_okc_operations_tl_rec.language = OKC_API.G_MISS_CHAR)
1572: THEN
1573: x_okc_operations_tl_rec.language := l_okc_operations_tl_rec.language;
1574: END IF;
1575: IF (x_okc_operations_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
1576: THEN
1577: x_okc_operations_tl_rec.source_lang := l_okc_operations_tl_rec.source_lang;
1571: IF (x_okc_operations_tl_rec.language = OKC_API.G_MISS_CHAR)
1572: THEN
1573: x_okc_operations_tl_rec.language := l_okc_operations_tl_rec.language;
1574: END IF;
1575: IF (x_okc_operations_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
1576: THEN
1577: x_okc_operations_tl_rec.source_lang := l_okc_operations_tl_rec.source_lang;
1578: END IF;
1579: IF (x_okc_operations_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
1573: x_okc_operations_tl_rec.language := l_okc_operations_tl_rec.language;
1574: END IF;
1575: IF (x_okc_operations_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
1576: THEN
1577: x_okc_operations_tl_rec.source_lang := l_okc_operations_tl_rec.source_lang;
1578: END IF;
1579: IF (x_okc_operations_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
1580: THEN
1581: x_okc_operations_tl_rec.sfwt_flag := l_okc_operations_tl_rec.sfwt_flag;
1575: IF (x_okc_operations_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
1576: THEN
1577: x_okc_operations_tl_rec.source_lang := l_okc_operations_tl_rec.source_lang;
1578: END IF;
1579: IF (x_okc_operations_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
1580: THEN
1581: x_okc_operations_tl_rec.sfwt_flag := l_okc_operations_tl_rec.sfwt_flag;
1582: END IF;
1583: IF (x_okc_operations_tl_rec.meaning = OKC_API.G_MISS_CHAR)
1577: x_okc_operations_tl_rec.source_lang := l_okc_operations_tl_rec.source_lang;
1578: END IF;
1579: IF (x_okc_operations_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
1580: THEN
1581: x_okc_operations_tl_rec.sfwt_flag := l_okc_operations_tl_rec.sfwt_flag;
1582: END IF;
1583: IF (x_okc_operations_tl_rec.meaning = OKC_API.G_MISS_CHAR)
1584: THEN
1585: x_okc_operations_tl_rec.meaning := l_okc_operations_tl_rec.meaning;
1579: IF (x_okc_operations_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
1580: THEN
1581: x_okc_operations_tl_rec.sfwt_flag := l_okc_operations_tl_rec.sfwt_flag;
1582: END IF;
1583: IF (x_okc_operations_tl_rec.meaning = OKC_API.G_MISS_CHAR)
1584: THEN
1585: x_okc_operations_tl_rec.meaning := l_okc_operations_tl_rec.meaning;
1586: END IF;
1587: IF (x_okc_operations_tl_rec.description = OKC_API.G_MISS_CHAR)
1581: x_okc_operations_tl_rec.sfwt_flag := l_okc_operations_tl_rec.sfwt_flag;
1582: END IF;
1583: IF (x_okc_operations_tl_rec.meaning = OKC_API.G_MISS_CHAR)
1584: THEN
1585: x_okc_operations_tl_rec.meaning := l_okc_operations_tl_rec.meaning;
1586: END IF;
1587: IF (x_okc_operations_tl_rec.description = OKC_API.G_MISS_CHAR)
1588: THEN
1589: x_okc_operations_tl_rec.description := l_okc_operations_tl_rec.description;
1583: IF (x_okc_operations_tl_rec.meaning = OKC_API.G_MISS_CHAR)
1584: THEN
1585: x_okc_operations_tl_rec.meaning := l_okc_operations_tl_rec.meaning;
1586: END IF;
1587: IF (x_okc_operations_tl_rec.description = OKC_API.G_MISS_CHAR)
1588: THEN
1589: x_okc_operations_tl_rec.description := l_okc_operations_tl_rec.description;
1590: END IF;
1591: IF (x_okc_operations_tl_rec.opn_type = OKC_API.G_MISS_CHAR)
1585: x_okc_operations_tl_rec.meaning := l_okc_operations_tl_rec.meaning;
1586: END IF;
1587: IF (x_okc_operations_tl_rec.description = OKC_API.G_MISS_CHAR)
1588: THEN
1589: x_okc_operations_tl_rec.description := l_okc_operations_tl_rec.description;
1590: END IF;
1591: IF (x_okc_operations_tl_rec.opn_type = OKC_API.G_MISS_CHAR)
1592: THEN
1593: x_okc_operations_tl_rec.opn_type := l_okc_operations_tl_rec.opn_type;
1587: IF (x_okc_operations_tl_rec.description = OKC_API.G_MISS_CHAR)
1588: THEN
1589: x_okc_operations_tl_rec.description := l_okc_operations_tl_rec.description;
1590: END IF;
1591: IF (x_okc_operations_tl_rec.opn_type = OKC_API.G_MISS_CHAR)
1592: THEN
1593: x_okc_operations_tl_rec.opn_type := l_okc_operations_tl_rec.opn_type;
1594: END IF;
1595: IF (x_okc_operations_tl_rec.created_by = OKC_API.G_MISS_NUM)
1589: x_okc_operations_tl_rec.description := l_okc_operations_tl_rec.description;
1590: END IF;
1591: IF (x_okc_operations_tl_rec.opn_type = OKC_API.G_MISS_CHAR)
1592: THEN
1593: x_okc_operations_tl_rec.opn_type := l_okc_operations_tl_rec.opn_type;
1594: END IF;
1595: IF (x_okc_operations_tl_rec.created_by = OKC_API.G_MISS_NUM)
1596: THEN
1597: x_okc_operations_tl_rec.created_by := l_okc_operations_tl_rec.created_by;
1591: IF (x_okc_operations_tl_rec.opn_type = OKC_API.G_MISS_CHAR)
1592: THEN
1593: x_okc_operations_tl_rec.opn_type := l_okc_operations_tl_rec.opn_type;
1594: END IF;
1595: IF (x_okc_operations_tl_rec.created_by = OKC_API.G_MISS_NUM)
1596: THEN
1597: x_okc_operations_tl_rec.created_by := l_okc_operations_tl_rec.created_by;
1598: END IF;
1599: IF (x_okc_operations_tl_rec.creation_date = OKC_API.G_MISS_DATE)
1593: x_okc_operations_tl_rec.opn_type := l_okc_operations_tl_rec.opn_type;
1594: END IF;
1595: IF (x_okc_operations_tl_rec.created_by = OKC_API.G_MISS_NUM)
1596: THEN
1597: x_okc_operations_tl_rec.created_by := l_okc_operations_tl_rec.created_by;
1598: END IF;
1599: IF (x_okc_operations_tl_rec.creation_date = OKC_API.G_MISS_DATE)
1600: THEN
1601: x_okc_operations_tl_rec.creation_date := l_okc_operations_tl_rec.creation_date;
1595: IF (x_okc_operations_tl_rec.created_by = OKC_API.G_MISS_NUM)
1596: THEN
1597: x_okc_operations_tl_rec.created_by := l_okc_operations_tl_rec.created_by;
1598: END IF;
1599: IF (x_okc_operations_tl_rec.creation_date = OKC_API.G_MISS_DATE)
1600: THEN
1601: x_okc_operations_tl_rec.creation_date := l_okc_operations_tl_rec.creation_date;
1602: END IF;
1603: IF (x_okc_operations_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
1597: x_okc_operations_tl_rec.created_by := l_okc_operations_tl_rec.created_by;
1598: END IF;
1599: IF (x_okc_operations_tl_rec.creation_date = OKC_API.G_MISS_DATE)
1600: THEN
1601: x_okc_operations_tl_rec.creation_date := l_okc_operations_tl_rec.creation_date;
1602: END IF;
1603: IF (x_okc_operations_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
1604: THEN
1605: x_okc_operations_tl_rec.last_updated_by := l_okc_operations_tl_rec.last_updated_by;
1599: IF (x_okc_operations_tl_rec.creation_date = OKC_API.G_MISS_DATE)
1600: THEN
1601: x_okc_operations_tl_rec.creation_date := l_okc_operations_tl_rec.creation_date;
1602: END IF;
1603: IF (x_okc_operations_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
1604: THEN
1605: x_okc_operations_tl_rec.last_updated_by := l_okc_operations_tl_rec.last_updated_by;
1606: END IF;
1607: IF (x_okc_operations_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
1601: x_okc_operations_tl_rec.creation_date := l_okc_operations_tl_rec.creation_date;
1602: END IF;
1603: IF (x_okc_operations_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
1604: THEN
1605: x_okc_operations_tl_rec.last_updated_by := l_okc_operations_tl_rec.last_updated_by;
1606: END IF;
1607: IF (x_okc_operations_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
1608: THEN
1609: x_okc_operations_tl_rec.last_update_date := l_okc_operations_tl_rec.last_update_date;
1603: IF (x_okc_operations_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
1604: THEN
1605: x_okc_operations_tl_rec.last_updated_by := l_okc_operations_tl_rec.last_updated_by;
1606: END IF;
1607: IF (x_okc_operations_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
1608: THEN
1609: x_okc_operations_tl_rec.last_update_date := l_okc_operations_tl_rec.last_update_date;
1610: END IF;
1611: IF (x_okc_operations_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
1605: x_okc_operations_tl_rec.last_updated_by := l_okc_operations_tl_rec.last_updated_by;
1606: END IF;
1607: IF (x_okc_operations_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
1608: THEN
1609: x_okc_operations_tl_rec.last_update_date := l_okc_operations_tl_rec.last_update_date;
1610: END IF;
1611: IF (x_okc_operations_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
1612: THEN
1613: x_okc_operations_tl_rec.last_update_login := l_okc_operations_tl_rec.last_update_login;
1607: IF (x_okc_operations_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
1608: THEN
1609: x_okc_operations_tl_rec.last_update_date := l_okc_operations_tl_rec.last_update_date;
1610: END IF;
1611: IF (x_okc_operations_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
1612: THEN
1613: x_okc_operations_tl_rec.last_update_login := l_okc_operations_tl_rec.last_update_login;
1614: END IF;
1615: RETURN(l_return_status);
1609: x_okc_operations_tl_rec.last_update_date := l_okc_operations_tl_rec.last_update_date;
1610: END IF;
1611: IF (x_okc_operations_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
1612: THEN
1613: x_okc_operations_tl_rec.last_update_login := l_okc_operations_tl_rec.last_update_login;
1614: END IF;
1615: RETURN(l_return_status);
1616: END populate_new_record;
1617: ------------------------------------------
1614: END IF;
1615: RETURN(l_return_status);
1616: END populate_new_record;
1617: ------------------------------------------
1618: -- Set_Attributes for:OKC_OPERATIONS_TL --
1619: ------------------------------------------
1620: FUNCTION Set_Attributes (
1621: p_okc_operations_tl_rec IN okc_operations_tl_rec_type,
1622: x_okc_operations_tl_rec OUT NOCOPY okc_operations_tl_rec_type
1617: ------------------------------------------
1618: -- Set_Attributes for:OKC_OPERATIONS_TL --
1619: ------------------------------------------
1620: FUNCTION Set_Attributes (
1621: p_okc_operations_tl_rec IN okc_operations_tl_rec_type,
1622: x_okc_operations_tl_rec OUT NOCOPY okc_operations_tl_rec_type
1623: ) RETURN VARCHAR2 IS
1624: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1625: BEGIN
1618: -- Set_Attributes for:OKC_OPERATIONS_TL --
1619: ------------------------------------------
1620: FUNCTION Set_Attributes (
1621: p_okc_operations_tl_rec IN okc_operations_tl_rec_type,
1622: x_okc_operations_tl_rec OUT NOCOPY okc_operations_tl_rec_type
1623: ) RETURN VARCHAR2 IS
1624: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1625: BEGIN
1626: x_okc_operations_tl_rec := p_okc_operations_tl_rec;
1622: x_okc_operations_tl_rec OUT NOCOPY okc_operations_tl_rec_type
1623: ) RETURN VARCHAR2 IS
1624: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1625: BEGIN
1626: x_okc_operations_tl_rec := p_okc_operations_tl_rec;
1627: x_okc_operations_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
1628: x_okc_operations_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
1629: RETURN(l_return_status);
1630: END Set_Attributes;
1623: ) RETURN VARCHAR2 IS
1624: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1625: BEGIN
1626: x_okc_operations_tl_rec := p_okc_operations_tl_rec;
1627: x_okc_operations_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
1628: x_okc_operations_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
1629: RETURN(l_return_status);
1630: END Set_Attributes;
1631: BEGIN
1624: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1625: BEGIN
1626: x_okc_operations_tl_rec := p_okc_operations_tl_rec;
1627: x_okc_operations_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
1628: x_okc_operations_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
1629: RETURN(l_return_status);
1630: END Set_Attributes;
1631: BEGIN
1632: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1639: RAISE OKC_API.G_EXCEPTION_ERROR;
1640: END IF;
1641: --- Setting item attributes
1642: l_return_status := Set_Attributes(
1643: p_okc_operations_tl_rec, -- IN
1644: l_okc_operations_tl_rec); -- OUT
1645: --- If any errors happen abort API
1646: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1647: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1640: END IF;
1641: --- Setting item attributes
1642: l_return_status := Set_Attributes(
1643: p_okc_operations_tl_rec, -- IN
1644: l_okc_operations_tl_rec); -- OUT
1645: --- If any errors happen abort API
1646: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1647: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1648: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1647: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1648: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1649: RAISE OKC_API.G_EXCEPTION_ERROR;
1650: END IF;
1651: l_return_status := populate_new_record(l_okc_operations_tl_rec, l_def_okc_operations_tl_rec);
1652: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1653: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1654: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1655: RAISE OKC_API.G_EXCEPTION_ERROR;
1653: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1654: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1655: RAISE OKC_API.G_EXCEPTION_ERROR;
1656: END IF;
1657: UPDATE OKC_OPERATIONS_TL
1658: SET MEANING = l_def_okc_operations_tl_rec.meaning,
1659: DESCRIPTION = l_def_okc_operations_tl_rec.description,
1660: OPN_TYPE = l_def_okc_operations_tl_rec.opn_type,
1661: CREATED_BY = l_def_okc_operations_tl_rec.created_by,
1654: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1655: RAISE OKC_API.G_EXCEPTION_ERROR;
1656: END IF;
1657: UPDATE OKC_OPERATIONS_TL
1658: SET MEANING = l_def_okc_operations_tl_rec.meaning,
1659: DESCRIPTION = l_def_okc_operations_tl_rec.description,
1660: OPN_TYPE = l_def_okc_operations_tl_rec.opn_type,
1661: CREATED_BY = l_def_okc_operations_tl_rec.created_by,
1662: CREATION_DATE = l_def_okc_operations_tl_rec.creation_date,
1655: RAISE OKC_API.G_EXCEPTION_ERROR;
1656: END IF;
1657: UPDATE OKC_OPERATIONS_TL
1658: SET MEANING = l_def_okc_operations_tl_rec.meaning,
1659: DESCRIPTION = l_def_okc_operations_tl_rec.description,
1660: OPN_TYPE = l_def_okc_operations_tl_rec.opn_type,
1661: CREATED_BY = l_def_okc_operations_tl_rec.created_by,
1662: CREATION_DATE = l_def_okc_operations_tl_rec.creation_date,
1663: LAST_UPDATED_BY = l_def_okc_operations_tl_rec.last_updated_by,
1656: END IF;
1657: UPDATE OKC_OPERATIONS_TL
1658: SET MEANING = l_def_okc_operations_tl_rec.meaning,
1659: DESCRIPTION = l_def_okc_operations_tl_rec.description,
1660: OPN_TYPE = l_def_okc_operations_tl_rec.opn_type,
1661: CREATED_BY = l_def_okc_operations_tl_rec.created_by,
1662: CREATION_DATE = l_def_okc_operations_tl_rec.creation_date,
1663: LAST_UPDATED_BY = l_def_okc_operations_tl_rec.last_updated_by,
1664: LAST_UPDATE_DATE = l_def_okc_operations_tl_rec.last_update_date,
1657: UPDATE OKC_OPERATIONS_TL
1658: SET MEANING = l_def_okc_operations_tl_rec.meaning,
1659: DESCRIPTION = l_def_okc_operations_tl_rec.description,
1660: OPN_TYPE = l_def_okc_operations_tl_rec.opn_type,
1661: CREATED_BY = l_def_okc_operations_tl_rec.created_by,
1662: CREATION_DATE = l_def_okc_operations_tl_rec.creation_date,
1663: LAST_UPDATED_BY = l_def_okc_operations_tl_rec.last_updated_by,
1664: LAST_UPDATE_DATE = l_def_okc_operations_tl_rec.last_update_date,
1665: LAST_UPDATE_LOGIN = l_def_okc_operations_tl_rec.last_update_login
1658: SET MEANING = l_def_okc_operations_tl_rec.meaning,
1659: DESCRIPTION = l_def_okc_operations_tl_rec.description,
1660: OPN_TYPE = l_def_okc_operations_tl_rec.opn_type,
1661: CREATED_BY = l_def_okc_operations_tl_rec.created_by,
1662: CREATION_DATE = l_def_okc_operations_tl_rec.creation_date,
1663: LAST_UPDATED_BY = l_def_okc_operations_tl_rec.last_updated_by,
1664: LAST_UPDATE_DATE = l_def_okc_operations_tl_rec.last_update_date,
1665: LAST_UPDATE_LOGIN = l_def_okc_operations_tl_rec.last_update_login
1666: WHERE CODE = l_def_okc_operations_tl_rec.code
1659: DESCRIPTION = l_def_okc_operations_tl_rec.description,
1660: OPN_TYPE = l_def_okc_operations_tl_rec.opn_type,
1661: CREATED_BY = l_def_okc_operations_tl_rec.created_by,
1662: CREATION_DATE = l_def_okc_operations_tl_rec.creation_date,
1663: LAST_UPDATED_BY = l_def_okc_operations_tl_rec.last_updated_by,
1664: LAST_UPDATE_DATE = l_def_okc_operations_tl_rec.last_update_date,
1665: LAST_UPDATE_LOGIN = l_def_okc_operations_tl_rec.last_update_login
1666: WHERE CODE = l_def_okc_operations_tl_rec.code
1667: AND SOURCE_LANG = USERENV('LANG');
1660: OPN_TYPE = l_def_okc_operations_tl_rec.opn_type,
1661: CREATED_BY = l_def_okc_operations_tl_rec.created_by,
1662: CREATION_DATE = l_def_okc_operations_tl_rec.creation_date,
1663: LAST_UPDATED_BY = l_def_okc_operations_tl_rec.last_updated_by,
1664: LAST_UPDATE_DATE = l_def_okc_operations_tl_rec.last_update_date,
1665: LAST_UPDATE_LOGIN = l_def_okc_operations_tl_rec.last_update_login
1666: WHERE CODE = l_def_okc_operations_tl_rec.code
1667: AND SOURCE_LANG = USERENV('LANG');
1668:
1661: CREATED_BY = l_def_okc_operations_tl_rec.created_by,
1662: CREATION_DATE = l_def_okc_operations_tl_rec.creation_date,
1663: LAST_UPDATED_BY = l_def_okc_operations_tl_rec.last_updated_by,
1664: LAST_UPDATE_DATE = l_def_okc_operations_tl_rec.last_update_date,
1665: LAST_UPDATE_LOGIN = l_def_okc_operations_tl_rec.last_update_login
1666: WHERE CODE = l_def_okc_operations_tl_rec.code
1667: AND SOURCE_LANG = USERENV('LANG');
1668:
1669: UPDATE OKC_OPERATIONS_TL
1662: CREATION_DATE = l_def_okc_operations_tl_rec.creation_date,
1663: LAST_UPDATED_BY = l_def_okc_operations_tl_rec.last_updated_by,
1664: LAST_UPDATE_DATE = l_def_okc_operations_tl_rec.last_update_date,
1665: LAST_UPDATE_LOGIN = l_def_okc_operations_tl_rec.last_update_login
1666: WHERE CODE = l_def_okc_operations_tl_rec.code
1667: AND SOURCE_LANG = USERENV('LANG');
1668:
1669: UPDATE OKC_OPERATIONS_TL
1670: SET SFWT_FLAG = 'Y'
1665: LAST_UPDATE_LOGIN = l_def_okc_operations_tl_rec.last_update_login
1666: WHERE CODE = l_def_okc_operations_tl_rec.code
1667: AND SOURCE_LANG = USERENV('LANG');
1668:
1669: UPDATE OKC_OPERATIONS_TL
1670: SET SFWT_FLAG = 'Y'
1671: WHERE CODE = l_def_okc_operations_tl_rec.code
1672: AND SOURCE_LANG <> USERENV('LANG');
1673:
1667: AND SOURCE_LANG = USERENV('LANG');
1668:
1669: UPDATE OKC_OPERATIONS_TL
1670: SET SFWT_FLAG = 'Y'
1671: WHERE CODE = l_def_okc_operations_tl_rec.code
1672: AND SOURCE_LANG <> USERENV('LANG');
1673:
1674: x_okc_operations_tl_rec := l_def_okc_operations_tl_rec;
1675: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1670: SET SFWT_FLAG = 'Y'
1671: WHERE CODE = l_def_okc_operations_tl_rec.code
1672: AND SOURCE_LANG <> USERENV('LANG');
1673:
1674: x_okc_operations_tl_rec := l_def_okc_operations_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_opnv_rec opnv_rec_type := p_opnv_rec;
1724: l_def_opnv_rec opnv_rec_type;
1725: l_okc_operations_tl_rec okc_operations_tl_rec_type;
1726: lx_okc_operations_tl_rec okc_operations_tl_rec_type;
1727: l_opn_rec opn_rec_type;
1728: lx_opn_rec opn_rec_type;
1729: -------------------------------
1722: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1723: l_opnv_rec opnv_rec_type := p_opnv_rec;
1724: l_def_opnv_rec opnv_rec_type;
1725: l_okc_operations_tl_rec okc_operations_tl_rec_type;
1726: lx_okc_operations_tl_rec okc_operations_tl_rec_type;
1727: l_opn_rec opn_rec_type;
1728: lx_opn_rec opn_rec_type;
1729: -------------------------------
1730: -- FUNCTION fill_who_columns --
1866:
1867: --------------------------------------
1868: -- Move VIEW record to "Child" records
1869: --------------------------------------
1870: migrate(l_def_opnv_rec, l_okc_operations_tl_rec);
1871: migrate(l_def_opnv_rec, l_opn_rec);
1872: --------------------------------------------
1873: -- Call the UPDATE_ROW for each child record
1874: --------------------------------------------
1876: p_init_msg_list,
1877: x_return_status,
1878: x_msg_count,
1879: x_msg_data,
1880: l_okc_operations_tl_rec,
1881: lx_okc_operations_tl_rec
1882: );
1883: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1884: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1877: x_return_status,
1878: x_msg_count,
1879: x_msg_data,
1880: l_okc_operations_tl_rec,
1881: lx_okc_operations_tl_rec
1882: );
1883: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1884: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1885: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1884: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1885: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1886: RAISE OKC_API.G_EXCEPTION_ERROR;
1887: END IF;
1888: migrate(lx_okc_operations_tl_rec, l_def_opnv_rec);
1889: update_row(
1890: p_init_msg_list,
1891: x_return_status,
1892: x_msg_count,
2065: '_PVT'
2066: );
2067: END delete_row;
2068: --------------------------------------
2069: -- delete_row for:OKC_OPERATIONS_TL --
2070: --------------------------------------
2071: PROCEDURE delete_row(
2072: p_init_msg_list IN VARCHAR2 ,
2073: x_return_status OUT NOCOPY VARCHAR2,
2072: p_init_msg_list IN VARCHAR2 ,
2073: x_return_status OUT NOCOPY VARCHAR2,
2074: x_msg_count OUT NOCOPY NUMBER,
2075: x_msg_data OUT NOCOPY VARCHAR2,
2076: p_okc_operations_tl_rec IN okc_operations_tl_rec_type) IS
2077:
2078: l_api_version CONSTANT NUMBER := 1;
2079: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
2080: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2077:
2078: l_api_version CONSTANT NUMBER := 1;
2079: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
2080: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2081: l_okc_operations_tl_rec okc_operations_tl_rec_type:= p_okc_operations_tl_rec;
2082: l_row_notfound BOOLEAN := TRUE;
2083: ------------------------------------------
2084: -- Set_Attributes for:OKC_OPERATIONS_TL --
2085: ------------------------------------------
2080: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2081: l_okc_operations_tl_rec okc_operations_tl_rec_type:= p_okc_operations_tl_rec;
2082: l_row_notfound BOOLEAN := TRUE;
2083: ------------------------------------------
2084: -- Set_Attributes for:OKC_OPERATIONS_TL --
2085: ------------------------------------------
2086: FUNCTION Set_Attributes (
2087: p_okc_operations_tl_rec IN okc_operations_tl_rec_type,
2088: x_okc_operations_tl_rec OUT NOCOPY okc_operations_tl_rec_type
2083: ------------------------------------------
2084: -- Set_Attributes for:OKC_OPERATIONS_TL --
2085: ------------------------------------------
2086: FUNCTION Set_Attributes (
2087: p_okc_operations_tl_rec IN okc_operations_tl_rec_type,
2088: x_okc_operations_tl_rec OUT NOCOPY okc_operations_tl_rec_type
2089: ) RETURN VARCHAR2 IS
2090: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2091: BEGIN
2084: -- Set_Attributes for:OKC_OPERATIONS_TL --
2085: ------------------------------------------
2086: FUNCTION Set_Attributes (
2087: p_okc_operations_tl_rec IN okc_operations_tl_rec_type,
2088: x_okc_operations_tl_rec OUT NOCOPY okc_operations_tl_rec_type
2089: ) RETURN VARCHAR2 IS
2090: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2091: BEGIN
2092: x_okc_operations_tl_rec := p_okc_operations_tl_rec;
2088: x_okc_operations_tl_rec OUT NOCOPY okc_operations_tl_rec_type
2089: ) RETURN VARCHAR2 IS
2090: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2091: BEGIN
2092: x_okc_operations_tl_rec := p_okc_operations_tl_rec;
2093: x_okc_operations_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2094: RETURN(l_return_status);
2095: END Set_Attributes;
2096: BEGIN
2089: ) RETURN VARCHAR2 IS
2090: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2091: BEGIN
2092: x_okc_operations_tl_rec := p_okc_operations_tl_rec;
2093: x_okc_operations_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2094: RETURN(l_return_status);
2095: END Set_Attributes;
2096: BEGIN
2097: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2104: RAISE OKC_API.G_EXCEPTION_ERROR;
2105: END IF;
2106: --- Setting item attributes
2107: l_return_status := Set_Attributes(
2108: p_okc_operations_tl_rec, -- IN
2109: l_okc_operations_tl_rec); -- OUT
2110: --- If any errors happen abort API
2111: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2112: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2105: END IF;
2106: --- Setting item attributes
2107: l_return_status := Set_Attributes(
2108: p_okc_operations_tl_rec, -- IN
2109: l_okc_operations_tl_rec); -- OUT
2110: --- If any errors happen abort API
2111: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2112: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2113: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2112: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2113: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2114: RAISE OKC_API.G_EXCEPTION_ERROR;
2115: END IF;
2116: DELETE FROM OKC_OPERATIONS_TL
2117: WHERE CODE = l_okc_operations_tl_rec.code;
2118:
2119: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2120: EXCEPTION
2113: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2114: RAISE OKC_API.G_EXCEPTION_ERROR;
2115: END IF;
2116: DELETE FROM OKC_OPERATIONS_TL
2117: WHERE CODE = l_okc_operations_tl_rec.code;
2118:
2119: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2120: EXCEPTION
2121: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2163: l_api_version CONSTANT NUMBER := 1;
2164: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2165: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2166: l_opnv_rec opnv_rec_type := p_opnv_rec;
2167: l_okc_operations_tl_rec okc_operations_tl_rec_type;
2168: l_opn_rec opn_rec_type;
2169: BEGIN
2170: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2171: G_PKG_NAME,
2181: END IF;
2182: --------------------------------------
2183: -- Move VIEW record to "Child" records
2184: --------------------------------------
2185: migrate(l_opnv_rec, l_okc_operations_tl_rec);
2186: migrate(l_opnv_rec, l_opn_rec);
2187: --------------------------------------------
2188: -- Call the DELETE_ROW for each child record
2189: --------------------------------------------
2191: p_init_msg_list,
2192: x_return_status,
2193: x_msg_count,
2194: x_msg_data,
2195: l_okc_operations_tl_rec
2196: );
2197: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2198: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2199: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN