[Home] [Help]
997: raise G_EXCEPTION_HALT_VALIDATION;
998: end if;
999: --3
1000:
1001: x_return_status := OKC_UTIL.check_lookup_code('OKC_ROLE',p_cplv_rec.rle_code);
1002: if (x_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1003: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'RLE_CODE');
1004: raise G_EXCEPTION_HALT_VALIDATION;
1005: end if;
1709: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1710: /*+++++++++++++Start of hand code +++++++++++++++++*/
1711: x_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
1712: --+UK
1713: l_unq_tbl OKC_UTIL.unq_tbl_type;
1714:
1715: -- indirection
1716: l_buy_or_sell varchar2(3);
1717: l_access_level varchar2(1);
1871: l_unq_tbl(5).p_col_name := 'OBJECT1_ID2';
1872: l_unq_tbl(5).p_col_val := p_cplv_rec.OBJECT1_ID2;
1873: l_unq_tbl(6).p_col_name := 'CLE_ID';
1874: l_unq_tbl(6).p_col_val := p_cplv_rec.CLE_ID;
1875: OKC_UTIL.Check_Comp_Unique(
1876: p_view_name => 'OKC_K_PARTY_ROLES_V',
1877: p_col_tbl => l_unq_tbl,
1878: p_id => p_cplv_rec.ID,
1879: x_return_status => l_return_status);
2509: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2510: BEGIN
2511:
2512: x_okc_k_party_roles_tl_rec := p_okc_k_party_roles_tl_rec;
2513: x_okc_k_party_roles_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2514: x_okc_k_party_roles_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
2515: RETURN(l_return_status);
2516:
2517: END Set_Attributes;
2510: BEGIN
2511:
2512: x_okc_k_party_roles_tl_rec := p_okc_k_party_roles_tl_rec;
2513: x_okc_k_party_roles_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2514: x_okc_k_party_roles_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
2515: RETURN(l_return_status);
2516:
2517: END Set_Attributes;
2518: BEGIN
3915: ) RETURN VARCHAR2 IS
3916: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3917: BEGIN
3918: x_okc_k_party_roles_tl_rec := p_okc_k_party_roles_tl_rec;
3919: x_okc_k_party_roles_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
3920: x_okc_k_party_roles_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
3921:
3922: RETURN(l_return_status);
3923:
3916: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3917: BEGIN
3918: x_okc_k_party_roles_tl_rec := p_okc_k_party_roles_tl_rec;
3919: x_okc_k_party_roles_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
3920: x_okc_k_party_roles_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
3921:
3922: RETURN(l_return_status);
3923:
3924: END Set_Attributes;
4650: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4651: BEGIN
4652:
4653: x_okc_k_party_roles_tl_rec := p_okc_k_party_roles_tl_rec;
4654: x_okc_k_party_roles_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
4655:
4656: RETURN(l_return_status);
4657:
4658: END Set_Attributes;
4969: -- Procedure for mass insert in OKC_K_PARTY_ROLES _B and TL tables
4970: ---------------------------------------------------------------
4971: PROCEDURE INSERT_ROW_UPG(x_return_status OUT NOCOPY VARCHAR2,p_cplv_tbl cplv_tbl_type) IS
4972: l_tabsize NUMBER := p_cplv_tbl.COUNT;
4973: l_source_lang VARCHAR2(12) := okc_util.get_userenv_lang;
4974:
4975: in_id OKC_DATATYPES.NumberTabTyp;
4976: in_object_version_number OKC_DATATYPES.NumberTabTyp;
4977: in_sfwt_flag OKC_DATATYPES.Var3TabTyp;
5161: in_attribute15(i)
5162: -- REMOVE comma from the previous line
5163: );
5164:
5165: FOR lang_i IN OKC_UTIL.g_language_code.FIRST..OKC_UTIL.g_language_code.LAST LOOP
5166: FORALL i in 1..l_tabsize
5167: INSERT INTO OKC_K_PARTY_ROLES_TL(
5168: id,
5169: language,
5179: -- REMOVE comma from the previous line
5180: )
5181: VALUES (
5182: in_id(i),
5183: OKC_UTIL.g_language_code(lang_i),
5184: l_source_lang,
5185: in_sfwt_flag(i),
5186: in_created_by(i),
5187: in_creation_date(i),