94: -- PROCEDURE add_language
95: ---------------------------------------------------------------------------
96: PROCEDURE add_language IS
97: BEGIN
98: DELETE FROM OKS_SUBSCR_HEADER_TL T
99: WHERE NOT EXISTS (
100: SELECT NULL
101: FROM OKS_SUBSCR_HEADER_B B
102: WHERE B.ID =T.ID
101: FROM OKS_SUBSCR_HEADER_B B
102: WHERE B.ID =T.ID
103: );
104:
105: UPDATE OKS_SUBSCR_HEADER_TL T SET(
106: NAME,
107: DESCRIPTION,
108: COMMENTS) = (SELECT
109: B.NAME,
108: COMMENTS) = (SELECT
109: B.NAME,
110: B.DESCRIPTION,
111: B.COMMENTS
112: FROM OKS_SUBSCR_HEADER_TL B
113: WHERE B.ID = T.ID
114: AND B.LANGUAGE = T.SOURCE_LANG)
115: WHERE ( T.ID,
116: T.LANGUAGE)
116: T.LANGUAGE)
117: IN (SELECT
118: SUBT.ID,
119: SUBT.LANGUAGE
120: FROM OKS_SUBSCR_HEADER_TL SUBB, OKS_SUBSCR_HEADER_TL SUBT
121: WHERE SUBB.ID = SUBT.ID
122: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
123: AND (SUBB.NAME <> SUBT.NAME
124: OR SUBB.DESCRIPTION <> SUBT.DESCRIPTION
127: OR (SUBB.DESCRIPTION IS NULL AND SUBT.DESCRIPTION IS NOT NULL)
128: OR (SUBB.COMMENTS IS NULL AND SUBT.COMMENTS IS NOT NULL)
129: ));
130:
131: INSERT INTO OKS_SUBSCR_HEADER_TL (
132: ID,
133: NAME,
134: DESCRIPTION,
135: LANGUAGE,
153: B.CREATION_DATE,
154: B.LAST_UPDATED_BY,
155: B.LAST_UPDATE_DATE,
156: B.LAST_UPDATE_LOGIN
157: FROM OKS_SUBSCR_HEADER_TL B, FND_LANGUAGES L
158: WHERE L.INSTALLED_FLAG IN ('I', 'B')
159: AND B.LANGUAGE = USERENV('LANG')
160: AND NOT EXISTS (
161: SELECT NULL
158: WHERE L.INSTALLED_FLAG IN ('I', 'B')
159: AND B.LANGUAGE = USERENV('LANG')
160: AND NOT EXISTS (
161: SELECT NULL
162: FROM OKS_SUBSCR_HEADER_TL T
163: WHERE T.ID = B.ID
164: AND T.LANGUAGE = L.LANGUAGE_CODE
165: );
166: END add_language;
362: BEGIN
363: RETURN(get_rec(p_sbh_rec, l_row_not_found));
364: END get_rec;
365: ---------------------------------------------------------------------------
366: -- FUNCTION get_rec for: OKS_SUBSCR_HEADER_TL
367: ---------------------------------------------------------------------------
368: FUNCTION get_rec (
369: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type,
370: x_no_data_found OUT NOCOPY BOOLEAN
365: ---------------------------------------------------------------------------
366: -- FUNCTION get_rec for: OKS_SUBSCR_HEADER_TL
367: ---------------------------------------------------------------------------
368: FUNCTION get_rec (
369: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type,
370: x_no_data_found OUT NOCOPY BOOLEAN
371: ) RETURN oks_subscr_header_tl_rec_type IS
372: CURSOR oks_subscr_header_tl_pk_csr (p_id IN NUMBER,
373: p_language IN VARCHAR2) IS
367: ---------------------------------------------------------------------------
368: FUNCTION get_rec (
369: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type,
370: x_no_data_found OUT NOCOPY BOOLEAN
371: ) RETURN oks_subscr_header_tl_rec_type IS
372: CURSOR oks_subscr_header_tl_pk_csr (p_id IN NUMBER,
373: p_language IN VARCHAR2) IS
374: SELECT
375: ID,
368: FUNCTION get_rec (
369: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type,
370: x_no_data_found OUT NOCOPY BOOLEAN
371: ) RETURN oks_subscr_header_tl_rec_type IS
372: CURSOR oks_subscr_header_tl_pk_csr (p_id IN NUMBER,
373: p_language IN VARCHAR2) IS
374: SELECT
375: ID,
376: NAME,
383: CREATION_DATE,
384: LAST_UPDATED_BY,
385: LAST_UPDATE_DATE,
386: LAST_UPDATE_LOGIN
387: FROM Oks_Subscr_Header_Tl
388: WHERE oks_subscr_header_tl.id = p_id
389: AND oks_subscr_header_tl.language = p_language;
390: l_oks_subscr_header_tl_pk oks_subscr_header_tl_pk_csr%ROWTYPE;
391: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
384: LAST_UPDATED_BY,
385: LAST_UPDATE_DATE,
386: LAST_UPDATE_LOGIN
387: FROM Oks_Subscr_Header_Tl
388: WHERE oks_subscr_header_tl.id = p_id
389: AND oks_subscr_header_tl.language = p_language;
390: l_oks_subscr_header_tl_pk oks_subscr_header_tl_pk_csr%ROWTYPE;
391: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
392: BEGIN
385: LAST_UPDATE_DATE,
386: LAST_UPDATE_LOGIN
387: FROM Oks_Subscr_Header_Tl
388: WHERE oks_subscr_header_tl.id = p_id
389: AND oks_subscr_header_tl.language = p_language;
390: l_oks_subscr_header_tl_pk oks_subscr_header_tl_pk_csr%ROWTYPE;
391: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
392: BEGIN
393: x_no_data_found := TRUE;
386: LAST_UPDATE_LOGIN
387: FROM Oks_Subscr_Header_Tl
388: WHERE oks_subscr_header_tl.id = p_id
389: AND oks_subscr_header_tl.language = p_language;
390: l_oks_subscr_header_tl_pk oks_subscr_header_tl_pk_csr%ROWTYPE;
391: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
392: BEGIN
393: x_no_data_found := TRUE;
394: -- Get current database values
387: FROM Oks_Subscr_Header_Tl
388: WHERE oks_subscr_header_tl.id = p_id
389: AND oks_subscr_header_tl.language = p_language;
390: l_oks_subscr_header_tl_pk oks_subscr_header_tl_pk_csr%ROWTYPE;
391: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
392: BEGIN
393: x_no_data_found := TRUE;
394: -- Get current database values
395: OPEN oks_subscr_header_tl_pk_csr (p_oks_subscr_header_tl_rec.id,
391: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
392: BEGIN
393: x_no_data_found := TRUE;
394: -- Get current database values
395: OPEN oks_subscr_header_tl_pk_csr (p_oks_subscr_header_tl_rec.id,
396: p_oks_subscr_header_tl_rec.language);
397: FETCH oks_subscr_header_tl_pk_csr INTO
398: l_oks_subscr_header_tl_rec.id,
399: l_oks_subscr_header_tl_rec.name,
392: BEGIN
393: x_no_data_found := TRUE;
394: -- Get current database values
395: OPEN oks_subscr_header_tl_pk_csr (p_oks_subscr_header_tl_rec.id,
396: p_oks_subscr_header_tl_rec.language);
397: FETCH oks_subscr_header_tl_pk_csr INTO
398: l_oks_subscr_header_tl_rec.id,
399: l_oks_subscr_header_tl_rec.name,
400: l_oks_subscr_header_tl_rec.description,
393: x_no_data_found := TRUE;
394: -- Get current database values
395: OPEN oks_subscr_header_tl_pk_csr (p_oks_subscr_header_tl_rec.id,
396: p_oks_subscr_header_tl_rec.language);
397: FETCH oks_subscr_header_tl_pk_csr INTO
398: l_oks_subscr_header_tl_rec.id,
399: l_oks_subscr_header_tl_rec.name,
400: l_oks_subscr_header_tl_rec.description,
401: l_oks_subscr_header_tl_rec.language,
394: -- Get current database values
395: OPEN oks_subscr_header_tl_pk_csr (p_oks_subscr_header_tl_rec.id,
396: p_oks_subscr_header_tl_rec.language);
397: FETCH oks_subscr_header_tl_pk_csr INTO
398: l_oks_subscr_header_tl_rec.id,
399: l_oks_subscr_header_tl_rec.name,
400: l_oks_subscr_header_tl_rec.description,
401: l_oks_subscr_header_tl_rec.language,
402: l_oks_subscr_header_tl_rec.source_lang,
395: OPEN oks_subscr_header_tl_pk_csr (p_oks_subscr_header_tl_rec.id,
396: p_oks_subscr_header_tl_rec.language);
397: FETCH oks_subscr_header_tl_pk_csr INTO
398: l_oks_subscr_header_tl_rec.id,
399: l_oks_subscr_header_tl_rec.name,
400: l_oks_subscr_header_tl_rec.description,
401: l_oks_subscr_header_tl_rec.language,
402: l_oks_subscr_header_tl_rec.source_lang,
403: l_oks_subscr_header_tl_rec.sfwt_flag,
396: p_oks_subscr_header_tl_rec.language);
397: FETCH oks_subscr_header_tl_pk_csr INTO
398: l_oks_subscr_header_tl_rec.id,
399: l_oks_subscr_header_tl_rec.name,
400: l_oks_subscr_header_tl_rec.description,
401: l_oks_subscr_header_tl_rec.language,
402: l_oks_subscr_header_tl_rec.source_lang,
403: l_oks_subscr_header_tl_rec.sfwt_flag,
404: l_oks_subscr_header_tl_rec.comments,
397: FETCH oks_subscr_header_tl_pk_csr INTO
398: l_oks_subscr_header_tl_rec.id,
399: l_oks_subscr_header_tl_rec.name,
400: l_oks_subscr_header_tl_rec.description,
401: l_oks_subscr_header_tl_rec.language,
402: l_oks_subscr_header_tl_rec.source_lang,
403: l_oks_subscr_header_tl_rec.sfwt_flag,
404: l_oks_subscr_header_tl_rec.comments,
405: l_oks_subscr_header_tl_rec.created_by,
398: l_oks_subscr_header_tl_rec.id,
399: l_oks_subscr_header_tl_rec.name,
400: l_oks_subscr_header_tl_rec.description,
401: l_oks_subscr_header_tl_rec.language,
402: l_oks_subscr_header_tl_rec.source_lang,
403: l_oks_subscr_header_tl_rec.sfwt_flag,
404: l_oks_subscr_header_tl_rec.comments,
405: l_oks_subscr_header_tl_rec.created_by,
406: l_oks_subscr_header_tl_rec.creation_date,
399: l_oks_subscr_header_tl_rec.name,
400: l_oks_subscr_header_tl_rec.description,
401: l_oks_subscr_header_tl_rec.language,
402: l_oks_subscr_header_tl_rec.source_lang,
403: l_oks_subscr_header_tl_rec.sfwt_flag,
404: l_oks_subscr_header_tl_rec.comments,
405: l_oks_subscr_header_tl_rec.created_by,
406: l_oks_subscr_header_tl_rec.creation_date,
407: l_oks_subscr_header_tl_rec.last_updated_by,
400: l_oks_subscr_header_tl_rec.description,
401: l_oks_subscr_header_tl_rec.language,
402: l_oks_subscr_header_tl_rec.source_lang,
403: l_oks_subscr_header_tl_rec.sfwt_flag,
404: l_oks_subscr_header_tl_rec.comments,
405: l_oks_subscr_header_tl_rec.created_by,
406: l_oks_subscr_header_tl_rec.creation_date,
407: l_oks_subscr_header_tl_rec.last_updated_by,
408: l_oks_subscr_header_tl_rec.last_update_date,
401: l_oks_subscr_header_tl_rec.language,
402: l_oks_subscr_header_tl_rec.source_lang,
403: l_oks_subscr_header_tl_rec.sfwt_flag,
404: l_oks_subscr_header_tl_rec.comments,
405: l_oks_subscr_header_tl_rec.created_by,
406: l_oks_subscr_header_tl_rec.creation_date,
407: l_oks_subscr_header_tl_rec.last_updated_by,
408: l_oks_subscr_header_tl_rec.last_update_date,
409: l_oks_subscr_header_tl_rec.last_update_login;
402: l_oks_subscr_header_tl_rec.source_lang,
403: l_oks_subscr_header_tl_rec.sfwt_flag,
404: l_oks_subscr_header_tl_rec.comments,
405: l_oks_subscr_header_tl_rec.created_by,
406: l_oks_subscr_header_tl_rec.creation_date,
407: l_oks_subscr_header_tl_rec.last_updated_by,
408: l_oks_subscr_header_tl_rec.last_update_date,
409: l_oks_subscr_header_tl_rec.last_update_login;
410: x_no_data_found := oks_subscr_header_tl_pk_csr%NOTFOUND;
403: l_oks_subscr_header_tl_rec.sfwt_flag,
404: l_oks_subscr_header_tl_rec.comments,
405: l_oks_subscr_header_tl_rec.created_by,
406: l_oks_subscr_header_tl_rec.creation_date,
407: l_oks_subscr_header_tl_rec.last_updated_by,
408: l_oks_subscr_header_tl_rec.last_update_date,
409: l_oks_subscr_header_tl_rec.last_update_login;
410: x_no_data_found := oks_subscr_header_tl_pk_csr%NOTFOUND;
411: CLOSE oks_subscr_header_tl_pk_csr;
404: l_oks_subscr_header_tl_rec.comments,
405: l_oks_subscr_header_tl_rec.created_by,
406: l_oks_subscr_header_tl_rec.creation_date,
407: l_oks_subscr_header_tl_rec.last_updated_by,
408: l_oks_subscr_header_tl_rec.last_update_date,
409: l_oks_subscr_header_tl_rec.last_update_login;
410: x_no_data_found := oks_subscr_header_tl_pk_csr%NOTFOUND;
411: CLOSE oks_subscr_header_tl_pk_csr;
412: RETURN(l_oks_subscr_header_tl_rec);
405: l_oks_subscr_header_tl_rec.created_by,
406: l_oks_subscr_header_tl_rec.creation_date,
407: l_oks_subscr_header_tl_rec.last_updated_by,
408: l_oks_subscr_header_tl_rec.last_update_date,
409: l_oks_subscr_header_tl_rec.last_update_login;
410: x_no_data_found := oks_subscr_header_tl_pk_csr%NOTFOUND;
411: CLOSE oks_subscr_header_tl_pk_csr;
412: RETURN(l_oks_subscr_header_tl_rec);
413: END get_rec;
406: l_oks_subscr_header_tl_rec.creation_date,
407: l_oks_subscr_header_tl_rec.last_updated_by,
408: l_oks_subscr_header_tl_rec.last_update_date,
409: l_oks_subscr_header_tl_rec.last_update_login;
410: x_no_data_found := oks_subscr_header_tl_pk_csr%NOTFOUND;
411: CLOSE oks_subscr_header_tl_pk_csr;
412: RETURN(l_oks_subscr_header_tl_rec);
413: END get_rec;
414:
407: l_oks_subscr_header_tl_rec.last_updated_by,
408: l_oks_subscr_header_tl_rec.last_update_date,
409: l_oks_subscr_header_tl_rec.last_update_login;
410: x_no_data_found := oks_subscr_header_tl_pk_csr%NOTFOUND;
411: CLOSE oks_subscr_header_tl_pk_csr;
412: RETURN(l_oks_subscr_header_tl_rec);
413: END get_rec;
414:
415: ------------------------------------------------------------------
408: l_oks_subscr_header_tl_rec.last_update_date,
409: l_oks_subscr_header_tl_rec.last_update_login;
410: x_no_data_found := oks_subscr_header_tl_pk_csr%NOTFOUND;
411: CLOSE oks_subscr_header_tl_pk_csr;
412: RETURN(l_oks_subscr_header_tl_rec);
413: END get_rec;
414:
415: ------------------------------------------------------------------
416: -- This version of get_rec sets error messages if no data found --
415: ------------------------------------------------------------------
416: -- This version of get_rec sets error messages if no data found --
417: ------------------------------------------------------------------
418: FUNCTION get_rec (
419: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type,
420: x_return_status OUT NOCOPY VARCHAR2
421: ) RETURN oks_subscr_header_tl_rec_type IS
422: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
423: l_row_notfound BOOLEAN := TRUE;
417: ------------------------------------------------------------------
418: FUNCTION get_rec (
419: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type,
420: x_return_status OUT NOCOPY VARCHAR2
421: ) RETURN oks_subscr_header_tl_rec_type IS
422: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
423: l_row_notfound BOOLEAN := TRUE;
424: BEGIN
425: x_return_status := OKC_API.G_RET_STS_SUCCESS;
418: FUNCTION get_rec (
419: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type,
420: x_return_status OUT NOCOPY VARCHAR2
421: ) RETURN oks_subscr_header_tl_rec_type IS
422: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
423: l_row_notfound BOOLEAN := TRUE;
424: BEGIN
425: x_return_status := OKC_API.G_RET_STS_SUCCESS;
426: l_oks_subscr_header_tl_rec := get_rec(p_oks_subscr_header_tl_rec, l_row_notfound);
422: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
423: l_row_notfound BOOLEAN := TRUE;
424: BEGIN
425: x_return_status := OKC_API.G_RET_STS_SUCCESS;
426: l_oks_subscr_header_tl_rec := get_rec(p_oks_subscr_header_tl_rec, l_row_notfound);
427: IF (l_row_notfound) THEN
428: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
429: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
430: x_return_status := OKC_API.G_RET_STS_ERROR;
428: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
429: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
430: x_return_status := OKC_API.G_RET_STS_ERROR;
431: END IF;
432: RETURN(l_oks_subscr_header_tl_rec);
433: END get_rec;
434: -----------------------------------------------------------
435: -- So we don't have to pass an "l_row_notfound" variable --
436: -----------------------------------------------------------
434: -----------------------------------------------------------
435: -- So we don't have to pass an "l_row_notfound" variable --
436: -----------------------------------------------------------
437: FUNCTION get_rec (
438: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type
439: ) RETURN oks_subscr_header_tl_rec_type IS
440: l_row_not_found BOOLEAN := TRUE;
441: BEGIN
442: RETURN(get_rec(p_oks_subscr_header_tl_rec, l_row_not_found));
435: -- So we don't have to pass an "l_row_notfound" variable --
436: -----------------------------------------------------------
437: FUNCTION get_rec (
438: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type
439: ) RETURN oks_subscr_header_tl_rec_type IS
440: l_row_not_found BOOLEAN := TRUE;
441: BEGIN
442: RETURN(get_rec(p_oks_subscr_header_tl_rec, l_row_not_found));
443: END get_rec;
438: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type
439: ) RETURN oks_subscr_header_tl_rec_type IS
440: l_row_not_found BOOLEAN := TRUE;
441: BEGIN
442: RETURN(get_rec(p_oks_subscr_header_tl_rec, l_row_not_found));
443: END get_rec;
444: ---------------------------------------------------------------------------
445: -- FUNCTION null_out_defaults for: OKS_SUBSCR_HEADER_V
446: ---------------------------------------------------------------------------
916: p_to.last_update_login := p_from.last_update_login;
917: END migrate;
918: PROCEDURE migrate (
919: p_from IN schv_rec_type,
920: p_to IN OUT NOCOPY oks_subscr_header_tl_rec_type
921: ) IS
922: BEGIN
923: p_to.id := p_from.id;
924: p_to.name := p_from.name;
931: p_to.last_update_date := p_from.last_update_date;
932: p_to.last_update_login := p_from.last_update_login;
933: END migrate;
934: PROCEDURE migrate (
935: p_from IN oks_subscr_header_tl_rec_type,
936: p_to IN OUT NOCOPY schv_rec_type
937: ) IS
938: BEGIN
939: p_to.id := p_from.id;
965: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
966: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
967: l_schv_rec schv_rec_type := p_schv_rec;
968: l_sbh_rec sbh_rec_type;
969: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
970: BEGIN
971: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
972: G_PKG_NAME,
973: p_init_msg_list,
1324: '_PVT'
1325: );
1326: END insert_row;
1327: -----------------------------------------
1328: -- insert_row for:OKS_SUBSCR_HEADER_TL --
1329: -----------------------------------------
1330: PROCEDURE insert_row(
1331: p_init_msg_list IN VARCHAR2,
1332: x_return_status OUT NOCOPY VARCHAR2,
1331: p_init_msg_list IN VARCHAR2,
1332: x_return_status OUT NOCOPY VARCHAR2,
1333: x_msg_count OUT NOCOPY NUMBER,
1334: x_msg_data OUT NOCOPY VARCHAR2,
1335: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type,
1336: x_oks_subscr_header_tl_rec OUT NOCOPY oks_subscr_header_tl_rec_type) IS
1337:
1338: l_api_version CONSTANT NUMBER := 1;
1339: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1332: x_return_status OUT NOCOPY VARCHAR2,
1333: x_msg_count OUT NOCOPY NUMBER,
1334: x_msg_data OUT NOCOPY VARCHAR2,
1335: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type,
1336: x_oks_subscr_header_tl_rec OUT NOCOPY oks_subscr_header_tl_rec_type) IS
1337:
1338: l_api_version CONSTANT NUMBER := 1;
1339: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1340: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1337:
1338: l_api_version CONSTANT NUMBER := 1;
1339: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1340: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1341: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type := p_oks_subscr_header_tl_rec;
1342: l_def_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
1343: CURSOR get_languages IS
1344: SELECT *
1345: FROM FND_LANGUAGES
1338: l_api_version CONSTANT NUMBER := 1;
1339: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1340: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1341: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type := p_oks_subscr_header_tl_rec;
1342: l_def_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
1343: CURSOR get_languages IS
1344: SELECT *
1345: FROM FND_LANGUAGES
1346: WHERE INSTALLED_FLAG IN ('I', 'B');
1344: SELECT *
1345: FROM FND_LANGUAGES
1346: WHERE INSTALLED_FLAG IN ('I', 'B');
1347: ---------------------------------------------
1348: -- Set_Attributes for:OKS_SUBSCR_HEADER_TL --
1349: ---------------------------------------------
1350: FUNCTION Set_Attributes (
1351: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type,
1352: x_oks_subscr_header_tl_rec OUT NOCOPY oks_subscr_header_tl_rec_type
1347: ---------------------------------------------
1348: -- Set_Attributes for:OKS_SUBSCR_HEADER_TL --
1349: ---------------------------------------------
1350: FUNCTION Set_Attributes (
1351: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type,
1352: x_oks_subscr_header_tl_rec OUT NOCOPY oks_subscr_header_tl_rec_type
1353: ) RETURN VARCHAR2 IS
1354: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1355: BEGIN
1348: -- Set_Attributes for:OKS_SUBSCR_HEADER_TL --
1349: ---------------------------------------------
1350: FUNCTION Set_Attributes (
1351: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type,
1352: x_oks_subscr_header_tl_rec OUT NOCOPY oks_subscr_header_tl_rec_type
1353: ) RETURN VARCHAR2 IS
1354: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1355: BEGIN
1356: x_oks_subscr_header_tl_rec := p_oks_subscr_header_tl_rec;
1352: x_oks_subscr_header_tl_rec OUT NOCOPY oks_subscr_header_tl_rec_type
1353: ) RETURN VARCHAR2 IS
1354: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1355: BEGIN
1356: x_oks_subscr_header_tl_rec := p_oks_subscr_header_tl_rec;
1357: x_oks_subscr_header_tl_rec.LANGUAGE := USERENV('LANG');
1358: x_oks_subscr_header_tl_rec.SOURCE_LANG := USERENV('LANG');
1359: RETURN(l_return_status);
1360: END Set_Attributes;
1353: ) RETURN VARCHAR2 IS
1354: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1355: BEGIN
1356: x_oks_subscr_header_tl_rec := p_oks_subscr_header_tl_rec;
1357: x_oks_subscr_header_tl_rec.LANGUAGE := USERENV('LANG');
1358: x_oks_subscr_header_tl_rec.SOURCE_LANG := USERENV('LANG');
1359: RETURN(l_return_status);
1360: END Set_Attributes;
1361: BEGIN
1354: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1355: BEGIN
1356: x_oks_subscr_header_tl_rec := p_oks_subscr_header_tl_rec;
1357: x_oks_subscr_header_tl_rec.LANGUAGE := USERENV('LANG');
1358: x_oks_subscr_header_tl_rec.SOURCE_LANG := USERENV('LANG');
1359: RETURN(l_return_status);
1360: END Set_Attributes;
1361: BEGIN
1362: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1369: RAISE OKC_API.G_EXCEPTION_ERROR;
1370: END IF;
1371: --- Setting item attributes
1372: l_return_status := Set_Attributes(
1373: p_oks_subscr_header_tl_rec, -- IN
1374: l_oks_subscr_header_tl_rec); -- OUT
1375: --- If any errors happen abort API
1376: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1377: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1370: END IF;
1371: --- Setting item attributes
1372: l_return_status := Set_Attributes(
1373: p_oks_subscr_header_tl_rec, -- IN
1374: l_oks_subscr_header_tl_rec); -- OUT
1375: --- If any errors happen abort API
1376: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1377: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1378: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1378: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1379: RAISE OKC_API.G_EXCEPTION_ERROR;
1380: END IF;
1381: FOR l_lang_rec IN get_languages LOOP
1382: l_oks_subscr_header_tl_rec.language := l_lang_rec.language_code;
1383: INSERT INTO OKS_SUBSCR_HEADER_TL(
1384: id,
1385: name,
1386: description,
1379: RAISE OKC_API.G_EXCEPTION_ERROR;
1380: END IF;
1381: FOR l_lang_rec IN get_languages LOOP
1382: l_oks_subscr_header_tl_rec.language := l_lang_rec.language_code;
1383: INSERT INTO OKS_SUBSCR_HEADER_TL(
1384: id,
1385: name,
1386: description,
1387: language,
1393: last_updated_by,
1394: last_update_date,
1395: last_update_login)
1396: VALUES (
1397: l_oks_subscr_header_tl_rec.id,
1398: l_oks_subscr_header_tl_rec.name,
1399: l_oks_subscr_header_tl_rec.description,
1400: l_oks_subscr_header_tl_rec.language,
1401: l_oks_subscr_header_tl_rec.source_lang,
1394: last_update_date,
1395: last_update_login)
1396: VALUES (
1397: l_oks_subscr_header_tl_rec.id,
1398: l_oks_subscr_header_tl_rec.name,
1399: l_oks_subscr_header_tl_rec.description,
1400: l_oks_subscr_header_tl_rec.language,
1401: l_oks_subscr_header_tl_rec.source_lang,
1402: l_oks_subscr_header_tl_rec.sfwt_flag,
1395: last_update_login)
1396: VALUES (
1397: l_oks_subscr_header_tl_rec.id,
1398: l_oks_subscr_header_tl_rec.name,
1399: l_oks_subscr_header_tl_rec.description,
1400: l_oks_subscr_header_tl_rec.language,
1401: l_oks_subscr_header_tl_rec.source_lang,
1402: l_oks_subscr_header_tl_rec.sfwt_flag,
1403: l_oks_subscr_header_tl_rec.comments,
1396: VALUES (
1397: l_oks_subscr_header_tl_rec.id,
1398: l_oks_subscr_header_tl_rec.name,
1399: l_oks_subscr_header_tl_rec.description,
1400: l_oks_subscr_header_tl_rec.language,
1401: l_oks_subscr_header_tl_rec.source_lang,
1402: l_oks_subscr_header_tl_rec.sfwt_flag,
1403: l_oks_subscr_header_tl_rec.comments,
1404: l_oks_subscr_header_tl_rec.created_by,
1397: l_oks_subscr_header_tl_rec.id,
1398: l_oks_subscr_header_tl_rec.name,
1399: l_oks_subscr_header_tl_rec.description,
1400: l_oks_subscr_header_tl_rec.language,
1401: l_oks_subscr_header_tl_rec.source_lang,
1402: l_oks_subscr_header_tl_rec.sfwt_flag,
1403: l_oks_subscr_header_tl_rec.comments,
1404: l_oks_subscr_header_tl_rec.created_by,
1405: l_oks_subscr_header_tl_rec.creation_date,
1398: l_oks_subscr_header_tl_rec.name,
1399: l_oks_subscr_header_tl_rec.description,
1400: l_oks_subscr_header_tl_rec.language,
1401: l_oks_subscr_header_tl_rec.source_lang,
1402: l_oks_subscr_header_tl_rec.sfwt_flag,
1403: l_oks_subscr_header_tl_rec.comments,
1404: l_oks_subscr_header_tl_rec.created_by,
1405: l_oks_subscr_header_tl_rec.creation_date,
1406: l_oks_subscr_header_tl_rec.last_updated_by,
1399: l_oks_subscr_header_tl_rec.description,
1400: l_oks_subscr_header_tl_rec.language,
1401: l_oks_subscr_header_tl_rec.source_lang,
1402: l_oks_subscr_header_tl_rec.sfwt_flag,
1403: l_oks_subscr_header_tl_rec.comments,
1404: l_oks_subscr_header_tl_rec.created_by,
1405: l_oks_subscr_header_tl_rec.creation_date,
1406: l_oks_subscr_header_tl_rec.last_updated_by,
1407: l_oks_subscr_header_tl_rec.last_update_date,
1400: l_oks_subscr_header_tl_rec.language,
1401: l_oks_subscr_header_tl_rec.source_lang,
1402: l_oks_subscr_header_tl_rec.sfwt_flag,
1403: l_oks_subscr_header_tl_rec.comments,
1404: l_oks_subscr_header_tl_rec.created_by,
1405: l_oks_subscr_header_tl_rec.creation_date,
1406: l_oks_subscr_header_tl_rec.last_updated_by,
1407: l_oks_subscr_header_tl_rec.last_update_date,
1408: l_oks_subscr_header_tl_rec.last_update_login);
1401: l_oks_subscr_header_tl_rec.source_lang,
1402: l_oks_subscr_header_tl_rec.sfwt_flag,
1403: l_oks_subscr_header_tl_rec.comments,
1404: l_oks_subscr_header_tl_rec.created_by,
1405: l_oks_subscr_header_tl_rec.creation_date,
1406: l_oks_subscr_header_tl_rec.last_updated_by,
1407: l_oks_subscr_header_tl_rec.last_update_date,
1408: l_oks_subscr_header_tl_rec.last_update_login);
1409: END LOOP;
1402: l_oks_subscr_header_tl_rec.sfwt_flag,
1403: l_oks_subscr_header_tl_rec.comments,
1404: l_oks_subscr_header_tl_rec.created_by,
1405: l_oks_subscr_header_tl_rec.creation_date,
1406: l_oks_subscr_header_tl_rec.last_updated_by,
1407: l_oks_subscr_header_tl_rec.last_update_date,
1408: l_oks_subscr_header_tl_rec.last_update_login);
1409: END LOOP;
1410: -- Set OUT values
1403: l_oks_subscr_header_tl_rec.comments,
1404: l_oks_subscr_header_tl_rec.created_by,
1405: l_oks_subscr_header_tl_rec.creation_date,
1406: l_oks_subscr_header_tl_rec.last_updated_by,
1407: l_oks_subscr_header_tl_rec.last_update_date,
1408: l_oks_subscr_header_tl_rec.last_update_login);
1409: END LOOP;
1410: -- Set OUT values
1411: x_oks_subscr_header_tl_rec := l_oks_subscr_header_tl_rec;
1404: l_oks_subscr_header_tl_rec.created_by,
1405: l_oks_subscr_header_tl_rec.creation_date,
1406: l_oks_subscr_header_tl_rec.last_updated_by,
1407: l_oks_subscr_header_tl_rec.last_update_date,
1408: l_oks_subscr_header_tl_rec.last_update_login);
1409: END LOOP;
1410: -- Set OUT values
1411: x_oks_subscr_header_tl_rec := l_oks_subscr_header_tl_rec;
1412: x_return_status := l_return_status;
1407: l_oks_subscr_header_tl_rec.last_update_date,
1408: l_oks_subscr_header_tl_rec.last_update_login);
1409: END LOOP;
1410: -- Set OUT values
1411: x_oks_subscr_header_tl_rec := l_oks_subscr_header_tl_rec;
1412: x_return_status := l_return_status;
1413: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1414: EXCEPTION
1415: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1461: l_schv_rec schv_rec_type := p_schv_rec;
1462: l_def_schv_rec schv_rec_type;
1463: l_sbh_rec sbh_rec_type;
1464: lx_sbh_rec sbh_rec_type;
1465: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
1466: lx_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
1467: -------------------------------
1468: -- FUNCTION fill_who_columns --
1469: -------------------------------
1462: l_def_schv_rec schv_rec_type;
1463: l_sbh_rec sbh_rec_type;
1464: lx_sbh_rec sbh_rec_type;
1465: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
1466: lx_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
1467: -------------------------------
1468: -- FUNCTION fill_who_columns --
1469: -------------------------------
1470: FUNCTION fill_who_columns (
1537: -----------------------------------------
1538: -- Move VIEW record to "Child" records --
1539: -----------------------------------------
1540: migrate(l_def_schv_rec, l_sbh_rec);
1541: migrate(l_def_schv_rec, l_oks_subscr_header_tl_rec);
1542: -----------------------------------------------
1543: -- Call the INSERT_ROW for each child record --
1544: -----------------------------------------------
1545: insert_row(
1560: p_init_msg_list,
1561: l_return_status,
1562: x_msg_count,
1563: x_msg_data,
1564: l_oks_subscr_header_tl_rec,
1565: lx_oks_subscr_header_tl_rec
1566: );
1567: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1568: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1561: l_return_status,
1562: x_msg_count,
1563: x_msg_data,
1564: l_oks_subscr_header_tl_rec,
1565: lx_oks_subscr_header_tl_rec
1566: );
1567: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1568: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1569: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1568: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1569: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1570: RAISE OKC_API.G_EXCEPTION_ERROR;
1571: END IF;
1572: migrate(lx_oks_subscr_header_tl_rec, l_def_schv_rec);
1573: -- Set OUT values
1574: x_schv_rec := l_def_schv_rec;
1575: x_return_status := l_return_status;
1576: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1880: '_PVT'
1881: );
1882: END lock_row;
1883: ---------------------------------------
1884: -- lock_row for:OKS_SUBSCR_HEADER_TL --
1885: ---------------------------------------
1886: PROCEDURE lock_row(
1887: p_init_msg_list IN VARCHAR2,
1888: x_return_status OUT NOCOPY VARCHAR2,
1887: p_init_msg_list IN VARCHAR2,
1888: x_return_status OUT NOCOPY VARCHAR2,
1889: x_msg_count OUT NOCOPY NUMBER,
1890: x_msg_data OUT NOCOPY VARCHAR2,
1891: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type) IS
1892:
1893: E_Resource_Busy EXCEPTION;
1894: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1895: CURSOR lock_csr (p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type) IS
1891: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type) IS
1892:
1893: E_Resource_Busy EXCEPTION;
1894: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1895: CURSOR lock_csr (p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type) IS
1896: SELECT *
1897: FROM OKS_SUBSCR_HEADER_TL
1898: WHERE ID = p_oks_subscr_header_tl_rec.id
1899: FOR UPDATE NOWAIT;
1893: E_Resource_Busy EXCEPTION;
1894: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1895: CURSOR lock_csr (p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type) IS
1896: SELECT *
1897: FROM OKS_SUBSCR_HEADER_TL
1898: WHERE ID = p_oks_subscr_header_tl_rec.id
1899: FOR UPDATE NOWAIT;
1900:
1901: l_api_version CONSTANT NUMBER := 1;
1894: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1895: CURSOR lock_csr (p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type) IS
1896: SELECT *
1897: FROM OKS_SUBSCR_HEADER_TL
1898: WHERE ID = p_oks_subscr_header_tl_rec.id
1899: FOR UPDATE NOWAIT;
1900:
1901: l_api_version CONSTANT NUMBER := 1;
1902: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
1914: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1915: RAISE OKC_API.G_EXCEPTION_ERROR;
1916: END IF;
1917: BEGIN
1918: OPEN lock_csr(p_oks_subscr_header_tl_rec);
1919: FETCH lock_csr INTO l_lock_var;
1920: l_row_notfound := lock_csr%NOTFOUND;
1921: CLOSE lock_csr;
1922: EXCEPTION
1980: l_api_version CONSTANT NUMBER := 1;
1981: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1982: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1983: l_sbh_rec sbh_rec_type;
1984: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
1985: BEGIN
1986: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1987: G_PKG_NAME,
1988: p_init_msg_list,
1998: -----------------------------------------
1999: -- Move VIEW record to "Child" records --
2000: -----------------------------------------
2001: migrate(p_schv_rec, l_sbh_rec);
2002: migrate(p_schv_rec, l_oks_subscr_header_tl_rec);
2003: ---------------------------------------------
2004: -- Call the LOCK_ROW for each child record --
2005: ---------------------------------------------
2006: lock_row(
2019: p_init_msg_list,
2020: l_return_status,
2021: x_msg_count,
2022: x_msg_data,
2023: l_oks_subscr_header_tl_rec
2024: );
2025: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2026: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2027: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2449: '_PVT'
2450: );
2451: END update_row;
2452: -----------------------------------------
2453: -- update_row for:OKS_SUBSCR_HEADER_TL --
2454: -----------------------------------------
2455: PROCEDURE update_row(
2456: p_init_msg_list IN VARCHAR2,
2457: x_return_status OUT NOCOPY VARCHAR2,
2456: p_init_msg_list IN VARCHAR2,
2457: x_return_status OUT NOCOPY VARCHAR2,
2458: x_msg_count OUT NOCOPY NUMBER,
2459: x_msg_data OUT NOCOPY VARCHAR2,
2460: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type,
2461: x_oks_subscr_header_tl_rec OUT NOCOPY oks_subscr_header_tl_rec_type) IS
2462:
2463: l_api_version CONSTANT NUMBER := 1;
2464: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2457: x_return_status OUT NOCOPY VARCHAR2,
2458: x_msg_count OUT NOCOPY NUMBER,
2459: x_msg_data OUT NOCOPY VARCHAR2,
2460: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type,
2461: x_oks_subscr_header_tl_rec OUT NOCOPY oks_subscr_header_tl_rec_type) IS
2462:
2463: l_api_version CONSTANT NUMBER := 1;
2464: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2465: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2462:
2463: l_api_version CONSTANT NUMBER := 1;
2464: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2465: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2466: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type := p_oks_subscr_header_tl_rec;
2467: l_def_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
2468: l_row_notfound BOOLEAN := TRUE;
2469: ----------------------------------
2470: -- FUNCTION populate_new_record --
2463: l_api_version CONSTANT NUMBER := 1;
2464: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2465: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2466: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type := p_oks_subscr_header_tl_rec;
2467: l_def_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
2468: l_row_notfound BOOLEAN := TRUE;
2469: ----------------------------------
2470: -- FUNCTION populate_new_record --
2471: ----------------------------------
2469: ----------------------------------
2470: -- FUNCTION populate_new_record --
2471: ----------------------------------
2472: FUNCTION populate_new_record (
2473: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type,
2474: x_oks_subscr_header_tl_rec OUT NOCOPY oks_subscr_header_tl_rec_type
2475: ) RETURN VARCHAR2 IS
2476: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
2477: l_row_notfound BOOLEAN := TRUE;
2470: -- FUNCTION populate_new_record --
2471: ----------------------------------
2472: FUNCTION populate_new_record (
2473: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type,
2474: x_oks_subscr_header_tl_rec OUT NOCOPY oks_subscr_header_tl_rec_type
2475: ) RETURN VARCHAR2 IS
2476: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
2477: l_row_notfound BOOLEAN := TRUE;
2478: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2472: FUNCTION populate_new_record (
2473: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type,
2474: x_oks_subscr_header_tl_rec OUT NOCOPY oks_subscr_header_tl_rec_type
2475: ) RETURN VARCHAR2 IS
2476: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
2477: l_row_notfound BOOLEAN := TRUE;
2478: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2479: BEGIN
2480: x_oks_subscr_header_tl_rec := p_oks_subscr_header_tl_rec;
2476: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
2477: l_row_notfound BOOLEAN := TRUE;
2478: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2479: BEGIN
2480: x_oks_subscr_header_tl_rec := p_oks_subscr_header_tl_rec;
2481: -- Get current database values
2482: l_oks_subscr_header_tl_rec := get_rec(p_oks_subscr_header_tl_rec, l_return_status);
2483: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2484: IF (x_oks_subscr_header_tl_rec.id = OKC_API.G_MISS_NUM)
2478: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2479: BEGIN
2480: x_oks_subscr_header_tl_rec := p_oks_subscr_header_tl_rec;
2481: -- Get current database values
2482: l_oks_subscr_header_tl_rec := get_rec(p_oks_subscr_header_tl_rec, l_return_status);
2483: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2484: IF (x_oks_subscr_header_tl_rec.id = OKC_API.G_MISS_NUM)
2485: THEN
2486: x_oks_subscr_header_tl_rec.id := l_oks_subscr_header_tl_rec.id;
2480: x_oks_subscr_header_tl_rec := p_oks_subscr_header_tl_rec;
2481: -- Get current database values
2482: l_oks_subscr_header_tl_rec := get_rec(p_oks_subscr_header_tl_rec, l_return_status);
2483: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2484: IF (x_oks_subscr_header_tl_rec.id = OKC_API.G_MISS_NUM)
2485: THEN
2486: x_oks_subscr_header_tl_rec.id := l_oks_subscr_header_tl_rec.id;
2487: END IF;
2488: IF (x_oks_subscr_header_tl_rec.name = OKC_API.G_MISS_CHAR)
2482: l_oks_subscr_header_tl_rec := get_rec(p_oks_subscr_header_tl_rec, l_return_status);
2483: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2484: IF (x_oks_subscr_header_tl_rec.id = OKC_API.G_MISS_NUM)
2485: THEN
2486: x_oks_subscr_header_tl_rec.id := l_oks_subscr_header_tl_rec.id;
2487: END IF;
2488: IF (x_oks_subscr_header_tl_rec.name = OKC_API.G_MISS_CHAR)
2489: THEN
2490: x_oks_subscr_header_tl_rec.name := l_oks_subscr_header_tl_rec.name;
2484: IF (x_oks_subscr_header_tl_rec.id = OKC_API.G_MISS_NUM)
2485: THEN
2486: x_oks_subscr_header_tl_rec.id := l_oks_subscr_header_tl_rec.id;
2487: END IF;
2488: IF (x_oks_subscr_header_tl_rec.name = OKC_API.G_MISS_CHAR)
2489: THEN
2490: x_oks_subscr_header_tl_rec.name := l_oks_subscr_header_tl_rec.name;
2491: END IF;
2492: IF (x_oks_subscr_header_tl_rec.description = OKC_API.G_MISS_CHAR)
2486: x_oks_subscr_header_tl_rec.id := l_oks_subscr_header_tl_rec.id;
2487: END IF;
2488: IF (x_oks_subscr_header_tl_rec.name = OKC_API.G_MISS_CHAR)
2489: THEN
2490: x_oks_subscr_header_tl_rec.name := l_oks_subscr_header_tl_rec.name;
2491: END IF;
2492: IF (x_oks_subscr_header_tl_rec.description = OKC_API.G_MISS_CHAR)
2493: THEN
2494: x_oks_subscr_header_tl_rec.description := l_oks_subscr_header_tl_rec.description;
2488: IF (x_oks_subscr_header_tl_rec.name = OKC_API.G_MISS_CHAR)
2489: THEN
2490: x_oks_subscr_header_tl_rec.name := l_oks_subscr_header_tl_rec.name;
2491: END IF;
2492: IF (x_oks_subscr_header_tl_rec.description = OKC_API.G_MISS_CHAR)
2493: THEN
2494: x_oks_subscr_header_tl_rec.description := l_oks_subscr_header_tl_rec.description;
2495: END IF;
2496: IF (x_oks_subscr_header_tl_rec.language = OKC_API.G_MISS_CHAR)
2490: x_oks_subscr_header_tl_rec.name := l_oks_subscr_header_tl_rec.name;
2491: END IF;
2492: IF (x_oks_subscr_header_tl_rec.description = OKC_API.G_MISS_CHAR)
2493: THEN
2494: x_oks_subscr_header_tl_rec.description := l_oks_subscr_header_tl_rec.description;
2495: END IF;
2496: IF (x_oks_subscr_header_tl_rec.language = OKC_API.G_MISS_CHAR)
2497: THEN
2498: x_oks_subscr_header_tl_rec.language := l_oks_subscr_header_tl_rec.language;
2492: IF (x_oks_subscr_header_tl_rec.description = OKC_API.G_MISS_CHAR)
2493: THEN
2494: x_oks_subscr_header_tl_rec.description := l_oks_subscr_header_tl_rec.description;
2495: END IF;
2496: IF (x_oks_subscr_header_tl_rec.language = OKC_API.G_MISS_CHAR)
2497: THEN
2498: x_oks_subscr_header_tl_rec.language := l_oks_subscr_header_tl_rec.language;
2499: END IF;
2500: IF (x_oks_subscr_header_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2494: x_oks_subscr_header_tl_rec.description := l_oks_subscr_header_tl_rec.description;
2495: END IF;
2496: IF (x_oks_subscr_header_tl_rec.language = OKC_API.G_MISS_CHAR)
2497: THEN
2498: x_oks_subscr_header_tl_rec.language := l_oks_subscr_header_tl_rec.language;
2499: END IF;
2500: IF (x_oks_subscr_header_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2501: THEN
2502: x_oks_subscr_header_tl_rec.source_lang := l_oks_subscr_header_tl_rec.source_lang;
2496: IF (x_oks_subscr_header_tl_rec.language = OKC_API.G_MISS_CHAR)
2497: THEN
2498: x_oks_subscr_header_tl_rec.language := l_oks_subscr_header_tl_rec.language;
2499: END IF;
2500: IF (x_oks_subscr_header_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2501: THEN
2502: x_oks_subscr_header_tl_rec.source_lang := l_oks_subscr_header_tl_rec.source_lang;
2503: END IF;
2504: IF (x_oks_subscr_header_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2498: x_oks_subscr_header_tl_rec.language := l_oks_subscr_header_tl_rec.language;
2499: END IF;
2500: IF (x_oks_subscr_header_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2501: THEN
2502: x_oks_subscr_header_tl_rec.source_lang := l_oks_subscr_header_tl_rec.source_lang;
2503: END IF;
2504: IF (x_oks_subscr_header_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2505: THEN
2506: x_oks_subscr_header_tl_rec.sfwt_flag := l_oks_subscr_header_tl_rec.sfwt_flag;
2500: IF (x_oks_subscr_header_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2501: THEN
2502: x_oks_subscr_header_tl_rec.source_lang := l_oks_subscr_header_tl_rec.source_lang;
2503: END IF;
2504: IF (x_oks_subscr_header_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2505: THEN
2506: x_oks_subscr_header_tl_rec.sfwt_flag := l_oks_subscr_header_tl_rec.sfwt_flag;
2507: END IF;
2508: IF (x_oks_subscr_header_tl_rec.comments = OKC_API.G_MISS_CHAR)
2502: x_oks_subscr_header_tl_rec.source_lang := l_oks_subscr_header_tl_rec.source_lang;
2503: END IF;
2504: IF (x_oks_subscr_header_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2505: THEN
2506: x_oks_subscr_header_tl_rec.sfwt_flag := l_oks_subscr_header_tl_rec.sfwt_flag;
2507: END IF;
2508: IF (x_oks_subscr_header_tl_rec.comments = OKC_API.G_MISS_CHAR)
2509: THEN
2510: x_oks_subscr_header_tl_rec.comments := l_oks_subscr_header_tl_rec.comments;
2504: IF (x_oks_subscr_header_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2505: THEN
2506: x_oks_subscr_header_tl_rec.sfwt_flag := l_oks_subscr_header_tl_rec.sfwt_flag;
2507: END IF;
2508: IF (x_oks_subscr_header_tl_rec.comments = OKC_API.G_MISS_CHAR)
2509: THEN
2510: x_oks_subscr_header_tl_rec.comments := l_oks_subscr_header_tl_rec.comments;
2511: END IF;
2512: IF (x_oks_subscr_header_tl_rec.created_by = OKC_API.G_MISS_NUM)
2506: x_oks_subscr_header_tl_rec.sfwt_flag := l_oks_subscr_header_tl_rec.sfwt_flag;
2507: END IF;
2508: IF (x_oks_subscr_header_tl_rec.comments = OKC_API.G_MISS_CHAR)
2509: THEN
2510: x_oks_subscr_header_tl_rec.comments := l_oks_subscr_header_tl_rec.comments;
2511: END IF;
2512: IF (x_oks_subscr_header_tl_rec.created_by = OKC_API.G_MISS_NUM)
2513: THEN
2514: x_oks_subscr_header_tl_rec.created_by := l_oks_subscr_header_tl_rec.created_by;
2508: IF (x_oks_subscr_header_tl_rec.comments = OKC_API.G_MISS_CHAR)
2509: THEN
2510: x_oks_subscr_header_tl_rec.comments := l_oks_subscr_header_tl_rec.comments;
2511: END IF;
2512: IF (x_oks_subscr_header_tl_rec.created_by = OKC_API.G_MISS_NUM)
2513: THEN
2514: x_oks_subscr_header_tl_rec.created_by := l_oks_subscr_header_tl_rec.created_by;
2515: END IF;
2516: IF (x_oks_subscr_header_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2510: x_oks_subscr_header_tl_rec.comments := l_oks_subscr_header_tl_rec.comments;
2511: END IF;
2512: IF (x_oks_subscr_header_tl_rec.created_by = OKC_API.G_MISS_NUM)
2513: THEN
2514: x_oks_subscr_header_tl_rec.created_by := l_oks_subscr_header_tl_rec.created_by;
2515: END IF;
2516: IF (x_oks_subscr_header_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2517: THEN
2518: x_oks_subscr_header_tl_rec.creation_date := l_oks_subscr_header_tl_rec.creation_date;
2512: IF (x_oks_subscr_header_tl_rec.created_by = OKC_API.G_MISS_NUM)
2513: THEN
2514: x_oks_subscr_header_tl_rec.created_by := l_oks_subscr_header_tl_rec.created_by;
2515: END IF;
2516: IF (x_oks_subscr_header_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2517: THEN
2518: x_oks_subscr_header_tl_rec.creation_date := l_oks_subscr_header_tl_rec.creation_date;
2519: END IF;
2520: IF (x_oks_subscr_header_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2514: x_oks_subscr_header_tl_rec.created_by := l_oks_subscr_header_tl_rec.created_by;
2515: END IF;
2516: IF (x_oks_subscr_header_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2517: THEN
2518: x_oks_subscr_header_tl_rec.creation_date := l_oks_subscr_header_tl_rec.creation_date;
2519: END IF;
2520: IF (x_oks_subscr_header_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2521: THEN
2522: x_oks_subscr_header_tl_rec.last_updated_by := l_oks_subscr_header_tl_rec.last_updated_by;
2516: IF (x_oks_subscr_header_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2517: THEN
2518: x_oks_subscr_header_tl_rec.creation_date := l_oks_subscr_header_tl_rec.creation_date;
2519: END IF;
2520: IF (x_oks_subscr_header_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2521: THEN
2522: x_oks_subscr_header_tl_rec.last_updated_by := l_oks_subscr_header_tl_rec.last_updated_by;
2523: END IF;
2524: IF (x_oks_subscr_header_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2518: x_oks_subscr_header_tl_rec.creation_date := l_oks_subscr_header_tl_rec.creation_date;
2519: END IF;
2520: IF (x_oks_subscr_header_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2521: THEN
2522: x_oks_subscr_header_tl_rec.last_updated_by := l_oks_subscr_header_tl_rec.last_updated_by;
2523: END IF;
2524: IF (x_oks_subscr_header_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2525: THEN
2526: x_oks_subscr_header_tl_rec.last_update_date := l_oks_subscr_header_tl_rec.last_update_date;
2520: IF (x_oks_subscr_header_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2521: THEN
2522: x_oks_subscr_header_tl_rec.last_updated_by := l_oks_subscr_header_tl_rec.last_updated_by;
2523: END IF;
2524: IF (x_oks_subscr_header_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2525: THEN
2526: x_oks_subscr_header_tl_rec.last_update_date := l_oks_subscr_header_tl_rec.last_update_date;
2527: END IF;
2528: IF (x_oks_subscr_header_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2522: x_oks_subscr_header_tl_rec.last_updated_by := l_oks_subscr_header_tl_rec.last_updated_by;
2523: END IF;
2524: IF (x_oks_subscr_header_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2525: THEN
2526: x_oks_subscr_header_tl_rec.last_update_date := l_oks_subscr_header_tl_rec.last_update_date;
2527: END IF;
2528: IF (x_oks_subscr_header_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2529: THEN
2530: x_oks_subscr_header_tl_rec.last_update_login := l_oks_subscr_header_tl_rec.last_update_login;
2524: IF (x_oks_subscr_header_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2525: THEN
2526: x_oks_subscr_header_tl_rec.last_update_date := l_oks_subscr_header_tl_rec.last_update_date;
2527: END IF;
2528: IF (x_oks_subscr_header_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2529: THEN
2530: x_oks_subscr_header_tl_rec.last_update_login := l_oks_subscr_header_tl_rec.last_update_login;
2531: END IF;
2532: END IF;
2526: x_oks_subscr_header_tl_rec.last_update_date := l_oks_subscr_header_tl_rec.last_update_date;
2527: END IF;
2528: IF (x_oks_subscr_header_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2529: THEN
2530: x_oks_subscr_header_tl_rec.last_update_login := l_oks_subscr_header_tl_rec.last_update_login;
2531: END IF;
2532: END IF;
2533: RETURN(l_return_status);
2534: END populate_new_record;
2532: END IF;
2533: RETURN(l_return_status);
2534: END populate_new_record;
2535: ---------------------------------------------
2536: -- Set_Attributes for:OKS_SUBSCR_HEADER_TL --
2537: ---------------------------------------------
2538: FUNCTION Set_Attributes (
2539: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type,
2540: x_oks_subscr_header_tl_rec OUT NOCOPY oks_subscr_header_tl_rec_type
2535: ---------------------------------------------
2536: -- Set_Attributes for:OKS_SUBSCR_HEADER_TL --
2537: ---------------------------------------------
2538: FUNCTION Set_Attributes (
2539: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type,
2540: x_oks_subscr_header_tl_rec OUT NOCOPY oks_subscr_header_tl_rec_type
2541: ) RETURN VARCHAR2 IS
2542: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2543: BEGIN
2536: -- Set_Attributes for:OKS_SUBSCR_HEADER_TL --
2537: ---------------------------------------------
2538: FUNCTION Set_Attributes (
2539: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type,
2540: x_oks_subscr_header_tl_rec OUT NOCOPY oks_subscr_header_tl_rec_type
2541: ) RETURN VARCHAR2 IS
2542: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2543: BEGIN
2544: x_oks_subscr_header_tl_rec := p_oks_subscr_header_tl_rec;
2540: x_oks_subscr_header_tl_rec OUT NOCOPY oks_subscr_header_tl_rec_type
2541: ) RETURN VARCHAR2 IS
2542: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2543: BEGIN
2544: x_oks_subscr_header_tl_rec := p_oks_subscr_header_tl_rec;
2545: x_oks_subscr_header_tl_rec.LANGUAGE := USERENV('LANG');
2546: x_oks_subscr_header_tl_rec.LANGUAGE := USERENV('LANG');
2547: RETURN(l_return_status);
2548: END Set_Attributes;
2541: ) RETURN VARCHAR2 IS
2542: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2543: BEGIN
2544: x_oks_subscr_header_tl_rec := p_oks_subscr_header_tl_rec;
2545: x_oks_subscr_header_tl_rec.LANGUAGE := USERENV('LANG');
2546: x_oks_subscr_header_tl_rec.LANGUAGE := USERENV('LANG');
2547: RETURN(l_return_status);
2548: END Set_Attributes;
2549: BEGIN
2542: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2543: BEGIN
2544: x_oks_subscr_header_tl_rec := p_oks_subscr_header_tl_rec;
2545: x_oks_subscr_header_tl_rec.LANGUAGE := USERENV('LANG');
2546: x_oks_subscr_header_tl_rec.LANGUAGE := USERENV('LANG');
2547: RETURN(l_return_status);
2548: END Set_Attributes;
2549: BEGIN
2550: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2557: RAISE OKC_API.G_EXCEPTION_ERROR;
2558: END IF;
2559: --- Setting item attributes
2560: l_return_status := Set_Attributes(
2561: p_oks_subscr_header_tl_rec, -- IN
2562: l_oks_subscr_header_tl_rec); -- OUT
2563: --- If any errors happen abort API
2564: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2565: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2558: END IF;
2559: --- Setting item attributes
2560: l_return_status := Set_Attributes(
2561: p_oks_subscr_header_tl_rec, -- IN
2562: l_oks_subscr_header_tl_rec); -- OUT
2563: --- If any errors happen abort API
2564: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2565: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2566: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2565: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2566: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2567: RAISE OKC_API.G_EXCEPTION_ERROR;
2568: END IF;
2569: l_return_status := populate_new_record(l_oks_subscr_header_tl_rec, l_def_oks_subscr_header_tl_rec);
2570: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2571: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2572: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2573: RAISE OKC_API.G_EXCEPTION_ERROR;
2571: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2572: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2573: RAISE OKC_API.G_EXCEPTION_ERROR;
2574: END IF;
2575: UPDATE OKS_SUBSCR_HEADER_TL
2576: SET NAME = l_def_oks_subscr_header_tl_rec.name,
2577: DESCRIPTION = l_def_oks_subscr_header_tl_rec.description,
2578: COMMENTS = l_def_oks_subscr_header_tl_rec.comments,
2579: CREATED_BY = l_def_oks_subscr_header_tl_rec.created_by,
2572: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2573: RAISE OKC_API.G_EXCEPTION_ERROR;
2574: END IF;
2575: UPDATE OKS_SUBSCR_HEADER_TL
2576: SET NAME = l_def_oks_subscr_header_tl_rec.name,
2577: DESCRIPTION = l_def_oks_subscr_header_tl_rec.description,
2578: COMMENTS = l_def_oks_subscr_header_tl_rec.comments,
2579: CREATED_BY = l_def_oks_subscr_header_tl_rec.created_by,
2580: CREATION_DATE = l_def_oks_subscr_header_tl_rec.creation_date,
2573: RAISE OKC_API.G_EXCEPTION_ERROR;
2574: END IF;
2575: UPDATE OKS_SUBSCR_HEADER_TL
2576: SET NAME = l_def_oks_subscr_header_tl_rec.name,
2577: DESCRIPTION = l_def_oks_subscr_header_tl_rec.description,
2578: COMMENTS = l_def_oks_subscr_header_tl_rec.comments,
2579: CREATED_BY = l_def_oks_subscr_header_tl_rec.created_by,
2580: CREATION_DATE = l_def_oks_subscr_header_tl_rec.creation_date,
2581: LAST_UPDATED_BY = l_def_oks_subscr_header_tl_rec.last_updated_by,
2574: END IF;
2575: UPDATE OKS_SUBSCR_HEADER_TL
2576: SET NAME = l_def_oks_subscr_header_tl_rec.name,
2577: DESCRIPTION = l_def_oks_subscr_header_tl_rec.description,
2578: COMMENTS = l_def_oks_subscr_header_tl_rec.comments,
2579: CREATED_BY = l_def_oks_subscr_header_tl_rec.created_by,
2580: CREATION_DATE = l_def_oks_subscr_header_tl_rec.creation_date,
2581: LAST_UPDATED_BY = l_def_oks_subscr_header_tl_rec.last_updated_by,
2582: LAST_UPDATE_DATE = l_def_oks_subscr_header_tl_rec.last_update_date,
2575: UPDATE OKS_SUBSCR_HEADER_TL
2576: SET NAME = l_def_oks_subscr_header_tl_rec.name,
2577: DESCRIPTION = l_def_oks_subscr_header_tl_rec.description,
2578: COMMENTS = l_def_oks_subscr_header_tl_rec.comments,
2579: CREATED_BY = l_def_oks_subscr_header_tl_rec.created_by,
2580: CREATION_DATE = l_def_oks_subscr_header_tl_rec.creation_date,
2581: LAST_UPDATED_BY = l_def_oks_subscr_header_tl_rec.last_updated_by,
2582: LAST_UPDATE_DATE = l_def_oks_subscr_header_tl_rec.last_update_date,
2583: LAST_UPDATE_LOGIN = l_def_oks_subscr_header_tl_rec.last_update_login
2576: SET NAME = l_def_oks_subscr_header_tl_rec.name,
2577: DESCRIPTION = l_def_oks_subscr_header_tl_rec.description,
2578: COMMENTS = l_def_oks_subscr_header_tl_rec.comments,
2579: CREATED_BY = l_def_oks_subscr_header_tl_rec.created_by,
2580: CREATION_DATE = l_def_oks_subscr_header_tl_rec.creation_date,
2581: LAST_UPDATED_BY = l_def_oks_subscr_header_tl_rec.last_updated_by,
2582: LAST_UPDATE_DATE = l_def_oks_subscr_header_tl_rec.last_update_date,
2583: LAST_UPDATE_LOGIN = l_def_oks_subscr_header_tl_rec.last_update_login
2584: WHERE ID = l_def_oks_subscr_header_tl_rec.id
2577: DESCRIPTION = l_def_oks_subscr_header_tl_rec.description,
2578: COMMENTS = l_def_oks_subscr_header_tl_rec.comments,
2579: CREATED_BY = l_def_oks_subscr_header_tl_rec.created_by,
2580: CREATION_DATE = l_def_oks_subscr_header_tl_rec.creation_date,
2581: LAST_UPDATED_BY = l_def_oks_subscr_header_tl_rec.last_updated_by,
2582: LAST_UPDATE_DATE = l_def_oks_subscr_header_tl_rec.last_update_date,
2583: LAST_UPDATE_LOGIN = l_def_oks_subscr_header_tl_rec.last_update_login
2584: WHERE ID = l_def_oks_subscr_header_tl_rec.id
2585: AND SOURCE_LANG = USERENV('LANG');
2578: COMMENTS = l_def_oks_subscr_header_tl_rec.comments,
2579: CREATED_BY = l_def_oks_subscr_header_tl_rec.created_by,
2580: CREATION_DATE = l_def_oks_subscr_header_tl_rec.creation_date,
2581: LAST_UPDATED_BY = l_def_oks_subscr_header_tl_rec.last_updated_by,
2582: LAST_UPDATE_DATE = l_def_oks_subscr_header_tl_rec.last_update_date,
2583: LAST_UPDATE_LOGIN = l_def_oks_subscr_header_tl_rec.last_update_login
2584: WHERE ID = l_def_oks_subscr_header_tl_rec.id
2585: AND SOURCE_LANG = USERENV('LANG');
2586:
2579: CREATED_BY = l_def_oks_subscr_header_tl_rec.created_by,
2580: CREATION_DATE = l_def_oks_subscr_header_tl_rec.creation_date,
2581: LAST_UPDATED_BY = l_def_oks_subscr_header_tl_rec.last_updated_by,
2582: LAST_UPDATE_DATE = l_def_oks_subscr_header_tl_rec.last_update_date,
2583: LAST_UPDATE_LOGIN = l_def_oks_subscr_header_tl_rec.last_update_login
2584: WHERE ID = l_def_oks_subscr_header_tl_rec.id
2585: AND SOURCE_LANG = USERENV('LANG');
2586:
2587: UPDATE OKS_SUBSCR_HEADER_TL
2580: CREATION_DATE = l_def_oks_subscr_header_tl_rec.creation_date,
2581: LAST_UPDATED_BY = l_def_oks_subscr_header_tl_rec.last_updated_by,
2582: LAST_UPDATE_DATE = l_def_oks_subscr_header_tl_rec.last_update_date,
2583: LAST_UPDATE_LOGIN = l_def_oks_subscr_header_tl_rec.last_update_login
2584: WHERE ID = l_def_oks_subscr_header_tl_rec.id
2585: AND SOURCE_LANG = USERENV('LANG');
2586:
2587: UPDATE OKS_SUBSCR_HEADER_TL
2588: SET SFWT_FLAG = 'Y'
2583: LAST_UPDATE_LOGIN = l_def_oks_subscr_header_tl_rec.last_update_login
2584: WHERE ID = l_def_oks_subscr_header_tl_rec.id
2585: AND SOURCE_LANG = USERENV('LANG');
2586:
2587: UPDATE OKS_SUBSCR_HEADER_TL
2588: SET SFWT_FLAG = 'Y'
2589: WHERE ID = l_def_oks_subscr_header_tl_rec.id
2590: AND SOURCE_LANG <> USERENV('LANG');
2591:
2585: AND SOURCE_LANG = USERENV('LANG');
2586:
2587: UPDATE OKS_SUBSCR_HEADER_TL
2588: SET SFWT_FLAG = 'Y'
2589: WHERE ID = l_def_oks_subscr_header_tl_rec.id
2590: AND SOURCE_LANG <> USERENV('LANG');
2591:
2592: x_oks_subscr_header_tl_rec := l_oks_subscr_header_tl_rec;
2593: x_return_status := l_return_status;
2588: SET SFWT_FLAG = 'Y'
2589: WHERE ID = l_def_oks_subscr_header_tl_rec.id
2590: AND SOURCE_LANG <> USERENV('LANG');
2591:
2592: x_oks_subscr_header_tl_rec := l_oks_subscr_header_tl_rec;
2593: x_return_status := l_return_status;
2594: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2595: EXCEPTION
2596: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2643: l_def_schv_rec schv_rec_type;
2644: l_db_schv_rec schv_rec_type;
2645: l_sbh_rec sbh_rec_type;
2646: lx_sbh_rec sbh_rec_type;
2647: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
2648: lx_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
2649: -------------------------------
2650: -- FUNCTION fill_who_columns --
2651: -------------------------------
2644: l_db_schv_rec schv_rec_type;
2645: l_sbh_rec sbh_rec_type;
2646: lx_sbh_rec sbh_rec_type;
2647: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
2648: lx_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
2649: -------------------------------
2650: -- FUNCTION fill_who_columns --
2651: -------------------------------
2652: FUNCTION fill_who_columns (
2840: -----------------------------------------
2841: -- Move VIEW record to "Child" records --
2842: -----------------------------------------
2843: migrate(l_def_schv_rec, l_sbh_rec);
2844: migrate(l_def_schv_rec, l_oks_subscr_header_tl_rec);
2845: -----------------------------------------------
2846: -- Call the UPDATE_ROW for each child record --
2847: -----------------------------------------------
2848: update_row(
2863: p_init_msg_list,
2864: l_return_status,
2865: x_msg_count,
2866: x_msg_data,
2867: l_oks_subscr_header_tl_rec,
2868: lx_oks_subscr_header_tl_rec
2869: );
2870: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2871: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2864: l_return_status,
2865: x_msg_count,
2866: x_msg_data,
2867: l_oks_subscr_header_tl_rec,
2868: lx_oks_subscr_header_tl_rec
2869: );
2870: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2871: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2872: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2871: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2872: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2873: RAISE OKC_API.G_EXCEPTION_ERROR;
2874: END IF;
2875: migrate(lx_oks_subscr_header_tl_rec, l_def_schv_rec);
2876: x_schv_rec := l_def_schv_rec;
2877: x_return_status := l_return_status;
2878: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2879: EXCEPTION
3138: '_PVT'
3139: );
3140: END delete_row;
3141: -----------------------------------------
3142: -- delete_row for:OKS_SUBSCR_HEADER_TL --
3143: -----------------------------------------
3144: PROCEDURE delete_row(
3145: p_init_msg_list IN VARCHAR2,
3146: x_return_status OUT NOCOPY VARCHAR2,
3145: p_init_msg_list IN VARCHAR2,
3146: x_return_status OUT NOCOPY VARCHAR2,
3147: x_msg_count OUT NOCOPY NUMBER,
3148: x_msg_data OUT NOCOPY VARCHAR2,
3149: p_oks_subscr_header_tl_rec IN oks_subscr_header_tl_rec_type) IS
3150:
3151: l_api_version CONSTANT NUMBER := 1;
3152: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3153: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3150:
3151: l_api_version CONSTANT NUMBER := 1;
3152: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3153: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3154: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type := p_oks_subscr_header_tl_rec;
3155: l_row_notfound BOOLEAN := TRUE;
3156: BEGIN
3157: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3158: p_init_msg_list,
3163: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3164: RAISE OKC_API.G_EXCEPTION_ERROR;
3165: END IF;
3166:
3167: DELETE FROM OKS_SUBSCR_HEADER_TL
3168: WHERE ID = p_oks_subscr_header_tl_rec.id;
3169:
3170: x_return_status := l_return_status;
3171: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3164: RAISE OKC_API.G_EXCEPTION_ERROR;
3165: END IF;
3166:
3167: DELETE FROM OKS_SUBSCR_HEADER_TL
3168: WHERE ID = p_oks_subscr_header_tl_rec.id;
3169:
3170: x_return_status := l_return_status;
3171: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3172: EXCEPTION
3215: l_api_version CONSTANT NUMBER := 1;
3216: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3217: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3218: l_schv_rec schv_rec_type := p_schv_rec;
3219: l_oks_subscr_header_tl_rec oks_subscr_header_tl_rec_type;
3220: l_sbh_rec sbh_rec_type;
3221: BEGIN
3222: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3223: G_PKG_NAME,
3233: END IF;
3234: -----------------------------------------
3235: -- Move VIEW record to "Child" records --
3236: -----------------------------------------
3237: migrate(l_schv_rec, l_oks_subscr_header_tl_rec);
3238: migrate(l_schv_rec, l_sbh_rec);
3239: -----------------------------------------------
3240: -- Call the DELETE_ROW for each child record --
3241: -----------------------------------------------
3243: p_init_msg_list,
3244: l_return_status,
3245: x_msg_count,
3246: x_msg_data,
3247: l_oks_subscr_header_tl_rec
3248: );
3249: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3250: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3251: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN