[Home] [Help]
91:
92: PROCEDURE resource_preferences(p_resource_id IN NUMBER,
93: p_pref_table IN OUT NOCOPY t_pref_table,
94: p_evaluation_date IN DATE default sysdate,
95: p_user_id IN number default fnd_global.user_id,
96: p_resp_id IN number default -99,
97: p_ignore_user_id in boolean default false,
98: p_ignore_resp_id in boolean default false)
99:
392: -- persistent responsibiilty preference evalution would be done. Which means, we
393: -- would obtain the responsibility stored in the timecard and then obtain preferences
394: -- attached to that responsibility, if any. If no valid responsibility is obtained
395: -- from the tc and if employee_id and the resource_id is the same, then we will do
396: -- persistent resp evalution based on the FND_global.resp_id
397: --2) p_resp_id = -101 we dont have to do preference evalution on persistent responsibility
398: --
399:
400: g_debug := hr_utility.debug_enabled;
413: -- In that case, there is no need of looking into any
414: -- timecard, consider persistent responsibility also as
415: -- session responsibility.
416:
417: OPEN get_employee_id(fnd_global.user_id);
418:
419: FETCH get_employee_id
420: INTO l_employee_id ;
421:
434:
435: -- Either ways, you need this responsibility. This is the key
436: -- in case the user is the employee himself.
437:
438: l_resp_id := FND_GLOBAL.RESP_ID;
439:
440:
441: IF g_debug
442: THEN
439:
440:
441: IF g_debug
442: THEN
443: hr_utility.trace('Current user''s user_id is '||fnd_global.user_id);
444: hr_utility.trace('Current user''s person_id is '||l_employee_id);
445: END IF;
446:
447: -- make sure pref table is empty - otherwise this will interfere with the evaluation
536: EXCEPTION
537: WHEN NO_DATA_FOUND THEN null;
538: END;
539:
540: --IF(fnd_global.resp_id <> -1) THEN
541: --IF(p_resp_id <> -1) then
542:
543: -- Issue 3
544: /*If (p_user_id = -1) Then
542:
543: -- Issue 3
544: /*If (p_user_id = -1) Then
545: -- we are defaulting the value
546: -- from the fnd_global value
547: l_employee_id := fnd_global.employee_id;
548: l_user_id := fnd_global.user_id;
549: Else*/
550:
543: -- Issue 3
544: /*If (p_user_id = -1) Then
545: -- we are defaulting the value
546: -- from the fnd_global value
547: l_employee_id := fnd_global.employee_id;
548: l_user_id := fnd_global.user_id;
549: Else*/
550:
551: --End If;
544: /*If (p_user_id = -1) Then
545: -- we are defaulting the value
546: -- from the fnd_global value
547: l_employee_id := fnd_global.employee_id;
548: l_user_id := fnd_global.user_id;
549: Else*/
550:
551: --End If;
552:
584:
585: --l_resp_id = -101 here indicates that some other user (for eg TK) has modified this timecard
586: --and the current resp_id stored is the resp_id used by that user. So we should not use
587: --that resp_id for preference evalution. However we still have to do preference
588: --evaluation on persistent responsibility using resp id as fnd_global.resp_id
589: --if l_employee_id = p_resource_id
590: IF l_resp_id <> -101
591: THEN
592: BEGIN
1243:
1244: -- 1. Get full set of prefs
1245: --resource_preferences(p_resource_id, p_pref_table, p_evaluation_date);
1246: --Changed By Mithun for Persistent Responsibility Enhancement
1247: resource_preferences(p_resource_id, p_pref_table, p_evaluation_date,FND_GLOBAL.user_id, p_resp_id);
1248:
1249: -- 2. Turn the string into a table mask.
1250: string_to_table_mask(p_pref_code_list,l_table_mask);
1251:
1278: string_to_table_mask(p_pref_code,l_table_mask);
1279:
1280: -- 2. Get full set of prefs
1281: --Changed By Mithun for persistent responsibility enhancement
1282: resource_preferences(p_resource_id,l_pref_table, p_evaluation_date,fnd_global.user_id,p_resp_id);
1283:
1284: -- 3. Filter for the pref we want
1285: trim_order_prefs(l_pref_table,l_table_mask);
1286:
1411: p_end_evaluation_date DATE,
1412: p_pref_table IN OUT NOCOPY t_pref_table,
1413: p_no_prefs_outside_asg IN BOOLEAN DEFAULT FALSE,
1414: p_resp_id IN number default -99,
1415: p_resp_appl_id IN NUMBER DEFAULT fnd_global.resp_appl_id,
1416: p_ignore_resp_id in boolean default false)
1417: IS
1418:
1419: l_req NUMBER;
1802: END IF;
1803:
1804:
1805:
1806: Open get_employee_id(fnd_global.user_id);
1807: Fetch get_employee_id into l_employee_id;
1808: Close get_employee_id;
1809:
1810: IF ( p_resp_id = -99 ) AND (l_employee_id <> p_resource_id)
1820: l_find_resp_required := FALSE;
1821:
1822: END IF;
1823:
1824: l_resp_id := fnd_global.resp_id;
1825:
1826: -- make sure pref table is empty - otherwise this will interfere with the evaluation
1827: p_pref_table.delete;
1828:
1961: WHEN NO_DATA_FOUND THEN null;
1962: END;
1963:
1964: -------------------------------------------------------------------
1965: --IF(fnd_global.resp_id <> -1) THEN
1966:
1967: --Changes done by Mithun for Persistent Responsibility Enhancement
1968:
1969: If (l_resp_id <> -1 AND ( not p_ignore_resp_id)) Then
3577: end if;
3578:
3579: ELSE
3580: p_resp_id := -101;
3581: p_resp_appl_id := to_number(fnd_global.resp_appl_id);
3582: if g_debug then
3583: hr_utility.set_location ('Returning resp_id =' || p_resp_id, 55 );
3584: hr_utility.set_location ('Returning resp_appl_id =' || p_resp_appl_id, 55 );
3585: end if;
3586: END IF;
3587: ELSE
3588:
3589:
3590: p_resp_id := to_number(fnd_global.resp_id);
3591: p_resp_appl_id := to_number(fnd_global.resp_appl_id);
3592:
3593: if g_debug then
3594: hr_utility.set_location ('10 Returning resp_id =' || p_resp_id, 58 );
3587: ELSE
3588:
3589:
3590: p_resp_id := to_number(fnd_global.resp_id);
3591: p_resp_appl_id := to_number(fnd_global.resp_appl_id);
3592:
3593: if g_debug then
3594: hr_utility.set_location ('10 Returning resp_id =' || p_resp_id, 58 );
3595: hr_utility.set_location ('10 Returning resp_appl_id =' || p_resp_appl_id, 58 );
3603: end if;
3604: EXCEPTION
3605: WHEN NO_DATA_FOUND THEN
3606: p_resp_id := -101;
3607: p_resp_appl_id := to_number(fnd_global.resp_appl_id);
3608: WHEN INVALID_NUMBER THEN
3609: p_resp_id := -101;
3610: p_resp_appl_id := to_number(fnd_global.resp_appl_id);
3611: hr_utility.set_location ('Invalid Number Value found in resp_id ' || resp_id || 'for resource ' || p_resource_id , 70 );
3606: p_resp_id := -101;
3607: p_resp_appl_id := to_number(fnd_global.resp_appl_id);
3608: WHEN INVALID_NUMBER THEN
3609: p_resp_id := -101;
3610: p_resp_appl_id := to_number(fnd_global.resp_appl_id);
3611: hr_utility.set_location ('Invalid Number Value found in resp_id ' || resp_id || 'for resource ' || p_resource_id , 70 );
3612: END get_tc_resp;
3613:
3614: