1041: BEGIN
1042: x_error_code := 0;
1043: select count(*)
1044: into l_count
1045: from fnd_user
1046: where user_name = p_user_name;
1047: if (l_count = 0) then
1048: x_error_code := 1;
1049: x_user_id := 0;
1050: x_error_message := 'Invalid User Name ' || p_user_name;
1051: else
1052: select user_id
1053: into x_user_id
1054: from fnd_user
1055: where user_name = p_user_name;
1056: end if;
1057: END get_user_id;
1058: