[Home] [Help]
277: -- PROCEDURE add_language
278: ---------------------------------------------------------------------------
279: PROCEDURE add_language IS
280: BEGIN
281: DELETE FROM OKL_INVOICE_TYPES_TL T
282: WHERE NOT EXISTS (
283: SELECT NULL
284: FROM OKL_INVOICE_TYPES_B B
285: WHERE B.ID = T.ID
285: WHERE B.ID = T.ID
286: AND T.LANGUAGE = USERENV('LANG')
287: );
288:
289: UPDATE OKL_INVOICE_TYPES_TL T SET (
290: NAME,
291: DESCRIPTION) = (SELECT
292: B.NAME,
293: B.DESCRIPTION
290: NAME,
291: DESCRIPTION) = (SELECT
292: B.NAME,
293: B.DESCRIPTION
294: FROM OKL_INVOICE_TYPES_TL B
295: WHERE B.ID = T.ID
296: AND B.LANGUAGE = T.SOURCE_LANG)
297: WHERE (
298: T.ID,
299: T.LANGUAGE)
300: IN (SELECT
301: SUBT.ID,
302: SUBT.LANGUAGE
303: FROM OKL_INVOICE_TYPES_TL SUBB, OKL_INVOICE_TYPES_TL SUBT
304: WHERE SUBB.ID = SUBT.ID
305: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
306: AND (SUBB.NAME <> SUBT.NAME
307: OR SUBB.DESCRIPTION <> SUBT.DESCRIPTION
308: OR (SUBB.DESCRIPTION IS NULL AND SUBT.DESCRIPTION IS NOT NULL)
309: OR (SUBB.DESCRIPTION IS NOT NULL AND SUBT.DESCRIPTION IS NULL)
310: ));
311:
312: INSERT INTO OKL_INVOICE_TYPES_TL (
313: ID,
314: LANGUAGE,
315: SOURCE_LANG,
316: SFWT_FLAG,
332: B.CREATION_DATE,
333: B.LAST_UPDATED_BY,
334: B.LAST_UPDATE_DATE,
335: B.LAST_UPDATE_LOGIN
336: FROM OKL_INVOICE_TYPES_TL B, FND_LANGUAGES L
337: WHERE L.INSTALLED_FLAG IN ('I', 'B')
338: AND B.LANGUAGE = USERENV('LANG')
339: AND NOT EXISTS(
340: SELECT NULL
337: WHERE L.INSTALLED_FLAG IN ('I', 'B')
338: AND B.LANGUAGE = USERENV('LANG')
339: AND NOT EXISTS(
340: SELECT NULL
341: FROM OKL_INVOICE_TYPES_TL T
342: WHERE T.ID = B.ID
343: AND T.LANGUAGE = L.LANGUAGE_CODE
344: );
345:
427: BEGIN
428: RETURN(get_rec(p_ity_rec, l_row_notfound));
429: END get_rec;
430: ---------------------------------------------------------------------------
431: -- FUNCTION get_rec for: OKL_INVOICE_TYPES_TL
432: ---------------------------------------------------------------------------
433: FUNCTION get_rec (
434: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type,
435: x_no_data_found OUT NOCOPY BOOLEAN
430: ---------------------------------------------------------------------------
431: -- FUNCTION get_rec for: OKL_INVOICE_TYPES_TL
432: ---------------------------------------------------------------------------
433: FUNCTION get_rec (
434: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type,
435: x_no_data_found OUT NOCOPY BOOLEAN
436: ) RETURN okl_invoice_types_tl_rec_type IS
437: CURSOR okl_invoice_types_tl_pk_csr (p_id IN NUMBER,
438: p_language IN VARCHAR2) IS
432: ---------------------------------------------------------------------------
433: FUNCTION get_rec (
434: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type,
435: x_no_data_found OUT NOCOPY BOOLEAN
436: ) RETURN okl_invoice_types_tl_rec_type IS
437: CURSOR okl_invoice_types_tl_pk_csr (p_id IN NUMBER,
438: p_language IN VARCHAR2) IS
439: SELECT
440: ID,
433: FUNCTION get_rec (
434: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type,
435: x_no_data_found OUT NOCOPY BOOLEAN
436: ) RETURN okl_invoice_types_tl_rec_type IS
437: CURSOR okl_invoice_types_tl_pk_csr (p_id IN NUMBER,
438: p_language IN VARCHAR2) IS
439: SELECT
440: ID,
441: LANGUAGE,
447: CREATION_DATE,
448: LAST_UPDATED_BY,
449: LAST_UPDATE_DATE,
450: LAST_UPDATE_LOGIN
451: FROM Okl_Invoice_Types_Tl
452: WHERE okl_invoice_types_tl.id = p_id
453: AND okl_invoice_types_tl.LANGUAGE = p_language;
454: l_okl_invoice_types_tl_pk okl_invoice_types_tl_pk_csr%ROWTYPE;
455: l_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type;
448: LAST_UPDATED_BY,
449: LAST_UPDATE_DATE,
450: LAST_UPDATE_LOGIN
451: FROM Okl_Invoice_Types_Tl
452: WHERE okl_invoice_types_tl.id = p_id
453: AND okl_invoice_types_tl.LANGUAGE = p_language;
454: l_okl_invoice_types_tl_pk okl_invoice_types_tl_pk_csr%ROWTYPE;
455: l_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type;
456: BEGIN
449: LAST_UPDATE_DATE,
450: LAST_UPDATE_LOGIN
451: FROM Okl_Invoice_Types_Tl
452: WHERE okl_invoice_types_tl.id = p_id
453: AND okl_invoice_types_tl.LANGUAGE = p_language;
454: l_okl_invoice_types_tl_pk okl_invoice_types_tl_pk_csr%ROWTYPE;
455: l_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type;
456: BEGIN
457: x_no_data_found := TRUE;
450: LAST_UPDATE_LOGIN
451: FROM Okl_Invoice_Types_Tl
452: WHERE okl_invoice_types_tl.id = p_id
453: AND okl_invoice_types_tl.LANGUAGE = p_language;
454: l_okl_invoice_types_tl_pk okl_invoice_types_tl_pk_csr%ROWTYPE;
455: l_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type;
456: BEGIN
457: x_no_data_found := TRUE;
458: -- Get current database values
451: FROM Okl_Invoice_Types_Tl
452: WHERE okl_invoice_types_tl.id = p_id
453: AND okl_invoice_types_tl.LANGUAGE = p_language;
454: l_okl_invoice_types_tl_pk okl_invoice_types_tl_pk_csr%ROWTYPE;
455: l_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type;
456: BEGIN
457: x_no_data_found := TRUE;
458: -- Get current database values
459: OPEN okl_invoice_types_tl_pk_csr (p_okl_invoice_types_tl_rec.id,
455: l_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type;
456: BEGIN
457: x_no_data_found := TRUE;
458: -- Get current database values
459: OPEN okl_invoice_types_tl_pk_csr (p_okl_invoice_types_tl_rec.id,
460: p_okl_invoice_types_tl_rec.LANGUAGE);
461: FETCH okl_invoice_types_tl_pk_csr INTO
462: l_okl_invoice_types_tl_rec.ID,
463: l_okl_invoice_types_tl_rec.LANGUAGE,
456: BEGIN
457: x_no_data_found := TRUE;
458: -- Get current database values
459: OPEN okl_invoice_types_tl_pk_csr (p_okl_invoice_types_tl_rec.id,
460: p_okl_invoice_types_tl_rec.LANGUAGE);
461: FETCH okl_invoice_types_tl_pk_csr INTO
462: l_okl_invoice_types_tl_rec.ID,
463: l_okl_invoice_types_tl_rec.LANGUAGE,
464: l_okl_invoice_types_tl_rec.SOURCE_LANG,
457: x_no_data_found := TRUE;
458: -- Get current database values
459: OPEN okl_invoice_types_tl_pk_csr (p_okl_invoice_types_tl_rec.id,
460: p_okl_invoice_types_tl_rec.LANGUAGE);
461: FETCH okl_invoice_types_tl_pk_csr INTO
462: l_okl_invoice_types_tl_rec.ID,
463: l_okl_invoice_types_tl_rec.LANGUAGE,
464: l_okl_invoice_types_tl_rec.SOURCE_LANG,
465: l_okl_invoice_types_tl_rec.SFWT_FLAG,
458: -- Get current database values
459: OPEN okl_invoice_types_tl_pk_csr (p_okl_invoice_types_tl_rec.id,
460: p_okl_invoice_types_tl_rec.LANGUAGE);
461: FETCH okl_invoice_types_tl_pk_csr INTO
462: l_okl_invoice_types_tl_rec.ID,
463: l_okl_invoice_types_tl_rec.LANGUAGE,
464: l_okl_invoice_types_tl_rec.SOURCE_LANG,
465: l_okl_invoice_types_tl_rec.SFWT_FLAG,
466: l_okl_invoice_types_tl_rec.NAME,
459: OPEN okl_invoice_types_tl_pk_csr (p_okl_invoice_types_tl_rec.id,
460: p_okl_invoice_types_tl_rec.LANGUAGE);
461: FETCH okl_invoice_types_tl_pk_csr INTO
462: l_okl_invoice_types_tl_rec.ID,
463: l_okl_invoice_types_tl_rec.LANGUAGE,
464: l_okl_invoice_types_tl_rec.SOURCE_LANG,
465: l_okl_invoice_types_tl_rec.SFWT_FLAG,
466: l_okl_invoice_types_tl_rec.NAME,
467: l_okl_invoice_types_tl_rec.DESCRIPTION,
460: p_okl_invoice_types_tl_rec.LANGUAGE);
461: FETCH okl_invoice_types_tl_pk_csr INTO
462: l_okl_invoice_types_tl_rec.ID,
463: l_okl_invoice_types_tl_rec.LANGUAGE,
464: l_okl_invoice_types_tl_rec.SOURCE_LANG,
465: l_okl_invoice_types_tl_rec.SFWT_FLAG,
466: l_okl_invoice_types_tl_rec.NAME,
467: l_okl_invoice_types_tl_rec.DESCRIPTION,
468: l_okl_invoice_types_tl_rec.CREATED_BY,
461: FETCH okl_invoice_types_tl_pk_csr INTO
462: l_okl_invoice_types_tl_rec.ID,
463: l_okl_invoice_types_tl_rec.LANGUAGE,
464: l_okl_invoice_types_tl_rec.SOURCE_LANG,
465: l_okl_invoice_types_tl_rec.SFWT_FLAG,
466: l_okl_invoice_types_tl_rec.NAME,
467: l_okl_invoice_types_tl_rec.DESCRIPTION,
468: l_okl_invoice_types_tl_rec.CREATED_BY,
469: l_okl_invoice_types_tl_rec.CREATION_DATE,
462: l_okl_invoice_types_tl_rec.ID,
463: l_okl_invoice_types_tl_rec.LANGUAGE,
464: l_okl_invoice_types_tl_rec.SOURCE_LANG,
465: l_okl_invoice_types_tl_rec.SFWT_FLAG,
466: l_okl_invoice_types_tl_rec.NAME,
467: l_okl_invoice_types_tl_rec.DESCRIPTION,
468: l_okl_invoice_types_tl_rec.CREATED_BY,
469: l_okl_invoice_types_tl_rec.CREATION_DATE,
470: l_okl_invoice_types_tl_rec.LAST_UPDATED_BY,
463: l_okl_invoice_types_tl_rec.LANGUAGE,
464: l_okl_invoice_types_tl_rec.SOURCE_LANG,
465: l_okl_invoice_types_tl_rec.SFWT_FLAG,
466: l_okl_invoice_types_tl_rec.NAME,
467: l_okl_invoice_types_tl_rec.DESCRIPTION,
468: l_okl_invoice_types_tl_rec.CREATED_BY,
469: l_okl_invoice_types_tl_rec.CREATION_DATE,
470: l_okl_invoice_types_tl_rec.LAST_UPDATED_BY,
471: l_okl_invoice_types_tl_rec.LAST_UPDATE_DATE,
464: l_okl_invoice_types_tl_rec.SOURCE_LANG,
465: l_okl_invoice_types_tl_rec.SFWT_FLAG,
466: l_okl_invoice_types_tl_rec.NAME,
467: l_okl_invoice_types_tl_rec.DESCRIPTION,
468: l_okl_invoice_types_tl_rec.CREATED_BY,
469: l_okl_invoice_types_tl_rec.CREATION_DATE,
470: l_okl_invoice_types_tl_rec.LAST_UPDATED_BY,
471: l_okl_invoice_types_tl_rec.LAST_UPDATE_DATE,
472: l_okl_invoice_types_tl_rec.LAST_UPDATE_LOGIN;
465: l_okl_invoice_types_tl_rec.SFWT_FLAG,
466: l_okl_invoice_types_tl_rec.NAME,
467: l_okl_invoice_types_tl_rec.DESCRIPTION,
468: l_okl_invoice_types_tl_rec.CREATED_BY,
469: l_okl_invoice_types_tl_rec.CREATION_DATE,
470: l_okl_invoice_types_tl_rec.LAST_UPDATED_BY,
471: l_okl_invoice_types_tl_rec.LAST_UPDATE_DATE,
472: l_okl_invoice_types_tl_rec.LAST_UPDATE_LOGIN;
473: x_no_data_found := okl_invoice_types_tl_pk_csr%NOTFOUND;
466: l_okl_invoice_types_tl_rec.NAME,
467: l_okl_invoice_types_tl_rec.DESCRIPTION,
468: l_okl_invoice_types_tl_rec.CREATED_BY,
469: l_okl_invoice_types_tl_rec.CREATION_DATE,
470: l_okl_invoice_types_tl_rec.LAST_UPDATED_BY,
471: l_okl_invoice_types_tl_rec.LAST_UPDATE_DATE,
472: l_okl_invoice_types_tl_rec.LAST_UPDATE_LOGIN;
473: x_no_data_found := okl_invoice_types_tl_pk_csr%NOTFOUND;
474: CLOSE okl_invoice_types_tl_pk_csr;
467: l_okl_invoice_types_tl_rec.DESCRIPTION,
468: l_okl_invoice_types_tl_rec.CREATED_BY,
469: l_okl_invoice_types_tl_rec.CREATION_DATE,
470: l_okl_invoice_types_tl_rec.LAST_UPDATED_BY,
471: l_okl_invoice_types_tl_rec.LAST_UPDATE_DATE,
472: l_okl_invoice_types_tl_rec.LAST_UPDATE_LOGIN;
473: x_no_data_found := okl_invoice_types_tl_pk_csr%NOTFOUND;
474: CLOSE okl_invoice_types_tl_pk_csr;
475: RETURN(l_okl_invoice_types_tl_rec);
468: l_okl_invoice_types_tl_rec.CREATED_BY,
469: l_okl_invoice_types_tl_rec.CREATION_DATE,
470: l_okl_invoice_types_tl_rec.LAST_UPDATED_BY,
471: l_okl_invoice_types_tl_rec.LAST_UPDATE_DATE,
472: l_okl_invoice_types_tl_rec.LAST_UPDATE_LOGIN;
473: x_no_data_found := okl_invoice_types_tl_pk_csr%NOTFOUND;
474: CLOSE okl_invoice_types_tl_pk_csr;
475: RETURN(l_okl_invoice_types_tl_rec);
476: END get_rec;
469: l_okl_invoice_types_tl_rec.CREATION_DATE,
470: l_okl_invoice_types_tl_rec.LAST_UPDATED_BY,
471: l_okl_invoice_types_tl_rec.LAST_UPDATE_DATE,
472: l_okl_invoice_types_tl_rec.LAST_UPDATE_LOGIN;
473: x_no_data_found := okl_invoice_types_tl_pk_csr%NOTFOUND;
474: CLOSE okl_invoice_types_tl_pk_csr;
475: RETURN(l_okl_invoice_types_tl_rec);
476: END get_rec;
477:
470: l_okl_invoice_types_tl_rec.LAST_UPDATED_BY,
471: l_okl_invoice_types_tl_rec.LAST_UPDATE_DATE,
472: l_okl_invoice_types_tl_rec.LAST_UPDATE_LOGIN;
473: x_no_data_found := okl_invoice_types_tl_pk_csr%NOTFOUND;
474: CLOSE okl_invoice_types_tl_pk_csr;
475: RETURN(l_okl_invoice_types_tl_rec);
476: END get_rec;
477:
478: FUNCTION get_rec (
471: l_okl_invoice_types_tl_rec.LAST_UPDATE_DATE,
472: l_okl_invoice_types_tl_rec.LAST_UPDATE_LOGIN;
473: x_no_data_found := okl_invoice_types_tl_pk_csr%NOTFOUND;
474: CLOSE okl_invoice_types_tl_pk_csr;
475: RETURN(l_okl_invoice_types_tl_rec);
476: END get_rec;
477:
478: FUNCTION get_rec (
479: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type
475: RETURN(l_okl_invoice_types_tl_rec);
476: END get_rec;
477:
478: FUNCTION get_rec (
479: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type
480: ) RETURN okl_invoice_types_tl_rec_type IS
481: l_row_notfound BOOLEAN := TRUE;
482: BEGIN
483: RETURN(get_rec(p_okl_invoice_types_tl_rec, l_row_notfound));
476: END get_rec;
477:
478: FUNCTION get_rec (
479: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type
480: ) RETURN okl_invoice_types_tl_rec_type IS
481: l_row_notfound BOOLEAN := TRUE;
482: BEGIN
483: RETURN(get_rec(p_okl_invoice_types_tl_rec, l_row_notfound));
484: END get_rec;
479: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type
480: ) RETURN okl_invoice_types_tl_rec_type IS
481: l_row_notfound BOOLEAN := TRUE;
482: BEGIN
483: RETURN(get_rec(p_okl_invoice_types_tl_rec, l_row_notfound));
484: END get_rec;
485: ---------------------------------------------------------------------------
486: -- FUNCTION get_rec for: OKL_INVOICE_TYPES_V
487: ---------------------------------------------------------------------------
825: p_to.last_update_login := p_from.last_update_login;
826: END migrate;
827: PROCEDURE migrate (
828: p_from IN ityv_rec_type,
829: p_to OUT NOCOPY okl_invoice_types_tl_rec_type
830: ) IS
831: BEGIN
832: p_to.id := p_from.id;
833: p_to.sfwt_flag := p_from.sfwt_flag;
839: p_to.last_update_date := p_from.last_update_date;
840: p_to.last_update_login := p_from.last_update_login;
841: END migrate;
842: PROCEDURE migrate (
843: p_from IN okl_invoice_types_tl_rec_type,
844: p_to OUT NOCOPY ityv_rec_type
845: ) IS
846: BEGIN
847: p_to.id := p_from.id;
873: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
874: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
875: l_ityv_rec ityv_rec_type := p_ityv_rec;
876: l_ity_rec ity_rec_type;
877: l_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type;
878: BEGIN
879: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
880: G_PKG_NAME,
881: p_init_msg_list,
1149: '_PVT'
1150: );
1151: END insert_row;
1152: -----------------------------------------
1153: -- insert_row for:OKL_INVOICE_TYPES_TL --
1154: -----------------------------------------
1155: PROCEDURE insert_row(
1156: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1157: x_return_status OUT NOCOPY VARCHAR2,
1156: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1157: x_return_status OUT NOCOPY VARCHAR2,
1158: x_msg_count OUT NOCOPY NUMBER,
1159: x_msg_data OUT NOCOPY VARCHAR2,
1160: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type,
1161: x_okl_invoice_types_tl_rec OUT NOCOPY okl_invoice_types_tl_rec_type) IS
1162:
1163: l_api_version CONSTANT NUMBER := 1;
1164: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1157: x_return_status OUT NOCOPY VARCHAR2,
1158: x_msg_count OUT NOCOPY NUMBER,
1159: x_msg_data OUT NOCOPY VARCHAR2,
1160: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type,
1161: x_okl_invoice_types_tl_rec OUT NOCOPY okl_invoice_types_tl_rec_type) IS
1162:
1163: l_api_version CONSTANT NUMBER := 1;
1164: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1165: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1162:
1163: l_api_version CONSTANT NUMBER := 1;
1164: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1165: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1166: l_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type := p_okl_invoice_types_tl_rec;
1167: ldefoklinvoicetypestlrec okl_invoice_types_tl_rec_type;
1168: CURSOR get_languages IS
1169: SELECT *
1170: FROM FND_LANGUAGES
1163: l_api_version CONSTANT NUMBER := 1;
1164: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1165: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1166: l_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type := p_okl_invoice_types_tl_rec;
1167: ldefoklinvoicetypestlrec okl_invoice_types_tl_rec_type;
1168: CURSOR get_languages IS
1169: SELECT *
1170: FROM FND_LANGUAGES
1171: WHERE INSTALLED_FLAG IN ('I', 'B');
1169: SELECT *
1170: FROM FND_LANGUAGES
1171: WHERE INSTALLED_FLAG IN ('I', 'B');
1172: ---------------------------------------------
1173: -- Set_Attributes for:OKL_INVOICE_TYPES_TL --
1174: ---------------------------------------------
1175: FUNCTION Set_Attributes (
1176: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type,
1177: x_okl_invoice_types_tl_rec OUT NOCOPY okl_invoice_types_tl_rec_type
1172: ---------------------------------------------
1173: -- Set_Attributes for:OKL_INVOICE_TYPES_TL --
1174: ---------------------------------------------
1175: FUNCTION Set_Attributes (
1176: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type,
1177: x_okl_invoice_types_tl_rec OUT NOCOPY okl_invoice_types_tl_rec_type
1178: ) RETURN VARCHAR2 IS
1179: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1180: BEGIN
1173: -- Set_Attributes for:OKL_INVOICE_TYPES_TL --
1174: ---------------------------------------------
1175: FUNCTION Set_Attributes (
1176: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type,
1177: x_okl_invoice_types_tl_rec OUT NOCOPY okl_invoice_types_tl_rec_type
1178: ) RETURN VARCHAR2 IS
1179: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1180: BEGIN
1181: x_okl_invoice_types_tl_rec := p_okl_invoice_types_tl_rec;
1177: x_okl_invoice_types_tl_rec OUT NOCOPY okl_invoice_types_tl_rec_type
1178: ) RETURN VARCHAR2 IS
1179: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1180: BEGIN
1181: x_okl_invoice_types_tl_rec := p_okl_invoice_types_tl_rec;
1182: x_okl_invoice_types_tl_rec.LANGUAGE := USERENV('LANG');
1183: x_okl_invoice_types_tl_rec.SOURCE_LANG := USERENV('LANG');
1184: RETURN(l_return_status);
1185: END Set_Attributes;
1178: ) RETURN VARCHAR2 IS
1179: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1180: BEGIN
1181: x_okl_invoice_types_tl_rec := p_okl_invoice_types_tl_rec;
1182: x_okl_invoice_types_tl_rec.LANGUAGE := USERENV('LANG');
1183: x_okl_invoice_types_tl_rec.SOURCE_LANG := USERENV('LANG');
1184: RETURN(l_return_status);
1185: END Set_Attributes;
1186: BEGIN
1179: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1180: BEGIN
1181: x_okl_invoice_types_tl_rec := p_okl_invoice_types_tl_rec;
1182: x_okl_invoice_types_tl_rec.LANGUAGE := USERENV('LANG');
1183: x_okl_invoice_types_tl_rec.SOURCE_LANG := USERENV('LANG');
1184: RETURN(l_return_status);
1185: END Set_Attributes;
1186: BEGIN
1187: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1194: RAISE Okl_Api.G_EXCEPTION_ERROR;
1195: END IF;
1196: --- Setting item attributes
1197: l_return_status := Set_Attributes(
1198: p_okl_invoice_types_tl_rec, -- IN
1199: l_okl_invoice_types_tl_rec); -- OUT
1200: --- If any errors happen abort API
1201: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1202: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1195: END IF;
1196: --- Setting item attributes
1197: l_return_status := Set_Attributes(
1198: p_okl_invoice_types_tl_rec, -- IN
1199: l_okl_invoice_types_tl_rec); -- OUT
1200: --- If any errors happen abort API
1201: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1202: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1203: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1203: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1204: RAISE Okl_Api.G_EXCEPTION_ERROR;
1205: END IF;
1206: FOR l_lang_rec IN get_languages LOOP
1207: l_okl_invoice_types_tl_rec.LANGUAGE := l_lang_rec.language_code;
1208: INSERT INTO OKL_INVOICE_TYPES_TL(
1209: id,
1210: LANGUAGE,
1211: source_lang,
1204: RAISE Okl_Api.G_EXCEPTION_ERROR;
1205: END IF;
1206: FOR l_lang_rec IN get_languages LOOP
1207: l_okl_invoice_types_tl_rec.LANGUAGE := l_lang_rec.language_code;
1208: INSERT INTO OKL_INVOICE_TYPES_TL(
1209: id,
1210: LANGUAGE,
1211: source_lang,
1212: sfwt_flag,
1217: last_updated_by,
1218: last_update_date,
1219: last_update_login)
1220: VALUES (
1221: l_okl_invoice_types_tl_rec.id,
1222: l_okl_invoice_types_tl_rec.LANGUAGE,
1223: l_okl_invoice_types_tl_rec.source_lang,
1224: l_okl_invoice_types_tl_rec.sfwt_flag,
1225: l_okl_invoice_types_tl_rec.name,
1218: last_update_date,
1219: last_update_login)
1220: VALUES (
1221: l_okl_invoice_types_tl_rec.id,
1222: l_okl_invoice_types_tl_rec.LANGUAGE,
1223: l_okl_invoice_types_tl_rec.source_lang,
1224: l_okl_invoice_types_tl_rec.sfwt_flag,
1225: l_okl_invoice_types_tl_rec.name,
1226: l_okl_invoice_types_tl_rec.description,
1219: last_update_login)
1220: VALUES (
1221: l_okl_invoice_types_tl_rec.id,
1222: l_okl_invoice_types_tl_rec.LANGUAGE,
1223: l_okl_invoice_types_tl_rec.source_lang,
1224: l_okl_invoice_types_tl_rec.sfwt_flag,
1225: l_okl_invoice_types_tl_rec.name,
1226: l_okl_invoice_types_tl_rec.description,
1227: l_okl_invoice_types_tl_rec.created_by,
1220: VALUES (
1221: l_okl_invoice_types_tl_rec.id,
1222: l_okl_invoice_types_tl_rec.LANGUAGE,
1223: l_okl_invoice_types_tl_rec.source_lang,
1224: l_okl_invoice_types_tl_rec.sfwt_flag,
1225: l_okl_invoice_types_tl_rec.name,
1226: l_okl_invoice_types_tl_rec.description,
1227: l_okl_invoice_types_tl_rec.created_by,
1228: l_okl_invoice_types_tl_rec.creation_date,
1221: l_okl_invoice_types_tl_rec.id,
1222: l_okl_invoice_types_tl_rec.LANGUAGE,
1223: l_okl_invoice_types_tl_rec.source_lang,
1224: l_okl_invoice_types_tl_rec.sfwt_flag,
1225: l_okl_invoice_types_tl_rec.name,
1226: l_okl_invoice_types_tl_rec.description,
1227: l_okl_invoice_types_tl_rec.created_by,
1228: l_okl_invoice_types_tl_rec.creation_date,
1229: l_okl_invoice_types_tl_rec.last_updated_by,
1222: l_okl_invoice_types_tl_rec.LANGUAGE,
1223: l_okl_invoice_types_tl_rec.source_lang,
1224: l_okl_invoice_types_tl_rec.sfwt_flag,
1225: l_okl_invoice_types_tl_rec.name,
1226: l_okl_invoice_types_tl_rec.description,
1227: l_okl_invoice_types_tl_rec.created_by,
1228: l_okl_invoice_types_tl_rec.creation_date,
1229: l_okl_invoice_types_tl_rec.last_updated_by,
1230: l_okl_invoice_types_tl_rec.last_update_date,
1223: l_okl_invoice_types_tl_rec.source_lang,
1224: l_okl_invoice_types_tl_rec.sfwt_flag,
1225: l_okl_invoice_types_tl_rec.name,
1226: l_okl_invoice_types_tl_rec.description,
1227: l_okl_invoice_types_tl_rec.created_by,
1228: l_okl_invoice_types_tl_rec.creation_date,
1229: l_okl_invoice_types_tl_rec.last_updated_by,
1230: l_okl_invoice_types_tl_rec.last_update_date,
1231: l_okl_invoice_types_tl_rec.last_update_login);
1224: l_okl_invoice_types_tl_rec.sfwt_flag,
1225: l_okl_invoice_types_tl_rec.name,
1226: l_okl_invoice_types_tl_rec.description,
1227: l_okl_invoice_types_tl_rec.created_by,
1228: l_okl_invoice_types_tl_rec.creation_date,
1229: l_okl_invoice_types_tl_rec.last_updated_by,
1230: l_okl_invoice_types_tl_rec.last_update_date,
1231: l_okl_invoice_types_tl_rec.last_update_login);
1232: END LOOP;
1225: l_okl_invoice_types_tl_rec.name,
1226: l_okl_invoice_types_tl_rec.description,
1227: l_okl_invoice_types_tl_rec.created_by,
1228: l_okl_invoice_types_tl_rec.creation_date,
1229: l_okl_invoice_types_tl_rec.last_updated_by,
1230: l_okl_invoice_types_tl_rec.last_update_date,
1231: l_okl_invoice_types_tl_rec.last_update_login);
1232: END LOOP;
1233: -- Set OUT values
1226: l_okl_invoice_types_tl_rec.description,
1227: l_okl_invoice_types_tl_rec.created_by,
1228: l_okl_invoice_types_tl_rec.creation_date,
1229: l_okl_invoice_types_tl_rec.last_updated_by,
1230: l_okl_invoice_types_tl_rec.last_update_date,
1231: l_okl_invoice_types_tl_rec.last_update_login);
1232: END LOOP;
1233: -- Set OUT values
1234: x_okl_invoice_types_tl_rec := l_okl_invoice_types_tl_rec;
1227: l_okl_invoice_types_tl_rec.created_by,
1228: l_okl_invoice_types_tl_rec.creation_date,
1229: l_okl_invoice_types_tl_rec.last_updated_by,
1230: l_okl_invoice_types_tl_rec.last_update_date,
1231: l_okl_invoice_types_tl_rec.last_update_login);
1232: END LOOP;
1233: -- Set OUT values
1234: x_okl_invoice_types_tl_rec := l_okl_invoice_types_tl_rec;
1235: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1230: l_okl_invoice_types_tl_rec.last_update_date,
1231: l_okl_invoice_types_tl_rec.last_update_login);
1232: END LOOP;
1233: -- Set OUT values
1234: x_okl_invoice_types_tl_rec := l_okl_invoice_types_tl_rec;
1235: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1236: EXCEPTION
1237: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1238: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1283: l_ityv_rec ityv_rec_type;
1284: l_def_ityv_rec ityv_rec_type;
1285: l_ity_rec ity_rec_type;
1286: lx_ity_rec ity_rec_type;
1287: l_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type;
1288: lx_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type;
1289: -------------------------------
1290: -- FUNCTION fill_who_columns --
1291: -------------------------------
1284: l_def_ityv_rec ityv_rec_type;
1285: l_ity_rec ity_rec_type;
1286: lx_ity_rec ity_rec_type;
1287: l_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type;
1288: lx_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type;
1289: -------------------------------
1290: -- FUNCTION fill_who_columns --
1291: -------------------------------
1292: FUNCTION fill_who_columns (
1359: --------------------------------------
1360: -- Move VIEW record to "Child" records
1361: --------------------------------------
1362: migrate(l_def_ityv_rec, l_ity_rec);
1363: migrate(l_def_ityv_rec, l_okl_invoice_types_tl_rec);
1364: --------------------------------------------
1365: -- Call the INSERT_ROW for each child record
1366: --------------------------------------------
1367: insert_row(
1382: p_init_msg_list,
1383: x_return_status,
1384: x_msg_count,
1385: x_msg_data,
1386: l_okl_invoice_types_tl_rec,
1387: lx_okl_invoice_types_tl_rec
1388: );
1389: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1390: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1383: x_return_status,
1384: x_msg_count,
1385: x_msg_data,
1386: l_okl_invoice_types_tl_rec,
1387: lx_okl_invoice_types_tl_rec
1388: );
1389: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1390: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1391: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1390: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1391: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1392: RAISE Okl_Api.G_EXCEPTION_ERROR;
1393: END IF;
1394: migrate(lx_okl_invoice_types_tl_rec, l_def_ityv_rec);
1395: -- Set OUT values
1396: x_ityv_rec := l_def_ityv_rec;
1397: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1398: EXCEPTION
1621: '_PVT'
1622: );
1623: END lock_row;
1624: ---------------------------------------
1625: -- lock_row for:OKL_INVOICE_TYPES_TL --
1626: ---------------------------------------
1627: PROCEDURE lock_row(
1628: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1629: x_return_status OUT NOCOPY VARCHAR2,
1628: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1629: x_return_status OUT NOCOPY VARCHAR2,
1630: x_msg_count OUT NOCOPY NUMBER,
1631: x_msg_data OUT NOCOPY VARCHAR2,
1632: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type) IS
1633:
1634: E_Resource_Busy EXCEPTION;
1635: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1636: CURSOR lock_csr (p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type) IS
1632: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type) IS
1633:
1634: E_Resource_Busy EXCEPTION;
1635: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1636: CURSOR lock_csr (p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type) IS
1637: SELECT *
1638: FROM OKL_INVOICE_TYPES_TL
1639: WHERE ID = p_okl_invoice_types_tl_rec.id
1640: FOR UPDATE NOWAIT;
1634: E_Resource_Busy EXCEPTION;
1635: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1636: CURSOR lock_csr (p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type) IS
1637: SELECT *
1638: FROM OKL_INVOICE_TYPES_TL
1639: WHERE ID = p_okl_invoice_types_tl_rec.id
1640: FOR UPDATE NOWAIT;
1641:
1642: l_api_version CONSTANT NUMBER := 1;
1635: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1636: CURSOR lock_csr (p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type) IS
1637: SELECT *
1638: FROM OKL_INVOICE_TYPES_TL
1639: WHERE ID = p_okl_invoice_types_tl_rec.id
1640: FOR UPDATE NOWAIT;
1641:
1642: l_api_version CONSTANT NUMBER := 1;
1643: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
1655: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1656: RAISE Okl_Api.G_EXCEPTION_ERROR;
1657: END IF;
1658: BEGIN
1659: OPEN lock_csr(p_okl_invoice_types_tl_rec);
1660: FETCH lock_csr INTO l_lock_var;
1661: l_row_notfound := lock_csr%NOTFOUND;
1662: CLOSE lock_csr;
1663: EXCEPTION
1720: l_api_version CONSTANT NUMBER := 1;
1721: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1722: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1723: l_ity_rec ity_rec_type;
1724: l_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type;
1725: BEGIN
1726: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1727: G_PKG_NAME,
1728: p_init_msg_list,
1738: --------------------------------------
1739: -- Move VIEW record to "Child" records
1740: --------------------------------------
1741: migrate(p_ityv_rec, l_ity_rec);
1742: migrate(p_ityv_rec, l_okl_invoice_types_tl_rec);
1743: --------------------------------------------
1744: -- Call the LOCK_ROW for each child record
1745: --------------------------------------------
1746: lock_row(
1759: p_init_msg_list,
1760: x_return_status,
1761: x_msg_count,
1762: x_msg_data,
1763: l_okl_invoice_types_tl_rec
1764: );
1765: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1766: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1767: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2117: '_PVT'
2118: );
2119: END update_row;
2120: -----------------------------------------
2121: -- update_row for:OKL_INVOICE_TYPES_TL --
2122: -----------------------------------------
2123: PROCEDURE update_row(
2124: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
2125: x_return_status OUT NOCOPY VARCHAR2,
2124: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
2125: x_return_status OUT NOCOPY VARCHAR2,
2126: x_msg_count OUT NOCOPY NUMBER,
2127: x_msg_data OUT NOCOPY VARCHAR2,
2128: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type,
2129: x_okl_invoice_types_tl_rec OUT NOCOPY okl_invoice_types_tl_rec_type) IS
2130:
2131: l_api_version CONSTANT NUMBER := 1;
2132: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2125: x_return_status OUT NOCOPY VARCHAR2,
2126: x_msg_count OUT NOCOPY NUMBER,
2127: x_msg_data OUT NOCOPY VARCHAR2,
2128: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type,
2129: x_okl_invoice_types_tl_rec OUT NOCOPY okl_invoice_types_tl_rec_type) IS
2130:
2131: l_api_version CONSTANT NUMBER := 1;
2132: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2133: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2130:
2131: l_api_version CONSTANT NUMBER := 1;
2132: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2133: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2134: l_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type := p_okl_invoice_types_tl_rec;
2135: ldefoklinvoicetypestlrec okl_invoice_types_tl_rec_type;
2136: l_row_notfound BOOLEAN := TRUE;
2137: ----------------------------------
2138: -- FUNCTION populate_new_record --
2131: l_api_version CONSTANT NUMBER := 1;
2132: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2133: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2134: l_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type := p_okl_invoice_types_tl_rec;
2135: ldefoklinvoicetypestlrec okl_invoice_types_tl_rec_type;
2136: l_row_notfound BOOLEAN := TRUE;
2137: ----------------------------------
2138: -- FUNCTION populate_new_record --
2139: ----------------------------------
2137: ----------------------------------
2138: -- FUNCTION populate_new_record --
2139: ----------------------------------
2140: FUNCTION populate_new_record (
2141: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type,
2142: x_okl_invoice_types_tl_rec OUT NOCOPY okl_invoice_types_tl_rec_type
2143: ) RETURN VARCHAR2 IS
2144: l_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type;
2145: l_row_notfound BOOLEAN := TRUE;
2138: -- FUNCTION populate_new_record --
2139: ----------------------------------
2140: FUNCTION populate_new_record (
2141: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type,
2142: x_okl_invoice_types_tl_rec OUT NOCOPY okl_invoice_types_tl_rec_type
2143: ) RETURN VARCHAR2 IS
2144: l_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type;
2145: l_row_notfound BOOLEAN := TRUE;
2146: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2140: FUNCTION populate_new_record (
2141: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type,
2142: x_okl_invoice_types_tl_rec OUT NOCOPY okl_invoice_types_tl_rec_type
2143: ) RETURN VARCHAR2 IS
2144: l_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type;
2145: l_row_notfound BOOLEAN := TRUE;
2146: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2147: BEGIN
2148: x_okl_invoice_types_tl_rec := p_okl_invoice_types_tl_rec;
2144: l_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type;
2145: l_row_notfound BOOLEAN := TRUE;
2146: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2147: BEGIN
2148: x_okl_invoice_types_tl_rec := p_okl_invoice_types_tl_rec;
2149: -- Get current database values
2150: l_okl_invoice_types_tl_rec := get_rec(p_okl_invoice_types_tl_rec, l_row_notfound);
2151: IF (l_row_notfound) THEN
2152: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
2146: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2147: BEGIN
2148: x_okl_invoice_types_tl_rec := p_okl_invoice_types_tl_rec;
2149: -- Get current database values
2150: l_okl_invoice_types_tl_rec := get_rec(p_okl_invoice_types_tl_rec, l_row_notfound);
2151: IF (l_row_notfound) THEN
2152: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
2153: END IF;
2154: IF (x_okl_invoice_types_tl_rec.id = Okl_Api.G_MISS_NUM)
2150: l_okl_invoice_types_tl_rec := get_rec(p_okl_invoice_types_tl_rec, l_row_notfound);
2151: IF (l_row_notfound) THEN
2152: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
2153: END IF;
2154: IF (x_okl_invoice_types_tl_rec.id = Okl_Api.G_MISS_NUM)
2155: THEN
2156: x_okl_invoice_types_tl_rec.id := l_okl_invoice_types_tl_rec.id;
2157: END IF;
2158: IF (x_okl_invoice_types_tl_rec.LANGUAGE = Okl_Api.G_MISS_CHAR)
2152: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
2153: END IF;
2154: IF (x_okl_invoice_types_tl_rec.id = Okl_Api.G_MISS_NUM)
2155: THEN
2156: x_okl_invoice_types_tl_rec.id := l_okl_invoice_types_tl_rec.id;
2157: END IF;
2158: IF (x_okl_invoice_types_tl_rec.LANGUAGE = Okl_Api.G_MISS_CHAR)
2159: THEN
2160: x_okl_invoice_types_tl_rec.LANGUAGE := l_okl_invoice_types_tl_rec.LANGUAGE;
2154: IF (x_okl_invoice_types_tl_rec.id = Okl_Api.G_MISS_NUM)
2155: THEN
2156: x_okl_invoice_types_tl_rec.id := l_okl_invoice_types_tl_rec.id;
2157: END IF;
2158: IF (x_okl_invoice_types_tl_rec.LANGUAGE = Okl_Api.G_MISS_CHAR)
2159: THEN
2160: x_okl_invoice_types_tl_rec.LANGUAGE := l_okl_invoice_types_tl_rec.LANGUAGE;
2161: END IF;
2162: IF (x_okl_invoice_types_tl_rec.source_lang = Okl_Api.G_MISS_CHAR)
2156: x_okl_invoice_types_tl_rec.id := l_okl_invoice_types_tl_rec.id;
2157: END IF;
2158: IF (x_okl_invoice_types_tl_rec.LANGUAGE = Okl_Api.G_MISS_CHAR)
2159: THEN
2160: x_okl_invoice_types_tl_rec.LANGUAGE := l_okl_invoice_types_tl_rec.LANGUAGE;
2161: END IF;
2162: IF (x_okl_invoice_types_tl_rec.source_lang = Okl_Api.G_MISS_CHAR)
2163: THEN
2164: x_okl_invoice_types_tl_rec.source_lang := l_okl_invoice_types_tl_rec.source_lang;
2158: IF (x_okl_invoice_types_tl_rec.LANGUAGE = Okl_Api.G_MISS_CHAR)
2159: THEN
2160: x_okl_invoice_types_tl_rec.LANGUAGE := l_okl_invoice_types_tl_rec.LANGUAGE;
2161: END IF;
2162: IF (x_okl_invoice_types_tl_rec.source_lang = Okl_Api.G_MISS_CHAR)
2163: THEN
2164: x_okl_invoice_types_tl_rec.source_lang := l_okl_invoice_types_tl_rec.source_lang;
2165: END IF;
2166: IF (x_okl_invoice_types_tl_rec.sfwt_flag = Okl_Api.G_MISS_CHAR)
2160: x_okl_invoice_types_tl_rec.LANGUAGE := l_okl_invoice_types_tl_rec.LANGUAGE;
2161: END IF;
2162: IF (x_okl_invoice_types_tl_rec.source_lang = Okl_Api.G_MISS_CHAR)
2163: THEN
2164: x_okl_invoice_types_tl_rec.source_lang := l_okl_invoice_types_tl_rec.source_lang;
2165: END IF;
2166: IF (x_okl_invoice_types_tl_rec.sfwt_flag = Okl_Api.G_MISS_CHAR)
2167: THEN
2168: x_okl_invoice_types_tl_rec.sfwt_flag := l_okl_invoice_types_tl_rec.sfwt_flag;
2162: IF (x_okl_invoice_types_tl_rec.source_lang = Okl_Api.G_MISS_CHAR)
2163: THEN
2164: x_okl_invoice_types_tl_rec.source_lang := l_okl_invoice_types_tl_rec.source_lang;
2165: END IF;
2166: IF (x_okl_invoice_types_tl_rec.sfwt_flag = Okl_Api.G_MISS_CHAR)
2167: THEN
2168: x_okl_invoice_types_tl_rec.sfwt_flag := l_okl_invoice_types_tl_rec.sfwt_flag;
2169: END IF;
2170: IF (x_okl_invoice_types_tl_rec.name = Okl_Api.G_MISS_CHAR)
2164: x_okl_invoice_types_tl_rec.source_lang := l_okl_invoice_types_tl_rec.source_lang;
2165: END IF;
2166: IF (x_okl_invoice_types_tl_rec.sfwt_flag = Okl_Api.G_MISS_CHAR)
2167: THEN
2168: x_okl_invoice_types_tl_rec.sfwt_flag := l_okl_invoice_types_tl_rec.sfwt_flag;
2169: END IF;
2170: IF (x_okl_invoice_types_tl_rec.name = Okl_Api.G_MISS_CHAR)
2171: THEN
2172: x_okl_invoice_types_tl_rec.name := l_okl_invoice_types_tl_rec.name;
2166: IF (x_okl_invoice_types_tl_rec.sfwt_flag = Okl_Api.G_MISS_CHAR)
2167: THEN
2168: x_okl_invoice_types_tl_rec.sfwt_flag := l_okl_invoice_types_tl_rec.sfwt_flag;
2169: END IF;
2170: IF (x_okl_invoice_types_tl_rec.name = Okl_Api.G_MISS_CHAR)
2171: THEN
2172: x_okl_invoice_types_tl_rec.name := l_okl_invoice_types_tl_rec.name;
2173: END IF;
2174: IF (x_okl_invoice_types_tl_rec.description = Okl_Api.G_MISS_CHAR)
2168: x_okl_invoice_types_tl_rec.sfwt_flag := l_okl_invoice_types_tl_rec.sfwt_flag;
2169: END IF;
2170: IF (x_okl_invoice_types_tl_rec.name = Okl_Api.G_MISS_CHAR)
2171: THEN
2172: x_okl_invoice_types_tl_rec.name := l_okl_invoice_types_tl_rec.name;
2173: END IF;
2174: IF (x_okl_invoice_types_tl_rec.description = Okl_Api.G_MISS_CHAR)
2175: THEN
2176: x_okl_invoice_types_tl_rec.description := l_okl_invoice_types_tl_rec.description;
2170: IF (x_okl_invoice_types_tl_rec.name = Okl_Api.G_MISS_CHAR)
2171: THEN
2172: x_okl_invoice_types_tl_rec.name := l_okl_invoice_types_tl_rec.name;
2173: END IF;
2174: IF (x_okl_invoice_types_tl_rec.description = Okl_Api.G_MISS_CHAR)
2175: THEN
2176: x_okl_invoice_types_tl_rec.description := l_okl_invoice_types_tl_rec.description;
2177: END IF;
2178: IF (x_okl_invoice_types_tl_rec.created_by = Okl_Api.G_MISS_NUM)
2172: x_okl_invoice_types_tl_rec.name := l_okl_invoice_types_tl_rec.name;
2173: END IF;
2174: IF (x_okl_invoice_types_tl_rec.description = Okl_Api.G_MISS_CHAR)
2175: THEN
2176: x_okl_invoice_types_tl_rec.description := l_okl_invoice_types_tl_rec.description;
2177: END IF;
2178: IF (x_okl_invoice_types_tl_rec.created_by = Okl_Api.G_MISS_NUM)
2179: THEN
2180: x_okl_invoice_types_tl_rec.created_by := l_okl_invoice_types_tl_rec.created_by;
2174: IF (x_okl_invoice_types_tl_rec.description = Okl_Api.G_MISS_CHAR)
2175: THEN
2176: x_okl_invoice_types_tl_rec.description := l_okl_invoice_types_tl_rec.description;
2177: END IF;
2178: IF (x_okl_invoice_types_tl_rec.created_by = Okl_Api.G_MISS_NUM)
2179: THEN
2180: x_okl_invoice_types_tl_rec.created_by := l_okl_invoice_types_tl_rec.created_by;
2181: END IF;
2182: IF (x_okl_invoice_types_tl_rec.creation_date = Okl_Api.G_MISS_DATE)
2176: x_okl_invoice_types_tl_rec.description := l_okl_invoice_types_tl_rec.description;
2177: END IF;
2178: IF (x_okl_invoice_types_tl_rec.created_by = Okl_Api.G_MISS_NUM)
2179: THEN
2180: x_okl_invoice_types_tl_rec.created_by := l_okl_invoice_types_tl_rec.created_by;
2181: END IF;
2182: IF (x_okl_invoice_types_tl_rec.creation_date = Okl_Api.G_MISS_DATE)
2183: THEN
2184: x_okl_invoice_types_tl_rec.creation_date := l_okl_invoice_types_tl_rec.creation_date;
2178: IF (x_okl_invoice_types_tl_rec.created_by = Okl_Api.G_MISS_NUM)
2179: THEN
2180: x_okl_invoice_types_tl_rec.created_by := l_okl_invoice_types_tl_rec.created_by;
2181: END IF;
2182: IF (x_okl_invoice_types_tl_rec.creation_date = Okl_Api.G_MISS_DATE)
2183: THEN
2184: x_okl_invoice_types_tl_rec.creation_date := l_okl_invoice_types_tl_rec.creation_date;
2185: END IF;
2186: IF (x_okl_invoice_types_tl_rec.last_updated_by = Okl_Api.G_MISS_NUM)
2180: x_okl_invoice_types_tl_rec.created_by := l_okl_invoice_types_tl_rec.created_by;
2181: END IF;
2182: IF (x_okl_invoice_types_tl_rec.creation_date = Okl_Api.G_MISS_DATE)
2183: THEN
2184: x_okl_invoice_types_tl_rec.creation_date := l_okl_invoice_types_tl_rec.creation_date;
2185: END IF;
2186: IF (x_okl_invoice_types_tl_rec.last_updated_by = Okl_Api.G_MISS_NUM)
2187: THEN
2188: x_okl_invoice_types_tl_rec.last_updated_by := l_okl_invoice_types_tl_rec.last_updated_by;
2182: IF (x_okl_invoice_types_tl_rec.creation_date = Okl_Api.G_MISS_DATE)
2183: THEN
2184: x_okl_invoice_types_tl_rec.creation_date := l_okl_invoice_types_tl_rec.creation_date;
2185: END IF;
2186: IF (x_okl_invoice_types_tl_rec.last_updated_by = Okl_Api.G_MISS_NUM)
2187: THEN
2188: x_okl_invoice_types_tl_rec.last_updated_by := l_okl_invoice_types_tl_rec.last_updated_by;
2189: END IF;
2190: IF (x_okl_invoice_types_tl_rec.last_update_date = Okl_Api.G_MISS_DATE)
2184: x_okl_invoice_types_tl_rec.creation_date := l_okl_invoice_types_tl_rec.creation_date;
2185: END IF;
2186: IF (x_okl_invoice_types_tl_rec.last_updated_by = Okl_Api.G_MISS_NUM)
2187: THEN
2188: x_okl_invoice_types_tl_rec.last_updated_by := l_okl_invoice_types_tl_rec.last_updated_by;
2189: END IF;
2190: IF (x_okl_invoice_types_tl_rec.last_update_date = Okl_Api.G_MISS_DATE)
2191: THEN
2192: x_okl_invoice_types_tl_rec.last_update_date := l_okl_invoice_types_tl_rec.last_update_date;
2186: IF (x_okl_invoice_types_tl_rec.last_updated_by = Okl_Api.G_MISS_NUM)
2187: THEN
2188: x_okl_invoice_types_tl_rec.last_updated_by := l_okl_invoice_types_tl_rec.last_updated_by;
2189: END IF;
2190: IF (x_okl_invoice_types_tl_rec.last_update_date = Okl_Api.G_MISS_DATE)
2191: THEN
2192: x_okl_invoice_types_tl_rec.last_update_date := l_okl_invoice_types_tl_rec.last_update_date;
2193: END IF;
2194: IF (x_okl_invoice_types_tl_rec.last_update_login = Okl_Api.G_MISS_NUM)
2188: x_okl_invoice_types_tl_rec.last_updated_by := l_okl_invoice_types_tl_rec.last_updated_by;
2189: END IF;
2190: IF (x_okl_invoice_types_tl_rec.last_update_date = Okl_Api.G_MISS_DATE)
2191: THEN
2192: x_okl_invoice_types_tl_rec.last_update_date := l_okl_invoice_types_tl_rec.last_update_date;
2193: END IF;
2194: IF (x_okl_invoice_types_tl_rec.last_update_login = Okl_Api.G_MISS_NUM)
2195: THEN
2196: x_okl_invoice_types_tl_rec.last_update_login := l_okl_invoice_types_tl_rec.last_update_login;
2190: IF (x_okl_invoice_types_tl_rec.last_update_date = Okl_Api.G_MISS_DATE)
2191: THEN
2192: x_okl_invoice_types_tl_rec.last_update_date := l_okl_invoice_types_tl_rec.last_update_date;
2193: END IF;
2194: IF (x_okl_invoice_types_tl_rec.last_update_login = Okl_Api.G_MISS_NUM)
2195: THEN
2196: x_okl_invoice_types_tl_rec.last_update_login := l_okl_invoice_types_tl_rec.last_update_login;
2197: END IF;
2198: RETURN(l_return_status);
2192: x_okl_invoice_types_tl_rec.last_update_date := l_okl_invoice_types_tl_rec.last_update_date;
2193: END IF;
2194: IF (x_okl_invoice_types_tl_rec.last_update_login = Okl_Api.G_MISS_NUM)
2195: THEN
2196: x_okl_invoice_types_tl_rec.last_update_login := l_okl_invoice_types_tl_rec.last_update_login;
2197: END IF;
2198: RETURN(l_return_status);
2199: END populate_new_record;
2200: ---------------------------------------------
2197: END IF;
2198: RETURN(l_return_status);
2199: END populate_new_record;
2200: ---------------------------------------------
2201: -- Set_Attributes for:OKL_INVOICE_TYPES_TL --
2202: ---------------------------------------------
2203: FUNCTION Set_Attributes (
2204: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type,
2205: x_okl_invoice_types_tl_rec OUT NOCOPY okl_invoice_types_tl_rec_type
2200: ---------------------------------------------
2201: -- Set_Attributes for:OKL_INVOICE_TYPES_TL --
2202: ---------------------------------------------
2203: FUNCTION Set_Attributes (
2204: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type,
2205: x_okl_invoice_types_tl_rec OUT NOCOPY okl_invoice_types_tl_rec_type
2206: ) RETURN VARCHAR2 IS
2207: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2208: BEGIN
2201: -- Set_Attributes for:OKL_INVOICE_TYPES_TL --
2202: ---------------------------------------------
2203: FUNCTION Set_Attributes (
2204: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type,
2205: x_okl_invoice_types_tl_rec OUT NOCOPY okl_invoice_types_tl_rec_type
2206: ) RETURN VARCHAR2 IS
2207: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2208: BEGIN
2209: x_okl_invoice_types_tl_rec := p_okl_invoice_types_tl_rec;
2205: x_okl_invoice_types_tl_rec OUT NOCOPY okl_invoice_types_tl_rec_type
2206: ) RETURN VARCHAR2 IS
2207: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2208: BEGIN
2209: x_okl_invoice_types_tl_rec := p_okl_invoice_types_tl_rec;
2210: x_okl_invoice_types_tl_rec.LANGUAGE := USERENV('LANG');
2211: x_okl_invoice_types_tl_rec.SOURCE_LANG := USERENV('LANG');
2212: RETURN(l_return_status);
2213: END Set_Attributes;
2206: ) RETURN VARCHAR2 IS
2207: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2208: BEGIN
2209: x_okl_invoice_types_tl_rec := p_okl_invoice_types_tl_rec;
2210: x_okl_invoice_types_tl_rec.LANGUAGE := USERENV('LANG');
2211: x_okl_invoice_types_tl_rec.SOURCE_LANG := USERENV('LANG');
2212: RETURN(l_return_status);
2213: END Set_Attributes;
2214: BEGIN
2207: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2208: BEGIN
2209: x_okl_invoice_types_tl_rec := p_okl_invoice_types_tl_rec;
2210: x_okl_invoice_types_tl_rec.LANGUAGE := USERENV('LANG');
2211: x_okl_invoice_types_tl_rec.SOURCE_LANG := USERENV('LANG');
2212: RETURN(l_return_status);
2213: END Set_Attributes;
2214: BEGIN
2215: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
2222: RAISE Okl_Api.G_EXCEPTION_ERROR;
2223: END IF;
2224: --- Setting item attributes
2225: l_return_status := Set_Attributes(
2226: p_okl_invoice_types_tl_rec, -- IN
2227: l_okl_invoice_types_tl_rec); -- OUT
2228: --- If any errors happen abort API
2229: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2230: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2223: END IF;
2224: --- Setting item attributes
2225: l_return_status := Set_Attributes(
2226: p_okl_invoice_types_tl_rec, -- IN
2227: l_okl_invoice_types_tl_rec); -- OUT
2228: --- If any errors happen abort API
2229: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2230: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2231: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2230: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2231: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2232: RAISE Okl_Api.G_EXCEPTION_ERROR;
2233: END IF;
2234: l_return_status := populate_new_record(l_okl_invoice_types_tl_rec, ldefoklinvoicetypestlrec);
2235: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2236: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2237: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2238: RAISE Okl_Api.G_EXCEPTION_ERROR;
2236: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2237: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2238: RAISE Okl_Api.G_EXCEPTION_ERROR;
2239: END IF;
2240: UPDATE OKL_INVOICE_TYPES_TL
2241: SET NAME = ldefoklinvoicetypestlrec.name,
2242: DESCRIPTION = ldefoklinvoicetypestlrec.description,
2243: CREATED_BY = ldefoklinvoicetypestlrec.created_by,
2244: CREATION_DATE = ldefoklinvoicetypestlrec.creation_date,
2248: WHERE ID = ldefoklinvoicetypestlrec.id
2249: --AND SOURCE_LANG = USERENV('LANG');
2250: AND USERENV('LANG') in (SOURCE_LANG, LANGUAGE);
2251:
2252: UPDATE OKL_INVOICE_TYPES_TL
2253: SET SFWT_FLAG = 'Y'
2254: WHERE ID = ldefoklinvoicetypestlrec.id
2255: AND SOURCE_LANG <> USERENV('LANG');
2256:
2253: SET SFWT_FLAG = 'Y'
2254: WHERE ID = ldefoklinvoicetypestlrec.id
2255: AND SOURCE_LANG <> USERENV('LANG');
2256:
2257: x_okl_invoice_types_tl_rec := ldefoklinvoicetypestlrec;
2258: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2259: EXCEPTION
2260: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2261: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2304: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2305: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2306: l_ityv_rec ityv_rec_type := p_ityv_rec;
2307: l_def_ityv_rec ityv_rec_type;
2308: l_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type;
2309: lx_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type;
2310: l_ity_rec ity_rec_type;
2311: lx_ity_rec ity_rec_type;
2312: -------------------------------
2305: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2306: l_ityv_rec ityv_rec_type := p_ityv_rec;
2307: l_def_ityv_rec ityv_rec_type;
2308: l_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type;
2309: lx_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type;
2310: l_ity_rec ity_rec_type;
2311: lx_ity_rec ity_rec_type;
2312: -------------------------------
2313: -- FUNCTION fill_who_columns --
2517:
2518: --------------------------------------
2519: -- Move VIEW record to "Child" records
2520: --------------------------------------
2521: migrate(l_def_ityv_rec, l_okl_invoice_types_tl_rec);
2522: migrate(l_def_ityv_rec, l_ity_rec);
2523: --------------------------------------------
2524: -- Call the UPDATE_ROW for each child record
2525: --------------------------------------------
2527: p_init_msg_list,
2528: x_return_status,
2529: x_msg_count,
2530: x_msg_data,
2531: l_okl_invoice_types_tl_rec,
2532: lx_okl_invoice_types_tl_rec
2533: );
2534: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2535: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2528: x_return_status,
2529: x_msg_count,
2530: x_msg_data,
2531: l_okl_invoice_types_tl_rec,
2532: lx_okl_invoice_types_tl_rec
2533: );
2534: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2535: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2536: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2535: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2536: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2537: RAISE Okl_Api.G_EXCEPTION_ERROR;
2538: END IF;
2539: migrate(lx_okl_invoice_types_tl_rec, l_def_ityv_rec);
2540: update_row(
2541: p_init_msg_list,
2542: x_return_status,
2543: x_msg_count,
2725: '_PVT'
2726: );
2727: END delete_row;
2728: -----------------------------------------
2729: -- delete_row for:OKL_INVOICE_TYPES_TL --
2730: -----------------------------------------
2731: PROCEDURE delete_row(
2732: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
2733: x_return_status OUT NOCOPY VARCHAR2,
2732: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
2733: x_return_status OUT NOCOPY VARCHAR2,
2734: x_msg_count OUT NOCOPY NUMBER,
2735: x_msg_data OUT NOCOPY VARCHAR2,
2736: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type) IS
2737:
2738: l_api_version CONSTANT NUMBER := 1;
2739: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
2740: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2737:
2738: l_api_version CONSTANT NUMBER := 1;
2739: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
2740: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2741: l_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type:= p_okl_invoice_types_tl_rec;
2742: l_row_notfound BOOLEAN := TRUE;
2743: ---------------------------------------------
2744: -- Set_Attributes for:OKL_INVOICE_TYPES_TL --
2745: ---------------------------------------------
2740: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2741: l_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type:= p_okl_invoice_types_tl_rec;
2742: l_row_notfound BOOLEAN := TRUE;
2743: ---------------------------------------------
2744: -- Set_Attributes for:OKL_INVOICE_TYPES_TL --
2745: ---------------------------------------------
2746: FUNCTION Set_Attributes (
2747: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type,
2748: x_okl_invoice_types_tl_rec OUT NOCOPY okl_invoice_types_tl_rec_type
2743: ---------------------------------------------
2744: -- Set_Attributes for:OKL_INVOICE_TYPES_TL --
2745: ---------------------------------------------
2746: FUNCTION Set_Attributes (
2747: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type,
2748: x_okl_invoice_types_tl_rec OUT NOCOPY okl_invoice_types_tl_rec_type
2749: ) RETURN VARCHAR2 IS
2750: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2751: BEGIN
2744: -- Set_Attributes for:OKL_INVOICE_TYPES_TL --
2745: ---------------------------------------------
2746: FUNCTION Set_Attributes (
2747: p_okl_invoice_types_tl_rec IN okl_invoice_types_tl_rec_type,
2748: x_okl_invoice_types_tl_rec OUT NOCOPY okl_invoice_types_tl_rec_type
2749: ) RETURN VARCHAR2 IS
2750: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2751: BEGIN
2752: x_okl_invoice_types_tl_rec := p_okl_invoice_types_tl_rec;
2748: x_okl_invoice_types_tl_rec OUT NOCOPY okl_invoice_types_tl_rec_type
2749: ) RETURN VARCHAR2 IS
2750: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2751: BEGIN
2752: x_okl_invoice_types_tl_rec := p_okl_invoice_types_tl_rec;
2753: x_okl_invoice_types_tl_rec.LANGUAGE := USERENV('LANG');
2754: RETURN(l_return_status);
2755: END Set_Attributes;
2756: BEGIN
2749: ) RETURN VARCHAR2 IS
2750: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2751: BEGIN
2752: x_okl_invoice_types_tl_rec := p_okl_invoice_types_tl_rec;
2753: x_okl_invoice_types_tl_rec.LANGUAGE := USERENV('LANG');
2754: RETURN(l_return_status);
2755: END Set_Attributes;
2756: BEGIN
2757: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
2764: RAISE Okl_Api.G_EXCEPTION_ERROR;
2765: END IF;
2766: --- Setting item attributes
2767: l_return_status := Set_Attributes(
2768: p_okl_invoice_types_tl_rec, -- IN
2769: l_okl_invoice_types_tl_rec); -- OUT
2770: --- If any errors happen abort API
2771: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2772: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2765: END IF;
2766: --- Setting item attributes
2767: l_return_status := Set_Attributes(
2768: p_okl_invoice_types_tl_rec, -- IN
2769: l_okl_invoice_types_tl_rec); -- OUT
2770: --- If any errors happen abort API
2771: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2772: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2773: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2772: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2773: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2774: RAISE Okl_Api.G_EXCEPTION_ERROR;
2775: END IF;
2776: DELETE FROM OKL_INVOICE_TYPES_TL
2777: WHERE ID = l_okl_invoice_types_tl_rec.id;
2778:
2779: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2780: EXCEPTION
2773: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2774: RAISE Okl_Api.G_EXCEPTION_ERROR;
2775: END IF;
2776: DELETE FROM OKL_INVOICE_TYPES_TL
2777: WHERE ID = l_okl_invoice_types_tl_rec.id;
2778:
2779: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2780: EXCEPTION
2781: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2823: l_api_version CONSTANT NUMBER := 1;
2824: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2825: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2826: l_ityv_rec ityv_rec_type := p_ityv_rec;
2827: l_okl_invoice_types_tl_rec okl_invoice_types_tl_rec_type;
2828: l_ity_rec ity_rec_type;
2829: BEGIN
2830: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
2831: G_PKG_NAME,
2841: END IF;
2842: --------------------------------------
2843: -- Move VIEW record to "Child" records
2844: --------------------------------------
2845: migrate(l_ityv_rec, l_okl_invoice_types_tl_rec);
2846: migrate(l_ityv_rec, l_ity_rec);
2847: --------------------------------------------
2848: -- Call the DELETE_ROW for each child record
2849: --------------------------------------------
2851: p_init_msg_list,
2852: x_return_status,
2853: x_msg_count,
2854: x_msg_data,
2855: l_okl_invoice_types_tl_rec
2856: );
2857: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN