[Home] [Help]
411: -- PROCEDURE add_language
412: ---------------------------------------------------------------------------
413: PROCEDURE add_language IS
414: BEGIN
415: DELETE FROM OKC_QA_CHECK_LISTS_TL T
416: WHERE NOT EXISTS (
417: SELECT NULL
418: FROM OKC_QA_CHECK_LISTS_B B
419: WHERE B.ID = T.ID
418: FROM OKC_QA_CHECK_LISTS_B B
419: WHERE B.ID = T.ID
420: );
421:
422: UPDATE OKC_QA_CHECK_LISTS_TL T SET (
423: NAME,
424: SHORT_DESCRIPTION) = (SELECT
425: B.NAME,
426: B.SHORT_DESCRIPTION
423: NAME,
424: SHORT_DESCRIPTION) = (SELECT
425: B.NAME,
426: B.SHORT_DESCRIPTION
427: FROM OKC_QA_CHECK_LISTS_TL B
428: WHERE B.ID = T.ID
429: AND B.LANGUAGE = T.SOURCE_LANG)
430: WHERE (
431: T.ID,
432: T.LANGUAGE)
433: IN (SELECT
434: SUBT.ID,
435: SUBT.LANGUAGE
436: FROM OKC_QA_CHECK_LISTS_TL SUBB, OKC_QA_CHECK_LISTS_TL SUBT
437: WHERE SUBB.ID = SUBT.ID
438: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
439: AND (SUBB.NAME <> SUBT.NAME
440: OR SUBB.SHORT_DESCRIPTION <> SUBT.SHORT_DESCRIPTION
441: OR (SUBB.SHORT_DESCRIPTION IS NULL AND SUBT.SHORT_DESCRIPTION IS NOT NULL)
442: OR (SUBB.SHORT_DESCRIPTION IS NOT NULL AND SUBT.SHORT_DESCRIPTION IS NULL)
443: ));
444:
445: INSERT INTO OKC_QA_CHECK_LISTS_TL (
446: ID,
447: LANGUAGE,
448: SOURCE_LANG,
449: SFWT_FLAG,
465: B.CREATION_DATE,
466: B.LAST_UPDATED_BY,
467: B.LAST_UPDATE_DATE,
468: B.LAST_UPDATE_LOGIN
469: FROM OKC_QA_CHECK_LISTS_TL B, FND_LANGUAGES L
470: WHERE L.INSTALLED_FLAG IN ('I', 'B')
471: AND B.LANGUAGE = USERENV('LANG')
472: AND NOT EXISTS(
473: SELECT NULL
470: WHERE L.INSTALLED_FLAG IN ('I', 'B')
471: AND B.LANGUAGE = USERENV('LANG')
472: AND NOT EXISTS(
473: SELECT NULL
474: FROM OKC_QA_CHECK_LISTS_TL T
475: WHERE T.ID = B.ID
476: AND T.LANGUAGE = L.LANGUAGE_CODE
477: );
478:
562: BEGIN
563: RETURN(get_rec(p_qcl_rec, l_row_notfound));
564: END get_rec;
565: ---------------------------------------------------------------------------
566: -- FUNCTION get_rec for: OKC_QA_CHECK_LISTS_TL
567: ---------------------------------------------------------------------------
568: FUNCTION get_rec (
569: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type,
570: x_no_data_found OUT NOCOPY BOOLEAN
565: ---------------------------------------------------------------------------
566: -- FUNCTION get_rec for: OKC_QA_CHECK_LISTS_TL
567: ---------------------------------------------------------------------------
568: FUNCTION get_rec (
569: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type,
570: x_no_data_found OUT NOCOPY BOOLEAN
571: ) RETURN okc_qa_check_lists_tl_rec_type IS
572: CURSOR qcl_pktl_csr (p_id IN NUMBER,
573: p_language IN VARCHAR2) IS
567: ---------------------------------------------------------------------------
568: FUNCTION get_rec (
569: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type,
570: x_no_data_found OUT NOCOPY BOOLEAN
571: ) RETURN okc_qa_check_lists_tl_rec_type IS
572: CURSOR qcl_pktl_csr (p_id IN NUMBER,
573: p_language IN VARCHAR2) IS
574: SELECT
575: ID,
582: CREATION_DATE,
583: LAST_UPDATED_BY,
584: LAST_UPDATE_DATE,
585: LAST_UPDATE_LOGIN
586: FROM Okc_Qa_Check_Lists_Tl
587: WHERE okc_qa_check_lists_tl.id = p_id
588: AND okc_qa_check_lists_tl.language = p_language;
589: l_qcl_pktl qcl_pktl_csr%ROWTYPE;
590: l_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type;
583: LAST_UPDATED_BY,
584: LAST_UPDATE_DATE,
585: LAST_UPDATE_LOGIN
586: FROM Okc_Qa_Check_Lists_Tl
587: WHERE okc_qa_check_lists_tl.id = p_id
588: AND okc_qa_check_lists_tl.language = p_language;
589: l_qcl_pktl qcl_pktl_csr%ROWTYPE;
590: l_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type;
591: BEGIN
584: LAST_UPDATE_DATE,
585: LAST_UPDATE_LOGIN
586: FROM Okc_Qa_Check_Lists_Tl
587: WHERE okc_qa_check_lists_tl.id = p_id
588: AND okc_qa_check_lists_tl.language = p_language;
589: l_qcl_pktl qcl_pktl_csr%ROWTYPE;
590: l_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type;
591: BEGIN
592: x_no_data_found := TRUE;
586: FROM Okc_Qa_Check_Lists_Tl
587: WHERE okc_qa_check_lists_tl.id = p_id
588: AND okc_qa_check_lists_tl.language = p_language;
589: l_qcl_pktl qcl_pktl_csr%ROWTYPE;
590: l_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type;
591: BEGIN
592: x_no_data_found := TRUE;
593: -- Get current database values
594: OPEN qcl_pktl_csr (p_okc_qa_check_lists_tl_rec.id,
590: l_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type;
591: BEGIN
592: x_no_data_found := TRUE;
593: -- Get current database values
594: OPEN qcl_pktl_csr (p_okc_qa_check_lists_tl_rec.id,
595: p_okc_qa_check_lists_tl_rec.language);
596: FETCH qcl_pktl_csr INTO
597: l_okc_qa_check_lists_tl_rec.ID,
598: l_okc_qa_check_lists_tl_rec.LANGUAGE,
591: BEGIN
592: x_no_data_found := TRUE;
593: -- Get current database values
594: OPEN qcl_pktl_csr (p_okc_qa_check_lists_tl_rec.id,
595: p_okc_qa_check_lists_tl_rec.language);
596: FETCH qcl_pktl_csr INTO
597: l_okc_qa_check_lists_tl_rec.ID,
598: l_okc_qa_check_lists_tl_rec.LANGUAGE,
599: l_okc_qa_check_lists_tl_rec.SOURCE_LANG,
593: -- Get current database values
594: OPEN qcl_pktl_csr (p_okc_qa_check_lists_tl_rec.id,
595: p_okc_qa_check_lists_tl_rec.language);
596: FETCH qcl_pktl_csr INTO
597: l_okc_qa_check_lists_tl_rec.ID,
598: l_okc_qa_check_lists_tl_rec.LANGUAGE,
599: l_okc_qa_check_lists_tl_rec.SOURCE_LANG,
600: l_okc_qa_check_lists_tl_rec.SFWT_FLAG,
601: l_okc_qa_check_lists_tl_rec.NAME,
594: OPEN qcl_pktl_csr (p_okc_qa_check_lists_tl_rec.id,
595: p_okc_qa_check_lists_tl_rec.language);
596: FETCH qcl_pktl_csr INTO
597: l_okc_qa_check_lists_tl_rec.ID,
598: l_okc_qa_check_lists_tl_rec.LANGUAGE,
599: l_okc_qa_check_lists_tl_rec.SOURCE_LANG,
600: l_okc_qa_check_lists_tl_rec.SFWT_FLAG,
601: l_okc_qa_check_lists_tl_rec.NAME,
602: l_okc_qa_check_lists_tl_rec.SHORT_DESCRIPTION,
595: p_okc_qa_check_lists_tl_rec.language);
596: FETCH qcl_pktl_csr INTO
597: l_okc_qa_check_lists_tl_rec.ID,
598: l_okc_qa_check_lists_tl_rec.LANGUAGE,
599: l_okc_qa_check_lists_tl_rec.SOURCE_LANG,
600: l_okc_qa_check_lists_tl_rec.SFWT_FLAG,
601: l_okc_qa_check_lists_tl_rec.NAME,
602: l_okc_qa_check_lists_tl_rec.SHORT_DESCRIPTION,
603: l_okc_qa_check_lists_tl_rec.CREATED_BY,
596: FETCH qcl_pktl_csr INTO
597: l_okc_qa_check_lists_tl_rec.ID,
598: l_okc_qa_check_lists_tl_rec.LANGUAGE,
599: l_okc_qa_check_lists_tl_rec.SOURCE_LANG,
600: l_okc_qa_check_lists_tl_rec.SFWT_FLAG,
601: l_okc_qa_check_lists_tl_rec.NAME,
602: l_okc_qa_check_lists_tl_rec.SHORT_DESCRIPTION,
603: l_okc_qa_check_lists_tl_rec.CREATED_BY,
604: l_okc_qa_check_lists_tl_rec.CREATION_DATE,
597: l_okc_qa_check_lists_tl_rec.ID,
598: l_okc_qa_check_lists_tl_rec.LANGUAGE,
599: l_okc_qa_check_lists_tl_rec.SOURCE_LANG,
600: l_okc_qa_check_lists_tl_rec.SFWT_FLAG,
601: l_okc_qa_check_lists_tl_rec.NAME,
602: l_okc_qa_check_lists_tl_rec.SHORT_DESCRIPTION,
603: l_okc_qa_check_lists_tl_rec.CREATED_BY,
604: l_okc_qa_check_lists_tl_rec.CREATION_DATE,
605: l_okc_qa_check_lists_tl_rec.LAST_UPDATED_BY,
598: l_okc_qa_check_lists_tl_rec.LANGUAGE,
599: l_okc_qa_check_lists_tl_rec.SOURCE_LANG,
600: l_okc_qa_check_lists_tl_rec.SFWT_FLAG,
601: l_okc_qa_check_lists_tl_rec.NAME,
602: l_okc_qa_check_lists_tl_rec.SHORT_DESCRIPTION,
603: l_okc_qa_check_lists_tl_rec.CREATED_BY,
604: l_okc_qa_check_lists_tl_rec.CREATION_DATE,
605: l_okc_qa_check_lists_tl_rec.LAST_UPDATED_BY,
606: l_okc_qa_check_lists_tl_rec.LAST_UPDATE_DATE,
599: l_okc_qa_check_lists_tl_rec.SOURCE_LANG,
600: l_okc_qa_check_lists_tl_rec.SFWT_FLAG,
601: l_okc_qa_check_lists_tl_rec.NAME,
602: l_okc_qa_check_lists_tl_rec.SHORT_DESCRIPTION,
603: l_okc_qa_check_lists_tl_rec.CREATED_BY,
604: l_okc_qa_check_lists_tl_rec.CREATION_DATE,
605: l_okc_qa_check_lists_tl_rec.LAST_UPDATED_BY,
606: l_okc_qa_check_lists_tl_rec.LAST_UPDATE_DATE,
607: l_okc_qa_check_lists_tl_rec.LAST_UPDATE_LOGIN;
600: l_okc_qa_check_lists_tl_rec.SFWT_FLAG,
601: l_okc_qa_check_lists_tl_rec.NAME,
602: l_okc_qa_check_lists_tl_rec.SHORT_DESCRIPTION,
603: l_okc_qa_check_lists_tl_rec.CREATED_BY,
604: l_okc_qa_check_lists_tl_rec.CREATION_DATE,
605: l_okc_qa_check_lists_tl_rec.LAST_UPDATED_BY,
606: l_okc_qa_check_lists_tl_rec.LAST_UPDATE_DATE,
607: l_okc_qa_check_lists_tl_rec.LAST_UPDATE_LOGIN;
608: x_no_data_found := qcl_pktl_csr%NOTFOUND;
601: l_okc_qa_check_lists_tl_rec.NAME,
602: l_okc_qa_check_lists_tl_rec.SHORT_DESCRIPTION,
603: l_okc_qa_check_lists_tl_rec.CREATED_BY,
604: l_okc_qa_check_lists_tl_rec.CREATION_DATE,
605: l_okc_qa_check_lists_tl_rec.LAST_UPDATED_BY,
606: l_okc_qa_check_lists_tl_rec.LAST_UPDATE_DATE,
607: l_okc_qa_check_lists_tl_rec.LAST_UPDATE_LOGIN;
608: x_no_data_found := qcl_pktl_csr%NOTFOUND;
609: CLOSE qcl_pktl_csr;
602: l_okc_qa_check_lists_tl_rec.SHORT_DESCRIPTION,
603: l_okc_qa_check_lists_tl_rec.CREATED_BY,
604: l_okc_qa_check_lists_tl_rec.CREATION_DATE,
605: l_okc_qa_check_lists_tl_rec.LAST_UPDATED_BY,
606: l_okc_qa_check_lists_tl_rec.LAST_UPDATE_DATE,
607: l_okc_qa_check_lists_tl_rec.LAST_UPDATE_LOGIN;
608: x_no_data_found := qcl_pktl_csr%NOTFOUND;
609: CLOSE qcl_pktl_csr;
610: RETURN(l_okc_qa_check_lists_tl_rec);
603: l_okc_qa_check_lists_tl_rec.CREATED_BY,
604: l_okc_qa_check_lists_tl_rec.CREATION_DATE,
605: l_okc_qa_check_lists_tl_rec.LAST_UPDATED_BY,
606: l_okc_qa_check_lists_tl_rec.LAST_UPDATE_DATE,
607: l_okc_qa_check_lists_tl_rec.LAST_UPDATE_LOGIN;
608: x_no_data_found := qcl_pktl_csr%NOTFOUND;
609: CLOSE qcl_pktl_csr;
610: RETURN(l_okc_qa_check_lists_tl_rec);
611: END get_rec;
606: l_okc_qa_check_lists_tl_rec.LAST_UPDATE_DATE,
607: l_okc_qa_check_lists_tl_rec.LAST_UPDATE_LOGIN;
608: x_no_data_found := qcl_pktl_csr%NOTFOUND;
609: CLOSE qcl_pktl_csr;
610: RETURN(l_okc_qa_check_lists_tl_rec);
611: END get_rec;
612:
613: FUNCTION get_rec (
614: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type
610: RETURN(l_okc_qa_check_lists_tl_rec);
611: END get_rec;
612:
613: FUNCTION get_rec (
614: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type
615: ) RETURN okc_qa_check_lists_tl_rec_type IS
616: l_row_notfound BOOLEAN := TRUE;
617: BEGIN
618: RETURN(get_rec(p_okc_qa_check_lists_tl_rec, l_row_notfound));
611: END get_rec;
612:
613: FUNCTION get_rec (
614: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type
615: ) RETURN okc_qa_check_lists_tl_rec_type IS
616: l_row_notfound BOOLEAN := TRUE;
617: BEGIN
618: RETURN(get_rec(p_okc_qa_check_lists_tl_rec, l_row_notfound));
619: END get_rec;
614: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type
615: ) RETURN okc_qa_check_lists_tl_rec_type IS
616: l_row_notfound BOOLEAN := TRUE;
617: BEGIN
618: RETURN(get_rec(p_okc_qa_check_lists_tl_rec, l_row_notfound));
619: END get_rec;
620: ---------------------------------------------------------------------------
621: -- FUNCTION get_rec for: OKC_QA_CHECK_LISTS_V
622: ---------------------------------------------------------------------------
997: p_to.default_yn := p_from.default_yn;
998: END migrate;
999: PROCEDURE migrate (
1000: p_from IN qclv_rec_type,
1001: p_to IN OUT NOCOPY okc_qa_check_lists_tl_rec_type
1002: ) IS
1003: BEGIN
1004: p_to.id := p_from.id;
1005: p_to.sfwt_flag := p_from.sfwt_flag;
1011: p_to.last_update_date := p_from.last_update_date;
1012: p_to.last_update_login := p_from.last_update_login;
1013: END migrate;
1014: PROCEDURE migrate (
1015: p_from IN okc_qa_check_lists_tl_rec_type,
1016: p_to IN OUT NOCOPY qclv_rec_type
1017: ) IS
1018: BEGIN
1019: p_to.id := p_from.id;
1045: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1046: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1047: l_qclv_rec qclv_rec_type := p_qclv_rec;
1048: l_qcl_rec qcl_rec_type;
1049: l_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type;
1050: BEGIN
1051: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1052: G_PKG_NAME,
1053: p_init_msg_list,
1314: '_PVT'
1315: );
1316: END insert_row;
1317: ------------------------------------------
1318: -- insert_row for:OKC_QA_CHECK_LISTS_TL --
1319: ------------------------------------------
1320: PROCEDURE insert_row(
1321: p_init_msg_list IN VARCHAR2 ,
1322: x_return_status OUT NOCOPY VARCHAR2,
1321: p_init_msg_list IN VARCHAR2 ,
1322: x_return_status OUT NOCOPY VARCHAR2,
1323: x_msg_count OUT NOCOPY NUMBER,
1324: x_msg_data OUT NOCOPY VARCHAR2,
1325: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type,
1326: x_okc_qa_check_lists_tl_rec OUT NOCOPY okc_qa_check_lists_tl_rec_type) IS
1327:
1328: l_api_version CONSTANT NUMBER := 1;
1329: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1322: x_return_status OUT NOCOPY VARCHAR2,
1323: x_msg_count OUT NOCOPY NUMBER,
1324: x_msg_data OUT NOCOPY VARCHAR2,
1325: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type,
1326: x_okc_qa_check_lists_tl_rec OUT NOCOPY okc_qa_check_lists_tl_rec_type) IS
1327:
1328: l_api_version CONSTANT NUMBER := 1;
1329: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1330: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1327:
1328: l_api_version CONSTANT NUMBER := 1;
1329: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1330: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1331: l_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type := p_okc_qa_check_lists_tl_rec;
1332: ldefokcqacheckliststlrec okc_qa_check_lists_tl_rec_type;
1333: CURSOR get_languages IS
1334: SELECT *
1335: FROM FND_LANGUAGES
1328: l_api_version CONSTANT NUMBER := 1;
1329: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1330: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1331: l_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type := p_okc_qa_check_lists_tl_rec;
1332: ldefokcqacheckliststlrec okc_qa_check_lists_tl_rec_type;
1333: CURSOR get_languages IS
1334: SELECT *
1335: FROM FND_LANGUAGES
1336: WHERE INSTALLED_FLAG IN ('I', 'B');
1334: SELECT *
1335: FROM FND_LANGUAGES
1336: WHERE INSTALLED_FLAG IN ('I', 'B');
1337: ----------------------------------------------
1338: -- Set_Attributes for:OKC_QA_CHECK_LISTS_TL --
1339: ----------------------------------------------
1340: FUNCTION Set_Attributes (
1341: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type,
1342: x_okc_qa_check_lists_tl_rec OUT NOCOPY okc_qa_check_lists_tl_rec_type
1337: ----------------------------------------------
1338: -- Set_Attributes for:OKC_QA_CHECK_LISTS_TL --
1339: ----------------------------------------------
1340: FUNCTION Set_Attributes (
1341: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type,
1342: x_okc_qa_check_lists_tl_rec OUT NOCOPY okc_qa_check_lists_tl_rec_type
1343: ) RETURN VARCHAR2 IS
1344: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1345: BEGIN
1338: -- Set_Attributes for:OKC_QA_CHECK_LISTS_TL --
1339: ----------------------------------------------
1340: FUNCTION Set_Attributes (
1341: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type,
1342: x_okc_qa_check_lists_tl_rec OUT NOCOPY okc_qa_check_lists_tl_rec_type
1343: ) RETURN VARCHAR2 IS
1344: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1345: BEGIN
1346: x_okc_qa_check_lists_tl_rec := p_okc_qa_check_lists_tl_rec;
1342: x_okc_qa_check_lists_tl_rec OUT NOCOPY okc_qa_check_lists_tl_rec_type
1343: ) RETURN VARCHAR2 IS
1344: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1345: BEGIN
1346: x_okc_qa_check_lists_tl_rec := p_okc_qa_check_lists_tl_rec;
1347: x_okc_qa_check_lists_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
1348: x_okc_qa_check_lists_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
1349: RETURN(l_return_status);
1350: END Set_Attributes;
1343: ) RETURN VARCHAR2 IS
1344: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1345: BEGIN
1346: x_okc_qa_check_lists_tl_rec := p_okc_qa_check_lists_tl_rec;
1347: x_okc_qa_check_lists_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
1348: x_okc_qa_check_lists_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
1349: RETURN(l_return_status);
1350: END Set_Attributes;
1351: BEGIN
1344: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1345: BEGIN
1346: x_okc_qa_check_lists_tl_rec := p_okc_qa_check_lists_tl_rec;
1347: x_okc_qa_check_lists_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
1348: x_okc_qa_check_lists_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
1349: RETURN(l_return_status);
1350: END Set_Attributes;
1351: BEGIN
1352: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1359: RAISE OKC_API.G_EXCEPTION_ERROR;
1360: END IF;
1361: --- Setting item attributes
1362: l_return_status := Set_Attributes(
1363: p_okc_qa_check_lists_tl_rec, -- IN
1364: l_okc_qa_check_lists_tl_rec); -- OUT
1365: --- If any errors happen abort API
1366: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1367: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1360: END IF;
1361: --- Setting item attributes
1362: l_return_status := Set_Attributes(
1363: p_okc_qa_check_lists_tl_rec, -- IN
1364: l_okc_qa_check_lists_tl_rec); -- OUT
1365: --- If any errors happen abort API
1366: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1367: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1368: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1368: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1369: RAISE OKC_API.G_EXCEPTION_ERROR;
1370: END IF;
1371: FOR l_lang_rec IN get_languages LOOP
1372: l_okc_qa_check_lists_tl_rec.language := l_lang_rec.language_code;
1373: INSERT INTO OKC_QA_CHECK_LISTS_TL(
1374: id,
1375: language,
1376: source_lang,
1369: RAISE OKC_API.G_EXCEPTION_ERROR;
1370: END IF;
1371: FOR l_lang_rec IN get_languages LOOP
1372: l_okc_qa_check_lists_tl_rec.language := l_lang_rec.language_code;
1373: INSERT INTO OKC_QA_CHECK_LISTS_TL(
1374: id,
1375: language,
1376: source_lang,
1377: sfwt_flag,
1382: last_updated_by,
1383: last_update_date,
1384: last_update_login)
1385: VALUES (
1386: l_okc_qa_check_lists_tl_rec.id,
1387: l_okc_qa_check_lists_tl_rec.language,
1388: l_okc_qa_check_lists_tl_rec.source_lang,
1389: l_okc_qa_check_lists_tl_rec.sfwt_flag,
1390: l_okc_qa_check_lists_tl_rec.name,
1383: last_update_date,
1384: last_update_login)
1385: VALUES (
1386: l_okc_qa_check_lists_tl_rec.id,
1387: l_okc_qa_check_lists_tl_rec.language,
1388: l_okc_qa_check_lists_tl_rec.source_lang,
1389: l_okc_qa_check_lists_tl_rec.sfwt_flag,
1390: l_okc_qa_check_lists_tl_rec.name,
1391: l_okc_qa_check_lists_tl_rec.short_description,
1384: last_update_login)
1385: VALUES (
1386: l_okc_qa_check_lists_tl_rec.id,
1387: l_okc_qa_check_lists_tl_rec.language,
1388: l_okc_qa_check_lists_tl_rec.source_lang,
1389: l_okc_qa_check_lists_tl_rec.sfwt_flag,
1390: l_okc_qa_check_lists_tl_rec.name,
1391: l_okc_qa_check_lists_tl_rec.short_description,
1392: l_okc_qa_check_lists_tl_rec.created_by,
1385: VALUES (
1386: l_okc_qa_check_lists_tl_rec.id,
1387: l_okc_qa_check_lists_tl_rec.language,
1388: l_okc_qa_check_lists_tl_rec.source_lang,
1389: l_okc_qa_check_lists_tl_rec.sfwt_flag,
1390: l_okc_qa_check_lists_tl_rec.name,
1391: l_okc_qa_check_lists_tl_rec.short_description,
1392: l_okc_qa_check_lists_tl_rec.created_by,
1393: l_okc_qa_check_lists_tl_rec.creation_date,
1386: l_okc_qa_check_lists_tl_rec.id,
1387: l_okc_qa_check_lists_tl_rec.language,
1388: l_okc_qa_check_lists_tl_rec.source_lang,
1389: l_okc_qa_check_lists_tl_rec.sfwt_flag,
1390: l_okc_qa_check_lists_tl_rec.name,
1391: l_okc_qa_check_lists_tl_rec.short_description,
1392: l_okc_qa_check_lists_tl_rec.created_by,
1393: l_okc_qa_check_lists_tl_rec.creation_date,
1394: l_okc_qa_check_lists_tl_rec.last_updated_by,
1387: l_okc_qa_check_lists_tl_rec.language,
1388: l_okc_qa_check_lists_tl_rec.source_lang,
1389: l_okc_qa_check_lists_tl_rec.sfwt_flag,
1390: l_okc_qa_check_lists_tl_rec.name,
1391: l_okc_qa_check_lists_tl_rec.short_description,
1392: l_okc_qa_check_lists_tl_rec.created_by,
1393: l_okc_qa_check_lists_tl_rec.creation_date,
1394: l_okc_qa_check_lists_tl_rec.last_updated_by,
1395: l_okc_qa_check_lists_tl_rec.last_update_date,
1388: l_okc_qa_check_lists_tl_rec.source_lang,
1389: l_okc_qa_check_lists_tl_rec.sfwt_flag,
1390: l_okc_qa_check_lists_tl_rec.name,
1391: l_okc_qa_check_lists_tl_rec.short_description,
1392: l_okc_qa_check_lists_tl_rec.created_by,
1393: l_okc_qa_check_lists_tl_rec.creation_date,
1394: l_okc_qa_check_lists_tl_rec.last_updated_by,
1395: l_okc_qa_check_lists_tl_rec.last_update_date,
1396: l_okc_qa_check_lists_tl_rec.last_update_login);
1389: l_okc_qa_check_lists_tl_rec.sfwt_flag,
1390: l_okc_qa_check_lists_tl_rec.name,
1391: l_okc_qa_check_lists_tl_rec.short_description,
1392: l_okc_qa_check_lists_tl_rec.created_by,
1393: l_okc_qa_check_lists_tl_rec.creation_date,
1394: l_okc_qa_check_lists_tl_rec.last_updated_by,
1395: l_okc_qa_check_lists_tl_rec.last_update_date,
1396: l_okc_qa_check_lists_tl_rec.last_update_login);
1397: END LOOP;
1390: l_okc_qa_check_lists_tl_rec.name,
1391: l_okc_qa_check_lists_tl_rec.short_description,
1392: l_okc_qa_check_lists_tl_rec.created_by,
1393: l_okc_qa_check_lists_tl_rec.creation_date,
1394: l_okc_qa_check_lists_tl_rec.last_updated_by,
1395: l_okc_qa_check_lists_tl_rec.last_update_date,
1396: l_okc_qa_check_lists_tl_rec.last_update_login);
1397: END LOOP;
1398: -- Set OUT values
1391: l_okc_qa_check_lists_tl_rec.short_description,
1392: l_okc_qa_check_lists_tl_rec.created_by,
1393: l_okc_qa_check_lists_tl_rec.creation_date,
1394: l_okc_qa_check_lists_tl_rec.last_updated_by,
1395: l_okc_qa_check_lists_tl_rec.last_update_date,
1396: l_okc_qa_check_lists_tl_rec.last_update_login);
1397: END LOOP;
1398: -- Set OUT values
1399: x_okc_qa_check_lists_tl_rec := l_okc_qa_check_lists_tl_rec;
1392: l_okc_qa_check_lists_tl_rec.created_by,
1393: l_okc_qa_check_lists_tl_rec.creation_date,
1394: l_okc_qa_check_lists_tl_rec.last_updated_by,
1395: l_okc_qa_check_lists_tl_rec.last_update_date,
1396: l_okc_qa_check_lists_tl_rec.last_update_login);
1397: END LOOP;
1398: -- Set OUT values
1399: x_okc_qa_check_lists_tl_rec := l_okc_qa_check_lists_tl_rec;
1400: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1395: l_okc_qa_check_lists_tl_rec.last_update_date,
1396: l_okc_qa_check_lists_tl_rec.last_update_login);
1397: END LOOP;
1398: -- Set OUT values
1399: x_okc_qa_check_lists_tl_rec := l_okc_qa_check_lists_tl_rec;
1400: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1401: EXCEPTION
1402: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1403: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1448: l_qclv_rec qclv_rec_type;
1449: l_def_qclv_rec qclv_rec_type;
1450: l_qcl_rec qcl_rec_type;
1451: lx_qcl_rec qcl_rec_type;
1452: l_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type;
1453: lx_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type;
1454: -------------------------------
1455: -- FUNCTION fill_who_columns --
1456: -------------------------------
1449: l_def_qclv_rec qclv_rec_type;
1450: l_qcl_rec qcl_rec_type;
1451: lx_qcl_rec qcl_rec_type;
1452: l_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type;
1453: lx_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type;
1454: -------------------------------
1455: -- FUNCTION fill_who_columns --
1456: -------------------------------
1457: FUNCTION fill_who_columns (
1525: --------------------------------------
1526: -- Move VIEW record to "Child" records
1527: --------------------------------------
1528: migrate(l_def_qclv_rec, l_qcl_rec);
1529: migrate(l_def_qclv_rec, l_okc_qa_check_lists_tl_rec);
1530: --------------------------------------------
1531: -- Call the INSERT_ROW for each child record
1532: --------------------------------------------
1533: insert_row(
1548: p_init_msg_list,
1549: x_return_status,
1550: x_msg_count,
1551: x_msg_data,
1552: l_okc_qa_check_lists_tl_rec,
1553: lx_okc_qa_check_lists_tl_rec
1554: );
1555: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1556: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1549: x_return_status,
1550: x_msg_count,
1551: x_msg_data,
1552: l_okc_qa_check_lists_tl_rec,
1553: lx_okc_qa_check_lists_tl_rec
1554: );
1555: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1556: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1557: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1556: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1557: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1558: RAISE OKC_API.G_EXCEPTION_ERROR;
1559: END IF;
1560: migrate(lx_okc_qa_check_lists_tl_rec, l_def_qclv_rec);
1561: -- Set OUT values
1562: x_qclv_rec := l_def_qclv_rec;
1563: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1564: EXCEPTION
1769: '_PVT'
1770: );
1771: END lock_row;
1772: ----------------------------------------
1773: -- lock_row for:OKC_QA_CHECK_LISTS_TL --
1774: ----------------------------------------
1775: PROCEDURE lock_row(
1776: p_init_msg_list IN VARCHAR2 ,
1777: x_return_status OUT NOCOPY VARCHAR2,
1776: p_init_msg_list IN VARCHAR2 ,
1777: x_return_status OUT NOCOPY VARCHAR2,
1778: x_msg_count OUT NOCOPY NUMBER,
1779: x_msg_data OUT NOCOPY VARCHAR2,
1780: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type) IS
1781:
1782: E_Resource_Busy EXCEPTION;
1783: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1784: CURSOR lock_csr (p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type) IS
1780: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type) IS
1781:
1782: E_Resource_Busy EXCEPTION;
1783: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1784: CURSOR lock_csr (p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type) IS
1785: SELECT *
1786: FROM OKC_QA_CHECK_LISTS_TL
1787: WHERE ID = p_okc_qa_check_lists_tl_rec.id
1788: FOR UPDATE NOWAIT;
1782: E_Resource_Busy EXCEPTION;
1783: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1784: CURSOR lock_csr (p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type) IS
1785: SELECT *
1786: FROM OKC_QA_CHECK_LISTS_TL
1787: WHERE ID = p_okc_qa_check_lists_tl_rec.id
1788: FOR UPDATE NOWAIT;
1789:
1790: l_api_version CONSTANT NUMBER := 1;
1783: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1784: CURSOR lock_csr (p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type) IS
1785: SELECT *
1786: FROM OKC_QA_CHECK_LISTS_TL
1787: WHERE ID = p_okc_qa_check_lists_tl_rec.id
1788: FOR UPDATE NOWAIT;
1789:
1790: l_api_version CONSTANT NUMBER := 1;
1791: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
1803: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1804: RAISE OKC_API.G_EXCEPTION_ERROR;
1805: END IF;
1806: BEGIN
1807: OPEN lock_csr(p_okc_qa_check_lists_tl_rec);
1808: FETCH lock_csr INTO l_lock_var;
1809: l_row_notfound := lock_csr%NOTFOUND;
1810: CLOSE lock_csr;
1811: EXCEPTION
1868: l_api_version CONSTANT NUMBER := 1;
1869: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1870: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1871: l_qcl_rec qcl_rec_type;
1872: l_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type;
1873: BEGIN
1874: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1875: G_PKG_NAME,
1876: p_init_msg_list,
1886: --------------------------------------
1887: -- Move VIEW record to "Child" records
1888: --------------------------------------
1889: migrate(p_qclv_rec, l_qcl_rec);
1890: migrate(p_qclv_rec, l_okc_qa_check_lists_tl_rec);
1891: --------------------------------------------
1892: -- Call the LOCK_ROW for each child record
1893: --------------------------------------------
1894: lock_row(
1907: p_init_msg_list,
1908: x_return_status,
1909: x_msg_count,
1910: x_msg_data,
1911: l_okc_qa_check_lists_tl_rec
1912: );
1913: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1914: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1915: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2261: '_PVT'
2262: );
2263: END update_row;
2264: ------------------------------------------
2265: -- update_row for:OKC_QA_CHECK_LISTS_TL --
2266: ------------------------------------------
2267: PROCEDURE update_row(
2268: p_init_msg_list IN VARCHAR2 ,
2269: x_return_status OUT NOCOPY VARCHAR2,
2268: p_init_msg_list IN VARCHAR2 ,
2269: x_return_status OUT NOCOPY VARCHAR2,
2270: x_msg_count OUT NOCOPY NUMBER,
2271: x_msg_data OUT NOCOPY VARCHAR2,
2272: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type,
2273: x_okc_qa_check_lists_tl_rec OUT NOCOPY okc_qa_check_lists_tl_rec_type) IS
2274:
2275: l_api_version CONSTANT NUMBER := 1;
2276: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2269: x_return_status OUT NOCOPY VARCHAR2,
2270: x_msg_count OUT NOCOPY NUMBER,
2271: x_msg_data OUT NOCOPY VARCHAR2,
2272: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type,
2273: x_okc_qa_check_lists_tl_rec OUT NOCOPY okc_qa_check_lists_tl_rec_type) IS
2274:
2275: l_api_version CONSTANT NUMBER := 1;
2276: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2277: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2274:
2275: l_api_version CONSTANT NUMBER := 1;
2276: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2277: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2278: l_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type := p_okc_qa_check_lists_tl_rec;
2279: ldefokcqacheckliststlrec okc_qa_check_lists_tl_rec_type;
2280: l_row_notfound BOOLEAN := TRUE;
2281: ----------------------------------
2282: -- FUNCTION populate_new_record --
2275: l_api_version CONSTANT NUMBER := 1;
2276: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2277: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2278: l_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type := p_okc_qa_check_lists_tl_rec;
2279: ldefokcqacheckliststlrec okc_qa_check_lists_tl_rec_type;
2280: l_row_notfound BOOLEAN := TRUE;
2281: ----------------------------------
2282: -- FUNCTION populate_new_record --
2283: ----------------------------------
2281: ----------------------------------
2282: -- FUNCTION populate_new_record --
2283: ----------------------------------
2284: FUNCTION populate_new_record (
2285: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type,
2286: x_okc_qa_check_lists_tl_rec OUT NOCOPY okc_qa_check_lists_tl_rec_type
2287: ) RETURN VARCHAR2 IS
2288: l_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type;
2289: l_row_notfound BOOLEAN := TRUE;
2282: -- FUNCTION populate_new_record --
2283: ----------------------------------
2284: FUNCTION populate_new_record (
2285: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type,
2286: x_okc_qa_check_lists_tl_rec OUT NOCOPY okc_qa_check_lists_tl_rec_type
2287: ) RETURN VARCHAR2 IS
2288: l_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type;
2289: l_row_notfound BOOLEAN := TRUE;
2290: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2284: FUNCTION populate_new_record (
2285: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type,
2286: x_okc_qa_check_lists_tl_rec OUT NOCOPY okc_qa_check_lists_tl_rec_type
2287: ) RETURN VARCHAR2 IS
2288: l_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type;
2289: l_row_notfound BOOLEAN := TRUE;
2290: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2291: BEGIN
2292: x_okc_qa_check_lists_tl_rec := p_okc_qa_check_lists_tl_rec;
2288: l_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type;
2289: l_row_notfound BOOLEAN := TRUE;
2290: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2291: BEGIN
2292: x_okc_qa_check_lists_tl_rec := p_okc_qa_check_lists_tl_rec;
2293: -- Get current database values
2294: l_okc_qa_check_lists_tl_rec := get_rec(p_okc_qa_check_lists_tl_rec, l_row_notfound);
2295: IF (l_row_notfound) THEN
2296: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2290: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2291: BEGIN
2292: x_okc_qa_check_lists_tl_rec := p_okc_qa_check_lists_tl_rec;
2293: -- Get current database values
2294: l_okc_qa_check_lists_tl_rec := get_rec(p_okc_qa_check_lists_tl_rec, l_row_notfound);
2295: IF (l_row_notfound) THEN
2296: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2297: END IF;
2298: IF (x_okc_qa_check_lists_tl_rec.id = OKC_API.G_MISS_NUM)
2294: l_okc_qa_check_lists_tl_rec := get_rec(p_okc_qa_check_lists_tl_rec, l_row_notfound);
2295: IF (l_row_notfound) THEN
2296: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2297: END IF;
2298: IF (x_okc_qa_check_lists_tl_rec.id = OKC_API.G_MISS_NUM)
2299: THEN
2300: x_okc_qa_check_lists_tl_rec.id := l_okc_qa_check_lists_tl_rec.id;
2301: END IF;
2302: IF (x_okc_qa_check_lists_tl_rec.language = OKC_API.G_MISS_CHAR)
2296: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2297: END IF;
2298: IF (x_okc_qa_check_lists_tl_rec.id = OKC_API.G_MISS_NUM)
2299: THEN
2300: x_okc_qa_check_lists_tl_rec.id := l_okc_qa_check_lists_tl_rec.id;
2301: END IF;
2302: IF (x_okc_qa_check_lists_tl_rec.language = OKC_API.G_MISS_CHAR)
2303: THEN
2304: x_okc_qa_check_lists_tl_rec.language := l_okc_qa_check_lists_tl_rec.language;
2298: IF (x_okc_qa_check_lists_tl_rec.id = OKC_API.G_MISS_NUM)
2299: THEN
2300: x_okc_qa_check_lists_tl_rec.id := l_okc_qa_check_lists_tl_rec.id;
2301: END IF;
2302: IF (x_okc_qa_check_lists_tl_rec.language = OKC_API.G_MISS_CHAR)
2303: THEN
2304: x_okc_qa_check_lists_tl_rec.language := l_okc_qa_check_lists_tl_rec.language;
2305: END IF;
2306: IF (x_okc_qa_check_lists_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2300: x_okc_qa_check_lists_tl_rec.id := l_okc_qa_check_lists_tl_rec.id;
2301: END IF;
2302: IF (x_okc_qa_check_lists_tl_rec.language = OKC_API.G_MISS_CHAR)
2303: THEN
2304: x_okc_qa_check_lists_tl_rec.language := l_okc_qa_check_lists_tl_rec.language;
2305: END IF;
2306: IF (x_okc_qa_check_lists_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2307: THEN
2308: x_okc_qa_check_lists_tl_rec.source_lang := l_okc_qa_check_lists_tl_rec.source_lang;
2302: IF (x_okc_qa_check_lists_tl_rec.language = OKC_API.G_MISS_CHAR)
2303: THEN
2304: x_okc_qa_check_lists_tl_rec.language := l_okc_qa_check_lists_tl_rec.language;
2305: END IF;
2306: IF (x_okc_qa_check_lists_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2307: THEN
2308: x_okc_qa_check_lists_tl_rec.source_lang := l_okc_qa_check_lists_tl_rec.source_lang;
2309: END IF;
2310: IF (x_okc_qa_check_lists_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2304: x_okc_qa_check_lists_tl_rec.language := l_okc_qa_check_lists_tl_rec.language;
2305: END IF;
2306: IF (x_okc_qa_check_lists_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2307: THEN
2308: x_okc_qa_check_lists_tl_rec.source_lang := l_okc_qa_check_lists_tl_rec.source_lang;
2309: END IF;
2310: IF (x_okc_qa_check_lists_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2311: THEN
2312: x_okc_qa_check_lists_tl_rec.sfwt_flag := l_okc_qa_check_lists_tl_rec.sfwt_flag;
2306: IF (x_okc_qa_check_lists_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2307: THEN
2308: x_okc_qa_check_lists_tl_rec.source_lang := l_okc_qa_check_lists_tl_rec.source_lang;
2309: END IF;
2310: IF (x_okc_qa_check_lists_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2311: THEN
2312: x_okc_qa_check_lists_tl_rec.sfwt_flag := l_okc_qa_check_lists_tl_rec.sfwt_flag;
2313: END IF;
2314: IF (x_okc_qa_check_lists_tl_rec.name = OKC_API.G_MISS_CHAR)
2308: x_okc_qa_check_lists_tl_rec.source_lang := l_okc_qa_check_lists_tl_rec.source_lang;
2309: END IF;
2310: IF (x_okc_qa_check_lists_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2311: THEN
2312: x_okc_qa_check_lists_tl_rec.sfwt_flag := l_okc_qa_check_lists_tl_rec.sfwt_flag;
2313: END IF;
2314: IF (x_okc_qa_check_lists_tl_rec.name = OKC_API.G_MISS_CHAR)
2315: THEN
2316: x_okc_qa_check_lists_tl_rec.name := l_okc_qa_check_lists_tl_rec.name;
2310: IF (x_okc_qa_check_lists_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2311: THEN
2312: x_okc_qa_check_lists_tl_rec.sfwt_flag := l_okc_qa_check_lists_tl_rec.sfwt_flag;
2313: END IF;
2314: IF (x_okc_qa_check_lists_tl_rec.name = OKC_API.G_MISS_CHAR)
2315: THEN
2316: x_okc_qa_check_lists_tl_rec.name := l_okc_qa_check_lists_tl_rec.name;
2317: END IF;
2318: IF (x_okc_qa_check_lists_tl_rec.short_description = OKC_API.G_MISS_CHAR)
2312: x_okc_qa_check_lists_tl_rec.sfwt_flag := l_okc_qa_check_lists_tl_rec.sfwt_flag;
2313: END IF;
2314: IF (x_okc_qa_check_lists_tl_rec.name = OKC_API.G_MISS_CHAR)
2315: THEN
2316: x_okc_qa_check_lists_tl_rec.name := l_okc_qa_check_lists_tl_rec.name;
2317: END IF;
2318: IF (x_okc_qa_check_lists_tl_rec.short_description = OKC_API.G_MISS_CHAR)
2319: THEN
2320: x_okc_qa_check_lists_tl_rec.short_description := l_okc_qa_check_lists_tl_rec.short_description;
2314: IF (x_okc_qa_check_lists_tl_rec.name = OKC_API.G_MISS_CHAR)
2315: THEN
2316: x_okc_qa_check_lists_tl_rec.name := l_okc_qa_check_lists_tl_rec.name;
2317: END IF;
2318: IF (x_okc_qa_check_lists_tl_rec.short_description = OKC_API.G_MISS_CHAR)
2319: THEN
2320: x_okc_qa_check_lists_tl_rec.short_description := l_okc_qa_check_lists_tl_rec.short_description;
2321: END IF;
2322: IF (x_okc_qa_check_lists_tl_rec.created_by = OKC_API.G_MISS_NUM)
2316: x_okc_qa_check_lists_tl_rec.name := l_okc_qa_check_lists_tl_rec.name;
2317: END IF;
2318: IF (x_okc_qa_check_lists_tl_rec.short_description = OKC_API.G_MISS_CHAR)
2319: THEN
2320: x_okc_qa_check_lists_tl_rec.short_description := l_okc_qa_check_lists_tl_rec.short_description;
2321: END IF;
2322: IF (x_okc_qa_check_lists_tl_rec.created_by = OKC_API.G_MISS_NUM)
2323: THEN
2324: x_okc_qa_check_lists_tl_rec.created_by := l_okc_qa_check_lists_tl_rec.created_by;
2318: IF (x_okc_qa_check_lists_tl_rec.short_description = OKC_API.G_MISS_CHAR)
2319: THEN
2320: x_okc_qa_check_lists_tl_rec.short_description := l_okc_qa_check_lists_tl_rec.short_description;
2321: END IF;
2322: IF (x_okc_qa_check_lists_tl_rec.created_by = OKC_API.G_MISS_NUM)
2323: THEN
2324: x_okc_qa_check_lists_tl_rec.created_by := l_okc_qa_check_lists_tl_rec.created_by;
2325: END IF;
2326: IF (x_okc_qa_check_lists_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2320: x_okc_qa_check_lists_tl_rec.short_description := l_okc_qa_check_lists_tl_rec.short_description;
2321: END IF;
2322: IF (x_okc_qa_check_lists_tl_rec.created_by = OKC_API.G_MISS_NUM)
2323: THEN
2324: x_okc_qa_check_lists_tl_rec.created_by := l_okc_qa_check_lists_tl_rec.created_by;
2325: END IF;
2326: IF (x_okc_qa_check_lists_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2327: THEN
2328: x_okc_qa_check_lists_tl_rec.creation_date := l_okc_qa_check_lists_tl_rec.creation_date;
2322: IF (x_okc_qa_check_lists_tl_rec.created_by = OKC_API.G_MISS_NUM)
2323: THEN
2324: x_okc_qa_check_lists_tl_rec.created_by := l_okc_qa_check_lists_tl_rec.created_by;
2325: END IF;
2326: IF (x_okc_qa_check_lists_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2327: THEN
2328: x_okc_qa_check_lists_tl_rec.creation_date := l_okc_qa_check_lists_tl_rec.creation_date;
2329: END IF;
2330: IF (x_okc_qa_check_lists_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2324: x_okc_qa_check_lists_tl_rec.created_by := l_okc_qa_check_lists_tl_rec.created_by;
2325: END IF;
2326: IF (x_okc_qa_check_lists_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2327: THEN
2328: x_okc_qa_check_lists_tl_rec.creation_date := l_okc_qa_check_lists_tl_rec.creation_date;
2329: END IF;
2330: IF (x_okc_qa_check_lists_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2331: THEN
2332: x_okc_qa_check_lists_tl_rec.last_updated_by := l_okc_qa_check_lists_tl_rec.last_updated_by;
2326: IF (x_okc_qa_check_lists_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2327: THEN
2328: x_okc_qa_check_lists_tl_rec.creation_date := l_okc_qa_check_lists_tl_rec.creation_date;
2329: END IF;
2330: IF (x_okc_qa_check_lists_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2331: THEN
2332: x_okc_qa_check_lists_tl_rec.last_updated_by := l_okc_qa_check_lists_tl_rec.last_updated_by;
2333: END IF;
2334: IF (x_okc_qa_check_lists_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2328: x_okc_qa_check_lists_tl_rec.creation_date := l_okc_qa_check_lists_tl_rec.creation_date;
2329: END IF;
2330: IF (x_okc_qa_check_lists_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2331: THEN
2332: x_okc_qa_check_lists_tl_rec.last_updated_by := l_okc_qa_check_lists_tl_rec.last_updated_by;
2333: END IF;
2334: IF (x_okc_qa_check_lists_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2335: THEN
2336: x_okc_qa_check_lists_tl_rec.last_update_date := l_okc_qa_check_lists_tl_rec.last_update_date;
2330: IF (x_okc_qa_check_lists_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2331: THEN
2332: x_okc_qa_check_lists_tl_rec.last_updated_by := l_okc_qa_check_lists_tl_rec.last_updated_by;
2333: END IF;
2334: IF (x_okc_qa_check_lists_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2335: THEN
2336: x_okc_qa_check_lists_tl_rec.last_update_date := l_okc_qa_check_lists_tl_rec.last_update_date;
2337: END IF;
2338: IF (x_okc_qa_check_lists_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2332: x_okc_qa_check_lists_tl_rec.last_updated_by := l_okc_qa_check_lists_tl_rec.last_updated_by;
2333: END IF;
2334: IF (x_okc_qa_check_lists_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2335: THEN
2336: x_okc_qa_check_lists_tl_rec.last_update_date := l_okc_qa_check_lists_tl_rec.last_update_date;
2337: END IF;
2338: IF (x_okc_qa_check_lists_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2339: THEN
2340: x_okc_qa_check_lists_tl_rec.last_update_login := l_okc_qa_check_lists_tl_rec.last_update_login;
2334: IF (x_okc_qa_check_lists_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2335: THEN
2336: x_okc_qa_check_lists_tl_rec.last_update_date := l_okc_qa_check_lists_tl_rec.last_update_date;
2337: END IF;
2338: IF (x_okc_qa_check_lists_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2339: THEN
2340: x_okc_qa_check_lists_tl_rec.last_update_login := l_okc_qa_check_lists_tl_rec.last_update_login;
2341: END IF;
2342: RETURN(l_return_status);
2336: x_okc_qa_check_lists_tl_rec.last_update_date := l_okc_qa_check_lists_tl_rec.last_update_date;
2337: END IF;
2338: IF (x_okc_qa_check_lists_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2339: THEN
2340: x_okc_qa_check_lists_tl_rec.last_update_login := l_okc_qa_check_lists_tl_rec.last_update_login;
2341: END IF;
2342: RETURN(l_return_status);
2343: END populate_new_record;
2344: ----------------------------------------------
2341: END IF;
2342: RETURN(l_return_status);
2343: END populate_new_record;
2344: ----------------------------------------------
2345: -- Set_Attributes for:OKC_QA_CHECK_LISTS_TL --
2346: ----------------------------------------------
2347: FUNCTION Set_Attributes (
2348: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type,
2349: x_okc_qa_check_lists_tl_rec OUT NOCOPY okc_qa_check_lists_tl_rec_type
2344: ----------------------------------------------
2345: -- Set_Attributes for:OKC_QA_CHECK_LISTS_TL --
2346: ----------------------------------------------
2347: FUNCTION Set_Attributes (
2348: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type,
2349: x_okc_qa_check_lists_tl_rec OUT NOCOPY okc_qa_check_lists_tl_rec_type
2350: ) RETURN VARCHAR2 IS
2351: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2352: BEGIN
2345: -- Set_Attributes for:OKC_QA_CHECK_LISTS_TL --
2346: ----------------------------------------------
2347: FUNCTION Set_Attributes (
2348: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type,
2349: x_okc_qa_check_lists_tl_rec OUT NOCOPY okc_qa_check_lists_tl_rec_type
2350: ) RETURN VARCHAR2 IS
2351: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2352: BEGIN
2353: x_okc_qa_check_lists_tl_rec := p_okc_qa_check_lists_tl_rec;
2349: x_okc_qa_check_lists_tl_rec OUT NOCOPY okc_qa_check_lists_tl_rec_type
2350: ) RETURN VARCHAR2 IS
2351: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2352: BEGIN
2353: x_okc_qa_check_lists_tl_rec := p_okc_qa_check_lists_tl_rec;
2354: x_okc_qa_check_lists_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2355: x_okc_qa_check_lists_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
2356: RETURN(l_return_status);
2357: END Set_Attributes;
2350: ) RETURN VARCHAR2 IS
2351: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2352: BEGIN
2353: x_okc_qa_check_lists_tl_rec := p_okc_qa_check_lists_tl_rec;
2354: x_okc_qa_check_lists_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2355: x_okc_qa_check_lists_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
2356: RETURN(l_return_status);
2357: END Set_Attributes;
2358: BEGIN
2351: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2352: BEGIN
2353: x_okc_qa_check_lists_tl_rec := p_okc_qa_check_lists_tl_rec;
2354: x_okc_qa_check_lists_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2355: x_okc_qa_check_lists_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
2356: RETURN(l_return_status);
2357: END Set_Attributes;
2358: BEGIN
2359: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2366: RAISE OKC_API.G_EXCEPTION_ERROR;
2367: END IF;
2368: --- Setting item attributes
2369: l_return_status := Set_Attributes(
2370: p_okc_qa_check_lists_tl_rec, -- IN
2371: l_okc_qa_check_lists_tl_rec); -- OUT
2372: --- If any errors happen abort API
2373: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2374: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2367: END IF;
2368: --- Setting item attributes
2369: l_return_status := Set_Attributes(
2370: p_okc_qa_check_lists_tl_rec, -- IN
2371: l_okc_qa_check_lists_tl_rec); -- OUT
2372: --- If any errors happen abort API
2373: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2374: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2375: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2374: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2375: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2376: RAISE OKC_API.G_EXCEPTION_ERROR;
2377: END IF;
2378: l_return_status := populate_new_record(l_okc_qa_check_lists_tl_rec, ldefokcqacheckliststlrec);
2379: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2380: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2381: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2382: RAISE OKC_API.G_EXCEPTION_ERROR;
2380: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2381: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2382: RAISE OKC_API.G_EXCEPTION_ERROR;
2383: END IF;
2384: UPDATE OKC_QA_CHECK_LISTS_TL
2385: SET NAME = ldefokcqacheckliststlrec.name,
2386: SHORT_DESCRIPTION = ldefokcqacheckliststlrec.short_description,
2387: CREATED_BY = ldefokcqacheckliststlrec.created_by,
2388: CREATION_DATE = ldefokcqacheckliststlrec.creation_date,
2391: LAST_UPDATE_LOGIN = ldefokcqacheckliststlrec.last_update_login
2392: WHERE ID = ldefokcqacheckliststlrec.id
2393: AND SOURCE_LANG = USERENV('LANG');
2394:
2395: UPDATE OKC_QA_CHECK_LISTS_TL
2396: SET SFWT_FLAG = 'Y'
2397: WHERE ID = ldefokcqacheckliststlrec.id
2398: AND SOURCE_LANG <> USERENV('LANG');
2399:
2396: SET SFWT_FLAG = 'Y'
2397: WHERE ID = ldefokcqacheckliststlrec.id
2398: AND SOURCE_LANG <> USERENV('LANG');
2399:
2400: x_okc_qa_check_lists_tl_rec := ldefokcqacheckliststlrec;
2401: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2402: EXCEPTION
2403: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2404: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2447: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2448: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2449: l_qclv_rec qclv_rec_type := p_qclv_rec;
2450: l_def_qclv_rec qclv_rec_type;
2451: l_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type;
2452: lx_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type;
2453: l_qcl_rec qcl_rec_type;
2454: lx_qcl_rec qcl_rec_type;
2455: -------------------------------
2448: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2449: l_qclv_rec qclv_rec_type := p_qclv_rec;
2450: l_def_qclv_rec qclv_rec_type;
2451: l_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type;
2452: lx_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type;
2453: l_qcl_rec qcl_rec_type;
2454: lx_qcl_rec qcl_rec_type;
2455: -------------------------------
2456: -- FUNCTION fill_who_columns --
2664:
2665: --------------------------------------
2666: -- Move VIEW record to "Child" records
2667: --------------------------------------
2668: migrate(l_def_qclv_rec, l_okc_qa_check_lists_tl_rec);
2669: migrate(l_def_qclv_rec, l_qcl_rec);
2670: --------------------------------------------
2671: -- Call the UPDATE_ROW for each child record
2672: --------------------------------------------
2674: p_init_msg_list,
2675: x_return_status,
2676: x_msg_count,
2677: x_msg_data,
2678: l_okc_qa_check_lists_tl_rec,
2679: lx_okc_qa_check_lists_tl_rec
2680: );
2681: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2682: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2675: x_return_status,
2676: x_msg_count,
2677: x_msg_data,
2678: l_okc_qa_check_lists_tl_rec,
2679: lx_okc_qa_check_lists_tl_rec
2680: );
2681: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2682: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2683: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2682: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2683: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2684: RAISE OKC_API.G_EXCEPTION_ERROR;
2685: END IF;
2686: migrate(lx_okc_qa_check_lists_tl_rec, l_def_qclv_rec);
2687: update_row(
2688: p_init_msg_list,
2689: x_return_status,
2690: x_msg_count,
2863: '_PVT'
2864: );
2865: END delete_row;
2866: ------------------------------------------
2867: -- delete_row for:OKC_QA_CHECK_LISTS_TL --
2868: ------------------------------------------
2869: PROCEDURE delete_row(
2870: p_init_msg_list IN VARCHAR2 ,
2871: x_return_status OUT NOCOPY VARCHAR2,
2870: p_init_msg_list IN VARCHAR2 ,
2871: x_return_status OUT NOCOPY VARCHAR2,
2872: x_msg_count OUT NOCOPY NUMBER,
2873: x_msg_data OUT NOCOPY VARCHAR2,
2874: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type) IS
2875:
2876: l_api_version CONSTANT NUMBER := 1;
2877: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
2878: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2875:
2876: l_api_version CONSTANT NUMBER := 1;
2877: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
2878: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2879: l_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type:= p_okc_qa_check_lists_tl_rec;
2880: l_row_notfound BOOLEAN := TRUE;
2881: ----------------------------------------------
2882: -- Set_Attributes for:OKC_QA_CHECK_LISTS_TL --
2883: ----------------------------------------------
2878: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2879: l_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type:= p_okc_qa_check_lists_tl_rec;
2880: l_row_notfound BOOLEAN := TRUE;
2881: ----------------------------------------------
2882: -- Set_Attributes for:OKC_QA_CHECK_LISTS_TL --
2883: ----------------------------------------------
2884: FUNCTION Set_Attributes (
2885: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type,
2886: x_okc_qa_check_lists_tl_rec OUT NOCOPY okc_qa_check_lists_tl_rec_type
2881: ----------------------------------------------
2882: -- Set_Attributes for:OKC_QA_CHECK_LISTS_TL --
2883: ----------------------------------------------
2884: FUNCTION Set_Attributes (
2885: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type,
2886: x_okc_qa_check_lists_tl_rec OUT NOCOPY okc_qa_check_lists_tl_rec_type
2887: ) RETURN VARCHAR2 IS
2888: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2889: BEGIN
2882: -- Set_Attributes for:OKC_QA_CHECK_LISTS_TL --
2883: ----------------------------------------------
2884: FUNCTION Set_Attributes (
2885: p_okc_qa_check_lists_tl_rec IN okc_qa_check_lists_tl_rec_type,
2886: x_okc_qa_check_lists_tl_rec OUT NOCOPY okc_qa_check_lists_tl_rec_type
2887: ) RETURN VARCHAR2 IS
2888: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2889: BEGIN
2890: x_okc_qa_check_lists_tl_rec := p_okc_qa_check_lists_tl_rec;
2886: x_okc_qa_check_lists_tl_rec OUT NOCOPY okc_qa_check_lists_tl_rec_type
2887: ) RETURN VARCHAR2 IS
2888: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2889: BEGIN
2890: x_okc_qa_check_lists_tl_rec := p_okc_qa_check_lists_tl_rec;
2891: x_okc_qa_check_lists_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2892: RETURN(l_return_status);
2893: END Set_Attributes;
2894: BEGIN
2887: ) RETURN VARCHAR2 IS
2888: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2889: BEGIN
2890: x_okc_qa_check_lists_tl_rec := p_okc_qa_check_lists_tl_rec;
2891: x_okc_qa_check_lists_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2892: RETURN(l_return_status);
2893: END Set_Attributes;
2894: BEGIN
2895: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2902: RAISE OKC_API.G_EXCEPTION_ERROR;
2903: END IF;
2904: --- Setting item attributes
2905: l_return_status := Set_Attributes(
2906: p_okc_qa_check_lists_tl_rec, -- IN
2907: l_okc_qa_check_lists_tl_rec); -- OUT
2908: --- If any errors happen abort API
2909: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2910: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2903: END IF;
2904: --- Setting item attributes
2905: l_return_status := Set_Attributes(
2906: p_okc_qa_check_lists_tl_rec, -- IN
2907: l_okc_qa_check_lists_tl_rec); -- OUT
2908: --- If any errors happen abort API
2909: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2910: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2911: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2910: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2911: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2912: RAISE OKC_API.G_EXCEPTION_ERROR;
2913: END IF;
2914: DELETE FROM OKC_QA_CHECK_LISTS_TL
2915: WHERE ID = l_okc_qa_check_lists_tl_rec.id;
2916:
2917: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2918: EXCEPTION
2911: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2912: RAISE OKC_API.G_EXCEPTION_ERROR;
2913: END IF;
2914: DELETE FROM OKC_QA_CHECK_LISTS_TL
2915: WHERE ID = l_okc_qa_check_lists_tl_rec.id;
2916:
2917: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2918: EXCEPTION
2919: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2961: l_api_version CONSTANT NUMBER := 1;
2962: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2963: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2964: l_qclv_rec qclv_rec_type := p_qclv_rec;
2965: l_okc_qa_check_lists_tl_rec okc_qa_check_lists_tl_rec_type;
2966: l_qcl_rec qcl_rec_type;
2967: BEGIN
2968: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2969: G_PKG_NAME,
2979: END IF;
2980: --------------------------------------
2981: -- Move VIEW record to "Child" records
2982: --------------------------------------
2983: migrate(l_qclv_rec, l_okc_qa_check_lists_tl_rec);
2984: migrate(l_qclv_rec, l_qcl_rec);
2985: --------------------------------------------
2986: -- Call the DELETE_ROW for each child record
2987: --------------------------------------------
2989: p_init_msg_list,
2990: x_return_status,
2991: x_msg_count,
2992: x_msg_data,
2993: l_okc_qa_check_lists_tl_rec
2994: );
2995: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2996: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2997: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN