[Home] [Help]
1: PACKAGE BODY Okl_Cs_Lc_Contract_Pvt AS
2: /* $Header: OKLRLCRB.pls 120.32 2008/04/10 12:11:06 dkagrawa noship $ */
3: g_user_id NUMBER := Okl_Api.G_MISS_NUM;
4: g_resp_id NUMBER := Okl_Api.G_MISS_NUM;
5: g_user_resource_id okc_k_accesses.resource_id%TYPE := Okl_Api.G_MISS_NUM;
6: g_resp_access okc_k_accesses.access_level%TYPE := Okl_Api.G_MISS_CHAR;
7: g_reset_access_flag BOOLEAN := FALSE;
8: g_scs_code okc_k_headers_b.scs_code%TYPE := Okl_Api.G_MISS_CHAR;
9: g_groups_processed BOOLEAN := FALSE;
2: /* $Header: OKLRLCRB.pls 120.32 2008/04/10 12:11:06 dkagrawa noship $ */
3: g_user_id NUMBER := Okl_Api.G_MISS_NUM;
4: g_resp_id NUMBER := Okl_Api.G_MISS_NUM;
5: g_user_resource_id okc_k_accesses.resource_id%TYPE := Okl_Api.G_MISS_NUM;
6: g_resp_access okc_k_accesses.access_level%TYPE := Okl_Api.G_MISS_CHAR;
7: g_reset_access_flag BOOLEAN := FALSE;
8: g_scs_code okc_k_headers_b.scs_code%TYPE := Okl_Api.G_MISS_CHAR;
9: g_groups_processed BOOLEAN := FALSE;
10: g_reset_lang_flag BOOLEAN := FALSE;
16:
17: --varangan added the formula name variable for bug #5009351
18: g_formula_next_payment_amt CONSTANT okl_formulae_v.name%TYPE := 'OKL_LC_NEXT_PAYMENT_AMOUNT';
19:
20: TYPE sec_group_tbl IS TABLE OF okc_k_accesses.group_id%TYPE;
21: g_sec_groups sec_group_tbl;
22:
23: PROCEDURE EXECUTE(p_api_version IN NUMBER
24: ,p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE
937: l_read_access CONSTANT VARCHAR2(1) := 'R';
938: l_no_access CONSTANT VARCHAR2(1) := 'N';
939: l_resp_access okc_subclass_resps.access_level%TYPE;
940: l_resource_access okc_subclass_resps.access_level%TYPE;
941: l_group_access okc_k_accesses.access_level%TYPE;
942: l_group_id okc_k_accesses.group_id%TYPE;
943: l_row_notfound BOOLEAN;
944: l_group_has_read_access BOOLEAN;
945: l_date DATE := SYSDATE;
938: l_no_access CONSTANT VARCHAR2(1) := 'N';
939: l_resp_access okc_subclass_resps.access_level%TYPE;
940: l_resource_access okc_subclass_resps.access_level%TYPE;
941: l_group_access okc_k_accesses.access_level%TYPE;
942: l_group_id okc_k_accesses.group_id%TYPE;
943: l_row_notfound BOOLEAN;
944: l_group_has_read_access BOOLEAN;
945: l_date DATE := SYSDATE;
946: exception_modify_access EXCEPTION;
980: AND rr.role_type_code = 'CONTRACTS';
981: -- This checks the access level for the resource and the contract
982: CURSOR res_acc_csr IS
983: SELECT cas.access_level
984: FROM okc_k_accesses cas
985: WHERE cas.chr_id = p_chr_id
986: AND cas.resource_id = g_user_resource_id;
987: -- This cursor selects all the resource groups and the access level
988: -- for the contract.
988: -- for the contract.
989: CURSOR grp_acc_csr IS
990: SELECT cas.group_id,
991: cas.access_level
992: FROM okc_k_accesses cas
993: WHERE cas.chr_id = p_chr_id
994: AND cas.group_id IS NOT NULL
995: ORDER BY 2 DESC;
996: -- This cursor selects all the resource groups that the resource