103: -- PROCEDURE add_language
104: ---------------------------------------------------------------------------
105: PROCEDURE add_language IS
106: BEGIN
107: DELETE FROM OKC_RULE_DEFS_TL T
108: WHERE NOT EXISTS (
109: SELECT NULL
110: FROM OKC_RULE_DEFS_TL B
111: WHERE B.RULE_CODE =T.RULE_CODE
106: BEGIN
107: DELETE FROM OKC_RULE_DEFS_TL T
108: WHERE NOT EXISTS (
109: SELECT NULL
110: FROM OKC_RULE_DEFS_TL B
111: WHERE B.RULE_CODE =T.RULE_CODE
112: );
113:
114: UPDATE OKC_RULE_DEFS_TL T SET(
110: FROM OKC_RULE_DEFS_TL B
111: WHERE B.RULE_CODE =T.RULE_CODE
112: );
113:
114: UPDATE OKC_RULE_DEFS_TL T SET(
115: MEANING,
116: DESCRIPTION) = (SELECT
117: B.MEANING,
118: B.DESCRIPTION
115: MEANING,
116: DESCRIPTION) = (SELECT
117: B.MEANING,
118: B.DESCRIPTION
119: FROM OKC_RULE_DEFS_TL B
120: WHERE B.RULE_CODE = T.RULE_CODE
121: AND B.LANGUAGE = T.SOURCE_LANG)
122: WHERE ( T.RULE_CODE,
123: T.LANGUAGE)
123: T.LANGUAGE)
124: IN (SELECT
125: SUBT.RULE_CODE,
126: SUBT.LANGUAGE
127: FROM OKC_RULE_DEFS_TL SUBB, OKC_RULE_DEFS_TL SUBT
128: WHERE SUBB.RULE_CODE = SUBT.RULE_CODE
129: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
130: AND (SUBB.MEANING <> SUBT.MEANING
131: OR SUBB.DESCRIPTION <> SUBT.DESCRIPTION
132: OR (SUBB.MEANING IS NOT NULL AND SUBT.MEANING IS NULL)
133: OR (SUBB.DESCRIPTION IS NULL AND SUBT.DESCRIPTION IS NOT NULL)
134: ));
135:
136: INSERT INTO OKC_RULE_DEFS_TL (
137: RULE_CODE,
138: MEANING,
139: DESCRIPTION,
140: LANGUAGE,
156: B.CREATION_DATE,
157: B.LAST_UPDATED_BY,
158: B.LAST_UPDATE_DATE,
159: B.LAST_UPDATE_LOGIN
160: FROM OKC_RULE_DEFS_TL B, FND_LANGUAGES L
161: WHERE L.INSTALLED_FLAG IN ('I', 'B')
162: AND B.LANGUAGE = USERENV('LANG')
163: AND NOT EXISTS (
164: SELECT NULL
161: WHERE L.INSTALLED_FLAG IN ('I', 'B')
162: AND B.LANGUAGE = USERENV('LANG')
163: AND NOT EXISTS (
164: SELECT NULL
165: FROM OKC_RULE_DEFS_TL T
166: WHERE T.RULE_CODE = B.RULE_CODE
167: AND T.LANGUAGE = L.LANGUAGE_CODE
168: );
169: END add_language;
314: BEGIN
315: RETURN(get_rec(p_okc_rule_defs_b_rec, l_row_not_found));
316: END get_rec;
317: ---------------------------------------------------------------------------
318: -- FUNCTION get_rec for: OKC_RULE_DEFS_TL
319: ---------------------------------------------------------------------------
320: FUNCTION get_rec (
321: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type,
322: x_no_data_found OUT NOCOPY BOOLEAN
317: ---------------------------------------------------------------------------
318: -- FUNCTION get_rec for: OKC_RULE_DEFS_TL
319: ---------------------------------------------------------------------------
320: FUNCTION get_rec (
321: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type,
322: x_no_data_found OUT NOCOPY BOOLEAN
323: ) RETURN okc_rule_defs_tl_rec_type IS
324: CURSOR okc_rule_defs_tl_pk_csr (p_rule_code IN VARCHAR2,
325: p_language IN VARCHAR2) IS
319: ---------------------------------------------------------------------------
320: FUNCTION get_rec (
321: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type,
322: x_no_data_found OUT NOCOPY BOOLEAN
323: ) RETURN okc_rule_defs_tl_rec_type IS
324: CURSOR okc_rule_defs_tl_pk_csr (p_rule_code IN VARCHAR2,
325: p_language IN VARCHAR2) IS
326: SELECT
327: RULE_CODE,
320: FUNCTION get_rec (
321: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type,
322: x_no_data_found OUT NOCOPY BOOLEAN
323: ) RETURN okc_rule_defs_tl_rec_type IS
324: CURSOR okc_rule_defs_tl_pk_csr (p_rule_code IN VARCHAR2,
325: p_language IN VARCHAR2) IS
326: SELECT
327: RULE_CODE,
328: MEANING,
334: CREATION_DATE,
335: LAST_UPDATED_BY,
336: LAST_UPDATE_DATE,
337: LAST_UPDATE_LOGIN
338: FROM Okc_Rule_Defs_Tl
339: WHERE okc_rule_defs_tl.rule_code = p_rule_code
340: AND okc_rule_defs_tl.language = p_language;
341: l_okc_rule_defs_tl_pk okc_rule_defs_tl_pk_csr%ROWTYPE;
342: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
335: LAST_UPDATED_BY,
336: LAST_UPDATE_DATE,
337: LAST_UPDATE_LOGIN
338: FROM Okc_Rule_Defs_Tl
339: WHERE okc_rule_defs_tl.rule_code = p_rule_code
340: AND okc_rule_defs_tl.language = p_language;
341: l_okc_rule_defs_tl_pk okc_rule_defs_tl_pk_csr%ROWTYPE;
342: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
343: BEGIN
336: LAST_UPDATE_DATE,
337: LAST_UPDATE_LOGIN
338: FROM Okc_Rule_Defs_Tl
339: WHERE okc_rule_defs_tl.rule_code = p_rule_code
340: AND okc_rule_defs_tl.language = p_language;
341: l_okc_rule_defs_tl_pk okc_rule_defs_tl_pk_csr%ROWTYPE;
342: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
343: BEGIN
344: x_no_data_found := TRUE;
337: LAST_UPDATE_LOGIN
338: FROM Okc_Rule_Defs_Tl
339: WHERE okc_rule_defs_tl.rule_code = p_rule_code
340: AND okc_rule_defs_tl.language = p_language;
341: l_okc_rule_defs_tl_pk okc_rule_defs_tl_pk_csr%ROWTYPE;
342: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
343: BEGIN
344: x_no_data_found := TRUE;
345: -- Get current database values
338: FROM Okc_Rule_Defs_Tl
339: WHERE okc_rule_defs_tl.rule_code = p_rule_code
340: AND okc_rule_defs_tl.language = p_language;
341: l_okc_rule_defs_tl_pk okc_rule_defs_tl_pk_csr%ROWTYPE;
342: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
343: BEGIN
344: x_no_data_found := TRUE;
345: -- Get current database values
346: OPEN okc_rule_defs_tl_pk_csr (p_okc_rule_defs_tl_rec.rule_code,
342: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
343: BEGIN
344: x_no_data_found := TRUE;
345: -- Get current database values
346: OPEN okc_rule_defs_tl_pk_csr (p_okc_rule_defs_tl_rec.rule_code,
347: p_okc_rule_defs_tl_rec.language);
348: FETCH okc_rule_defs_tl_pk_csr INTO
349: l_okc_rule_defs_tl_rec.rule_code,
350: l_okc_rule_defs_tl_rec.meaning,
343: BEGIN
344: x_no_data_found := TRUE;
345: -- Get current database values
346: OPEN okc_rule_defs_tl_pk_csr (p_okc_rule_defs_tl_rec.rule_code,
347: p_okc_rule_defs_tl_rec.language);
348: FETCH okc_rule_defs_tl_pk_csr INTO
349: l_okc_rule_defs_tl_rec.rule_code,
350: l_okc_rule_defs_tl_rec.meaning,
351: l_okc_rule_defs_tl_rec.description,
344: x_no_data_found := TRUE;
345: -- Get current database values
346: OPEN okc_rule_defs_tl_pk_csr (p_okc_rule_defs_tl_rec.rule_code,
347: p_okc_rule_defs_tl_rec.language);
348: FETCH okc_rule_defs_tl_pk_csr INTO
349: l_okc_rule_defs_tl_rec.rule_code,
350: l_okc_rule_defs_tl_rec.meaning,
351: l_okc_rule_defs_tl_rec.description,
352: l_okc_rule_defs_tl_rec.language,
345: -- Get current database values
346: OPEN okc_rule_defs_tl_pk_csr (p_okc_rule_defs_tl_rec.rule_code,
347: p_okc_rule_defs_tl_rec.language);
348: FETCH okc_rule_defs_tl_pk_csr INTO
349: l_okc_rule_defs_tl_rec.rule_code,
350: l_okc_rule_defs_tl_rec.meaning,
351: l_okc_rule_defs_tl_rec.description,
352: l_okc_rule_defs_tl_rec.language,
353: l_okc_rule_defs_tl_rec.source_lang,
346: OPEN okc_rule_defs_tl_pk_csr (p_okc_rule_defs_tl_rec.rule_code,
347: p_okc_rule_defs_tl_rec.language);
348: FETCH okc_rule_defs_tl_pk_csr INTO
349: l_okc_rule_defs_tl_rec.rule_code,
350: l_okc_rule_defs_tl_rec.meaning,
351: l_okc_rule_defs_tl_rec.description,
352: l_okc_rule_defs_tl_rec.language,
353: l_okc_rule_defs_tl_rec.source_lang,
354: l_okc_rule_defs_tl_rec.sfwt_flag,
347: p_okc_rule_defs_tl_rec.language);
348: FETCH okc_rule_defs_tl_pk_csr INTO
349: l_okc_rule_defs_tl_rec.rule_code,
350: l_okc_rule_defs_tl_rec.meaning,
351: l_okc_rule_defs_tl_rec.description,
352: l_okc_rule_defs_tl_rec.language,
353: l_okc_rule_defs_tl_rec.source_lang,
354: l_okc_rule_defs_tl_rec.sfwt_flag,
355: l_okc_rule_defs_tl_rec.created_by,
348: FETCH okc_rule_defs_tl_pk_csr INTO
349: l_okc_rule_defs_tl_rec.rule_code,
350: l_okc_rule_defs_tl_rec.meaning,
351: l_okc_rule_defs_tl_rec.description,
352: l_okc_rule_defs_tl_rec.language,
353: l_okc_rule_defs_tl_rec.source_lang,
354: l_okc_rule_defs_tl_rec.sfwt_flag,
355: l_okc_rule_defs_tl_rec.created_by,
356: l_okc_rule_defs_tl_rec.creation_date,
349: l_okc_rule_defs_tl_rec.rule_code,
350: l_okc_rule_defs_tl_rec.meaning,
351: l_okc_rule_defs_tl_rec.description,
352: l_okc_rule_defs_tl_rec.language,
353: l_okc_rule_defs_tl_rec.source_lang,
354: l_okc_rule_defs_tl_rec.sfwt_flag,
355: l_okc_rule_defs_tl_rec.created_by,
356: l_okc_rule_defs_tl_rec.creation_date,
357: l_okc_rule_defs_tl_rec.last_updated_by,
350: l_okc_rule_defs_tl_rec.meaning,
351: l_okc_rule_defs_tl_rec.description,
352: l_okc_rule_defs_tl_rec.language,
353: l_okc_rule_defs_tl_rec.source_lang,
354: l_okc_rule_defs_tl_rec.sfwt_flag,
355: l_okc_rule_defs_tl_rec.created_by,
356: l_okc_rule_defs_tl_rec.creation_date,
357: l_okc_rule_defs_tl_rec.last_updated_by,
358: l_okc_rule_defs_tl_rec.last_update_date,
351: l_okc_rule_defs_tl_rec.description,
352: l_okc_rule_defs_tl_rec.language,
353: l_okc_rule_defs_tl_rec.source_lang,
354: l_okc_rule_defs_tl_rec.sfwt_flag,
355: l_okc_rule_defs_tl_rec.created_by,
356: l_okc_rule_defs_tl_rec.creation_date,
357: l_okc_rule_defs_tl_rec.last_updated_by,
358: l_okc_rule_defs_tl_rec.last_update_date,
359: l_okc_rule_defs_tl_rec.last_update_login;
352: l_okc_rule_defs_tl_rec.language,
353: l_okc_rule_defs_tl_rec.source_lang,
354: l_okc_rule_defs_tl_rec.sfwt_flag,
355: l_okc_rule_defs_tl_rec.created_by,
356: l_okc_rule_defs_tl_rec.creation_date,
357: l_okc_rule_defs_tl_rec.last_updated_by,
358: l_okc_rule_defs_tl_rec.last_update_date,
359: l_okc_rule_defs_tl_rec.last_update_login;
360: x_no_data_found := okc_rule_defs_tl_pk_csr%NOTFOUND;
353: l_okc_rule_defs_tl_rec.source_lang,
354: l_okc_rule_defs_tl_rec.sfwt_flag,
355: l_okc_rule_defs_tl_rec.created_by,
356: l_okc_rule_defs_tl_rec.creation_date,
357: l_okc_rule_defs_tl_rec.last_updated_by,
358: l_okc_rule_defs_tl_rec.last_update_date,
359: l_okc_rule_defs_tl_rec.last_update_login;
360: x_no_data_found := okc_rule_defs_tl_pk_csr%NOTFOUND;
361: CLOSE okc_rule_defs_tl_pk_csr;
354: l_okc_rule_defs_tl_rec.sfwt_flag,
355: l_okc_rule_defs_tl_rec.created_by,
356: l_okc_rule_defs_tl_rec.creation_date,
357: l_okc_rule_defs_tl_rec.last_updated_by,
358: l_okc_rule_defs_tl_rec.last_update_date,
359: l_okc_rule_defs_tl_rec.last_update_login;
360: x_no_data_found := okc_rule_defs_tl_pk_csr%NOTFOUND;
361: CLOSE okc_rule_defs_tl_pk_csr;
362: RETURN(l_okc_rule_defs_tl_rec);
355: l_okc_rule_defs_tl_rec.created_by,
356: l_okc_rule_defs_tl_rec.creation_date,
357: l_okc_rule_defs_tl_rec.last_updated_by,
358: l_okc_rule_defs_tl_rec.last_update_date,
359: l_okc_rule_defs_tl_rec.last_update_login;
360: x_no_data_found := okc_rule_defs_tl_pk_csr%NOTFOUND;
361: CLOSE okc_rule_defs_tl_pk_csr;
362: RETURN(l_okc_rule_defs_tl_rec);
363: END get_rec;
356: l_okc_rule_defs_tl_rec.creation_date,
357: l_okc_rule_defs_tl_rec.last_updated_by,
358: l_okc_rule_defs_tl_rec.last_update_date,
359: l_okc_rule_defs_tl_rec.last_update_login;
360: x_no_data_found := okc_rule_defs_tl_pk_csr%NOTFOUND;
361: CLOSE okc_rule_defs_tl_pk_csr;
362: RETURN(l_okc_rule_defs_tl_rec);
363: END get_rec;
364:
357: l_okc_rule_defs_tl_rec.last_updated_by,
358: l_okc_rule_defs_tl_rec.last_update_date,
359: l_okc_rule_defs_tl_rec.last_update_login;
360: x_no_data_found := okc_rule_defs_tl_pk_csr%NOTFOUND;
361: CLOSE okc_rule_defs_tl_pk_csr;
362: RETURN(l_okc_rule_defs_tl_rec);
363: END get_rec;
364:
365: ------------------------------------------------------------------
358: l_okc_rule_defs_tl_rec.last_update_date,
359: l_okc_rule_defs_tl_rec.last_update_login;
360: x_no_data_found := okc_rule_defs_tl_pk_csr%NOTFOUND;
361: CLOSE okc_rule_defs_tl_pk_csr;
362: RETURN(l_okc_rule_defs_tl_rec);
363: END get_rec;
364:
365: ------------------------------------------------------------------
366: -- This version of get_rec sets error messages if no data found --
365: ------------------------------------------------------------------
366: -- This version of get_rec sets error messages if no data found --
367: ------------------------------------------------------------------
368: FUNCTION get_rec (
369: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type,
370: x_return_status OUT NOCOPY VARCHAR2
371: ) RETURN okc_rule_defs_tl_rec_type IS
372: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
373: l_row_notfound BOOLEAN := TRUE;
367: ------------------------------------------------------------------
368: FUNCTION get_rec (
369: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type,
370: x_return_status OUT NOCOPY VARCHAR2
371: ) RETURN okc_rule_defs_tl_rec_type IS
372: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
373: l_row_notfound BOOLEAN := TRUE;
374: BEGIN
375: x_return_status := OKC_API.G_RET_STS_SUCCESS;
368: FUNCTION get_rec (
369: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type,
370: x_return_status OUT NOCOPY VARCHAR2
371: ) RETURN okc_rule_defs_tl_rec_type IS
372: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
373: l_row_notfound BOOLEAN := TRUE;
374: BEGIN
375: x_return_status := OKC_API.G_RET_STS_SUCCESS;
376: l_okc_rule_defs_tl_rec := get_rec(p_okc_rule_defs_tl_rec, l_row_notfound);
372: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
373: l_row_notfound BOOLEAN := TRUE;
374: BEGIN
375: x_return_status := OKC_API.G_RET_STS_SUCCESS;
376: l_okc_rule_defs_tl_rec := get_rec(p_okc_rule_defs_tl_rec, l_row_notfound);
377: IF (l_row_notfound) THEN
378: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'RULE_CODE');
379: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
380: x_return_status := OKC_API.G_RET_STS_ERROR;
378: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'RULE_CODE');
379: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
380: x_return_status := OKC_API.G_RET_STS_ERROR;
381: END IF;
382: RETURN(l_okc_rule_defs_tl_rec);
383: END get_rec;
384: -----------------------------------------------------------
385: -- So we don't have to pass an "l_row_notfound" variable --
386: -----------------------------------------------------------
384: -----------------------------------------------------------
385: -- So we don't have to pass an "l_row_notfound" variable --
386: -----------------------------------------------------------
387: FUNCTION get_rec (
388: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type
389: ) RETURN okc_rule_defs_tl_rec_type IS
390: l_row_not_found BOOLEAN := TRUE;
391: BEGIN
392: RETURN(get_rec(p_okc_rule_defs_tl_rec, l_row_not_found));
385: -- So we don't have to pass an "l_row_notfound" variable --
386: -----------------------------------------------------------
387: FUNCTION get_rec (
388: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type
389: ) RETURN okc_rule_defs_tl_rec_type IS
390: l_row_not_found BOOLEAN := TRUE;
391: BEGIN
392: RETURN(get_rec(p_okc_rule_defs_tl_rec, l_row_not_found));
393: END get_rec;
388: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type
389: ) RETURN okc_rule_defs_tl_rec_type IS
390: l_row_not_found BOOLEAN := TRUE;
391: BEGIN
392: RETURN(get_rec(p_okc_rule_defs_tl_rec, l_row_not_found));
393: END get_rec;
394: ---------------------------------------------------------------------------
395: -- FUNCTION null_out_defaults for: OKC_RULE_DEFS_V
396: ---------------------------------------------------------------------------
879: p_to.last_update_login := p_from.last_update_login;
880: END migrate;
881: PROCEDURE migrate (
882: p_from IN okc_rule_defs_v_rec_type,
883: p_to IN OUT NOCOPY okc_rule_defs_tl_rec_type
884: ) IS
885: BEGIN
886: p_to.rule_code := p_from.rule_code;
887: p_to.meaning := p_from.meaning;
893: p_to.last_update_date := p_from.last_update_date;
894: p_to.last_update_login := p_from.last_update_login;
895: END migrate;
896: PROCEDURE migrate (
897: p_from IN okc_rule_defs_tl_rec_type,
898: p_to IN OUT NOCOPY okc_rule_defs_v_rec_type
899: ) IS
900: BEGIN
901: p_to.rule_code := p_from.rule_code;
926: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
927: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
928: l_okc_rule_defs_v_rec okc_rule_defs_v_rec_type := p_okc_rule_defs_v_rec;
929: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
930: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
931: BEGIN
932: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
933: G_PKG_NAME,
934: p_init_msg_list,
1253: '_PVT'
1254: );
1255: END insert_row;
1256: -------------------------------------
1257: -- insert_row for:OKC_RULE_DEFS_TL --
1258: -------------------------------------
1259: PROCEDURE insert_row(
1260: p_init_msg_list IN VARCHAR2,
1261: x_return_status OUT NOCOPY VARCHAR2,
1260: p_init_msg_list IN VARCHAR2,
1261: x_return_status OUT NOCOPY VARCHAR2,
1262: x_msg_count OUT NOCOPY NUMBER,
1263: x_msg_data OUT NOCOPY VARCHAR2,
1264: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type,
1265: x_okc_rule_defs_tl_rec OUT NOCOPY okc_rule_defs_tl_rec_type) IS
1266:
1267: l_api_version CONSTANT NUMBER := 1;
1268: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1261: x_return_status OUT NOCOPY VARCHAR2,
1262: x_msg_count OUT NOCOPY NUMBER,
1263: x_msg_data OUT NOCOPY VARCHAR2,
1264: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type,
1265: x_okc_rule_defs_tl_rec OUT NOCOPY okc_rule_defs_tl_rec_type) IS
1266:
1267: l_api_version CONSTANT NUMBER := 1;
1268: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1269: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1266:
1267: l_api_version CONSTANT NUMBER := 1;
1268: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1269: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1270: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type := p_okc_rule_defs_tl_rec;
1271: l_def_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
1272: CURSOR get_languages IS
1273: SELECT *
1274: FROM FND_LANGUAGES
1267: l_api_version CONSTANT NUMBER := 1;
1268: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1269: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1270: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type := p_okc_rule_defs_tl_rec;
1271: l_def_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
1272: CURSOR get_languages IS
1273: SELECT *
1274: FROM FND_LANGUAGES
1275: WHERE INSTALLED_FLAG IN ('I', 'B');
1273: SELECT *
1274: FROM FND_LANGUAGES
1275: WHERE INSTALLED_FLAG IN ('I', 'B');
1276: -----------------------------------------
1277: -- Set_Attributes for:OKC_RULE_DEFS_TL --
1278: -----------------------------------------
1279: FUNCTION Set_Attributes (
1280: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type,
1281: x_okc_rule_defs_tl_rec OUT NOCOPY okc_rule_defs_tl_rec_type
1276: -----------------------------------------
1277: -- Set_Attributes for:OKC_RULE_DEFS_TL --
1278: -----------------------------------------
1279: FUNCTION Set_Attributes (
1280: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type,
1281: x_okc_rule_defs_tl_rec OUT NOCOPY okc_rule_defs_tl_rec_type
1282: ) RETURN VARCHAR2 IS
1283: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1284: BEGIN
1277: -- Set_Attributes for:OKC_RULE_DEFS_TL --
1278: -----------------------------------------
1279: FUNCTION Set_Attributes (
1280: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type,
1281: x_okc_rule_defs_tl_rec OUT NOCOPY okc_rule_defs_tl_rec_type
1282: ) RETURN VARCHAR2 IS
1283: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1284: BEGIN
1285: x_okc_rule_defs_tl_rec := p_okc_rule_defs_tl_rec;
1281: x_okc_rule_defs_tl_rec OUT NOCOPY okc_rule_defs_tl_rec_type
1282: ) RETURN VARCHAR2 IS
1283: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1284: BEGIN
1285: x_okc_rule_defs_tl_rec := p_okc_rule_defs_tl_rec;
1286: x_okc_rule_defs_tl_rec.LANGUAGE := USERENV('LANG');
1287: x_okc_rule_defs_tl_rec.SOURCE_LANG := USERENV('LANG');
1288: RETURN(l_return_status);
1289: END Set_Attributes;
1282: ) RETURN VARCHAR2 IS
1283: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1284: BEGIN
1285: x_okc_rule_defs_tl_rec := p_okc_rule_defs_tl_rec;
1286: x_okc_rule_defs_tl_rec.LANGUAGE := USERENV('LANG');
1287: x_okc_rule_defs_tl_rec.SOURCE_LANG := USERENV('LANG');
1288: RETURN(l_return_status);
1289: END Set_Attributes;
1290: BEGIN
1283: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1284: BEGIN
1285: x_okc_rule_defs_tl_rec := p_okc_rule_defs_tl_rec;
1286: x_okc_rule_defs_tl_rec.LANGUAGE := USERENV('LANG');
1287: x_okc_rule_defs_tl_rec.SOURCE_LANG := USERENV('LANG');
1288: RETURN(l_return_status);
1289: END Set_Attributes;
1290: BEGIN
1291: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1298: RAISE OKC_API.G_EXCEPTION_ERROR;
1299: END IF;
1300: --- Setting item attributes
1301: l_return_status := Set_Attributes(
1302: p_okc_rule_defs_tl_rec, -- IN
1303: l_okc_rule_defs_tl_rec); -- OUT
1304: --- If any errors happen abort API
1305: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1306: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1299: END IF;
1300: --- Setting item attributes
1301: l_return_status := Set_Attributes(
1302: p_okc_rule_defs_tl_rec, -- IN
1303: l_okc_rule_defs_tl_rec); -- OUT
1304: --- If any errors happen abort API
1305: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1306: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1307: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1307: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1308: RAISE OKC_API.G_EXCEPTION_ERROR;
1309: END IF;
1310: FOR l_lang_rec IN get_languages LOOP
1311: l_okc_rule_defs_tl_rec.language := l_lang_rec.language_code;
1312: INSERT INTO OKC_RULE_DEFS_TL(
1313: rule_code,
1314: meaning,
1315: description,
1308: RAISE OKC_API.G_EXCEPTION_ERROR;
1309: END IF;
1310: FOR l_lang_rec IN get_languages LOOP
1311: l_okc_rule_defs_tl_rec.language := l_lang_rec.language_code;
1312: INSERT INTO OKC_RULE_DEFS_TL(
1313: rule_code,
1314: meaning,
1315: description,
1316: language,
1321: last_updated_by,
1322: last_update_date,
1323: last_update_login)
1324: VALUES (
1325: l_okc_rule_defs_tl_rec.rule_code,
1326: l_okc_rule_defs_tl_rec.meaning,
1327: l_okc_rule_defs_tl_rec.description,
1328: l_okc_rule_defs_tl_rec.language,
1329: l_okc_rule_defs_tl_rec.source_lang,
1322: last_update_date,
1323: last_update_login)
1324: VALUES (
1325: l_okc_rule_defs_tl_rec.rule_code,
1326: l_okc_rule_defs_tl_rec.meaning,
1327: l_okc_rule_defs_tl_rec.description,
1328: l_okc_rule_defs_tl_rec.language,
1329: l_okc_rule_defs_tl_rec.source_lang,
1330: l_okc_rule_defs_tl_rec.sfwt_flag,
1323: last_update_login)
1324: VALUES (
1325: l_okc_rule_defs_tl_rec.rule_code,
1326: l_okc_rule_defs_tl_rec.meaning,
1327: l_okc_rule_defs_tl_rec.description,
1328: l_okc_rule_defs_tl_rec.language,
1329: l_okc_rule_defs_tl_rec.source_lang,
1330: l_okc_rule_defs_tl_rec.sfwt_flag,
1331: l_okc_rule_defs_tl_rec.created_by,
1324: VALUES (
1325: l_okc_rule_defs_tl_rec.rule_code,
1326: l_okc_rule_defs_tl_rec.meaning,
1327: l_okc_rule_defs_tl_rec.description,
1328: l_okc_rule_defs_tl_rec.language,
1329: l_okc_rule_defs_tl_rec.source_lang,
1330: l_okc_rule_defs_tl_rec.sfwt_flag,
1331: l_okc_rule_defs_tl_rec.created_by,
1332: l_okc_rule_defs_tl_rec.creation_date,
1325: l_okc_rule_defs_tl_rec.rule_code,
1326: l_okc_rule_defs_tl_rec.meaning,
1327: l_okc_rule_defs_tl_rec.description,
1328: l_okc_rule_defs_tl_rec.language,
1329: l_okc_rule_defs_tl_rec.source_lang,
1330: l_okc_rule_defs_tl_rec.sfwt_flag,
1331: l_okc_rule_defs_tl_rec.created_by,
1332: l_okc_rule_defs_tl_rec.creation_date,
1333: l_okc_rule_defs_tl_rec.last_updated_by,
1326: l_okc_rule_defs_tl_rec.meaning,
1327: l_okc_rule_defs_tl_rec.description,
1328: l_okc_rule_defs_tl_rec.language,
1329: l_okc_rule_defs_tl_rec.source_lang,
1330: l_okc_rule_defs_tl_rec.sfwt_flag,
1331: l_okc_rule_defs_tl_rec.created_by,
1332: l_okc_rule_defs_tl_rec.creation_date,
1333: l_okc_rule_defs_tl_rec.last_updated_by,
1334: l_okc_rule_defs_tl_rec.last_update_date,
1327: l_okc_rule_defs_tl_rec.description,
1328: l_okc_rule_defs_tl_rec.language,
1329: l_okc_rule_defs_tl_rec.source_lang,
1330: l_okc_rule_defs_tl_rec.sfwt_flag,
1331: l_okc_rule_defs_tl_rec.created_by,
1332: l_okc_rule_defs_tl_rec.creation_date,
1333: l_okc_rule_defs_tl_rec.last_updated_by,
1334: l_okc_rule_defs_tl_rec.last_update_date,
1335: l_okc_rule_defs_tl_rec.last_update_login);
1328: l_okc_rule_defs_tl_rec.language,
1329: l_okc_rule_defs_tl_rec.source_lang,
1330: l_okc_rule_defs_tl_rec.sfwt_flag,
1331: l_okc_rule_defs_tl_rec.created_by,
1332: l_okc_rule_defs_tl_rec.creation_date,
1333: l_okc_rule_defs_tl_rec.last_updated_by,
1334: l_okc_rule_defs_tl_rec.last_update_date,
1335: l_okc_rule_defs_tl_rec.last_update_login);
1336: END LOOP;
1329: l_okc_rule_defs_tl_rec.source_lang,
1330: l_okc_rule_defs_tl_rec.sfwt_flag,
1331: l_okc_rule_defs_tl_rec.created_by,
1332: l_okc_rule_defs_tl_rec.creation_date,
1333: l_okc_rule_defs_tl_rec.last_updated_by,
1334: l_okc_rule_defs_tl_rec.last_update_date,
1335: l_okc_rule_defs_tl_rec.last_update_login);
1336: END LOOP;
1337: -- Set OUT values
1330: l_okc_rule_defs_tl_rec.sfwt_flag,
1331: l_okc_rule_defs_tl_rec.created_by,
1332: l_okc_rule_defs_tl_rec.creation_date,
1333: l_okc_rule_defs_tl_rec.last_updated_by,
1334: l_okc_rule_defs_tl_rec.last_update_date,
1335: l_okc_rule_defs_tl_rec.last_update_login);
1336: END LOOP;
1337: -- Set OUT values
1338: x_okc_rule_defs_tl_rec := l_okc_rule_defs_tl_rec;
1331: l_okc_rule_defs_tl_rec.created_by,
1332: l_okc_rule_defs_tl_rec.creation_date,
1333: l_okc_rule_defs_tl_rec.last_updated_by,
1334: l_okc_rule_defs_tl_rec.last_update_date,
1335: l_okc_rule_defs_tl_rec.last_update_login);
1336: END LOOP;
1337: -- Set OUT values
1338: x_okc_rule_defs_tl_rec := l_okc_rule_defs_tl_rec;
1339: x_return_status := l_return_status;
1334: l_okc_rule_defs_tl_rec.last_update_date,
1335: l_okc_rule_defs_tl_rec.last_update_login);
1336: END LOOP;
1337: -- Set OUT values
1338: x_okc_rule_defs_tl_rec := l_okc_rule_defs_tl_rec;
1339: x_return_status := l_return_status;
1340: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1341: EXCEPTION
1342: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1388: l_okc_rule_defs_v_rec okc_rule_defs_v_rec_type := p_okc_rule_defs_v_rec;
1389: l_def_okc_rule_defs_v_rec okc_rule_defs_v_rec_type;
1390: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
1391: lx_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
1392: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
1393: lx_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
1394: -------------------------------
1395: -- FUNCTION fill_who_columns --
1396: -------------------------------
1389: l_def_okc_rule_defs_v_rec okc_rule_defs_v_rec_type;
1390: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
1391: lx_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
1392: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
1393: lx_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
1394: -------------------------------
1395: -- FUNCTION fill_who_columns --
1396: -------------------------------
1397: FUNCTION fill_who_columns (
1465: -----------------------------------------
1466: -- Move VIEW record to "Child" records --
1467: -----------------------------------------
1468: migrate(l_def_okc_rule_defs_v_rec, l_okc_rule_defs_b_rec);
1469: migrate(l_def_okc_rule_defs_v_rec, l_okc_rule_defs_tl_rec);
1470: -----------------------------------------------
1471: -- Call the INSERT_ROW for each child record --
1472: -----------------------------------------------
1473: insert_row(
1488: p_init_msg_list,
1489: l_return_status,
1490: x_msg_count,
1491: x_msg_data,
1492: l_okc_rule_defs_tl_rec,
1493: lx_okc_rule_defs_tl_rec
1494: );
1495: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1496: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1489: l_return_status,
1490: x_msg_count,
1491: x_msg_data,
1492: l_okc_rule_defs_tl_rec,
1493: lx_okc_rule_defs_tl_rec
1494: );
1495: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1496: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1497: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1496: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1497: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1498: RAISE OKC_API.G_EXCEPTION_ERROR;
1499: END IF;
1500: migrate(lx_okc_rule_defs_tl_rec, l_def_okc_rule_defs_v_rec);
1501: -- Set OUT values
1502: x_okc_rule_defs_v_rec := l_def_okc_rule_defs_v_rec;
1503: x_return_status := l_return_status;
1504: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1806: '_PVT'
1807: );
1808: END lock_row;
1809: -----------------------------------
1810: -- lock_row for:OKC_RULE_DEFS_TL --
1811: -----------------------------------
1812: PROCEDURE lock_row(
1813: p_init_msg_list IN VARCHAR2,
1814: x_return_status OUT NOCOPY VARCHAR2,
1813: p_init_msg_list IN VARCHAR2,
1814: x_return_status OUT NOCOPY VARCHAR2,
1815: x_msg_count OUT NOCOPY NUMBER,
1816: x_msg_data OUT NOCOPY VARCHAR2,
1817: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type) IS
1818:
1819: E_Resource_Busy EXCEPTION;
1820: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1821: CURSOR lock_csr (p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type) IS
1817: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type) IS
1818:
1819: E_Resource_Busy EXCEPTION;
1820: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1821: CURSOR lock_csr (p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type) IS
1822: SELECT *
1823: FROM OKC_RULE_DEFS_TL
1824: WHERE RULE_CODE = p_okc_rule_defs_tl_rec.rule_code
1825: FOR UPDATE NOWAIT;
1819: E_Resource_Busy EXCEPTION;
1820: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1821: CURSOR lock_csr (p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type) IS
1822: SELECT *
1823: FROM OKC_RULE_DEFS_TL
1824: WHERE RULE_CODE = p_okc_rule_defs_tl_rec.rule_code
1825: FOR UPDATE NOWAIT;
1826:
1827: l_api_version CONSTANT NUMBER := 1;
1820: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1821: CURSOR lock_csr (p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type) IS
1822: SELECT *
1823: FROM OKC_RULE_DEFS_TL
1824: WHERE RULE_CODE = p_okc_rule_defs_tl_rec.rule_code
1825: FOR UPDATE NOWAIT;
1826:
1827: l_api_version CONSTANT NUMBER := 1;
1828: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
1840: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1841: RAISE OKC_API.G_EXCEPTION_ERROR;
1842: END IF;
1843: BEGIN
1844: OPEN lock_csr(p_okc_rule_defs_tl_rec);
1845: FETCH lock_csr INTO l_lock_var;
1846: l_row_notfound := lock_csr%NOTFOUND;
1847: CLOSE lock_csr;
1848: EXCEPTION
1906: l_api_version CONSTANT NUMBER := 1;
1907: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1908: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1909: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
1910: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
1911: BEGIN
1912: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1913: G_PKG_NAME,
1914: p_init_msg_list,
1924: -----------------------------------------
1925: -- Move VIEW record to "Child" records --
1926: -----------------------------------------
1927: migrate(p_okc_rule_defs_v_rec, l_okc_rule_defs_b_rec);
1928: migrate(p_okc_rule_defs_v_rec, l_okc_rule_defs_tl_rec);
1929: ---------------------------------------------
1930: -- Call the LOCK_ROW for each child record --
1931: ---------------------------------------------
1932: lock_row(
1945: p_init_msg_list,
1946: l_return_status,
1947: x_msg_count,
1948: x_msg_data,
1949: l_okc_rule_defs_tl_rec
1950: );
1951: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1952: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1953: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2302: '_PVT'
2303: );
2304: END update_row;
2305: -------------------------------------
2306: -- update_row for:OKC_RULE_DEFS_TL --
2307: -------------------------------------
2308: PROCEDURE update_row(
2309: p_init_msg_list IN VARCHAR2,
2310: x_return_status OUT NOCOPY VARCHAR2,
2309: p_init_msg_list IN VARCHAR2,
2310: x_return_status OUT NOCOPY VARCHAR2,
2311: x_msg_count OUT NOCOPY NUMBER,
2312: x_msg_data OUT NOCOPY VARCHAR2,
2313: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type,
2314: x_okc_rule_defs_tl_rec OUT NOCOPY okc_rule_defs_tl_rec_type) IS
2315:
2316: l_api_version CONSTANT NUMBER := 1;
2317: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2310: x_return_status OUT NOCOPY VARCHAR2,
2311: x_msg_count OUT NOCOPY NUMBER,
2312: x_msg_data OUT NOCOPY VARCHAR2,
2313: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type,
2314: x_okc_rule_defs_tl_rec OUT NOCOPY okc_rule_defs_tl_rec_type) IS
2315:
2316: l_api_version CONSTANT NUMBER := 1;
2317: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2318: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2315:
2316: l_api_version CONSTANT NUMBER := 1;
2317: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2318: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2319: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type := p_okc_rule_defs_tl_rec;
2320: l_def_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
2321: l_row_notfound BOOLEAN := TRUE;
2322: ----------------------------------
2323: -- FUNCTION populate_new_record --
2316: l_api_version CONSTANT NUMBER := 1;
2317: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2318: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2319: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type := p_okc_rule_defs_tl_rec;
2320: l_def_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
2321: l_row_notfound BOOLEAN := TRUE;
2322: ----------------------------------
2323: -- FUNCTION populate_new_record --
2324: ----------------------------------
2322: ----------------------------------
2323: -- FUNCTION populate_new_record --
2324: ----------------------------------
2325: FUNCTION populate_new_record (
2326: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type,
2327: x_okc_rule_defs_tl_rec OUT NOCOPY okc_rule_defs_tl_rec_type
2328: ) RETURN VARCHAR2 IS
2329: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
2330: l_row_notfound BOOLEAN := TRUE;
2323: -- FUNCTION populate_new_record --
2324: ----------------------------------
2325: FUNCTION populate_new_record (
2326: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type,
2327: x_okc_rule_defs_tl_rec OUT NOCOPY okc_rule_defs_tl_rec_type
2328: ) RETURN VARCHAR2 IS
2329: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
2330: l_row_notfound BOOLEAN := TRUE;
2331: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2325: FUNCTION populate_new_record (
2326: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type,
2327: x_okc_rule_defs_tl_rec OUT NOCOPY okc_rule_defs_tl_rec_type
2328: ) RETURN VARCHAR2 IS
2329: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
2330: l_row_notfound BOOLEAN := TRUE;
2331: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2332: BEGIN
2333: x_okc_rule_defs_tl_rec := p_okc_rule_defs_tl_rec;
2329: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
2330: l_row_notfound BOOLEAN := TRUE;
2331: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2332: BEGIN
2333: x_okc_rule_defs_tl_rec := p_okc_rule_defs_tl_rec;
2334: -- Get current database values
2335: l_okc_rule_defs_tl_rec := get_rec(p_okc_rule_defs_tl_rec, l_return_status);
2336: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2337: IF (x_okc_rule_defs_tl_rec.rule_code = OKC_API.G_MISS_CHAR)
2331: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2332: BEGIN
2333: x_okc_rule_defs_tl_rec := p_okc_rule_defs_tl_rec;
2334: -- Get current database values
2335: l_okc_rule_defs_tl_rec := get_rec(p_okc_rule_defs_tl_rec, l_return_status);
2336: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2337: IF (x_okc_rule_defs_tl_rec.rule_code = OKC_API.G_MISS_CHAR)
2338: THEN
2339: x_okc_rule_defs_tl_rec.rule_code := l_okc_rule_defs_tl_rec.rule_code;
2333: x_okc_rule_defs_tl_rec := p_okc_rule_defs_tl_rec;
2334: -- Get current database values
2335: l_okc_rule_defs_tl_rec := get_rec(p_okc_rule_defs_tl_rec, l_return_status);
2336: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2337: IF (x_okc_rule_defs_tl_rec.rule_code = OKC_API.G_MISS_CHAR)
2338: THEN
2339: x_okc_rule_defs_tl_rec.rule_code := l_okc_rule_defs_tl_rec.rule_code;
2340: END IF;
2341: IF (x_okc_rule_defs_tl_rec.meaning = OKC_API.G_MISS_CHAR)
2335: l_okc_rule_defs_tl_rec := get_rec(p_okc_rule_defs_tl_rec, l_return_status);
2336: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2337: IF (x_okc_rule_defs_tl_rec.rule_code = OKC_API.G_MISS_CHAR)
2338: THEN
2339: x_okc_rule_defs_tl_rec.rule_code := l_okc_rule_defs_tl_rec.rule_code;
2340: END IF;
2341: IF (x_okc_rule_defs_tl_rec.meaning = OKC_API.G_MISS_CHAR)
2342: THEN
2343: x_okc_rule_defs_tl_rec.meaning := l_okc_rule_defs_tl_rec.meaning;
2337: IF (x_okc_rule_defs_tl_rec.rule_code = OKC_API.G_MISS_CHAR)
2338: THEN
2339: x_okc_rule_defs_tl_rec.rule_code := l_okc_rule_defs_tl_rec.rule_code;
2340: END IF;
2341: IF (x_okc_rule_defs_tl_rec.meaning = OKC_API.G_MISS_CHAR)
2342: THEN
2343: x_okc_rule_defs_tl_rec.meaning := l_okc_rule_defs_tl_rec.meaning;
2344: END IF;
2345: IF (x_okc_rule_defs_tl_rec.description = OKC_API.G_MISS_CHAR)
2339: x_okc_rule_defs_tl_rec.rule_code := l_okc_rule_defs_tl_rec.rule_code;
2340: END IF;
2341: IF (x_okc_rule_defs_tl_rec.meaning = OKC_API.G_MISS_CHAR)
2342: THEN
2343: x_okc_rule_defs_tl_rec.meaning := l_okc_rule_defs_tl_rec.meaning;
2344: END IF;
2345: IF (x_okc_rule_defs_tl_rec.description = OKC_API.G_MISS_CHAR)
2346: THEN
2347: x_okc_rule_defs_tl_rec.description := l_okc_rule_defs_tl_rec.description;
2341: IF (x_okc_rule_defs_tl_rec.meaning = OKC_API.G_MISS_CHAR)
2342: THEN
2343: x_okc_rule_defs_tl_rec.meaning := l_okc_rule_defs_tl_rec.meaning;
2344: END IF;
2345: IF (x_okc_rule_defs_tl_rec.description = OKC_API.G_MISS_CHAR)
2346: THEN
2347: x_okc_rule_defs_tl_rec.description := l_okc_rule_defs_tl_rec.description;
2348: END IF;
2349: IF (x_okc_rule_defs_tl_rec.language = OKC_API.G_MISS_CHAR)
2343: x_okc_rule_defs_tl_rec.meaning := l_okc_rule_defs_tl_rec.meaning;
2344: END IF;
2345: IF (x_okc_rule_defs_tl_rec.description = OKC_API.G_MISS_CHAR)
2346: THEN
2347: x_okc_rule_defs_tl_rec.description := l_okc_rule_defs_tl_rec.description;
2348: END IF;
2349: IF (x_okc_rule_defs_tl_rec.language = OKC_API.G_MISS_CHAR)
2350: THEN
2351: x_okc_rule_defs_tl_rec.language := l_okc_rule_defs_tl_rec.language;
2345: IF (x_okc_rule_defs_tl_rec.description = OKC_API.G_MISS_CHAR)
2346: THEN
2347: x_okc_rule_defs_tl_rec.description := l_okc_rule_defs_tl_rec.description;
2348: END IF;
2349: IF (x_okc_rule_defs_tl_rec.language = OKC_API.G_MISS_CHAR)
2350: THEN
2351: x_okc_rule_defs_tl_rec.language := l_okc_rule_defs_tl_rec.language;
2352: END IF;
2353: IF (x_okc_rule_defs_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2347: x_okc_rule_defs_tl_rec.description := l_okc_rule_defs_tl_rec.description;
2348: END IF;
2349: IF (x_okc_rule_defs_tl_rec.language = OKC_API.G_MISS_CHAR)
2350: THEN
2351: x_okc_rule_defs_tl_rec.language := l_okc_rule_defs_tl_rec.language;
2352: END IF;
2353: IF (x_okc_rule_defs_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2354: THEN
2355: x_okc_rule_defs_tl_rec.source_lang := l_okc_rule_defs_tl_rec.source_lang;
2349: IF (x_okc_rule_defs_tl_rec.language = OKC_API.G_MISS_CHAR)
2350: THEN
2351: x_okc_rule_defs_tl_rec.language := l_okc_rule_defs_tl_rec.language;
2352: END IF;
2353: IF (x_okc_rule_defs_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2354: THEN
2355: x_okc_rule_defs_tl_rec.source_lang := l_okc_rule_defs_tl_rec.source_lang;
2356: END IF;
2357: IF (x_okc_rule_defs_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2351: x_okc_rule_defs_tl_rec.language := l_okc_rule_defs_tl_rec.language;
2352: END IF;
2353: IF (x_okc_rule_defs_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2354: THEN
2355: x_okc_rule_defs_tl_rec.source_lang := l_okc_rule_defs_tl_rec.source_lang;
2356: END IF;
2357: IF (x_okc_rule_defs_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2358: THEN
2359: x_okc_rule_defs_tl_rec.sfwt_flag := l_okc_rule_defs_tl_rec.sfwt_flag;
2353: IF (x_okc_rule_defs_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2354: THEN
2355: x_okc_rule_defs_tl_rec.source_lang := l_okc_rule_defs_tl_rec.source_lang;
2356: END IF;
2357: IF (x_okc_rule_defs_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2358: THEN
2359: x_okc_rule_defs_tl_rec.sfwt_flag := l_okc_rule_defs_tl_rec.sfwt_flag;
2360: END IF;
2361: IF (x_okc_rule_defs_tl_rec.created_by = OKC_API.G_MISS_NUM)
2355: x_okc_rule_defs_tl_rec.source_lang := l_okc_rule_defs_tl_rec.source_lang;
2356: END IF;
2357: IF (x_okc_rule_defs_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2358: THEN
2359: x_okc_rule_defs_tl_rec.sfwt_flag := l_okc_rule_defs_tl_rec.sfwt_flag;
2360: END IF;
2361: IF (x_okc_rule_defs_tl_rec.created_by = OKC_API.G_MISS_NUM)
2362: THEN
2363: x_okc_rule_defs_tl_rec.created_by := l_okc_rule_defs_tl_rec.created_by;
2357: IF (x_okc_rule_defs_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2358: THEN
2359: x_okc_rule_defs_tl_rec.sfwt_flag := l_okc_rule_defs_tl_rec.sfwt_flag;
2360: END IF;
2361: IF (x_okc_rule_defs_tl_rec.created_by = OKC_API.G_MISS_NUM)
2362: THEN
2363: x_okc_rule_defs_tl_rec.created_by := l_okc_rule_defs_tl_rec.created_by;
2364: END IF;
2365: IF (x_okc_rule_defs_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2359: x_okc_rule_defs_tl_rec.sfwt_flag := l_okc_rule_defs_tl_rec.sfwt_flag;
2360: END IF;
2361: IF (x_okc_rule_defs_tl_rec.created_by = OKC_API.G_MISS_NUM)
2362: THEN
2363: x_okc_rule_defs_tl_rec.created_by := l_okc_rule_defs_tl_rec.created_by;
2364: END IF;
2365: IF (x_okc_rule_defs_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2366: THEN
2367: x_okc_rule_defs_tl_rec.creation_date := l_okc_rule_defs_tl_rec.creation_date;
2361: IF (x_okc_rule_defs_tl_rec.created_by = OKC_API.G_MISS_NUM)
2362: THEN
2363: x_okc_rule_defs_tl_rec.created_by := l_okc_rule_defs_tl_rec.created_by;
2364: END IF;
2365: IF (x_okc_rule_defs_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2366: THEN
2367: x_okc_rule_defs_tl_rec.creation_date := l_okc_rule_defs_tl_rec.creation_date;
2368: END IF;
2369: IF (x_okc_rule_defs_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2363: x_okc_rule_defs_tl_rec.created_by := l_okc_rule_defs_tl_rec.created_by;
2364: END IF;
2365: IF (x_okc_rule_defs_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2366: THEN
2367: x_okc_rule_defs_tl_rec.creation_date := l_okc_rule_defs_tl_rec.creation_date;
2368: END IF;
2369: IF (x_okc_rule_defs_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2370: THEN
2371: x_okc_rule_defs_tl_rec.last_updated_by := l_okc_rule_defs_tl_rec.last_updated_by;
2365: IF (x_okc_rule_defs_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2366: THEN
2367: x_okc_rule_defs_tl_rec.creation_date := l_okc_rule_defs_tl_rec.creation_date;
2368: END IF;
2369: IF (x_okc_rule_defs_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2370: THEN
2371: x_okc_rule_defs_tl_rec.last_updated_by := l_okc_rule_defs_tl_rec.last_updated_by;
2372: END IF;
2373: IF (x_okc_rule_defs_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2367: x_okc_rule_defs_tl_rec.creation_date := l_okc_rule_defs_tl_rec.creation_date;
2368: END IF;
2369: IF (x_okc_rule_defs_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2370: THEN
2371: x_okc_rule_defs_tl_rec.last_updated_by := l_okc_rule_defs_tl_rec.last_updated_by;
2372: END IF;
2373: IF (x_okc_rule_defs_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2374: THEN
2375: x_okc_rule_defs_tl_rec.last_update_date := l_okc_rule_defs_tl_rec.last_update_date;
2369: IF (x_okc_rule_defs_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2370: THEN
2371: x_okc_rule_defs_tl_rec.last_updated_by := l_okc_rule_defs_tl_rec.last_updated_by;
2372: END IF;
2373: IF (x_okc_rule_defs_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2374: THEN
2375: x_okc_rule_defs_tl_rec.last_update_date := l_okc_rule_defs_tl_rec.last_update_date;
2376: END IF;
2377: IF (x_okc_rule_defs_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2371: x_okc_rule_defs_tl_rec.last_updated_by := l_okc_rule_defs_tl_rec.last_updated_by;
2372: END IF;
2373: IF (x_okc_rule_defs_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2374: THEN
2375: x_okc_rule_defs_tl_rec.last_update_date := l_okc_rule_defs_tl_rec.last_update_date;
2376: END IF;
2377: IF (x_okc_rule_defs_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2378: THEN
2379: x_okc_rule_defs_tl_rec.last_update_login := l_okc_rule_defs_tl_rec.last_update_login;
2373: IF (x_okc_rule_defs_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2374: THEN
2375: x_okc_rule_defs_tl_rec.last_update_date := l_okc_rule_defs_tl_rec.last_update_date;
2376: END IF;
2377: IF (x_okc_rule_defs_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2378: THEN
2379: x_okc_rule_defs_tl_rec.last_update_login := l_okc_rule_defs_tl_rec.last_update_login;
2380: END IF;
2381: END IF;
2375: x_okc_rule_defs_tl_rec.last_update_date := l_okc_rule_defs_tl_rec.last_update_date;
2376: END IF;
2377: IF (x_okc_rule_defs_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2378: THEN
2379: x_okc_rule_defs_tl_rec.last_update_login := l_okc_rule_defs_tl_rec.last_update_login;
2380: END IF;
2381: END IF;
2382: RETURN(l_return_status);
2383: END populate_new_record;
2381: END IF;
2382: RETURN(l_return_status);
2383: END populate_new_record;
2384: -----------------------------------------
2385: -- Set_Attributes for:OKC_RULE_DEFS_TL --
2386: -----------------------------------------
2387: FUNCTION Set_Attributes (
2388: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type,
2389: x_okc_rule_defs_tl_rec OUT NOCOPY okc_rule_defs_tl_rec_type
2384: -----------------------------------------
2385: -- Set_Attributes for:OKC_RULE_DEFS_TL --
2386: -----------------------------------------
2387: FUNCTION Set_Attributes (
2388: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type,
2389: x_okc_rule_defs_tl_rec OUT NOCOPY okc_rule_defs_tl_rec_type
2390: ) RETURN VARCHAR2 IS
2391: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2392: BEGIN
2385: -- Set_Attributes for:OKC_RULE_DEFS_TL --
2386: -----------------------------------------
2387: FUNCTION Set_Attributes (
2388: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type,
2389: x_okc_rule_defs_tl_rec OUT NOCOPY okc_rule_defs_tl_rec_type
2390: ) RETURN VARCHAR2 IS
2391: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2392: BEGIN
2393: x_okc_rule_defs_tl_rec := p_okc_rule_defs_tl_rec;
2389: x_okc_rule_defs_tl_rec OUT NOCOPY okc_rule_defs_tl_rec_type
2390: ) RETURN VARCHAR2 IS
2391: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2392: BEGIN
2393: x_okc_rule_defs_tl_rec := p_okc_rule_defs_tl_rec;
2394: x_okc_rule_defs_tl_rec.LANGUAGE := USERENV('LANG');
2395: x_okc_rule_defs_tl_rec.LANGUAGE := USERENV('LANG');
2396: RETURN(l_return_status);
2397: END Set_Attributes;
2390: ) RETURN VARCHAR2 IS
2391: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2392: BEGIN
2393: x_okc_rule_defs_tl_rec := p_okc_rule_defs_tl_rec;
2394: x_okc_rule_defs_tl_rec.LANGUAGE := USERENV('LANG');
2395: x_okc_rule_defs_tl_rec.LANGUAGE := USERENV('LANG');
2396: RETURN(l_return_status);
2397: END Set_Attributes;
2398: BEGIN
2391: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2392: BEGIN
2393: x_okc_rule_defs_tl_rec := p_okc_rule_defs_tl_rec;
2394: x_okc_rule_defs_tl_rec.LANGUAGE := USERENV('LANG');
2395: x_okc_rule_defs_tl_rec.LANGUAGE := USERENV('LANG');
2396: RETURN(l_return_status);
2397: END Set_Attributes;
2398: BEGIN
2399: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2406: RAISE OKC_API.G_EXCEPTION_ERROR;
2407: END IF;
2408: --- Setting item attributes
2409: l_return_status := Set_Attributes(
2410: p_okc_rule_defs_tl_rec, -- IN
2411: l_okc_rule_defs_tl_rec); -- OUT
2412: --- If any errors happen abort API
2413: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2407: END IF;
2408: --- Setting item attributes
2409: l_return_status := Set_Attributes(
2410: p_okc_rule_defs_tl_rec, -- IN
2411: l_okc_rule_defs_tl_rec); -- OUT
2412: --- If any errors happen abort API
2413: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2415: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2415: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2416: RAISE OKC_API.G_EXCEPTION_ERROR;
2417: END IF;
2418: l_return_status := populate_new_record(l_okc_rule_defs_tl_rec, l_def_okc_rule_defs_tl_rec);
2419: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2420: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2421: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2422: RAISE OKC_API.G_EXCEPTION_ERROR;
2420: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2421: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2422: RAISE OKC_API.G_EXCEPTION_ERROR;
2423: END IF;
2424: UPDATE OKC_RULE_DEFS_TL
2425: SET MEANING = l_def_okc_rule_defs_tl_rec.meaning,
2426: DESCRIPTION = l_def_okc_rule_defs_tl_rec.description,
2427: CREATED_BY = l_def_okc_rule_defs_tl_rec.created_by,
2428: CREATION_DATE = l_def_okc_rule_defs_tl_rec.creation_date,
2421: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2422: RAISE OKC_API.G_EXCEPTION_ERROR;
2423: END IF;
2424: UPDATE OKC_RULE_DEFS_TL
2425: SET MEANING = l_def_okc_rule_defs_tl_rec.meaning,
2426: DESCRIPTION = l_def_okc_rule_defs_tl_rec.description,
2427: CREATED_BY = l_def_okc_rule_defs_tl_rec.created_by,
2428: CREATION_DATE = l_def_okc_rule_defs_tl_rec.creation_date,
2429: LAST_UPDATED_BY = l_def_okc_rule_defs_tl_rec.last_updated_by,
2422: RAISE OKC_API.G_EXCEPTION_ERROR;
2423: END IF;
2424: UPDATE OKC_RULE_DEFS_TL
2425: SET MEANING = l_def_okc_rule_defs_tl_rec.meaning,
2426: DESCRIPTION = l_def_okc_rule_defs_tl_rec.description,
2427: CREATED_BY = l_def_okc_rule_defs_tl_rec.created_by,
2428: CREATION_DATE = l_def_okc_rule_defs_tl_rec.creation_date,
2429: LAST_UPDATED_BY = l_def_okc_rule_defs_tl_rec.last_updated_by,
2430: LAST_UPDATE_DATE = l_def_okc_rule_defs_tl_rec.last_update_date,
2423: END IF;
2424: UPDATE OKC_RULE_DEFS_TL
2425: SET MEANING = l_def_okc_rule_defs_tl_rec.meaning,
2426: DESCRIPTION = l_def_okc_rule_defs_tl_rec.description,
2427: CREATED_BY = l_def_okc_rule_defs_tl_rec.created_by,
2428: CREATION_DATE = l_def_okc_rule_defs_tl_rec.creation_date,
2429: LAST_UPDATED_BY = l_def_okc_rule_defs_tl_rec.last_updated_by,
2430: LAST_UPDATE_DATE = l_def_okc_rule_defs_tl_rec.last_update_date,
2431: LAST_UPDATE_LOGIN = l_def_okc_rule_defs_tl_rec.last_update_login
2424: UPDATE OKC_RULE_DEFS_TL
2425: SET MEANING = l_def_okc_rule_defs_tl_rec.meaning,
2426: DESCRIPTION = l_def_okc_rule_defs_tl_rec.description,
2427: CREATED_BY = l_def_okc_rule_defs_tl_rec.created_by,
2428: CREATION_DATE = l_def_okc_rule_defs_tl_rec.creation_date,
2429: LAST_UPDATED_BY = l_def_okc_rule_defs_tl_rec.last_updated_by,
2430: LAST_UPDATE_DATE = l_def_okc_rule_defs_tl_rec.last_update_date,
2431: LAST_UPDATE_LOGIN = l_def_okc_rule_defs_tl_rec.last_update_login
2432: WHERE RULE_CODE = l_def_okc_rule_defs_tl_rec.rule_code
2425: SET MEANING = l_def_okc_rule_defs_tl_rec.meaning,
2426: DESCRIPTION = l_def_okc_rule_defs_tl_rec.description,
2427: CREATED_BY = l_def_okc_rule_defs_tl_rec.created_by,
2428: CREATION_DATE = l_def_okc_rule_defs_tl_rec.creation_date,
2429: LAST_UPDATED_BY = l_def_okc_rule_defs_tl_rec.last_updated_by,
2430: LAST_UPDATE_DATE = l_def_okc_rule_defs_tl_rec.last_update_date,
2431: LAST_UPDATE_LOGIN = l_def_okc_rule_defs_tl_rec.last_update_login
2432: WHERE RULE_CODE = l_def_okc_rule_defs_tl_rec.rule_code
2433: AND SOURCE_LANG = USERENV('LANG');
2426: DESCRIPTION = l_def_okc_rule_defs_tl_rec.description,
2427: CREATED_BY = l_def_okc_rule_defs_tl_rec.created_by,
2428: CREATION_DATE = l_def_okc_rule_defs_tl_rec.creation_date,
2429: LAST_UPDATED_BY = l_def_okc_rule_defs_tl_rec.last_updated_by,
2430: LAST_UPDATE_DATE = l_def_okc_rule_defs_tl_rec.last_update_date,
2431: LAST_UPDATE_LOGIN = l_def_okc_rule_defs_tl_rec.last_update_login
2432: WHERE RULE_CODE = l_def_okc_rule_defs_tl_rec.rule_code
2433: AND SOURCE_LANG = USERENV('LANG');
2434:
2427: CREATED_BY = l_def_okc_rule_defs_tl_rec.created_by,
2428: CREATION_DATE = l_def_okc_rule_defs_tl_rec.creation_date,
2429: LAST_UPDATED_BY = l_def_okc_rule_defs_tl_rec.last_updated_by,
2430: LAST_UPDATE_DATE = l_def_okc_rule_defs_tl_rec.last_update_date,
2431: LAST_UPDATE_LOGIN = l_def_okc_rule_defs_tl_rec.last_update_login
2432: WHERE RULE_CODE = l_def_okc_rule_defs_tl_rec.rule_code
2433: AND SOURCE_LANG = USERENV('LANG');
2434:
2435: UPDATE OKC_RULE_DEFS_TL
2428: CREATION_DATE = l_def_okc_rule_defs_tl_rec.creation_date,
2429: LAST_UPDATED_BY = l_def_okc_rule_defs_tl_rec.last_updated_by,
2430: LAST_UPDATE_DATE = l_def_okc_rule_defs_tl_rec.last_update_date,
2431: LAST_UPDATE_LOGIN = l_def_okc_rule_defs_tl_rec.last_update_login
2432: WHERE RULE_CODE = l_def_okc_rule_defs_tl_rec.rule_code
2433: AND SOURCE_LANG = USERENV('LANG');
2434:
2435: UPDATE OKC_RULE_DEFS_TL
2436: SET SFWT_FLAG = 'Y'
2431: LAST_UPDATE_LOGIN = l_def_okc_rule_defs_tl_rec.last_update_login
2432: WHERE RULE_CODE = l_def_okc_rule_defs_tl_rec.rule_code
2433: AND SOURCE_LANG = USERENV('LANG');
2434:
2435: UPDATE OKC_RULE_DEFS_TL
2436: SET SFWT_FLAG = 'Y'
2437: WHERE RULE_CODE = l_def_okc_rule_defs_tl_rec.rule_code
2438: AND SOURCE_LANG <> USERENV('LANG');
2439:
2433: AND SOURCE_LANG = USERENV('LANG');
2434:
2435: UPDATE OKC_RULE_DEFS_TL
2436: SET SFWT_FLAG = 'Y'
2437: WHERE RULE_CODE = l_def_okc_rule_defs_tl_rec.rule_code
2438: AND SOURCE_LANG <> USERENV('LANG');
2439:
2440: x_okc_rule_defs_tl_rec := l_okc_rule_defs_tl_rec;
2441: x_return_status := l_return_status;
2436: SET SFWT_FLAG = 'Y'
2437: WHERE RULE_CODE = l_def_okc_rule_defs_tl_rec.rule_code
2438: AND SOURCE_LANG <> USERENV('LANG');
2439:
2440: x_okc_rule_defs_tl_rec := l_okc_rule_defs_tl_rec;
2441: x_return_status := l_return_status;
2442: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2443: EXCEPTION
2444: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2491: l_def_okc_rule_defs_v_rec okc_rule_defs_v_rec_type;
2492: l_db_okc_rule_defs_v_rec okc_rule_defs_v_rec_type;
2493: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
2494: lx_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
2495: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
2496: lx_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
2497: -------------------------------
2498: -- FUNCTION fill_who_columns --
2499: -------------------------------
2492: l_db_okc_rule_defs_v_rec okc_rule_defs_v_rec_type;
2493: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
2494: lx_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
2495: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
2496: lx_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
2497: -------------------------------
2498: -- FUNCTION fill_who_columns --
2499: -------------------------------
2500: FUNCTION fill_who_columns (
2648: -----------------------------------------
2649: -- Move VIEW record to "Child" records --
2650: -----------------------------------------
2651: migrate(l_def_okc_rule_defs_v_rec, l_okc_rule_defs_b_rec);
2652: migrate(l_def_okc_rule_defs_v_rec, l_okc_rule_defs_tl_rec);
2653: -----------------------------------------------
2654: -- Call the UPDATE_ROW for each child record --
2655: -----------------------------------------------
2656: update_row(
2671: p_init_msg_list,
2672: l_return_status,
2673: x_msg_count,
2674: x_msg_data,
2675: l_okc_rule_defs_tl_rec,
2676: lx_okc_rule_defs_tl_rec
2677: );
2678: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2679: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2672: l_return_status,
2673: x_msg_count,
2674: x_msg_data,
2675: l_okc_rule_defs_tl_rec,
2676: lx_okc_rule_defs_tl_rec
2677: );
2678: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2679: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2680: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2679: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2680: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2681: RAISE OKC_API.G_EXCEPTION_ERROR;
2682: END IF;
2683: migrate(lx_okc_rule_defs_tl_rec, l_def_okc_rule_defs_v_rec);
2684: x_okc_rule_defs_v_rec := l_def_okc_rule_defs_v_rec;
2685: x_return_status := l_return_status;
2686: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2687: EXCEPTION
2944: '_PVT'
2945: );
2946: END delete_row;
2947: -------------------------------------
2948: -- delete_row for:OKC_RULE_DEFS_TL --
2949: -------------------------------------
2950: PROCEDURE delete_row(
2951: p_init_msg_list IN VARCHAR2,
2952: x_return_status OUT NOCOPY VARCHAR2,
2951: p_init_msg_list IN VARCHAR2,
2952: x_return_status OUT NOCOPY VARCHAR2,
2953: x_msg_count OUT NOCOPY NUMBER,
2954: x_msg_data OUT NOCOPY VARCHAR2,
2955: p_okc_rule_defs_tl_rec IN okc_rule_defs_tl_rec_type) IS
2956:
2957: l_api_version CONSTANT NUMBER := 1;
2958: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
2959: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2956:
2957: l_api_version CONSTANT NUMBER := 1;
2958: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
2959: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2960: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type := p_okc_rule_defs_tl_rec;
2961: l_row_notfound BOOLEAN := TRUE;
2962: BEGIN
2963: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2964: p_init_msg_list,
2969: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2970: RAISE OKC_API.G_EXCEPTION_ERROR;
2971: END IF;
2972:
2973: DELETE FROM OKC_RULE_DEFS_TL
2974: WHERE RULE_CODE = p_okc_rule_defs_tl_rec.rule_code;
2975:
2976: x_return_status := l_return_status;
2977: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2970: RAISE OKC_API.G_EXCEPTION_ERROR;
2971: END IF;
2972:
2973: DELETE FROM OKC_RULE_DEFS_TL
2974: WHERE RULE_CODE = p_okc_rule_defs_tl_rec.rule_code;
2975:
2976: x_return_status := l_return_status;
2977: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2978: EXCEPTION
3021: l_api_version CONSTANT NUMBER := 1;
3022: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3023: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3024: l_okc_rule_defs_v_rec okc_rule_defs_v_rec_type := p_okc_rule_defs_v_rec;
3025: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
3026: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
3027: BEGIN
3028: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3029: G_PKG_NAME,
3039: END IF;
3040: -----------------------------------------
3041: -- Move VIEW record to "Child" records --
3042: -----------------------------------------
3043: migrate(l_okc_rule_defs_v_rec, l_okc_rule_defs_tl_rec);
3044: migrate(l_okc_rule_defs_v_rec, l_okc_rule_defs_b_rec);
3045: -----------------------------------------------
3046: -- Call the DELETE_ROW for each child record --
3047: -----------------------------------------------
3049: p_init_msg_list,
3050: l_return_status,
3051: x_msg_count,
3052: x_msg_data,
3053: l_okc_rule_defs_tl_rec
3054: );
3055: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3056: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3057: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN