163: ) AS
164: l_user_id NUMBER;
165: l_login_id NUMBER;
166: --
167: CURSOR Fnd_User_csr (p_id in number) is
168: Select
169: user_name
170: From fnd_user
171: Where user_id = p_id;
166: --
167: CURSOR Fnd_User_csr (p_id in number) is
168: Select
169: user_name
170: From fnd_user
171: Where user_id = p_id;
172: l_fnd_user_info Fnd_User_csr%ROWTYPE;
173: --
174: BEGIN
168: Select
169: user_name
170: From fnd_user
171: Where user_id = p_id;
172: l_fnd_user_info Fnd_User_csr%ROWTYPE;
173: --
174: BEGIN
175: --Get the current login user id.
176: Get_LoginUserId(l_user_id, l_login_id);
175: --Get the current login user id.
176: Get_LoginUserId(l_user_id, l_login_id);
177: -- If p_user_id is not the current login user.
178: IF (p_user_id <> FND_API.G_MISS_NUM AND p_user_id <> l_user_id ) THEN
179: OPEN Fnd_User_csr(p_user_id);
180: FETCH Fnd_User_csr into l_fnd_user_info;
181: IF Fnd_User_csr%NOTFOUND THEN
182: x_user_status := G_USER_NOT_EXIST;
183: x_user_id := FND_API.G_MISS_NUM;
176: Get_LoginUserId(l_user_id, l_login_id);
177: -- If p_user_id is not the current login user.
178: IF (p_user_id <> FND_API.G_MISS_NUM AND p_user_id <> l_user_id ) THEN
179: OPEN Fnd_User_csr(p_user_id);
180: FETCH Fnd_User_csr into l_fnd_user_info;
181: IF Fnd_User_csr%NOTFOUND THEN
182: x_user_status := G_USER_NOT_EXIST;
183: x_user_id := FND_API.G_MISS_NUM;
184: x_resource_id := FND_API.G_MISS_NUM;
177: -- If p_user_id is not the current login user.
178: IF (p_user_id <> FND_API.G_MISS_NUM AND p_user_id <> l_user_id ) THEN
179: OPEN Fnd_User_csr(p_user_id);
180: FETCH Fnd_User_csr into l_fnd_user_info;
181: IF Fnd_User_csr%NOTFOUND THEN
182: x_user_status := G_USER_NOT_EXIST;
183: x_user_id := FND_API.G_MISS_NUM;
184: x_resource_id := FND_API.G_MISS_NUM;
185: x_login_id := FND_API.G_MISS_NUM;
192: IF (x_resource_id = FND_API.G_MISS_NUM) THEN
193: x_user_status := G_NO_RESOURCE;
194: END IF;
195: END IF;
196: CLOSE Fnd_User_csr;
197: ELSE
198: x_user_status := G_ACTIVE;
199: x_user_id := l_user_id;
200: x_login_id := l_login_id;
245: ) AS
246: l_user_id NUMBER;
247: l_login_id NUMBER;
248: --
249: CURSOR Fnd_User_csr (p_id in number) is
250: Select
251: user_id, user_name
252: From fnd_user
253: Where user_id = p_id;
248: --
249: CURSOR Fnd_User_csr (p_id in number) is
250: Select
251: user_id, user_name
252: From fnd_user
253: Where user_id = p_id;
254: l_fnd_user_info Fnd_User_csr%ROWTYPE;
255: --
256: BEGIN
250: Select
251: user_id, user_name
252: From fnd_user
253: Where user_id = p_id;
254: l_fnd_user_info Fnd_User_csr%ROWTYPE;
255: --
256: BEGIN
257: --Get the current login user id.
258: Get_LoginUserId(l_user_id, l_login_id);
258: Get_LoginUserId(l_user_id, l_login_id);
259: -- If p_user_id is not the current login user.
260: IF (p_user_id <> FND_API.G_MISS_NUM AND
261: p_user_id <> l_user_id ) THEN
262: OPEN Fnd_User_csr(p_user_id);
263: FETCH Fnd_User_csr into l_fnd_user_info;
264: IF Fnd_User_csr%NOTFOUND THEN
265: x_user_status := G_NOT_EXIST;
266: x_user_id := FND_API.G_MISS_NUM;
259: -- If p_user_id is not the current login user.
260: IF (p_user_id <> FND_API.G_MISS_NUM AND
261: p_user_id <> l_user_id ) THEN
262: OPEN Fnd_User_csr(p_user_id);
263: FETCH Fnd_User_csr into l_fnd_user_info;
264: IF Fnd_User_csr%NOTFOUND THEN
265: x_user_status := G_NOT_EXIST;
266: x_user_id := FND_API.G_MISS_NUM;
267: x_login_id := FND_API.G_MISS_NUM;
260: IF (p_user_id <> FND_API.G_MISS_NUM AND
261: p_user_id <> l_user_id ) THEN
262: OPEN Fnd_User_csr(p_user_id);
263: FETCH Fnd_User_csr into l_fnd_user_info;
264: IF Fnd_User_csr%NOTFOUND THEN
265: x_user_status := G_NOT_EXIST;
266: x_user_id := FND_API.G_MISS_NUM;
267: x_login_id := FND_API.G_MISS_NUM;
268: ELSE
269: x_user_status := G_USER_ENABLE;
270: x_user_id := p_user_id;
271: x_login_id := FND_API.G_MISS_NUM;
272: END IF;
273: CLOSE Fnd_User_csr;
274: ELSE
275: x_user_status := G_USER_ENABLE;
276: x_user_id := l_user_id;
277: x_login_id := l_login_id;