[Home] [Help]
2: /* $Header: OKCSCNHB.pls 120.0 2005/05/25 19:34:59 appldev noship $ */
3:
4: l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5:
6: l_lang VARCHAR2(12) := okc_util.get_userenv_lang;
7: ---------------------------------------------------------------------------
8: -- FUNCTION get_seq_id
9: ---------------------------------------------------------------------------
10: FUNCTION get_seq_id RETURN NUMBER IS
2132: ,p_cnhv_rec IN cnhv_rec_type) IS
2133:
2134:
2135: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2136: --l_unq_tbl OKC_UTIL.unq_tbl_type;
2137: l_dummy VARCHAR2(1);
2138: l_row_found Boolean := False;
2139: CURSOR c1 IS
2140: SELECT 'x'
2170: -- initialize return status
2171: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2172:
2173: -- call check_comp_unique utility
2174: OKC_UTIL.CHECK_COMP_UNIQUE(p_view_name => 'OKC_CONDITION_HEADERS_V'
2175: ,p_col_tbl => l_unq_tbl
2176: ,p_id => p_cnhv_rec.id
2177: ,x_return_status => l_return_status);
2178:
5054: -- Procedure for mass insert in OKC_CONDITION_HEADERS _B and TL tables
5055: ---------------------------------------------------------------
5056: PROCEDURE INSERT_ROW_UPG(x_return_status OUT NOCOPY VARCHAR2, p_cnhv_tbl cnhv_tbl_type) IS
5057: l_tabsize NUMBER := p_cnhv_tbl.COUNT;
5058: l_source_lang VARCHAR2(12) := okc_util.get_userenv_lang;
5059:
5060: in_id OKC_DATATYPES.NumberTabTyp;
5061: in_object_version_number OKC_DATATYPES.NumberTabTyp;
5062: in_sfwt_flag OKC_DATATYPES.Var3TabTyp;
5249: in_seeded_flag(i),
5250: in_last_rundate(i)
5251: );
5252:
5253: FOR lang_i IN OKC_UTIL.g_language_code.FIRST..OKC_UTIL.g_language_code.LAST LOOP
5254: FORALL i in 1..l_tabsize
5255: INSERT INTO OKC_CONDITION_HEADERS_TL(
5256: id,
5257: language,
5268: name
5269: )
5270: VALUES (
5271: in_id(i),
5272: OKC_UTIL.g_language_code(lang_i),
5273: l_source_lang,
5274: in_sfwt_flag(i),
5275: in_description(i),
5276: in_short_description(i),