1: package body okc_contract_group_pvt as
2: /* $Header: OKCCCGPB.pls 120.1 2011/05/02 04:14:16 skuchima ship $ */
3:
4: l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5:
6: PROCEDURE add_language IS
7: BEGIN
8: okc_cgp_pvt.add_language;
557: l_group_public_yn OKC_K_GROUPS_B.PUBLIC_YN%TYPE;
558: l_subgroup_public_yn OKC_K_GROUPS_B.PUBLIC_YN%TYPE;
559: l_group_user_id OKC_K_GROUPS_B.USER_ID%TYPE;
560: l_subgroup_user_id OKC_K_GROUPS_B.USER_ID%TYPE;
561: l_user_id NUMBER(15) := TO_NUMBER(fnd_profile.value('USER_ID'));
562: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
563: BEGIN
564: OPEN okc_cgpv_csr(p_cgcv_rec.cgp_parent_id);
565: FETCH okc_cgpv_csr