51: /* as a quick workaround to fix the time-consuming table handler issue */
52: /* Eventually we'll need to turn them into a separate fix_language procedure */
53: /* Refer Bugs 3723612, 4210278 and 5261743
54:
55: DELETE FROM OKC_CHANGES_TL T
56: WHERE NOT EXISTS (
57: SELECT NULL
58: FROM OKC_CHANGES_B B
59: WHERE B.ID = T.ID
58: FROM OKC_CHANGES_B B
59: WHERE B.ID = T.ID
60: );
61:
62: UPDATE OKC_CHANGES_TL T SET (
63: SHORT_DESCRIPTION,
64: CHANGE_TEXT) = (SELECT
65: B.SHORT_DESCRIPTION,
66: B.CHANGE_TEXT
63: SHORT_DESCRIPTION,
64: CHANGE_TEXT) = (SELECT
65: B.SHORT_DESCRIPTION,
66: B.CHANGE_TEXT
67: FROM OKC_CHANGES_TL B
68: WHERE B.ID = T.ID
69: AND B.LANGUAGE = T.SOURCE_LANG)
70: WHERE (
71: T.ID,
72: T.LANGUAGE)
73: IN (SELECT
74: SUBT.ID,
75: SUBT.LANGUAGE
76: FROM OKC_CHANGES_TL SUBB, OKC_CHANGES_TL SUBT
77: WHERE SUBB.ID = SUBT.ID
78: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
79: AND (SUBB.SHORT_DESCRIPTION <> SUBT.SHORT_DESCRIPTION
80: -- Commented in favor of handcode
91:
92: */
93:
94: /* Modifying Insert as per performance guidelines given in bug 3723874 */
95: INSERT /*+ append parallel(tt) */ INTO OKC_CHANGES_TL tt(
96: ID,
97: LANGUAGE,
98: SOURCE_LANG,
99: SFWT_FLAG,
116: B.CREATION_DATE,
117: B.LAST_UPDATED_BY,
118: B.LAST_UPDATE_DATE,
119: B.LAST_UPDATE_LOGIN
120: FROM OKC_CHANGES_TL B, FND_LANGUAGES L
121: WHERE L.INSTALLED_FLAG IN ('I', 'B')
122: AND B.LANGUAGE = USERENV('LANG')
123: ) v, OKC_CHANGES_TL T
124: WHERE T.ID(+) = v.ID
119: B.LAST_UPDATE_LOGIN
120: FROM OKC_CHANGES_TL B, FND_LANGUAGES L
121: WHERE L.INSTALLED_FLAG IN ('I', 'B')
122: AND B.LANGUAGE = USERENV('LANG')
123: ) v, OKC_CHANGES_TL T
124: WHERE T.ID(+) = v.ID
125: AND T.LANGUAGE(+) = v.LANGUAGE_CODE
126: AND T.ID IS NULL;
127:
209: BEGIN
210: RETURN(get_rec(p_cor_rec, l_row_notfound));
211: END get_rec;
212: ---------------------------------------------------------------------------
213: -- FUNCTION get_rec for: OKC_CHANGES_TL
214: ---------------------------------------------------------------------------
215: FUNCTION get_rec (
216: p_okc_changes_tl_rec IN okc_changes_tl_rec_type,
217: x_no_data_found OUT NOCOPY BOOLEAN
212: ---------------------------------------------------------------------------
213: -- FUNCTION get_rec for: OKC_CHANGES_TL
214: ---------------------------------------------------------------------------
215: FUNCTION get_rec (
216: p_okc_changes_tl_rec IN okc_changes_tl_rec_type,
217: x_no_data_found OUT NOCOPY BOOLEAN
218: ) RETURN okc_changes_tl_rec_type IS
219: CURSOR cor_pktl_csr (p_id IN NUMBER,
220: p_language IN VARCHAR2) IS
214: ---------------------------------------------------------------------------
215: FUNCTION get_rec (
216: p_okc_changes_tl_rec IN okc_changes_tl_rec_type,
217: x_no_data_found OUT NOCOPY BOOLEAN
218: ) RETURN okc_changes_tl_rec_type IS
219: CURSOR cor_pktl_csr (p_id IN NUMBER,
220: p_language IN VARCHAR2) IS
221: SELECT
222: ID,
229: CREATION_DATE,
230: LAST_UPDATED_BY,
231: LAST_UPDATE_DATE,
232: LAST_UPDATE_LOGIN
233: FROM Okc_Changes_Tl
234: WHERE okc_changes_tl.id = p_id
235: AND okc_changes_tl.language = p_language;
236: l_cor_pktl cor_pktl_csr%ROWTYPE;
237: l_okc_changes_tl_rec okc_changes_tl_rec_type;
230: LAST_UPDATED_BY,
231: LAST_UPDATE_DATE,
232: LAST_UPDATE_LOGIN
233: FROM Okc_Changes_Tl
234: WHERE okc_changes_tl.id = p_id
235: AND okc_changes_tl.language = p_language;
236: l_cor_pktl cor_pktl_csr%ROWTYPE;
237: l_okc_changes_tl_rec okc_changes_tl_rec_type;
238: BEGIN
231: LAST_UPDATE_DATE,
232: LAST_UPDATE_LOGIN
233: FROM Okc_Changes_Tl
234: WHERE okc_changes_tl.id = p_id
235: AND okc_changes_tl.language = p_language;
236: l_cor_pktl cor_pktl_csr%ROWTYPE;
237: l_okc_changes_tl_rec okc_changes_tl_rec_type;
238: BEGIN
239: x_no_data_found := TRUE;
233: FROM Okc_Changes_Tl
234: WHERE okc_changes_tl.id = p_id
235: AND okc_changes_tl.language = p_language;
236: l_cor_pktl cor_pktl_csr%ROWTYPE;
237: l_okc_changes_tl_rec okc_changes_tl_rec_type;
238: BEGIN
239: x_no_data_found := TRUE;
240: -- Get current database values
241: OPEN cor_pktl_csr (p_okc_changes_tl_rec.id,
237: l_okc_changes_tl_rec okc_changes_tl_rec_type;
238: BEGIN
239: x_no_data_found := TRUE;
240: -- Get current database values
241: OPEN cor_pktl_csr (p_okc_changes_tl_rec.id,
242: p_okc_changes_tl_rec.language);
243: FETCH cor_pktl_csr INTO
244: l_okc_changes_tl_rec.ID,
245: l_okc_changes_tl_rec.LANGUAGE,
238: BEGIN
239: x_no_data_found := TRUE;
240: -- Get current database values
241: OPEN cor_pktl_csr (p_okc_changes_tl_rec.id,
242: p_okc_changes_tl_rec.language);
243: FETCH cor_pktl_csr INTO
244: l_okc_changes_tl_rec.ID,
245: l_okc_changes_tl_rec.LANGUAGE,
246: l_okc_changes_tl_rec.SOURCE_LANG,
240: -- Get current database values
241: OPEN cor_pktl_csr (p_okc_changes_tl_rec.id,
242: p_okc_changes_tl_rec.language);
243: FETCH cor_pktl_csr INTO
244: l_okc_changes_tl_rec.ID,
245: l_okc_changes_tl_rec.LANGUAGE,
246: l_okc_changes_tl_rec.SOURCE_LANG,
247: l_okc_changes_tl_rec.SFWT_FLAG,
248: l_okc_changes_tl_rec.SHORT_DESCRIPTION,
241: OPEN cor_pktl_csr (p_okc_changes_tl_rec.id,
242: p_okc_changes_tl_rec.language);
243: FETCH cor_pktl_csr INTO
244: l_okc_changes_tl_rec.ID,
245: l_okc_changes_tl_rec.LANGUAGE,
246: l_okc_changes_tl_rec.SOURCE_LANG,
247: l_okc_changes_tl_rec.SFWT_FLAG,
248: l_okc_changes_tl_rec.SHORT_DESCRIPTION,
249: l_okc_changes_tl_rec.CHANGE_TEXT,
242: p_okc_changes_tl_rec.language);
243: FETCH cor_pktl_csr INTO
244: l_okc_changes_tl_rec.ID,
245: l_okc_changes_tl_rec.LANGUAGE,
246: l_okc_changes_tl_rec.SOURCE_LANG,
247: l_okc_changes_tl_rec.SFWT_FLAG,
248: l_okc_changes_tl_rec.SHORT_DESCRIPTION,
249: l_okc_changes_tl_rec.CHANGE_TEXT,
250: l_okc_changes_tl_rec.CREATED_BY,
243: FETCH cor_pktl_csr INTO
244: l_okc_changes_tl_rec.ID,
245: l_okc_changes_tl_rec.LANGUAGE,
246: l_okc_changes_tl_rec.SOURCE_LANG,
247: l_okc_changes_tl_rec.SFWT_FLAG,
248: l_okc_changes_tl_rec.SHORT_DESCRIPTION,
249: l_okc_changes_tl_rec.CHANGE_TEXT,
250: l_okc_changes_tl_rec.CREATED_BY,
251: l_okc_changes_tl_rec.CREATION_DATE,
244: l_okc_changes_tl_rec.ID,
245: l_okc_changes_tl_rec.LANGUAGE,
246: l_okc_changes_tl_rec.SOURCE_LANG,
247: l_okc_changes_tl_rec.SFWT_FLAG,
248: l_okc_changes_tl_rec.SHORT_DESCRIPTION,
249: l_okc_changes_tl_rec.CHANGE_TEXT,
250: l_okc_changes_tl_rec.CREATED_BY,
251: l_okc_changes_tl_rec.CREATION_DATE,
252: l_okc_changes_tl_rec.LAST_UPDATED_BY,
245: l_okc_changes_tl_rec.LANGUAGE,
246: l_okc_changes_tl_rec.SOURCE_LANG,
247: l_okc_changes_tl_rec.SFWT_FLAG,
248: l_okc_changes_tl_rec.SHORT_DESCRIPTION,
249: l_okc_changes_tl_rec.CHANGE_TEXT,
250: l_okc_changes_tl_rec.CREATED_BY,
251: l_okc_changes_tl_rec.CREATION_DATE,
252: l_okc_changes_tl_rec.LAST_UPDATED_BY,
253: l_okc_changes_tl_rec.LAST_UPDATE_DATE,
246: l_okc_changes_tl_rec.SOURCE_LANG,
247: l_okc_changes_tl_rec.SFWT_FLAG,
248: l_okc_changes_tl_rec.SHORT_DESCRIPTION,
249: l_okc_changes_tl_rec.CHANGE_TEXT,
250: l_okc_changes_tl_rec.CREATED_BY,
251: l_okc_changes_tl_rec.CREATION_DATE,
252: l_okc_changes_tl_rec.LAST_UPDATED_BY,
253: l_okc_changes_tl_rec.LAST_UPDATE_DATE,
254: l_okc_changes_tl_rec.LAST_UPDATE_LOGIN;
247: l_okc_changes_tl_rec.SFWT_FLAG,
248: l_okc_changes_tl_rec.SHORT_DESCRIPTION,
249: l_okc_changes_tl_rec.CHANGE_TEXT,
250: l_okc_changes_tl_rec.CREATED_BY,
251: l_okc_changes_tl_rec.CREATION_DATE,
252: l_okc_changes_tl_rec.LAST_UPDATED_BY,
253: l_okc_changes_tl_rec.LAST_UPDATE_DATE,
254: l_okc_changes_tl_rec.LAST_UPDATE_LOGIN;
255: x_no_data_found := cor_pktl_csr%NOTFOUND;
248: l_okc_changes_tl_rec.SHORT_DESCRIPTION,
249: l_okc_changes_tl_rec.CHANGE_TEXT,
250: l_okc_changes_tl_rec.CREATED_BY,
251: l_okc_changes_tl_rec.CREATION_DATE,
252: l_okc_changes_tl_rec.LAST_UPDATED_BY,
253: l_okc_changes_tl_rec.LAST_UPDATE_DATE,
254: l_okc_changes_tl_rec.LAST_UPDATE_LOGIN;
255: x_no_data_found := cor_pktl_csr%NOTFOUND;
256: CLOSE cor_pktl_csr;
249: l_okc_changes_tl_rec.CHANGE_TEXT,
250: l_okc_changes_tl_rec.CREATED_BY,
251: l_okc_changes_tl_rec.CREATION_DATE,
252: l_okc_changes_tl_rec.LAST_UPDATED_BY,
253: l_okc_changes_tl_rec.LAST_UPDATE_DATE,
254: l_okc_changes_tl_rec.LAST_UPDATE_LOGIN;
255: x_no_data_found := cor_pktl_csr%NOTFOUND;
256: CLOSE cor_pktl_csr;
257: RETURN(l_okc_changes_tl_rec);
250: l_okc_changes_tl_rec.CREATED_BY,
251: l_okc_changes_tl_rec.CREATION_DATE,
252: l_okc_changes_tl_rec.LAST_UPDATED_BY,
253: l_okc_changes_tl_rec.LAST_UPDATE_DATE,
254: l_okc_changes_tl_rec.LAST_UPDATE_LOGIN;
255: x_no_data_found := cor_pktl_csr%NOTFOUND;
256: CLOSE cor_pktl_csr;
257: RETURN(l_okc_changes_tl_rec);
258: END get_rec;
253: l_okc_changes_tl_rec.LAST_UPDATE_DATE,
254: l_okc_changes_tl_rec.LAST_UPDATE_LOGIN;
255: x_no_data_found := cor_pktl_csr%NOTFOUND;
256: CLOSE cor_pktl_csr;
257: RETURN(l_okc_changes_tl_rec);
258: END get_rec;
259:
260: FUNCTION get_rec (
261: p_okc_changes_tl_rec IN okc_changes_tl_rec_type
257: RETURN(l_okc_changes_tl_rec);
258: END get_rec;
259:
260: FUNCTION get_rec (
261: p_okc_changes_tl_rec IN okc_changes_tl_rec_type
262: ) RETURN okc_changes_tl_rec_type IS
263: l_row_notfound BOOLEAN := TRUE;
264: BEGIN
265: RETURN(get_rec(p_okc_changes_tl_rec, l_row_notfound));
258: END get_rec;
259:
260: FUNCTION get_rec (
261: p_okc_changes_tl_rec IN okc_changes_tl_rec_type
262: ) RETURN okc_changes_tl_rec_type IS
263: l_row_notfound BOOLEAN := TRUE;
264: BEGIN
265: RETURN(get_rec(p_okc_changes_tl_rec, l_row_notfound));
266: END get_rec;
261: p_okc_changes_tl_rec IN okc_changes_tl_rec_type
262: ) RETURN okc_changes_tl_rec_type IS
263: l_row_notfound BOOLEAN := TRUE;
264: BEGIN
265: RETURN(get_rec(p_okc_changes_tl_rec, l_row_notfound));
266: END get_rec;
267: ---------------------------------------------------------------------------
268: -- FUNCTION get_rec for: OKC_CHANGES_V
269: ---------------------------------------------------------------------------
637: p_to.attribute15 := p_from.attribute15;
638: END migrate;
639: PROCEDURE migrate (
640: p_from IN corv_rec_type,
641: p_to IN OUT NOCOPY okc_changes_tl_rec_type
642: ) IS
643: BEGIN
644: p_to.id := p_from.id;
645: p_to.sfwt_flag := p_from.sfwt_flag;
651: p_to.last_update_date := p_from.last_update_date;
652: p_to.last_update_login := p_from.last_update_login;
653: END migrate;
654: PROCEDURE migrate (
655: p_from IN okc_changes_tl_rec_type,
656: p_to IN OUT NOCOPY corv_rec_type
657: ) IS
658: BEGIN
659: p_to.id := p_from.id;
685: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
686: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
687: l_corv_rec corv_rec_type := p_corv_rec;
688: l_cor_rec cor_rec_type;
689: l_okc_changes_tl_rec okc_changes_tl_rec_type;
690: BEGIN
691: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
692: G_PKG_NAME,
693: p_init_msg_list,
952: '_PVT'
953: );
954: END insert_row;
955: -----------------------------------
956: -- insert_row for:OKC_CHANGES_TL --
957: -----------------------------------
958: PROCEDURE insert_row(
959: p_init_msg_list IN VARCHAR2 ,
960: x_return_status OUT NOCOPY VARCHAR2,
959: p_init_msg_list IN VARCHAR2 ,
960: x_return_status OUT NOCOPY VARCHAR2,
961: x_msg_count OUT NOCOPY NUMBER,
962: x_msg_data OUT NOCOPY VARCHAR2,
963: p_okc_changes_tl_rec IN okc_changes_tl_rec_type,
964: x_okc_changes_tl_rec OUT NOCOPY okc_changes_tl_rec_type) IS
965:
966: l_api_version CONSTANT NUMBER := 1;
967: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
960: x_return_status OUT NOCOPY VARCHAR2,
961: x_msg_count OUT NOCOPY NUMBER,
962: x_msg_data OUT NOCOPY VARCHAR2,
963: p_okc_changes_tl_rec IN okc_changes_tl_rec_type,
964: x_okc_changes_tl_rec OUT NOCOPY okc_changes_tl_rec_type) IS
965:
966: l_api_version CONSTANT NUMBER := 1;
967: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
968: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
965:
966: l_api_version CONSTANT NUMBER := 1;
967: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
968: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
969: l_okc_changes_tl_rec okc_changes_tl_rec_type := p_okc_changes_tl_rec;
970: l_def_okc_changes_tl_rec okc_changes_tl_rec_type;
971: CURSOR get_languages IS
972: SELECT *
973: FROM FND_LANGUAGES
966: l_api_version CONSTANT NUMBER := 1;
967: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
968: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
969: l_okc_changes_tl_rec okc_changes_tl_rec_type := p_okc_changes_tl_rec;
970: l_def_okc_changes_tl_rec okc_changes_tl_rec_type;
971: CURSOR get_languages IS
972: SELECT *
973: FROM FND_LANGUAGES
974: WHERE INSTALLED_FLAG IN ('I', 'B');
972: SELECT *
973: FROM FND_LANGUAGES
974: WHERE INSTALLED_FLAG IN ('I', 'B');
975: ---------------------------------------
976: -- Set_Attributes for:OKC_CHANGES_TL --
977: ---------------------------------------
978: FUNCTION Set_Attributes (
979: p_okc_changes_tl_rec IN okc_changes_tl_rec_type,
980: x_okc_changes_tl_rec OUT NOCOPY okc_changes_tl_rec_type
975: ---------------------------------------
976: -- Set_Attributes for:OKC_CHANGES_TL --
977: ---------------------------------------
978: FUNCTION Set_Attributes (
979: p_okc_changes_tl_rec IN okc_changes_tl_rec_type,
980: x_okc_changes_tl_rec OUT NOCOPY okc_changes_tl_rec_type
981: ) RETURN VARCHAR2 IS
982: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
983: BEGIN
976: -- Set_Attributes for:OKC_CHANGES_TL --
977: ---------------------------------------
978: FUNCTION Set_Attributes (
979: p_okc_changes_tl_rec IN okc_changes_tl_rec_type,
980: x_okc_changes_tl_rec OUT NOCOPY okc_changes_tl_rec_type
981: ) RETURN VARCHAR2 IS
982: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
983: BEGIN
984: x_okc_changes_tl_rec := p_okc_changes_tl_rec;
980: x_okc_changes_tl_rec OUT NOCOPY okc_changes_tl_rec_type
981: ) RETURN VARCHAR2 IS
982: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
983: BEGIN
984: x_okc_changes_tl_rec := p_okc_changes_tl_rec;
985: x_okc_changes_tl_rec.LANGUAGE := USERENV('LANG');
986: x_okc_changes_tl_rec.SOURCE_LANG := USERENV('LANG');
987: RETURN(l_return_status);
988: END Set_Attributes;
981: ) RETURN VARCHAR2 IS
982: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
983: BEGIN
984: x_okc_changes_tl_rec := p_okc_changes_tl_rec;
985: x_okc_changes_tl_rec.LANGUAGE := USERENV('LANG');
986: x_okc_changes_tl_rec.SOURCE_LANG := USERENV('LANG');
987: RETURN(l_return_status);
988: END Set_Attributes;
989: BEGIN
982: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
983: BEGIN
984: x_okc_changes_tl_rec := p_okc_changes_tl_rec;
985: x_okc_changes_tl_rec.LANGUAGE := USERENV('LANG');
986: x_okc_changes_tl_rec.SOURCE_LANG := USERENV('LANG');
987: RETURN(l_return_status);
988: END Set_Attributes;
989: BEGIN
990: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
997: RAISE OKC_API.G_EXCEPTION_ERROR;
998: END IF;
999: --- Setting item attributes
1000: l_return_status := Set_Attributes(
1001: p_okc_changes_tl_rec, -- IN
1002: l_okc_changes_tl_rec); -- OUT
1003: --- If any errors happen abort API
1004: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1005: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
998: END IF;
999: --- Setting item attributes
1000: l_return_status := Set_Attributes(
1001: p_okc_changes_tl_rec, -- IN
1002: l_okc_changes_tl_rec); -- OUT
1003: --- If any errors happen abort API
1004: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1005: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1006: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1006: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1007: RAISE OKC_API.G_EXCEPTION_ERROR;
1008: END IF;
1009: FOR l_lang_rec IN get_languages LOOP
1010: l_okc_changes_tl_rec.language := l_lang_rec.language_code;
1011: INSERT INTO OKC_CHANGES_TL(
1012: id,
1013: language,
1014: source_lang,
1007: RAISE OKC_API.G_EXCEPTION_ERROR;
1008: END IF;
1009: FOR l_lang_rec IN get_languages LOOP
1010: l_okc_changes_tl_rec.language := l_lang_rec.language_code;
1011: INSERT INTO OKC_CHANGES_TL(
1012: id,
1013: language,
1014: source_lang,
1015: sfwt_flag,
1020: last_updated_by,
1021: last_update_date,
1022: last_update_login)
1023: VALUES (
1024: l_okc_changes_tl_rec.id,
1025: l_okc_changes_tl_rec.language,
1026: l_okc_changes_tl_rec.source_lang,
1027: l_okc_changes_tl_rec.sfwt_flag,
1028: l_okc_changes_tl_rec.short_description,
1021: last_update_date,
1022: last_update_login)
1023: VALUES (
1024: l_okc_changes_tl_rec.id,
1025: l_okc_changes_tl_rec.language,
1026: l_okc_changes_tl_rec.source_lang,
1027: l_okc_changes_tl_rec.sfwt_flag,
1028: l_okc_changes_tl_rec.short_description,
1029: l_okc_changes_tl_rec.change_text,
1022: last_update_login)
1023: VALUES (
1024: l_okc_changes_tl_rec.id,
1025: l_okc_changes_tl_rec.language,
1026: l_okc_changes_tl_rec.source_lang,
1027: l_okc_changes_tl_rec.sfwt_flag,
1028: l_okc_changes_tl_rec.short_description,
1029: l_okc_changes_tl_rec.change_text,
1030: l_okc_changes_tl_rec.created_by,
1023: VALUES (
1024: l_okc_changes_tl_rec.id,
1025: l_okc_changes_tl_rec.language,
1026: l_okc_changes_tl_rec.source_lang,
1027: l_okc_changes_tl_rec.sfwt_flag,
1028: l_okc_changes_tl_rec.short_description,
1029: l_okc_changes_tl_rec.change_text,
1030: l_okc_changes_tl_rec.created_by,
1031: l_okc_changes_tl_rec.creation_date,
1024: l_okc_changes_tl_rec.id,
1025: l_okc_changes_tl_rec.language,
1026: l_okc_changes_tl_rec.source_lang,
1027: l_okc_changes_tl_rec.sfwt_flag,
1028: l_okc_changes_tl_rec.short_description,
1029: l_okc_changes_tl_rec.change_text,
1030: l_okc_changes_tl_rec.created_by,
1031: l_okc_changes_tl_rec.creation_date,
1032: l_okc_changes_tl_rec.last_updated_by,
1025: l_okc_changes_tl_rec.language,
1026: l_okc_changes_tl_rec.source_lang,
1027: l_okc_changes_tl_rec.sfwt_flag,
1028: l_okc_changes_tl_rec.short_description,
1029: l_okc_changes_tl_rec.change_text,
1030: l_okc_changes_tl_rec.created_by,
1031: l_okc_changes_tl_rec.creation_date,
1032: l_okc_changes_tl_rec.last_updated_by,
1033: l_okc_changes_tl_rec.last_update_date,
1026: l_okc_changes_tl_rec.source_lang,
1027: l_okc_changes_tl_rec.sfwt_flag,
1028: l_okc_changes_tl_rec.short_description,
1029: l_okc_changes_tl_rec.change_text,
1030: l_okc_changes_tl_rec.created_by,
1031: l_okc_changes_tl_rec.creation_date,
1032: l_okc_changes_tl_rec.last_updated_by,
1033: l_okc_changes_tl_rec.last_update_date,
1034: l_okc_changes_tl_rec.last_update_login);
1027: l_okc_changes_tl_rec.sfwt_flag,
1028: l_okc_changes_tl_rec.short_description,
1029: l_okc_changes_tl_rec.change_text,
1030: l_okc_changes_tl_rec.created_by,
1031: l_okc_changes_tl_rec.creation_date,
1032: l_okc_changes_tl_rec.last_updated_by,
1033: l_okc_changes_tl_rec.last_update_date,
1034: l_okc_changes_tl_rec.last_update_login);
1035: END LOOP;
1028: l_okc_changes_tl_rec.short_description,
1029: l_okc_changes_tl_rec.change_text,
1030: l_okc_changes_tl_rec.created_by,
1031: l_okc_changes_tl_rec.creation_date,
1032: l_okc_changes_tl_rec.last_updated_by,
1033: l_okc_changes_tl_rec.last_update_date,
1034: l_okc_changes_tl_rec.last_update_login);
1035: END LOOP;
1036: -- Set OUT values
1029: l_okc_changes_tl_rec.change_text,
1030: l_okc_changes_tl_rec.created_by,
1031: l_okc_changes_tl_rec.creation_date,
1032: l_okc_changes_tl_rec.last_updated_by,
1033: l_okc_changes_tl_rec.last_update_date,
1034: l_okc_changes_tl_rec.last_update_login);
1035: END LOOP;
1036: -- Set OUT values
1037: x_okc_changes_tl_rec := l_okc_changes_tl_rec;
1030: l_okc_changes_tl_rec.created_by,
1031: l_okc_changes_tl_rec.creation_date,
1032: l_okc_changes_tl_rec.last_updated_by,
1033: l_okc_changes_tl_rec.last_update_date,
1034: l_okc_changes_tl_rec.last_update_login);
1035: END LOOP;
1036: -- Set OUT values
1037: x_okc_changes_tl_rec := l_okc_changes_tl_rec;
1038: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1033: l_okc_changes_tl_rec.last_update_date,
1034: l_okc_changes_tl_rec.last_update_login);
1035: END LOOP;
1036: -- Set OUT values
1037: x_okc_changes_tl_rec := l_okc_changes_tl_rec;
1038: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1039: EXCEPTION
1040: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1041: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1086: l_corv_rec corv_rec_type;
1087: l_def_corv_rec corv_rec_type;
1088: l_cor_rec cor_rec_type;
1089: lx_cor_rec cor_rec_type;
1090: l_okc_changes_tl_rec okc_changes_tl_rec_type;
1091: lx_okc_changes_tl_rec okc_changes_tl_rec_type;
1092: -------------------------------
1093: -- FUNCTION fill_who_columns --
1094: -------------------------------
1087: l_def_corv_rec corv_rec_type;
1088: l_cor_rec cor_rec_type;
1089: lx_cor_rec cor_rec_type;
1090: l_okc_changes_tl_rec okc_changes_tl_rec_type;
1091: lx_okc_changes_tl_rec okc_changes_tl_rec_type;
1092: -------------------------------
1093: -- FUNCTION fill_who_columns --
1094: -------------------------------
1095: FUNCTION fill_who_columns (
1162: --------------------------------------
1163: -- Move VIEW record to "Child" records
1164: --------------------------------------
1165: migrate(l_def_corv_rec, l_cor_rec);
1166: migrate(l_def_corv_rec, l_okc_changes_tl_rec);
1167: --------------------------------------------
1168: -- Call the INSERT_ROW for each child record
1169: --------------------------------------------
1170: insert_row(
1185: p_init_msg_list,
1186: x_return_status,
1187: x_msg_count,
1188: x_msg_data,
1189: l_okc_changes_tl_rec,
1190: lx_okc_changes_tl_rec
1191: );
1192: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1193: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1186: x_return_status,
1187: x_msg_count,
1188: x_msg_data,
1189: l_okc_changes_tl_rec,
1190: lx_okc_changes_tl_rec
1191: );
1192: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1193: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1194: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1193: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1194: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1195: RAISE OKC_API.G_EXCEPTION_ERROR;
1196: END IF;
1197: migrate(lx_okc_changes_tl_rec, l_def_corv_rec);
1198: -- Set OUT values
1199: x_corv_rec := l_def_corv_rec;
1200: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1201: EXCEPTION
1406: '_PVT'
1407: );
1408: END lock_row;
1409: ---------------------------------
1410: -- lock_row for:OKC_CHANGES_TL --
1411: ---------------------------------
1412: PROCEDURE lock_row(
1413: p_init_msg_list IN VARCHAR2 ,
1414: x_return_status OUT NOCOPY VARCHAR2,
1413: p_init_msg_list IN VARCHAR2 ,
1414: x_return_status OUT NOCOPY VARCHAR2,
1415: x_msg_count OUT NOCOPY NUMBER,
1416: x_msg_data OUT NOCOPY VARCHAR2,
1417: p_okc_changes_tl_rec IN okc_changes_tl_rec_type) IS
1418:
1419: E_Resource_Busy EXCEPTION;
1420: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1421: CURSOR lock_csr (p_okc_changes_tl_rec IN okc_changes_tl_rec_type) IS
1417: p_okc_changes_tl_rec IN okc_changes_tl_rec_type) IS
1418:
1419: E_Resource_Busy EXCEPTION;
1420: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1421: CURSOR lock_csr (p_okc_changes_tl_rec IN okc_changes_tl_rec_type) IS
1422: SELECT *
1423: FROM OKC_CHANGES_TL
1424: WHERE ID = p_okc_changes_tl_rec.id
1425: FOR UPDATE NOWAIT;
1419: E_Resource_Busy EXCEPTION;
1420: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1421: CURSOR lock_csr (p_okc_changes_tl_rec IN okc_changes_tl_rec_type) IS
1422: SELECT *
1423: FROM OKC_CHANGES_TL
1424: WHERE ID = p_okc_changes_tl_rec.id
1425: FOR UPDATE NOWAIT;
1426:
1427: l_api_version CONSTANT NUMBER := 1;
1420: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1421: CURSOR lock_csr (p_okc_changes_tl_rec IN okc_changes_tl_rec_type) IS
1422: SELECT *
1423: FROM OKC_CHANGES_TL
1424: WHERE ID = p_okc_changes_tl_rec.id
1425: FOR UPDATE NOWAIT;
1426:
1427: l_api_version CONSTANT NUMBER := 1;
1428: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
1440: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1441: RAISE OKC_API.G_EXCEPTION_ERROR;
1442: END IF;
1443: BEGIN
1444: OPEN lock_csr(p_okc_changes_tl_rec);
1445: FETCH lock_csr INTO l_lock_var;
1446: l_row_notfound := lock_csr%NOTFOUND;
1447: CLOSE lock_csr;
1448: EXCEPTION
1505: l_api_version CONSTANT NUMBER := 1;
1506: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1507: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1508: l_cor_rec cor_rec_type;
1509: l_okc_changes_tl_rec okc_changes_tl_rec_type;
1510: BEGIN
1511: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1512: G_PKG_NAME,
1513: p_init_msg_list,
1523: --------------------------------------
1524: -- Move VIEW record to "Child" records
1525: --------------------------------------
1526: migrate(p_corv_rec, l_cor_rec);
1527: migrate(p_corv_rec, l_okc_changes_tl_rec);
1528: --------------------------------------------
1529: -- Call the LOCK_ROW for each child record
1530: --------------------------------------------
1531: lock_row(
1544: p_init_msg_list,
1545: x_return_status,
1546: x_msg_count,
1547: x_msg_data,
1548: l_okc_changes_tl_rec
1549: );
1550: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1551: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1552: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1893: '_PVT'
1894: );
1895: END update_row;
1896: -----------------------------------
1897: -- update_row for:OKC_CHANGES_TL --
1898: -----------------------------------
1899: PROCEDURE update_row(
1900: p_init_msg_list IN VARCHAR2 ,
1901: x_return_status OUT NOCOPY VARCHAR2,
1900: p_init_msg_list IN VARCHAR2 ,
1901: x_return_status OUT NOCOPY VARCHAR2,
1902: x_msg_count OUT NOCOPY NUMBER,
1903: x_msg_data OUT NOCOPY VARCHAR2,
1904: p_okc_changes_tl_rec IN okc_changes_tl_rec_type,
1905: x_okc_changes_tl_rec OUT NOCOPY okc_changes_tl_rec_type) IS
1906:
1907: l_api_version CONSTANT NUMBER := 1;
1908: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
1901: x_return_status OUT NOCOPY VARCHAR2,
1902: x_msg_count OUT NOCOPY NUMBER,
1903: x_msg_data OUT NOCOPY VARCHAR2,
1904: p_okc_changes_tl_rec IN okc_changes_tl_rec_type,
1905: x_okc_changes_tl_rec OUT NOCOPY okc_changes_tl_rec_type) IS
1906:
1907: l_api_version CONSTANT NUMBER := 1;
1908: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
1909: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1906:
1907: l_api_version CONSTANT NUMBER := 1;
1908: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
1909: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1910: l_okc_changes_tl_rec okc_changes_tl_rec_type := p_okc_changes_tl_rec;
1911: l_def_okc_changes_tl_rec okc_changes_tl_rec_type;
1912: l_row_notfound BOOLEAN := TRUE;
1913: ----------------------------------
1914: -- FUNCTION populate_new_record --
1907: l_api_version CONSTANT NUMBER := 1;
1908: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
1909: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1910: l_okc_changes_tl_rec okc_changes_tl_rec_type := p_okc_changes_tl_rec;
1911: l_def_okc_changes_tl_rec okc_changes_tl_rec_type;
1912: l_row_notfound BOOLEAN := TRUE;
1913: ----------------------------------
1914: -- FUNCTION populate_new_record --
1915: ----------------------------------
1913: ----------------------------------
1914: -- FUNCTION populate_new_record --
1915: ----------------------------------
1916: FUNCTION populate_new_record (
1917: p_okc_changes_tl_rec IN okc_changes_tl_rec_type,
1918: x_okc_changes_tl_rec OUT NOCOPY okc_changes_tl_rec_type
1919: ) RETURN VARCHAR2 IS
1920: l_okc_changes_tl_rec okc_changes_tl_rec_type;
1921: l_row_notfound BOOLEAN := TRUE;
1914: -- FUNCTION populate_new_record --
1915: ----------------------------------
1916: FUNCTION populate_new_record (
1917: p_okc_changes_tl_rec IN okc_changes_tl_rec_type,
1918: x_okc_changes_tl_rec OUT NOCOPY okc_changes_tl_rec_type
1919: ) RETURN VARCHAR2 IS
1920: l_okc_changes_tl_rec okc_changes_tl_rec_type;
1921: l_row_notfound BOOLEAN := TRUE;
1922: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1916: FUNCTION populate_new_record (
1917: p_okc_changes_tl_rec IN okc_changes_tl_rec_type,
1918: x_okc_changes_tl_rec OUT NOCOPY okc_changes_tl_rec_type
1919: ) RETURN VARCHAR2 IS
1920: l_okc_changes_tl_rec okc_changes_tl_rec_type;
1921: l_row_notfound BOOLEAN := TRUE;
1922: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1923: BEGIN
1924: x_okc_changes_tl_rec := p_okc_changes_tl_rec;
1920: l_okc_changes_tl_rec okc_changes_tl_rec_type;
1921: l_row_notfound BOOLEAN := TRUE;
1922: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1923: BEGIN
1924: x_okc_changes_tl_rec := p_okc_changes_tl_rec;
1925: -- Get current database values
1926: l_okc_changes_tl_rec := get_rec(p_okc_changes_tl_rec, l_row_notfound);
1927: IF (l_row_notfound) THEN
1928: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1922: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1923: BEGIN
1924: x_okc_changes_tl_rec := p_okc_changes_tl_rec;
1925: -- Get current database values
1926: l_okc_changes_tl_rec := get_rec(p_okc_changes_tl_rec, l_row_notfound);
1927: IF (l_row_notfound) THEN
1928: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1929: END IF;
1930: IF (x_okc_changes_tl_rec.id = OKC_API.G_MISS_NUM)
1926: l_okc_changes_tl_rec := get_rec(p_okc_changes_tl_rec, l_row_notfound);
1927: IF (l_row_notfound) THEN
1928: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1929: END IF;
1930: IF (x_okc_changes_tl_rec.id = OKC_API.G_MISS_NUM)
1931: THEN
1932: x_okc_changes_tl_rec.id := l_okc_changes_tl_rec.id;
1933: END IF;
1934: IF (x_okc_changes_tl_rec.language = OKC_API.G_MISS_CHAR)
1928: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1929: END IF;
1930: IF (x_okc_changes_tl_rec.id = OKC_API.G_MISS_NUM)
1931: THEN
1932: x_okc_changes_tl_rec.id := l_okc_changes_tl_rec.id;
1933: END IF;
1934: IF (x_okc_changes_tl_rec.language = OKC_API.G_MISS_CHAR)
1935: THEN
1936: x_okc_changes_tl_rec.language := l_okc_changes_tl_rec.language;
1930: IF (x_okc_changes_tl_rec.id = OKC_API.G_MISS_NUM)
1931: THEN
1932: x_okc_changes_tl_rec.id := l_okc_changes_tl_rec.id;
1933: END IF;
1934: IF (x_okc_changes_tl_rec.language = OKC_API.G_MISS_CHAR)
1935: THEN
1936: x_okc_changes_tl_rec.language := l_okc_changes_tl_rec.language;
1937: END IF;
1938: IF (x_okc_changes_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
1932: x_okc_changes_tl_rec.id := l_okc_changes_tl_rec.id;
1933: END IF;
1934: IF (x_okc_changes_tl_rec.language = OKC_API.G_MISS_CHAR)
1935: THEN
1936: x_okc_changes_tl_rec.language := l_okc_changes_tl_rec.language;
1937: END IF;
1938: IF (x_okc_changes_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
1939: THEN
1940: x_okc_changes_tl_rec.source_lang := l_okc_changes_tl_rec.source_lang;
1934: IF (x_okc_changes_tl_rec.language = OKC_API.G_MISS_CHAR)
1935: THEN
1936: x_okc_changes_tl_rec.language := l_okc_changes_tl_rec.language;
1937: END IF;
1938: IF (x_okc_changes_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
1939: THEN
1940: x_okc_changes_tl_rec.source_lang := l_okc_changes_tl_rec.source_lang;
1941: END IF;
1942: IF (x_okc_changes_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
1936: x_okc_changes_tl_rec.language := l_okc_changes_tl_rec.language;
1937: END IF;
1938: IF (x_okc_changes_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
1939: THEN
1940: x_okc_changes_tl_rec.source_lang := l_okc_changes_tl_rec.source_lang;
1941: END IF;
1942: IF (x_okc_changes_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
1943: THEN
1944: x_okc_changes_tl_rec.sfwt_flag := l_okc_changes_tl_rec.sfwt_flag;
1938: IF (x_okc_changes_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
1939: THEN
1940: x_okc_changes_tl_rec.source_lang := l_okc_changes_tl_rec.source_lang;
1941: END IF;
1942: IF (x_okc_changes_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
1943: THEN
1944: x_okc_changes_tl_rec.sfwt_flag := l_okc_changes_tl_rec.sfwt_flag;
1945: END IF;
1946: IF (x_okc_changes_tl_rec.short_description = OKC_API.G_MISS_CHAR)
1940: x_okc_changes_tl_rec.source_lang := l_okc_changes_tl_rec.source_lang;
1941: END IF;
1942: IF (x_okc_changes_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
1943: THEN
1944: x_okc_changes_tl_rec.sfwt_flag := l_okc_changes_tl_rec.sfwt_flag;
1945: END IF;
1946: IF (x_okc_changes_tl_rec.short_description = OKC_API.G_MISS_CHAR)
1947: THEN
1948: x_okc_changes_tl_rec.short_description := l_okc_changes_tl_rec.short_description;
1942: IF (x_okc_changes_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
1943: THEN
1944: x_okc_changes_tl_rec.sfwt_flag := l_okc_changes_tl_rec.sfwt_flag;
1945: END IF;
1946: IF (x_okc_changes_tl_rec.short_description = OKC_API.G_MISS_CHAR)
1947: THEN
1948: x_okc_changes_tl_rec.short_description := l_okc_changes_tl_rec.short_description;
1949: END IF;
1950: -- Commented in favor of hand code
1944: x_okc_changes_tl_rec.sfwt_flag := l_okc_changes_tl_rec.sfwt_flag;
1945: END IF;
1946: IF (x_okc_changes_tl_rec.short_description = OKC_API.G_MISS_CHAR)
1947: THEN
1948: x_okc_changes_tl_rec.short_description := l_okc_changes_tl_rec.short_description;
1949: END IF;
1950: -- Commented in favor of hand code
1951: --- IF (x_okc_changes_tl_rec.change_text = OKC_API.G_MISS_CHAR)
1952: IF (x_okc_changes_tl_rec.change_text is NULL)
1947: THEN
1948: x_okc_changes_tl_rec.short_description := l_okc_changes_tl_rec.short_description;
1949: END IF;
1950: -- Commented in favor of hand code
1951: --- IF (x_okc_changes_tl_rec.change_text = OKC_API.G_MISS_CHAR)
1952: IF (x_okc_changes_tl_rec.change_text is NULL)
1953: THEN
1954: x_okc_changes_tl_rec.change_text := l_okc_changes_tl_rec.change_text;
1955: END IF;
1948: x_okc_changes_tl_rec.short_description := l_okc_changes_tl_rec.short_description;
1949: END IF;
1950: -- Commented in favor of hand code
1951: --- IF (x_okc_changes_tl_rec.change_text = OKC_API.G_MISS_CHAR)
1952: IF (x_okc_changes_tl_rec.change_text is NULL)
1953: THEN
1954: x_okc_changes_tl_rec.change_text := l_okc_changes_tl_rec.change_text;
1955: END IF;
1956: IF (x_okc_changes_tl_rec.created_by = OKC_API.G_MISS_NUM)
1950: -- Commented in favor of hand code
1951: --- IF (x_okc_changes_tl_rec.change_text = OKC_API.G_MISS_CHAR)
1952: IF (x_okc_changes_tl_rec.change_text is NULL)
1953: THEN
1954: x_okc_changes_tl_rec.change_text := l_okc_changes_tl_rec.change_text;
1955: END IF;
1956: IF (x_okc_changes_tl_rec.created_by = OKC_API.G_MISS_NUM)
1957: THEN
1958: x_okc_changes_tl_rec.created_by := l_okc_changes_tl_rec.created_by;
1952: IF (x_okc_changes_tl_rec.change_text is NULL)
1953: THEN
1954: x_okc_changes_tl_rec.change_text := l_okc_changes_tl_rec.change_text;
1955: END IF;
1956: IF (x_okc_changes_tl_rec.created_by = OKC_API.G_MISS_NUM)
1957: THEN
1958: x_okc_changes_tl_rec.created_by := l_okc_changes_tl_rec.created_by;
1959: END IF;
1960: IF (x_okc_changes_tl_rec.creation_date = OKC_API.G_MISS_DATE)
1954: x_okc_changes_tl_rec.change_text := l_okc_changes_tl_rec.change_text;
1955: END IF;
1956: IF (x_okc_changes_tl_rec.created_by = OKC_API.G_MISS_NUM)
1957: THEN
1958: x_okc_changes_tl_rec.created_by := l_okc_changes_tl_rec.created_by;
1959: END IF;
1960: IF (x_okc_changes_tl_rec.creation_date = OKC_API.G_MISS_DATE)
1961: THEN
1962: x_okc_changes_tl_rec.creation_date := l_okc_changes_tl_rec.creation_date;
1956: IF (x_okc_changes_tl_rec.created_by = OKC_API.G_MISS_NUM)
1957: THEN
1958: x_okc_changes_tl_rec.created_by := l_okc_changes_tl_rec.created_by;
1959: END IF;
1960: IF (x_okc_changes_tl_rec.creation_date = OKC_API.G_MISS_DATE)
1961: THEN
1962: x_okc_changes_tl_rec.creation_date := l_okc_changes_tl_rec.creation_date;
1963: END IF;
1964: IF (x_okc_changes_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
1958: x_okc_changes_tl_rec.created_by := l_okc_changes_tl_rec.created_by;
1959: END IF;
1960: IF (x_okc_changes_tl_rec.creation_date = OKC_API.G_MISS_DATE)
1961: THEN
1962: x_okc_changes_tl_rec.creation_date := l_okc_changes_tl_rec.creation_date;
1963: END IF;
1964: IF (x_okc_changes_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
1965: THEN
1966: x_okc_changes_tl_rec.last_updated_by := l_okc_changes_tl_rec.last_updated_by;
1960: IF (x_okc_changes_tl_rec.creation_date = OKC_API.G_MISS_DATE)
1961: THEN
1962: x_okc_changes_tl_rec.creation_date := l_okc_changes_tl_rec.creation_date;
1963: END IF;
1964: IF (x_okc_changes_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
1965: THEN
1966: x_okc_changes_tl_rec.last_updated_by := l_okc_changes_tl_rec.last_updated_by;
1967: END IF;
1968: IF (x_okc_changes_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
1962: x_okc_changes_tl_rec.creation_date := l_okc_changes_tl_rec.creation_date;
1963: END IF;
1964: IF (x_okc_changes_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
1965: THEN
1966: x_okc_changes_tl_rec.last_updated_by := l_okc_changes_tl_rec.last_updated_by;
1967: END IF;
1968: IF (x_okc_changes_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
1969: THEN
1970: x_okc_changes_tl_rec.last_update_date := l_okc_changes_tl_rec.last_update_date;
1964: IF (x_okc_changes_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
1965: THEN
1966: x_okc_changes_tl_rec.last_updated_by := l_okc_changes_tl_rec.last_updated_by;
1967: END IF;
1968: IF (x_okc_changes_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
1969: THEN
1970: x_okc_changes_tl_rec.last_update_date := l_okc_changes_tl_rec.last_update_date;
1971: END IF;
1972: IF (x_okc_changes_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
1966: x_okc_changes_tl_rec.last_updated_by := l_okc_changes_tl_rec.last_updated_by;
1967: END IF;
1968: IF (x_okc_changes_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
1969: THEN
1970: x_okc_changes_tl_rec.last_update_date := l_okc_changes_tl_rec.last_update_date;
1971: END IF;
1972: IF (x_okc_changes_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
1973: THEN
1974: x_okc_changes_tl_rec.last_update_login := l_okc_changes_tl_rec.last_update_login;
1968: IF (x_okc_changes_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
1969: THEN
1970: x_okc_changes_tl_rec.last_update_date := l_okc_changes_tl_rec.last_update_date;
1971: END IF;
1972: IF (x_okc_changes_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
1973: THEN
1974: x_okc_changes_tl_rec.last_update_login := l_okc_changes_tl_rec.last_update_login;
1975: END IF;
1976: RETURN(l_return_status);
1970: x_okc_changes_tl_rec.last_update_date := l_okc_changes_tl_rec.last_update_date;
1971: END IF;
1972: IF (x_okc_changes_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
1973: THEN
1974: x_okc_changes_tl_rec.last_update_login := l_okc_changes_tl_rec.last_update_login;
1975: END IF;
1976: RETURN(l_return_status);
1977: END populate_new_record;
1978: ---------------------------------------
1975: END IF;
1976: RETURN(l_return_status);
1977: END populate_new_record;
1978: ---------------------------------------
1979: -- Set_Attributes for:OKC_CHANGES_TL --
1980: ---------------------------------------
1981: FUNCTION Set_Attributes (
1982: p_okc_changes_tl_rec IN okc_changes_tl_rec_type,
1983: x_okc_changes_tl_rec OUT NOCOPY okc_changes_tl_rec_type
1978: ---------------------------------------
1979: -- Set_Attributes for:OKC_CHANGES_TL --
1980: ---------------------------------------
1981: FUNCTION Set_Attributes (
1982: p_okc_changes_tl_rec IN okc_changes_tl_rec_type,
1983: x_okc_changes_tl_rec OUT NOCOPY okc_changes_tl_rec_type
1984: ) RETURN VARCHAR2 IS
1985: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1986: BEGIN
1979: -- Set_Attributes for:OKC_CHANGES_TL --
1980: ---------------------------------------
1981: FUNCTION Set_Attributes (
1982: p_okc_changes_tl_rec IN okc_changes_tl_rec_type,
1983: x_okc_changes_tl_rec OUT NOCOPY okc_changes_tl_rec_type
1984: ) RETURN VARCHAR2 IS
1985: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1986: BEGIN
1987: x_okc_changes_tl_rec := p_okc_changes_tl_rec;
1983: x_okc_changes_tl_rec OUT NOCOPY okc_changes_tl_rec_type
1984: ) RETURN VARCHAR2 IS
1985: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1986: BEGIN
1987: x_okc_changes_tl_rec := p_okc_changes_tl_rec;
1988: x_okc_changes_tl_rec.LANGUAGE := USERENV('LANG');
1989: x_okc_changes_tl_rec.SOURCE_LANG := USERENV('LANG');
1990: RETURN(l_return_status);
1991: END Set_Attributes;
1984: ) RETURN VARCHAR2 IS
1985: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1986: BEGIN
1987: x_okc_changes_tl_rec := p_okc_changes_tl_rec;
1988: x_okc_changes_tl_rec.LANGUAGE := USERENV('LANG');
1989: x_okc_changes_tl_rec.SOURCE_LANG := USERENV('LANG');
1990: RETURN(l_return_status);
1991: END Set_Attributes;
1992: BEGIN
1985: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1986: BEGIN
1987: x_okc_changes_tl_rec := p_okc_changes_tl_rec;
1988: x_okc_changes_tl_rec.LANGUAGE := USERENV('LANG');
1989: x_okc_changes_tl_rec.SOURCE_LANG := USERENV('LANG');
1990: RETURN(l_return_status);
1991: END Set_Attributes;
1992: BEGIN
1993: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2000: RAISE OKC_API.G_EXCEPTION_ERROR;
2001: END IF;
2002: --- Setting item attributes
2003: l_return_status := Set_Attributes(
2004: p_okc_changes_tl_rec, -- IN
2005: l_okc_changes_tl_rec); -- OUT
2006: --- If any errors happen abort API
2007: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2008: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2001: END IF;
2002: --- Setting item attributes
2003: l_return_status := Set_Attributes(
2004: p_okc_changes_tl_rec, -- IN
2005: l_okc_changes_tl_rec); -- OUT
2006: --- If any errors happen abort API
2007: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2008: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2009: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2008: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2009: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2010: RAISE OKC_API.G_EXCEPTION_ERROR;
2011: END IF;
2012: l_return_status := populate_new_record(l_okc_changes_tl_rec, l_def_okc_changes_tl_rec);
2013: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2014: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2015: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2016: RAISE OKC_API.G_EXCEPTION_ERROR;
2014: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2015: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2016: RAISE OKC_API.G_EXCEPTION_ERROR;
2017: END IF;
2018: UPDATE OKC_CHANGES_TL
2019: SET SHORT_DESCRIPTION = l_def_okc_changes_tl_rec.short_description,
2020: CHANGE_TEXT = l_def_okc_changes_tl_rec.change_text,
2021: CREATED_BY = l_def_okc_changes_tl_rec.created_by,
2022: CREATION_DATE = l_def_okc_changes_tl_rec.creation_date,
2015: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2016: RAISE OKC_API.G_EXCEPTION_ERROR;
2017: END IF;
2018: UPDATE OKC_CHANGES_TL
2019: SET SHORT_DESCRIPTION = l_def_okc_changes_tl_rec.short_description,
2020: CHANGE_TEXT = l_def_okc_changes_tl_rec.change_text,
2021: CREATED_BY = l_def_okc_changes_tl_rec.created_by,
2022: CREATION_DATE = l_def_okc_changes_tl_rec.creation_date,
2023: LAST_UPDATED_BY = l_def_okc_changes_tl_rec.last_updated_by,
2016: RAISE OKC_API.G_EXCEPTION_ERROR;
2017: END IF;
2018: UPDATE OKC_CHANGES_TL
2019: SET SHORT_DESCRIPTION = l_def_okc_changes_tl_rec.short_description,
2020: CHANGE_TEXT = l_def_okc_changes_tl_rec.change_text,
2021: CREATED_BY = l_def_okc_changes_tl_rec.created_by,
2022: CREATION_DATE = l_def_okc_changes_tl_rec.creation_date,
2023: LAST_UPDATED_BY = l_def_okc_changes_tl_rec.last_updated_by,
2024: LAST_UPDATE_DATE = l_def_okc_changes_tl_rec.last_update_date,
2017: END IF;
2018: UPDATE OKC_CHANGES_TL
2019: SET SHORT_DESCRIPTION = l_def_okc_changes_tl_rec.short_description,
2020: CHANGE_TEXT = l_def_okc_changes_tl_rec.change_text,
2021: CREATED_BY = l_def_okc_changes_tl_rec.created_by,
2022: CREATION_DATE = l_def_okc_changes_tl_rec.creation_date,
2023: LAST_UPDATED_BY = l_def_okc_changes_tl_rec.last_updated_by,
2024: LAST_UPDATE_DATE = l_def_okc_changes_tl_rec.last_update_date,
2025: LAST_UPDATE_LOGIN = l_def_okc_changes_tl_rec.last_update_login,
2018: UPDATE OKC_CHANGES_TL
2019: SET SHORT_DESCRIPTION = l_def_okc_changes_tl_rec.short_description,
2020: CHANGE_TEXT = l_def_okc_changes_tl_rec.change_text,
2021: CREATED_BY = l_def_okc_changes_tl_rec.created_by,
2022: CREATION_DATE = l_def_okc_changes_tl_rec.creation_date,
2023: LAST_UPDATED_BY = l_def_okc_changes_tl_rec.last_updated_by,
2024: LAST_UPDATE_DATE = l_def_okc_changes_tl_rec.last_update_date,
2025: LAST_UPDATE_LOGIN = l_def_okc_changes_tl_rec.last_update_login,
2026: SOURCE_LANG = l_def_okc_changes_tl_rec.source_lang
2019: SET SHORT_DESCRIPTION = l_def_okc_changes_tl_rec.short_description,
2020: CHANGE_TEXT = l_def_okc_changes_tl_rec.change_text,
2021: CREATED_BY = l_def_okc_changes_tl_rec.created_by,
2022: CREATION_DATE = l_def_okc_changes_tl_rec.creation_date,
2023: LAST_UPDATED_BY = l_def_okc_changes_tl_rec.last_updated_by,
2024: LAST_UPDATE_DATE = l_def_okc_changes_tl_rec.last_update_date,
2025: LAST_UPDATE_LOGIN = l_def_okc_changes_tl_rec.last_update_login,
2026: SOURCE_LANG = l_def_okc_changes_tl_rec.source_lang
2027: WHERE ID = l_def_okc_changes_tl_rec.id
2020: CHANGE_TEXT = l_def_okc_changes_tl_rec.change_text,
2021: CREATED_BY = l_def_okc_changes_tl_rec.created_by,
2022: CREATION_DATE = l_def_okc_changes_tl_rec.creation_date,
2023: LAST_UPDATED_BY = l_def_okc_changes_tl_rec.last_updated_by,
2024: LAST_UPDATE_DATE = l_def_okc_changes_tl_rec.last_update_date,
2025: LAST_UPDATE_LOGIN = l_def_okc_changes_tl_rec.last_update_login,
2026: SOURCE_LANG = l_def_okc_changes_tl_rec.source_lang
2027: WHERE ID = l_def_okc_changes_tl_rec.id
2028: AND USERENV('LANG') in (SOURCE_LANG,LANGUAGE);
2021: CREATED_BY = l_def_okc_changes_tl_rec.created_by,
2022: CREATION_DATE = l_def_okc_changes_tl_rec.creation_date,
2023: LAST_UPDATED_BY = l_def_okc_changes_tl_rec.last_updated_by,
2024: LAST_UPDATE_DATE = l_def_okc_changes_tl_rec.last_update_date,
2025: LAST_UPDATE_LOGIN = l_def_okc_changes_tl_rec.last_update_login,
2026: SOURCE_LANG = l_def_okc_changes_tl_rec.source_lang
2027: WHERE ID = l_def_okc_changes_tl_rec.id
2028: AND USERENV('LANG') in (SOURCE_LANG,LANGUAGE);
2029:
2022: CREATION_DATE = l_def_okc_changes_tl_rec.creation_date,
2023: LAST_UPDATED_BY = l_def_okc_changes_tl_rec.last_updated_by,
2024: LAST_UPDATE_DATE = l_def_okc_changes_tl_rec.last_update_date,
2025: LAST_UPDATE_LOGIN = l_def_okc_changes_tl_rec.last_update_login,
2026: SOURCE_LANG = l_def_okc_changes_tl_rec.source_lang
2027: WHERE ID = l_def_okc_changes_tl_rec.id
2028: AND USERENV('LANG') in (SOURCE_LANG,LANGUAGE);
2029:
2030: UPDATE OKC_CHANGES_TL
2023: LAST_UPDATED_BY = l_def_okc_changes_tl_rec.last_updated_by,
2024: LAST_UPDATE_DATE = l_def_okc_changes_tl_rec.last_update_date,
2025: LAST_UPDATE_LOGIN = l_def_okc_changes_tl_rec.last_update_login,
2026: SOURCE_LANG = l_def_okc_changes_tl_rec.source_lang
2027: WHERE ID = l_def_okc_changes_tl_rec.id
2028: AND USERENV('LANG') in (SOURCE_LANG,LANGUAGE);
2029:
2030: UPDATE OKC_CHANGES_TL
2031: SET SFWT_FLAG = 'Y'
2026: SOURCE_LANG = l_def_okc_changes_tl_rec.source_lang
2027: WHERE ID = l_def_okc_changes_tl_rec.id
2028: AND USERENV('LANG') in (SOURCE_LANG,LANGUAGE);
2029:
2030: UPDATE OKC_CHANGES_TL
2031: SET SFWT_FLAG = 'Y'
2032: WHERE ID = l_def_okc_changes_tl_rec.id
2033: AND SOURCE_LANG <> USERENV('LANG');
2034:
2028: AND USERENV('LANG') in (SOURCE_LANG,LANGUAGE);
2029:
2030: UPDATE OKC_CHANGES_TL
2031: SET SFWT_FLAG = 'Y'
2032: WHERE ID = l_def_okc_changes_tl_rec.id
2033: AND SOURCE_LANG <> USERENV('LANG');
2034:
2035: x_okc_changes_tl_rec := l_def_okc_changes_tl_rec;
2036: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2031: SET SFWT_FLAG = 'Y'
2032: WHERE ID = l_def_okc_changes_tl_rec.id
2033: AND SOURCE_LANG <> USERENV('LANG');
2034:
2035: x_okc_changes_tl_rec := l_def_okc_changes_tl_rec;
2036: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2037: EXCEPTION
2038: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2039: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2082: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2083: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2084: l_corv_rec corv_rec_type := p_corv_rec;
2085: l_def_corv_rec corv_rec_type;
2086: l_okc_changes_tl_rec okc_changes_tl_rec_type;
2087: lx_okc_changes_tl_rec okc_changes_tl_rec_type;
2088: l_cor_rec cor_rec_type;
2089: lx_cor_rec cor_rec_type;
2090: -------------------------------
2083: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2084: l_corv_rec corv_rec_type := p_corv_rec;
2085: l_def_corv_rec corv_rec_type;
2086: l_okc_changes_tl_rec okc_changes_tl_rec_type;
2087: lx_okc_changes_tl_rec okc_changes_tl_rec_type;
2088: l_cor_rec cor_rec_type;
2089: lx_cor_rec cor_rec_type;
2090: -------------------------------
2091: -- FUNCTION fill_who_columns --
2291:
2292: --------------------------------------
2293: -- Move VIEW record to "Child" records
2294: --------------------------------------
2295: migrate(l_def_corv_rec, l_okc_changes_tl_rec);
2296: migrate(l_def_corv_rec, l_cor_rec);
2297: --------------------------------------------
2298: -- Call the UPDATE_ROW for each child record
2299: --------------------------------------------
2301: p_init_msg_list,
2302: x_return_status,
2303: x_msg_count,
2304: x_msg_data,
2305: l_okc_changes_tl_rec,
2306: lx_okc_changes_tl_rec
2307: );
2308: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2309: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2302: x_return_status,
2303: x_msg_count,
2304: x_msg_data,
2305: l_okc_changes_tl_rec,
2306: lx_okc_changes_tl_rec
2307: );
2308: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2309: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2310: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2309: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2310: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2311: RAISE OKC_API.G_EXCEPTION_ERROR;
2312: END IF;
2313: migrate(lx_okc_changes_tl_rec, l_def_corv_rec);
2314: update_row(
2315: p_init_msg_list,
2316: x_return_status,
2317: x_msg_count,
2490: '_PVT'
2491: );
2492: END delete_row;
2493: -----------------------------------
2494: -- delete_row for:OKC_CHANGES_TL --
2495: -----------------------------------
2496: PROCEDURE delete_row(
2497: p_init_msg_list IN VARCHAR2 ,
2498: x_return_status OUT NOCOPY VARCHAR2,
2497: p_init_msg_list IN VARCHAR2 ,
2498: x_return_status OUT NOCOPY VARCHAR2,
2499: x_msg_count OUT NOCOPY NUMBER,
2500: x_msg_data OUT NOCOPY VARCHAR2,
2501: p_okc_changes_tl_rec IN okc_changes_tl_rec_type) IS
2502:
2503: l_api_version CONSTANT NUMBER := 1;
2504: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
2505: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2502:
2503: l_api_version CONSTANT NUMBER := 1;
2504: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
2505: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2506: l_okc_changes_tl_rec okc_changes_tl_rec_type:= p_okc_changes_tl_rec;
2507: l_row_notfound BOOLEAN := TRUE;
2508: ---------------------------------------
2509: -- Set_Attributes for:OKC_CHANGES_TL --
2510: ---------------------------------------
2505: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2506: l_okc_changes_tl_rec okc_changes_tl_rec_type:= p_okc_changes_tl_rec;
2507: l_row_notfound BOOLEAN := TRUE;
2508: ---------------------------------------
2509: -- Set_Attributes for:OKC_CHANGES_TL --
2510: ---------------------------------------
2511: FUNCTION Set_Attributes (
2512: p_okc_changes_tl_rec IN okc_changes_tl_rec_type,
2513: x_okc_changes_tl_rec OUT NOCOPY okc_changes_tl_rec_type
2508: ---------------------------------------
2509: -- Set_Attributes for:OKC_CHANGES_TL --
2510: ---------------------------------------
2511: FUNCTION Set_Attributes (
2512: p_okc_changes_tl_rec IN okc_changes_tl_rec_type,
2513: x_okc_changes_tl_rec OUT NOCOPY okc_changes_tl_rec_type
2514: ) RETURN VARCHAR2 IS
2515: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2516: BEGIN
2509: -- Set_Attributes for:OKC_CHANGES_TL --
2510: ---------------------------------------
2511: FUNCTION Set_Attributes (
2512: p_okc_changes_tl_rec IN okc_changes_tl_rec_type,
2513: x_okc_changes_tl_rec OUT NOCOPY okc_changes_tl_rec_type
2514: ) RETURN VARCHAR2 IS
2515: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2516: BEGIN
2517: x_okc_changes_tl_rec := p_okc_changes_tl_rec;
2513: x_okc_changes_tl_rec OUT NOCOPY okc_changes_tl_rec_type
2514: ) RETURN VARCHAR2 IS
2515: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2516: BEGIN
2517: x_okc_changes_tl_rec := p_okc_changes_tl_rec;
2518: x_okc_changes_tl_rec.LANGUAGE := USERENV('LANG');
2519: RETURN(l_return_status);
2520: END Set_Attributes;
2521: BEGIN
2514: ) RETURN VARCHAR2 IS
2515: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2516: BEGIN
2517: x_okc_changes_tl_rec := p_okc_changes_tl_rec;
2518: x_okc_changes_tl_rec.LANGUAGE := USERENV('LANG');
2519: RETURN(l_return_status);
2520: END Set_Attributes;
2521: BEGIN
2522: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2529: RAISE OKC_API.G_EXCEPTION_ERROR;
2530: END IF;
2531: --- Setting item attributes
2532: l_return_status := Set_Attributes(
2533: p_okc_changes_tl_rec, -- IN
2534: l_okc_changes_tl_rec); -- OUT
2535: --- If any errors happen abort API
2536: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2537: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2530: END IF;
2531: --- Setting item attributes
2532: l_return_status := Set_Attributes(
2533: p_okc_changes_tl_rec, -- IN
2534: l_okc_changes_tl_rec); -- OUT
2535: --- If any errors happen abort API
2536: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2537: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2538: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2537: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2538: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2539: RAISE OKC_API.G_EXCEPTION_ERROR;
2540: END IF;
2541: DELETE FROM OKC_CHANGES_TL
2542: WHERE ID = l_okc_changes_tl_rec.id;
2543:
2544: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2545: EXCEPTION
2538: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2539: RAISE OKC_API.G_EXCEPTION_ERROR;
2540: END IF;
2541: DELETE FROM OKC_CHANGES_TL
2542: WHERE ID = l_okc_changes_tl_rec.id;
2543:
2544: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2545: EXCEPTION
2546: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2588: l_api_version CONSTANT NUMBER := 1;
2589: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2590: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2591: l_corv_rec corv_rec_type := p_corv_rec;
2592: l_okc_changes_tl_rec okc_changes_tl_rec_type;
2593: l_cor_rec cor_rec_type;
2594: BEGIN
2595: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2596: G_PKG_NAME,
2606: END IF;
2607: --------------------------------------
2608: -- Move VIEW record to "Child" records
2609: --------------------------------------
2610: migrate(l_corv_rec, l_okc_changes_tl_rec);
2611: migrate(l_corv_rec, l_cor_rec);
2612: --------------------------------------------
2613: -- Call the DELETE_ROW for each child record
2614: --------------------------------------------
2616: p_init_msg_list,
2617: x_return_status,
2618: x_msg_count,
2619: x_msg_data,
2620: l_okc_changes_tl_rec
2621: );
2622: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2623: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2624: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN