1 PACKAGE BODY GMF_FND_GET_USERID AS
2 /* $Header: gmfusrib.pls 115.2 2002/11/11 00:46:23 rseshadr Exp $ */
3 CURSOR cur_get_user_id(st_date date, en_date date,
4 usr_name varchar2) IS
5 SELECT user_id
6 FROM fnd_user
7 WHERE lower(user_name) LIKE lower(usr_name) AND
8 creation_date BETWEEN
9 nvl(start_date,creation_date) AND
10 nvl(end_date,creation_date);
11 PROCEDURE proc_fnd_get_user_id(
12 start_date in out NOCOPY date,
13 end_date in out NOCOPY date,
14 usr_name varchar2,
15 user_id out NOCOPY number,
16 row_to_fetch in out NOCOPY number,
17 error_status out NOCOPY number) IS
18 st_date date;
19 en_date date;
20 Begin /*Beginning of procedure proc_fnd_get_user_id*/
21 st_date := start_date;
22 en_date := end_date;
23 IF NOT cur_get_user_id%ISOPEN THEN
24 OPEN cur_get_user_id(st_date, en_date, usr_name);
25 END IF;
26 FETCH cur_get_user_id
27 INTO user_id;
28 if cur_get_user_id%NOTFOUND then
29 error_status := 100;
30 end if;
31 IF cur_get_user_id%NOTFOUND or row_to_fetch = 1 THEN
32 CLOSE cur_get_user_id;
33 END IF;
34 EXCEPTION
35 WHEN OTHERS THEN
36 error_status := SQLCODE;
37 END; /*End of procedure proc_fnd_get_user_id*/
38 END GMF_FND_GET_USERID; -- END GMF_FND_GET_USERID
[Home] [Help]