67: /* as a quick workaround to fix the time-consuming table handler issue */
68: /* Eventually we'll need to turn them into a separate fix_language procedure */
69: /*
70:
71: DELETE FROM OKC_K_PARTY_ROLES_TL T
72: WHERE NOT EXISTS (
73: SELECT NULL
74: FROM OKC_K_PARTY_ROLES_B B
75: WHERE B.ID = T.ID
74: FROM OKC_K_PARTY_ROLES_B B
75: WHERE B.ID = T.ID
76: );
77:
78: UPDATE OKC_K_PARTY_ROLES_TL T SET (
79: COGNOMEN,
80: ALIAS) = (SELECT
81: B.COGNOMEN,
82: B.ALIAS
79: COGNOMEN,
80: ALIAS) = (SELECT
81: B.COGNOMEN,
82: B.ALIAS
83: FROM OKC_K_PARTY_ROLES_TL B
84: WHERE B.ID = T.ID
85: AND B.LANGUAGE = T.SOURCE_LANG)
86: WHERE (
87: T.ID,
88: T.LANGUAGE)
89: IN (SELECT
90: SUBT.ID,
91: SUBT.LANGUAGE
92: FROM OKC_K_PARTY_ROLES_TL SUBB, OKC_K_PARTY_ROLES_TL SUBT
93: WHERE SUBB.ID = SUBT.ID
94: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
95: AND (SUBB.COGNOMEN <> SUBT.COGNOMEN
96: OR SUBB.ALIAS <> SUBT.ALIAS
100: OR (SUBB.ALIAS IS NOT NULL AND SUBT.ALIAS IS NULL)
101: ));
102: */
103: /* Modifying Insert as per performance guidelines given in bug 3723874 */
104: INSERT /*+ append parallel(tt) */ INTO OKC_K_PARTY_ROLES_TL tt (
105: ID,
106: LANGUAGE,
107: SOURCE_LANG,
108: SFWT_FLAG,
125: B.LAST_UPDATE_DATE,
126: B.COGNOMEN,
127: B.ALIAS,
128: B.LAST_UPDATE_LOGIN
129: FROM OKC_K_PARTY_ROLES_TL B, FND_LANGUAGES L
130: WHERE L.INSTALLED_FLAG IN ('I', 'B')
131: AND B.LANGUAGE = USERENV('LANG')
132: ) v , OKC_K_PARTY_ROLES_TL t
133: WHERE t.ID(+) = v.ID
128: B.LAST_UPDATE_LOGIN
129: FROM OKC_K_PARTY_ROLES_TL B, FND_LANGUAGES L
130: WHERE L.INSTALLED_FLAG IN ('I', 'B')
131: AND B.LANGUAGE = USERENV('LANG')
132: ) v , OKC_K_PARTY_ROLES_TL t
133: WHERE t.ID(+) = v.ID
134: AND t.LANGUAGE(+) = v.LANGUAGE_CODE
135: AND t.id IS NULL;
136:
135: AND t.id IS NULL;
136:
137: /* Commenting delete and update for bug 3723874 */
138: /*
139: DELETE FROM OKC_K_PARTY_ROLES_TLH T
140: WHERE NOT EXISTS (
141: SELECT NULL
142: FROM OKC_K_PARTY_ROLES_BH B
143: WHERE B.ID = T.ID
143: WHERE B.ID = T.ID
144: AND B.MAJOR_VERSION = T.MAJOR_VERSION
145: );
146:
147: UPDATE OKC_K_PARTY_ROLES_TLH T SET (
148: COGNOMEN,
149: ALIAS) = (SELECT
150: B.COGNOMEN,
151: B.ALIAS
148: COGNOMEN,
149: ALIAS) = (SELECT
150: B.COGNOMEN,
151: B.ALIAS
152: FROM OKC_K_PARTY_ROLES_TLH B
153: WHERE B.ID = T.ID
154: AND B.MAJOR_VERSION = T.MAJOR_VERSION
155: AND B.LANGUAGE = T.SOURCE_LANG)
156: WHERE (
160: IN (SELECT
161: SUBT.ID,
162: SUBT.MAJOR_VERSION,
163: SUBT.LANGUAGE
164: FROM OKC_K_PARTY_ROLES_TLH SUBB, OKC_K_PARTY_ROLES_TLH SUBT
165: WHERE SUBB.ID = SUBT.ID
166: AND SUBB.MAJOR_VERSION = SUBT.MAJOR_VERSION
167: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
168: AND (SUBB.COGNOMEN <> SUBT.COGNOMEN
174: ));
175: */
176: /* Modifying Insert as per performance guidelines given in bug 3723874 */
177:
178: INSERT /*+ append parallel(tt) */ INTO OKC_K_PARTY_ROLES_TLH tt(
179: ID,
180: LANGUAGE,
181: MAJOR_VERSION,
182: SOURCE_LANG,
201: B.LAST_UPDATE_DATE,
202: B.COGNOMEN,
203: B.ALIAS,
204: B.LAST_UPDATE_LOGIN
205: FROM OKC_K_PARTY_ROLES_TLH B, FND_LANGUAGES L
206: WHERE L.INSTALLED_FLAG IN ('I', 'B')
207: AND B.LANGUAGE = USERENV('LANG')
208: ) v, OKC_K_PARTY_ROLES_TLH t
209: WHERE t.ID(+) = v.ID
204: B.LAST_UPDATE_LOGIN
205: FROM OKC_K_PARTY_ROLES_TLH B, FND_LANGUAGES L
206: WHERE L.INSTALLED_FLAG IN ('I', 'B')
207: AND B.LANGUAGE = USERENV('LANG')
208: ) v, OKC_K_PARTY_ROLES_TLH t
209: WHERE t.ID(+) = v.ID
210: AND t.MAJOR_VERSION(+) = v.MAJOR_VERSION
211: AND t.LANGUAGE(+) = v.LANGUAGE_CODE
212: AND t.id IS NULL;
350: RETURN(get_rec(p_cpl_rec, l_row_notfound));
351:
352: END get_rec;
353: ---------------------------------------------------------------------------
354: -- FUNCTION get_rec for: OKC_K_PARTY_ROLES_TL
355: ---------------------------------------------------------------------------
356: FUNCTION get_rec (
357: p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type,
358: x_no_data_found OUT NOCOPY BOOLEAN
353: ---------------------------------------------------------------------------
354: -- FUNCTION get_rec for: OKC_K_PARTY_ROLES_TL
355: ---------------------------------------------------------------------------
356: FUNCTION get_rec (
357: p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type,
358: x_no_data_found OUT NOCOPY BOOLEAN
359: ) RETURN okc_k_party_roles_tl_rec_type IS
360: CURSOR cpl_pktl_csr (p_id IN NUMBER,
361: p_language IN VARCHAR2) IS
355: ---------------------------------------------------------------------------
356: FUNCTION get_rec (
357: p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type,
358: x_no_data_found OUT NOCOPY BOOLEAN
359: ) RETURN okc_k_party_roles_tl_rec_type IS
360: CURSOR cpl_pktl_csr (p_id IN NUMBER,
361: p_language IN VARCHAR2) IS
362: SELECT
363: ID,
370: LAST_UPDATE_DATE,
371: COGNOMEN,
372: ALIAS,
373: LAST_UPDATE_LOGIN
374: FROM Okc_K_Party_Roles_Tl
375: WHERE okc_k_party_roles_tl.id = p_id
376: AND okc_k_party_roles_tl.language = p_language;
377: l_cpl_pktl cpl_pktl_csr%ROWTYPE;
378: l_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type;
371: COGNOMEN,
372: ALIAS,
373: LAST_UPDATE_LOGIN
374: FROM Okc_K_Party_Roles_Tl
375: WHERE okc_k_party_roles_tl.id = p_id
376: AND okc_k_party_roles_tl.language = p_language;
377: l_cpl_pktl cpl_pktl_csr%ROWTYPE;
378: l_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type;
379: BEGIN
372: ALIAS,
373: LAST_UPDATE_LOGIN
374: FROM Okc_K_Party_Roles_Tl
375: WHERE okc_k_party_roles_tl.id = p_id
376: AND okc_k_party_roles_tl.language = p_language;
377: l_cpl_pktl cpl_pktl_csr%ROWTYPE;
378: l_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type;
379: BEGIN
380:
374: FROM Okc_K_Party_Roles_Tl
375: WHERE okc_k_party_roles_tl.id = p_id
376: AND okc_k_party_roles_tl.language = p_language;
377: l_cpl_pktl cpl_pktl_csr%ROWTYPE;
378: l_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type;
379: BEGIN
380:
381: IF (l_debug = 'Y') THEN
382: okc_debug.Set_Indentation('OKC_CPL_PVT');
384: END IF;
385:
386: x_no_data_found := TRUE;
387: -- Get current database values
388: OPEN cpl_pktl_csr (p_okc_k_party_roles_tl_rec.id,
389: p_okc_k_party_roles_tl_rec.language);
390: FETCH cpl_pktl_csr INTO
391: l_okc_k_party_roles_tl_rec.ID,
392: l_okc_k_party_roles_tl_rec.LANGUAGE,
385:
386: x_no_data_found := TRUE;
387: -- Get current database values
388: OPEN cpl_pktl_csr (p_okc_k_party_roles_tl_rec.id,
389: p_okc_k_party_roles_tl_rec.language);
390: FETCH cpl_pktl_csr INTO
391: l_okc_k_party_roles_tl_rec.ID,
392: l_okc_k_party_roles_tl_rec.LANGUAGE,
393: l_okc_k_party_roles_tl_rec.SOURCE_LANG,
387: -- Get current database values
388: OPEN cpl_pktl_csr (p_okc_k_party_roles_tl_rec.id,
389: p_okc_k_party_roles_tl_rec.language);
390: FETCH cpl_pktl_csr INTO
391: l_okc_k_party_roles_tl_rec.ID,
392: l_okc_k_party_roles_tl_rec.LANGUAGE,
393: l_okc_k_party_roles_tl_rec.SOURCE_LANG,
394: l_okc_k_party_roles_tl_rec.SFWT_FLAG,
395: l_okc_k_party_roles_tl_rec.CREATED_BY,
388: OPEN cpl_pktl_csr (p_okc_k_party_roles_tl_rec.id,
389: p_okc_k_party_roles_tl_rec.language);
390: FETCH cpl_pktl_csr INTO
391: l_okc_k_party_roles_tl_rec.ID,
392: l_okc_k_party_roles_tl_rec.LANGUAGE,
393: l_okc_k_party_roles_tl_rec.SOURCE_LANG,
394: l_okc_k_party_roles_tl_rec.SFWT_FLAG,
395: l_okc_k_party_roles_tl_rec.CREATED_BY,
396: l_okc_k_party_roles_tl_rec.CREATION_DATE,
389: p_okc_k_party_roles_tl_rec.language);
390: FETCH cpl_pktl_csr INTO
391: l_okc_k_party_roles_tl_rec.ID,
392: l_okc_k_party_roles_tl_rec.LANGUAGE,
393: l_okc_k_party_roles_tl_rec.SOURCE_LANG,
394: l_okc_k_party_roles_tl_rec.SFWT_FLAG,
395: l_okc_k_party_roles_tl_rec.CREATED_BY,
396: l_okc_k_party_roles_tl_rec.CREATION_DATE,
397: l_okc_k_party_roles_tl_rec.LAST_UPDATED_BY,
390: FETCH cpl_pktl_csr INTO
391: l_okc_k_party_roles_tl_rec.ID,
392: l_okc_k_party_roles_tl_rec.LANGUAGE,
393: l_okc_k_party_roles_tl_rec.SOURCE_LANG,
394: l_okc_k_party_roles_tl_rec.SFWT_FLAG,
395: l_okc_k_party_roles_tl_rec.CREATED_BY,
396: l_okc_k_party_roles_tl_rec.CREATION_DATE,
397: l_okc_k_party_roles_tl_rec.LAST_UPDATED_BY,
398: l_okc_k_party_roles_tl_rec.LAST_UPDATE_DATE,
391: l_okc_k_party_roles_tl_rec.ID,
392: l_okc_k_party_roles_tl_rec.LANGUAGE,
393: l_okc_k_party_roles_tl_rec.SOURCE_LANG,
394: l_okc_k_party_roles_tl_rec.SFWT_FLAG,
395: l_okc_k_party_roles_tl_rec.CREATED_BY,
396: l_okc_k_party_roles_tl_rec.CREATION_DATE,
397: l_okc_k_party_roles_tl_rec.LAST_UPDATED_BY,
398: l_okc_k_party_roles_tl_rec.LAST_UPDATE_DATE,
399: l_okc_k_party_roles_tl_rec.COGNOMEN,
392: l_okc_k_party_roles_tl_rec.LANGUAGE,
393: l_okc_k_party_roles_tl_rec.SOURCE_LANG,
394: l_okc_k_party_roles_tl_rec.SFWT_FLAG,
395: l_okc_k_party_roles_tl_rec.CREATED_BY,
396: l_okc_k_party_roles_tl_rec.CREATION_DATE,
397: l_okc_k_party_roles_tl_rec.LAST_UPDATED_BY,
398: l_okc_k_party_roles_tl_rec.LAST_UPDATE_DATE,
399: l_okc_k_party_roles_tl_rec.COGNOMEN,
400: l_okc_k_party_roles_tl_rec.ALIAS,
393: l_okc_k_party_roles_tl_rec.SOURCE_LANG,
394: l_okc_k_party_roles_tl_rec.SFWT_FLAG,
395: l_okc_k_party_roles_tl_rec.CREATED_BY,
396: l_okc_k_party_roles_tl_rec.CREATION_DATE,
397: l_okc_k_party_roles_tl_rec.LAST_UPDATED_BY,
398: l_okc_k_party_roles_tl_rec.LAST_UPDATE_DATE,
399: l_okc_k_party_roles_tl_rec.COGNOMEN,
400: l_okc_k_party_roles_tl_rec.ALIAS,
401: l_okc_k_party_roles_tl_rec.LAST_UPDATE_LOGIN;
394: l_okc_k_party_roles_tl_rec.SFWT_FLAG,
395: l_okc_k_party_roles_tl_rec.CREATED_BY,
396: l_okc_k_party_roles_tl_rec.CREATION_DATE,
397: l_okc_k_party_roles_tl_rec.LAST_UPDATED_BY,
398: l_okc_k_party_roles_tl_rec.LAST_UPDATE_DATE,
399: l_okc_k_party_roles_tl_rec.COGNOMEN,
400: l_okc_k_party_roles_tl_rec.ALIAS,
401: l_okc_k_party_roles_tl_rec.LAST_UPDATE_LOGIN;
402: x_no_data_found := cpl_pktl_csr%NOTFOUND;
395: l_okc_k_party_roles_tl_rec.CREATED_BY,
396: l_okc_k_party_roles_tl_rec.CREATION_DATE,
397: l_okc_k_party_roles_tl_rec.LAST_UPDATED_BY,
398: l_okc_k_party_roles_tl_rec.LAST_UPDATE_DATE,
399: l_okc_k_party_roles_tl_rec.COGNOMEN,
400: l_okc_k_party_roles_tl_rec.ALIAS,
401: l_okc_k_party_roles_tl_rec.LAST_UPDATE_LOGIN;
402: x_no_data_found := cpl_pktl_csr%NOTFOUND;
403: CLOSE cpl_pktl_csr;
396: l_okc_k_party_roles_tl_rec.CREATION_DATE,
397: l_okc_k_party_roles_tl_rec.LAST_UPDATED_BY,
398: l_okc_k_party_roles_tl_rec.LAST_UPDATE_DATE,
399: l_okc_k_party_roles_tl_rec.COGNOMEN,
400: l_okc_k_party_roles_tl_rec.ALIAS,
401: l_okc_k_party_roles_tl_rec.LAST_UPDATE_LOGIN;
402: x_no_data_found := cpl_pktl_csr%NOTFOUND;
403: CLOSE cpl_pktl_csr;
404:
397: l_okc_k_party_roles_tl_rec.LAST_UPDATED_BY,
398: l_okc_k_party_roles_tl_rec.LAST_UPDATE_DATE,
399: l_okc_k_party_roles_tl_rec.COGNOMEN,
400: l_okc_k_party_roles_tl_rec.ALIAS,
401: l_okc_k_party_roles_tl_rec.LAST_UPDATE_LOGIN;
402: x_no_data_found := cpl_pktl_csr%NOTFOUND;
403: CLOSE cpl_pktl_csr;
404:
405: IF (l_debug = 'Y') THEN
406: okc_debug.Set_Indentation('OKC_CPL_PVT');
407: okc_debug.log('900: Entered get_rec', 2);
408: END IF;
409:
410: RETURN(l_okc_k_party_roles_tl_rec);
411:
412: END get_rec;
413:
414: FUNCTION get_rec (
411:
412: END get_rec;
413:
414: FUNCTION get_rec (
415: p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type
416: ) RETURN okc_k_party_roles_tl_rec_type IS
417: l_row_notfound BOOLEAN := TRUE;
418: BEGIN
419:
412: END get_rec;
413:
414: FUNCTION get_rec (
415: p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type
416: ) RETURN okc_k_party_roles_tl_rec_type IS
417: l_row_notfound BOOLEAN := TRUE;
418: BEGIN
419:
420: RETURN(get_rec(p_okc_k_party_roles_tl_rec, l_row_notfound));
416: ) RETURN okc_k_party_roles_tl_rec_type IS
417: l_row_notfound BOOLEAN := TRUE;
418: BEGIN
419:
420: RETURN(get_rec(p_okc_k_party_roles_tl_rec, l_row_notfound));
421:
422: END get_rec;
423: ---------------------------------------------------------------------------
424: -- FUNCTION get_rec for: OKC_K_PARTY_ROLES_V
2004: END migrate;
2005:
2006: PROCEDURE migrate (
2007: p_from IN cplv_rec_type,
2008: p_to IN OUT NOCOPY okc_k_party_roles_tl_rec_type
2009: ) IS
2010: BEGIN
2011:
2012: p_to.id := p_from.id;
2021:
2022: END migrate;
2023:
2024: PROCEDURE migrate (
2025: p_from IN okc_k_party_roles_tl_rec_type,
2026: p_to IN OUT NOCOPY cplv_rec_type
2027: ) IS
2028: BEGIN
2029:
2057: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
2058: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2059: l_cplv_rec cplv_rec_type := p_cplv_rec;
2060: l_cpl_rec cpl_rec_type;
2061: l_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type;
2062: BEGIN
2063:
2064: IF (l_debug = 'Y') THEN
2065: okc_debug.Set_Indentation('OKC_CPL_PVT');
2479: );
2480:
2481: END insert_row;
2482: -----------------------------------------
2483: -- insert_row for:OKC_K_PARTY_ROLES_TL --
2484: -----------------------------------------
2485: PROCEDURE insert_row(
2486: p_init_msg_list IN VARCHAR2 ,
2487: x_return_status OUT NOCOPY VARCHAR2,
2486: p_init_msg_list IN VARCHAR2 ,
2487: x_return_status OUT NOCOPY VARCHAR2,
2488: x_msg_count OUT NOCOPY NUMBER,
2489: x_msg_data OUT NOCOPY VARCHAR2,
2490: p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type,
2491: x_okc_k_party_roles_tl_rec OUT NOCOPY okc_k_party_roles_tl_rec_type) IS
2492:
2493: l_api_version CONSTANT NUMBER := 1;
2494: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
2487: x_return_status OUT NOCOPY VARCHAR2,
2488: x_msg_count OUT NOCOPY NUMBER,
2489: x_msg_data OUT NOCOPY VARCHAR2,
2490: p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type,
2491: x_okc_k_party_roles_tl_rec OUT NOCOPY okc_k_party_roles_tl_rec_type) IS
2492:
2493: l_api_version CONSTANT NUMBER := 1;
2494: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
2495: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2492:
2493: l_api_version CONSTANT NUMBER := 1;
2494: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
2495: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2496: l_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type := p_okc_k_party_roles_tl_rec;
2497: ldefokckpartyrolestlrec okc_k_party_roles_tl_rec_type;
2498: CURSOR get_languages IS
2499: SELECT *
2500: FROM FND_LANGUAGES
2493: l_api_version CONSTANT NUMBER := 1;
2494: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
2495: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2496: l_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type := p_okc_k_party_roles_tl_rec;
2497: ldefokckpartyrolestlrec okc_k_party_roles_tl_rec_type;
2498: CURSOR get_languages IS
2499: SELECT *
2500: FROM FND_LANGUAGES
2501: WHERE INSTALLED_FLAG IN ('I', 'B');
2499: SELECT *
2500: FROM FND_LANGUAGES
2501: WHERE INSTALLED_FLAG IN ('I', 'B');
2502: ---------------------------------------------
2503: -- Set_Attributes for:OKC_K_PARTY_ROLES_TL --
2504: ---------------------------------------------
2505: FUNCTION Set_Attributes (
2506: p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type,
2507: x_okc_k_party_roles_tl_rec OUT NOCOPY okc_k_party_roles_tl_rec_type
2502: ---------------------------------------------
2503: -- Set_Attributes for:OKC_K_PARTY_ROLES_TL --
2504: ---------------------------------------------
2505: FUNCTION Set_Attributes (
2506: p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type,
2507: x_okc_k_party_roles_tl_rec OUT NOCOPY okc_k_party_roles_tl_rec_type
2508: ) RETURN VARCHAR2 IS
2509: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2510: BEGIN
2503: -- Set_Attributes for:OKC_K_PARTY_ROLES_TL --
2504: ---------------------------------------------
2505: FUNCTION Set_Attributes (
2506: p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type,
2507: x_okc_k_party_roles_tl_rec OUT NOCOPY okc_k_party_roles_tl_rec_type
2508: ) RETURN VARCHAR2 IS
2509: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2510: BEGIN
2511:
2508: ) RETURN VARCHAR2 IS
2509: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2510: BEGIN
2511:
2512: x_okc_k_party_roles_tl_rec := p_okc_k_party_roles_tl_rec;
2513: x_okc_k_party_roles_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2514: x_okc_k_party_roles_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
2515: RETURN(l_return_status);
2516:
2509: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2510: BEGIN
2511:
2512: x_okc_k_party_roles_tl_rec := p_okc_k_party_roles_tl_rec;
2513: x_okc_k_party_roles_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2514: x_okc_k_party_roles_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
2515: RETURN(l_return_status);
2516:
2517: END Set_Attributes;
2510: BEGIN
2511:
2512: x_okc_k_party_roles_tl_rec := p_okc_k_party_roles_tl_rec;
2513: x_okc_k_party_roles_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2514: x_okc_k_party_roles_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
2515: RETURN(l_return_status);
2516:
2517: END Set_Attributes;
2518: BEGIN
2532: RAISE OKC_API.G_EXCEPTION_ERROR;
2533: END IF;
2534: --- Setting item attributes
2535: l_return_status := Set_Attributes(
2536: p_okc_k_party_roles_tl_rec, -- IN
2537: l_okc_k_party_roles_tl_rec); -- OUT
2538: --- If any errors happen abort API
2539: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2540: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2533: END IF;
2534: --- Setting item attributes
2535: l_return_status := Set_Attributes(
2536: p_okc_k_party_roles_tl_rec, -- IN
2537: l_okc_k_party_roles_tl_rec); -- OUT
2538: --- If any errors happen abort API
2539: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2540: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2541: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2541: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2542: RAISE OKC_API.G_EXCEPTION_ERROR;
2543: END IF;
2544: FOR l_lang_rec IN get_languages LOOP
2545: l_okc_k_party_roles_tl_rec.language := l_lang_rec.language_code;
2546: INSERT INTO OKC_K_PARTY_ROLES_TL(
2547: id,
2548: language,
2549: source_lang,
2542: RAISE OKC_API.G_EXCEPTION_ERROR;
2543: END IF;
2544: FOR l_lang_rec IN get_languages LOOP
2545: l_okc_k_party_roles_tl_rec.language := l_lang_rec.language_code;
2546: INSERT INTO OKC_K_PARTY_ROLES_TL(
2547: id,
2548: language,
2549: source_lang,
2550: sfwt_flag,
2555: cognomen,
2556: alias,
2557: last_update_login)
2558: VALUES (
2559: l_okc_k_party_roles_tl_rec.id,
2560: l_okc_k_party_roles_tl_rec.language,
2561: l_okc_k_party_roles_tl_rec.source_lang,
2562: l_okc_k_party_roles_tl_rec.sfwt_flag,
2563: l_okc_k_party_roles_tl_rec.created_by,
2556: alias,
2557: last_update_login)
2558: VALUES (
2559: l_okc_k_party_roles_tl_rec.id,
2560: l_okc_k_party_roles_tl_rec.language,
2561: l_okc_k_party_roles_tl_rec.source_lang,
2562: l_okc_k_party_roles_tl_rec.sfwt_flag,
2563: l_okc_k_party_roles_tl_rec.created_by,
2564: l_okc_k_party_roles_tl_rec.creation_date,
2557: last_update_login)
2558: VALUES (
2559: l_okc_k_party_roles_tl_rec.id,
2560: l_okc_k_party_roles_tl_rec.language,
2561: l_okc_k_party_roles_tl_rec.source_lang,
2562: l_okc_k_party_roles_tl_rec.sfwt_flag,
2563: l_okc_k_party_roles_tl_rec.created_by,
2564: l_okc_k_party_roles_tl_rec.creation_date,
2565: l_okc_k_party_roles_tl_rec.last_updated_by,
2558: VALUES (
2559: l_okc_k_party_roles_tl_rec.id,
2560: l_okc_k_party_roles_tl_rec.language,
2561: l_okc_k_party_roles_tl_rec.source_lang,
2562: l_okc_k_party_roles_tl_rec.sfwt_flag,
2563: l_okc_k_party_roles_tl_rec.created_by,
2564: l_okc_k_party_roles_tl_rec.creation_date,
2565: l_okc_k_party_roles_tl_rec.last_updated_by,
2566: l_okc_k_party_roles_tl_rec.last_update_date,
2559: l_okc_k_party_roles_tl_rec.id,
2560: l_okc_k_party_roles_tl_rec.language,
2561: l_okc_k_party_roles_tl_rec.source_lang,
2562: l_okc_k_party_roles_tl_rec.sfwt_flag,
2563: l_okc_k_party_roles_tl_rec.created_by,
2564: l_okc_k_party_roles_tl_rec.creation_date,
2565: l_okc_k_party_roles_tl_rec.last_updated_by,
2566: l_okc_k_party_roles_tl_rec.last_update_date,
2567: l_okc_k_party_roles_tl_rec.cognomen,
2560: l_okc_k_party_roles_tl_rec.language,
2561: l_okc_k_party_roles_tl_rec.source_lang,
2562: l_okc_k_party_roles_tl_rec.sfwt_flag,
2563: l_okc_k_party_roles_tl_rec.created_by,
2564: l_okc_k_party_roles_tl_rec.creation_date,
2565: l_okc_k_party_roles_tl_rec.last_updated_by,
2566: l_okc_k_party_roles_tl_rec.last_update_date,
2567: l_okc_k_party_roles_tl_rec.cognomen,
2568: l_okc_k_party_roles_tl_rec.alias,
2561: l_okc_k_party_roles_tl_rec.source_lang,
2562: l_okc_k_party_roles_tl_rec.sfwt_flag,
2563: l_okc_k_party_roles_tl_rec.created_by,
2564: l_okc_k_party_roles_tl_rec.creation_date,
2565: l_okc_k_party_roles_tl_rec.last_updated_by,
2566: l_okc_k_party_roles_tl_rec.last_update_date,
2567: l_okc_k_party_roles_tl_rec.cognomen,
2568: l_okc_k_party_roles_tl_rec.alias,
2569: l_okc_k_party_roles_tl_rec.last_update_login);
2562: l_okc_k_party_roles_tl_rec.sfwt_flag,
2563: l_okc_k_party_roles_tl_rec.created_by,
2564: l_okc_k_party_roles_tl_rec.creation_date,
2565: l_okc_k_party_roles_tl_rec.last_updated_by,
2566: l_okc_k_party_roles_tl_rec.last_update_date,
2567: l_okc_k_party_roles_tl_rec.cognomen,
2568: l_okc_k_party_roles_tl_rec.alias,
2569: l_okc_k_party_roles_tl_rec.last_update_login);
2570: END LOOP;
2563: l_okc_k_party_roles_tl_rec.created_by,
2564: l_okc_k_party_roles_tl_rec.creation_date,
2565: l_okc_k_party_roles_tl_rec.last_updated_by,
2566: l_okc_k_party_roles_tl_rec.last_update_date,
2567: l_okc_k_party_roles_tl_rec.cognomen,
2568: l_okc_k_party_roles_tl_rec.alias,
2569: l_okc_k_party_roles_tl_rec.last_update_login);
2570: END LOOP;
2571: -- Set OUT values
2564: l_okc_k_party_roles_tl_rec.creation_date,
2565: l_okc_k_party_roles_tl_rec.last_updated_by,
2566: l_okc_k_party_roles_tl_rec.last_update_date,
2567: l_okc_k_party_roles_tl_rec.cognomen,
2568: l_okc_k_party_roles_tl_rec.alias,
2569: l_okc_k_party_roles_tl_rec.last_update_login);
2570: END LOOP;
2571: -- Set OUT values
2572: x_okc_k_party_roles_tl_rec := l_okc_k_party_roles_tl_rec;
2565: l_okc_k_party_roles_tl_rec.last_updated_by,
2566: l_okc_k_party_roles_tl_rec.last_update_date,
2567: l_okc_k_party_roles_tl_rec.cognomen,
2568: l_okc_k_party_roles_tl_rec.alias,
2569: l_okc_k_party_roles_tl_rec.last_update_login);
2570: END LOOP;
2571: -- Set OUT values
2572: x_okc_k_party_roles_tl_rec := l_okc_k_party_roles_tl_rec;
2573: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2568: l_okc_k_party_roles_tl_rec.alias,
2569: l_okc_k_party_roles_tl_rec.last_update_login);
2570: END LOOP;
2571: -- Set OUT values
2572: x_okc_k_party_roles_tl_rec := l_okc_k_party_roles_tl_rec;
2573: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2574:
2575: IF (l_debug = 'Y') THEN
2576: okc_debug.log('7000: Leaving insert_row', 2);
2646: l_cplv_rec cplv_rec_type;
2647: l_def_cplv_rec cplv_rec_type;
2648: l_cpl_rec cpl_rec_type;
2649: lx_cpl_rec cpl_rec_type;
2650: l_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type;
2651: lx_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type;
2652: -------------------------------
2653: -- FUNCTION fill_who_columns --
2654: -------------------------------
2647: l_def_cplv_rec cplv_rec_type;
2648: l_cpl_rec cpl_rec_type;
2649: lx_cpl_rec cpl_rec_type;
2650: l_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type;
2651: lx_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type;
2652: -------------------------------
2653: -- FUNCTION fill_who_columns --
2654: -------------------------------
2655: FUNCTION fill_who_columns (
2734: --------------------------------------
2735: -- Move VIEW record to "Child" records
2736: --------------------------------------
2737: migrate(l_def_cplv_rec, l_cpl_rec);
2738: migrate(l_def_cplv_rec, l_okc_k_party_roles_tl_rec);
2739: --------------------------------------------
2740: -- Call the INSERT_ROW for each child record
2741: --------------------------------------------
2742: insert_row(
2757: p_init_msg_list,
2758: x_return_status,
2759: x_msg_count,
2760: x_msg_data,
2761: l_okc_k_party_roles_tl_rec,
2762: lx_okc_k_party_roles_tl_rec
2763: );
2764: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2765: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2758: x_return_status,
2759: x_msg_count,
2760: x_msg_data,
2761: l_okc_k_party_roles_tl_rec,
2762: lx_okc_k_party_roles_tl_rec
2763: );
2764: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2765: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2766: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2765: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2766: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2767: RAISE OKC_API.G_EXCEPTION_ERROR;
2768: END IF;
2769: migrate(lx_okc_k_party_roles_tl_rec, l_def_cplv_rec);
2770: -- Set OUT values
2771: x_cplv_rec := l_def_cplv_rec;
2772: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2773:
3083: );
3084:
3085: END lock_row;
3086: ---------------------------------------
3087: -- lock_row for:OKC_K_PARTY_ROLES_TL --
3088: ---------------------------------------
3089: PROCEDURE lock_row(
3090: p_init_msg_list IN VARCHAR2 ,
3091: x_return_status OUT NOCOPY VARCHAR2,
3090: p_init_msg_list IN VARCHAR2 ,
3091: x_return_status OUT NOCOPY VARCHAR2,
3092: x_msg_count OUT NOCOPY NUMBER,
3093: x_msg_data OUT NOCOPY VARCHAR2,
3094: p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type) IS
3095:
3096: E_Resource_Busy EXCEPTION;
3097: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
3098: CURSOR lock_csr (p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type) IS
3094: p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type) IS
3095:
3096: E_Resource_Busy EXCEPTION;
3097: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
3098: CURSOR lock_csr (p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type) IS
3099: SELECT *
3100: FROM OKC_K_PARTY_ROLES_TL
3101: WHERE ID = p_okc_k_party_roles_tl_rec.id
3102: FOR UPDATE NOWAIT;
3096: E_Resource_Busy EXCEPTION;
3097: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
3098: CURSOR lock_csr (p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type) IS
3099: SELECT *
3100: FROM OKC_K_PARTY_ROLES_TL
3101: WHERE ID = p_okc_k_party_roles_tl_rec.id
3102: FOR UPDATE NOWAIT;
3103:
3104: l_api_version CONSTANT NUMBER := 1;
3097: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
3098: CURSOR lock_csr (p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type) IS
3099: SELECT *
3100: FROM OKC_K_PARTY_ROLES_TL
3101: WHERE ID = p_okc_k_party_roles_tl_rec.id
3102: FOR UPDATE NOWAIT;
3103:
3104: l_api_version CONSTANT NUMBER := 1;
3105: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
3129: okc_debug.Set_Indentation('OKC_CPL_PVT');
3130: okc_debug.log('9500: Entered lock_row', 2);
3131: END IF;
3132:
3133: OPEN lock_csr(p_okc_k_party_roles_tl_rec);
3134: FETCH lock_csr INTO l_lock_var;
3135: l_row_notfound := lock_csr%NOTFOUND;
3136: CLOSE lock_csr;
3137:
3231: l_api_version CONSTANT NUMBER := 1;
3232: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
3233: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3234: l_cpl_rec cpl_rec_type;
3235: l_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type;
3236: BEGIN
3237:
3238: IF (l_debug = 'Y') THEN
3239: okc_debug.Set_Indentation('OKC_CPL_PVT');
3255: --------------------------------------
3256: -- Move VIEW record to "Child" records
3257: --------------------------------------
3258: migrate(p_cplv_rec, l_cpl_rec);
3259: migrate(p_cplv_rec, l_okc_k_party_roles_tl_rec);
3260: --------------------------------------------
3261: -- Call the LOCK_ROW for each child record
3262: --------------------------------------------
3263: lock_row(
3276: p_init_msg_list,
3277: x_return_status,
3278: x_msg_count,
3279: x_msg_data,
3280: l_okc_k_party_roles_tl_rec
3281: );
3282: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3283: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3284: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3812: );
3813:
3814: END update_row;
3815: -----------------------------------------
3816: -- update_row for:OKC_K_PARTY_ROLES_TL --
3817: -----------------------------------------
3818: PROCEDURE update_row(
3819: p_init_msg_list IN VARCHAR2 ,
3820: x_return_status OUT NOCOPY VARCHAR2,
3819: p_init_msg_list IN VARCHAR2 ,
3820: x_return_status OUT NOCOPY VARCHAR2,
3821: x_msg_count OUT NOCOPY NUMBER,
3822: x_msg_data OUT NOCOPY VARCHAR2,
3823: p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type,
3824: x_okc_k_party_roles_tl_rec OUT NOCOPY okc_k_party_roles_tl_rec_type) IS
3825:
3826: l_api_version CONSTANT NUMBER := 1;
3827: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
3820: x_return_status OUT NOCOPY VARCHAR2,
3821: x_msg_count OUT NOCOPY NUMBER,
3822: x_msg_data OUT NOCOPY VARCHAR2,
3823: p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type,
3824: x_okc_k_party_roles_tl_rec OUT NOCOPY okc_k_party_roles_tl_rec_type) IS
3825:
3826: l_api_version CONSTANT NUMBER := 1;
3827: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
3828: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3825:
3826: l_api_version CONSTANT NUMBER := 1;
3827: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
3828: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3829: l_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type := p_okc_k_party_roles_tl_rec;
3830: ldefokckpartyrolestlrec okc_k_party_roles_tl_rec_type;
3831: l_row_notfound BOOLEAN := TRUE;
3832: ----------------------------------
3833: -- FUNCTION populate_new_record --
3826: l_api_version CONSTANT NUMBER := 1;
3827: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
3828: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3829: l_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type := p_okc_k_party_roles_tl_rec;
3830: ldefokckpartyrolestlrec okc_k_party_roles_tl_rec_type;
3831: l_row_notfound BOOLEAN := TRUE;
3832: ----------------------------------
3833: -- FUNCTION populate_new_record --
3834: ----------------------------------
3832: ----------------------------------
3833: -- FUNCTION populate_new_record --
3834: ----------------------------------
3835: FUNCTION populate_new_record (
3836: p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type,
3837: x_okc_k_party_roles_tl_rec OUT NOCOPY okc_k_party_roles_tl_rec_type
3838: ) RETURN VARCHAR2 IS
3839: l_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type;
3840: l_row_notfound BOOLEAN := TRUE;
3833: -- FUNCTION populate_new_record --
3834: ----------------------------------
3835: FUNCTION populate_new_record (
3836: p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type,
3837: x_okc_k_party_roles_tl_rec OUT NOCOPY okc_k_party_roles_tl_rec_type
3838: ) RETURN VARCHAR2 IS
3839: l_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type;
3840: l_row_notfound BOOLEAN := TRUE;
3841: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3835: FUNCTION populate_new_record (
3836: p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type,
3837: x_okc_k_party_roles_tl_rec OUT NOCOPY okc_k_party_roles_tl_rec_type
3838: ) RETURN VARCHAR2 IS
3839: l_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type;
3840: l_row_notfound BOOLEAN := TRUE;
3841: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3842: BEGIN
3843:
3845: okc_debug.Set_Indentation('OKC_CPL_PVT');
3846: okc_debug.log('11900: Entered populate_new_record', 2);
3847: END IF;
3848:
3849: x_okc_k_party_roles_tl_rec := p_okc_k_party_roles_tl_rec;
3850: -- Get current database values
3851: l_okc_k_party_roles_tl_rec := get_rec(p_okc_k_party_roles_tl_rec, l_row_notfound);
3852: IF (l_row_notfound) THEN
3853: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3847: END IF;
3848:
3849: x_okc_k_party_roles_tl_rec := p_okc_k_party_roles_tl_rec;
3850: -- Get current database values
3851: l_okc_k_party_roles_tl_rec := get_rec(p_okc_k_party_roles_tl_rec, l_row_notfound);
3852: IF (l_row_notfound) THEN
3853: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3854: END IF;
3855: IF (x_okc_k_party_roles_tl_rec.id = OKC_API.G_MISS_NUM)
3851: l_okc_k_party_roles_tl_rec := get_rec(p_okc_k_party_roles_tl_rec, l_row_notfound);
3852: IF (l_row_notfound) THEN
3853: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3854: END IF;
3855: IF (x_okc_k_party_roles_tl_rec.id = OKC_API.G_MISS_NUM)
3856: THEN
3857: x_okc_k_party_roles_tl_rec.id := l_okc_k_party_roles_tl_rec.id;
3858: END IF;
3859: IF (x_okc_k_party_roles_tl_rec.language = OKC_API.G_MISS_CHAR)
3853: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3854: END IF;
3855: IF (x_okc_k_party_roles_tl_rec.id = OKC_API.G_MISS_NUM)
3856: THEN
3857: x_okc_k_party_roles_tl_rec.id := l_okc_k_party_roles_tl_rec.id;
3858: END IF;
3859: IF (x_okc_k_party_roles_tl_rec.language = OKC_API.G_MISS_CHAR)
3860: THEN
3861: x_okc_k_party_roles_tl_rec.language := l_okc_k_party_roles_tl_rec.language;
3855: IF (x_okc_k_party_roles_tl_rec.id = OKC_API.G_MISS_NUM)
3856: THEN
3857: x_okc_k_party_roles_tl_rec.id := l_okc_k_party_roles_tl_rec.id;
3858: END IF;
3859: IF (x_okc_k_party_roles_tl_rec.language = OKC_API.G_MISS_CHAR)
3860: THEN
3861: x_okc_k_party_roles_tl_rec.language := l_okc_k_party_roles_tl_rec.language;
3862: END IF;
3863: IF (x_okc_k_party_roles_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3857: x_okc_k_party_roles_tl_rec.id := l_okc_k_party_roles_tl_rec.id;
3858: END IF;
3859: IF (x_okc_k_party_roles_tl_rec.language = OKC_API.G_MISS_CHAR)
3860: THEN
3861: x_okc_k_party_roles_tl_rec.language := l_okc_k_party_roles_tl_rec.language;
3862: END IF;
3863: IF (x_okc_k_party_roles_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3864: THEN
3865: x_okc_k_party_roles_tl_rec.source_lang := l_okc_k_party_roles_tl_rec.source_lang;
3859: IF (x_okc_k_party_roles_tl_rec.language = OKC_API.G_MISS_CHAR)
3860: THEN
3861: x_okc_k_party_roles_tl_rec.language := l_okc_k_party_roles_tl_rec.language;
3862: END IF;
3863: IF (x_okc_k_party_roles_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3864: THEN
3865: x_okc_k_party_roles_tl_rec.source_lang := l_okc_k_party_roles_tl_rec.source_lang;
3866: END IF;
3867: IF (x_okc_k_party_roles_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3861: x_okc_k_party_roles_tl_rec.language := l_okc_k_party_roles_tl_rec.language;
3862: END IF;
3863: IF (x_okc_k_party_roles_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3864: THEN
3865: x_okc_k_party_roles_tl_rec.source_lang := l_okc_k_party_roles_tl_rec.source_lang;
3866: END IF;
3867: IF (x_okc_k_party_roles_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3868: THEN
3869: x_okc_k_party_roles_tl_rec.sfwt_flag := l_okc_k_party_roles_tl_rec.sfwt_flag;
3863: IF (x_okc_k_party_roles_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3864: THEN
3865: x_okc_k_party_roles_tl_rec.source_lang := l_okc_k_party_roles_tl_rec.source_lang;
3866: END IF;
3867: IF (x_okc_k_party_roles_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3868: THEN
3869: x_okc_k_party_roles_tl_rec.sfwt_flag := l_okc_k_party_roles_tl_rec.sfwt_flag;
3870: END IF;
3871: IF (x_okc_k_party_roles_tl_rec.created_by = OKC_API.G_MISS_NUM)
3865: x_okc_k_party_roles_tl_rec.source_lang := l_okc_k_party_roles_tl_rec.source_lang;
3866: END IF;
3867: IF (x_okc_k_party_roles_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3868: THEN
3869: x_okc_k_party_roles_tl_rec.sfwt_flag := l_okc_k_party_roles_tl_rec.sfwt_flag;
3870: END IF;
3871: IF (x_okc_k_party_roles_tl_rec.created_by = OKC_API.G_MISS_NUM)
3872: THEN
3873: x_okc_k_party_roles_tl_rec.created_by := l_okc_k_party_roles_tl_rec.created_by;
3867: IF (x_okc_k_party_roles_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3868: THEN
3869: x_okc_k_party_roles_tl_rec.sfwt_flag := l_okc_k_party_roles_tl_rec.sfwt_flag;
3870: END IF;
3871: IF (x_okc_k_party_roles_tl_rec.created_by = OKC_API.G_MISS_NUM)
3872: THEN
3873: x_okc_k_party_roles_tl_rec.created_by := l_okc_k_party_roles_tl_rec.created_by;
3874: END IF;
3875: IF (x_okc_k_party_roles_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3869: x_okc_k_party_roles_tl_rec.sfwt_flag := l_okc_k_party_roles_tl_rec.sfwt_flag;
3870: END IF;
3871: IF (x_okc_k_party_roles_tl_rec.created_by = OKC_API.G_MISS_NUM)
3872: THEN
3873: x_okc_k_party_roles_tl_rec.created_by := l_okc_k_party_roles_tl_rec.created_by;
3874: END IF;
3875: IF (x_okc_k_party_roles_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3876: THEN
3877: x_okc_k_party_roles_tl_rec.creation_date := l_okc_k_party_roles_tl_rec.creation_date;
3871: IF (x_okc_k_party_roles_tl_rec.created_by = OKC_API.G_MISS_NUM)
3872: THEN
3873: x_okc_k_party_roles_tl_rec.created_by := l_okc_k_party_roles_tl_rec.created_by;
3874: END IF;
3875: IF (x_okc_k_party_roles_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3876: THEN
3877: x_okc_k_party_roles_tl_rec.creation_date := l_okc_k_party_roles_tl_rec.creation_date;
3878: END IF;
3879: IF (x_okc_k_party_roles_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3873: x_okc_k_party_roles_tl_rec.created_by := l_okc_k_party_roles_tl_rec.created_by;
3874: END IF;
3875: IF (x_okc_k_party_roles_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3876: THEN
3877: x_okc_k_party_roles_tl_rec.creation_date := l_okc_k_party_roles_tl_rec.creation_date;
3878: END IF;
3879: IF (x_okc_k_party_roles_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3880: THEN
3881: x_okc_k_party_roles_tl_rec.last_updated_by := l_okc_k_party_roles_tl_rec.last_updated_by;
3875: IF (x_okc_k_party_roles_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3876: THEN
3877: x_okc_k_party_roles_tl_rec.creation_date := l_okc_k_party_roles_tl_rec.creation_date;
3878: END IF;
3879: IF (x_okc_k_party_roles_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3880: THEN
3881: x_okc_k_party_roles_tl_rec.last_updated_by := l_okc_k_party_roles_tl_rec.last_updated_by;
3882: END IF;
3883: IF (x_okc_k_party_roles_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3877: x_okc_k_party_roles_tl_rec.creation_date := l_okc_k_party_roles_tl_rec.creation_date;
3878: END IF;
3879: IF (x_okc_k_party_roles_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3880: THEN
3881: x_okc_k_party_roles_tl_rec.last_updated_by := l_okc_k_party_roles_tl_rec.last_updated_by;
3882: END IF;
3883: IF (x_okc_k_party_roles_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3884: THEN
3885: x_okc_k_party_roles_tl_rec.last_update_date := l_okc_k_party_roles_tl_rec.last_update_date;
3879: IF (x_okc_k_party_roles_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3880: THEN
3881: x_okc_k_party_roles_tl_rec.last_updated_by := l_okc_k_party_roles_tl_rec.last_updated_by;
3882: END IF;
3883: IF (x_okc_k_party_roles_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3884: THEN
3885: x_okc_k_party_roles_tl_rec.last_update_date := l_okc_k_party_roles_tl_rec.last_update_date;
3886: END IF;
3887: IF (x_okc_k_party_roles_tl_rec.cognomen = OKC_API.G_MISS_CHAR)
3881: x_okc_k_party_roles_tl_rec.last_updated_by := l_okc_k_party_roles_tl_rec.last_updated_by;
3882: END IF;
3883: IF (x_okc_k_party_roles_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3884: THEN
3885: x_okc_k_party_roles_tl_rec.last_update_date := l_okc_k_party_roles_tl_rec.last_update_date;
3886: END IF;
3887: IF (x_okc_k_party_roles_tl_rec.cognomen = OKC_API.G_MISS_CHAR)
3888: THEN
3889: x_okc_k_party_roles_tl_rec.cognomen := l_okc_k_party_roles_tl_rec.cognomen;
3883: IF (x_okc_k_party_roles_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3884: THEN
3885: x_okc_k_party_roles_tl_rec.last_update_date := l_okc_k_party_roles_tl_rec.last_update_date;
3886: END IF;
3887: IF (x_okc_k_party_roles_tl_rec.cognomen = OKC_API.G_MISS_CHAR)
3888: THEN
3889: x_okc_k_party_roles_tl_rec.cognomen := l_okc_k_party_roles_tl_rec.cognomen;
3890: END IF;
3891: IF (x_okc_k_party_roles_tl_rec.alias = OKC_API.G_MISS_CHAR)
3885: x_okc_k_party_roles_tl_rec.last_update_date := l_okc_k_party_roles_tl_rec.last_update_date;
3886: END IF;
3887: IF (x_okc_k_party_roles_tl_rec.cognomen = OKC_API.G_MISS_CHAR)
3888: THEN
3889: x_okc_k_party_roles_tl_rec.cognomen := l_okc_k_party_roles_tl_rec.cognomen;
3890: END IF;
3891: IF (x_okc_k_party_roles_tl_rec.alias = OKC_API.G_MISS_CHAR)
3892: THEN
3893: x_okc_k_party_roles_tl_rec.alias := l_okc_k_party_roles_tl_rec.alias;
3887: IF (x_okc_k_party_roles_tl_rec.cognomen = OKC_API.G_MISS_CHAR)
3888: THEN
3889: x_okc_k_party_roles_tl_rec.cognomen := l_okc_k_party_roles_tl_rec.cognomen;
3890: END IF;
3891: IF (x_okc_k_party_roles_tl_rec.alias = OKC_API.G_MISS_CHAR)
3892: THEN
3893: x_okc_k_party_roles_tl_rec.alias := l_okc_k_party_roles_tl_rec.alias;
3894: END IF;
3895: IF (x_okc_k_party_roles_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
3889: x_okc_k_party_roles_tl_rec.cognomen := l_okc_k_party_roles_tl_rec.cognomen;
3890: END IF;
3891: IF (x_okc_k_party_roles_tl_rec.alias = OKC_API.G_MISS_CHAR)
3892: THEN
3893: x_okc_k_party_roles_tl_rec.alias := l_okc_k_party_roles_tl_rec.alias;
3894: END IF;
3895: IF (x_okc_k_party_roles_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
3896: THEN
3897: x_okc_k_party_roles_tl_rec.last_update_login := l_okc_k_party_roles_tl_rec.last_update_login;
3891: IF (x_okc_k_party_roles_tl_rec.alias = OKC_API.G_MISS_CHAR)
3892: THEN
3893: x_okc_k_party_roles_tl_rec.alias := l_okc_k_party_roles_tl_rec.alias;
3894: END IF;
3895: IF (x_okc_k_party_roles_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
3896: THEN
3897: x_okc_k_party_roles_tl_rec.last_update_login := l_okc_k_party_roles_tl_rec.last_update_login;
3898: END IF;
3899:
3893: x_okc_k_party_roles_tl_rec.alias := l_okc_k_party_roles_tl_rec.alias;
3894: END IF;
3895: IF (x_okc_k_party_roles_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
3896: THEN
3897: x_okc_k_party_roles_tl_rec.last_update_login := l_okc_k_party_roles_tl_rec.last_update_login;
3898: END IF;
3899:
3900: IF (l_debug = 'Y') THEN
3901: okc_debug.log('11950: Leaving populate_new_record ', 2);
3906:
3907:
3908: END populate_new_record;
3909: ---------------------------------------------
3910: -- Set_Attributes for:OKC_K_PARTY_ROLES_TL --
3911: ---------------------------------------------
3912: FUNCTION Set_Attributes (
3913: p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type,
3914: x_okc_k_party_roles_tl_rec OUT NOCOPY okc_k_party_roles_tl_rec_type
3909: ---------------------------------------------
3910: -- Set_Attributes for:OKC_K_PARTY_ROLES_TL --
3911: ---------------------------------------------
3912: FUNCTION Set_Attributes (
3913: p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type,
3914: x_okc_k_party_roles_tl_rec OUT NOCOPY okc_k_party_roles_tl_rec_type
3915: ) RETURN VARCHAR2 IS
3916: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3917: BEGIN
3910: -- Set_Attributes for:OKC_K_PARTY_ROLES_TL --
3911: ---------------------------------------------
3912: FUNCTION Set_Attributes (
3913: p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type,
3914: x_okc_k_party_roles_tl_rec OUT NOCOPY okc_k_party_roles_tl_rec_type
3915: ) RETURN VARCHAR2 IS
3916: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3917: BEGIN
3918: x_okc_k_party_roles_tl_rec := p_okc_k_party_roles_tl_rec;
3914: x_okc_k_party_roles_tl_rec OUT NOCOPY okc_k_party_roles_tl_rec_type
3915: ) RETURN VARCHAR2 IS
3916: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3917: BEGIN
3918: x_okc_k_party_roles_tl_rec := p_okc_k_party_roles_tl_rec;
3919: x_okc_k_party_roles_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
3920: x_okc_k_party_roles_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
3921:
3922: RETURN(l_return_status);
3915: ) RETURN VARCHAR2 IS
3916: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3917: BEGIN
3918: x_okc_k_party_roles_tl_rec := p_okc_k_party_roles_tl_rec;
3919: x_okc_k_party_roles_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
3920: x_okc_k_party_roles_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
3921:
3922: RETURN(l_return_status);
3923:
3916: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3917: BEGIN
3918: x_okc_k_party_roles_tl_rec := p_okc_k_party_roles_tl_rec;
3919: x_okc_k_party_roles_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
3920: x_okc_k_party_roles_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
3921:
3922: RETURN(l_return_status);
3923:
3924: END Set_Attributes;
3939: RAISE OKC_API.G_EXCEPTION_ERROR;
3940: END IF;
3941: --- Setting item attributes
3942: l_return_status := Set_Attributes(
3943: p_okc_k_party_roles_tl_rec, -- IN
3944: l_okc_k_party_roles_tl_rec); -- OUT
3945: --- If any errors happen abort API
3946: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3947: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3940: END IF;
3941: --- Setting item attributes
3942: l_return_status := Set_Attributes(
3943: p_okc_k_party_roles_tl_rec, -- IN
3944: l_okc_k_party_roles_tl_rec); -- OUT
3945: --- If any errors happen abort API
3946: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3947: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3948: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3947: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3948: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3949: RAISE OKC_API.G_EXCEPTION_ERROR;
3950: END IF;
3951: l_return_status := populate_new_record(l_okc_k_party_roles_tl_rec, ldefokckpartyrolestlrec);
3952: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3953: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3954: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3955: RAISE OKC_API.G_EXCEPTION_ERROR;
3953: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3954: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3955: RAISE OKC_API.G_EXCEPTION_ERROR;
3956: END IF;
3957: UPDATE OKC_K_PARTY_ROLES_TL
3958: SET CREATED_BY = ldefokckpartyrolestlrec.created_by,
3959: CREATION_DATE = ldefokckpartyrolestlrec.creation_date,
3960: LAST_UPDATED_BY = ldefokckpartyrolestlrec.last_updated_by,
3961: LAST_UPDATE_DATE = ldefokckpartyrolestlrec.last_update_date,
3969: --- AND SOURCE_LANG = USERENV('LANG');
3970: --+
3971: AND USERENV('LANG') in (SOURCE_LANG,LANGUAGE);
3972: --+
3973: UPDATE OKC_K_PARTY_ROLES_TL
3974: SET SFWT_FLAG = 'Y'
3975: WHERE ID = ldefokckpartyrolestlrec.id
3976: AND SOURCE_LANG <> USERENV('LANG');
3977:
3974: SET SFWT_FLAG = 'Y'
3975: WHERE ID = ldefokckpartyrolestlrec.id
3976: AND SOURCE_LANG <> USERENV('LANG');
3977:
3978: x_okc_k_party_roles_tl_rec := ldefokckpartyrolestlrec;
3979: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3980:
3981: IF (l_debug = 'Y') THEN
3982: okc_debug.log('12200: Leaving update_row', 2);
4050: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
4051: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4052: l_cplv_rec cplv_rec_type := p_cplv_rec;
4053: l_def_cplv_rec cplv_rec_type;
4054: l_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type;
4055: lx_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type;
4056: l_cpl_rec cpl_rec_type;
4057: lx_cpl_rec cpl_rec_type;
4058: -------------------------------
4051: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4052: l_cplv_rec cplv_rec_type := p_cplv_rec;
4053: l_def_cplv_rec cplv_rec_type;
4054: l_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type;
4055: lx_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type;
4056: l_cpl_rec cpl_rec_type;
4057: lx_cpl_rec cpl_rec_type;
4058: -------------------------------
4059: -- FUNCTION fill_who_columns --
4339:
4340: --------------------------------------
4341: -- Move VIEW record to "Child" records
4342: --------------------------------------
4343: migrate(l_def_cplv_rec, l_okc_k_party_roles_tl_rec);
4344: migrate(l_def_cplv_rec, l_cpl_rec);
4345: --------------------------------------------
4346: -- Call the UPDATE_ROW for each child record
4347: --------------------------------------------
4349: p_init_msg_list,
4350: x_return_status,
4351: x_msg_count,
4352: x_msg_data,
4353: l_okc_k_party_roles_tl_rec,
4354: lx_okc_k_party_roles_tl_rec
4355: );
4356: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4357: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4350: x_return_status,
4351: x_msg_count,
4352: x_msg_data,
4353: l_okc_k_party_roles_tl_rec,
4354: lx_okc_k_party_roles_tl_rec
4355: );
4356: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4357: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4358: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4357: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4358: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4359: RAISE OKC_API.G_EXCEPTION_ERROR;
4360: END IF;
4361: migrate(lx_okc_k_party_roles_tl_rec, l_def_cplv_rec);
4362: update_row(
4363: p_init_msg_list,
4364: x_return_status,
4365: x_msg_count,
4625: );
4626:
4627: END delete_row;
4628: -----------------------------------------
4629: -- delete_row for:OKC_K_PARTY_ROLES_TL --
4630: -----------------------------------------
4631: PROCEDURE delete_row(
4632: p_init_msg_list IN VARCHAR2 ,
4633: x_return_status OUT NOCOPY VARCHAR2,
4632: p_init_msg_list IN VARCHAR2 ,
4633: x_return_status OUT NOCOPY VARCHAR2,
4634: x_msg_count OUT NOCOPY NUMBER,
4635: x_msg_data OUT NOCOPY VARCHAR2,
4636: p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type) IS
4637:
4638: l_api_version CONSTANT NUMBER := 1;
4639: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
4640: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4637:
4638: l_api_version CONSTANT NUMBER := 1;
4639: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
4640: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4641: l_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type:= p_okc_k_party_roles_tl_rec;
4642: l_row_notfound BOOLEAN := TRUE;
4643: ---------------------------------------------
4644: -- Set_Attributes for:OKC_K_PARTY_ROLES_TL --
4645: ---------------------------------------------
4640: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4641: l_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type:= p_okc_k_party_roles_tl_rec;
4642: l_row_notfound BOOLEAN := TRUE;
4643: ---------------------------------------------
4644: -- Set_Attributes for:OKC_K_PARTY_ROLES_TL --
4645: ---------------------------------------------
4646: FUNCTION Set_Attributes (
4647: p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type,
4648: x_okc_k_party_roles_tl_rec OUT NOCOPY okc_k_party_roles_tl_rec_type
4643: ---------------------------------------------
4644: -- Set_Attributes for:OKC_K_PARTY_ROLES_TL --
4645: ---------------------------------------------
4646: FUNCTION Set_Attributes (
4647: p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type,
4648: x_okc_k_party_roles_tl_rec OUT NOCOPY okc_k_party_roles_tl_rec_type
4649: ) RETURN VARCHAR2 IS
4650: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4651: BEGIN
4644: -- Set_Attributes for:OKC_K_PARTY_ROLES_TL --
4645: ---------------------------------------------
4646: FUNCTION Set_Attributes (
4647: p_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type,
4648: x_okc_k_party_roles_tl_rec OUT NOCOPY okc_k_party_roles_tl_rec_type
4649: ) RETURN VARCHAR2 IS
4650: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4651: BEGIN
4652:
4649: ) RETURN VARCHAR2 IS
4650: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4651: BEGIN
4652:
4653: x_okc_k_party_roles_tl_rec := p_okc_k_party_roles_tl_rec;
4654: x_okc_k_party_roles_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
4655:
4656: RETURN(l_return_status);
4657:
4650: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4651: BEGIN
4652:
4653: x_okc_k_party_roles_tl_rec := p_okc_k_party_roles_tl_rec;
4654: x_okc_k_party_roles_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
4655:
4656: RETURN(l_return_status);
4657:
4658: END Set_Attributes;
4673: RAISE OKC_API.G_EXCEPTION_ERROR;
4674: END IF;
4675: --- Setting item attributes
4676: l_return_status := Set_Attributes(
4677: p_okc_k_party_roles_tl_rec, -- IN
4678: l_okc_k_party_roles_tl_rec); -- OUT
4679: --- If any errors happen abort API
4680: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4681: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4674: END IF;
4675: --- Setting item attributes
4676: l_return_status := Set_Attributes(
4677: p_okc_k_party_roles_tl_rec, -- IN
4678: l_okc_k_party_roles_tl_rec); -- OUT
4679: --- If any errors happen abort API
4680: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4681: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4682: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4681: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4682: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4683: RAISE OKC_API.G_EXCEPTION_ERROR;
4684: END IF;
4685: DELETE FROM OKC_K_PARTY_ROLES_TL
4686: WHERE ID = l_okc_k_party_roles_tl_rec.id;
4687:
4688: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4689:
4682: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4683: RAISE OKC_API.G_EXCEPTION_ERROR;
4684: END IF;
4685: DELETE FROM OKC_K_PARTY_ROLES_TL
4686: WHERE ID = l_okc_k_party_roles_tl_rec.id;
4687:
4688: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4689:
4690: IF (l_debug = 'Y') THEN
4757: l_api_version CONSTANT NUMBER := 1;
4758: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
4759: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4760: l_cplv_rec cplv_rec_type := p_cplv_rec;
4761: l_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type;
4762: l_cpl_rec cpl_rec_type;
4763: BEGIN
4764:
4765: IF (l_debug = 'Y') THEN
4781: END IF;
4782: --------------------------------------
4783: -- Move VIEW record to "Child" records
4784: --------------------------------------
4785: migrate(l_cplv_rec, l_okc_k_party_roles_tl_rec);
4786: migrate(l_cplv_rec, l_cpl_rec);
4787: --------------------------------------------
4788: -- Call the DELETE_ROW for each child record
4789: --------------------------------------------
4791: p_init_msg_list,
4792: x_return_status,
4793: x_msg_count,
4794: x_msg_data,
4795: l_okc_k_party_roles_tl_rec
4796: );
4797: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4798: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4799: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5163: );
5164:
5165: FOR lang_i IN OKC_UTIL.g_language_code.FIRST..OKC_UTIL.g_language_code.LAST LOOP
5166: FORALL i in 1..l_tabsize
5167: INSERT INTO OKC_K_PARTY_ROLES_TL(
5168: id,
5169: language,
5170: source_lang,
5171: sfwt_flag,
5341: --------------------------------
5342: -- Version TL Table
5343: --------------------------------
5344:
5345: INSERT INTO okc_k_party_roles_tlh
5346: (
5347: major_version,
5348: id,
5349: language,
5369: last_update_date,
5370: cognomen,
5371: alias,
5372: last_update_login
5373: FROM okc_k_party_roles_tl
5374: WHERE id in (select id
5375: from okc_k_party_roles_b
5376: where dnz_chr_id = p_chr_id);
5377:
5422: okc_debug.Set_Indentation('OKC_CPL_PVT');
5423: okc_debug.log('16600: Entered restore_version', 2);
5424: END IF;
5425:
5426: INSERT INTO okc_k_party_roles_tl
5427: (
5428: id,
5429: language,
5430: source_lang,
5448: last_update_date,
5449: cognomen,
5450: alias,
5451: last_update_login
5452: FROM okc_k_party_roles_tlh
5453: WHERE id in (SELECT id
5454: FROM okc_k_party_roles_bh
5455: WHERE dnz_chr_id = p_chr_id)
5456: AND major_version = p_major_version;