[Home] [Help]
95: -- PROCEDURE add_language
96: ---------------------------------------------------------------------------
97: PROCEDURE add_language IS
98: BEGIN
99: DELETE FROM OKL_SUBSIDY_POOLS_TL T
100: WHERE NOT EXISTS (
101: SELECT NULL
102: FROM OKL_SUBSIDY_POOLS_B B
103: WHERE B.ID =T.ID
102: FROM OKL_SUBSIDY_POOLS_B B
103: WHERE B.ID =T.ID
104: );
105:
106: UPDATE OKL_SUBSIDY_POOLS_TL T SET(
107: SHORT_DESCRIPTION,
108: DESCRIPTION) = (SELECT
109: B.SHORT_DESCRIPTION,
110: B.DESCRIPTION
107: SHORT_DESCRIPTION,
108: DESCRIPTION) = (SELECT
109: B.SHORT_DESCRIPTION,
110: B.DESCRIPTION
111: FROM OKL_SUBSIDY_POOLS_TL B
112: WHERE B.ID = T.ID
113: AND B.LANGUAGE = T.SOURCE_LANG)
114: WHERE ( T.ID,
115: T.LANGUAGE)
115: T.LANGUAGE)
116: IN (SELECT
117: SUBT.ID,
118: SUBT.LANGUAGE
119: FROM OKL_SUBSIDY_POOLS_TL SUBB, OKL_SUBSIDY_POOLS_TL SUBT
120: WHERE SUBB.ID = SUBT.ID
121: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
122: AND (SUBB.SHORT_DESCRIPTION <> SUBT.SHORT_DESCRIPTION
123: OR SUBB.DESCRIPTION <> SUBT.DESCRIPTION
124: OR (SUBB.SHORT_DESCRIPTION IS NULL AND SUBT.SHORT_DESCRIPTION IS NOT NULL)
125: OR (SUBB.DESCRIPTION IS NULL AND SUBT.DESCRIPTION IS NOT NULL)
126: ));
127:
128: INSERT INTO OKL_SUBSIDY_POOLS_TL (
129: ID,
130: SHORT_DESCRIPTION,
131: DESCRIPTION,
132: LANGUAGE,
148: B.CREATION_DATE,
149: B.LAST_UPDATED_BY,
150: B.LAST_UPDATE_DATE,
151: B.LAST_UPDATE_LOGIN
152: FROM OKL_SUBSIDY_POOLS_TL B, FND_LANGUAGES L
153: WHERE L.INSTALLED_FLAG IN ('I', 'B')
154: AND B.LANGUAGE = USERENV('LANG')
155: AND NOT EXISTS (
156: SELECT NULL
153: WHERE L.INSTALLED_FLAG IN ('I', 'B')
154: AND B.LANGUAGE = USERENV('LANG')
155: AND NOT EXISTS (
156: SELECT NULL
157: FROM OKL_SUBSIDY_POOLS_TL T
158: WHERE T.ID = B.ID
159: AND T.LANGUAGE = L.LANGUAGE_CODE
160: );
161: END add_language;
287: BEGIN
288: RETURN(get_rec(p_sipv_rec, l_row_not_found));
289: END get_rec;
290: ---------------------------------------------------------------------------
291: -- FUNCTION get_rec for: OKL_SUBSIDY_POOLS_TL
292: ---------------------------------------------------------------------------
293: FUNCTION get_rec (
294: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type,
295: x_no_data_found OUT NOCOPY BOOLEAN
290: ---------------------------------------------------------------------------
291: -- FUNCTION get_rec for: OKL_SUBSIDY_POOLS_TL
292: ---------------------------------------------------------------------------
293: FUNCTION get_rec (
294: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type,
295: x_no_data_found OUT NOCOPY BOOLEAN
296: ) RETURN okl_subsidy_pools_tl_rec_type IS
297: CURSOR okl_subsidy_pools_tl_pk_csr (p_id IN NUMBER,
298: p_language IN VARCHAR2) IS
292: ---------------------------------------------------------------------------
293: FUNCTION get_rec (
294: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type,
295: x_no_data_found OUT NOCOPY BOOLEAN
296: ) RETURN okl_subsidy_pools_tl_rec_type IS
297: CURSOR okl_subsidy_pools_tl_pk_csr (p_id IN NUMBER,
298: p_language IN VARCHAR2) IS
299: SELECT
300: ID,
293: FUNCTION get_rec (
294: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type,
295: x_no_data_found OUT NOCOPY BOOLEAN
296: ) RETURN okl_subsidy_pools_tl_rec_type IS
297: CURSOR okl_subsidy_pools_tl_pk_csr (p_id IN NUMBER,
298: p_language IN VARCHAR2) IS
299: SELECT
300: ID,
301: SHORT_DESCRIPTION,
307: CREATION_DATE,
308: LAST_UPDATED_BY,
309: LAST_UPDATE_DATE,
310: LAST_UPDATE_LOGIN
311: FROM Okl_Subsidy_Pools_Tl
312: WHERE okl_subsidy_pools_tl.id = p_id
313: AND okl_subsidy_pools_tl.language = p_language;
314: l_okl_subsidy_pools_tl_pk okl_subsidy_pools_tl_pk_csr%ROWTYPE;
315: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
308: LAST_UPDATED_BY,
309: LAST_UPDATE_DATE,
310: LAST_UPDATE_LOGIN
311: FROM Okl_Subsidy_Pools_Tl
312: WHERE okl_subsidy_pools_tl.id = p_id
313: AND okl_subsidy_pools_tl.language = p_language;
314: l_okl_subsidy_pools_tl_pk okl_subsidy_pools_tl_pk_csr%ROWTYPE;
315: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
316: BEGIN
309: LAST_UPDATE_DATE,
310: LAST_UPDATE_LOGIN
311: FROM Okl_Subsidy_Pools_Tl
312: WHERE okl_subsidy_pools_tl.id = p_id
313: AND okl_subsidy_pools_tl.language = p_language;
314: l_okl_subsidy_pools_tl_pk okl_subsidy_pools_tl_pk_csr%ROWTYPE;
315: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
316: BEGIN
317: x_no_data_found := TRUE;
310: LAST_UPDATE_LOGIN
311: FROM Okl_Subsidy_Pools_Tl
312: WHERE okl_subsidy_pools_tl.id = p_id
313: AND okl_subsidy_pools_tl.language = p_language;
314: l_okl_subsidy_pools_tl_pk okl_subsidy_pools_tl_pk_csr%ROWTYPE;
315: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
316: BEGIN
317: x_no_data_found := TRUE;
318: -- Get current database values
311: FROM Okl_Subsidy_Pools_Tl
312: WHERE okl_subsidy_pools_tl.id = p_id
313: AND okl_subsidy_pools_tl.language = p_language;
314: l_okl_subsidy_pools_tl_pk okl_subsidy_pools_tl_pk_csr%ROWTYPE;
315: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
316: BEGIN
317: x_no_data_found := TRUE;
318: -- Get current database values
319: OPEN okl_subsidy_pools_tl_pk_csr (p_okl_subsidy_pools_tl_rec.id,
315: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
316: BEGIN
317: x_no_data_found := TRUE;
318: -- Get current database values
319: OPEN okl_subsidy_pools_tl_pk_csr (p_okl_subsidy_pools_tl_rec.id,
320: p_okl_subsidy_pools_tl_rec.language);
321: FETCH okl_subsidy_pools_tl_pk_csr INTO
322: l_okl_subsidy_pools_tl_rec.id,
323: l_okl_subsidy_pools_tl_rec.short_description,
316: BEGIN
317: x_no_data_found := TRUE;
318: -- Get current database values
319: OPEN okl_subsidy_pools_tl_pk_csr (p_okl_subsidy_pools_tl_rec.id,
320: p_okl_subsidy_pools_tl_rec.language);
321: FETCH okl_subsidy_pools_tl_pk_csr INTO
322: l_okl_subsidy_pools_tl_rec.id,
323: l_okl_subsidy_pools_tl_rec.short_description,
324: l_okl_subsidy_pools_tl_rec.description,
317: x_no_data_found := TRUE;
318: -- Get current database values
319: OPEN okl_subsidy_pools_tl_pk_csr (p_okl_subsidy_pools_tl_rec.id,
320: p_okl_subsidy_pools_tl_rec.language);
321: FETCH okl_subsidy_pools_tl_pk_csr INTO
322: l_okl_subsidy_pools_tl_rec.id,
323: l_okl_subsidy_pools_tl_rec.short_description,
324: l_okl_subsidy_pools_tl_rec.description,
325: l_okl_subsidy_pools_tl_rec.language,
318: -- Get current database values
319: OPEN okl_subsidy_pools_tl_pk_csr (p_okl_subsidy_pools_tl_rec.id,
320: p_okl_subsidy_pools_tl_rec.language);
321: FETCH okl_subsidy_pools_tl_pk_csr INTO
322: l_okl_subsidy_pools_tl_rec.id,
323: l_okl_subsidy_pools_tl_rec.short_description,
324: l_okl_subsidy_pools_tl_rec.description,
325: l_okl_subsidy_pools_tl_rec.language,
326: l_okl_subsidy_pools_tl_rec.source_lang,
319: OPEN okl_subsidy_pools_tl_pk_csr (p_okl_subsidy_pools_tl_rec.id,
320: p_okl_subsidy_pools_tl_rec.language);
321: FETCH okl_subsidy_pools_tl_pk_csr INTO
322: l_okl_subsidy_pools_tl_rec.id,
323: l_okl_subsidy_pools_tl_rec.short_description,
324: l_okl_subsidy_pools_tl_rec.description,
325: l_okl_subsidy_pools_tl_rec.language,
326: l_okl_subsidy_pools_tl_rec.source_lang,
327: l_okl_subsidy_pools_tl_rec.sfwt_flag,
320: p_okl_subsidy_pools_tl_rec.language);
321: FETCH okl_subsidy_pools_tl_pk_csr INTO
322: l_okl_subsidy_pools_tl_rec.id,
323: l_okl_subsidy_pools_tl_rec.short_description,
324: l_okl_subsidy_pools_tl_rec.description,
325: l_okl_subsidy_pools_tl_rec.language,
326: l_okl_subsidy_pools_tl_rec.source_lang,
327: l_okl_subsidy_pools_tl_rec.sfwt_flag,
328: l_okl_subsidy_pools_tl_rec.created_by,
321: FETCH okl_subsidy_pools_tl_pk_csr INTO
322: l_okl_subsidy_pools_tl_rec.id,
323: l_okl_subsidy_pools_tl_rec.short_description,
324: l_okl_subsidy_pools_tl_rec.description,
325: l_okl_subsidy_pools_tl_rec.language,
326: l_okl_subsidy_pools_tl_rec.source_lang,
327: l_okl_subsidy_pools_tl_rec.sfwt_flag,
328: l_okl_subsidy_pools_tl_rec.created_by,
329: l_okl_subsidy_pools_tl_rec.creation_date,
322: l_okl_subsidy_pools_tl_rec.id,
323: l_okl_subsidy_pools_tl_rec.short_description,
324: l_okl_subsidy_pools_tl_rec.description,
325: l_okl_subsidy_pools_tl_rec.language,
326: l_okl_subsidy_pools_tl_rec.source_lang,
327: l_okl_subsidy_pools_tl_rec.sfwt_flag,
328: l_okl_subsidy_pools_tl_rec.created_by,
329: l_okl_subsidy_pools_tl_rec.creation_date,
330: l_okl_subsidy_pools_tl_rec.last_updated_by,
323: l_okl_subsidy_pools_tl_rec.short_description,
324: l_okl_subsidy_pools_tl_rec.description,
325: l_okl_subsidy_pools_tl_rec.language,
326: l_okl_subsidy_pools_tl_rec.source_lang,
327: l_okl_subsidy_pools_tl_rec.sfwt_flag,
328: l_okl_subsidy_pools_tl_rec.created_by,
329: l_okl_subsidy_pools_tl_rec.creation_date,
330: l_okl_subsidy_pools_tl_rec.last_updated_by,
331: l_okl_subsidy_pools_tl_rec.last_update_date,
324: l_okl_subsidy_pools_tl_rec.description,
325: l_okl_subsidy_pools_tl_rec.language,
326: l_okl_subsidy_pools_tl_rec.source_lang,
327: l_okl_subsidy_pools_tl_rec.sfwt_flag,
328: l_okl_subsidy_pools_tl_rec.created_by,
329: l_okl_subsidy_pools_tl_rec.creation_date,
330: l_okl_subsidy_pools_tl_rec.last_updated_by,
331: l_okl_subsidy_pools_tl_rec.last_update_date,
332: l_okl_subsidy_pools_tl_rec.last_update_login;
325: l_okl_subsidy_pools_tl_rec.language,
326: l_okl_subsidy_pools_tl_rec.source_lang,
327: l_okl_subsidy_pools_tl_rec.sfwt_flag,
328: l_okl_subsidy_pools_tl_rec.created_by,
329: l_okl_subsidy_pools_tl_rec.creation_date,
330: l_okl_subsidy_pools_tl_rec.last_updated_by,
331: l_okl_subsidy_pools_tl_rec.last_update_date,
332: l_okl_subsidy_pools_tl_rec.last_update_login;
333: x_no_data_found := okl_subsidy_pools_tl_pk_csr%NOTFOUND;
326: l_okl_subsidy_pools_tl_rec.source_lang,
327: l_okl_subsidy_pools_tl_rec.sfwt_flag,
328: l_okl_subsidy_pools_tl_rec.created_by,
329: l_okl_subsidy_pools_tl_rec.creation_date,
330: l_okl_subsidy_pools_tl_rec.last_updated_by,
331: l_okl_subsidy_pools_tl_rec.last_update_date,
332: l_okl_subsidy_pools_tl_rec.last_update_login;
333: x_no_data_found := okl_subsidy_pools_tl_pk_csr%NOTFOUND;
334: CLOSE okl_subsidy_pools_tl_pk_csr;
327: l_okl_subsidy_pools_tl_rec.sfwt_flag,
328: l_okl_subsidy_pools_tl_rec.created_by,
329: l_okl_subsidy_pools_tl_rec.creation_date,
330: l_okl_subsidy_pools_tl_rec.last_updated_by,
331: l_okl_subsidy_pools_tl_rec.last_update_date,
332: l_okl_subsidy_pools_tl_rec.last_update_login;
333: x_no_data_found := okl_subsidy_pools_tl_pk_csr%NOTFOUND;
334: CLOSE okl_subsidy_pools_tl_pk_csr;
335: RETURN(l_okl_subsidy_pools_tl_rec);
328: l_okl_subsidy_pools_tl_rec.created_by,
329: l_okl_subsidy_pools_tl_rec.creation_date,
330: l_okl_subsidy_pools_tl_rec.last_updated_by,
331: l_okl_subsidy_pools_tl_rec.last_update_date,
332: l_okl_subsidy_pools_tl_rec.last_update_login;
333: x_no_data_found := okl_subsidy_pools_tl_pk_csr%NOTFOUND;
334: CLOSE okl_subsidy_pools_tl_pk_csr;
335: RETURN(l_okl_subsidy_pools_tl_rec);
336: END get_rec;
329: l_okl_subsidy_pools_tl_rec.creation_date,
330: l_okl_subsidy_pools_tl_rec.last_updated_by,
331: l_okl_subsidy_pools_tl_rec.last_update_date,
332: l_okl_subsidy_pools_tl_rec.last_update_login;
333: x_no_data_found := okl_subsidy_pools_tl_pk_csr%NOTFOUND;
334: CLOSE okl_subsidy_pools_tl_pk_csr;
335: RETURN(l_okl_subsidy_pools_tl_rec);
336: END get_rec;
337:
330: l_okl_subsidy_pools_tl_rec.last_updated_by,
331: l_okl_subsidy_pools_tl_rec.last_update_date,
332: l_okl_subsidy_pools_tl_rec.last_update_login;
333: x_no_data_found := okl_subsidy_pools_tl_pk_csr%NOTFOUND;
334: CLOSE okl_subsidy_pools_tl_pk_csr;
335: RETURN(l_okl_subsidy_pools_tl_rec);
336: END get_rec;
337:
338: ------------------------------------------------------------------
331: l_okl_subsidy_pools_tl_rec.last_update_date,
332: l_okl_subsidy_pools_tl_rec.last_update_login;
333: x_no_data_found := okl_subsidy_pools_tl_pk_csr%NOTFOUND;
334: CLOSE okl_subsidy_pools_tl_pk_csr;
335: RETURN(l_okl_subsidy_pools_tl_rec);
336: END get_rec;
337:
338: ------------------------------------------------------------------
339: -- This version of get_rec sets error messages if no data found --
338: ------------------------------------------------------------------
339: -- This version of get_rec sets error messages if no data found --
340: ------------------------------------------------------------------
341: FUNCTION get_rec (
342: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type,
343: x_return_status OUT NOCOPY VARCHAR2
344: ) RETURN okl_subsidy_pools_tl_rec_type IS
345: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
346: l_row_notfound BOOLEAN := TRUE;
340: ------------------------------------------------------------------
341: FUNCTION get_rec (
342: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type,
343: x_return_status OUT NOCOPY VARCHAR2
344: ) RETURN okl_subsidy_pools_tl_rec_type IS
345: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
346: l_row_notfound BOOLEAN := TRUE;
347: BEGIN
348: x_return_status := OKL_API.G_RET_STS_SUCCESS;
341: FUNCTION get_rec (
342: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type,
343: x_return_status OUT NOCOPY VARCHAR2
344: ) RETURN okl_subsidy_pools_tl_rec_type IS
345: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
346: l_row_notfound BOOLEAN := TRUE;
347: BEGIN
348: x_return_status := OKL_API.G_RET_STS_SUCCESS;
349: l_okl_subsidy_pools_tl_rec := get_rec(p_okl_subsidy_pools_tl_rec, l_row_notfound);
345: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
346: l_row_notfound BOOLEAN := TRUE;
347: BEGIN
348: x_return_status := OKL_API.G_RET_STS_SUCCESS;
349: l_okl_subsidy_pools_tl_rec := get_rec(p_okl_subsidy_pools_tl_rec, l_row_notfound);
350: IF (l_row_notfound) THEN
351: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
352: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
353: x_return_status := OKL_API.G_RET_STS_ERROR;
351: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
352: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
353: x_return_status := OKL_API.G_RET_STS_ERROR;
354: END IF;
355: RETURN(l_okl_subsidy_pools_tl_rec);
356: END get_rec;
357: -----------------------------------------------------------
358: -- So we don't have to pass an "l_row_notfound" variable --
359: -----------------------------------------------------------
357: -----------------------------------------------------------
358: -- So we don't have to pass an "l_row_notfound" variable --
359: -----------------------------------------------------------
360: FUNCTION get_rec (
361: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type
362: ) RETURN okl_subsidy_pools_tl_rec_type IS
363: l_row_not_found BOOLEAN := TRUE;
364: BEGIN
365: RETURN(get_rec(p_okl_subsidy_pools_tl_rec, l_row_not_found));
358: -- So we don't have to pass an "l_row_notfound" variable --
359: -----------------------------------------------------------
360: FUNCTION get_rec (
361: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type
362: ) RETURN okl_subsidy_pools_tl_rec_type IS
363: l_row_not_found BOOLEAN := TRUE;
364: BEGIN
365: RETURN(get_rec(p_okl_subsidy_pools_tl_rec, l_row_not_found));
366: END get_rec;
361: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type
362: ) RETURN okl_subsidy_pools_tl_rec_type IS
363: l_row_not_found BOOLEAN := TRUE;
364: BEGIN
365: RETURN(get_rec(p_okl_subsidy_pools_tl_rec, l_row_not_found));
366: END get_rec;
367: ---------------------------------------------------------------------------
368: -- FUNCTION get_rec for: OKL_SUBSIDY_POOLS_B
369: ---------------------------------------------------------------------------
1281: -- PROCEDURE Migrate
1282: ---------------------------------------------------------------------------
1283: PROCEDURE migrate (
1284: p_from IN sipv_rec_type,
1285: p_to IN OUT NOCOPY okl_subsidy_pools_tl_rec_type
1286: ) IS
1287: BEGIN
1288: p_to.id := p_from.id;
1289: p_to.short_description := p_from.short_description;
1295: p_to.last_update_date := p_from.last_update_date;
1296: p_to.last_update_login := p_from.last_update_login;
1297: END migrate;
1298: PROCEDURE migrate (
1299: p_from IN okl_subsidy_pools_tl_rec_type,
1300: p_to IN OUT NOCOPY sipv_rec_type
1301: ) IS
1302: BEGIN
1303: p_to.id := p_from.id;
1410: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1411: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1412: l_sipv_rec sipv_rec_type := p_sipv_rec;
1413: l_sip_rec sip_rec_type;
1414: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
1415: BEGIN
1416: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1417: G_PKG_NAME,
1418: p_init_msg_list,
1789: '_PVT'
1790: );
1791: END insert_row;
1792: -----------------------------------------
1793: -- insert_row for:OKL_SUBSIDY_POOLS_TL --
1794: -----------------------------------------
1795: PROCEDURE insert_row(
1796: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1797: x_return_status OUT NOCOPY VARCHAR2,
1796: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1797: x_return_status OUT NOCOPY VARCHAR2,
1798: x_msg_count OUT NOCOPY NUMBER,
1799: x_msg_data OUT NOCOPY VARCHAR2,
1800: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type,
1801: x_okl_subsidy_pools_tl_rec OUT NOCOPY okl_subsidy_pools_tl_rec_type) IS
1802:
1803: l_api_version CONSTANT NUMBER := 1;
1804: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1797: x_return_status OUT NOCOPY VARCHAR2,
1798: x_msg_count OUT NOCOPY NUMBER,
1799: x_msg_data OUT NOCOPY VARCHAR2,
1800: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type,
1801: x_okl_subsidy_pools_tl_rec OUT NOCOPY okl_subsidy_pools_tl_rec_type) IS
1802:
1803: l_api_version CONSTANT NUMBER := 1;
1804: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1805: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1802:
1803: l_api_version CONSTANT NUMBER := 1;
1804: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1805: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1806: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type := p_okl_subsidy_pools_tl_rec;
1807: l_def_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
1808: CURSOR get_languages IS
1809: SELECT *
1810: FROM FND_LANGUAGES
1803: l_api_version CONSTANT NUMBER := 1;
1804: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1805: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1806: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type := p_okl_subsidy_pools_tl_rec;
1807: l_def_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
1808: CURSOR get_languages IS
1809: SELECT *
1810: FROM FND_LANGUAGES
1811: WHERE INSTALLED_FLAG IN ('I', 'B');
1809: SELECT *
1810: FROM FND_LANGUAGES
1811: WHERE INSTALLED_FLAG IN ('I', 'B');
1812: ---------------------------------------------
1813: -- Set_Attributes for:OKL_SUBSIDY_POOLS_TL --
1814: ---------------------------------------------
1815: FUNCTION Set_Attributes (
1816: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type,
1817: x_okl_subsidy_pools_tl_rec OUT NOCOPY okl_subsidy_pools_tl_rec_type
1812: ---------------------------------------------
1813: -- Set_Attributes for:OKL_SUBSIDY_POOLS_TL --
1814: ---------------------------------------------
1815: FUNCTION Set_Attributes (
1816: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type,
1817: x_okl_subsidy_pools_tl_rec OUT NOCOPY okl_subsidy_pools_tl_rec_type
1818: ) RETURN VARCHAR2 IS
1819: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1820: BEGIN
1813: -- Set_Attributes for:OKL_SUBSIDY_POOLS_TL --
1814: ---------------------------------------------
1815: FUNCTION Set_Attributes (
1816: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type,
1817: x_okl_subsidy_pools_tl_rec OUT NOCOPY okl_subsidy_pools_tl_rec_type
1818: ) RETURN VARCHAR2 IS
1819: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1820: BEGIN
1821: x_okl_subsidy_pools_tl_rec := p_okl_subsidy_pools_tl_rec;
1817: x_okl_subsidy_pools_tl_rec OUT NOCOPY okl_subsidy_pools_tl_rec_type
1818: ) RETURN VARCHAR2 IS
1819: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1820: BEGIN
1821: x_okl_subsidy_pools_tl_rec := p_okl_subsidy_pools_tl_rec;
1822: x_okl_subsidy_pools_tl_rec.LANGUAGE := USERENV('LANG');
1823: x_okl_subsidy_pools_tl_rec.SOURCE_LANG := USERENV('LANG');
1824: RETURN(l_return_status);
1825: END Set_Attributes;
1818: ) RETURN VARCHAR2 IS
1819: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1820: BEGIN
1821: x_okl_subsidy_pools_tl_rec := p_okl_subsidy_pools_tl_rec;
1822: x_okl_subsidy_pools_tl_rec.LANGUAGE := USERENV('LANG');
1823: x_okl_subsidy_pools_tl_rec.SOURCE_LANG := USERENV('LANG');
1824: RETURN(l_return_status);
1825: END Set_Attributes;
1826: BEGIN
1819: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1820: BEGIN
1821: x_okl_subsidy_pools_tl_rec := p_okl_subsidy_pools_tl_rec;
1822: x_okl_subsidy_pools_tl_rec.LANGUAGE := USERENV('LANG');
1823: x_okl_subsidy_pools_tl_rec.SOURCE_LANG := USERENV('LANG');
1824: RETURN(l_return_status);
1825: END Set_Attributes;
1826: BEGIN
1827: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1834: RAISE OKL_API.G_EXCEPTION_ERROR;
1835: END IF;
1836: --- Setting item attributes
1837: l_return_status := Set_Attributes(
1838: p_okl_subsidy_pools_tl_rec, -- IN
1839: l_okl_subsidy_pools_tl_rec); -- OUT
1840: --- If any errors happen abort API
1841: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1835: END IF;
1836: --- Setting item attributes
1837: l_return_status := Set_Attributes(
1838: p_okl_subsidy_pools_tl_rec, -- IN
1839: l_okl_subsidy_pools_tl_rec); -- OUT
1840: --- If any errors happen abort API
1841: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1843: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1843: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1844: RAISE OKL_API.G_EXCEPTION_ERROR;
1845: END IF;
1846: FOR l_lang_rec IN get_languages LOOP
1847: l_okl_subsidy_pools_tl_rec.language := l_lang_rec.language_code;
1848: INSERT INTO OKL_SUBSIDY_POOLS_TL(
1849: id,
1850: short_description,
1851: description,
1844: RAISE OKL_API.G_EXCEPTION_ERROR;
1845: END IF;
1846: FOR l_lang_rec IN get_languages LOOP
1847: l_okl_subsidy_pools_tl_rec.language := l_lang_rec.language_code;
1848: INSERT INTO OKL_SUBSIDY_POOLS_TL(
1849: id,
1850: short_description,
1851: description,
1852: language,
1857: last_updated_by,
1858: last_update_date,
1859: last_update_login)
1860: VALUES (
1861: l_okl_subsidy_pools_tl_rec.id,
1862: l_okl_subsidy_pools_tl_rec.short_description,
1863: l_okl_subsidy_pools_tl_rec.description,
1864: l_okl_subsidy_pools_tl_rec.language,
1865: l_okl_subsidy_pools_tl_rec.source_lang,
1858: last_update_date,
1859: last_update_login)
1860: VALUES (
1861: l_okl_subsidy_pools_tl_rec.id,
1862: l_okl_subsidy_pools_tl_rec.short_description,
1863: l_okl_subsidy_pools_tl_rec.description,
1864: l_okl_subsidy_pools_tl_rec.language,
1865: l_okl_subsidy_pools_tl_rec.source_lang,
1866: l_okl_subsidy_pools_tl_rec.sfwt_flag,
1859: last_update_login)
1860: VALUES (
1861: l_okl_subsidy_pools_tl_rec.id,
1862: l_okl_subsidy_pools_tl_rec.short_description,
1863: l_okl_subsidy_pools_tl_rec.description,
1864: l_okl_subsidy_pools_tl_rec.language,
1865: l_okl_subsidy_pools_tl_rec.source_lang,
1866: l_okl_subsidy_pools_tl_rec.sfwt_flag,
1867: l_okl_subsidy_pools_tl_rec.created_by,
1860: VALUES (
1861: l_okl_subsidy_pools_tl_rec.id,
1862: l_okl_subsidy_pools_tl_rec.short_description,
1863: l_okl_subsidy_pools_tl_rec.description,
1864: l_okl_subsidy_pools_tl_rec.language,
1865: l_okl_subsidy_pools_tl_rec.source_lang,
1866: l_okl_subsidy_pools_tl_rec.sfwt_flag,
1867: l_okl_subsidy_pools_tl_rec.created_by,
1868: l_okl_subsidy_pools_tl_rec.creation_date,
1861: l_okl_subsidy_pools_tl_rec.id,
1862: l_okl_subsidy_pools_tl_rec.short_description,
1863: l_okl_subsidy_pools_tl_rec.description,
1864: l_okl_subsidy_pools_tl_rec.language,
1865: l_okl_subsidy_pools_tl_rec.source_lang,
1866: l_okl_subsidy_pools_tl_rec.sfwt_flag,
1867: l_okl_subsidy_pools_tl_rec.created_by,
1868: l_okl_subsidy_pools_tl_rec.creation_date,
1869: l_okl_subsidy_pools_tl_rec.last_updated_by,
1862: l_okl_subsidy_pools_tl_rec.short_description,
1863: l_okl_subsidy_pools_tl_rec.description,
1864: l_okl_subsidy_pools_tl_rec.language,
1865: l_okl_subsidy_pools_tl_rec.source_lang,
1866: l_okl_subsidy_pools_tl_rec.sfwt_flag,
1867: l_okl_subsidy_pools_tl_rec.created_by,
1868: l_okl_subsidy_pools_tl_rec.creation_date,
1869: l_okl_subsidy_pools_tl_rec.last_updated_by,
1870: l_okl_subsidy_pools_tl_rec.last_update_date,
1863: l_okl_subsidy_pools_tl_rec.description,
1864: l_okl_subsidy_pools_tl_rec.language,
1865: l_okl_subsidy_pools_tl_rec.source_lang,
1866: l_okl_subsidy_pools_tl_rec.sfwt_flag,
1867: l_okl_subsidy_pools_tl_rec.created_by,
1868: l_okl_subsidy_pools_tl_rec.creation_date,
1869: l_okl_subsidy_pools_tl_rec.last_updated_by,
1870: l_okl_subsidy_pools_tl_rec.last_update_date,
1871: l_okl_subsidy_pools_tl_rec.last_update_login);
1864: l_okl_subsidy_pools_tl_rec.language,
1865: l_okl_subsidy_pools_tl_rec.source_lang,
1866: l_okl_subsidy_pools_tl_rec.sfwt_flag,
1867: l_okl_subsidy_pools_tl_rec.created_by,
1868: l_okl_subsidy_pools_tl_rec.creation_date,
1869: l_okl_subsidy_pools_tl_rec.last_updated_by,
1870: l_okl_subsidy_pools_tl_rec.last_update_date,
1871: l_okl_subsidy_pools_tl_rec.last_update_login);
1872: END LOOP;
1865: l_okl_subsidy_pools_tl_rec.source_lang,
1866: l_okl_subsidy_pools_tl_rec.sfwt_flag,
1867: l_okl_subsidy_pools_tl_rec.created_by,
1868: l_okl_subsidy_pools_tl_rec.creation_date,
1869: l_okl_subsidy_pools_tl_rec.last_updated_by,
1870: l_okl_subsidy_pools_tl_rec.last_update_date,
1871: l_okl_subsidy_pools_tl_rec.last_update_login);
1872: END LOOP;
1873: -- Set OUT values
1866: l_okl_subsidy_pools_tl_rec.sfwt_flag,
1867: l_okl_subsidy_pools_tl_rec.created_by,
1868: l_okl_subsidy_pools_tl_rec.creation_date,
1869: l_okl_subsidy_pools_tl_rec.last_updated_by,
1870: l_okl_subsidy_pools_tl_rec.last_update_date,
1871: l_okl_subsidy_pools_tl_rec.last_update_login);
1872: END LOOP;
1873: -- Set OUT values
1874: x_okl_subsidy_pools_tl_rec := l_okl_subsidy_pools_tl_rec;
1867: l_okl_subsidy_pools_tl_rec.created_by,
1868: l_okl_subsidy_pools_tl_rec.creation_date,
1869: l_okl_subsidy_pools_tl_rec.last_updated_by,
1870: l_okl_subsidy_pools_tl_rec.last_update_date,
1871: l_okl_subsidy_pools_tl_rec.last_update_login);
1872: END LOOP;
1873: -- Set OUT values
1874: x_okl_subsidy_pools_tl_rec := l_okl_subsidy_pools_tl_rec;
1875: x_return_status := l_return_status;
1870: l_okl_subsidy_pools_tl_rec.last_update_date,
1871: l_okl_subsidy_pools_tl_rec.last_update_login);
1872: END LOOP;
1873: -- Set OUT values
1874: x_okl_subsidy_pools_tl_rec := l_okl_subsidy_pools_tl_rec;
1875: x_return_status := l_return_status;
1876: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1877: EXCEPTION
1878: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1924: l_sipv_rec sipv_rec_type := p_sipv_rec;
1925: l_def_sipv_rec sipv_rec_type;
1926: l_sip_rec sip_rec_type;
1927: lx_sip_rec sip_rec_type;
1928: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
1929: lx_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
1930: -------------------------------
1931: -- FUNCTION fill_who_columns --
1932: -------------------------------
1925: l_def_sipv_rec sipv_rec_type;
1926: l_sip_rec sip_rec_type;
1927: lx_sip_rec sip_rec_type;
1928: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
1929: lx_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
1930: -------------------------------
1931: -- FUNCTION fill_who_columns --
1932: -------------------------------
1933: FUNCTION fill_who_columns (
2000: -----------------------------------------
2001: -- Move VIEW record to "Child" records --
2002: -----------------------------------------
2003: migrate(l_def_sipv_rec, l_sip_rec);
2004: migrate(l_def_sipv_rec, l_okl_subsidy_pools_tl_rec);
2005: -----------------------------------------------
2006: -- Call the INSERT_ROW for each child record --
2007: -----------------------------------------------
2008: insert_row(
2023: p_init_msg_list,
2024: l_return_status,
2025: x_msg_count,
2026: x_msg_data,
2027: l_okl_subsidy_pools_tl_rec,
2028: lx_okl_subsidy_pools_tl_rec
2029: );
2030: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2024: l_return_status,
2025: x_msg_count,
2026: x_msg_data,
2027: l_okl_subsidy_pools_tl_rec,
2028: lx_okl_subsidy_pools_tl_rec
2029: );
2030: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2032: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2032: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2033: RAISE OKL_API.G_EXCEPTION_ERROR;
2034: END IF;
2035: migrate(lx_okl_subsidy_pools_tl_rec, l_def_sipv_rec);
2036: -- Set OUT values
2037: x_sipv_rec := l_def_sipv_rec;
2038: x_return_status := l_return_status;
2039: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2341: '_PVT'
2342: );
2343: END lock_row;
2344: ---------------------------------------
2345: -- lock_row for:OKL_SUBSIDY_POOLS_TL --
2346: ---------------------------------------
2347: PROCEDURE lock_row(
2348: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2349: x_return_status OUT NOCOPY VARCHAR2,
2348: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2349: x_return_status OUT NOCOPY VARCHAR2,
2350: x_msg_count OUT NOCOPY NUMBER,
2351: x_msg_data OUT NOCOPY VARCHAR2,
2352: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type) IS
2353:
2354: E_Resource_Busy EXCEPTION;
2355: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2356: CURSOR lock_csr (p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type) IS
2352: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type) IS
2353:
2354: E_Resource_Busy EXCEPTION;
2355: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2356: CURSOR lock_csr (p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type) IS
2357: SELECT *
2358: FROM OKL_SUBSIDY_POOLS_TL
2359: WHERE ID = p_okl_subsidy_pools_tl_rec.id
2360: FOR UPDATE NOWAIT;
2354: E_Resource_Busy EXCEPTION;
2355: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2356: CURSOR lock_csr (p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type) IS
2357: SELECT *
2358: FROM OKL_SUBSIDY_POOLS_TL
2359: WHERE ID = p_okl_subsidy_pools_tl_rec.id
2360: FOR UPDATE NOWAIT;
2361:
2362: l_api_version CONSTANT NUMBER := 1;
2355: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2356: CURSOR lock_csr (p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type) IS
2357: SELECT *
2358: FROM OKL_SUBSIDY_POOLS_TL
2359: WHERE ID = p_okl_subsidy_pools_tl_rec.id
2360: FOR UPDATE NOWAIT;
2361:
2362: l_api_version CONSTANT NUMBER := 1;
2363: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
2375: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2376: RAISE OKL_API.G_EXCEPTION_ERROR;
2377: END IF;
2378: BEGIN
2379: OPEN lock_csr(p_okl_subsidy_pools_tl_rec);
2380: FETCH lock_csr INTO l_lock_var;
2381: l_row_notfound := lock_csr%NOTFOUND;
2382: CLOSE lock_csr;
2383: EXCEPTION
2440:
2441: l_api_version CONSTANT NUMBER := 1;
2442: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2443: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2444: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
2445: l_sip_rec sip_rec_type;
2446: BEGIN
2447: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2448: G_PKG_NAME,
2458: END IF;
2459: -----------------------------------------
2460: -- Move VIEW record to "Child" records --
2461: -----------------------------------------
2462: migrate(p_sipv_rec, l_okl_subsidy_pools_tl_rec);
2463: migrate(p_sipv_rec, l_sip_rec);
2464: ---------------------------------------------
2465: -- Call the LOCK_ROW for each child record --
2466: ---------------------------------------------
2468: p_init_msg_list,
2469: l_return_status,
2470: x_msg_count,
2471: x_msg_data,
2472: l_okl_subsidy_pools_tl_rec
2473: );
2474: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2475: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2476: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2967: '_PVT'
2968: );
2969: END update_row;
2970: -----------------------------------------
2971: -- update_row for:OKL_SUBSIDY_POOLS_TL --
2972: -----------------------------------------
2973: PROCEDURE update_row(
2974: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2975: x_return_status OUT NOCOPY VARCHAR2,
2974: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2975: x_return_status OUT NOCOPY VARCHAR2,
2976: x_msg_count OUT NOCOPY NUMBER,
2977: x_msg_data OUT NOCOPY VARCHAR2,
2978: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type,
2979: x_okl_subsidy_pools_tl_rec OUT NOCOPY okl_subsidy_pools_tl_rec_type) IS
2980:
2981: l_api_version CONSTANT NUMBER := 1;
2982: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2975: x_return_status OUT NOCOPY VARCHAR2,
2976: x_msg_count OUT NOCOPY NUMBER,
2977: x_msg_data OUT NOCOPY VARCHAR2,
2978: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type,
2979: x_okl_subsidy_pools_tl_rec OUT NOCOPY okl_subsidy_pools_tl_rec_type) IS
2980:
2981: l_api_version CONSTANT NUMBER := 1;
2982: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2983: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2980:
2981: l_api_version CONSTANT NUMBER := 1;
2982: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2983: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2984: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type := p_okl_subsidy_pools_tl_rec;
2985: l_def_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
2986: l_row_notfound BOOLEAN := TRUE;
2987: ----------------------------------
2988: -- FUNCTION populate_new_record --
2981: l_api_version CONSTANT NUMBER := 1;
2982: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2983: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2984: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type := p_okl_subsidy_pools_tl_rec;
2985: l_def_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
2986: l_row_notfound BOOLEAN := TRUE;
2987: ----------------------------------
2988: -- FUNCTION populate_new_record --
2989: ----------------------------------
2987: ----------------------------------
2988: -- FUNCTION populate_new_record --
2989: ----------------------------------
2990: FUNCTION populate_new_record (
2991: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type,
2992: x_okl_subsidy_pools_tl_rec OUT NOCOPY okl_subsidy_pools_tl_rec_type
2993: ) RETURN VARCHAR2 IS
2994: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
2995: l_row_notfound BOOLEAN := TRUE;
2988: -- FUNCTION populate_new_record --
2989: ----------------------------------
2990: FUNCTION populate_new_record (
2991: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type,
2992: x_okl_subsidy_pools_tl_rec OUT NOCOPY okl_subsidy_pools_tl_rec_type
2993: ) RETURN VARCHAR2 IS
2994: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
2995: l_row_notfound BOOLEAN := TRUE;
2996: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2990: FUNCTION populate_new_record (
2991: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type,
2992: x_okl_subsidy_pools_tl_rec OUT NOCOPY okl_subsidy_pools_tl_rec_type
2993: ) RETURN VARCHAR2 IS
2994: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
2995: l_row_notfound BOOLEAN := TRUE;
2996: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2997: BEGIN
2998: x_okl_subsidy_pools_tl_rec := p_okl_subsidy_pools_tl_rec;
2994: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
2995: l_row_notfound BOOLEAN := TRUE;
2996: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2997: BEGIN
2998: x_okl_subsidy_pools_tl_rec := p_okl_subsidy_pools_tl_rec;
2999: -- Get current database values
3000: l_okl_subsidy_pools_tl_rec := get_rec(p_okl_subsidy_pools_tl_rec, l_return_status);
3001: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3002: IF (x_okl_subsidy_pools_tl_rec.id = OKL_API.G_MISS_NUM)
2996: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2997: BEGIN
2998: x_okl_subsidy_pools_tl_rec := p_okl_subsidy_pools_tl_rec;
2999: -- Get current database values
3000: l_okl_subsidy_pools_tl_rec := get_rec(p_okl_subsidy_pools_tl_rec, l_return_status);
3001: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3002: IF (x_okl_subsidy_pools_tl_rec.id = OKL_API.G_MISS_NUM)
3003: THEN
3004: x_okl_subsidy_pools_tl_rec.id := l_okl_subsidy_pools_tl_rec.id;
2998: x_okl_subsidy_pools_tl_rec := p_okl_subsidy_pools_tl_rec;
2999: -- Get current database values
3000: l_okl_subsidy_pools_tl_rec := get_rec(p_okl_subsidy_pools_tl_rec, l_return_status);
3001: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3002: IF (x_okl_subsidy_pools_tl_rec.id = OKL_API.G_MISS_NUM)
3003: THEN
3004: x_okl_subsidy_pools_tl_rec.id := l_okl_subsidy_pools_tl_rec.id;
3005: END IF;
3006: IF (x_okl_subsidy_pools_tl_rec.short_description = OKL_API.G_MISS_CHAR)
3000: l_okl_subsidy_pools_tl_rec := get_rec(p_okl_subsidy_pools_tl_rec, l_return_status);
3001: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3002: IF (x_okl_subsidy_pools_tl_rec.id = OKL_API.G_MISS_NUM)
3003: THEN
3004: x_okl_subsidy_pools_tl_rec.id := l_okl_subsidy_pools_tl_rec.id;
3005: END IF;
3006: IF (x_okl_subsidy_pools_tl_rec.short_description = OKL_API.G_MISS_CHAR)
3007: THEN
3008: x_okl_subsidy_pools_tl_rec.short_description := l_okl_subsidy_pools_tl_rec.short_description;
3002: IF (x_okl_subsidy_pools_tl_rec.id = OKL_API.G_MISS_NUM)
3003: THEN
3004: x_okl_subsidy_pools_tl_rec.id := l_okl_subsidy_pools_tl_rec.id;
3005: END IF;
3006: IF (x_okl_subsidy_pools_tl_rec.short_description = OKL_API.G_MISS_CHAR)
3007: THEN
3008: x_okl_subsidy_pools_tl_rec.short_description := l_okl_subsidy_pools_tl_rec.short_description;
3009: END IF;
3010: IF (x_okl_subsidy_pools_tl_rec.description = OKL_API.G_MISS_CHAR)
3004: x_okl_subsidy_pools_tl_rec.id := l_okl_subsidy_pools_tl_rec.id;
3005: END IF;
3006: IF (x_okl_subsidy_pools_tl_rec.short_description = OKL_API.G_MISS_CHAR)
3007: THEN
3008: x_okl_subsidy_pools_tl_rec.short_description := l_okl_subsidy_pools_tl_rec.short_description;
3009: END IF;
3010: IF (x_okl_subsidy_pools_tl_rec.description = OKL_API.G_MISS_CHAR)
3011: THEN
3012: x_okl_subsidy_pools_tl_rec.description := l_okl_subsidy_pools_tl_rec.description;
3006: IF (x_okl_subsidy_pools_tl_rec.short_description = OKL_API.G_MISS_CHAR)
3007: THEN
3008: x_okl_subsidy_pools_tl_rec.short_description := l_okl_subsidy_pools_tl_rec.short_description;
3009: END IF;
3010: IF (x_okl_subsidy_pools_tl_rec.description = OKL_API.G_MISS_CHAR)
3011: THEN
3012: x_okl_subsidy_pools_tl_rec.description := l_okl_subsidy_pools_tl_rec.description;
3013: END IF;
3014: IF (x_okl_subsidy_pools_tl_rec.language = OKL_API.G_MISS_CHAR)
3008: x_okl_subsidy_pools_tl_rec.short_description := l_okl_subsidy_pools_tl_rec.short_description;
3009: END IF;
3010: IF (x_okl_subsidy_pools_tl_rec.description = OKL_API.G_MISS_CHAR)
3011: THEN
3012: x_okl_subsidy_pools_tl_rec.description := l_okl_subsidy_pools_tl_rec.description;
3013: END IF;
3014: IF (x_okl_subsidy_pools_tl_rec.language = OKL_API.G_MISS_CHAR)
3015: THEN
3016: x_okl_subsidy_pools_tl_rec.language := l_okl_subsidy_pools_tl_rec.language;
3010: IF (x_okl_subsidy_pools_tl_rec.description = OKL_API.G_MISS_CHAR)
3011: THEN
3012: x_okl_subsidy_pools_tl_rec.description := l_okl_subsidy_pools_tl_rec.description;
3013: END IF;
3014: IF (x_okl_subsidy_pools_tl_rec.language = OKL_API.G_MISS_CHAR)
3015: THEN
3016: x_okl_subsidy_pools_tl_rec.language := l_okl_subsidy_pools_tl_rec.language;
3017: END IF;
3018: IF (x_okl_subsidy_pools_tl_rec.source_lang = OKL_API.G_MISS_CHAR)
3012: x_okl_subsidy_pools_tl_rec.description := l_okl_subsidy_pools_tl_rec.description;
3013: END IF;
3014: IF (x_okl_subsidy_pools_tl_rec.language = OKL_API.G_MISS_CHAR)
3015: THEN
3016: x_okl_subsidy_pools_tl_rec.language := l_okl_subsidy_pools_tl_rec.language;
3017: END IF;
3018: IF (x_okl_subsidy_pools_tl_rec.source_lang = OKL_API.G_MISS_CHAR)
3019: THEN
3020: x_okl_subsidy_pools_tl_rec.source_lang := l_okl_subsidy_pools_tl_rec.source_lang;
3014: IF (x_okl_subsidy_pools_tl_rec.language = OKL_API.G_MISS_CHAR)
3015: THEN
3016: x_okl_subsidy_pools_tl_rec.language := l_okl_subsidy_pools_tl_rec.language;
3017: END IF;
3018: IF (x_okl_subsidy_pools_tl_rec.source_lang = OKL_API.G_MISS_CHAR)
3019: THEN
3020: x_okl_subsidy_pools_tl_rec.source_lang := l_okl_subsidy_pools_tl_rec.source_lang;
3021: END IF;
3022: IF (x_okl_subsidy_pools_tl_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
3016: x_okl_subsidy_pools_tl_rec.language := l_okl_subsidy_pools_tl_rec.language;
3017: END IF;
3018: IF (x_okl_subsidy_pools_tl_rec.source_lang = OKL_API.G_MISS_CHAR)
3019: THEN
3020: x_okl_subsidy_pools_tl_rec.source_lang := l_okl_subsidy_pools_tl_rec.source_lang;
3021: END IF;
3022: IF (x_okl_subsidy_pools_tl_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
3023: THEN
3024: x_okl_subsidy_pools_tl_rec.sfwt_flag := l_okl_subsidy_pools_tl_rec.sfwt_flag;
3018: IF (x_okl_subsidy_pools_tl_rec.source_lang = OKL_API.G_MISS_CHAR)
3019: THEN
3020: x_okl_subsidy_pools_tl_rec.source_lang := l_okl_subsidy_pools_tl_rec.source_lang;
3021: END IF;
3022: IF (x_okl_subsidy_pools_tl_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
3023: THEN
3024: x_okl_subsidy_pools_tl_rec.sfwt_flag := l_okl_subsidy_pools_tl_rec.sfwt_flag;
3025: END IF;
3026: IF (x_okl_subsidy_pools_tl_rec.created_by = OKL_API.G_MISS_NUM)
3020: x_okl_subsidy_pools_tl_rec.source_lang := l_okl_subsidy_pools_tl_rec.source_lang;
3021: END IF;
3022: IF (x_okl_subsidy_pools_tl_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
3023: THEN
3024: x_okl_subsidy_pools_tl_rec.sfwt_flag := l_okl_subsidy_pools_tl_rec.sfwt_flag;
3025: END IF;
3026: IF (x_okl_subsidy_pools_tl_rec.created_by = OKL_API.G_MISS_NUM)
3027: THEN
3028: x_okl_subsidy_pools_tl_rec.created_by := l_okl_subsidy_pools_tl_rec.created_by;
3022: IF (x_okl_subsidy_pools_tl_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
3023: THEN
3024: x_okl_subsidy_pools_tl_rec.sfwt_flag := l_okl_subsidy_pools_tl_rec.sfwt_flag;
3025: END IF;
3026: IF (x_okl_subsidy_pools_tl_rec.created_by = OKL_API.G_MISS_NUM)
3027: THEN
3028: x_okl_subsidy_pools_tl_rec.created_by := l_okl_subsidy_pools_tl_rec.created_by;
3029: END IF;
3030: IF (x_okl_subsidy_pools_tl_rec.creation_date = OKL_API.G_MISS_DATE)
3024: x_okl_subsidy_pools_tl_rec.sfwt_flag := l_okl_subsidy_pools_tl_rec.sfwt_flag;
3025: END IF;
3026: IF (x_okl_subsidy_pools_tl_rec.created_by = OKL_API.G_MISS_NUM)
3027: THEN
3028: x_okl_subsidy_pools_tl_rec.created_by := l_okl_subsidy_pools_tl_rec.created_by;
3029: END IF;
3030: IF (x_okl_subsidy_pools_tl_rec.creation_date = OKL_API.G_MISS_DATE)
3031: THEN
3032: x_okl_subsidy_pools_tl_rec.creation_date := l_okl_subsidy_pools_tl_rec.creation_date;
3026: IF (x_okl_subsidy_pools_tl_rec.created_by = OKL_API.G_MISS_NUM)
3027: THEN
3028: x_okl_subsidy_pools_tl_rec.created_by := l_okl_subsidy_pools_tl_rec.created_by;
3029: END IF;
3030: IF (x_okl_subsidy_pools_tl_rec.creation_date = OKL_API.G_MISS_DATE)
3031: THEN
3032: x_okl_subsidy_pools_tl_rec.creation_date := l_okl_subsidy_pools_tl_rec.creation_date;
3033: END IF;
3034: IF (x_okl_subsidy_pools_tl_rec.last_updated_by = OKL_API.G_MISS_NUM)
3028: x_okl_subsidy_pools_tl_rec.created_by := l_okl_subsidy_pools_tl_rec.created_by;
3029: END IF;
3030: IF (x_okl_subsidy_pools_tl_rec.creation_date = OKL_API.G_MISS_DATE)
3031: THEN
3032: x_okl_subsidy_pools_tl_rec.creation_date := l_okl_subsidy_pools_tl_rec.creation_date;
3033: END IF;
3034: IF (x_okl_subsidy_pools_tl_rec.last_updated_by = OKL_API.G_MISS_NUM)
3035: THEN
3036: x_okl_subsidy_pools_tl_rec.last_updated_by := l_okl_subsidy_pools_tl_rec.last_updated_by;
3030: IF (x_okl_subsidy_pools_tl_rec.creation_date = OKL_API.G_MISS_DATE)
3031: THEN
3032: x_okl_subsidy_pools_tl_rec.creation_date := l_okl_subsidy_pools_tl_rec.creation_date;
3033: END IF;
3034: IF (x_okl_subsidy_pools_tl_rec.last_updated_by = OKL_API.G_MISS_NUM)
3035: THEN
3036: x_okl_subsidy_pools_tl_rec.last_updated_by := l_okl_subsidy_pools_tl_rec.last_updated_by;
3037: END IF;
3038: IF (x_okl_subsidy_pools_tl_rec.last_update_date = OKL_API.G_MISS_DATE)
3032: x_okl_subsidy_pools_tl_rec.creation_date := l_okl_subsidy_pools_tl_rec.creation_date;
3033: END IF;
3034: IF (x_okl_subsidy_pools_tl_rec.last_updated_by = OKL_API.G_MISS_NUM)
3035: THEN
3036: x_okl_subsidy_pools_tl_rec.last_updated_by := l_okl_subsidy_pools_tl_rec.last_updated_by;
3037: END IF;
3038: IF (x_okl_subsidy_pools_tl_rec.last_update_date = OKL_API.G_MISS_DATE)
3039: THEN
3040: x_okl_subsidy_pools_tl_rec.last_update_date := l_okl_subsidy_pools_tl_rec.last_update_date;
3034: IF (x_okl_subsidy_pools_tl_rec.last_updated_by = OKL_API.G_MISS_NUM)
3035: THEN
3036: x_okl_subsidy_pools_tl_rec.last_updated_by := l_okl_subsidy_pools_tl_rec.last_updated_by;
3037: END IF;
3038: IF (x_okl_subsidy_pools_tl_rec.last_update_date = OKL_API.G_MISS_DATE)
3039: THEN
3040: x_okl_subsidy_pools_tl_rec.last_update_date := l_okl_subsidy_pools_tl_rec.last_update_date;
3041: END IF;
3042: IF (x_okl_subsidy_pools_tl_rec.last_update_login = OKL_API.G_MISS_NUM)
3036: x_okl_subsidy_pools_tl_rec.last_updated_by := l_okl_subsidy_pools_tl_rec.last_updated_by;
3037: END IF;
3038: IF (x_okl_subsidy_pools_tl_rec.last_update_date = OKL_API.G_MISS_DATE)
3039: THEN
3040: x_okl_subsidy_pools_tl_rec.last_update_date := l_okl_subsidy_pools_tl_rec.last_update_date;
3041: END IF;
3042: IF (x_okl_subsidy_pools_tl_rec.last_update_login = OKL_API.G_MISS_NUM)
3043: THEN
3044: x_okl_subsidy_pools_tl_rec.last_update_login := l_okl_subsidy_pools_tl_rec.last_update_login;
3038: IF (x_okl_subsidy_pools_tl_rec.last_update_date = OKL_API.G_MISS_DATE)
3039: THEN
3040: x_okl_subsidy_pools_tl_rec.last_update_date := l_okl_subsidy_pools_tl_rec.last_update_date;
3041: END IF;
3042: IF (x_okl_subsidy_pools_tl_rec.last_update_login = OKL_API.G_MISS_NUM)
3043: THEN
3044: x_okl_subsidy_pools_tl_rec.last_update_login := l_okl_subsidy_pools_tl_rec.last_update_login;
3045: END IF;
3046: END IF;
3040: x_okl_subsidy_pools_tl_rec.last_update_date := l_okl_subsidy_pools_tl_rec.last_update_date;
3041: END IF;
3042: IF (x_okl_subsidy_pools_tl_rec.last_update_login = OKL_API.G_MISS_NUM)
3043: THEN
3044: x_okl_subsidy_pools_tl_rec.last_update_login := l_okl_subsidy_pools_tl_rec.last_update_login;
3045: END IF;
3046: END IF;
3047: RETURN(l_return_status);
3048: END populate_new_record;
3046: END IF;
3047: RETURN(l_return_status);
3048: END populate_new_record;
3049: ---------------------------------------------
3050: -- Set_Attributes for:OKL_SUBSIDY_POOLS_TL --
3051: ---------------------------------------------
3052: FUNCTION Set_Attributes (
3053: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type,
3054: x_okl_subsidy_pools_tl_rec OUT NOCOPY okl_subsidy_pools_tl_rec_type
3049: ---------------------------------------------
3050: -- Set_Attributes for:OKL_SUBSIDY_POOLS_TL --
3051: ---------------------------------------------
3052: FUNCTION Set_Attributes (
3053: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type,
3054: x_okl_subsidy_pools_tl_rec OUT NOCOPY okl_subsidy_pools_tl_rec_type
3055: ) RETURN VARCHAR2 IS
3056: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3057: BEGIN
3050: -- Set_Attributes for:OKL_SUBSIDY_POOLS_TL --
3051: ---------------------------------------------
3052: FUNCTION Set_Attributes (
3053: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type,
3054: x_okl_subsidy_pools_tl_rec OUT NOCOPY okl_subsidy_pools_tl_rec_type
3055: ) RETURN VARCHAR2 IS
3056: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3057: BEGIN
3058: x_okl_subsidy_pools_tl_rec := p_okl_subsidy_pools_tl_rec;
3054: x_okl_subsidy_pools_tl_rec OUT NOCOPY okl_subsidy_pools_tl_rec_type
3055: ) RETURN VARCHAR2 IS
3056: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3057: BEGIN
3058: x_okl_subsidy_pools_tl_rec := p_okl_subsidy_pools_tl_rec;
3059: x_okl_subsidy_pools_tl_rec.LANGUAGE := USERENV('LANG');
3060: x_okl_subsidy_pools_tl_rec.LANGUAGE := USERENV('LANG');
3061: RETURN(l_return_status);
3062: END Set_Attributes;
3055: ) RETURN VARCHAR2 IS
3056: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3057: BEGIN
3058: x_okl_subsidy_pools_tl_rec := p_okl_subsidy_pools_tl_rec;
3059: x_okl_subsidy_pools_tl_rec.LANGUAGE := USERENV('LANG');
3060: x_okl_subsidy_pools_tl_rec.LANGUAGE := USERENV('LANG');
3061: RETURN(l_return_status);
3062: END Set_Attributes;
3063: BEGIN
3056: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3057: BEGIN
3058: x_okl_subsidy_pools_tl_rec := p_okl_subsidy_pools_tl_rec;
3059: x_okl_subsidy_pools_tl_rec.LANGUAGE := USERENV('LANG');
3060: x_okl_subsidy_pools_tl_rec.LANGUAGE := USERENV('LANG');
3061: RETURN(l_return_status);
3062: END Set_Attributes;
3063: BEGIN
3064: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3071: RAISE OKL_API.G_EXCEPTION_ERROR;
3072: END IF;
3073: --- Setting item attributes
3074: l_return_status := Set_Attributes(
3075: p_okl_subsidy_pools_tl_rec, -- IN
3076: l_okl_subsidy_pools_tl_rec); -- OUT
3077: --- If any errors happen abort API
3078: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3079: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3072: END IF;
3073: --- Setting item attributes
3074: l_return_status := Set_Attributes(
3075: p_okl_subsidy_pools_tl_rec, -- IN
3076: l_okl_subsidy_pools_tl_rec); -- OUT
3077: --- If any errors happen abort API
3078: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3079: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3080: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3079: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3080: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3081: RAISE OKL_API.G_EXCEPTION_ERROR;
3082: END IF;
3083: l_return_status := populate_new_record(l_okl_subsidy_pools_tl_rec, l_def_okl_subsidy_pools_tl_rec);
3084: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3086: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3087: RAISE OKL_API.G_EXCEPTION_ERROR;
3085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3086: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3087: RAISE OKL_API.G_EXCEPTION_ERROR;
3088: END IF;
3089: UPDATE OKL_SUBSIDY_POOLS_TL
3090: SET SHORT_DESCRIPTION = l_def_okl_subsidy_pools_tl_rec.short_description,
3091: DESCRIPTION = l_def_okl_subsidy_pools_tl_rec.description,
3092: CREATED_BY = l_def_okl_subsidy_pools_tl_rec.created_by,
3093: CREATION_DATE = l_def_okl_subsidy_pools_tl_rec.creation_date,
3086: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3087: RAISE OKL_API.G_EXCEPTION_ERROR;
3088: END IF;
3089: UPDATE OKL_SUBSIDY_POOLS_TL
3090: SET SHORT_DESCRIPTION = l_def_okl_subsidy_pools_tl_rec.short_description,
3091: DESCRIPTION = l_def_okl_subsidy_pools_tl_rec.description,
3092: CREATED_BY = l_def_okl_subsidy_pools_tl_rec.created_by,
3093: CREATION_DATE = l_def_okl_subsidy_pools_tl_rec.creation_date,
3094: LAST_UPDATED_BY = l_def_okl_subsidy_pools_tl_rec.last_updated_by,
3087: RAISE OKL_API.G_EXCEPTION_ERROR;
3088: END IF;
3089: UPDATE OKL_SUBSIDY_POOLS_TL
3090: SET SHORT_DESCRIPTION = l_def_okl_subsidy_pools_tl_rec.short_description,
3091: DESCRIPTION = l_def_okl_subsidy_pools_tl_rec.description,
3092: CREATED_BY = l_def_okl_subsidy_pools_tl_rec.created_by,
3093: CREATION_DATE = l_def_okl_subsidy_pools_tl_rec.creation_date,
3094: LAST_UPDATED_BY = l_def_okl_subsidy_pools_tl_rec.last_updated_by,
3095: LAST_UPDATE_DATE = l_def_okl_subsidy_pools_tl_rec.last_update_date,
3088: END IF;
3089: UPDATE OKL_SUBSIDY_POOLS_TL
3090: SET SHORT_DESCRIPTION = l_def_okl_subsidy_pools_tl_rec.short_description,
3091: DESCRIPTION = l_def_okl_subsidy_pools_tl_rec.description,
3092: CREATED_BY = l_def_okl_subsidy_pools_tl_rec.created_by,
3093: CREATION_DATE = l_def_okl_subsidy_pools_tl_rec.creation_date,
3094: LAST_UPDATED_BY = l_def_okl_subsidy_pools_tl_rec.last_updated_by,
3095: LAST_UPDATE_DATE = l_def_okl_subsidy_pools_tl_rec.last_update_date,
3096: LAST_UPDATE_LOGIN = l_def_okl_subsidy_pools_tl_rec.last_update_login
3089: UPDATE OKL_SUBSIDY_POOLS_TL
3090: SET SHORT_DESCRIPTION = l_def_okl_subsidy_pools_tl_rec.short_description,
3091: DESCRIPTION = l_def_okl_subsidy_pools_tl_rec.description,
3092: CREATED_BY = l_def_okl_subsidy_pools_tl_rec.created_by,
3093: CREATION_DATE = l_def_okl_subsidy_pools_tl_rec.creation_date,
3094: LAST_UPDATED_BY = l_def_okl_subsidy_pools_tl_rec.last_updated_by,
3095: LAST_UPDATE_DATE = l_def_okl_subsidy_pools_tl_rec.last_update_date,
3096: LAST_UPDATE_LOGIN = l_def_okl_subsidy_pools_tl_rec.last_update_login
3097: WHERE ID = l_def_okl_subsidy_pools_tl_rec.id
3090: SET SHORT_DESCRIPTION = l_def_okl_subsidy_pools_tl_rec.short_description,
3091: DESCRIPTION = l_def_okl_subsidy_pools_tl_rec.description,
3092: CREATED_BY = l_def_okl_subsidy_pools_tl_rec.created_by,
3093: CREATION_DATE = l_def_okl_subsidy_pools_tl_rec.creation_date,
3094: LAST_UPDATED_BY = l_def_okl_subsidy_pools_tl_rec.last_updated_by,
3095: LAST_UPDATE_DATE = l_def_okl_subsidy_pools_tl_rec.last_update_date,
3096: LAST_UPDATE_LOGIN = l_def_okl_subsidy_pools_tl_rec.last_update_login
3097: WHERE ID = l_def_okl_subsidy_pools_tl_rec.id
3098: AND SOURCE_LANG = USERENV('LANG');
3091: DESCRIPTION = l_def_okl_subsidy_pools_tl_rec.description,
3092: CREATED_BY = l_def_okl_subsidy_pools_tl_rec.created_by,
3093: CREATION_DATE = l_def_okl_subsidy_pools_tl_rec.creation_date,
3094: LAST_UPDATED_BY = l_def_okl_subsidy_pools_tl_rec.last_updated_by,
3095: LAST_UPDATE_DATE = l_def_okl_subsidy_pools_tl_rec.last_update_date,
3096: LAST_UPDATE_LOGIN = l_def_okl_subsidy_pools_tl_rec.last_update_login
3097: WHERE ID = l_def_okl_subsidy_pools_tl_rec.id
3098: AND SOURCE_LANG = USERENV('LANG');
3099:
3092: CREATED_BY = l_def_okl_subsidy_pools_tl_rec.created_by,
3093: CREATION_DATE = l_def_okl_subsidy_pools_tl_rec.creation_date,
3094: LAST_UPDATED_BY = l_def_okl_subsidy_pools_tl_rec.last_updated_by,
3095: LAST_UPDATE_DATE = l_def_okl_subsidy_pools_tl_rec.last_update_date,
3096: LAST_UPDATE_LOGIN = l_def_okl_subsidy_pools_tl_rec.last_update_login
3097: WHERE ID = l_def_okl_subsidy_pools_tl_rec.id
3098: AND SOURCE_LANG = USERENV('LANG');
3099:
3100: UPDATE OKL_SUBSIDY_POOLS_TL
3093: CREATION_DATE = l_def_okl_subsidy_pools_tl_rec.creation_date,
3094: LAST_UPDATED_BY = l_def_okl_subsidy_pools_tl_rec.last_updated_by,
3095: LAST_UPDATE_DATE = l_def_okl_subsidy_pools_tl_rec.last_update_date,
3096: LAST_UPDATE_LOGIN = l_def_okl_subsidy_pools_tl_rec.last_update_login
3097: WHERE ID = l_def_okl_subsidy_pools_tl_rec.id
3098: AND SOURCE_LANG = USERENV('LANG');
3099:
3100: UPDATE OKL_SUBSIDY_POOLS_TL
3101: SET SFWT_FLAG = 'Y'
3096: LAST_UPDATE_LOGIN = l_def_okl_subsidy_pools_tl_rec.last_update_login
3097: WHERE ID = l_def_okl_subsidy_pools_tl_rec.id
3098: AND SOURCE_LANG = USERENV('LANG');
3099:
3100: UPDATE OKL_SUBSIDY_POOLS_TL
3101: SET SFWT_FLAG = 'Y'
3102: WHERE ID = l_def_okl_subsidy_pools_tl_rec.id
3103: AND SOURCE_LANG <> USERENV('LANG');
3104:
3098: AND SOURCE_LANG = USERENV('LANG');
3099:
3100: UPDATE OKL_SUBSIDY_POOLS_TL
3101: SET SFWT_FLAG = 'Y'
3102: WHERE ID = l_def_okl_subsidy_pools_tl_rec.id
3103: AND SOURCE_LANG <> USERENV('LANG');
3104:
3105: x_okl_subsidy_pools_tl_rec := l_okl_subsidy_pools_tl_rec;
3106: x_return_status := l_return_status;
3101: SET SFWT_FLAG = 'Y'
3102: WHERE ID = l_def_okl_subsidy_pools_tl_rec.id
3103: AND SOURCE_LANG <> USERENV('LANG');
3104:
3105: x_okl_subsidy_pools_tl_rec := l_okl_subsidy_pools_tl_rec;
3106: x_return_status := l_return_status;
3107: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3108: EXCEPTION
3109: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3156: l_def_sipv_rec sipv_rec_type;
3157: l_db_sipv_rec sipv_rec_type;
3158: l_sip_rec sip_rec_type;
3159: lx_sip_rec sip_rec_type;
3160: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
3161: lx_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
3162: -------------------------------
3163: -- FUNCTION fill_who_columns --
3164: -------------------------------
3157: l_db_sipv_rec sipv_rec_type;
3158: l_sip_rec sip_rec_type;
3159: lx_sip_rec sip_rec_type;
3160: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
3161: lx_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
3162: -------------------------------
3163: -- FUNCTION fill_who_columns --
3164: -------------------------------
3165: FUNCTION fill_who_columns (
3418: -----------------------------------------
3419: -- Move VIEW record to "Child" records --
3420: -----------------------------------------
3421: migrate(l_def_sipv_rec, l_sip_rec);
3422: migrate(l_def_sipv_rec, l_okl_subsidy_pools_tl_rec);
3423: -----------------------------------------------
3424: -- Call the UPDATE_ROW for each child record --
3425: -----------------------------------------------
3426: update_row(
3441: p_init_msg_list,
3442: l_return_status,
3443: x_msg_count,
3444: x_msg_data,
3445: l_okl_subsidy_pools_tl_rec,
3446: lx_okl_subsidy_pools_tl_rec
3447: );
3448: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3449: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3442: l_return_status,
3443: x_msg_count,
3444: x_msg_data,
3445: l_okl_subsidy_pools_tl_rec,
3446: lx_okl_subsidy_pools_tl_rec
3447: );
3448: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3449: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3450: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3449: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3450: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3451: RAISE OKL_API.G_EXCEPTION_ERROR;
3452: END IF;
3453: migrate(lx_okl_subsidy_pools_tl_rec, l_def_sipv_rec);
3454: x_sipv_rec := l_def_sipv_rec;
3455: x_return_status := l_return_status;
3456: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3457: EXCEPTION
3714: '_PVT'
3715: );
3716: END delete_row;
3717: -----------------------------------------
3718: -- delete_row for:OKL_SUBSIDY_POOLS_TL --
3719: -----------------------------------------
3720: PROCEDURE delete_row(
3721: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3722: x_return_status OUT NOCOPY VARCHAR2,
3721: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3722: x_return_status OUT NOCOPY VARCHAR2,
3723: x_msg_count OUT NOCOPY NUMBER,
3724: x_msg_data OUT NOCOPY VARCHAR2,
3725: p_okl_subsidy_pools_tl_rec IN okl_subsidy_pools_tl_rec_type) IS
3726:
3727: l_api_version CONSTANT NUMBER := 1;
3728: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3729: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3726:
3727: l_api_version CONSTANT NUMBER := 1;
3728: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3729: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3730: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type := p_okl_subsidy_pools_tl_rec;
3731: l_row_notfound BOOLEAN := TRUE;
3732: BEGIN
3733: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3734: p_init_msg_list,
3739: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3740: RAISE OKL_API.G_EXCEPTION_ERROR;
3741: END IF;
3742:
3743: DELETE FROM OKL_SUBSIDY_POOLS_TL
3744: WHERE ID = p_okl_subsidy_pools_tl_rec.id;
3745:
3746: x_return_status := l_return_status;
3747: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3740: RAISE OKL_API.G_EXCEPTION_ERROR;
3741: END IF;
3742:
3743: DELETE FROM OKL_SUBSIDY_POOLS_TL
3744: WHERE ID = p_okl_subsidy_pools_tl_rec.id;
3745:
3746: x_return_status := l_return_status;
3747: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3748: EXCEPTION
3791: l_api_version CONSTANT NUMBER := 1;
3792: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3793: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3794: l_sipv_rec sipv_rec_type := p_sipv_rec;
3795: l_okl_subsidy_pools_tl_rec okl_subsidy_pools_tl_rec_type;
3796: l_sip_rec sip_rec_type;
3797: BEGIN
3798: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3799: G_PKG_NAME,
3809: END IF;
3810: -----------------------------------------
3811: -- Move VIEW record to "Child" records --
3812: -----------------------------------------
3813: migrate(l_sipv_rec, l_okl_subsidy_pools_tl_rec);
3814: migrate(l_sipv_rec, l_sip_rec);
3815: -----------------------------------------------
3816: -- Call the DELETE_ROW for each child record --
3817: -----------------------------------------------
3819: p_init_msg_list,
3820: l_return_status,
3821: x_msg_count,
3822: x_msg_data,
3823: l_okl_subsidy_pools_tl_rec
3824: );
3825: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3826: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3827: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN