[Home] [Help]
1: PACKAGE BODY Okl_Cs_Lc_Contract_Pvt AS
2: /* $Header: OKLRLCRB.pls 120.34.12020000.4 2012/10/08 06:21:48 vsgandhi ship $ */
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.34.12020000.4 2012/10/08 06:21:48 vsgandhi ship $ */
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
975: l_read_access CONSTANT VARCHAR2(1) := 'R';
976: l_no_access CONSTANT VARCHAR2(1) := 'N';
977: l_resp_access okc_subclass_resps.access_level%TYPE;
978: l_resource_access okc_subclass_resps.access_level%TYPE;
979: l_group_access okc_k_accesses.access_level%TYPE;
980: l_group_id okc_k_accesses.group_id%TYPE;
981: l_row_notfound BOOLEAN;
982: l_group_has_read_access BOOLEAN;
983: l_date DATE := SYSDATE;
976: l_no_access CONSTANT VARCHAR2(1) := 'N';
977: l_resp_access okc_subclass_resps.access_level%TYPE;
978: l_resource_access okc_subclass_resps.access_level%TYPE;
979: l_group_access okc_k_accesses.access_level%TYPE;
980: l_group_id okc_k_accesses.group_id%TYPE;
981: l_row_notfound BOOLEAN;
982: l_group_has_read_access BOOLEAN;
983: l_date DATE := SYSDATE;
984: exception_modify_access EXCEPTION;
1018: AND rr.role_type_code = 'CONTRACTS';
1019: -- This checks the access level for the resource and the contract
1020: CURSOR res_acc_csr IS
1021: SELECT cas.access_level
1022: FROM okc_k_accesses cas
1023: WHERE cas.chr_id = p_chr_id
1024: AND cas.resource_id = g_user_resource_id;
1025: -- This cursor selects all the resource groups and the access level
1026: -- for the contract.
1026: -- for the contract.
1027: CURSOR grp_acc_csr IS
1028: SELECT cas.group_id,
1029: cas.access_level
1030: FROM okc_k_accesses cas
1031: WHERE cas.chr_id = p_chr_id
1032: AND cas.group_id IS NOT NULL
1033: ORDER BY 2 DESC;
1034: -- This cursor selects all the resource groups that the resource