327: -- PROCEDURE add_language
328: ---------------------------------------------------------------------------
329: PROCEDURE add_language IS
330: BEGIN
331: DELETE FROM OKL_XTL_SELL_INVS_TL T
332: WHERE NOT EXISTS (
333: SELECT NULL
334: FROM OKL_XTL_SELL_INVS_B B
335: WHERE B.ID = T.ID
335: WHERE B.ID = T.ID
336: AND T.LANGUAGE = USERENV('LANG')
337: );
338:
339: UPDATE OKL_XTL_SELL_INVS_TL T SET (
340: DESCRIPTION,
341: XTRX_CONTRACT,
342: XTRX_ASSET,
343: XTRX_STREAM_GROUP,
346: B.XTRX_CONTRACT,
347: B.XTRX_ASSET,
348: B.XTRX_STREAM_GROUP,
349: B.XTRX_STREAM_TYPE
350: FROM OKL_XTL_SELL_INVS_TL B
351: WHERE B.ID = T.ID
352: AND B.LANGUAGE = T.SOURCE_LANG)
353: WHERE (
354: T.ID,
355: T.LANGUAGE)
356: IN (SELECT
357: SUBT.ID,
358: SUBT.LANGUAGE
359: FROM OKL_XTL_SELL_INVS_TL SUBB, OKL_XTL_SELL_INVS_TL SUBT
360: WHERE SUBB.ID = SUBT.ID
361: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
362: AND (SUBB.DESCRIPTION <> SUBT.DESCRIPTION
363: OR SUBB.XTRX_CONTRACT <> SUBT.XTRX_CONTRACT
375: OR (SUBB.XTRX_STREAM_TYPE IS NULL AND SUBT.XTRX_STREAM_TYPE IS NOT NULL)
376: OR (SUBB.XTRX_STREAM_TYPE IS NOT NULL AND SUBT.XTRX_STREAM_TYPE IS NULL)
377: ));
378:
379: INSERT INTO OKL_XTL_SELL_INVS_TL (
380: ID,
381: LANGUAGE,
382: SOURCE_LANG,
383: SFWT_FLAG,
405: B.CREATION_DATE,
406: B.LAST_UPDATED_BY,
407: B.LAST_UPDATE_DATE,
408: B.LAST_UPDATE_LOGIN
409: FROM OKL_XTL_SELL_INVS_TL B, FND_LANGUAGES L
410: WHERE L.INSTALLED_FLAG IN ('I', 'B')
411: AND B.LANGUAGE = USERENV('LANG')
412: AND NOT EXISTS(
413: SELECT NULL
410: WHERE L.INSTALLED_FLAG IN ('I', 'B')
411: AND B.LANGUAGE = USERENV('LANG')
412: AND NOT EXISTS(
413: SELECT NULL
414: FROM OKL_XTL_SELL_INVS_TL T
415: WHERE T.ID = B.ID
416: AND T.LANGUAGE = L.LANGUAGE_CODE
417: );
418:
536: BEGIN
537: RETURN(get_rec(p_xls_rec, l_row_notfound));
538: END get_rec;
539: ---------------------------------------------------------------------------
540: -- FUNCTION get_rec for: OKL_XTL_SELL_INVS_TL
541: ---------------------------------------------------------------------------
542: FUNCTION get_rec (
543: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type,
544: x_no_data_found OUT NOCOPY BOOLEAN
539: ---------------------------------------------------------------------------
540: -- FUNCTION get_rec for: OKL_XTL_SELL_INVS_TL
541: ---------------------------------------------------------------------------
542: FUNCTION get_rec (
543: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type,
544: x_no_data_found OUT NOCOPY BOOLEAN
545: ) RETURN okl_xtl_sell_invs_tl_rec_type IS
546: CURSOR okl_xtl_sell_invs_tl_pk_csr (p_id IN NUMBER,
547: p_language IN VARCHAR2) IS
541: ---------------------------------------------------------------------------
542: FUNCTION get_rec (
543: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type,
544: x_no_data_found OUT NOCOPY BOOLEAN
545: ) RETURN okl_xtl_sell_invs_tl_rec_type IS
546: CURSOR okl_xtl_sell_invs_tl_pk_csr (p_id IN NUMBER,
547: p_language IN VARCHAR2) IS
548: SELECT
549: ID,
542: FUNCTION get_rec (
543: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type,
544: x_no_data_found OUT NOCOPY BOOLEAN
545: ) RETURN okl_xtl_sell_invs_tl_rec_type IS
546: CURSOR okl_xtl_sell_invs_tl_pk_csr (p_id IN NUMBER,
547: p_language IN VARCHAR2) IS
548: SELECT
549: ID,
550: LANGUAGE,
559: CREATION_DATE,
560: LAST_UPDATED_BY,
561: LAST_UPDATE_DATE,
562: LAST_UPDATE_LOGIN
563: FROM Okl_Xtl_Sell_Invs_Tl
564: WHERE okl_xtl_sell_invs_tl.id = p_id
565: AND okl_xtl_sell_invs_tl.LANGUAGE = p_language;
566: l_okl_xtl_sell_invs_tl_pk okl_xtl_sell_invs_tl_pk_csr%ROWTYPE;
567: l_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type;
560: LAST_UPDATED_BY,
561: LAST_UPDATE_DATE,
562: LAST_UPDATE_LOGIN
563: FROM Okl_Xtl_Sell_Invs_Tl
564: WHERE okl_xtl_sell_invs_tl.id = p_id
565: AND okl_xtl_sell_invs_tl.LANGUAGE = p_language;
566: l_okl_xtl_sell_invs_tl_pk okl_xtl_sell_invs_tl_pk_csr%ROWTYPE;
567: l_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type;
568: BEGIN
561: LAST_UPDATE_DATE,
562: LAST_UPDATE_LOGIN
563: FROM Okl_Xtl_Sell_Invs_Tl
564: WHERE okl_xtl_sell_invs_tl.id = p_id
565: AND okl_xtl_sell_invs_tl.LANGUAGE = p_language;
566: l_okl_xtl_sell_invs_tl_pk okl_xtl_sell_invs_tl_pk_csr%ROWTYPE;
567: l_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type;
568: BEGIN
569: x_no_data_found := TRUE;
562: LAST_UPDATE_LOGIN
563: FROM Okl_Xtl_Sell_Invs_Tl
564: WHERE okl_xtl_sell_invs_tl.id = p_id
565: AND okl_xtl_sell_invs_tl.LANGUAGE = p_language;
566: l_okl_xtl_sell_invs_tl_pk okl_xtl_sell_invs_tl_pk_csr%ROWTYPE;
567: l_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type;
568: BEGIN
569: x_no_data_found := TRUE;
570: -- Get current database values
563: FROM Okl_Xtl_Sell_Invs_Tl
564: WHERE okl_xtl_sell_invs_tl.id = p_id
565: AND okl_xtl_sell_invs_tl.LANGUAGE = p_language;
566: l_okl_xtl_sell_invs_tl_pk okl_xtl_sell_invs_tl_pk_csr%ROWTYPE;
567: l_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type;
568: BEGIN
569: x_no_data_found := TRUE;
570: -- Get current database values
571: OPEN okl_xtl_sell_invs_tl_pk_csr (p_okl_xtl_sell_invs_tl_rec.id,
567: l_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type;
568: BEGIN
569: x_no_data_found := TRUE;
570: -- Get current database values
571: OPEN okl_xtl_sell_invs_tl_pk_csr (p_okl_xtl_sell_invs_tl_rec.id,
572: p_okl_xtl_sell_invs_tl_rec.LANGUAGE);
573: FETCH okl_xtl_sell_invs_tl_pk_csr INTO
574: l_okl_xtl_sell_invs_tl_rec.ID,
575: l_okl_xtl_sell_invs_tl_rec.LANGUAGE,
568: BEGIN
569: x_no_data_found := TRUE;
570: -- Get current database values
571: OPEN okl_xtl_sell_invs_tl_pk_csr (p_okl_xtl_sell_invs_tl_rec.id,
572: p_okl_xtl_sell_invs_tl_rec.LANGUAGE);
573: FETCH okl_xtl_sell_invs_tl_pk_csr INTO
574: l_okl_xtl_sell_invs_tl_rec.ID,
575: l_okl_xtl_sell_invs_tl_rec.LANGUAGE,
576: l_okl_xtl_sell_invs_tl_rec.SOURCE_LANG,
569: x_no_data_found := TRUE;
570: -- Get current database values
571: OPEN okl_xtl_sell_invs_tl_pk_csr (p_okl_xtl_sell_invs_tl_rec.id,
572: p_okl_xtl_sell_invs_tl_rec.LANGUAGE);
573: FETCH okl_xtl_sell_invs_tl_pk_csr INTO
574: l_okl_xtl_sell_invs_tl_rec.ID,
575: l_okl_xtl_sell_invs_tl_rec.LANGUAGE,
576: l_okl_xtl_sell_invs_tl_rec.SOURCE_LANG,
577: l_okl_xtl_sell_invs_tl_rec.SFWT_FLAG,
570: -- Get current database values
571: OPEN okl_xtl_sell_invs_tl_pk_csr (p_okl_xtl_sell_invs_tl_rec.id,
572: p_okl_xtl_sell_invs_tl_rec.LANGUAGE);
573: FETCH okl_xtl_sell_invs_tl_pk_csr INTO
574: l_okl_xtl_sell_invs_tl_rec.ID,
575: l_okl_xtl_sell_invs_tl_rec.LANGUAGE,
576: l_okl_xtl_sell_invs_tl_rec.SOURCE_LANG,
577: l_okl_xtl_sell_invs_tl_rec.SFWT_FLAG,
578: l_okl_xtl_sell_invs_tl_rec.DESCRIPTION,
571: OPEN okl_xtl_sell_invs_tl_pk_csr (p_okl_xtl_sell_invs_tl_rec.id,
572: p_okl_xtl_sell_invs_tl_rec.LANGUAGE);
573: FETCH okl_xtl_sell_invs_tl_pk_csr INTO
574: l_okl_xtl_sell_invs_tl_rec.ID,
575: l_okl_xtl_sell_invs_tl_rec.LANGUAGE,
576: l_okl_xtl_sell_invs_tl_rec.SOURCE_LANG,
577: l_okl_xtl_sell_invs_tl_rec.SFWT_FLAG,
578: l_okl_xtl_sell_invs_tl_rec.DESCRIPTION,
579: l_okl_xtl_sell_invs_tl_rec.XTRX_CONTRACT,
572: p_okl_xtl_sell_invs_tl_rec.LANGUAGE);
573: FETCH okl_xtl_sell_invs_tl_pk_csr INTO
574: l_okl_xtl_sell_invs_tl_rec.ID,
575: l_okl_xtl_sell_invs_tl_rec.LANGUAGE,
576: l_okl_xtl_sell_invs_tl_rec.SOURCE_LANG,
577: l_okl_xtl_sell_invs_tl_rec.SFWT_FLAG,
578: l_okl_xtl_sell_invs_tl_rec.DESCRIPTION,
579: l_okl_xtl_sell_invs_tl_rec.XTRX_CONTRACT,
580: l_okl_xtl_sell_invs_tl_rec.XTRX_ASSET,
573: FETCH okl_xtl_sell_invs_tl_pk_csr INTO
574: l_okl_xtl_sell_invs_tl_rec.ID,
575: l_okl_xtl_sell_invs_tl_rec.LANGUAGE,
576: l_okl_xtl_sell_invs_tl_rec.SOURCE_LANG,
577: l_okl_xtl_sell_invs_tl_rec.SFWT_FLAG,
578: l_okl_xtl_sell_invs_tl_rec.DESCRIPTION,
579: l_okl_xtl_sell_invs_tl_rec.XTRX_CONTRACT,
580: l_okl_xtl_sell_invs_tl_rec.XTRX_ASSET,
581: l_okl_xtl_sell_invs_tl_rec.XTRX_STREAM_GROUP,
574: l_okl_xtl_sell_invs_tl_rec.ID,
575: l_okl_xtl_sell_invs_tl_rec.LANGUAGE,
576: l_okl_xtl_sell_invs_tl_rec.SOURCE_LANG,
577: l_okl_xtl_sell_invs_tl_rec.SFWT_FLAG,
578: l_okl_xtl_sell_invs_tl_rec.DESCRIPTION,
579: l_okl_xtl_sell_invs_tl_rec.XTRX_CONTRACT,
580: l_okl_xtl_sell_invs_tl_rec.XTRX_ASSET,
581: l_okl_xtl_sell_invs_tl_rec.XTRX_STREAM_GROUP,
582: l_okl_xtl_sell_invs_tl_rec.XTRX_STREAM_TYPE,
575: l_okl_xtl_sell_invs_tl_rec.LANGUAGE,
576: l_okl_xtl_sell_invs_tl_rec.SOURCE_LANG,
577: l_okl_xtl_sell_invs_tl_rec.SFWT_FLAG,
578: l_okl_xtl_sell_invs_tl_rec.DESCRIPTION,
579: l_okl_xtl_sell_invs_tl_rec.XTRX_CONTRACT,
580: l_okl_xtl_sell_invs_tl_rec.XTRX_ASSET,
581: l_okl_xtl_sell_invs_tl_rec.XTRX_STREAM_GROUP,
582: l_okl_xtl_sell_invs_tl_rec.XTRX_STREAM_TYPE,
583: l_okl_xtl_sell_invs_tl_rec.CREATED_BY,
576: l_okl_xtl_sell_invs_tl_rec.SOURCE_LANG,
577: l_okl_xtl_sell_invs_tl_rec.SFWT_FLAG,
578: l_okl_xtl_sell_invs_tl_rec.DESCRIPTION,
579: l_okl_xtl_sell_invs_tl_rec.XTRX_CONTRACT,
580: l_okl_xtl_sell_invs_tl_rec.XTRX_ASSET,
581: l_okl_xtl_sell_invs_tl_rec.XTRX_STREAM_GROUP,
582: l_okl_xtl_sell_invs_tl_rec.XTRX_STREAM_TYPE,
583: l_okl_xtl_sell_invs_tl_rec.CREATED_BY,
584: l_okl_xtl_sell_invs_tl_rec.CREATION_DATE,
577: l_okl_xtl_sell_invs_tl_rec.SFWT_FLAG,
578: l_okl_xtl_sell_invs_tl_rec.DESCRIPTION,
579: l_okl_xtl_sell_invs_tl_rec.XTRX_CONTRACT,
580: l_okl_xtl_sell_invs_tl_rec.XTRX_ASSET,
581: l_okl_xtl_sell_invs_tl_rec.XTRX_STREAM_GROUP,
582: l_okl_xtl_sell_invs_tl_rec.XTRX_STREAM_TYPE,
583: l_okl_xtl_sell_invs_tl_rec.CREATED_BY,
584: l_okl_xtl_sell_invs_tl_rec.CREATION_DATE,
585: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATED_BY,
578: l_okl_xtl_sell_invs_tl_rec.DESCRIPTION,
579: l_okl_xtl_sell_invs_tl_rec.XTRX_CONTRACT,
580: l_okl_xtl_sell_invs_tl_rec.XTRX_ASSET,
581: l_okl_xtl_sell_invs_tl_rec.XTRX_STREAM_GROUP,
582: l_okl_xtl_sell_invs_tl_rec.XTRX_STREAM_TYPE,
583: l_okl_xtl_sell_invs_tl_rec.CREATED_BY,
584: l_okl_xtl_sell_invs_tl_rec.CREATION_DATE,
585: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATED_BY,
586: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATE_DATE,
579: l_okl_xtl_sell_invs_tl_rec.XTRX_CONTRACT,
580: l_okl_xtl_sell_invs_tl_rec.XTRX_ASSET,
581: l_okl_xtl_sell_invs_tl_rec.XTRX_STREAM_GROUP,
582: l_okl_xtl_sell_invs_tl_rec.XTRX_STREAM_TYPE,
583: l_okl_xtl_sell_invs_tl_rec.CREATED_BY,
584: l_okl_xtl_sell_invs_tl_rec.CREATION_DATE,
585: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATED_BY,
586: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATE_DATE,
587: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATE_LOGIN;
580: l_okl_xtl_sell_invs_tl_rec.XTRX_ASSET,
581: l_okl_xtl_sell_invs_tl_rec.XTRX_STREAM_GROUP,
582: l_okl_xtl_sell_invs_tl_rec.XTRX_STREAM_TYPE,
583: l_okl_xtl_sell_invs_tl_rec.CREATED_BY,
584: l_okl_xtl_sell_invs_tl_rec.CREATION_DATE,
585: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATED_BY,
586: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATE_DATE,
587: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATE_LOGIN;
588: x_no_data_found := okl_xtl_sell_invs_tl_pk_csr%NOTFOUND;
581: l_okl_xtl_sell_invs_tl_rec.XTRX_STREAM_GROUP,
582: l_okl_xtl_sell_invs_tl_rec.XTRX_STREAM_TYPE,
583: l_okl_xtl_sell_invs_tl_rec.CREATED_BY,
584: l_okl_xtl_sell_invs_tl_rec.CREATION_DATE,
585: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATED_BY,
586: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATE_DATE,
587: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATE_LOGIN;
588: x_no_data_found := okl_xtl_sell_invs_tl_pk_csr%NOTFOUND;
589: CLOSE okl_xtl_sell_invs_tl_pk_csr;
582: l_okl_xtl_sell_invs_tl_rec.XTRX_STREAM_TYPE,
583: l_okl_xtl_sell_invs_tl_rec.CREATED_BY,
584: l_okl_xtl_sell_invs_tl_rec.CREATION_DATE,
585: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATED_BY,
586: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATE_DATE,
587: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATE_LOGIN;
588: x_no_data_found := okl_xtl_sell_invs_tl_pk_csr%NOTFOUND;
589: CLOSE okl_xtl_sell_invs_tl_pk_csr;
590: RETURN(l_okl_xtl_sell_invs_tl_rec);
583: l_okl_xtl_sell_invs_tl_rec.CREATED_BY,
584: l_okl_xtl_sell_invs_tl_rec.CREATION_DATE,
585: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATED_BY,
586: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATE_DATE,
587: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATE_LOGIN;
588: x_no_data_found := okl_xtl_sell_invs_tl_pk_csr%NOTFOUND;
589: CLOSE okl_xtl_sell_invs_tl_pk_csr;
590: RETURN(l_okl_xtl_sell_invs_tl_rec);
591: END get_rec;
584: l_okl_xtl_sell_invs_tl_rec.CREATION_DATE,
585: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATED_BY,
586: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATE_DATE,
587: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATE_LOGIN;
588: x_no_data_found := okl_xtl_sell_invs_tl_pk_csr%NOTFOUND;
589: CLOSE okl_xtl_sell_invs_tl_pk_csr;
590: RETURN(l_okl_xtl_sell_invs_tl_rec);
591: END get_rec;
592:
585: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATED_BY,
586: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATE_DATE,
587: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATE_LOGIN;
588: x_no_data_found := okl_xtl_sell_invs_tl_pk_csr%NOTFOUND;
589: CLOSE okl_xtl_sell_invs_tl_pk_csr;
590: RETURN(l_okl_xtl_sell_invs_tl_rec);
591: END get_rec;
592:
593: FUNCTION get_rec (
586: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATE_DATE,
587: l_okl_xtl_sell_invs_tl_rec.LAST_UPDATE_LOGIN;
588: x_no_data_found := okl_xtl_sell_invs_tl_pk_csr%NOTFOUND;
589: CLOSE okl_xtl_sell_invs_tl_pk_csr;
590: RETURN(l_okl_xtl_sell_invs_tl_rec);
591: END get_rec;
592:
593: FUNCTION get_rec (
594: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type
590: RETURN(l_okl_xtl_sell_invs_tl_rec);
591: END get_rec;
592:
593: FUNCTION get_rec (
594: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type
595: ) RETURN okl_xtl_sell_invs_tl_rec_type IS
596: l_row_notfound BOOLEAN := TRUE;
597: BEGIN
598: RETURN(get_rec(p_okl_xtl_sell_invs_tl_rec, l_row_notfound));
591: END get_rec;
592:
593: FUNCTION get_rec (
594: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type
595: ) RETURN okl_xtl_sell_invs_tl_rec_type IS
596: l_row_notfound BOOLEAN := TRUE;
597: BEGIN
598: RETURN(get_rec(p_okl_xtl_sell_invs_tl_rec, l_row_notfound));
599: END get_rec;
594: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type
595: ) RETURN okl_xtl_sell_invs_tl_rec_type IS
596: l_row_notfound BOOLEAN := TRUE;
597: BEGIN
598: RETURN(get_rec(p_okl_xtl_sell_invs_tl_rec, l_row_notfound));
599: END get_rec;
600: ---------------------------------------------------------------------------
601: -- FUNCTION get_rec for: OKL_XTL_SELL_INVS_V
602: ---------------------------------------------------------------------------
1130: p_to.last_update_login := p_from.last_update_login;
1131: END migrate;
1132: PROCEDURE migrate (
1133: p_from IN xlsv_rec_type,
1134: p_to IN OUT NOCOPY okl_xtl_sell_invs_tl_rec_type
1135: ) IS
1136: BEGIN
1137: p_to.id := p_from.id;
1138: p_to.sfwt_flag := p_from.sfwt_flag;
1147: p_to.last_update_date := p_from.last_update_date;
1148: p_to.last_update_login := p_from.last_update_login;
1149: END migrate;
1150: PROCEDURE migrate (
1151: p_from IN okl_xtl_sell_invs_tl_rec_type,
1152: p_to IN OUT NOCOPY xlsv_rec_type
1153: ) IS
1154: BEGIN
1155: p_to.id := p_from.id;
1184: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1185: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1186: l_xlsv_rec xlsv_rec_type := p_xlsv_rec;
1187: l_xls_rec xls_rec_type;
1188: l_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type;
1189: BEGIN
1190: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1191: G_PKG_NAME,
1192: p_init_msg_list,
1503: '_PVT'
1504: );
1505: END insert_row;
1506: -----------------------------------------
1507: -- insert_row for:OKL_XTL_SELL_INVS_TL --
1508: -----------------------------------------
1509: PROCEDURE insert_row(
1510: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1511: x_return_status OUT NOCOPY VARCHAR2,
1510: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1511: x_return_status OUT NOCOPY VARCHAR2,
1512: x_msg_count OUT NOCOPY NUMBER,
1513: x_msg_data OUT NOCOPY VARCHAR2,
1514: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type,
1515: x_okl_xtl_sell_invs_tl_rec OUT NOCOPY okl_xtl_sell_invs_tl_rec_type) IS
1516:
1517: l_api_version CONSTANT NUMBER := 1;
1518: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1511: x_return_status OUT NOCOPY VARCHAR2,
1512: x_msg_count OUT NOCOPY NUMBER,
1513: x_msg_data OUT NOCOPY VARCHAR2,
1514: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type,
1515: x_okl_xtl_sell_invs_tl_rec OUT NOCOPY okl_xtl_sell_invs_tl_rec_type) IS
1516:
1517: l_api_version CONSTANT NUMBER := 1;
1518: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1519: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1516:
1517: l_api_version CONSTANT NUMBER := 1;
1518: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1519: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1520: l_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type := p_okl_xtl_sell_invs_tl_rec;
1521: ldefoklxtlsellinvstlrec okl_xtl_sell_invs_tl_rec_type;
1522: CURSOR get_languages IS
1523: SELECT *
1524: FROM FND_LANGUAGES
1517: l_api_version CONSTANT NUMBER := 1;
1518: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1519: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1520: l_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type := p_okl_xtl_sell_invs_tl_rec;
1521: ldefoklxtlsellinvstlrec okl_xtl_sell_invs_tl_rec_type;
1522: CURSOR get_languages IS
1523: SELECT *
1524: FROM FND_LANGUAGES
1525: WHERE INSTALLED_FLAG IN ('I', 'B');
1523: SELECT *
1524: FROM FND_LANGUAGES
1525: WHERE INSTALLED_FLAG IN ('I', 'B');
1526: ---------------------------------------------
1527: -- Set_Attributes for:OKL_XTL_SELL_INVS_TL --
1528: ---------------------------------------------
1529: FUNCTION Set_Attributes (
1530: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type,
1531: x_okl_xtl_sell_invs_tl_rec OUT NOCOPY okl_xtl_sell_invs_tl_rec_type
1526: ---------------------------------------------
1527: -- Set_Attributes for:OKL_XTL_SELL_INVS_TL --
1528: ---------------------------------------------
1529: FUNCTION Set_Attributes (
1530: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type,
1531: x_okl_xtl_sell_invs_tl_rec OUT NOCOPY okl_xtl_sell_invs_tl_rec_type
1532: ) RETURN VARCHAR2 IS
1533: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1534: BEGIN
1527: -- Set_Attributes for:OKL_XTL_SELL_INVS_TL --
1528: ---------------------------------------------
1529: FUNCTION Set_Attributes (
1530: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type,
1531: x_okl_xtl_sell_invs_tl_rec OUT NOCOPY okl_xtl_sell_invs_tl_rec_type
1532: ) RETURN VARCHAR2 IS
1533: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1534: BEGIN
1535: x_okl_xtl_sell_invs_tl_rec := p_okl_xtl_sell_invs_tl_rec;
1531: x_okl_xtl_sell_invs_tl_rec OUT NOCOPY okl_xtl_sell_invs_tl_rec_type
1532: ) RETURN VARCHAR2 IS
1533: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1534: BEGIN
1535: x_okl_xtl_sell_invs_tl_rec := p_okl_xtl_sell_invs_tl_rec;
1536: x_okl_xtl_sell_invs_tl_rec.LANGUAGE := USERENV('LANG');
1537: x_okl_xtl_sell_invs_tl_rec.SOURCE_LANG := USERENV('LANG');
1538: RETURN(l_return_status);
1539: END Set_Attributes;
1532: ) RETURN VARCHAR2 IS
1533: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1534: BEGIN
1535: x_okl_xtl_sell_invs_tl_rec := p_okl_xtl_sell_invs_tl_rec;
1536: x_okl_xtl_sell_invs_tl_rec.LANGUAGE := USERENV('LANG');
1537: x_okl_xtl_sell_invs_tl_rec.SOURCE_LANG := USERENV('LANG');
1538: RETURN(l_return_status);
1539: END Set_Attributes;
1540: BEGIN
1533: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1534: BEGIN
1535: x_okl_xtl_sell_invs_tl_rec := p_okl_xtl_sell_invs_tl_rec;
1536: x_okl_xtl_sell_invs_tl_rec.LANGUAGE := USERENV('LANG');
1537: x_okl_xtl_sell_invs_tl_rec.SOURCE_LANG := USERENV('LANG');
1538: RETURN(l_return_status);
1539: END Set_Attributes;
1540: BEGIN
1541: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1548: RAISE Okl_Api.G_EXCEPTION_ERROR;
1549: END IF;
1550: --- Setting item attributes
1551: l_return_status := Set_Attributes(
1552: p_okl_xtl_sell_invs_tl_rec, -- IN
1553: l_okl_xtl_sell_invs_tl_rec); -- OUT
1554: --- If any errors happen abort API
1555: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1556: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1549: END IF;
1550: --- Setting item attributes
1551: l_return_status := Set_Attributes(
1552: p_okl_xtl_sell_invs_tl_rec, -- IN
1553: l_okl_xtl_sell_invs_tl_rec); -- OUT
1554: --- If any errors happen abort API
1555: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1556: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1557: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1557: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1558: RAISE Okl_Api.G_EXCEPTION_ERROR;
1559: END IF;
1560: FOR l_lang_rec IN get_languages LOOP
1561: l_okl_xtl_sell_invs_tl_rec.LANGUAGE := l_lang_rec.language_code;
1562: INSERT INTO OKL_XTL_SELL_INVS_TL(
1563: id,
1564: LANGUAGE,
1565: source_lang,
1558: RAISE Okl_Api.G_EXCEPTION_ERROR;
1559: END IF;
1560: FOR l_lang_rec IN get_languages LOOP
1561: l_okl_xtl_sell_invs_tl_rec.LANGUAGE := l_lang_rec.language_code;
1562: INSERT INTO OKL_XTL_SELL_INVS_TL(
1563: id,
1564: LANGUAGE,
1565: source_lang,
1566: sfwt_flag,
1574: last_updated_by,
1575: last_update_date,
1576: last_update_login)
1577: VALUES (
1578: l_okl_xtl_sell_invs_tl_rec.id,
1579: l_okl_xtl_sell_invs_tl_rec.LANGUAGE,
1580: l_okl_xtl_sell_invs_tl_rec.source_lang,
1581: l_okl_xtl_sell_invs_tl_rec.sfwt_flag,
1582: l_okl_xtl_sell_invs_tl_rec.description,
1575: last_update_date,
1576: last_update_login)
1577: VALUES (
1578: l_okl_xtl_sell_invs_tl_rec.id,
1579: l_okl_xtl_sell_invs_tl_rec.LANGUAGE,
1580: l_okl_xtl_sell_invs_tl_rec.source_lang,
1581: l_okl_xtl_sell_invs_tl_rec.sfwt_flag,
1582: l_okl_xtl_sell_invs_tl_rec.description,
1583: l_okl_xtl_sell_invs_tl_rec.xtrx_contract,
1576: last_update_login)
1577: VALUES (
1578: l_okl_xtl_sell_invs_tl_rec.id,
1579: l_okl_xtl_sell_invs_tl_rec.LANGUAGE,
1580: l_okl_xtl_sell_invs_tl_rec.source_lang,
1581: l_okl_xtl_sell_invs_tl_rec.sfwt_flag,
1582: l_okl_xtl_sell_invs_tl_rec.description,
1583: l_okl_xtl_sell_invs_tl_rec.xtrx_contract,
1584: l_okl_xtl_sell_invs_tl_rec.xtrx_asset,
1577: VALUES (
1578: l_okl_xtl_sell_invs_tl_rec.id,
1579: l_okl_xtl_sell_invs_tl_rec.LANGUAGE,
1580: l_okl_xtl_sell_invs_tl_rec.source_lang,
1581: l_okl_xtl_sell_invs_tl_rec.sfwt_flag,
1582: l_okl_xtl_sell_invs_tl_rec.description,
1583: l_okl_xtl_sell_invs_tl_rec.xtrx_contract,
1584: l_okl_xtl_sell_invs_tl_rec.xtrx_asset,
1585: l_okl_xtl_sell_invs_tl_rec.xtrx_stream_group,
1578: l_okl_xtl_sell_invs_tl_rec.id,
1579: l_okl_xtl_sell_invs_tl_rec.LANGUAGE,
1580: l_okl_xtl_sell_invs_tl_rec.source_lang,
1581: l_okl_xtl_sell_invs_tl_rec.sfwt_flag,
1582: l_okl_xtl_sell_invs_tl_rec.description,
1583: l_okl_xtl_sell_invs_tl_rec.xtrx_contract,
1584: l_okl_xtl_sell_invs_tl_rec.xtrx_asset,
1585: l_okl_xtl_sell_invs_tl_rec.xtrx_stream_group,
1586: l_okl_xtl_sell_invs_tl_rec.xtrx_stream_type,
1579: l_okl_xtl_sell_invs_tl_rec.LANGUAGE,
1580: l_okl_xtl_sell_invs_tl_rec.source_lang,
1581: l_okl_xtl_sell_invs_tl_rec.sfwt_flag,
1582: l_okl_xtl_sell_invs_tl_rec.description,
1583: l_okl_xtl_sell_invs_tl_rec.xtrx_contract,
1584: l_okl_xtl_sell_invs_tl_rec.xtrx_asset,
1585: l_okl_xtl_sell_invs_tl_rec.xtrx_stream_group,
1586: l_okl_xtl_sell_invs_tl_rec.xtrx_stream_type,
1587: l_okl_xtl_sell_invs_tl_rec.created_by,
1580: l_okl_xtl_sell_invs_tl_rec.source_lang,
1581: l_okl_xtl_sell_invs_tl_rec.sfwt_flag,
1582: l_okl_xtl_sell_invs_tl_rec.description,
1583: l_okl_xtl_sell_invs_tl_rec.xtrx_contract,
1584: l_okl_xtl_sell_invs_tl_rec.xtrx_asset,
1585: l_okl_xtl_sell_invs_tl_rec.xtrx_stream_group,
1586: l_okl_xtl_sell_invs_tl_rec.xtrx_stream_type,
1587: l_okl_xtl_sell_invs_tl_rec.created_by,
1588: l_okl_xtl_sell_invs_tl_rec.creation_date,
1581: l_okl_xtl_sell_invs_tl_rec.sfwt_flag,
1582: l_okl_xtl_sell_invs_tl_rec.description,
1583: l_okl_xtl_sell_invs_tl_rec.xtrx_contract,
1584: l_okl_xtl_sell_invs_tl_rec.xtrx_asset,
1585: l_okl_xtl_sell_invs_tl_rec.xtrx_stream_group,
1586: l_okl_xtl_sell_invs_tl_rec.xtrx_stream_type,
1587: l_okl_xtl_sell_invs_tl_rec.created_by,
1588: l_okl_xtl_sell_invs_tl_rec.creation_date,
1589: l_okl_xtl_sell_invs_tl_rec.last_updated_by,
1582: l_okl_xtl_sell_invs_tl_rec.description,
1583: l_okl_xtl_sell_invs_tl_rec.xtrx_contract,
1584: l_okl_xtl_sell_invs_tl_rec.xtrx_asset,
1585: l_okl_xtl_sell_invs_tl_rec.xtrx_stream_group,
1586: l_okl_xtl_sell_invs_tl_rec.xtrx_stream_type,
1587: l_okl_xtl_sell_invs_tl_rec.created_by,
1588: l_okl_xtl_sell_invs_tl_rec.creation_date,
1589: l_okl_xtl_sell_invs_tl_rec.last_updated_by,
1590: l_okl_xtl_sell_invs_tl_rec.last_update_date,
1583: l_okl_xtl_sell_invs_tl_rec.xtrx_contract,
1584: l_okl_xtl_sell_invs_tl_rec.xtrx_asset,
1585: l_okl_xtl_sell_invs_tl_rec.xtrx_stream_group,
1586: l_okl_xtl_sell_invs_tl_rec.xtrx_stream_type,
1587: l_okl_xtl_sell_invs_tl_rec.created_by,
1588: l_okl_xtl_sell_invs_tl_rec.creation_date,
1589: l_okl_xtl_sell_invs_tl_rec.last_updated_by,
1590: l_okl_xtl_sell_invs_tl_rec.last_update_date,
1591: l_okl_xtl_sell_invs_tl_rec.last_update_login);
1584: l_okl_xtl_sell_invs_tl_rec.xtrx_asset,
1585: l_okl_xtl_sell_invs_tl_rec.xtrx_stream_group,
1586: l_okl_xtl_sell_invs_tl_rec.xtrx_stream_type,
1587: l_okl_xtl_sell_invs_tl_rec.created_by,
1588: l_okl_xtl_sell_invs_tl_rec.creation_date,
1589: l_okl_xtl_sell_invs_tl_rec.last_updated_by,
1590: l_okl_xtl_sell_invs_tl_rec.last_update_date,
1591: l_okl_xtl_sell_invs_tl_rec.last_update_login);
1592: END LOOP;
1585: l_okl_xtl_sell_invs_tl_rec.xtrx_stream_group,
1586: l_okl_xtl_sell_invs_tl_rec.xtrx_stream_type,
1587: l_okl_xtl_sell_invs_tl_rec.created_by,
1588: l_okl_xtl_sell_invs_tl_rec.creation_date,
1589: l_okl_xtl_sell_invs_tl_rec.last_updated_by,
1590: l_okl_xtl_sell_invs_tl_rec.last_update_date,
1591: l_okl_xtl_sell_invs_tl_rec.last_update_login);
1592: END LOOP;
1593: -- Set OUT values
1586: l_okl_xtl_sell_invs_tl_rec.xtrx_stream_type,
1587: l_okl_xtl_sell_invs_tl_rec.created_by,
1588: l_okl_xtl_sell_invs_tl_rec.creation_date,
1589: l_okl_xtl_sell_invs_tl_rec.last_updated_by,
1590: l_okl_xtl_sell_invs_tl_rec.last_update_date,
1591: l_okl_xtl_sell_invs_tl_rec.last_update_login);
1592: END LOOP;
1593: -- Set OUT values
1594: x_okl_xtl_sell_invs_tl_rec := l_okl_xtl_sell_invs_tl_rec;
1587: l_okl_xtl_sell_invs_tl_rec.created_by,
1588: l_okl_xtl_sell_invs_tl_rec.creation_date,
1589: l_okl_xtl_sell_invs_tl_rec.last_updated_by,
1590: l_okl_xtl_sell_invs_tl_rec.last_update_date,
1591: l_okl_xtl_sell_invs_tl_rec.last_update_login);
1592: END LOOP;
1593: -- Set OUT values
1594: x_okl_xtl_sell_invs_tl_rec := l_okl_xtl_sell_invs_tl_rec;
1595: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1590: l_okl_xtl_sell_invs_tl_rec.last_update_date,
1591: l_okl_xtl_sell_invs_tl_rec.last_update_login);
1592: END LOOP;
1593: -- Set OUT values
1594: x_okl_xtl_sell_invs_tl_rec := l_okl_xtl_sell_invs_tl_rec;
1595: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1596: EXCEPTION
1597: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1598: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1643: l_xlsv_rec xlsv_rec_type;
1644: l_def_xlsv_rec xlsv_rec_type;
1645: l_xls_rec xls_rec_type;
1646: lx_xls_rec xls_rec_type;
1647: l_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type;
1648: lx_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type;
1649: -------------------------------
1650: -- FUNCTION fill_who_columns --
1651: -------------------------------
1644: l_def_xlsv_rec xlsv_rec_type;
1645: l_xls_rec xls_rec_type;
1646: lx_xls_rec xls_rec_type;
1647: l_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type;
1648: lx_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type;
1649: -------------------------------
1650: -- FUNCTION fill_who_columns --
1651: -------------------------------
1652: FUNCTION fill_who_columns (
1734: --------------------------------------
1735: -- Move VIEW record to "Child" records
1736: --------------------------------------
1737: migrate(l_def_xlsv_rec, l_xls_rec);
1738: migrate(l_def_xlsv_rec, l_okl_xtl_sell_invs_tl_rec);
1739: --------------------------------------------
1740: -- Call the INSERT_ROW for each child record
1741: --------------------------------------------
1742: insert_row(
1757: p_init_msg_list,
1758: x_return_status,
1759: x_msg_count,
1760: x_msg_data,
1761: l_okl_xtl_sell_invs_tl_rec,
1762: lx_okl_xtl_sell_invs_tl_rec
1763: );
1764: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1765: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1758: x_return_status,
1759: x_msg_count,
1760: x_msg_data,
1761: l_okl_xtl_sell_invs_tl_rec,
1762: lx_okl_xtl_sell_invs_tl_rec
1763: );
1764: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1765: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1766: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1765: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1766: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1767: RAISE Okl_Api.G_EXCEPTION_ERROR;
1768: END IF;
1769: migrate(lx_okl_xtl_sell_invs_tl_rec, l_def_xlsv_rec);
1770: -- Set OUT values
1771: x_xlsv_rec := l_def_xlsv_rec;
1772: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1773: EXCEPTION
2001: '_PVT'
2002: );
2003: END lock_row;
2004: ---------------------------------------
2005: -- lock_row for:OKL_XTL_SELL_INVS_TL --
2006: ---------------------------------------
2007: PROCEDURE lock_row(
2008: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
2009: x_return_status OUT NOCOPY VARCHAR2,
2008: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
2009: x_return_status OUT NOCOPY VARCHAR2,
2010: x_msg_count OUT NOCOPY NUMBER,
2011: x_msg_data OUT NOCOPY VARCHAR2,
2012: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type) IS
2013:
2014: E_Resource_Busy EXCEPTION;
2015: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2016: CURSOR lock_csr (p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type) IS
2012: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type) IS
2013:
2014: E_Resource_Busy EXCEPTION;
2015: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2016: CURSOR lock_csr (p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type) IS
2017: SELECT *
2018: FROM OKL_XTL_SELL_INVS_TL
2019: WHERE ID = p_okl_xtl_sell_invs_tl_rec.id
2020: FOR UPDATE NOWAIT;
2014: E_Resource_Busy EXCEPTION;
2015: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2016: CURSOR lock_csr (p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type) IS
2017: SELECT *
2018: FROM OKL_XTL_SELL_INVS_TL
2019: WHERE ID = p_okl_xtl_sell_invs_tl_rec.id
2020: FOR UPDATE NOWAIT;
2021:
2022: l_api_version CONSTANT NUMBER := 1;
2015: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2016: CURSOR lock_csr (p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type) IS
2017: SELECT *
2018: FROM OKL_XTL_SELL_INVS_TL
2019: WHERE ID = p_okl_xtl_sell_invs_tl_rec.id
2020: FOR UPDATE NOWAIT;
2021:
2022: l_api_version CONSTANT NUMBER := 1;
2023: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
2035: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2036: RAISE Okl_Api.G_EXCEPTION_ERROR;
2037: END IF;
2038: BEGIN
2039: OPEN lock_csr(p_okl_xtl_sell_invs_tl_rec);
2040: FETCH lock_csr INTO l_lock_var;
2041: l_row_notfound := lock_csr%NOTFOUND;
2042: CLOSE lock_csr;
2043: EXCEPTION
2100: l_api_version CONSTANT NUMBER := 1;
2101: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2102: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2103: l_xls_rec xls_rec_type;
2104: l_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type;
2105: BEGIN
2106: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
2107: G_PKG_NAME,
2108: p_init_msg_list,
2118: --------------------------------------
2119: -- Move VIEW record to "Child" records
2120: --------------------------------------
2121: migrate(p_xlsv_rec, l_xls_rec);
2122: migrate(p_xlsv_rec, l_okl_xtl_sell_invs_tl_rec);
2123: --------------------------------------------
2124: -- Call the LOCK_ROW for each child record
2125: --------------------------------------------
2126: lock_row(
2139: p_init_msg_list,
2140: x_return_status,
2141: x_msg_count,
2142: x_msg_data,
2143: l_okl_xtl_sell_invs_tl_rec
2144: );
2145: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2146: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2147: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2598: '_PVT'
2599: );
2600: END update_row;
2601: -----------------------------------------
2602: -- update_row for:OKL_XTL_SELL_INVS_TL --
2603: -----------------------------------------
2604: PROCEDURE update_row(
2605: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
2606: x_return_status OUT NOCOPY VARCHAR2,
2605: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
2606: x_return_status OUT NOCOPY VARCHAR2,
2607: x_msg_count OUT NOCOPY NUMBER,
2608: x_msg_data OUT NOCOPY VARCHAR2,
2609: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type,
2610: x_okl_xtl_sell_invs_tl_rec OUT NOCOPY okl_xtl_sell_invs_tl_rec_type) IS
2611:
2612: l_api_version CONSTANT NUMBER := 1;
2613: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2606: x_return_status OUT NOCOPY VARCHAR2,
2607: x_msg_count OUT NOCOPY NUMBER,
2608: x_msg_data OUT NOCOPY VARCHAR2,
2609: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type,
2610: x_okl_xtl_sell_invs_tl_rec OUT NOCOPY okl_xtl_sell_invs_tl_rec_type) IS
2611:
2612: l_api_version CONSTANT NUMBER := 1;
2613: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2614: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2611:
2612: l_api_version CONSTANT NUMBER := 1;
2613: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2614: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2615: l_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type := p_okl_xtl_sell_invs_tl_rec;
2616: ldefoklxtlsellinvstlrec okl_xtl_sell_invs_tl_rec_type;
2617: l_row_notfound BOOLEAN := TRUE;
2618: ----------------------------------
2619: -- FUNCTION populate_new_record --
2612: l_api_version CONSTANT NUMBER := 1;
2613: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2614: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2615: l_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type := p_okl_xtl_sell_invs_tl_rec;
2616: ldefoklxtlsellinvstlrec okl_xtl_sell_invs_tl_rec_type;
2617: l_row_notfound BOOLEAN := TRUE;
2618: ----------------------------------
2619: -- FUNCTION populate_new_record --
2620: ----------------------------------
2618: ----------------------------------
2619: -- FUNCTION populate_new_record --
2620: ----------------------------------
2621: FUNCTION populate_new_record (
2622: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type,
2623: x_okl_xtl_sell_invs_tl_rec OUT NOCOPY okl_xtl_sell_invs_tl_rec_type
2624: ) RETURN VARCHAR2 IS
2625: l_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type;
2626: l_row_notfound BOOLEAN := TRUE;
2619: -- FUNCTION populate_new_record --
2620: ----------------------------------
2621: FUNCTION populate_new_record (
2622: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type,
2623: x_okl_xtl_sell_invs_tl_rec OUT NOCOPY okl_xtl_sell_invs_tl_rec_type
2624: ) RETURN VARCHAR2 IS
2625: l_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type;
2626: l_row_notfound BOOLEAN := TRUE;
2627: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2621: FUNCTION populate_new_record (
2622: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type,
2623: x_okl_xtl_sell_invs_tl_rec OUT NOCOPY okl_xtl_sell_invs_tl_rec_type
2624: ) RETURN VARCHAR2 IS
2625: l_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type;
2626: l_row_notfound BOOLEAN := TRUE;
2627: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2628: BEGIN
2629: x_okl_xtl_sell_invs_tl_rec := p_okl_xtl_sell_invs_tl_rec;
2625: l_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type;
2626: l_row_notfound BOOLEAN := TRUE;
2627: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2628: BEGIN
2629: x_okl_xtl_sell_invs_tl_rec := p_okl_xtl_sell_invs_tl_rec;
2630: -- Get current database values
2631: l_okl_xtl_sell_invs_tl_rec := get_rec(p_okl_xtl_sell_invs_tl_rec, l_row_notfound);
2632: IF (l_row_notfound) THEN
2633: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
2627: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2628: BEGIN
2629: x_okl_xtl_sell_invs_tl_rec := p_okl_xtl_sell_invs_tl_rec;
2630: -- Get current database values
2631: l_okl_xtl_sell_invs_tl_rec := get_rec(p_okl_xtl_sell_invs_tl_rec, l_row_notfound);
2632: IF (l_row_notfound) THEN
2633: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
2634: END IF;
2635: IF (x_okl_xtl_sell_invs_tl_rec.id = Okl_Api.G_MISS_NUM)
2631: l_okl_xtl_sell_invs_tl_rec := get_rec(p_okl_xtl_sell_invs_tl_rec, l_row_notfound);
2632: IF (l_row_notfound) THEN
2633: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
2634: END IF;
2635: IF (x_okl_xtl_sell_invs_tl_rec.id = Okl_Api.G_MISS_NUM)
2636: THEN
2637: x_okl_xtl_sell_invs_tl_rec.id := l_okl_xtl_sell_invs_tl_rec.id;
2638: END IF;
2639: IF (x_okl_xtl_sell_invs_tl_rec.LANGUAGE = Okl_Api.G_MISS_CHAR)
2633: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
2634: END IF;
2635: IF (x_okl_xtl_sell_invs_tl_rec.id = Okl_Api.G_MISS_NUM)
2636: THEN
2637: x_okl_xtl_sell_invs_tl_rec.id := l_okl_xtl_sell_invs_tl_rec.id;
2638: END IF;
2639: IF (x_okl_xtl_sell_invs_tl_rec.LANGUAGE = Okl_Api.G_MISS_CHAR)
2640: THEN
2641: x_okl_xtl_sell_invs_tl_rec.LANGUAGE := l_okl_xtl_sell_invs_tl_rec.LANGUAGE;
2635: IF (x_okl_xtl_sell_invs_tl_rec.id = Okl_Api.G_MISS_NUM)
2636: THEN
2637: x_okl_xtl_sell_invs_tl_rec.id := l_okl_xtl_sell_invs_tl_rec.id;
2638: END IF;
2639: IF (x_okl_xtl_sell_invs_tl_rec.LANGUAGE = Okl_Api.G_MISS_CHAR)
2640: THEN
2641: x_okl_xtl_sell_invs_tl_rec.LANGUAGE := l_okl_xtl_sell_invs_tl_rec.LANGUAGE;
2642: END IF;
2643: IF (x_okl_xtl_sell_invs_tl_rec.source_lang = Okl_Api.G_MISS_CHAR)
2637: x_okl_xtl_sell_invs_tl_rec.id := l_okl_xtl_sell_invs_tl_rec.id;
2638: END IF;
2639: IF (x_okl_xtl_sell_invs_tl_rec.LANGUAGE = Okl_Api.G_MISS_CHAR)
2640: THEN
2641: x_okl_xtl_sell_invs_tl_rec.LANGUAGE := l_okl_xtl_sell_invs_tl_rec.LANGUAGE;
2642: END IF;
2643: IF (x_okl_xtl_sell_invs_tl_rec.source_lang = Okl_Api.G_MISS_CHAR)
2644: THEN
2645: x_okl_xtl_sell_invs_tl_rec.source_lang := l_okl_xtl_sell_invs_tl_rec.source_lang;
2639: IF (x_okl_xtl_sell_invs_tl_rec.LANGUAGE = Okl_Api.G_MISS_CHAR)
2640: THEN
2641: x_okl_xtl_sell_invs_tl_rec.LANGUAGE := l_okl_xtl_sell_invs_tl_rec.LANGUAGE;
2642: END IF;
2643: IF (x_okl_xtl_sell_invs_tl_rec.source_lang = Okl_Api.G_MISS_CHAR)
2644: THEN
2645: x_okl_xtl_sell_invs_tl_rec.source_lang := l_okl_xtl_sell_invs_tl_rec.source_lang;
2646: END IF;
2647: IF (x_okl_xtl_sell_invs_tl_rec.sfwt_flag = Okl_Api.G_MISS_CHAR)
2641: x_okl_xtl_sell_invs_tl_rec.LANGUAGE := l_okl_xtl_sell_invs_tl_rec.LANGUAGE;
2642: END IF;
2643: IF (x_okl_xtl_sell_invs_tl_rec.source_lang = Okl_Api.G_MISS_CHAR)
2644: THEN
2645: x_okl_xtl_sell_invs_tl_rec.source_lang := l_okl_xtl_sell_invs_tl_rec.source_lang;
2646: END IF;
2647: IF (x_okl_xtl_sell_invs_tl_rec.sfwt_flag = Okl_Api.G_MISS_CHAR)
2648: THEN
2649: x_okl_xtl_sell_invs_tl_rec.sfwt_flag := l_okl_xtl_sell_invs_tl_rec.sfwt_flag;
2643: IF (x_okl_xtl_sell_invs_tl_rec.source_lang = Okl_Api.G_MISS_CHAR)
2644: THEN
2645: x_okl_xtl_sell_invs_tl_rec.source_lang := l_okl_xtl_sell_invs_tl_rec.source_lang;
2646: END IF;
2647: IF (x_okl_xtl_sell_invs_tl_rec.sfwt_flag = Okl_Api.G_MISS_CHAR)
2648: THEN
2649: x_okl_xtl_sell_invs_tl_rec.sfwt_flag := l_okl_xtl_sell_invs_tl_rec.sfwt_flag;
2650: END IF;
2651: IF (x_okl_xtl_sell_invs_tl_rec.description = Okl_Api.G_MISS_CHAR)
2645: x_okl_xtl_sell_invs_tl_rec.source_lang := l_okl_xtl_sell_invs_tl_rec.source_lang;
2646: END IF;
2647: IF (x_okl_xtl_sell_invs_tl_rec.sfwt_flag = Okl_Api.G_MISS_CHAR)
2648: THEN
2649: x_okl_xtl_sell_invs_tl_rec.sfwt_flag := l_okl_xtl_sell_invs_tl_rec.sfwt_flag;
2650: END IF;
2651: IF (x_okl_xtl_sell_invs_tl_rec.description = Okl_Api.G_MISS_CHAR)
2652: THEN
2653: x_okl_xtl_sell_invs_tl_rec.description := l_okl_xtl_sell_invs_tl_rec.description;
2647: IF (x_okl_xtl_sell_invs_tl_rec.sfwt_flag = Okl_Api.G_MISS_CHAR)
2648: THEN
2649: x_okl_xtl_sell_invs_tl_rec.sfwt_flag := l_okl_xtl_sell_invs_tl_rec.sfwt_flag;
2650: END IF;
2651: IF (x_okl_xtl_sell_invs_tl_rec.description = Okl_Api.G_MISS_CHAR)
2652: THEN
2653: x_okl_xtl_sell_invs_tl_rec.description := l_okl_xtl_sell_invs_tl_rec.description;
2654: END IF;
2655: IF (x_okl_xtl_sell_invs_tl_rec.xtrx_contract = Okl_Api.G_MISS_CHAR)
2649: x_okl_xtl_sell_invs_tl_rec.sfwt_flag := l_okl_xtl_sell_invs_tl_rec.sfwt_flag;
2650: END IF;
2651: IF (x_okl_xtl_sell_invs_tl_rec.description = Okl_Api.G_MISS_CHAR)
2652: THEN
2653: x_okl_xtl_sell_invs_tl_rec.description := l_okl_xtl_sell_invs_tl_rec.description;
2654: END IF;
2655: IF (x_okl_xtl_sell_invs_tl_rec.xtrx_contract = Okl_Api.G_MISS_CHAR)
2656: THEN
2657: x_okl_xtl_sell_invs_tl_rec.xtrx_contract := l_okl_xtl_sell_invs_tl_rec.xtrx_contract;
2651: IF (x_okl_xtl_sell_invs_tl_rec.description = Okl_Api.G_MISS_CHAR)
2652: THEN
2653: x_okl_xtl_sell_invs_tl_rec.description := l_okl_xtl_sell_invs_tl_rec.description;
2654: END IF;
2655: IF (x_okl_xtl_sell_invs_tl_rec.xtrx_contract = Okl_Api.G_MISS_CHAR)
2656: THEN
2657: x_okl_xtl_sell_invs_tl_rec.xtrx_contract := l_okl_xtl_sell_invs_tl_rec.xtrx_contract;
2658: END IF;
2659: IF (x_okl_xtl_sell_invs_tl_rec.xtrx_asset = Okl_Api.G_MISS_CHAR)
2653: x_okl_xtl_sell_invs_tl_rec.description := l_okl_xtl_sell_invs_tl_rec.description;
2654: END IF;
2655: IF (x_okl_xtl_sell_invs_tl_rec.xtrx_contract = Okl_Api.G_MISS_CHAR)
2656: THEN
2657: x_okl_xtl_sell_invs_tl_rec.xtrx_contract := l_okl_xtl_sell_invs_tl_rec.xtrx_contract;
2658: END IF;
2659: IF (x_okl_xtl_sell_invs_tl_rec.xtrx_asset = Okl_Api.G_MISS_CHAR)
2660: THEN
2661: x_okl_xtl_sell_invs_tl_rec.xtrx_asset := l_okl_xtl_sell_invs_tl_rec.xtrx_asset;
2655: IF (x_okl_xtl_sell_invs_tl_rec.xtrx_contract = Okl_Api.G_MISS_CHAR)
2656: THEN
2657: x_okl_xtl_sell_invs_tl_rec.xtrx_contract := l_okl_xtl_sell_invs_tl_rec.xtrx_contract;
2658: END IF;
2659: IF (x_okl_xtl_sell_invs_tl_rec.xtrx_asset = Okl_Api.G_MISS_CHAR)
2660: THEN
2661: x_okl_xtl_sell_invs_tl_rec.xtrx_asset := l_okl_xtl_sell_invs_tl_rec.xtrx_asset;
2662: END IF;
2663: IF (x_okl_xtl_sell_invs_tl_rec.xtrx_stream_group = Okl_Api.G_MISS_CHAR)
2657: x_okl_xtl_sell_invs_tl_rec.xtrx_contract := l_okl_xtl_sell_invs_tl_rec.xtrx_contract;
2658: END IF;
2659: IF (x_okl_xtl_sell_invs_tl_rec.xtrx_asset = Okl_Api.G_MISS_CHAR)
2660: THEN
2661: x_okl_xtl_sell_invs_tl_rec.xtrx_asset := l_okl_xtl_sell_invs_tl_rec.xtrx_asset;
2662: END IF;
2663: IF (x_okl_xtl_sell_invs_tl_rec.xtrx_stream_group = Okl_Api.G_MISS_CHAR)
2664: THEN
2665: x_okl_xtl_sell_invs_tl_rec.xtrx_stream_group := l_okl_xtl_sell_invs_tl_rec.xtrx_stream_group;
2659: IF (x_okl_xtl_sell_invs_tl_rec.xtrx_asset = Okl_Api.G_MISS_CHAR)
2660: THEN
2661: x_okl_xtl_sell_invs_tl_rec.xtrx_asset := l_okl_xtl_sell_invs_tl_rec.xtrx_asset;
2662: END IF;
2663: IF (x_okl_xtl_sell_invs_tl_rec.xtrx_stream_group = Okl_Api.G_MISS_CHAR)
2664: THEN
2665: x_okl_xtl_sell_invs_tl_rec.xtrx_stream_group := l_okl_xtl_sell_invs_tl_rec.xtrx_stream_group;
2666: END IF;
2667: IF (x_okl_xtl_sell_invs_tl_rec.xtrx_stream_type = Okl_Api.G_MISS_CHAR)
2661: x_okl_xtl_sell_invs_tl_rec.xtrx_asset := l_okl_xtl_sell_invs_tl_rec.xtrx_asset;
2662: END IF;
2663: IF (x_okl_xtl_sell_invs_tl_rec.xtrx_stream_group = Okl_Api.G_MISS_CHAR)
2664: THEN
2665: x_okl_xtl_sell_invs_tl_rec.xtrx_stream_group := l_okl_xtl_sell_invs_tl_rec.xtrx_stream_group;
2666: END IF;
2667: IF (x_okl_xtl_sell_invs_tl_rec.xtrx_stream_type = Okl_Api.G_MISS_CHAR)
2668: THEN
2669: x_okl_xtl_sell_invs_tl_rec.xtrx_stream_type := l_okl_xtl_sell_invs_tl_rec.xtrx_stream_type;
2663: IF (x_okl_xtl_sell_invs_tl_rec.xtrx_stream_group = Okl_Api.G_MISS_CHAR)
2664: THEN
2665: x_okl_xtl_sell_invs_tl_rec.xtrx_stream_group := l_okl_xtl_sell_invs_tl_rec.xtrx_stream_group;
2666: END IF;
2667: IF (x_okl_xtl_sell_invs_tl_rec.xtrx_stream_type = Okl_Api.G_MISS_CHAR)
2668: THEN
2669: x_okl_xtl_sell_invs_tl_rec.xtrx_stream_type := l_okl_xtl_sell_invs_tl_rec.xtrx_stream_type;
2670: END IF;
2671: IF (x_okl_xtl_sell_invs_tl_rec.created_by = Okl_Api.G_MISS_NUM)
2665: x_okl_xtl_sell_invs_tl_rec.xtrx_stream_group := l_okl_xtl_sell_invs_tl_rec.xtrx_stream_group;
2666: END IF;
2667: IF (x_okl_xtl_sell_invs_tl_rec.xtrx_stream_type = Okl_Api.G_MISS_CHAR)
2668: THEN
2669: x_okl_xtl_sell_invs_tl_rec.xtrx_stream_type := l_okl_xtl_sell_invs_tl_rec.xtrx_stream_type;
2670: END IF;
2671: IF (x_okl_xtl_sell_invs_tl_rec.created_by = Okl_Api.G_MISS_NUM)
2672: THEN
2673: x_okl_xtl_sell_invs_tl_rec.created_by := l_okl_xtl_sell_invs_tl_rec.created_by;
2667: IF (x_okl_xtl_sell_invs_tl_rec.xtrx_stream_type = Okl_Api.G_MISS_CHAR)
2668: THEN
2669: x_okl_xtl_sell_invs_tl_rec.xtrx_stream_type := l_okl_xtl_sell_invs_tl_rec.xtrx_stream_type;
2670: END IF;
2671: IF (x_okl_xtl_sell_invs_tl_rec.created_by = Okl_Api.G_MISS_NUM)
2672: THEN
2673: x_okl_xtl_sell_invs_tl_rec.created_by := l_okl_xtl_sell_invs_tl_rec.created_by;
2674: END IF;
2675: IF (x_okl_xtl_sell_invs_tl_rec.creation_date = Okl_Api.G_MISS_DATE)
2669: x_okl_xtl_sell_invs_tl_rec.xtrx_stream_type := l_okl_xtl_sell_invs_tl_rec.xtrx_stream_type;
2670: END IF;
2671: IF (x_okl_xtl_sell_invs_tl_rec.created_by = Okl_Api.G_MISS_NUM)
2672: THEN
2673: x_okl_xtl_sell_invs_tl_rec.created_by := l_okl_xtl_sell_invs_tl_rec.created_by;
2674: END IF;
2675: IF (x_okl_xtl_sell_invs_tl_rec.creation_date = Okl_Api.G_MISS_DATE)
2676: THEN
2677: x_okl_xtl_sell_invs_tl_rec.creation_date := l_okl_xtl_sell_invs_tl_rec.creation_date;
2671: IF (x_okl_xtl_sell_invs_tl_rec.created_by = Okl_Api.G_MISS_NUM)
2672: THEN
2673: x_okl_xtl_sell_invs_tl_rec.created_by := l_okl_xtl_sell_invs_tl_rec.created_by;
2674: END IF;
2675: IF (x_okl_xtl_sell_invs_tl_rec.creation_date = Okl_Api.G_MISS_DATE)
2676: THEN
2677: x_okl_xtl_sell_invs_tl_rec.creation_date := l_okl_xtl_sell_invs_tl_rec.creation_date;
2678: END IF;
2679: IF (x_okl_xtl_sell_invs_tl_rec.last_updated_by = Okl_Api.G_MISS_NUM)
2673: x_okl_xtl_sell_invs_tl_rec.created_by := l_okl_xtl_sell_invs_tl_rec.created_by;
2674: END IF;
2675: IF (x_okl_xtl_sell_invs_tl_rec.creation_date = Okl_Api.G_MISS_DATE)
2676: THEN
2677: x_okl_xtl_sell_invs_tl_rec.creation_date := l_okl_xtl_sell_invs_tl_rec.creation_date;
2678: END IF;
2679: IF (x_okl_xtl_sell_invs_tl_rec.last_updated_by = Okl_Api.G_MISS_NUM)
2680: THEN
2681: x_okl_xtl_sell_invs_tl_rec.last_updated_by := l_okl_xtl_sell_invs_tl_rec.last_updated_by;
2675: IF (x_okl_xtl_sell_invs_tl_rec.creation_date = Okl_Api.G_MISS_DATE)
2676: THEN
2677: x_okl_xtl_sell_invs_tl_rec.creation_date := l_okl_xtl_sell_invs_tl_rec.creation_date;
2678: END IF;
2679: IF (x_okl_xtl_sell_invs_tl_rec.last_updated_by = Okl_Api.G_MISS_NUM)
2680: THEN
2681: x_okl_xtl_sell_invs_tl_rec.last_updated_by := l_okl_xtl_sell_invs_tl_rec.last_updated_by;
2682: END IF;
2683: IF (x_okl_xtl_sell_invs_tl_rec.last_update_date = Okl_Api.G_MISS_DATE)
2677: x_okl_xtl_sell_invs_tl_rec.creation_date := l_okl_xtl_sell_invs_tl_rec.creation_date;
2678: END IF;
2679: IF (x_okl_xtl_sell_invs_tl_rec.last_updated_by = Okl_Api.G_MISS_NUM)
2680: THEN
2681: x_okl_xtl_sell_invs_tl_rec.last_updated_by := l_okl_xtl_sell_invs_tl_rec.last_updated_by;
2682: END IF;
2683: IF (x_okl_xtl_sell_invs_tl_rec.last_update_date = Okl_Api.G_MISS_DATE)
2684: THEN
2685: x_okl_xtl_sell_invs_tl_rec.last_update_date := l_okl_xtl_sell_invs_tl_rec.last_update_date;
2679: IF (x_okl_xtl_sell_invs_tl_rec.last_updated_by = Okl_Api.G_MISS_NUM)
2680: THEN
2681: x_okl_xtl_sell_invs_tl_rec.last_updated_by := l_okl_xtl_sell_invs_tl_rec.last_updated_by;
2682: END IF;
2683: IF (x_okl_xtl_sell_invs_tl_rec.last_update_date = Okl_Api.G_MISS_DATE)
2684: THEN
2685: x_okl_xtl_sell_invs_tl_rec.last_update_date := l_okl_xtl_sell_invs_tl_rec.last_update_date;
2686: END IF;
2687: IF (x_okl_xtl_sell_invs_tl_rec.last_update_login = Okl_Api.G_MISS_NUM)
2681: x_okl_xtl_sell_invs_tl_rec.last_updated_by := l_okl_xtl_sell_invs_tl_rec.last_updated_by;
2682: END IF;
2683: IF (x_okl_xtl_sell_invs_tl_rec.last_update_date = Okl_Api.G_MISS_DATE)
2684: THEN
2685: x_okl_xtl_sell_invs_tl_rec.last_update_date := l_okl_xtl_sell_invs_tl_rec.last_update_date;
2686: END IF;
2687: IF (x_okl_xtl_sell_invs_tl_rec.last_update_login = Okl_Api.G_MISS_NUM)
2688: THEN
2689: x_okl_xtl_sell_invs_tl_rec.last_update_login := l_okl_xtl_sell_invs_tl_rec.last_update_login;
2683: IF (x_okl_xtl_sell_invs_tl_rec.last_update_date = Okl_Api.G_MISS_DATE)
2684: THEN
2685: x_okl_xtl_sell_invs_tl_rec.last_update_date := l_okl_xtl_sell_invs_tl_rec.last_update_date;
2686: END IF;
2687: IF (x_okl_xtl_sell_invs_tl_rec.last_update_login = Okl_Api.G_MISS_NUM)
2688: THEN
2689: x_okl_xtl_sell_invs_tl_rec.last_update_login := l_okl_xtl_sell_invs_tl_rec.last_update_login;
2690: END IF;
2691: RETURN(l_return_status);
2685: x_okl_xtl_sell_invs_tl_rec.last_update_date := l_okl_xtl_sell_invs_tl_rec.last_update_date;
2686: END IF;
2687: IF (x_okl_xtl_sell_invs_tl_rec.last_update_login = Okl_Api.G_MISS_NUM)
2688: THEN
2689: x_okl_xtl_sell_invs_tl_rec.last_update_login := l_okl_xtl_sell_invs_tl_rec.last_update_login;
2690: END IF;
2691: RETURN(l_return_status);
2692: END populate_new_record;
2693: ---------------------------------------------
2690: END IF;
2691: RETURN(l_return_status);
2692: END populate_new_record;
2693: ---------------------------------------------
2694: -- Set_Attributes for:OKL_XTL_SELL_INVS_TL --
2695: ---------------------------------------------
2696: FUNCTION Set_Attributes (
2697: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type,
2698: x_okl_xtl_sell_invs_tl_rec OUT NOCOPY okl_xtl_sell_invs_tl_rec_type
2693: ---------------------------------------------
2694: -- Set_Attributes for:OKL_XTL_SELL_INVS_TL --
2695: ---------------------------------------------
2696: FUNCTION Set_Attributes (
2697: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type,
2698: x_okl_xtl_sell_invs_tl_rec OUT NOCOPY okl_xtl_sell_invs_tl_rec_type
2699: ) RETURN VARCHAR2 IS
2700: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2701: BEGIN
2694: -- Set_Attributes for:OKL_XTL_SELL_INVS_TL --
2695: ---------------------------------------------
2696: FUNCTION Set_Attributes (
2697: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type,
2698: x_okl_xtl_sell_invs_tl_rec OUT NOCOPY okl_xtl_sell_invs_tl_rec_type
2699: ) RETURN VARCHAR2 IS
2700: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2701: BEGIN
2702: x_okl_xtl_sell_invs_tl_rec := p_okl_xtl_sell_invs_tl_rec;
2698: x_okl_xtl_sell_invs_tl_rec OUT NOCOPY okl_xtl_sell_invs_tl_rec_type
2699: ) RETURN VARCHAR2 IS
2700: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2701: BEGIN
2702: x_okl_xtl_sell_invs_tl_rec := p_okl_xtl_sell_invs_tl_rec;
2703: x_okl_xtl_sell_invs_tl_rec.LANGUAGE := USERENV('LANG');
2704: x_okl_xtl_sell_invs_tl_rec.SOURCE_LANG := USERENV('LANG');
2705: RETURN(l_return_status);
2706: END Set_Attributes;
2699: ) RETURN VARCHAR2 IS
2700: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2701: BEGIN
2702: x_okl_xtl_sell_invs_tl_rec := p_okl_xtl_sell_invs_tl_rec;
2703: x_okl_xtl_sell_invs_tl_rec.LANGUAGE := USERENV('LANG');
2704: x_okl_xtl_sell_invs_tl_rec.SOURCE_LANG := USERENV('LANG');
2705: RETURN(l_return_status);
2706: END Set_Attributes;
2707: BEGIN
2700: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2701: BEGIN
2702: x_okl_xtl_sell_invs_tl_rec := p_okl_xtl_sell_invs_tl_rec;
2703: x_okl_xtl_sell_invs_tl_rec.LANGUAGE := USERENV('LANG');
2704: x_okl_xtl_sell_invs_tl_rec.SOURCE_LANG := USERENV('LANG');
2705: RETURN(l_return_status);
2706: END Set_Attributes;
2707: BEGIN
2708: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
2715: RAISE Okl_Api.G_EXCEPTION_ERROR;
2716: END IF;
2717: --- Setting item attributes
2718: l_return_status := Set_Attributes(
2719: p_okl_xtl_sell_invs_tl_rec, -- IN
2720: l_okl_xtl_sell_invs_tl_rec); -- OUT
2721: --- If any errors happen abort API
2722: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2723: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2716: END IF;
2717: --- Setting item attributes
2718: l_return_status := Set_Attributes(
2719: p_okl_xtl_sell_invs_tl_rec, -- IN
2720: l_okl_xtl_sell_invs_tl_rec); -- OUT
2721: --- If any errors happen abort API
2722: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2723: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2724: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2723: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2724: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2725: RAISE Okl_Api.G_EXCEPTION_ERROR;
2726: END IF;
2727: l_return_status := populate_new_record(l_okl_xtl_sell_invs_tl_rec, ldefoklxtlsellinvstlrec);
2728: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2729: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2730: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2731: RAISE Okl_Api.G_EXCEPTION_ERROR;
2729: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2730: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2731: RAISE Okl_Api.G_EXCEPTION_ERROR;
2732: END IF;
2733: UPDATE OKL_XTL_SELL_INVS_TL
2734: SET DESCRIPTION = ldefoklxtlsellinvstlrec.description,
2735: XTRX_CONTRACT = ldefoklxtlsellinvstlrec.xtrx_contract,
2736: XTRX_ASSET = ldefoklxtlsellinvstlrec.xtrx_asset,
2737: XTRX_STREAM_GROUP = ldefoklxtlsellinvstlrec.xtrx_stream_group,
2744: LAST_UPDATE_LOGIN = ldefoklxtlsellinvstlrec.last_update_login
2745: WHERE ID = ldefoklxtlsellinvstlrec.id
2746: AND USERENV('LANG') in (SOURCE_LANG, LANGUAGE);
2747:
2748: UPDATE OKL_XTL_SELL_INVS_TL
2749: SET SFWT_FLAG = 'Y'
2750: WHERE ID = ldefoklxtlsellinvstlrec.id
2751: AND SOURCE_LANG <> USERENV('LANG');
2752:
2749: SET SFWT_FLAG = 'Y'
2750: WHERE ID = ldefoklxtlsellinvstlrec.id
2751: AND SOURCE_LANG <> USERENV('LANG');
2752:
2753: x_okl_xtl_sell_invs_tl_rec := ldefoklxtlsellinvstlrec;
2754: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2755: EXCEPTION
2756: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2757: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2800: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2801: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2802: l_xlsv_rec xlsv_rec_type := p_xlsv_rec;
2803: l_def_xlsv_rec xlsv_rec_type;
2804: l_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type;
2805: lx_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type;
2806: l_xls_rec xls_rec_type;
2807: lx_xls_rec xls_rec_type;
2808: -------------------------------
2801: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2802: l_xlsv_rec xlsv_rec_type := p_xlsv_rec;
2803: l_def_xlsv_rec xlsv_rec_type;
2804: l_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type;
2805: lx_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type;
2806: l_xls_rec xls_rec_type;
2807: lx_xls_rec xls_rec_type;
2808: -------------------------------
2809: -- FUNCTION fill_who_columns --
3116:
3117: --------------------------------------
3118: -- Move VIEW record to "Child" records
3119: --------------------------------------
3120: migrate(l_def_xlsv_rec, l_okl_xtl_sell_invs_tl_rec);
3121: migrate(l_def_xlsv_rec, l_xls_rec);
3122: --------------------------------------------
3123: -- Call the UPDATE_ROW for each child record
3124: --------------------------------------------
3126: p_init_msg_list,
3127: x_return_status,
3128: x_msg_count,
3129: x_msg_data,
3130: l_okl_xtl_sell_invs_tl_rec,
3131: lx_okl_xtl_sell_invs_tl_rec
3132: );
3133: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3134: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3127: x_return_status,
3128: x_msg_count,
3129: x_msg_data,
3130: l_okl_xtl_sell_invs_tl_rec,
3131: lx_okl_xtl_sell_invs_tl_rec
3132: );
3133: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3134: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3135: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3134: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3135: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3136: RAISE Okl_Api.G_EXCEPTION_ERROR;
3137: END IF;
3138: migrate(lx_okl_xtl_sell_invs_tl_rec, l_def_xlsv_rec);
3139: update_row(
3140: p_init_msg_list,
3141: x_return_status,
3142: x_msg_count,
3335: '_PVT'
3336: );
3337: END delete_row;
3338: -----------------------------------------
3339: -- delete_row for:OKL_XTL_SELL_INVS_TL --
3340: -----------------------------------------
3341: PROCEDURE delete_row(
3342: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
3343: x_return_status OUT NOCOPY VARCHAR2,
3342: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
3343: x_return_status OUT NOCOPY VARCHAR2,
3344: x_msg_count OUT NOCOPY NUMBER,
3345: x_msg_data OUT NOCOPY VARCHAR2,
3346: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type) IS
3347:
3348: l_api_version CONSTANT NUMBER := 1;
3349: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3350: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3347:
3348: l_api_version CONSTANT NUMBER := 1;
3349: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3350: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3351: l_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type:= p_okl_xtl_sell_invs_tl_rec;
3352: l_row_notfound BOOLEAN := TRUE;
3353: ---------------------------------------------
3354: -- Set_Attributes for:OKL_XTL_SELL_INVS_TL --
3355: ---------------------------------------------
3350: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3351: l_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type:= p_okl_xtl_sell_invs_tl_rec;
3352: l_row_notfound BOOLEAN := TRUE;
3353: ---------------------------------------------
3354: -- Set_Attributes for:OKL_XTL_SELL_INVS_TL --
3355: ---------------------------------------------
3356: FUNCTION Set_Attributes (
3357: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type,
3358: x_okl_xtl_sell_invs_tl_rec OUT NOCOPY okl_xtl_sell_invs_tl_rec_type
3353: ---------------------------------------------
3354: -- Set_Attributes for:OKL_XTL_SELL_INVS_TL --
3355: ---------------------------------------------
3356: FUNCTION Set_Attributes (
3357: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type,
3358: x_okl_xtl_sell_invs_tl_rec OUT NOCOPY okl_xtl_sell_invs_tl_rec_type
3359: ) RETURN VARCHAR2 IS
3360: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3361: BEGIN
3354: -- Set_Attributes for:OKL_XTL_SELL_INVS_TL --
3355: ---------------------------------------------
3356: FUNCTION Set_Attributes (
3357: p_okl_xtl_sell_invs_tl_rec IN okl_xtl_sell_invs_tl_rec_type,
3358: x_okl_xtl_sell_invs_tl_rec OUT NOCOPY okl_xtl_sell_invs_tl_rec_type
3359: ) RETURN VARCHAR2 IS
3360: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3361: BEGIN
3362: x_okl_xtl_sell_invs_tl_rec := p_okl_xtl_sell_invs_tl_rec;
3358: x_okl_xtl_sell_invs_tl_rec OUT NOCOPY okl_xtl_sell_invs_tl_rec_type
3359: ) RETURN VARCHAR2 IS
3360: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3361: BEGIN
3362: x_okl_xtl_sell_invs_tl_rec := p_okl_xtl_sell_invs_tl_rec;
3363: x_okl_xtl_sell_invs_tl_rec.LANGUAGE := USERENV('LANG');
3364: RETURN(l_return_status);
3365: END Set_Attributes;
3366: BEGIN
3359: ) RETURN VARCHAR2 IS
3360: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3361: BEGIN
3362: x_okl_xtl_sell_invs_tl_rec := p_okl_xtl_sell_invs_tl_rec;
3363: x_okl_xtl_sell_invs_tl_rec.LANGUAGE := USERENV('LANG');
3364: RETURN(l_return_status);
3365: END Set_Attributes;
3366: BEGIN
3367: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
3374: RAISE Okl_Api.G_EXCEPTION_ERROR;
3375: END IF;
3376: --- Setting item attributes
3377: l_return_status := Set_Attributes(
3378: p_okl_xtl_sell_invs_tl_rec, -- IN
3379: l_okl_xtl_sell_invs_tl_rec); -- OUT
3380: --- If any errors happen abort API
3381: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3382: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3375: END IF;
3376: --- Setting item attributes
3377: l_return_status := Set_Attributes(
3378: p_okl_xtl_sell_invs_tl_rec, -- IN
3379: l_okl_xtl_sell_invs_tl_rec); -- OUT
3380: --- If any errors happen abort API
3381: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3382: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3383: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3382: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3383: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3384: RAISE Okl_Api.G_EXCEPTION_ERROR;
3385: END IF;
3386: DELETE FROM OKL_XTL_SELL_INVS_TL
3387: WHERE ID = l_okl_xtl_sell_invs_tl_rec.id;
3388:
3389: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3390: EXCEPTION
3383: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3384: RAISE Okl_Api.G_EXCEPTION_ERROR;
3385: END IF;
3386: DELETE FROM OKL_XTL_SELL_INVS_TL
3387: WHERE ID = l_okl_xtl_sell_invs_tl_rec.id;
3388:
3389: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3390: EXCEPTION
3391: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3433: l_api_version CONSTANT NUMBER := 1;
3434: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3435: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3436: l_xlsv_rec xlsv_rec_type := p_xlsv_rec;
3437: l_okl_xtl_sell_invs_tl_rec okl_xtl_sell_invs_tl_rec_type;
3438: l_xls_rec xls_rec_type;
3439: BEGIN
3440: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
3441: G_PKG_NAME,
3451: END IF;
3452: --------------------------------------
3453: -- Move VIEW record to "Child" records
3454: --------------------------------------
3455: migrate(l_xlsv_rec, l_okl_xtl_sell_invs_tl_rec);
3456: migrate(l_xlsv_rec, l_xls_rec);
3457: --------------------------------------------
3458: -- Call the DELETE_ROW for each child record
3459: --------------------------------------------
3461: p_init_msg_list,
3462: x_return_status,
3463: x_msg_count,
3464: x_msg_data,
3465: l_okl_xtl_sell_invs_tl_rec
3466: );
3467: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3468: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3469: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN