105: -- PROCEDURE add_language
106: ---------------------------------------------------------------------------
107: PROCEDURE add_language IS
108: BEGIN
109: DELETE FROM OKL_INS_CLAIMS_TL T
110: WHERE NOT EXISTS (
111: SELECT NULL
112: FROM OKL_INS_CLAIMS_ALL_B B --fixed bug 3321017 by kmotepal
113: WHERE B.ID =T.ID
111: SELECT NULL
112: FROM OKL_INS_CLAIMS_ALL_B B --fixed bug 3321017 by kmotepal
113: WHERE B.ID =T.ID
114: );
115: UPDATE OKL_INS_CLAIMS_TL T SET(
116: DESCRIPTION,
117: POLICE_REPORT,
118: COMMENTS) = (SELECT
119: B.DESCRIPTION,
118: COMMENTS) = (SELECT
119: B.DESCRIPTION,
120: B.POLICE_REPORT,
121: B.COMMENTS
122: FROM OKL_INS_CLAIMS_TL B
123: WHERE B.ID = T.ID
124: AND B.LANGUAGE = T.SOURCE_LANG)
125: WHERE ( T.ID,
126: T.LANGUAGE)
126: T.LANGUAGE)
127: IN (SELECT
128: SUBT.ID,
129: SUBT.LANGUAGE
130: FROM OKL_INS_CLAIMS_TL SUBB, OKL_INS_CLAIMS_TL SUBT
131: WHERE SUBB.ID = SUBT.ID
132: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
133: AND (SUBB.DESCRIPTION <> SUBT.DESCRIPTION
134: OR SUBB.POLICE_REPORT <> SUBT.POLICE_REPORT
136: OR (SUBB.DESCRIPTION IS NULL AND SUBT.DESCRIPTION IS NOT NULL)
137: OR (SUBB.POLICE_REPORT IS NULL AND SUBT.POLICE_REPORT IS NOT NULL)
138: OR (SUBB.COMMENTS IS NULL AND SUBT.COMMENTS IS NOT NULL)
139: ));
140: INSERT INTO OKL_INS_CLAIMS_TL (
141: ID,
142: LANGUAGE,
143: DESCRIPTION,
144: POLICE_REPORT,
162: B.CREATION_DATE,
163: B.LAST_UPDATED_BY,
164: B.LAST_UPDATE_DATE,
165: B.LAST_UPDATE_LOGIN
166: FROM OKL_INS_CLAIMS_TL B, FND_LANGUAGES L
167: WHERE L.INSTALLED_FLAG IN ('I', 'B')
168: AND B.LANGUAGE = USERENV('LANG')
169: AND NOT EXISTS (
170: SELECT NULL
167: WHERE L.INSTALLED_FLAG IN ('I', 'B')
168: AND B.LANGUAGE = USERENV('LANG')
169: AND NOT EXISTS (
170: SELECT NULL
171: FROM OKL_INS_CLAIMS_TL T
172: WHERE T.ID = B.ID
173: AND T.LANGUAGE = L.LANGUAGE_CODE
174: );
175: END add_language;
427: BEGIN
428: RETURN(get_rec(p_clm_rec, l_row_not_found));
429: END get_rec;
430: ---------------------------------------------------------------------------
431: -- FUNCTION get_rec for: OKL_INS_CLAIMS_TL
432: ---------------------------------------------------------------------------
433: FUNCTION get_rec (
434: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type,
435: x_no_data_found OUT NOCOPY BOOLEAN
430: ---------------------------------------------------------------------------
431: -- FUNCTION get_rec for: OKL_INS_CLAIMS_TL
432: ---------------------------------------------------------------------------
433: FUNCTION get_rec (
434: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type,
435: x_no_data_found OUT NOCOPY BOOLEAN
436: ) RETURN okl_ins_claims_tl_rec_type IS
437: CURSOR clmt_pk_csr (p_id IN NUMBER,
438: p_language IN VARCHAR2) IS
432: ---------------------------------------------------------------------------
433: FUNCTION get_rec (
434: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type,
435: x_no_data_found OUT NOCOPY BOOLEAN
436: ) RETURN okl_ins_claims_tl_rec_type IS
437: CURSOR clmt_pk_csr (p_id IN NUMBER,
438: p_language IN VARCHAR2) IS
439: SELECT
440: ID,
448: CREATION_DATE,
449: LAST_UPDATED_BY,
450: LAST_UPDATE_DATE,
451: LAST_UPDATE_LOGIN
452: FROM Okl_Ins_Claims_Tl
453: WHERE okl_ins_claims_tl.id = p_id
454: AND okl_ins_claims_tl.language = p_language;
455: l_clmt_pk clmt_pk_csr%ROWTYPE;
456: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
449: LAST_UPDATED_BY,
450: LAST_UPDATE_DATE,
451: LAST_UPDATE_LOGIN
452: FROM Okl_Ins_Claims_Tl
453: WHERE okl_ins_claims_tl.id = p_id
454: AND okl_ins_claims_tl.language = p_language;
455: l_clmt_pk clmt_pk_csr%ROWTYPE;
456: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
457: BEGIN
450: LAST_UPDATE_DATE,
451: LAST_UPDATE_LOGIN
452: FROM Okl_Ins_Claims_Tl
453: WHERE okl_ins_claims_tl.id = p_id
454: AND okl_ins_claims_tl.language = p_language;
455: l_clmt_pk clmt_pk_csr%ROWTYPE;
456: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
457: BEGIN
458: x_no_data_found := TRUE;
452: FROM Okl_Ins_Claims_Tl
453: WHERE okl_ins_claims_tl.id = p_id
454: AND okl_ins_claims_tl.language = p_language;
455: l_clmt_pk clmt_pk_csr%ROWTYPE;
456: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
457: BEGIN
458: x_no_data_found := TRUE;
459: -- Get current database values
460: OPEN clmt_pk_csr (p_okl_ins_claims_tl_rec.id,
456: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
457: BEGIN
458: x_no_data_found := TRUE;
459: -- Get current database values
460: OPEN clmt_pk_csr (p_okl_ins_claims_tl_rec.id,
461: p_okl_ins_claims_tl_rec.language);
462: FETCH clmt_pk_csr INTO
463: l_okl_ins_claims_tl_rec.id,
464: l_okl_ins_claims_tl_rec.language,
457: BEGIN
458: x_no_data_found := TRUE;
459: -- Get current database values
460: OPEN clmt_pk_csr (p_okl_ins_claims_tl_rec.id,
461: p_okl_ins_claims_tl_rec.language);
462: FETCH clmt_pk_csr INTO
463: l_okl_ins_claims_tl_rec.id,
464: l_okl_ins_claims_tl_rec.language,
465: l_okl_ins_claims_tl_rec.description,
459: -- Get current database values
460: OPEN clmt_pk_csr (p_okl_ins_claims_tl_rec.id,
461: p_okl_ins_claims_tl_rec.language);
462: FETCH clmt_pk_csr INTO
463: l_okl_ins_claims_tl_rec.id,
464: l_okl_ins_claims_tl_rec.language,
465: l_okl_ins_claims_tl_rec.description,
466: l_okl_ins_claims_tl_rec.police_report,
467: l_okl_ins_claims_tl_rec.comments,
460: OPEN clmt_pk_csr (p_okl_ins_claims_tl_rec.id,
461: p_okl_ins_claims_tl_rec.language);
462: FETCH clmt_pk_csr INTO
463: l_okl_ins_claims_tl_rec.id,
464: l_okl_ins_claims_tl_rec.language,
465: l_okl_ins_claims_tl_rec.description,
466: l_okl_ins_claims_tl_rec.police_report,
467: l_okl_ins_claims_tl_rec.comments,
468: l_okl_ins_claims_tl_rec.source_lang,
461: p_okl_ins_claims_tl_rec.language);
462: FETCH clmt_pk_csr INTO
463: l_okl_ins_claims_tl_rec.id,
464: l_okl_ins_claims_tl_rec.language,
465: l_okl_ins_claims_tl_rec.description,
466: l_okl_ins_claims_tl_rec.police_report,
467: l_okl_ins_claims_tl_rec.comments,
468: l_okl_ins_claims_tl_rec.source_lang,
469: l_okl_ins_claims_tl_rec.sfwt_flag,
462: FETCH clmt_pk_csr INTO
463: l_okl_ins_claims_tl_rec.id,
464: l_okl_ins_claims_tl_rec.language,
465: l_okl_ins_claims_tl_rec.description,
466: l_okl_ins_claims_tl_rec.police_report,
467: l_okl_ins_claims_tl_rec.comments,
468: l_okl_ins_claims_tl_rec.source_lang,
469: l_okl_ins_claims_tl_rec.sfwt_flag,
470: l_okl_ins_claims_tl_rec.created_by,
463: l_okl_ins_claims_tl_rec.id,
464: l_okl_ins_claims_tl_rec.language,
465: l_okl_ins_claims_tl_rec.description,
466: l_okl_ins_claims_tl_rec.police_report,
467: l_okl_ins_claims_tl_rec.comments,
468: l_okl_ins_claims_tl_rec.source_lang,
469: l_okl_ins_claims_tl_rec.sfwt_flag,
470: l_okl_ins_claims_tl_rec.created_by,
471: l_okl_ins_claims_tl_rec.creation_date,
464: l_okl_ins_claims_tl_rec.language,
465: l_okl_ins_claims_tl_rec.description,
466: l_okl_ins_claims_tl_rec.police_report,
467: l_okl_ins_claims_tl_rec.comments,
468: l_okl_ins_claims_tl_rec.source_lang,
469: l_okl_ins_claims_tl_rec.sfwt_flag,
470: l_okl_ins_claims_tl_rec.created_by,
471: l_okl_ins_claims_tl_rec.creation_date,
472: l_okl_ins_claims_tl_rec.last_updated_by,
465: l_okl_ins_claims_tl_rec.description,
466: l_okl_ins_claims_tl_rec.police_report,
467: l_okl_ins_claims_tl_rec.comments,
468: l_okl_ins_claims_tl_rec.source_lang,
469: l_okl_ins_claims_tl_rec.sfwt_flag,
470: l_okl_ins_claims_tl_rec.created_by,
471: l_okl_ins_claims_tl_rec.creation_date,
472: l_okl_ins_claims_tl_rec.last_updated_by,
473: l_okl_ins_claims_tl_rec.last_update_date,
466: l_okl_ins_claims_tl_rec.police_report,
467: l_okl_ins_claims_tl_rec.comments,
468: l_okl_ins_claims_tl_rec.source_lang,
469: l_okl_ins_claims_tl_rec.sfwt_flag,
470: l_okl_ins_claims_tl_rec.created_by,
471: l_okl_ins_claims_tl_rec.creation_date,
472: l_okl_ins_claims_tl_rec.last_updated_by,
473: l_okl_ins_claims_tl_rec.last_update_date,
474: l_okl_ins_claims_tl_rec.last_update_login;
467: l_okl_ins_claims_tl_rec.comments,
468: l_okl_ins_claims_tl_rec.source_lang,
469: l_okl_ins_claims_tl_rec.sfwt_flag,
470: l_okl_ins_claims_tl_rec.created_by,
471: l_okl_ins_claims_tl_rec.creation_date,
472: l_okl_ins_claims_tl_rec.last_updated_by,
473: l_okl_ins_claims_tl_rec.last_update_date,
474: l_okl_ins_claims_tl_rec.last_update_login;
475: x_no_data_found := clmt_pk_csr%NOTFOUND;
468: l_okl_ins_claims_tl_rec.source_lang,
469: l_okl_ins_claims_tl_rec.sfwt_flag,
470: l_okl_ins_claims_tl_rec.created_by,
471: l_okl_ins_claims_tl_rec.creation_date,
472: l_okl_ins_claims_tl_rec.last_updated_by,
473: l_okl_ins_claims_tl_rec.last_update_date,
474: l_okl_ins_claims_tl_rec.last_update_login;
475: x_no_data_found := clmt_pk_csr%NOTFOUND;
476: CLOSE clmt_pk_csr;
469: l_okl_ins_claims_tl_rec.sfwt_flag,
470: l_okl_ins_claims_tl_rec.created_by,
471: l_okl_ins_claims_tl_rec.creation_date,
472: l_okl_ins_claims_tl_rec.last_updated_by,
473: l_okl_ins_claims_tl_rec.last_update_date,
474: l_okl_ins_claims_tl_rec.last_update_login;
475: x_no_data_found := clmt_pk_csr%NOTFOUND;
476: CLOSE clmt_pk_csr;
477: RETURN(l_okl_ins_claims_tl_rec);
470: l_okl_ins_claims_tl_rec.created_by,
471: l_okl_ins_claims_tl_rec.creation_date,
472: l_okl_ins_claims_tl_rec.last_updated_by,
473: l_okl_ins_claims_tl_rec.last_update_date,
474: l_okl_ins_claims_tl_rec.last_update_login;
475: x_no_data_found := clmt_pk_csr%NOTFOUND;
476: CLOSE clmt_pk_csr;
477: RETURN(l_okl_ins_claims_tl_rec);
478: END get_rec;
473: l_okl_ins_claims_tl_rec.last_update_date,
474: l_okl_ins_claims_tl_rec.last_update_login;
475: x_no_data_found := clmt_pk_csr%NOTFOUND;
476: CLOSE clmt_pk_csr;
477: RETURN(l_okl_ins_claims_tl_rec);
478: END get_rec;
479: ------------------------------------------------------------------
480: -- This version of get_rec sets error messages if no data found --
481: ------------------------------------------------------------------
479: ------------------------------------------------------------------
480: -- This version of get_rec sets error messages if no data found --
481: ------------------------------------------------------------------
482: FUNCTION get_rec (
483: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type,
484: x_return_status OUT NOCOPY VARCHAR2
485: ) RETURN okl_ins_claims_tl_rec_type IS
486: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
487: l_row_notfound BOOLEAN := TRUE;
481: ------------------------------------------------------------------
482: FUNCTION get_rec (
483: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type,
484: x_return_status OUT NOCOPY VARCHAR2
485: ) RETURN okl_ins_claims_tl_rec_type IS
486: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
487: l_row_notfound BOOLEAN := TRUE;
488: BEGIN
489: x_return_status := OKC_API.G_RET_STS_SUCCESS;
482: FUNCTION get_rec (
483: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type,
484: x_return_status OUT NOCOPY VARCHAR2
485: ) RETURN okl_ins_claims_tl_rec_type IS
486: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
487: l_row_notfound BOOLEAN := TRUE;
488: BEGIN
489: x_return_status := OKC_API.G_RET_STS_SUCCESS;
490: l_okl_ins_claims_tl_rec := get_rec(p_okl_ins_claims_tl_rec, l_row_notfound);
486: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
487: l_row_notfound BOOLEAN := TRUE;
488: BEGIN
489: x_return_status := OKC_API.G_RET_STS_SUCCESS;
490: l_okl_ins_claims_tl_rec := get_rec(p_okl_ins_claims_tl_rec, l_row_notfound);
491: IF (l_row_notfound) THEN
492: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
493: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
494: x_return_status := OKC_API.G_RET_STS_ERROR;
492: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
493: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
494: x_return_status := OKC_API.G_RET_STS_ERROR;
495: END IF;
496: RETURN(l_okl_ins_claims_tl_rec);
497: END get_rec;
498: -----------------------------------------------------------
499: -- So we don't have to pass an "l_row_notfound" variable --
500: -----------------------------------------------------------
498: -----------------------------------------------------------
499: -- So we don't have to pass an "l_row_notfound" variable --
500: -----------------------------------------------------------
501: FUNCTION get_rec (
502: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type
503: ) RETURN okl_ins_claims_tl_rec_type IS
504: l_row_not_found BOOLEAN := TRUE;
505: BEGIN
506: RETURN(get_rec(p_okl_ins_claims_tl_rec, l_row_not_found));
499: -- So we don't have to pass an "l_row_notfound" variable --
500: -----------------------------------------------------------
501: FUNCTION get_rec (
502: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type
503: ) RETURN okl_ins_claims_tl_rec_type IS
504: l_row_not_found BOOLEAN := TRUE;
505: BEGIN
506: RETURN(get_rec(p_okl_ins_claims_tl_rec, l_row_not_found));
507: END get_rec;
502: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type
503: ) RETURN okl_ins_claims_tl_rec_type IS
504: l_row_not_found BOOLEAN := TRUE;
505: BEGIN
506: RETURN(get_rec(p_okl_ins_claims_tl_rec, l_row_not_found));
507: END get_rec;
508: ---------------------------------------------------------------------------
509: -- FUNCTION null_out_defaults for: OKL_INS_CLAIMS_V
510: ---------------------------------------------------------------------------
1407: p_to.last_update_login := p_from.last_update_login;
1408: END migrate;
1409: PROCEDURE migrate (
1410: p_from IN clmv_rec_type,
1411: p_to IN OUT NOCOPY okl_ins_claims_tl_rec_type
1412: ) IS
1413: BEGIN
1414: p_to.id := p_from.id;
1415: p_to.description := p_from.description;
1421: p_to.last_update_date := p_from.last_update_date;
1422: p_to.last_update_login := p_from.last_update_login;
1423: END migrate;
1424: PROCEDURE migrate (
1425: p_from IN okl_ins_claims_tl_rec_type,
1426: p_to IN OUT NOCOPY clmv_rec_type
1427: ) IS
1428: BEGIN
1429: p_to.id := p_from.id;
1453: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1454: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1455: l_clmv_rec clmv_rec_type := p_clmv_rec;
1456: l_clm_rec clm_rec_type;
1457: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
1458: BEGIN
1459: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1460: G_PKG_NAME,
1461: p_init_msg_list,
1833: '_PVT'
1834: );
1835: END insert_row;
1836: --------------------------------------
1837: -- insert_row for:OKL_INS_CLAIMS_TL --
1838: --------------------------------------
1839: PROCEDURE insert_row(
1840: p_init_msg_list IN VARCHAR2 ,
1841: x_return_status OUT NOCOPY VARCHAR2,
1840: p_init_msg_list IN VARCHAR2 ,
1841: x_return_status OUT NOCOPY VARCHAR2,
1842: x_msg_count OUT NOCOPY NUMBER,
1843: x_msg_data OUT NOCOPY VARCHAR2,
1844: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type,
1845: x_okl_ins_claims_tl_rec OUT NOCOPY okl_ins_claims_tl_rec_type) IS
1846: l_api_version CONSTANT NUMBER := 1;
1847: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1848: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1841: x_return_status OUT NOCOPY VARCHAR2,
1842: x_msg_count OUT NOCOPY NUMBER,
1843: x_msg_data OUT NOCOPY VARCHAR2,
1844: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type,
1845: x_okl_ins_claims_tl_rec OUT NOCOPY okl_ins_claims_tl_rec_type) IS
1846: l_api_version CONSTANT NUMBER := 1;
1847: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1848: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1849: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type := p_okl_ins_claims_tl_rec;
1845: x_okl_ins_claims_tl_rec OUT NOCOPY okl_ins_claims_tl_rec_type) IS
1846: l_api_version CONSTANT NUMBER := 1;
1847: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1848: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1849: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type := p_okl_ins_claims_tl_rec;
1850: l_def_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
1851: CURSOR get_languages IS
1852: SELECT *
1853: FROM FND_LANGUAGES
1846: l_api_version CONSTANT NUMBER := 1;
1847: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1848: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1849: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type := p_okl_ins_claims_tl_rec;
1850: l_def_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
1851: CURSOR get_languages IS
1852: SELECT *
1853: FROM FND_LANGUAGES
1854: WHERE INSTALLED_FLAG IN ('I', 'B');
1852: SELECT *
1853: FROM FND_LANGUAGES
1854: WHERE INSTALLED_FLAG IN ('I', 'B');
1855: ------------------------------------------
1856: -- Set_Attributes for:OKL_INS_CLAIMS_TL --
1857: ------------------------------------------
1858: FUNCTION Set_Attributes (
1859: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type,
1860: x_okl_ins_claims_tl_rec OUT NOCOPY okl_ins_claims_tl_rec_type
1855: ------------------------------------------
1856: -- Set_Attributes for:OKL_INS_CLAIMS_TL --
1857: ------------------------------------------
1858: FUNCTION Set_Attributes (
1859: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type,
1860: x_okl_ins_claims_tl_rec OUT NOCOPY okl_ins_claims_tl_rec_type
1861: ) RETURN VARCHAR2 IS
1862: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1863: BEGIN
1856: -- Set_Attributes for:OKL_INS_CLAIMS_TL --
1857: ------------------------------------------
1858: FUNCTION Set_Attributes (
1859: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type,
1860: x_okl_ins_claims_tl_rec OUT NOCOPY okl_ins_claims_tl_rec_type
1861: ) RETURN VARCHAR2 IS
1862: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1863: BEGIN
1864: x_okl_ins_claims_tl_rec := p_okl_ins_claims_tl_rec;
1860: x_okl_ins_claims_tl_rec OUT NOCOPY okl_ins_claims_tl_rec_type
1861: ) RETURN VARCHAR2 IS
1862: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1863: BEGIN
1864: x_okl_ins_claims_tl_rec := p_okl_ins_claims_tl_rec;
1865: x_okl_ins_claims_tl_rec.LANGUAGE := USERENV('LANG');
1866: x_okl_ins_claims_tl_rec.SOURCE_LANG := USERENV('LANG');
1867: RETURN(l_return_status);
1868: END Set_Attributes;
1861: ) RETURN VARCHAR2 IS
1862: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1863: BEGIN
1864: x_okl_ins_claims_tl_rec := p_okl_ins_claims_tl_rec;
1865: x_okl_ins_claims_tl_rec.LANGUAGE := USERENV('LANG');
1866: x_okl_ins_claims_tl_rec.SOURCE_LANG := USERENV('LANG');
1867: RETURN(l_return_status);
1868: END Set_Attributes;
1869: BEGIN
1862: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1863: BEGIN
1864: x_okl_ins_claims_tl_rec := p_okl_ins_claims_tl_rec;
1865: x_okl_ins_claims_tl_rec.LANGUAGE := USERENV('LANG');
1866: x_okl_ins_claims_tl_rec.SOURCE_LANG := USERENV('LANG');
1867: RETURN(l_return_status);
1868: END Set_Attributes;
1869: BEGIN
1870: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1877: RAISE OKC_API.G_EXCEPTION_ERROR;
1878: END IF;
1879: --- Setting item attributes
1880: l_return_status := Set_Attributes(
1881: p_okl_ins_claims_tl_rec, -- IN
1882: l_okl_ins_claims_tl_rec); -- OUT
1883: --- If any errors happen abort API
1884: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1885: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1878: END IF;
1879: --- Setting item attributes
1880: l_return_status := Set_Attributes(
1881: p_okl_ins_claims_tl_rec, -- IN
1882: l_okl_ins_claims_tl_rec); -- OUT
1883: --- If any errors happen abort API
1884: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1885: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1886: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1886: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1887: RAISE OKC_API.G_EXCEPTION_ERROR;
1888: END IF;
1889: FOR l_lang_rec IN get_languages LOOP
1890: l_okl_ins_claims_tl_rec.language := l_lang_rec.language_code;
1891: INSERT INTO OKL_INS_CLAIMS_TL(
1892: id,
1893: language,
1894: description,
1887: RAISE OKC_API.G_EXCEPTION_ERROR;
1888: END IF;
1889: FOR l_lang_rec IN get_languages LOOP
1890: l_okl_ins_claims_tl_rec.language := l_lang_rec.language_code;
1891: INSERT INTO OKL_INS_CLAIMS_TL(
1892: id,
1893: language,
1894: description,
1895: police_report,
1901: last_updated_by,
1902: last_update_date,
1903: last_update_login)
1904: VALUES (
1905: l_okl_ins_claims_tl_rec.id,
1906: l_okl_ins_claims_tl_rec.language,
1907: l_okl_ins_claims_tl_rec.description,
1908: l_okl_ins_claims_tl_rec.police_report,
1909: l_okl_ins_claims_tl_rec.comments,
1902: last_update_date,
1903: last_update_login)
1904: VALUES (
1905: l_okl_ins_claims_tl_rec.id,
1906: l_okl_ins_claims_tl_rec.language,
1907: l_okl_ins_claims_tl_rec.description,
1908: l_okl_ins_claims_tl_rec.police_report,
1909: l_okl_ins_claims_tl_rec.comments,
1910: l_okl_ins_claims_tl_rec.source_lang,
1903: last_update_login)
1904: VALUES (
1905: l_okl_ins_claims_tl_rec.id,
1906: l_okl_ins_claims_tl_rec.language,
1907: l_okl_ins_claims_tl_rec.description,
1908: l_okl_ins_claims_tl_rec.police_report,
1909: l_okl_ins_claims_tl_rec.comments,
1910: l_okl_ins_claims_tl_rec.source_lang,
1911: l_okl_ins_claims_tl_rec.sfwt_flag,
1904: VALUES (
1905: l_okl_ins_claims_tl_rec.id,
1906: l_okl_ins_claims_tl_rec.language,
1907: l_okl_ins_claims_tl_rec.description,
1908: l_okl_ins_claims_tl_rec.police_report,
1909: l_okl_ins_claims_tl_rec.comments,
1910: l_okl_ins_claims_tl_rec.source_lang,
1911: l_okl_ins_claims_tl_rec.sfwt_flag,
1912: l_okl_ins_claims_tl_rec.created_by,
1905: l_okl_ins_claims_tl_rec.id,
1906: l_okl_ins_claims_tl_rec.language,
1907: l_okl_ins_claims_tl_rec.description,
1908: l_okl_ins_claims_tl_rec.police_report,
1909: l_okl_ins_claims_tl_rec.comments,
1910: l_okl_ins_claims_tl_rec.source_lang,
1911: l_okl_ins_claims_tl_rec.sfwt_flag,
1912: l_okl_ins_claims_tl_rec.created_by,
1913: l_okl_ins_claims_tl_rec.creation_date,
1906: l_okl_ins_claims_tl_rec.language,
1907: l_okl_ins_claims_tl_rec.description,
1908: l_okl_ins_claims_tl_rec.police_report,
1909: l_okl_ins_claims_tl_rec.comments,
1910: l_okl_ins_claims_tl_rec.source_lang,
1911: l_okl_ins_claims_tl_rec.sfwt_flag,
1912: l_okl_ins_claims_tl_rec.created_by,
1913: l_okl_ins_claims_tl_rec.creation_date,
1914: l_okl_ins_claims_tl_rec.last_updated_by,
1907: l_okl_ins_claims_tl_rec.description,
1908: l_okl_ins_claims_tl_rec.police_report,
1909: l_okl_ins_claims_tl_rec.comments,
1910: l_okl_ins_claims_tl_rec.source_lang,
1911: l_okl_ins_claims_tl_rec.sfwt_flag,
1912: l_okl_ins_claims_tl_rec.created_by,
1913: l_okl_ins_claims_tl_rec.creation_date,
1914: l_okl_ins_claims_tl_rec.last_updated_by,
1915: l_okl_ins_claims_tl_rec.last_update_date,
1908: l_okl_ins_claims_tl_rec.police_report,
1909: l_okl_ins_claims_tl_rec.comments,
1910: l_okl_ins_claims_tl_rec.source_lang,
1911: l_okl_ins_claims_tl_rec.sfwt_flag,
1912: l_okl_ins_claims_tl_rec.created_by,
1913: l_okl_ins_claims_tl_rec.creation_date,
1914: l_okl_ins_claims_tl_rec.last_updated_by,
1915: l_okl_ins_claims_tl_rec.last_update_date,
1916: l_okl_ins_claims_tl_rec.last_update_login);
1909: l_okl_ins_claims_tl_rec.comments,
1910: l_okl_ins_claims_tl_rec.source_lang,
1911: l_okl_ins_claims_tl_rec.sfwt_flag,
1912: l_okl_ins_claims_tl_rec.created_by,
1913: l_okl_ins_claims_tl_rec.creation_date,
1914: l_okl_ins_claims_tl_rec.last_updated_by,
1915: l_okl_ins_claims_tl_rec.last_update_date,
1916: l_okl_ins_claims_tl_rec.last_update_login);
1917: END LOOP;
1910: l_okl_ins_claims_tl_rec.source_lang,
1911: l_okl_ins_claims_tl_rec.sfwt_flag,
1912: l_okl_ins_claims_tl_rec.created_by,
1913: l_okl_ins_claims_tl_rec.creation_date,
1914: l_okl_ins_claims_tl_rec.last_updated_by,
1915: l_okl_ins_claims_tl_rec.last_update_date,
1916: l_okl_ins_claims_tl_rec.last_update_login);
1917: END LOOP;
1918: -- Set OUT values
1911: l_okl_ins_claims_tl_rec.sfwt_flag,
1912: l_okl_ins_claims_tl_rec.created_by,
1913: l_okl_ins_claims_tl_rec.creation_date,
1914: l_okl_ins_claims_tl_rec.last_updated_by,
1915: l_okl_ins_claims_tl_rec.last_update_date,
1916: l_okl_ins_claims_tl_rec.last_update_login);
1917: END LOOP;
1918: -- Set OUT values
1919: x_okl_ins_claims_tl_rec := l_okl_ins_claims_tl_rec;
1912: l_okl_ins_claims_tl_rec.created_by,
1913: l_okl_ins_claims_tl_rec.creation_date,
1914: l_okl_ins_claims_tl_rec.last_updated_by,
1915: l_okl_ins_claims_tl_rec.last_update_date,
1916: l_okl_ins_claims_tl_rec.last_update_login);
1917: END LOOP;
1918: -- Set OUT values
1919: x_okl_ins_claims_tl_rec := l_okl_ins_claims_tl_rec;
1920: x_return_status := l_return_status;
1915: l_okl_ins_claims_tl_rec.last_update_date,
1916: l_okl_ins_claims_tl_rec.last_update_login);
1917: END LOOP;
1918: -- Set OUT values
1919: x_okl_ins_claims_tl_rec := l_okl_ins_claims_tl_rec;
1920: x_return_status := l_return_status;
1921: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1922: EXCEPTION
1923: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1968: l_clmv_rec clmv_rec_type := p_clmv_rec;
1969: l_def_clmv_rec clmv_rec_type;
1970: l_clm_rec clm_rec_type;
1971: lx_clm_rec clm_rec_type;
1972: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
1973: lx_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
1974:
1975: -- SMODUGA added for claim number generation . Bug 3234773
1976: l_policy_number VARCHAR2(20);
1969: l_def_clmv_rec clmv_rec_type;
1970: l_clm_rec clm_rec_type;
1971: lx_clm_rec clm_rec_type;
1972: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
1973: lx_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
1974:
1975: -- SMODUGA added for claim number generation . Bug 3234773
1976: l_policy_number VARCHAR2(20);
1977: l_ipy_type VARCHAR2(30);
2201: -----------------------------------------
2202: -- Move VIEW record to "Child" records --
2203: -----------------------------------------
2204: migrate(l_def_clmv_rec, l_clm_rec);
2205: migrate(l_def_clmv_rec, l_okl_ins_claims_tl_rec);
2206: -----------------------------------------------
2207: -- Call the INSERT_ROW for each child record --
2208: -----------------------------------------------
2209: insert_row(
2224: p_init_msg_list,
2225: l_return_status,
2226: x_msg_count,
2227: x_msg_data,
2228: l_okl_ins_claims_tl_rec,
2229: lx_okl_ins_claims_tl_rec
2230: );
2231: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2232: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2225: l_return_status,
2226: x_msg_count,
2227: x_msg_data,
2228: l_okl_ins_claims_tl_rec,
2229: lx_okl_ins_claims_tl_rec
2230: );
2231: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2232: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2233: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2232: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2233: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2234: RAISE OKC_API.G_EXCEPTION_ERROR;
2235: END IF;
2236: migrate(lx_okl_ins_claims_tl_rec, l_def_clmv_rec);
2237: -- Set OUT values
2238: x_clmv_rec := l_def_clmv_rec;
2239: x_return_status := l_return_status;
2240: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2535: '_PVT'
2536: );
2537: END lock_row;
2538: ------------------------------------
2539: -- lock_row for:OKL_INS_CLAIMS_TL --
2540: ------------------------------------
2541: PROCEDURE lock_row(
2542: p_init_msg_list IN VARCHAR2 ,
2543: x_return_status OUT NOCOPY VARCHAR2,
2542: p_init_msg_list IN VARCHAR2 ,
2543: x_return_status OUT NOCOPY VARCHAR2,
2544: x_msg_count OUT NOCOPY NUMBER,
2545: x_msg_data OUT NOCOPY VARCHAR2,
2546: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type) IS
2547: E_Resource_Busy EXCEPTION;
2548: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2549: CURSOR lock_csr (p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type) IS
2550: SELECT *
2545: x_msg_data OUT NOCOPY VARCHAR2,
2546: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type) IS
2547: E_Resource_Busy EXCEPTION;
2548: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2549: CURSOR lock_csr (p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type) IS
2550: SELECT *
2551: FROM OKL_INS_CLAIMS_TL
2552: WHERE ID = p_okl_ins_claims_tl_rec.id
2553: FOR UPDATE NOWAIT;
2547: E_Resource_Busy EXCEPTION;
2548: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2549: CURSOR lock_csr (p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type) IS
2550: SELECT *
2551: FROM OKL_INS_CLAIMS_TL
2552: WHERE ID = p_okl_ins_claims_tl_rec.id
2553: FOR UPDATE NOWAIT;
2554: l_api_version CONSTANT NUMBER := 1;
2555: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
2548: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2549: CURSOR lock_csr (p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type) IS
2550: SELECT *
2551: FROM OKL_INS_CLAIMS_TL
2552: WHERE ID = p_okl_ins_claims_tl_rec.id
2553: FOR UPDATE NOWAIT;
2554: l_api_version CONSTANT NUMBER := 1;
2555: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
2556: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2567: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2568: RAISE OKC_API.G_EXCEPTION_ERROR;
2569: END IF;
2570: BEGIN
2571: OPEN lock_csr(p_okl_ins_claims_tl_rec);
2572: FETCH lock_csr INTO l_lock_var;
2573: l_row_notfound := lock_csr%NOTFOUND;
2574: CLOSE lock_csr;
2575: EXCEPTION
2631: l_api_version CONSTANT NUMBER := 1;
2632: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2633: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2634: l_clm_rec clm_rec_type;
2635: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
2636: BEGIN
2637: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2638: G_PKG_NAME,
2639: p_init_msg_list,
2649: -----------------------------------------
2650: -- Move VIEW record to "Child" records --
2651: -----------------------------------------
2652: migrate(p_clmv_rec, l_clm_rec);
2653: migrate(p_clmv_rec, l_okl_ins_claims_tl_rec);
2654: ---------------------------------------------
2655: -- Call the LOCK_ROW for each child record --
2656: ---------------------------------------------
2657: lock_row(
2670: p_init_msg_list,
2671: l_return_status,
2672: x_msg_count,
2673: x_msg_data,
2674: l_okl_ins_claims_tl_rec
2675: );
2676: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2677: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2678: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3165: '_PVT'
3166: );
3167: END update_row;
3168: --------------------------------------
3169: -- update_row for:OKL_INS_CLAIMS_TL --
3170: --------------------------------------
3171: PROCEDURE update_row(
3172: p_init_msg_list IN VARCHAR2 ,
3173: x_return_status OUT NOCOPY VARCHAR2,
3172: p_init_msg_list IN VARCHAR2 ,
3173: x_return_status OUT NOCOPY VARCHAR2,
3174: x_msg_count OUT NOCOPY NUMBER,
3175: x_msg_data OUT NOCOPY VARCHAR2,
3176: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type,
3177: x_okl_ins_claims_tl_rec OUT NOCOPY okl_ins_claims_tl_rec_type) IS
3178: l_api_version CONSTANT NUMBER := 1;
3179: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
3180: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3173: x_return_status OUT NOCOPY VARCHAR2,
3174: x_msg_count OUT NOCOPY NUMBER,
3175: x_msg_data OUT NOCOPY VARCHAR2,
3176: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type,
3177: x_okl_ins_claims_tl_rec OUT NOCOPY okl_ins_claims_tl_rec_type) IS
3178: l_api_version CONSTANT NUMBER := 1;
3179: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
3180: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3181: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type := p_okl_ins_claims_tl_rec;
3177: x_okl_ins_claims_tl_rec OUT NOCOPY okl_ins_claims_tl_rec_type) IS
3178: l_api_version CONSTANT NUMBER := 1;
3179: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
3180: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3181: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type := p_okl_ins_claims_tl_rec;
3182: l_def_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
3183: l_row_notfound BOOLEAN := TRUE;
3184: ----------------------------------
3185: -- FUNCTION populate_new_record --
3178: l_api_version CONSTANT NUMBER := 1;
3179: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
3180: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3181: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type := p_okl_ins_claims_tl_rec;
3182: l_def_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
3183: l_row_notfound BOOLEAN := TRUE;
3184: ----------------------------------
3185: -- FUNCTION populate_new_record --
3186: ----------------------------------
3184: ----------------------------------
3185: -- FUNCTION populate_new_record --
3186: ----------------------------------
3187: FUNCTION populate_new_record (
3188: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type,
3189: x_okl_ins_claims_tl_rec OUT NOCOPY okl_ins_claims_tl_rec_type
3190: ) RETURN VARCHAR2 IS
3191: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
3192: l_row_notfound BOOLEAN := TRUE;
3185: -- FUNCTION populate_new_record --
3186: ----------------------------------
3187: FUNCTION populate_new_record (
3188: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type,
3189: x_okl_ins_claims_tl_rec OUT NOCOPY okl_ins_claims_tl_rec_type
3190: ) RETURN VARCHAR2 IS
3191: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
3192: l_row_notfound BOOLEAN := TRUE;
3193: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3187: FUNCTION populate_new_record (
3188: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type,
3189: x_okl_ins_claims_tl_rec OUT NOCOPY okl_ins_claims_tl_rec_type
3190: ) RETURN VARCHAR2 IS
3191: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
3192: l_row_notfound BOOLEAN := TRUE;
3193: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3194: BEGIN
3195: x_okl_ins_claims_tl_rec := p_okl_ins_claims_tl_rec;
3191: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
3192: l_row_notfound BOOLEAN := TRUE;
3193: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3194: BEGIN
3195: x_okl_ins_claims_tl_rec := p_okl_ins_claims_tl_rec;
3196: -- Get current database values
3197: l_okl_ins_claims_tl_rec := get_rec(p_okl_ins_claims_tl_rec, l_return_status);
3198: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
3199: IF (x_okl_ins_claims_tl_rec.id = OKC_API.G_MISS_NUM)
3193: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3194: BEGIN
3195: x_okl_ins_claims_tl_rec := p_okl_ins_claims_tl_rec;
3196: -- Get current database values
3197: l_okl_ins_claims_tl_rec := get_rec(p_okl_ins_claims_tl_rec, l_return_status);
3198: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
3199: IF (x_okl_ins_claims_tl_rec.id = OKC_API.G_MISS_NUM)
3200: THEN
3201: x_okl_ins_claims_tl_rec.id := l_okl_ins_claims_tl_rec.id;
3195: x_okl_ins_claims_tl_rec := p_okl_ins_claims_tl_rec;
3196: -- Get current database values
3197: l_okl_ins_claims_tl_rec := get_rec(p_okl_ins_claims_tl_rec, l_return_status);
3198: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
3199: IF (x_okl_ins_claims_tl_rec.id = OKC_API.G_MISS_NUM)
3200: THEN
3201: x_okl_ins_claims_tl_rec.id := l_okl_ins_claims_tl_rec.id;
3202: END IF;
3203: IF (x_okl_ins_claims_tl_rec.language = OKC_API.G_MISS_CHAR)
3197: l_okl_ins_claims_tl_rec := get_rec(p_okl_ins_claims_tl_rec, l_return_status);
3198: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
3199: IF (x_okl_ins_claims_tl_rec.id = OKC_API.G_MISS_NUM)
3200: THEN
3201: x_okl_ins_claims_tl_rec.id := l_okl_ins_claims_tl_rec.id;
3202: END IF;
3203: IF (x_okl_ins_claims_tl_rec.language = OKC_API.G_MISS_CHAR)
3204: THEN
3205: x_okl_ins_claims_tl_rec.language := l_okl_ins_claims_tl_rec.language;
3199: IF (x_okl_ins_claims_tl_rec.id = OKC_API.G_MISS_NUM)
3200: THEN
3201: x_okl_ins_claims_tl_rec.id := l_okl_ins_claims_tl_rec.id;
3202: END IF;
3203: IF (x_okl_ins_claims_tl_rec.language = OKC_API.G_MISS_CHAR)
3204: THEN
3205: x_okl_ins_claims_tl_rec.language := l_okl_ins_claims_tl_rec.language;
3206: END IF;
3207: IF (x_okl_ins_claims_tl_rec.description = OKC_API.G_MISS_CHAR)
3201: x_okl_ins_claims_tl_rec.id := l_okl_ins_claims_tl_rec.id;
3202: END IF;
3203: IF (x_okl_ins_claims_tl_rec.language = OKC_API.G_MISS_CHAR)
3204: THEN
3205: x_okl_ins_claims_tl_rec.language := l_okl_ins_claims_tl_rec.language;
3206: END IF;
3207: IF (x_okl_ins_claims_tl_rec.description = OKC_API.G_MISS_CHAR)
3208: THEN
3209: x_okl_ins_claims_tl_rec.description := l_okl_ins_claims_tl_rec.description;
3203: IF (x_okl_ins_claims_tl_rec.language = OKC_API.G_MISS_CHAR)
3204: THEN
3205: x_okl_ins_claims_tl_rec.language := l_okl_ins_claims_tl_rec.language;
3206: END IF;
3207: IF (x_okl_ins_claims_tl_rec.description = OKC_API.G_MISS_CHAR)
3208: THEN
3209: x_okl_ins_claims_tl_rec.description := l_okl_ins_claims_tl_rec.description;
3210: END IF;
3211: IF (x_okl_ins_claims_tl_rec.police_report = OKC_API.G_MISS_CHAR)
3205: x_okl_ins_claims_tl_rec.language := l_okl_ins_claims_tl_rec.language;
3206: END IF;
3207: IF (x_okl_ins_claims_tl_rec.description = OKC_API.G_MISS_CHAR)
3208: THEN
3209: x_okl_ins_claims_tl_rec.description := l_okl_ins_claims_tl_rec.description;
3210: END IF;
3211: IF (x_okl_ins_claims_tl_rec.police_report = OKC_API.G_MISS_CHAR)
3212: THEN
3213: x_okl_ins_claims_tl_rec.police_report := l_okl_ins_claims_tl_rec.police_report;
3207: IF (x_okl_ins_claims_tl_rec.description = OKC_API.G_MISS_CHAR)
3208: THEN
3209: x_okl_ins_claims_tl_rec.description := l_okl_ins_claims_tl_rec.description;
3210: END IF;
3211: IF (x_okl_ins_claims_tl_rec.police_report = OKC_API.G_MISS_CHAR)
3212: THEN
3213: x_okl_ins_claims_tl_rec.police_report := l_okl_ins_claims_tl_rec.police_report;
3214: END IF;
3215: IF (x_okl_ins_claims_tl_rec.comments = OKC_API.G_MISS_CHAR)
3209: x_okl_ins_claims_tl_rec.description := l_okl_ins_claims_tl_rec.description;
3210: END IF;
3211: IF (x_okl_ins_claims_tl_rec.police_report = OKC_API.G_MISS_CHAR)
3212: THEN
3213: x_okl_ins_claims_tl_rec.police_report := l_okl_ins_claims_tl_rec.police_report;
3214: END IF;
3215: IF (x_okl_ins_claims_tl_rec.comments = OKC_API.G_MISS_CHAR)
3216: THEN
3217: x_okl_ins_claims_tl_rec.comments := l_okl_ins_claims_tl_rec.comments;
3211: IF (x_okl_ins_claims_tl_rec.police_report = OKC_API.G_MISS_CHAR)
3212: THEN
3213: x_okl_ins_claims_tl_rec.police_report := l_okl_ins_claims_tl_rec.police_report;
3214: END IF;
3215: IF (x_okl_ins_claims_tl_rec.comments = OKC_API.G_MISS_CHAR)
3216: THEN
3217: x_okl_ins_claims_tl_rec.comments := l_okl_ins_claims_tl_rec.comments;
3218: END IF;
3219: IF (x_okl_ins_claims_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3213: x_okl_ins_claims_tl_rec.police_report := l_okl_ins_claims_tl_rec.police_report;
3214: END IF;
3215: IF (x_okl_ins_claims_tl_rec.comments = OKC_API.G_MISS_CHAR)
3216: THEN
3217: x_okl_ins_claims_tl_rec.comments := l_okl_ins_claims_tl_rec.comments;
3218: END IF;
3219: IF (x_okl_ins_claims_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3220: THEN
3221: x_okl_ins_claims_tl_rec.source_lang := l_okl_ins_claims_tl_rec.source_lang;
3215: IF (x_okl_ins_claims_tl_rec.comments = OKC_API.G_MISS_CHAR)
3216: THEN
3217: x_okl_ins_claims_tl_rec.comments := l_okl_ins_claims_tl_rec.comments;
3218: END IF;
3219: IF (x_okl_ins_claims_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3220: THEN
3221: x_okl_ins_claims_tl_rec.source_lang := l_okl_ins_claims_tl_rec.source_lang;
3222: END IF;
3223: IF (x_okl_ins_claims_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3217: x_okl_ins_claims_tl_rec.comments := l_okl_ins_claims_tl_rec.comments;
3218: END IF;
3219: IF (x_okl_ins_claims_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3220: THEN
3221: x_okl_ins_claims_tl_rec.source_lang := l_okl_ins_claims_tl_rec.source_lang;
3222: END IF;
3223: IF (x_okl_ins_claims_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3224: THEN
3225: x_okl_ins_claims_tl_rec.sfwt_flag := l_okl_ins_claims_tl_rec.sfwt_flag;
3219: IF (x_okl_ins_claims_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3220: THEN
3221: x_okl_ins_claims_tl_rec.source_lang := l_okl_ins_claims_tl_rec.source_lang;
3222: END IF;
3223: IF (x_okl_ins_claims_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3224: THEN
3225: x_okl_ins_claims_tl_rec.sfwt_flag := l_okl_ins_claims_tl_rec.sfwt_flag;
3226: END IF;
3227: IF (x_okl_ins_claims_tl_rec.created_by = OKC_API.G_MISS_NUM)
3221: x_okl_ins_claims_tl_rec.source_lang := l_okl_ins_claims_tl_rec.source_lang;
3222: END IF;
3223: IF (x_okl_ins_claims_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3224: THEN
3225: x_okl_ins_claims_tl_rec.sfwt_flag := l_okl_ins_claims_tl_rec.sfwt_flag;
3226: END IF;
3227: IF (x_okl_ins_claims_tl_rec.created_by = OKC_API.G_MISS_NUM)
3228: THEN
3229: x_okl_ins_claims_tl_rec.created_by := l_okl_ins_claims_tl_rec.created_by;
3223: IF (x_okl_ins_claims_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3224: THEN
3225: x_okl_ins_claims_tl_rec.sfwt_flag := l_okl_ins_claims_tl_rec.sfwt_flag;
3226: END IF;
3227: IF (x_okl_ins_claims_tl_rec.created_by = OKC_API.G_MISS_NUM)
3228: THEN
3229: x_okl_ins_claims_tl_rec.created_by := l_okl_ins_claims_tl_rec.created_by;
3230: END IF;
3231: IF (x_okl_ins_claims_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3225: x_okl_ins_claims_tl_rec.sfwt_flag := l_okl_ins_claims_tl_rec.sfwt_flag;
3226: END IF;
3227: IF (x_okl_ins_claims_tl_rec.created_by = OKC_API.G_MISS_NUM)
3228: THEN
3229: x_okl_ins_claims_tl_rec.created_by := l_okl_ins_claims_tl_rec.created_by;
3230: END IF;
3231: IF (x_okl_ins_claims_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3232: THEN
3233: x_okl_ins_claims_tl_rec.creation_date := l_okl_ins_claims_tl_rec.creation_date;
3227: IF (x_okl_ins_claims_tl_rec.created_by = OKC_API.G_MISS_NUM)
3228: THEN
3229: x_okl_ins_claims_tl_rec.created_by := l_okl_ins_claims_tl_rec.created_by;
3230: END IF;
3231: IF (x_okl_ins_claims_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3232: THEN
3233: x_okl_ins_claims_tl_rec.creation_date := l_okl_ins_claims_tl_rec.creation_date;
3234: END IF;
3235: IF (x_okl_ins_claims_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3229: x_okl_ins_claims_tl_rec.created_by := l_okl_ins_claims_tl_rec.created_by;
3230: END IF;
3231: IF (x_okl_ins_claims_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3232: THEN
3233: x_okl_ins_claims_tl_rec.creation_date := l_okl_ins_claims_tl_rec.creation_date;
3234: END IF;
3235: IF (x_okl_ins_claims_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3236: THEN
3237: x_okl_ins_claims_tl_rec.last_updated_by := l_okl_ins_claims_tl_rec.last_updated_by;
3231: IF (x_okl_ins_claims_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3232: THEN
3233: x_okl_ins_claims_tl_rec.creation_date := l_okl_ins_claims_tl_rec.creation_date;
3234: END IF;
3235: IF (x_okl_ins_claims_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3236: THEN
3237: x_okl_ins_claims_tl_rec.last_updated_by := l_okl_ins_claims_tl_rec.last_updated_by;
3238: END IF;
3239: IF (x_okl_ins_claims_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3233: x_okl_ins_claims_tl_rec.creation_date := l_okl_ins_claims_tl_rec.creation_date;
3234: END IF;
3235: IF (x_okl_ins_claims_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3236: THEN
3237: x_okl_ins_claims_tl_rec.last_updated_by := l_okl_ins_claims_tl_rec.last_updated_by;
3238: END IF;
3239: IF (x_okl_ins_claims_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3240: THEN
3241: x_okl_ins_claims_tl_rec.last_update_date := l_okl_ins_claims_tl_rec.last_update_date;
3235: IF (x_okl_ins_claims_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3236: THEN
3237: x_okl_ins_claims_tl_rec.last_updated_by := l_okl_ins_claims_tl_rec.last_updated_by;
3238: END IF;
3239: IF (x_okl_ins_claims_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3240: THEN
3241: x_okl_ins_claims_tl_rec.last_update_date := l_okl_ins_claims_tl_rec.last_update_date;
3242: END IF;
3243: IF (x_okl_ins_claims_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
3237: x_okl_ins_claims_tl_rec.last_updated_by := l_okl_ins_claims_tl_rec.last_updated_by;
3238: END IF;
3239: IF (x_okl_ins_claims_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3240: THEN
3241: x_okl_ins_claims_tl_rec.last_update_date := l_okl_ins_claims_tl_rec.last_update_date;
3242: END IF;
3243: IF (x_okl_ins_claims_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
3244: THEN
3245: x_okl_ins_claims_tl_rec.last_update_login := l_okl_ins_claims_tl_rec.last_update_login;
3239: IF (x_okl_ins_claims_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3240: THEN
3241: x_okl_ins_claims_tl_rec.last_update_date := l_okl_ins_claims_tl_rec.last_update_date;
3242: END IF;
3243: IF (x_okl_ins_claims_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
3244: THEN
3245: x_okl_ins_claims_tl_rec.last_update_login := l_okl_ins_claims_tl_rec.last_update_login;
3246: END IF;
3247: END IF;
3241: x_okl_ins_claims_tl_rec.last_update_date := l_okl_ins_claims_tl_rec.last_update_date;
3242: END IF;
3243: IF (x_okl_ins_claims_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
3244: THEN
3245: x_okl_ins_claims_tl_rec.last_update_login := l_okl_ins_claims_tl_rec.last_update_login;
3246: END IF;
3247: END IF;
3248: RETURN(l_return_status);
3249: END populate_new_record;
3247: END IF;
3248: RETURN(l_return_status);
3249: END populate_new_record;
3250: ------------------------------------------
3251: -- Set_Attributes for:OKL_INS_CLAIMS_TL --
3252: ------------------------------------------
3253: FUNCTION Set_Attributes (
3254: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type,
3255: x_okl_ins_claims_tl_rec OUT NOCOPY okl_ins_claims_tl_rec_type
3250: ------------------------------------------
3251: -- Set_Attributes for:OKL_INS_CLAIMS_TL --
3252: ------------------------------------------
3253: FUNCTION Set_Attributes (
3254: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type,
3255: x_okl_ins_claims_tl_rec OUT NOCOPY okl_ins_claims_tl_rec_type
3256: ) RETURN VARCHAR2 IS
3257: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3258: BEGIN
3251: -- Set_Attributes for:OKL_INS_CLAIMS_TL --
3252: ------------------------------------------
3253: FUNCTION Set_Attributes (
3254: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type,
3255: x_okl_ins_claims_tl_rec OUT NOCOPY okl_ins_claims_tl_rec_type
3256: ) RETURN VARCHAR2 IS
3257: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3258: BEGIN
3259: x_okl_ins_claims_tl_rec := p_okl_ins_claims_tl_rec;
3255: x_okl_ins_claims_tl_rec OUT NOCOPY okl_ins_claims_tl_rec_type
3256: ) RETURN VARCHAR2 IS
3257: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3258: BEGIN
3259: x_okl_ins_claims_tl_rec := p_okl_ins_claims_tl_rec;
3260: x_okl_ins_claims_tl_rec.LANGUAGE := USERENV('LANG');
3261: x_okl_ins_claims_tl_rec.LANGUAGE := USERENV('LANG');
3262: RETURN(l_return_status);
3263: END Set_Attributes;
3256: ) RETURN VARCHAR2 IS
3257: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3258: BEGIN
3259: x_okl_ins_claims_tl_rec := p_okl_ins_claims_tl_rec;
3260: x_okl_ins_claims_tl_rec.LANGUAGE := USERENV('LANG');
3261: x_okl_ins_claims_tl_rec.LANGUAGE := USERENV('LANG');
3262: RETURN(l_return_status);
3263: END Set_Attributes;
3264: BEGIN
3257: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3258: BEGIN
3259: x_okl_ins_claims_tl_rec := p_okl_ins_claims_tl_rec;
3260: x_okl_ins_claims_tl_rec.LANGUAGE := USERENV('LANG');
3261: x_okl_ins_claims_tl_rec.LANGUAGE := USERENV('LANG');
3262: RETURN(l_return_status);
3263: END Set_Attributes;
3264: BEGIN
3265: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3272: RAISE OKC_API.G_EXCEPTION_ERROR;
3273: END IF;
3274: --- Setting item attributes
3275: l_return_status := Set_Attributes(
3276: p_okl_ins_claims_tl_rec, -- IN
3277: l_okl_ins_claims_tl_rec); -- OUT
3278: --- If any errors happen abort API
3279: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3280: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3273: END IF;
3274: --- Setting item attributes
3275: l_return_status := Set_Attributes(
3276: p_okl_ins_claims_tl_rec, -- IN
3277: l_okl_ins_claims_tl_rec); -- OUT
3278: --- If any errors happen abort API
3279: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3280: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3281: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3280: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3281: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3282: RAISE OKC_API.G_EXCEPTION_ERROR;
3283: END IF;
3284: l_return_status := populate_new_record(l_okl_ins_claims_tl_rec, l_def_okl_ins_claims_tl_rec);
3285: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3286: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3287: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3288: RAISE OKC_API.G_EXCEPTION_ERROR;
3286: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3287: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3288: RAISE OKC_API.G_EXCEPTION_ERROR;
3289: END IF;
3290: UPDATE OKL_INS_CLAIMS_TL
3291: SET DESCRIPTION = l_def_okl_ins_claims_tl_rec.description,
3292: SOURCE_LANG = l_def_okl_ins_claims_tl_rec.source_lang, --Smoduga added for bug 3637102
3293: POLICE_REPORT = l_def_okl_ins_claims_tl_rec.police_report,
3294: COMMENTS = l_def_okl_ins_claims_tl_rec.comments,
3287: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3288: RAISE OKC_API.G_EXCEPTION_ERROR;
3289: END IF;
3290: UPDATE OKL_INS_CLAIMS_TL
3291: SET DESCRIPTION = l_def_okl_ins_claims_tl_rec.description,
3292: SOURCE_LANG = l_def_okl_ins_claims_tl_rec.source_lang, --Smoduga added for bug 3637102
3293: POLICE_REPORT = l_def_okl_ins_claims_tl_rec.police_report,
3294: COMMENTS = l_def_okl_ins_claims_tl_rec.comments,
3295: CREATED_BY = l_def_okl_ins_claims_tl_rec.created_by,
3288: RAISE OKC_API.G_EXCEPTION_ERROR;
3289: END IF;
3290: UPDATE OKL_INS_CLAIMS_TL
3291: SET DESCRIPTION = l_def_okl_ins_claims_tl_rec.description,
3292: SOURCE_LANG = l_def_okl_ins_claims_tl_rec.source_lang, --Smoduga added for bug 3637102
3293: POLICE_REPORT = l_def_okl_ins_claims_tl_rec.police_report,
3294: COMMENTS = l_def_okl_ins_claims_tl_rec.comments,
3295: CREATED_BY = l_def_okl_ins_claims_tl_rec.created_by,
3296: CREATION_DATE = l_def_okl_ins_claims_tl_rec.creation_date,
3289: END IF;
3290: UPDATE OKL_INS_CLAIMS_TL
3291: SET DESCRIPTION = l_def_okl_ins_claims_tl_rec.description,
3292: SOURCE_LANG = l_def_okl_ins_claims_tl_rec.source_lang, --Smoduga added for bug 3637102
3293: POLICE_REPORT = l_def_okl_ins_claims_tl_rec.police_report,
3294: COMMENTS = l_def_okl_ins_claims_tl_rec.comments,
3295: CREATED_BY = l_def_okl_ins_claims_tl_rec.created_by,
3296: CREATION_DATE = l_def_okl_ins_claims_tl_rec.creation_date,
3297: LAST_UPDATED_BY = l_def_okl_ins_claims_tl_rec.last_updated_by,
3290: UPDATE OKL_INS_CLAIMS_TL
3291: SET DESCRIPTION = l_def_okl_ins_claims_tl_rec.description,
3292: SOURCE_LANG = l_def_okl_ins_claims_tl_rec.source_lang, --Smoduga added for bug 3637102
3293: POLICE_REPORT = l_def_okl_ins_claims_tl_rec.police_report,
3294: COMMENTS = l_def_okl_ins_claims_tl_rec.comments,
3295: CREATED_BY = l_def_okl_ins_claims_tl_rec.created_by,
3296: CREATION_DATE = l_def_okl_ins_claims_tl_rec.creation_date,
3297: LAST_UPDATED_BY = l_def_okl_ins_claims_tl_rec.last_updated_by,
3298: LAST_UPDATE_DATE = l_def_okl_ins_claims_tl_rec.last_update_date,
3291: SET DESCRIPTION = l_def_okl_ins_claims_tl_rec.description,
3292: SOURCE_LANG = l_def_okl_ins_claims_tl_rec.source_lang, --Smoduga added for bug 3637102
3293: POLICE_REPORT = l_def_okl_ins_claims_tl_rec.police_report,
3294: COMMENTS = l_def_okl_ins_claims_tl_rec.comments,
3295: CREATED_BY = l_def_okl_ins_claims_tl_rec.created_by,
3296: CREATION_DATE = l_def_okl_ins_claims_tl_rec.creation_date,
3297: LAST_UPDATED_BY = l_def_okl_ins_claims_tl_rec.last_updated_by,
3298: LAST_UPDATE_DATE = l_def_okl_ins_claims_tl_rec.last_update_date,
3299: LAST_UPDATE_LOGIN = l_def_okl_ins_claims_tl_rec.last_update_login
3292: SOURCE_LANG = l_def_okl_ins_claims_tl_rec.source_lang, --Smoduga added for bug 3637102
3293: POLICE_REPORT = l_def_okl_ins_claims_tl_rec.police_report,
3294: COMMENTS = l_def_okl_ins_claims_tl_rec.comments,
3295: CREATED_BY = l_def_okl_ins_claims_tl_rec.created_by,
3296: CREATION_DATE = l_def_okl_ins_claims_tl_rec.creation_date,
3297: LAST_UPDATED_BY = l_def_okl_ins_claims_tl_rec.last_updated_by,
3298: LAST_UPDATE_DATE = l_def_okl_ins_claims_tl_rec.last_update_date,
3299: LAST_UPDATE_LOGIN = l_def_okl_ins_claims_tl_rec.last_update_login
3300: WHERE ID = l_def_okl_ins_claims_tl_rec.id
3293: POLICE_REPORT = l_def_okl_ins_claims_tl_rec.police_report,
3294: COMMENTS = l_def_okl_ins_claims_tl_rec.comments,
3295: CREATED_BY = l_def_okl_ins_claims_tl_rec.created_by,
3296: CREATION_DATE = l_def_okl_ins_claims_tl_rec.creation_date,
3297: LAST_UPDATED_BY = l_def_okl_ins_claims_tl_rec.last_updated_by,
3298: LAST_UPDATE_DATE = l_def_okl_ins_claims_tl_rec.last_update_date,
3299: LAST_UPDATE_LOGIN = l_def_okl_ins_claims_tl_rec.last_update_login
3300: WHERE ID = l_def_okl_ins_claims_tl_rec.id
3301: AND USERENV('LANG') in (SOURCE_LANG,LANGUAGE); --Fix for 3637102 added
3294: COMMENTS = l_def_okl_ins_claims_tl_rec.comments,
3295: CREATED_BY = l_def_okl_ins_claims_tl_rec.created_by,
3296: CREATION_DATE = l_def_okl_ins_claims_tl_rec.creation_date,
3297: LAST_UPDATED_BY = l_def_okl_ins_claims_tl_rec.last_updated_by,
3298: LAST_UPDATE_DATE = l_def_okl_ins_claims_tl_rec.last_update_date,
3299: LAST_UPDATE_LOGIN = l_def_okl_ins_claims_tl_rec.last_update_login
3300: WHERE ID = l_def_okl_ins_claims_tl_rec.id
3301: AND USERENV('LANG') in (SOURCE_LANG,LANGUAGE); --Fix for 3637102 added
3302: -- LANGUAGE
3295: CREATED_BY = l_def_okl_ins_claims_tl_rec.created_by,
3296: CREATION_DATE = l_def_okl_ins_claims_tl_rec.creation_date,
3297: LAST_UPDATED_BY = l_def_okl_ins_claims_tl_rec.last_updated_by,
3298: LAST_UPDATE_DATE = l_def_okl_ins_claims_tl_rec.last_update_date,
3299: LAST_UPDATE_LOGIN = l_def_okl_ins_claims_tl_rec.last_update_login
3300: WHERE ID = l_def_okl_ins_claims_tl_rec.id
3301: AND USERENV('LANG') in (SOURCE_LANG,LANGUAGE); --Fix for 3637102 added
3302: -- LANGUAGE
3303: UPDATE OKL_INS_CLAIMS_TL
3296: CREATION_DATE = l_def_okl_ins_claims_tl_rec.creation_date,
3297: LAST_UPDATED_BY = l_def_okl_ins_claims_tl_rec.last_updated_by,
3298: LAST_UPDATE_DATE = l_def_okl_ins_claims_tl_rec.last_update_date,
3299: LAST_UPDATE_LOGIN = l_def_okl_ins_claims_tl_rec.last_update_login
3300: WHERE ID = l_def_okl_ins_claims_tl_rec.id
3301: AND USERENV('LANG') in (SOURCE_LANG,LANGUAGE); --Fix for 3637102 added
3302: -- LANGUAGE
3303: UPDATE OKL_INS_CLAIMS_TL
3304: SET SFWT_FLAG = 'Y'
3299: LAST_UPDATE_LOGIN = l_def_okl_ins_claims_tl_rec.last_update_login
3300: WHERE ID = l_def_okl_ins_claims_tl_rec.id
3301: AND USERENV('LANG') in (SOURCE_LANG,LANGUAGE); --Fix for 3637102 added
3302: -- LANGUAGE
3303: UPDATE OKL_INS_CLAIMS_TL
3304: SET SFWT_FLAG = 'Y'
3305: WHERE ID = l_def_okl_ins_claims_tl_rec.id
3306: AND SOURCE_LANG <> USERENV('LANG');
3307: x_okl_ins_claims_tl_rec := l_okl_ins_claims_tl_rec;
3301: AND USERENV('LANG') in (SOURCE_LANG,LANGUAGE); --Fix for 3637102 added
3302: -- LANGUAGE
3303: UPDATE OKL_INS_CLAIMS_TL
3304: SET SFWT_FLAG = 'Y'
3305: WHERE ID = l_def_okl_ins_claims_tl_rec.id
3306: AND SOURCE_LANG <> USERENV('LANG');
3307: x_okl_ins_claims_tl_rec := l_okl_ins_claims_tl_rec;
3308: x_return_status := l_return_status;
3309: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3303: UPDATE OKL_INS_CLAIMS_TL
3304: SET SFWT_FLAG = 'Y'
3305: WHERE ID = l_def_okl_ins_claims_tl_rec.id
3306: AND SOURCE_LANG <> USERENV('LANG');
3307: x_okl_ins_claims_tl_rec := l_okl_ins_claims_tl_rec;
3308: x_return_status := l_return_status;
3309: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3310: EXCEPTION
3311: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3357: l_def_clmv_rec clmv_rec_type;
3358: l_db_clmv_rec clmv_rec_type;
3359: l_clm_rec clm_rec_type;
3360: lx_clm_rec clm_rec_type;
3361: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
3362: lx_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
3363: -------------------------------
3364: -- FUNCTION fill_who_columns --
3365: -------------------------------
3358: l_db_clmv_rec clmv_rec_type;
3359: l_clm_rec clm_rec_type;
3360: lx_clm_rec clm_rec_type;
3361: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
3362: lx_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
3363: -------------------------------
3364: -- FUNCTION fill_who_columns --
3365: -------------------------------
3366: FUNCTION fill_who_columns (
3622: -----------------------------------------
3623: -- Move VIEW record to "Child" records --
3624: -----------------------------------------
3625: migrate(l_def_clmv_rec, l_clm_rec);
3626: migrate(l_def_clmv_rec, l_okl_ins_claims_tl_rec);
3627: -----------------------------------------------
3628: -- Call the UPDATE_ROW for each child record --
3629: -----------------------------------------------
3630: update_row(
3645: p_init_msg_list,
3646: l_return_status,
3647: x_msg_count,
3648: x_msg_data,
3649: l_okl_ins_claims_tl_rec,
3650: lx_okl_ins_claims_tl_rec
3651: );
3652: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3653: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3646: l_return_status,
3647: x_msg_count,
3648: x_msg_data,
3649: l_okl_ins_claims_tl_rec,
3650: lx_okl_ins_claims_tl_rec
3651: );
3652: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3653: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3654: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3653: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3654: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3655: RAISE OKC_API.G_EXCEPTION_ERROR;
3656: END IF;
3657: migrate(lx_okl_ins_claims_tl_rec, l_def_clmv_rec);
3658: x_clmv_rec := l_def_clmv_rec;
3659: x_return_status := l_return_status;
3660: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3661: EXCEPTION
3911: '_PVT'
3912: );
3913: END delete_row;
3914: --------------------------------------
3915: -- delete_row for:OKL_INS_CLAIMS_TL --
3916: --------------------------------------
3917: PROCEDURE delete_row(
3918: p_init_msg_list IN VARCHAR2 ,
3919: x_return_status OUT NOCOPY VARCHAR2,
3918: p_init_msg_list IN VARCHAR2 ,
3919: x_return_status OUT NOCOPY VARCHAR2,
3920: x_msg_count OUT NOCOPY NUMBER,
3921: x_msg_data OUT NOCOPY VARCHAR2,
3922: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type) IS
3923: l_api_version CONSTANT NUMBER := 1;
3924: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3925: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3926: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type := p_okl_ins_claims_tl_rec;
3922: p_okl_ins_claims_tl_rec IN okl_ins_claims_tl_rec_type) IS
3923: l_api_version CONSTANT NUMBER := 1;
3924: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3925: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3926: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type := p_okl_ins_claims_tl_rec;
3927: l_row_notfound BOOLEAN := TRUE;
3928: BEGIN
3929: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3930: p_init_msg_list,
3934: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3935: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3936: RAISE OKC_API.G_EXCEPTION_ERROR;
3937: END IF;
3938: DELETE FROM OKL_INS_CLAIMS_TL
3939: WHERE ID = p_okl_ins_claims_tl_rec.id;
3940: x_return_status := l_return_status;
3941: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3942: EXCEPTION
3935: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3936: RAISE OKC_API.G_EXCEPTION_ERROR;
3937: END IF;
3938: DELETE FROM OKL_INS_CLAIMS_TL
3939: WHERE ID = p_okl_ins_claims_tl_rec.id;
3940: x_return_status := l_return_status;
3941: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3942: EXCEPTION
3943: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3984: l_api_version CONSTANT NUMBER := 1;
3985: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3986: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3987: l_clmv_rec clmv_rec_type := p_clmv_rec;
3988: l_okl_ins_claims_tl_rec okl_ins_claims_tl_rec_type;
3989: l_clm_rec clm_rec_type;
3990: BEGIN
3991: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3992: G_PKG_NAME,
4002: END IF;
4003: -----------------------------------------
4004: -- Move VIEW record to "Child" records --
4005: -----------------------------------------
4006: migrate(l_clmv_rec, l_okl_ins_claims_tl_rec);
4007: migrate(l_clmv_rec, l_clm_rec);
4008: -----------------------------------------------
4009: -- Call the DELETE_ROW for each child record --
4010: -----------------------------------------------
4012: p_init_msg_list,
4013: l_return_status,
4014: x_msg_count,
4015: x_msg_data,
4016: l_okl_ins_claims_tl_rec
4017: );
4018: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4019: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4020: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN