[Home] [Help]
53: -- PROCEDURE add_language
54: ---------------------------------------------------------------------------
55: PROCEDURE add_language IS
56: BEGIN
57: DELETE FROM OKL_INVOICE_MSSGS_TL T
58: WHERE NOT EXISTS (
59: SELECT NULL
60: FROM OKL_INVOICE_MSSGS_ALL_B B --fixed bug 3321017 by kmotepal
61: WHERE B.ID = T.ID
60: FROM OKL_INVOICE_MSSGS_ALL_B B --fixed bug 3321017 by kmotepal
61: WHERE B.ID = T.ID
62: );
63:
64: UPDATE OKL_INVOICE_MSSGS_TL T SET (
65: NAME,
66: MESSAGE_TEXT,
67: DESCRIPTION) = (SELECT
68: B.NAME,
67: DESCRIPTION) = (SELECT
68: B.NAME,
69: B.MESSAGE_TEXT,
70: B.DESCRIPTION
71: FROM OKL_INVOICE_MSSGS_TL B
72: WHERE B.ID = T.ID
73: AND B.LANGUAGE = T.SOURCE_LANG)
74: WHERE (
75: T.ID,
76: T.LANGUAGE)
77: IN (SELECT
78: SUBT.ID,
79: SUBT.LANGUAGE
80: FROM OKL_INVOICE_MSSGS_TL SUBB, OKL_INVOICE_MSSGS_TL SUBT
81: WHERE SUBB.ID = SUBT.ID
82: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
83: AND (SUBB.NAME <> SUBT.NAME
84: OR SUBB.MESSAGE_TEXT <> SUBT.MESSAGE_TEXT
86: OR (SUBB.DESCRIPTION IS NULL AND SUBT.DESCRIPTION IS NOT NULL)
87: OR (SUBB.DESCRIPTION IS NOT NULL AND SUBT.DESCRIPTION IS NULL)
88: ));
89:
90: INSERT INTO OKL_INVOICE_MSSGS_TL (
91: ID,
92: LANGUAGE,
93: SOURCE_LANG,
94: SFWT_FLAG,
112: B.CREATION_DATE,
113: B.LAST_UPDATED_BY,
114: B.LAST_UPDATE_DATE,
115: B.LAST_UPDATE_LOGIN
116: FROM OKL_INVOICE_MSSGS_TL B, FND_LANGUAGES L
117: WHERE L.INSTALLED_FLAG IN ('I', 'B')
118: AND B.LANGUAGE = USERENV('LANG')
119: AND NOT EXISTS(
120: SELECT NULL
117: WHERE L.INSTALLED_FLAG IN ('I', 'B')
118: AND B.LANGUAGE = USERENV('LANG')
119: AND NOT EXISTS(
120: SELECT NULL
121: FROM OKL_INVOICE_MSSGS_TL T
122: WHERE T.ID = B.ID
123: AND T.LANGUAGE = L.LANGUAGE_CODE
124: );
125:
213: BEGIN
214: RETURN(get_rec(p_ims_rec, l_row_notfound));
215: END get_rec;
216: ---------------------------------------------------------------------------
217: -- FUNCTION get_rec for: OKL_INVOICE_MSSGS_TL
218: ---------------------------------------------------------------------------
219: FUNCTION get_rec (
220: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type,
221: x_no_data_found OUT NOCOPY BOOLEAN
216: ---------------------------------------------------------------------------
217: -- FUNCTION get_rec for: OKL_INVOICE_MSSGS_TL
218: ---------------------------------------------------------------------------
219: FUNCTION get_rec (
220: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type,
221: x_no_data_found OUT NOCOPY BOOLEAN
222: ) RETURN okl_invoice_mssgs_tl_rec_type IS
223: CURSOR okl_invoice_mssgs_tl_pk_csr (p_id IN NUMBER,
224: p_language IN VARCHAR2) IS
218: ---------------------------------------------------------------------------
219: FUNCTION get_rec (
220: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type,
221: x_no_data_found OUT NOCOPY BOOLEAN
222: ) RETURN okl_invoice_mssgs_tl_rec_type IS
223: CURSOR okl_invoice_mssgs_tl_pk_csr (p_id IN NUMBER,
224: p_language IN VARCHAR2) IS
225: SELECT
226: ID,
219: FUNCTION get_rec (
220: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type,
221: x_no_data_found OUT NOCOPY BOOLEAN
222: ) RETURN okl_invoice_mssgs_tl_rec_type IS
223: CURSOR okl_invoice_mssgs_tl_pk_csr (p_id IN NUMBER,
224: p_language IN VARCHAR2) IS
225: SELECT
226: ID,
227: Okl_Invoice_Mssgs_Tl.LANGUAGE,
223: CURSOR okl_invoice_mssgs_tl_pk_csr (p_id IN NUMBER,
224: p_language IN VARCHAR2) IS
225: SELECT
226: ID,
227: Okl_Invoice_Mssgs_Tl.LANGUAGE,
228: SOURCE_LANG,
229: SFWT_FLAG,
230: NAME,
231: MESSAGE_TEXT,
234: CREATION_DATE,
235: LAST_UPDATED_BY,
236: LAST_UPDATE_DATE,
237: LAST_UPDATE_LOGIN
238: FROM Okl_Invoice_Mssgs_Tl
239: WHERE okl_invoice_mssgs_tl.id = p_id
240: AND okl_invoice_mssgs_tl.language = p_language;
241: l_okl_invoice_mssgs_tl_pk okl_invoice_mssgs_tl_pk_csr%ROWTYPE;
242: l_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type;
235: LAST_UPDATED_BY,
236: LAST_UPDATE_DATE,
237: LAST_UPDATE_LOGIN
238: FROM Okl_Invoice_Mssgs_Tl
239: WHERE okl_invoice_mssgs_tl.id = p_id
240: AND okl_invoice_mssgs_tl.language = p_language;
241: l_okl_invoice_mssgs_tl_pk okl_invoice_mssgs_tl_pk_csr%ROWTYPE;
242: l_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type;
243: BEGIN
236: LAST_UPDATE_DATE,
237: LAST_UPDATE_LOGIN
238: FROM Okl_Invoice_Mssgs_Tl
239: WHERE okl_invoice_mssgs_tl.id = p_id
240: AND okl_invoice_mssgs_tl.language = p_language;
241: l_okl_invoice_mssgs_tl_pk okl_invoice_mssgs_tl_pk_csr%ROWTYPE;
242: l_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type;
243: BEGIN
244: x_no_data_found := TRUE;
237: LAST_UPDATE_LOGIN
238: FROM Okl_Invoice_Mssgs_Tl
239: WHERE okl_invoice_mssgs_tl.id = p_id
240: AND okl_invoice_mssgs_tl.language = p_language;
241: l_okl_invoice_mssgs_tl_pk okl_invoice_mssgs_tl_pk_csr%ROWTYPE;
242: l_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type;
243: BEGIN
244: x_no_data_found := TRUE;
245: -- Get current database values
238: FROM Okl_Invoice_Mssgs_Tl
239: WHERE okl_invoice_mssgs_tl.id = p_id
240: AND okl_invoice_mssgs_tl.language = p_language;
241: l_okl_invoice_mssgs_tl_pk okl_invoice_mssgs_tl_pk_csr%ROWTYPE;
242: l_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type;
243: BEGIN
244: x_no_data_found := TRUE;
245: -- Get current database values
246: OPEN okl_invoice_mssgs_tl_pk_csr (p_okl_invoice_mssgs_tl_rec.id,
242: l_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type;
243: BEGIN
244: x_no_data_found := TRUE;
245: -- Get current database values
246: OPEN okl_invoice_mssgs_tl_pk_csr (p_okl_invoice_mssgs_tl_rec.id,
247: p_okl_invoice_mssgs_tl_rec.language);
248: FETCH okl_invoice_mssgs_tl_pk_csr INTO
249: l_okl_invoice_mssgs_tl_rec.ID,
250: l_okl_invoice_mssgs_tl_rec.LANGUAGE,
243: BEGIN
244: x_no_data_found := TRUE;
245: -- Get current database values
246: OPEN okl_invoice_mssgs_tl_pk_csr (p_okl_invoice_mssgs_tl_rec.id,
247: p_okl_invoice_mssgs_tl_rec.language);
248: FETCH okl_invoice_mssgs_tl_pk_csr INTO
249: l_okl_invoice_mssgs_tl_rec.ID,
250: l_okl_invoice_mssgs_tl_rec.LANGUAGE,
251: l_okl_invoice_mssgs_tl_rec.SOURCE_LANG,
244: x_no_data_found := TRUE;
245: -- Get current database values
246: OPEN okl_invoice_mssgs_tl_pk_csr (p_okl_invoice_mssgs_tl_rec.id,
247: p_okl_invoice_mssgs_tl_rec.language);
248: FETCH okl_invoice_mssgs_tl_pk_csr INTO
249: l_okl_invoice_mssgs_tl_rec.ID,
250: l_okl_invoice_mssgs_tl_rec.LANGUAGE,
251: l_okl_invoice_mssgs_tl_rec.SOURCE_LANG,
252: l_okl_invoice_mssgs_tl_rec.SFWT_FLAG,
245: -- Get current database values
246: OPEN okl_invoice_mssgs_tl_pk_csr (p_okl_invoice_mssgs_tl_rec.id,
247: p_okl_invoice_mssgs_tl_rec.language);
248: FETCH okl_invoice_mssgs_tl_pk_csr INTO
249: l_okl_invoice_mssgs_tl_rec.ID,
250: l_okl_invoice_mssgs_tl_rec.LANGUAGE,
251: l_okl_invoice_mssgs_tl_rec.SOURCE_LANG,
252: l_okl_invoice_mssgs_tl_rec.SFWT_FLAG,
253: l_okl_invoice_mssgs_tl_rec.NAME,
246: OPEN okl_invoice_mssgs_tl_pk_csr (p_okl_invoice_mssgs_tl_rec.id,
247: p_okl_invoice_mssgs_tl_rec.language);
248: FETCH okl_invoice_mssgs_tl_pk_csr INTO
249: l_okl_invoice_mssgs_tl_rec.ID,
250: l_okl_invoice_mssgs_tl_rec.LANGUAGE,
251: l_okl_invoice_mssgs_tl_rec.SOURCE_LANG,
252: l_okl_invoice_mssgs_tl_rec.SFWT_FLAG,
253: l_okl_invoice_mssgs_tl_rec.NAME,
254: l_okl_invoice_mssgs_tl_rec.MESSAGE_TEXT,
247: p_okl_invoice_mssgs_tl_rec.language);
248: FETCH okl_invoice_mssgs_tl_pk_csr INTO
249: l_okl_invoice_mssgs_tl_rec.ID,
250: l_okl_invoice_mssgs_tl_rec.LANGUAGE,
251: l_okl_invoice_mssgs_tl_rec.SOURCE_LANG,
252: l_okl_invoice_mssgs_tl_rec.SFWT_FLAG,
253: l_okl_invoice_mssgs_tl_rec.NAME,
254: l_okl_invoice_mssgs_tl_rec.MESSAGE_TEXT,
255: l_okl_invoice_mssgs_tl_rec.DESCRIPTION,
248: FETCH okl_invoice_mssgs_tl_pk_csr INTO
249: l_okl_invoice_mssgs_tl_rec.ID,
250: l_okl_invoice_mssgs_tl_rec.LANGUAGE,
251: l_okl_invoice_mssgs_tl_rec.SOURCE_LANG,
252: l_okl_invoice_mssgs_tl_rec.SFWT_FLAG,
253: l_okl_invoice_mssgs_tl_rec.NAME,
254: l_okl_invoice_mssgs_tl_rec.MESSAGE_TEXT,
255: l_okl_invoice_mssgs_tl_rec.DESCRIPTION,
256: l_okl_invoice_mssgs_tl_rec.CREATED_BY,
249: l_okl_invoice_mssgs_tl_rec.ID,
250: l_okl_invoice_mssgs_tl_rec.LANGUAGE,
251: l_okl_invoice_mssgs_tl_rec.SOURCE_LANG,
252: l_okl_invoice_mssgs_tl_rec.SFWT_FLAG,
253: l_okl_invoice_mssgs_tl_rec.NAME,
254: l_okl_invoice_mssgs_tl_rec.MESSAGE_TEXT,
255: l_okl_invoice_mssgs_tl_rec.DESCRIPTION,
256: l_okl_invoice_mssgs_tl_rec.CREATED_BY,
257: l_okl_invoice_mssgs_tl_rec.CREATION_DATE,
250: l_okl_invoice_mssgs_tl_rec.LANGUAGE,
251: l_okl_invoice_mssgs_tl_rec.SOURCE_LANG,
252: l_okl_invoice_mssgs_tl_rec.SFWT_FLAG,
253: l_okl_invoice_mssgs_tl_rec.NAME,
254: l_okl_invoice_mssgs_tl_rec.MESSAGE_TEXT,
255: l_okl_invoice_mssgs_tl_rec.DESCRIPTION,
256: l_okl_invoice_mssgs_tl_rec.CREATED_BY,
257: l_okl_invoice_mssgs_tl_rec.CREATION_DATE,
258: l_okl_invoice_mssgs_tl_rec.LAST_UPDATED_BY,
251: l_okl_invoice_mssgs_tl_rec.SOURCE_LANG,
252: l_okl_invoice_mssgs_tl_rec.SFWT_FLAG,
253: l_okl_invoice_mssgs_tl_rec.NAME,
254: l_okl_invoice_mssgs_tl_rec.MESSAGE_TEXT,
255: l_okl_invoice_mssgs_tl_rec.DESCRIPTION,
256: l_okl_invoice_mssgs_tl_rec.CREATED_BY,
257: l_okl_invoice_mssgs_tl_rec.CREATION_DATE,
258: l_okl_invoice_mssgs_tl_rec.LAST_UPDATED_BY,
259: l_okl_invoice_mssgs_tl_rec.LAST_UPDATE_DATE,
252: l_okl_invoice_mssgs_tl_rec.SFWT_FLAG,
253: l_okl_invoice_mssgs_tl_rec.NAME,
254: l_okl_invoice_mssgs_tl_rec.MESSAGE_TEXT,
255: l_okl_invoice_mssgs_tl_rec.DESCRIPTION,
256: l_okl_invoice_mssgs_tl_rec.CREATED_BY,
257: l_okl_invoice_mssgs_tl_rec.CREATION_DATE,
258: l_okl_invoice_mssgs_tl_rec.LAST_UPDATED_BY,
259: l_okl_invoice_mssgs_tl_rec.LAST_UPDATE_DATE,
260: l_okl_invoice_mssgs_tl_rec.LAST_UPDATE_LOGIN;
253: l_okl_invoice_mssgs_tl_rec.NAME,
254: l_okl_invoice_mssgs_tl_rec.MESSAGE_TEXT,
255: l_okl_invoice_mssgs_tl_rec.DESCRIPTION,
256: l_okl_invoice_mssgs_tl_rec.CREATED_BY,
257: l_okl_invoice_mssgs_tl_rec.CREATION_DATE,
258: l_okl_invoice_mssgs_tl_rec.LAST_UPDATED_BY,
259: l_okl_invoice_mssgs_tl_rec.LAST_UPDATE_DATE,
260: l_okl_invoice_mssgs_tl_rec.LAST_UPDATE_LOGIN;
261: x_no_data_found := okl_invoice_mssgs_tl_pk_csr%NOTFOUND;
254: l_okl_invoice_mssgs_tl_rec.MESSAGE_TEXT,
255: l_okl_invoice_mssgs_tl_rec.DESCRIPTION,
256: l_okl_invoice_mssgs_tl_rec.CREATED_BY,
257: l_okl_invoice_mssgs_tl_rec.CREATION_DATE,
258: l_okl_invoice_mssgs_tl_rec.LAST_UPDATED_BY,
259: l_okl_invoice_mssgs_tl_rec.LAST_UPDATE_DATE,
260: l_okl_invoice_mssgs_tl_rec.LAST_UPDATE_LOGIN;
261: x_no_data_found := okl_invoice_mssgs_tl_pk_csr%NOTFOUND;
262: CLOSE okl_invoice_mssgs_tl_pk_csr;
255: l_okl_invoice_mssgs_tl_rec.DESCRIPTION,
256: l_okl_invoice_mssgs_tl_rec.CREATED_BY,
257: l_okl_invoice_mssgs_tl_rec.CREATION_DATE,
258: l_okl_invoice_mssgs_tl_rec.LAST_UPDATED_BY,
259: l_okl_invoice_mssgs_tl_rec.LAST_UPDATE_DATE,
260: l_okl_invoice_mssgs_tl_rec.LAST_UPDATE_LOGIN;
261: x_no_data_found := okl_invoice_mssgs_tl_pk_csr%NOTFOUND;
262: CLOSE okl_invoice_mssgs_tl_pk_csr;
263: RETURN(l_okl_invoice_mssgs_tl_rec);
256: l_okl_invoice_mssgs_tl_rec.CREATED_BY,
257: l_okl_invoice_mssgs_tl_rec.CREATION_DATE,
258: l_okl_invoice_mssgs_tl_rec.LAST_UPDATED_BY,
259: l_okl_invoice_mssgs_tl_rec.LAST_UPDATE_DATE,
260: l_okl_invoice_mssgs_tl_rec.LAST_UPDATE_LOGIN;
261: x_no_data_found := okl_invoice_mssgs_tl_pk_csr%NOTFOUND;
262: CLOSE okl_invoice_mssgs_tl_pk_csr;
263: RETURN(l_okl_invoice_mssgs_tl_rec);
264: END get_rec;
257: l_okl_invoice_mssgs_tl_rec.CREATION_DATE,
258: l_okl_invoice_mssgs_tl_rec.LAST_UPDATED_BY,
259: l_okl_invoice_mssgs_tl_rec.LAST_UPDATE_DATE,
260: l_okl_invoice_mssgs_tl_rec.LAST_UPDATE_LOGIN;
261: x_no_data_found := okl_invoice_mssgs_tl_pk_csr%NOTFOUND;
262: CLOSE okl_invoice_mssgs_tl_pk_csr;
263: RETURN(l_okl_invoice_mssgs_tl_rec);
264: END get_rec;
265:
258: l_okl_invoice_mssgs_tl_rec.LAST_UPDATED_BY,
259: l_okl_invoice_mssgs_tl_rec.LAST_UPDATE_DATE,
260: l_okl_invoice_mssgs_tl_rec.LAST_UPDATE_LOGIN;
261: x_no_data_found := okl_invoice_mssgs_tl_pk_csr%NOTFOUND;
262: CLOSE okl_invoice_mssgs_tl_pk_csr;
263: RETURN(l_okl_invoice_mssgs_tl_rec);
264: END get_rec;
265:
266: FUNCTION get_rec (
259: l_okl_invoice_mssgs_tl_rec.LAST_UPDATE_DATE,
260: l_okl_invoice_mssgs_tl_rec.LAST_UPDATE_LOGIN;
261: x_no_data_found := okl_invoice_mssgs_tl_pk_csr%NOTFOUND;
262: CLOSE okl_invoice_mssgs_tl_pk_csr;
263: RETURN(l_okl_invoice_mssgs_tl_rec);
264: END get_rec;
265:
266: FUNCTION get_rec (
267: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type
263: RETURN(l_okl_invoice_mssgs_tl_rec);
264: END get_rec;
265:
266: FUNCTION get_rec (
267: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type
268: ) RETURN okl_invoice_mssgs_tl_rec_type IS
269: l_row_notfound BOOLEAN := TRUE;
270: BEGIN
271: RETURN(get_rec(p_okl_invoice_mssgs_tl_rec, l_row_notfound));
264: END get_rec;
265:
266: FUNCTION get_rec (
267: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type
268: ) RETURN okl_invoice_mssgs_tl_rec_type IS
269: l_row_notfound BOOLEAN := TRUE;
270: BEGIN
271: RETURN(get_rec(p_okl_invoice_mssgs_tl_rec, l_row_notfound));
272: END get_rec;
267: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type
268: ) RETURN okl_invoice_mssgs_tl_rec_type IS
269: l_row_notfound BOOLEAN := TRUE;
270: BEGIN
271: RETURN(get_rec(p_okl_invoice_mssgs_tl_rec, l_row_notfound));
272: END get_rec;
273: ---------------------------------------------------------------------------
274: -- FUNCTION get_rec for: OKL_INVOICE_MSSGS_V
275: ---------------------------------------------------------------------------
1066: p_to.proc_name := p_from.proc_name;
1067: END migrate;
1068: PROCEDURE migrate (
1069: p_from IN imsv_rec_type,
1070: p_to IN OUT NOCOPY okl_invoice_mssgs_tl_rec_type
1071: ) IS
1072: BEGIN
1073: p_to.id := p_from.id;
1074: p_to.sfwt_flag := p_from.sfwt_flag;
1081: p_to.last_update_date := p_from.last_update_date;
1082: p_to.last_update_login := p_from.last_update_login;
1083: END migrate;
1084: PROCEDURE migrate (
1085: p_from IN okl_invoice_mssgs_tl_rec_type,
1086: p_to IN OUT NOCOPY imsv_rec_type
1087: ) IS
1088: BEGIN
1089: p_to.id := p_from.id;
1116: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1117: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1118: l_imsv_rec imsv_rec_type := p_imsv_rec;
1119: l_ims_rec ims_rec_type;
1120: l_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type;
1121: BEGIN
1122: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1123: G_PKG_NAME,
1124: p_init_msg_list,
1406: '_PVT'
1407: );
1408: END insert_row;
1409: -----------------------------------------
1410: -- insert_row for:OKL_INVOICE_MSSGS_TL --
1411: -----------------------------------------
1412: PROCEDURE insert_row(
1413: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1414: x_return_status OUT NOCOPY VARCHAR2,
1413: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1414: x_return_status OUT NOCOPY VARCHAR2,
1415: x_msg_count OUT NOCOPY NUMBER,
1416: x_msg_data OUT NOCOPY VARCHAR2,
1417: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type,
1418: x_okl_invoice_mssgs_tl_rec OUT NOCOPY okl_invoice_mssgs_tl_rec_type) IS
1419:
1420: l_api_version CONSTANT NUMBER := 1;
1421: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1414: x_return_status OUT NOCOPY VARCHAR2,
1415: x_msg_count OUT NOCOPY NUMBER,
1416: x_msg_data OUT NOCOPY VARCHAR2,
1417: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type,
1418: x_okl_invoice_mssgs_tl_rec OUT NOCOPY okl_invoice_mssgs_tl_rec_type) IS
1419:
1420: l_api_version CONSTANT NUMBER := 1;
1421: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1422: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1419:
1420: l_api_version CONSTANT NUMBER := 1;
1421: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1422: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1423: l_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type := p_okl_invoice_mssgs_tl_rec;
1424: ldefoklinvoicemssgstlrec okl_invoice_mssgs_tl_rec_type;
1425: CURSOR get_languages IS
1426: SELECT *
1427: FROM FND_LANGUAGES
1420: l_api_version CONSTANT NUMBER := 1;
1421: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1422: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1423: l_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type := p_okl_invoice_mssgs_tl_rec;
1424: ldefoklinvoicemssgstlrec okl_invoice_mssgs_tl_rec_type;
1425: CURSOR get_languages IS
1426: SELECT *
1427: FROM FND_LANGUAGES
1428: WHERE INSTALLED_FLAG IN ('I', 'B');
1426: SELECT *
1427: FROM FND_LANGUAGES
1428: WHERE INSTALLED_FLAG IN ('I', 'B');
1429: ---------------------------------------------
1430: -- Set_Attributes for:OKL_INVOICE_MSSGS_TL --
1431: ---------------------------------------------
1432: FUNCTION Set_Attributes (
1433: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type,
1434: x_okl_invoice_mssgs_tl_rec OUT NOCOPY okl_invoice_mssgs_tl_rec_type
1429: ---------------------------------------------
1430: -- Set_Attributes for:OKL_INVOICE_MSSGS_TL --
1431: ---------------------------------------------
1432: FUNCTION Set_Attributes (
1433: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type,
1434: x_okl_invoice_mssgs_tl_rec OUT NOCOPY okl_invoice_mssgs_tl_rec_type
1435: ) RETURN VARCHAR2 IS
1436: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1437: BEGIN
1430: -- Set_Attributes for:OKL_INVOICE_MSSGS_TL --
1431: ---------------------------------------------
1432: FUNCTION Set_Attributes (
1433: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type,
1434: x_okl_invoice_mssgs_tl_rec OUT NOCOPY okl_invoice_mssgs_tl_rec_type
1435: ) RETURN VARCHAR2 IS
1436: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1437: BEGIN
1438: x_okl_invoice_mssgs_tl_rec := p_okl_invoice_mssgs_tl_rec;
1434: x_okl_invoice_mssgs_tl_rec OUT NOCOPY okl_invoice_mssgs_tl_rec_type
1435: ) RETURN VARCHAR2 IS
1436: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1437: BEGIN
1438: x_okl_invoice_mssgs_tl_rec := p_okl_invoice_mssgs_tl_rec;
1439: x_okl_invoice_mssgs_tl_rec.LANGUAGE := USERENV('LANG');
1440: x_okl_invoice_mssgs_tl_rec.SOURCE_LANG := USERENV('LANG');
1441: RETURN(l_return_status);
1442: END Set_Attributes;
1435: ) RETURN VARCHAR2 IS
1436: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1437: BEGIN
1438: x_okl_invoice_mssgs_tl_rec := p_okl_invoice_mssgs_tl_rec;
1439: x_okl_invoice_mssgs_tl_rec.LANGUAGE := USERENV('LANG');
1440: x_okl_invoice_mssgs_tl_rec.SOURCE_LANG := USERENV('LANG');
1441: RETURN(l_return_status);
1442: END Set_Attributes;
1443: BEGIN
1436: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1437: BEGIN
1438: x_okl_invoice_mssgs_tl_rec := p_okl_invoice_mssgs_tl_rec;
1439: x_okl_invoice_mssgs_tl_rec.LANGUAGE := USERENV('LANG');
1440: x_okl_invoice_mssgs_tl_rec.SOURCE_LANG := USERENV('LANG');
1441: RETURN(l_return_status);
1442: END Set_Attributes;
1443: BEGIN
1444: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1451: RAISE OKL_API.G_EXCEPTION_ERROR;
1452: END IF;
1453: --- Setting item attributes
1454: l_return_status := Set_Attributes(
1455: p_okl_invoice_mssgs_tl_rec, -- IN
1456: l_okl_invoice_mssgs_tl_rec); -- OUT
1457: --- If any errors happen abort API
1458: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1452: END IF;
1453: --- Setting item attributes
1454: l_return_status := Set_Attributes(
1455: p_okl_invoice_mssgs_tl_rec, -- IN
1456: l_okl_invoice_mssgs_tl_rec); -- OUT
1457: --- If any errors happen abort API
1458: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1460: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1460: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1461: RAISE OKL_API.G_EXCEPTION_ERROR;
1462: END IF;
1463: FOR l_lang_rec IN get_languages LOOP
1464: l_okl_invoice_mssgs_tl_rec.language := l_lang_rec.language_code;
1465: INSERT INTO OKL_INVOICE_MSSGS_TL(
1466: id,
1467: language,
1468: source_lang,
1461: RAISE OKL_API.G_EXCEPTION_ERROR;
1462: END IF;
1463: FOR l_lang_rec IN get_languages LOOP
1464: l_okl_invoice_mssgs_tl_rec.language := l_lang_rec.language_code;
1465: INSERT INTO OKL_INVOICE_MSSGS_TL(
1466: id,
1467: language,
1468: source_lang,
1469: sfwt_flag,
1475: last_updated_by,
1476: last_update_date,
1477: last_update_login)
1478: VALUES (
1479: l_okl_invoice_mssgs_tl_rec.id,
1480: l_okl_invoice_mssgs_tl_rec.language,
1481: l_okl_invoice_mssgs_tl_rec.source_lang,
1482: l_okl_invoice_mssgs_tl_rec.sfwt_flag,
1483: l_okl_invoice_mssgs_tl_rec.name,
1476: last_update_date,
1477: last_update_login)
1478: VALUES (
1479: l_okl_invoice_mssgs_tl_rec.id,
1480: l_okl_invoice_mssgs_tl_rec.language,
1481: l_okl_invoice_mssgs_tl_rec.source_lang,
1482: l_okl_invoice_mssgs_tl_rec.sfwt_flag,
1483: l_okl_invoice_mssgs_tl_rec.name,
1484: l_okl_invoice_mssgs_tl_rec.message_text,
1477: last_update_login)
1478: VALUES (
1479: l_okl_invoice_mssgs_tl_rec.id,
1480: l_okl_invoice_mssgs_tl_rec.language,
1481: l_okl_invoice_mssgs_tl_rec.source_lang,
1482: l_okl_invoice_mssgs_tl_rec.sfwt_flag,
1483: l_okl_invoice_mssgs_tl_rec.name,
1484: l_okl_invoice_mssgs_tl_rec.message_text,
1485: l_okl_invoice_mssgs_tl_rec.description,
1478: VALUES (
1479: l_okl_invoice_mssgs_tl_rec.id,
1480: l_okl_invoice_mssgs_tl_rec.language,
1481: l_okl_invoice_mssgs_tl_rec.source_lang,
1482: l_okl_invoice_mssgs_tl_rec.sfwt_flag,
1483: l_okl_invoice_mssgs_tl_rec.name,
1484: l_okl_invoice_mssgs_tl_rec.message_text,
1485: l_okl_invoice_mssgs_tl_rec.description,
1486: l_okl_invoice_mssgs_tl_rec.created_by,
1479: l_okl_invoice_mssgs_tl_rec.id,
1480: l_okl_invoice_mssgs_tl_rec.language,
1481: l_okl_invoice_mssgs_tl_rec.source_lang,
1482: l_okl_invoice_mssgs_tl_rec.sfwt_flag,
1483: l_okl_invoice_mssgs_tl_rec.name,
1484: l_okl_invoice_mssgs_tl_rec.message_text,
1485: l_okl_invoice_mssgs_tl_rec.description,
1486: l_okl_invoice_mssgs_tl_rec.created_by,
1487: l_okl_invoice_mssgs_tl_rec.creation_date,
1480: l_okl_invoice_mssgs_tl_rec.language,
1481: l_okl_invoice_mssgs_tl_rec.source_lang,
1482: l_okl_invoice_mssgs_tl_rec.sfwt_flag,
1483: l_okl_invoice_mssgs_tl_rec.name,
1484: l_okl_invoice_mssgs_tl_rec.message_text,
1485: l_okl_invoice_mssgs_tl_rec.description,
1486: l_okl_invoice_mssgs_tl_rec.created_by,
1487: l_okl_invoice_mssgs_tl_rec.creation_date,
1488: l_okl_invoice_mssgs_tl_rec.last_updated_by,
1481: l_okl_invoice_mssgs_tl_rec.source_lang,
1482: l_okl_invoice_mssgs_tl_rec.sfwt_flag,
1483: l_okl_invoice_mssgs_tl_rec.name,
1484: l_okl_invoice_mssgs_tl_rec.message_text,
1485: l_okl_invoice_mssgs_tl_rec.description,
1486: l_okl_invoice_mssgs_tl_rec.created_by,
1487: l_okl_invoice_mssgs_tl_rec.creation_date,
1488: l_okl_invoice_mssgs_tl_rec.last_updated_by,
1489: l_okl_invoice_mssgs_tl_rec.last_update_date,
1482: l_okl_invoice_mssgs_tl_rec.sfwt_flag,
1483: l_okl_invoice_mssgs_tl_rec.name,
1484: l_okl_invoice_mssgs_tl_rec.message_text,
1485: l_okl_invoice_mssgs_tl_rec.description,
1486: l_okl_invoice_mssgs_tl_rec.created_by,
1487: l_okl_invoice_mssgs_tl_rec.creation_date,
1488: l_okl_invoice_mssgs_tl_rec.last_updated_by,
1489: l_okl_invoice_mssgs_tl_rec.last_update_date,
1490: l_okl_invoice_mssgs_tl_rec.last_update_login);
1483: l_okl_invoice_mssgs_tl_rec.name,
1484: l_okl_invoice_mssgs_tl_rec.message_text,
1485: l_okl_invoice_mssgs_tl_rec.description,
1486: l_okl_invoice_mssgs_tl_rec.created_by,
1487: l_okl_invoice_mssgs_tl_rec.creation_date,
1488: l_okl_invoice_mssgs_tl_rec.last_updated_by,
1489: l_okl_invoice_mssgs_tl_rec.last_update_date,
1490: l_okl_invoice_mssgs_tl_rec.last_update_login);
1491: END LOOP;
1484: l_okl_invoice_mssgs_tl_rec.message_text,
1485: l_okl_invoice_mssgs_tl_rec.description,
1486: l_okl_invoice_mssgs_tl_rec.created_by,
1487: l_okl_invoice_mssgs_tl_rec.creation_date,
1488: l_okl_invoice_mssgs_tl_rec.last_updated_by,
1489: l_okl_invoice_mssgs_tl_rec.last_update_date,
1490: l_okl_invoice_mssgs_tl_rec.last_update_login);
1491: END LOOP;
1492: -- Set OUT values
1485: l_okl_invoice_mssgs_tl_rec.description,
1486: l_okl_invoice_mssgs_tl_rec.created_by,
1487: l_okl_invoice_mssgs_tl_rec.creation_date,
1488: l_okl_invoice_mssgs_tl_rec.last_updated_by,
1489: l_okl_invoice_mssgs_tl_rec.last_update_date,
1490: l_okl_invoice_mssgs_tl_rec.last_update_login);
1491: END LOOP;
1492: -- Set OUT values
1493: x_okl_invoice_mssgs_tl_rec := l_okl_invoice_mssgs_tl_rec;
1486: l_okl_invoice_mssgs_tl_rec.created_by,
1487: l_okl_invoice_mssgs_tl_rec.creation_date,
1488: l_okl_invoice_mssgs_tl_rec.last_updated_by,
1489: l_okl_invoice_mssgs_tl_rec.last_update_date,
1490: l_okl_invoice_mssgs_tl_rec.last_update_login);
1491: END LOOP;
1492: -- Set OUT values
1493: x_okl_invoice_mssgs_tl_rec := l_okl_invoice_mssgs_tl_rec;
1494: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1489: l_okl_invoice_mssgs_tl_rec.last_update_date,
1490: l_okl_invoice_mssgs_tl_rec.last_update_login);
1491: END LOOP;
1492: -- Set OUT values
1493: x_okl_invoice_mssgs_tl_rec := l_okl_invoice_mssgs_tl_rec;
1494: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1495: EXCEPTION
1496: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1497: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1542: l_imsv_rec imsv_rec_type;
1543: l_def_imsv_rec imsv_rec_type;
1544: l_ims_rec ims_rec_type;
1545: lx_ims_rec ims_rec_type;
1546: l_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type;
1547: lx_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type;
1548: -------------------------------
1549: -- FUNCTION fill_who_columns --
1550: -------------------------------
1543: l_def_imsv_rec imsv_rec_type;
1544: l_ims_rec ims_rec_type;
1545: lx_ims_rec ims_rec_type;
1546: l_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type;
1547: lx_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type;
1548: -------------------------------
1549: -- FUNCTION fill_who_columns --
1550: -------------------------------
1551: FUNCTION fill_who_columns (
1618: --------------------------------------
1619: -- Move VIEW record to "Child" records
1620: --------------------------------------
1621: migrate(l_def_imsv_rec, l_ims_rec);
1622: migrate(l_def_imsv_rec, l_okl_invoice_mssgs_tl_rec);
1623: --------------------------------------------
1624: -- Call the INSERT_ROW for each child record
1625: --------------------------------------------
1626: insert_row(
1641: p_init_msg_list,
1642: x_return_status,
1643: x_msg_count,
1644: x_msg_data,
1645: l_okl_invoice_mssgs_tl_rec,
1646: lx_okl_invoice_mssgs_tl_rec
1647: );
1648: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1642: x_return_status,
1643: x_msg_count,
1644: x_msg_data,
1645: l_okl_invoice_mssgs_tl_rec,
1646: lx_okl_invoice_mssgs_tl_rec
1647: );
1648: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1650: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1650: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1651: RAISE OKL_API.G_EXCEPTION_ERROR;
1652: END IF;
1653: migrate(lx_okl_invoice_mssgs_tl_rec, l_def_imsv_rec);
1654: -- Set OUT values
1655: x_imsv_rec := l_def_imsv_rec;
1656: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1657: EXCEPTION
1879: '_PVT'
1880: );
1881: END lock_row;
1882: ---------------------------------------
1883: -- lock_row for:OKL_INVOICE_MSSGS_TL --
1884: ---------------------------------------
1885: PROCEDURE lock_row(
1886: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1887: x_return_status OUT NOCOPY VARCHAR2,
1886: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1887: x_return_status OUT NOCOPY VARCHAR2,
1888: x_msg_count OUT NOCOPY NUMBER,
1889: x_msg_data OUT NOCOPY VARCHAR2,
1890: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type) IS
1891:
1892: E_Resource_Busy EXCEPTION;
1893: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1894: CURSOR lock_csr (p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type) IS
1890: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type) IS
1891:
1892: E_Resource_Busy EXCEPTION;
1893: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1894: CURSOR lock_csr (p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type) IS
1895: SELECT *
1896: FROM OKL_INVOICE_MSSGS_TL
1897: WHERE ID = p_okl_invoice_mssgs_tl_rec.id
1898: FOR UPDATE NOWAIT;
1892: E_Resource_Busy EXCEPTION;
1893: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1894: CURSOR lock_csr (p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type) IS
1895: SELECT *
1896: FROM OKL_INVOICE_MSSGS_TL
1897: WHERE ID = p_okl_invoice_mssgs_tl_rec.id
1898: FOR UPDATE NOWAIT;
1899:
1900: l_api_version CONSTANT NUMBER := 1;
1893: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1894: CURSOR lock_csr (p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type) IS
1895: SELECT *
1896: FROM OKL_INVOICE_MSSGS_TL
1897: WHERE ID = p_okl_invoice_mssgs_tl_rec.id
1898: FOR UPDATE NOWAIT;
1899:
1900: l_api_version CONSTANT NUMBER := 1;
1901: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
1913: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1914: RAISE OKL_API.G_EXCEPTION_ERROR;
1915: END IF;
1916: BEGIN
1917: OPEN lock_csr(p_okl_invoice_mssgs_tl_rec);
1918: FETCH lock_csr INTO l_lock_var;
1919: l_row_notfound := lock_csr%NOTFOUND;
1920: CLOSE lock_csr;
1921: EXCEPTION
1978: l_api_version CONSTANT NUMBER := 1;
1979: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1980: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1981: l_ims_rec ims_rec_type;
1982: l_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type;
1983: BEGIN
1984: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1985: G_PKG_NAME,
1986: p_init_msg_list,
1996: --------------------------------------
1997: -- Move VIEW record to "Child" records
1998: --------------------------------------
1999: migrate(p_imsv_rec, l_ims_rec);
2000: migrate(p_imsv_rec, l_okl_invoice_mssgs_tl_rec);
2001: --------------------------------------------
2002: -- Call the LOCK_ROW for each child record
2003: --------------------------------------------
2004: lock_row(
2017: p_init_msg_list,
2018: x_return_status,
2019: x_msg_count,
2020: x_msg_data,
2021: l_okl_invoice_mssgs_tl_rec
2022: );
2023: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2024: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2025: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2397: '_PVT'
2398: );
2399: END update_row;
2400: -----------------------------------------
2401: -- update_row for:OKL_INVOICE_MSSGS_TL --
2402: -----------------------------------------
2403: PROCEDURE update_row(
2404: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2405: x_return_status OUT NOCOPY VARCHAR2,
2404: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2405: x_return_status OUT NOCOPY VARCHAR2,
2406: x_msg_count OUT NOCOPY NUMBER,
2407: x_msg_data OUT NOCOPY VARCHAR2,
2408: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type,
2409: x_okl_invoice_mssgs_tl_rec OUT NOCOPY okl_invoice_mssgs_tl_rec_type) IS
2410:
2411: l_api_version CONSTANT NUMBER := 1;
2412: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2405: x_return_status OUT NOCOPY VARCHAR2,
2406: x_msg_count OUT NOCOPY NUMBER,
2407: x_msg_data OUT NOCOPY VARCHAR2,
2408: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type,
2409: x_okl_invoice_mssgs_tl_rec OUT NOCOPY okl_invoice_mssgs_tl_rec_type) IS
2410:
2411: l_api_version CONSTANT NUMBER := 1;
2412: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2413: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2410:
2411: l_api_version CONSTANT NUMBER := 1;
2412: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2413: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2414: l_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type := p_okl_invoice_mssgs_tl_rec;
2415: ldefoklinvoicemssgstlrec okl_invoice_mssgs_tl_rec_type;
2416: l_row_notfound BOOLEAN := TRUE;
2417: ----------------------------------
2418: -- FUNCTION populate_new_record --
2411: l_api_version CONSTANT NUMBER := 1;
2412: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2413: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2414: l_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type := p_okl_invoice_mssgs_tl_rec;
2415: ldefoklinvoicemssgstlrec okl_invoice_mssgs_tl_rec_type;
2416: l_row_notfound BOOLEAN := TRUE;
2417: ----------------------------------
2418: -- FUNCTION populate_new_record --
2419: ----------------------------------
2417: ----------------------------------
2418: -- FUNCTION populate_new_record --
2419: ----------------------------------
2420: FUNCTION populate_new_record (
2421: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type,
2422: x_okl_invoice_mssgs_tl_rec OUT NOCOPY okl_invoice_mssgs_tl_rec_type
2423: ) RETURN VARCHAR2 IS
2424: l_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type;
2425: l_row_notfound BOOLEAN := TRUE;
2418: -- FUNCTION populate_new_record --
2419: ----------------------------------
2420: FUNCTION populate_new_record (
2421: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type,
2422: x_okl_invoice_mssgs_tl_rec OUT NOCOPY okl_invoice_mssgs_tl_rec_type
2423: ) RETURN VARCHAR2 IS
2424: l_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type;
2425: l_row_notfound BOOLEAN := TRUE;
2426: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2420: FUNCTION populate_new_record (
2421: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type,
2422: x_okl_invoice_mssgs_tl_rec OUT NOCOPY okl_invoice_mssgs_tl_rec_type
2423: ) RETURN VARCHAR2 IS
2424: l_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type;
2425: l_row_notfound BOOLEAN := TRUE;
2426: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2427: BEGIN
2428: x_okl_invoice_mssgs_tl_rec := p_okl_invoice_mssgs_tl_rec;
2424: l_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type;
2425: l_row_notfound BOOLEAN := TRUE;
2426: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2427: BEGIN
2428: x_okl_invoice_mssgs_tl_rec := p_okl_invoice_mssgs_tl_rec;
2429: -- Get current database values
2430: l_okl_invoice_mssgs_tl_rec := get_rec(p_okl_invoice_mssgs_tl_rec, l_row_notfound);
2431: IF (l_row_notfound) THEN
2432: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2426: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2427: BEGIN
2428: x_okl_invoice_mssgs_tl_rec := p_okl_invoice_mssgs_tl_rec;
2429: -- Get current database values
2430: l_okl_invoice_mssgs_tl_rec := get_rec(p_okl_invoice_mssgs_tl_rec, l_row_notfound);
2431: IF (l_row_notfound) THEN
2432: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2433: END IF;
2434: IF (x_okl_invoice_mssgs_tl_rec.id = OKL_API.G_MISS_NUM)
2430: l_okl_invoice_mssgs_tl_rec := get_rec(p_okl_invoice_mssgs_tl_rec, l_row_notfound);
2431: IF (l_row_notfound) THEN
2432: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2433: END IF;
2434: IF (x_okl_invoice_mssgs_tl_rec.id = OKL_API.G_MISS_NUM)
2435: THEN
2436: x_okl_invoice_mssgs_tl_rec.id := l_okl_invoice_mssgs_tl_rec.id;
2437: END IF;
2438: IF (x_okl_invoice_mssgs_tl_rec.language = OKL_API.G_MISS_CHAR)
2432: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2433: END IF;
2434: IF (x_okl_invoice_mssgs_tl_rec.id = OKL_API.G_MISS_NUM)
2435: THEN
2436: x_okl_invoice_mssgs_tl_rec.id := l_okl_invoice_mssgs_tl_rec.id;
2437: END IF;
2438: IF (x_okl_invoice_mssgs_tl_rec.language = OKL_API.G_MISS_CHAR)
2439: THEN
2440: x_okl_invoice_mssgs_tl_rec.language := l_okl_invoice_mssgs_tl_rec.language;
2434: IF (x_okl_invoice_mssgs_tl_rec.id = OKL_API.G_MISS_NUM)
2435: THEN
2436: x_okl_invoice_mssgs_tl_rec.id := l_okl_invoice_mssgs_tl_rec.id;
2437: END IF;
2438: IF (x_okl_invoice_mssgs_tl_rec.language = OKL_API.G_MISS_CHAR)
2439: THEN
2440: x_okl_invoice_mssgs_tl_rec.language := l_okl_invoice_mssgs_tl_rec.language;
2441: END IF;
2442: IF (x_okl_invoice_mssgs_tl_rec.source_lang = OKL_API.G_MISS_CHAR)
2436: x_okl_invoice_mssgs_tl_rec.id := l_okl_invoice_mssgs_tl_rec.id;
2437: END IF;
2438: IF (x_okl_invoice_mssgs_tl_rec.language = OKL_API.G_MISS_CHAR)
2439: THEN
2440: x_okl_invoice_mssgs_tl_rec.language := l_okl_invoice_mssgs_tl_rec.language;
2441: END IF;
2442: IF (x_okl_invoice_mssgs_tl_rec.source_lang = OKL_API.G_MISS_CHAR)
2443: THEN
2444: x_okl_invoice_mssgs_tl_rec.source_lang := l_okl_invoice_mssgs_tl_rec.source_lang;
2438: IF (x_okl_invoice_mssgs_tl_rec.language = OKL_API.G_MISS_CHAR)
2439: THEN
2440: x_okl_invoice_mssgs_tl_rec.language := l_okl_invoice_mssgs_tl_rec.language;
2441: END IF;
2442: IF (x_okl_invoice_mssgs_tl_rec.source_lang = OKL_API.G_MISS_CHAR)
2443: THEN
2444: x_okl_invoice_mssgs_tl_rec.source_lang := l_okl_invoice_mssgs_tl_rec.source_lang;
2445: END IF;
2446: IF (x_okl_invoice_mssgs_tl_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
2440: x_okl_invoice_mssgs_tl_rec.language := l_okl_invoice_mssgs_tl_rec.language;
2441: END IF;
2442: IF (x_okl_invoice_mssgs_tl_rec.source_lang = OKL_API.G_MISS_CHAR)
2443: THEN
2444: x_okl_invoice_mssgs_tl_rec.source_lang := l_okl_invoice_mssgs_tl_rec.source_lang;
2445: END IF;
2446: IF (x_okl_invoice_mssgs_tl_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
2447: THEN
2448: x_okl_invoice_mssgs_tl_rec.sfwt_flag := l_okl_invoice_mssgs_tl_rec.sfwt_flag;
2442: IF (x_okl_invoice_mssgs_tl_rec.source_lang = OKL_API.G_MISS_CHAR)
2443: THEN
2444: x_okl_invoice_mssgs_tl_rec.source_lang := l_okl_invoice_mssgs_tl_rec.source_lang;
2445: END IF;
2446: IF (x_okl_invoice_mssgs_tl_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
2447: THEN
2448: x_okl_invoice_mssgs_tl_rec.sfwt_flag := l_okl_invoice_mssgs_tl_rec.sfwt_flag;
2449: END IF;
2450: IF (x_okl_invoice_mssgs_tl_rec.name = OKL_API.G_MISS_CHAR)
2444: x_okl_invoice_mssgs_tl_rec.source_lang := l_okl_invoice_mssgs_tl_rec.source_lang;
2445: END IF;
2446: IF (x_okl_invoice_mssgs_tl_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
2447: THEN
2448: x_okl_invoice_mssgs_tl_rec.sfwt_flag := l_okl_invoice_mssgs_tl_rec.sfwt_flag;
2449: END IF;
2450: IF (x_okl_invoice_mssgs_tl_rec.name = OKL_API.G_MISS_CHAR)
2451: THEN
2452: x_okl_invoice_mssgs_tl_rec.name := l_okl_invoice_mssgs_tl_rec.name;
2446: IF (x_okl_invoice_mssgs_tl_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
2447: THEN
2448: x_okl_invoice_mssgs_tl_rec.sfwt_flag := l_okl_invoice_mssgs_tl_rec.sfwt_flag;
2449: END IF;
2450: IF (x_okl_invoice_mssgs_tl_rec.name = OKL_API.G_MISS_CHAR)
2451: THEN
2452: x_okl_invoice_mssgs_tl_rec.name := l_okl_invoice_mssgs_tl_rec.name;
2453: END IF;
2454: IF (x_okl_invoice_mssgs_tl_rec.message_text = OKL_API.G_MISS_CHAR)
2448: x_okl_invoice_mssgs_tl_rec.sfwt_flag := l_okl_invoice_mssgs_tl_rec.sfwt_flag;
2449: END IF;
2450: IF (x_okl_invoice_mssgs_tl_rec.name = OKL_API.G_MISS_CHAR)
2451: THEN
2452: x_okl_invoice_mssgs_tl_rec.name := l_okl_invoice_mssgs_tl_rec.name;
2453: END IF;
2454: IF (x_okl_invoice_mssgs_tl_rec.message_text = OKL_API.G_MISS_CHAR)
2455: THEN
2456: x_okl_invoice_mssgs_tl_rec.message_text := l_okl_invoice_mssgs_tl_rec.message_text;
2450: IF (x_okl_invoice_mssgs_tl_rec.name = OKL_API.G_MISS_CHAR)
2451: THEN
2452: x_okl_invoice_mssgs_tl_rec.name := l_okl_invoice_mssgs_tl_rec.name;
2453: END IF;
2454: IF (x_okl_invoice_mssgs_tl_rec.message_text = OKL_API.G_MISS_CHAR)
2455: THEN
2456: x_okl_invoice_mssgs_tl_rec.message_text := l_okl_invoice_mssgs_tl_rec.message_text;
2457: END IF;
2458: IF (x_okl_invoice_mssgs_tl_rec.description = OKL_API.G_MISS_CHAR)
2452: x_okl_invoice_mssgs_tl_rec.name := l_okl_invoice_mssgs_tl_rec.name;
2453: END IF;
2454: IF (x_okl_invoice_mssgs_tl_rec.message_text = OKL_API.G_MISS_CHAR)
2455: THEN
2456: x_okl_invoice_mssgs_tl_rec.message_text := l_okl_invoice_mssgs_tl_rec.message_text;
2457: END IF;
2458: IF (x_okl_invoice_mssgs_tl_rec.description = OKL_API.G_MISS_CHAR)
2459: THEN
2460: x_okl_invoice_mssgs_tl_rec.description := l_okl_invoice_mssgs_tl_rec.description;
2454: IF (x_okl_invoice_mssgs_tl_rec.message_text = OKL_API.G_MISS_CHAR)
2455: THEN
2456: x_okl_invoice_mssgs_tl_rec.message_text := l_okl_invoice_mssgs_tl_rec.message_text;
2457: END IF;
2458: IF (x_okl_invoice_mssgs_tl_rec.description = OKL_API.G_MISS_CHAR)
2459: THEN
2460: x_okl_invoice_mssgs_tl_rec.description := l_okl_invoice_mssgs_tl_rec.description;
2461: END IF;
2462: IF (x_okl_invoice_mssgs_tl_rec.created_by = OKL_API.G_MISS_NUM)
2456: x_okl_invoice_mssgs_tl_rec.message_text := l_okl_invoice_mssgs_tl_rec.message_text;
2457: END IF;
2458: IF (x_okl_invoice_mssgs_tl_rec.description = OKL_API.G_MISS_CHAR)
2459: THEN
2460: x_okl_invoice_mssgs_tl_rec.description := l_okl_invoice_mssgs_tl_rec.description;
2461: END IF;
2462: IF (x_okl_invoice_mssgs_tl_rec.created_by = OKL_API.G_MISS_NUM)
2463: THEN
2464: x_okl_invoice_mssgs_tl_rec.created_by := l_okl_invoice_mssgs_tl_rec.created_by;
2458: IF (x_okl_invoice_mssgs_tl_rec.description = OKL_API.G_MISS_CHAR)
2459: THEN
2460: x_okl_invoice_mssgs_tl_rec.description := l_okl_invoice_mssgs_tl_rec.description;
2461: END IF;
2462: IF (x_okl_invoice_mssgs_tl_rec.created_by = OKL_API.G_MISS_NUM)
2463: THEN
2464: x_okl_invoice_mssgs_tl_rec.created_by := l_okl_invoice_mssgs_tl_rec.created_by;
2465: END IF;
2466: IF (x_okl_invoice_mssgs_tl_rec.creation_date = OKL_API.G_MISS_DATE)
2460: x_okl_invoice_mssgs_tl_rec.description := l_okl_invoice_mssgs_tl_rec.description;
2461: END IF;
2462: IF (x_okl_invoice_mssgs_tl_rec.created_by = OKL_API.G_MISS_NUM)
2463: THEN
2464: x_okl_invoice_mssgs_tl_rec.created_by := l_okl_invoice_mssgs_tl_rec.created_by;
2465: END IF;
2466: IF (x_okl_invoice_mssgs_tl_rec.creation_date = OKL_API.G_MISS_DATE)
2467: THEN
2468: x_okl_invoice_mssgs_tl_rec.creation_date := l_okl_invoice_mssgs_tl_rec.creation_date;
2462: IF (x_okl_invoice_mssgs_tl_rec.created_by = OKL_API.G_MISS_NUM)
2463: THEN
2464: x_okl_invoice_mssgs_tl_rec.created_by := l_okl_invoice_mssgs_tl_rec.created_by;
2465: END IF;
2466: IF (x_okl_invoice_mssgs_tl_rec.creation_date = OKL_API.G_MISS_DATE)
2467: THEN
2468: x_okl_invoice_mssgs_tl_rec.creation_date := l_okl_invoice_mssgs_tl_rec.creation_date;
2469: END IF;
2470: IF (x_okl_invoice_mssgs_tl_rec.last_updated_by = OKL_API.G_MISS_NUM)
2464: x_okl_invoice_mssgs_tl_rec.created_by := l_okl_invoice_mssgs_tl_rec.created_by;
2465: END IF;
2466: IF (x_okl_invoice_mssgs_tl_rec.creation_date = OKL_API.G_MISS_DATE)
2467: THEN
2468: x_okl_invoice_mssgs_tl_rec.creation_date := l_okl_invoice_mssgs_tl_rec.creation_date;
2469: END IF;
2470: IF (x_okl_invoice_mssgs_tl_rec.last_updated_by = OKL_API.G_MISS_NUM)
2471: THEN
2472: x_okl_invoice_mssgs_tl_rec.last_updated_by := l_okl_invoice_mssgs_tl_rec.last_updated_by;
2466: IF (x_okl_invoice_mssgs_tl_rec.creation_date = OKL_API.G_MISS_DATE)
2467: THEN
2468: x_okl_invoice_mssgs_tl_rec.creation_date := l_okl_invoice_mssgs_tl_rec.creation_date;
2469: END IF;
2470: IF (x_okl_invoice_mssgs_tl_rec.last_updated_by = OKL_API.G_MISS_NUM)
2471: THEN
2472: x_okl_invoice_mssgs_tl_rec.last_updated_by := l_okl_invoice_mssgs_tl_rec.last_updated_by;
2473: END IF;
2474: IF (x_okl_invoice_mssgs_tl_rec.last_update_date = OKL_API.G_MISS_DATE)
2468: x_okl_invoice_mssgs_tl_rec.creation_date := l_okl_invoice_mssgs_tl_rec.creation_date;
2469: END IF;
2470: IF (x_okl_invoice_mssgs_tl_rec.last_updated_by = OKL_API.G_MISS_NUM)
2471: THEN
2472: x_okl_invoice_mssgs_tl_rec.last_updated_by := l_okl_invoice_mssgs_tl_rec.last_updated_by;
2473: END IF;
2474: IF (x_okl_invoice_mssgs_tl_rec.last_update_date = OKL_API.G_MISS_DATE)
2475: THEN
2476: x_okl_invoice_mssgs_tl_rec.last_update_date := l_okl_invoice_mssgs_tl_rec.last_update_date;
2470: IF (x_okl_invoice_mssgs_tl_rec.last_updated_by = OKL_API.G_MISS_NUM)
2471: THEN
2472: x_okl_invoice_mssgs_tl_rec.last_updated_by := l_okl_invoice_mssgs_tl_rec.last_updated_by;
2473: END IF;
2474: IF (x_okl_invoice_mssgs_tl_rec.last_update_date = OKL_API.G_MISS_DATE)
2475: THEN
2476: x_okl_invoice_mssgs_tl_rec.last_update_date := l_okl_invoice_mssgs_tl_rec.last_update_date;
2477: END IF;
2478: IF (x_okl_invoice_mssgs_tl_rec.last_update_login = OKL_API.G_MISS_NUM)
2472: x_okl_invoice_mssgs_tl_rec.last_updated_by := l_okl_invoice_mssgs_tl_rec.last_updated_by;
2473: END IF;
2474: IF (x_okl_invoice_mssgs_tl_rec.last_update_date = OKL_API.G_MISS_DATE)
2475: THEN
2476: x_okl_invoice_mssgs_tl_rec.last_update_date := l_okl_invoice_mssgs_tl_rec.last_update_date;
2477: END IF;
2478: IF (x_okl_invoice_mssgs_tl_rec.last_update_login = OKL_API.G_MISS_NUM)
2479: THEN
2480: x_okl_invoice_mssgs_tl_rec.last_update_login := l_okl_invoice_mssgs_tl_rec.last_update_login;
2474: IF (x_okl_invoice_mssgs_tl_rec.last_update_date = OKL_API.G_MISS_DATE)
2475: THEN
2476: x_okl_invoice_mssgs_tl_rec.last_update_date := l_okl_invoice_mssgs_tl_rec.last_update_date;
2477: END IF;
2478: IF (x_okl_invoice_mssgs_tl_rec.last_update_login = OKL_API.G_MISS_NUM)
2479: THEN
2480: x_okl_invoice_mssgs_tl_rec.last_update_login := l_okl_invoice_mssgs_tl_rec.last_update_login;
2481: END IF;
2482: RETURN(l_return_status);
2476: x_okl_invoice_mssgs_tl_rec.last_update_date := l_okl_invoice_mssgs_tl_rec.last_update_date;
2477: END IF;
2478: IF (x_okl_invoice_mssgs_tl_rec.last_update_login = OKL_API.G_MISS_NUM)
2479: THEN
2480: x_okl_invoice_mssgs_tl_rec.last_update_login := l_okl_invoice_mssgs_tl_rec.last_update_login;
2481: END IF;
2482: RETURN(l_return_status);
2483: END populate_new_record;
2484: ---------------------------------------------
2481: END IF;
2482: RETURN(l_return_status);
2483: END populate_new_record;
2484: ---------------------------------------------
2485: -- Set_Attributes for:OKL_INVOICE_MSSGS_TL --
2486: ---------------------------------------------
2487: FUNCTION Set_Attributes (
2488: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type,
2489: x_okl_invoice_mssgs_tl_rec OUT NOCOPY okl_invoice_mssgs_tl_rec_type
2484: ---------------------------------------------
2485: -- Set_Attributes for:OKL_INVOICE_MSSGS_TL --
2486: ---------------------------------------------
2487: FUNCTION Set_Attributes (
2488: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type,
2489: x_okl_invoice_mssgs_tl_rec OUT NOCOPY okl_invoice_mssgs_tl_rec_type
2490: ) RETURN VARCHAR2 IS
2491: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2492: BEGIN
2485: -- Set_Attributes for:OKL_INVOICE_MSSGS_TL --
2486: ---------------------------------------------
2487: FUNCTION Set_Attributes (
2488: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type,
2489: x_okl_invoice_mssgs_tl_rec OUT NOCOPY okl_invoice_mssgs_tl_rec_type
2490: ) RETURN VARCHAR2 IS
2491: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2492: BEGIN
2493: x_okl_invoice_mssgs_tl_rec := p_okl_invoice_mssgs_tl_rec;
2489: x_okl_invoice_mssgs_tl_rec OUT NOCOPY okl_invoice_mssgs_tl_rec_type
2490: ) RETURN VARCHAR2 IS
2491: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2492: BEGIN
2493: x_okl_invoice_mssgs_tl_rec := p_okl_invoice_mssgs_tl_rec;
2494: x_okl_invoice_mssgs_tl_rec.LANGUAGE := USERENV('LANG');
2495: x_okl_invoice_mssgs_tl_rec.SOURCE_LANG := USERENV('LANG');
2496: RETURN(l_return_status);
2497: END Set_Attributes;
2490: ) RETURN VARCHAR2 IS
2491: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2492: BEGIN
2493: x_okl_invoice_mssgs_tl_rec := p_okl_invoice_mssgs_tl_rec;
2494: x_okl_invoice_mssgs_tl_rec.LANGUAGE := USERENV('LANG');
2495: x_okl_invoice_mssgs_tl_rec.SOURCE_LANG := USERENV('LANG');
2496: RETURN(l_return_status);
2497: END Set_Attributes;
2498: BEGIN
2491: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2492: BEGIN
2493: x_okl_invoice_mssgs_tl_rec := p_okl_invoice_mssgs_tl_rec;
2494: x_okl_invoice_mssgs_tl_rec.LANGUAGE := USERENV('LANG');
2495: x_okl_invoice_mssgs_tl_rec.SOURCE_LANG := USERENV('LANG');
2496: RETURN(l_return_status);
2497: END Set_Attributes;
2498: BEGIN
2499: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2506: RAISE OKL_API.G_EXCEPTION_ERROR;
2507: END IF;
2508: --- Setting item attributes
2509: l_return_status := Set_Attributes(
2510: p_okl_invoice_mssgs_tl_rec, -- IN
2511: l_okl_invoice_mssgs_tl_rec); -- OUT
2512: --- If any errors happen abort API
2513: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2514: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2507: END IF;
2508: --- Setting item attributes
2509: l_return_status := Set_Attributes(
2510: p_okl_invoice_mssgs_tl_rec, -- IN
2511: l_okl_invoice_mssgs_tl_rec); -- OUT
2512: --- If any errors happen abort API
2513: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2514: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2515: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2514: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2515: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2516: RAISE OKL_API.G_EXCEPTION_ERROR;
2517: END IF;
2518: l_return_status := populate_new_record(l_okl_invoice_mssgs_tl_rec, ldefoklinvoicemssgstlrec);
2519: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2520: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2521: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2522: RAISE OKL_API.G_EXCEPTION_ERROR;
2520: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2521: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2522: RAISE OKL_API.G_EXCEPTION_ERROR;
2523: END IF;
2524: UPDATE OKL_INVOICE_MSSGS_TL
2525: SET NAME = ldefoklinvoicemssgstlrec.name,
2526: MESSAGE_TEXT = ldefoklinvoicemssgstlrec.message_text,
2527: DESCRIPTION = ldefoklinvoicemssgstlrec.description,
2528: SOURCE_LANG = ldefoklinvoicemssgstlrec.source_lang,
2533: LAST_UPDATE_LOGIN = ldefoklinvoicemssgstlrec.last_update_login
2534: WHERE ID = ldefoklinvoicemssgstlrec.id
2535: AND USERENV('LANG') in (SOURCE_LANG, LANGUAGE);
2536:
2537: UPDATE OKL_INVOICE_MSSGS_TL
2538: SET SFWT_FLAG = 'Y'
2539: WHERE ID = ldefoklinvoicemssgstlrec.id
2540: AND SOURCE_LANG <> USERENV('LANG');
2541:
2538: SET SFWT_FLAG = 'Y'
2539: WHERE ID = ldefoklinvoicemssgstlrec.id
2540: AND SOURCE_LANG <> USERENV('LANG');
2541:
2542: x_okl_invoice_mssgs_tl_rec := ldefoklinvoicemssgstlrec;
2543: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2544: EXCEPTION
2545: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2546: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2589: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2590: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2591: l_imsv_rec imsv_rec_type := p_imsv_rec;
2592: l_def_imsv_rec imsv_rec_type;
2593: l_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type;
2594: lx_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type;
2595: l_ims_rec ims_rec_type;
2596: lx_ims_rec ims_rec_type;
2597: -------------------------------
2590: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2591: l_imsv_rec imsv_rec_type := p_imsv_rec;
2592: l_def_imsv_rec imsv_rec_type;
2593: l_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type;
2594: lx_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type;
2595: l_ims_rec ims_rec_type;
2596: lx_ims_rec ims_rec_type;
2597: -------------------------------
2598: -- FUNCTION fill_who_columns --
2818:
2819: --------------------------------------
2820: -- Move VIEW record to "Child" records
2821: --------------------------------------
2822: migrate(l_def_imsv_rec, l_okl_invoice_mssgs_tl_rec);
2823: migrate(l_def_imsv_rec, l_ims_rec);
2824: --------------------------------------------
2825: -- Call the UPDATE_ROW for each child record
2826: --------------------------------------------
2828: p_init_msg_list,
2829: x_return_status,
2830: x_msg_count,
2831: x_msg_data,
2832: l_okl_invoice_mssgs_tl_rec,
2833: lx_okl_invoice_mssgs_tl_rec
2834: );
2835: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2836: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2829: x_return_status,
2830: x_msg_count,
2831: x_msg_data,
2832: l_okl_invoice_mssgs_tl_rec,
2833: lx_okl_invoice_mssgs_tl_rec
2834: );
2835: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2836: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2837: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2836: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2837: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2838: RAISE OKL_API.G_EXCEPTION_ERROR;
2839: END IF;
2840: migrate(lx_okl_invoice_mssgs_tl_rec, l_def_imsv_rec);
2841: update_row(
2842: p_init_msg_list,
2843: x_return_status,
2844: x_msg_count,
3034: '_PVT'
3035: );
3036: END delete_row;
3037: -----------------------------------------
3038: -- delete_row for:OKL_INVOICE_MSSGS_TL --
3039: -----------------------------------------
3040: PROCEDURE delete_row(
3041: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3042: x_return_status OUT NOCOPY VARCHAR2,
3041: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3042: x_return_status OUT NOCOPY VARCHAR2,
3043: x_msg_count OUT NOCOPY NUMBER,
3044: x_msg_data OUT NOCOPY VARCHAR2,
3045: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type) IS
3046:
3047: l_api_version CONSTANT NUMBER := 1;
3048: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3049: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3046:
3047: l_api_version CONSTANT NUMBER := 1;
3048: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3049: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3050: l_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type:= p_okl_invoice_mssgs_tl_rec;
3051: l_row_notfound BOOLEAN := TRUE;
3052: ---------------------------------------------
3053: -- Set_Attributes for:OKL_INVOICE_MSSGS_TL --
3054: ---------------------------------------------
3049: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3050: l_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type:= p_okl_invoice_mssgs_tl_rec;
3051: l_row_notfound BOOLEAN := TRUE;
3052: ---------------------------------------------
3053: -- Set_Attributes for:OKL_INVOICE_MSSGS_TL --
3054: ---------------------------------------------
3055: FUNCTION Set_Attributes (
3056: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type,
3057: x_okl_invoice_mssgs_tl_rec OUT NOCOPY okl_invoice_mssgs_tl_rec_type
3052: ---------------------------------------------
3053: -- Set_Attributes for:OKL_INVOICE_MSSGS_TL --
3054: ---------------------------------------------
3055: FUNCTION Set_Attributes (
3056: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type,
3057: x_okl_invoice_mssgs_tl_rec OUT NOCOPY okl_invoice_mssgs_tl_rec_type
3058: ) RETURN VARCHAR2 IS
3059: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3060: BEGIN
3053: -- Set_Attributes for:OKL_INVOICE_MSSGS_TL --
3054: ---------------------------------------------
3055: FUNCTION Set_Attributes (
3056: p_okl_invoice_mssgs_tl_rec IN okl_invoice_mssgs_tl_rec_type,
3057: x_okl_invoice_mssgs_tl_rec OUT NOCOPY okl_invoice_mssgs_tl_rec_type
3058: ) RETURN VARCHAR2 IS
3059: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3060: BEGIN
3061: x_okl_invoice_mssgs_tl_rec := p_okl_invoice_mssgs_tl_rec;
3057: x_okl_invoice_mssgs_tl_rec OUT NOCOPY okl_invoice_mssgs_tl_rec_type
3058: ) RETURN VARCHAR2 IS
3059: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3060: BEGIN
3061: x_okl_invoice_mssgs_tl_rec := p_okl_invoice_mssgs_tl_rec;
3062: x_okl_invoice_mssgs_tl_rec.LANGUAGE := USERENV('LANG');
3063: RETURN(l_return_status);
3064: END Set_Attributes;
3065: BEGIN
3058: ) RETURN VARCHAR2 IS
3059: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3060: BEGIN
3061: x_okl_invoice_mssgs_tl_rec := p_okl_invoice_mssgs_tl_rec;
3062: x_okl_invoice_mssgs_tl_rec.LANGUAGE := USERENV('LANG');
3063: RETURN(l_return_status);
3064: END Set_Attributes;
3065: BEGIN
3066: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3073: RAISE OKL_API.G_EXCEPTION_ERROR;
3074: END IF;
3075: --- Setting item attributes
3076: l_return_status := Set_Attributes(
3077: p_okl_invoice_mssgs_tl_rec, -- IN
3078: l_okl_invoice_mssgs_tl_rec); -- OUT
3079: --- If any errors happen abort API
3080: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3081: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3074: END IF;
3075: --- Setting item attributes
3076: l_return_status := Set_Attributes(
3077: p_okl_invoice_mssgs_tl_rec, -- IN
3078: l_okl_invoice_mssgs_tl_rec); -- OUT
3079: --- If any errors happen abort API
3080: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3081: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3082: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3081: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3082: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3083: RAISE OKL_API.G_EXCEPTION_ERROR;
3084: END IF;
3085: DELETE FROM OKL_INVOICE_MSSGS_TL
3086: WHERE ID = l_okl_invoice_mssgs_tl_rec.id;
3087:
3088: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3089: EXCEPTION
3082: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3083: RAISE OKL_API.G_EXCEPTION_ERROR;
3084: END IF;
3085: DELETE FROM OKL_INVOICE_MSSGS_TL
3086: WHERE ID = l_okl_invoice_mssgs_tl_rec.id;
3087:
3088: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3089: EXCEPTION
3090: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3132: l_api_version CONSTANT NUMBER := 1;
3133: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3134: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3135: l_imsv_rec imsv_rec_type := p_imsv_rec;
3136: l_okl_invoice_mssgs_tl_rec okl_invoice_mssgs_tl_rec_type;
3137: l_ims_rec ims_rec_type;
3138: BEGIN
3139: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3140: G_PKG_NAME,
3150: END IF;
3151: --------------------------------------
3152: -- Move VIEW record to "Child" records
3153: --------------------------------------
3154: migrate(l_imsv_rec, l_okl_invoice_mssgs_tl_rec);
3155: migrate(l_imsv_rec, l_ims_rec);
3156: --------------------------------------------
3157: -- Call the DELETE_ROW for each child record
3158: --------------------------------------------
3160: p_init_msg_list,
3161: x_return_status,
3162: x_msg_count,
3163: x_msg_data,
3164: l_okl_invoice_mssgs_tl_rec
3165: );
3166: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3167: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3168: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN