2099:
2100: --cursor to find out chr id required to flip status at edit point
2101: CURSOR chr_id_crs (p_cpl_id IN NUMBER) IS
2102: SELECT DNZ_CHR_ID
2103: FROM OKC_K_PARTY_ROLES_B
2104: WHERE ID = P_CPL_ID;
2105:
2106: l_dnz_chr_id OKC_K_PARTY_ROLES_B.dnz_chr_id%TYPE;
2107:
2102: SELECT DNZ_CHR_ID
2103: FROM OKC_K_PARTY_ROLES_B
2104: WHERE ID = P_CPL_ID;
2105:
2106: l_dnz_chr_id OKC_K_PARTY_ROLES_B.dnz_chr_id%TYPE;
2107:
2108:
2109:
2110: BEGIN
2279: l_api_name CONSTANT VARCHAR2(30) := 'OKL_CREATE_CONTACT';
2280:
2281: CURSOR contact_csr(p_cro_code VARCHAR2, p_cpl_id NUMBER) IS
2282: SELECT access_level
2283: FROM OKC_CONTACT_SOURCES a, okc_k_party_roles_b b
2284: WHERE a.cro_code = p_cro_code
2285: AND b.id = p_cpl_id
2286: AND a.rle_code = b.rle_code
2287: AND a.buy_or_sell = 'S';
2485: l_api_name CONSTANT VARCHAR2(30) := 'OKL_UPDATE_CONTACT';
2486:
2487: CURSOR contact_csr(p_cro_code VARCHAR2, p_cpl_id NUMBER) IS
2488: SELECT access_level
2489: FROM OKC_CONTACT_SOURCES a, okc_k_party_roles_b b
2490: WHERE a.cro_code = p_cro_code
2491: AND b.id = p_cpl_id
2492: AND a.rle_code = b.rle_code
2493: AND a.buy_or_sell = 'S';