[Home] [Help]
4231: -- returns OKC_API.G_RET_STS_ERROR or OKC_API.G_RET_STS_UNEXP_ERROR
4232: -- in case of error
4233: --
4234: FUNCTION Update_Allowed(p_chr_id IN NUMBER) RETURN VARCHAR2 Is
4235: l_sts_code OKC_ASSENTS.STS_CODE%TYPE;
4236: l_scs_code OKC_ASSENTS.SCS_CODE%TYPE;
4237: l_return_value VARCHAR2(1) := 'Y';
4238:
4239: Cursor l_chrv_csr Is
4232: -- in case of error
4233: --
4234: FUNCTION Update_Allowed(p_chr_id IN NUMBER) RETURN VARCHAR2 Is
4235: l_sts_code OKC_ASSENTS.STS_CODE%TYPE;
4236: l_scs_code OKC_ASSENTS.SCS_CODE%TYPE;
4237: l_return_value VARCHAR2(1) := 'Y';
4238:
4239: Cursor l_chrv_csr Is
4240: SELECT sts_code, scs_code
4246: WHERE id = p_chr_id;
4247:
4248: Cursor l_astv_csr Is
4249: SELECT upper(substr(allowed_yn,1,1))
4250: FROM okc_assents
4251: WHERE sts_code = l_sts_code
4252: AND scs_code = l_scs_code
4253: AND opn_code = 'UPDATE';
4254: BEGIN