31: AND created_by = C_User_ID;
32:
33: --
34: -- Name : Get_K_Access
35: -- Pre-reqs : FND_GLOBAL.INITIALIZE
36: -- Function : This function returns the access level of
37: -- the current user for the given contract
38: --
39: -- Parameters :
68: -- lookup, the cached result will be used instead of hitting the DB
69: -- again.
70: --
71: IF ( G_Access_Level IS NULL
72: OR G_A_User_ID <> FND_GLOBAL.User_ID
73: OR G_A_Hdr_ID <> P_K_Header_ID ) THEN
74: --
75: -- No cache output or input parameters have changed; recache
76: --
76: --
77: G_Access_Level := Get_Emp_K_Access ( P_K_Header_ID
78: , OKE_UTILS.Curr_Emp_ID );
79: G_A_Hdr_ID := P_K_Header_ID;
80: G_A_User_ID := FND_GLOBAL.User_ID;
81:
82: IF ( G_Access_Level = G_NO_ACCESS ) THEN
83: --
84: -- Current user is not defined in contract role, check to
249:
250:
251: --
252: -- Name : Get_K_Role
253: -- Pre-reqs : FND_GLOBAL.INITIALIZE
254: -- Function : This function returns the role of the
255: -- current user for the given contract
256: --
257: -- Parameters :
286: -- lookup, the cached result will be used instead of hitting the DB
287: -- again.
288: --
289: IF ( G_Role_ID IS NULL
290: OR G_R_User_ID <> FND_GLOBAL.User_ID
291: OR G_R_Hdr_ID <> P_K_Header_ID ) THEN
292: --
293: -- No cache output or input parameters have changed; recache
294: --
294: --
295: G_Role_ID := Get_Emp_K_Role ( P_K_Header_ID
296: , OKE_UTILS.Curr_Emp_ID );
297: G_R_Hdr_ID := P_K_Header_ID;
298: G_R_User_ID := FND_GLOBAL.User_ID;
299:
300: END IF;
301:
302: RETURN ( G_Role_ID );