[Home] [Help]
7: -- Bug 4664653 START
8: g_emp_id NUMBER;
9: g_emp_name PER_EMPLOYEES_CURRENT_X.FULL_NAME%TYPE;
10: g_location_id NUMBER;
11: g_location_code HR_LOCATIONS.LOCATION_CODE%TYPE;
12: g_is_buyer BOOLEAN;
13: g_emp_flag BOOLEAN;
14: g_user_id NUMBER;
15: -- Bug 4664653 END
30: Err : Returns FALSE if error. Error message written on message stack
31: Algr: get user id of current user
32: get emp_id, emp_name and location_id from hr_employees_cur_v
33: if NO ROWS return false
34: get location_code from hr_locations
35: check if employee is a buyer
36: Note: If user is an employee then emp_flag is TRUE
37: else emp_flag will be FALSE.
38: If the employee has a location then location_id will point to his
56:
57: /** PO UTF8 Column Expansion Project 9/18/2002 tpoon **/
58: /** Changed X_location_code to use %TYPE **/
59: -- X_location_code VARCHAR2(20) := '' ; /* stores the employee location */
60: X_location_code hr_locations_all.location_code%TYPE := ''; /* stores the employee location */
61:
62: X_buyer_code VARCHAR2(1) := 'Y' ; /* dummy, stores buyer status */
63: mesg_buffer VARCHAR2(2000) := '' ; /* for handling error messages */
64: X_progress varchar2(3) := '';
289: */
290: --
291: SELECT HR.LOCATION_CODE
292: INTO X_location_code
293: FROM HR_LOCATIONS HR,
294: ORG_ORGANIZATION_DEFINITIONS OOD
295: WHERE HR.LOCATION_ID = X_location_id
296: AND HR.INVENTORY_ORGANIZATION_ID = OOD.ORGANIZATION_ID (+) ;
297: