[Home] [Help]
108: l_resource_type_id NUMBER := p_resource_type_id;
109:
110: /* Added for Bug# 6056112 */
111: l_pa_resource_id NUMBER ;
112: l_future_term_wf_flag pa_resources.future_term_wf_flag%TYPE := NULL ;
113:
114: CURSOR r_ids IS
115: SELECT person_id
116: FROM per_all_people_f
135:
136: IF (l_pa_resource_id <> -999) THEN
137: SELECT nvl(future_term_wf_flag,'N')
138: INTO l_future_term_wf_flag
139: FROM pa_resources
140: WHERE resource_id = l_pa_resource_id;
141: END IF ;
142: /* End of Changes for Bug 6056112 */
143:
157: IF (nvl(l_future_term_wf_flag,'N') = 'Y') THEN
158:
159: SELECT DISTINCT(prd.person_id)
160: INTO x_resource_id
161: FROM pa_resources_denorm prd
162: WHERE prd.person_id = p_resource_id
163: AND trunc(p_date) > = (Select trunc(min(prd1.resource_effective_start_date))
164: from pa_resources_denorm prd1
165: where prd1.person_id = prd.person_id)
160: INTO x_resource_id
161: FROM pa_resources_denorm prd
162: WHERE prd.person_id = p_resource_id
163: AND trunc(p_date) > = (Select trunc(min(prd1.resource_effective_start_date))
164: from pa_resources_denorm prd1
165: where prd1.person_id = prd.person_id)
166: AND (trunc(p_end_date) is null
167: OR
168: trunc(p_end_date) < = (Select trunc(max(prd2.resource_effective_end_date))
165: where prd1.person_id = prd.person_id)
166: AND (trunc(p_end_date) is null
167: OR
168: trunc(p_end_date) < = (Select trunc(max(prd2.resource_effective_end_date))
169: from pa_resources_denorm prd2
170: where prd2.person_id = prd.person_id) );
171: ELSE
172:
173: SELECT per.person_id
373: -- use p_resource_id to get the CRM resource_id
374:
375: select jtf_resource_id
376: into x_jtf_resource_id
377: from pa_resources
378: where resource_id = l_resource_id;
379:
380: ELSIF P_PROJECT_PLAYER_ID is not null
381: AND P_RESOURCE_ID is null THEN
383: -- use p_project_player_id to get the CRM resource_id
384:
385: select a.jtf_resource_id
386: into x_jtf_resource_id
387: from pa_resources a, pa_project_parties b
388: where a.resource_id = b.resource_id
389: and b.project_party_id = l_project_player_id;
390:
391: ELSIF (P_PROJECT_PLAYER_ID is not null
429: cursor get_org_id_from_resource is
430: select
431: resource_org_id
432: from
433: pa_resources_denorm
434: where
435: resource_id = p_resource_id
436: and p_start_date between resource_effective_start_date
437: and resource_effective_end_date;
456: close get_org_id_from_resource;
457:
458: If l_prvdr_org_id IS NULL Then
459: /* A resource identifier was passed that does not
460: * exist in pa_resources_denorm table and is therefore
461: * invalid so raise exception.
462: */
463: raise NULL_INVALID_PARAMS;
464: End If;
577: cursor cur_exist(l_res_id in NUMBER, l_date IN date) is
578: select 'X'
579: from dual
580: where exists (select res.resource_id
581: from pa_resources_denorm res,
582: pa_all_organizations org
583: where org.pa_org_use_type = 'EXPENDITURES'
584: and org.inactive_date IS NULL
585: and org.organization_id = res.resource_organization_id
841: -- pressed.
842: -- But the resource name could have been entered - AFTER pressing the FIND button.
843: --
844: IF p_role_name = 'PA_PRM_RES_AUTH' THEN
845: l_object_name := 'PA_RESOURCES';
846: l_set_name := 'PA_RESOURCE_AUTHORITY';
847: ELSIF p_role_name = 'PA_PRM_PROJ_AUTH' THEN
848: l_object_name := 'PA_PROJECTS';
849: l_set_name := 'PA_PROJECT_AUTHORITY';
970:
971: BEGIN
972:
973: IF p_role_name = 'PA_PRM_RES_AUTH' THEN
974: l_object_name := 'PA_RESOURCES';
975: l_set_name := 'PA_RESOURCE_AUTHORITY';
976: ELSIF p_role_name = 'PA_PRM_PROJ_AUTH' THEN
977: l_object_name := 'PA_PROJECTS';
978: l_set_name := 'PA_PROJECT_AUTHORITY';
1960: -- Added parameter p_date in DATE
1961: -- The above parameter p_date stands for period_end_date
1962: -- and is used instead of sysdate used before
1963: -- Changes for Organization Utilization performance improvements
1964: -- Logic uses PA_RESOURCES_DENORM table instead of PER_ASSIGNMENTS_F
1965: FUNCTION Get_People_Assigned(p_org_id in pa_resources_denorm.resource_organization_id%TYPE,
1966: p_date in DATE,
1967: p_emp_type IN VARCHAR DEFAULT 'EMP') RETURN NUMBER --Added p_emp_type for bug 5680366
1968: IS
1961: -- The above parameter p_date stands for period_end_date
1962: -- and is used instead of sysdate used before
1963: -- Changes for Organization Utilization performance improvements
1964: -- Logic uses PA_RESOURCES_DENORM table instead of PER_ASSIGNMENTS_F
1965: FUNCTION Get_People_Assigned(p_org_id in pa_resources_denorm.resource_organization_id%TYPE,
1966: p_date in DATE,
1967: p_emp_type IN VARCHAR DEFAULT 'EMP') RETURN NUMBER --Added p_emp_type for bug 5680366
1968: IS
1969: l_count NUMBER;
1969: l_count NUMBER;
1970: BEGIN
1971: /* Commented for bug 5680366
1972: select count(*) into l_count
1973: from pa_resources_denorm
1974: where resource_organization_id = p_org_id
1975: and p_date between resource_effective_start_date and resource_effective_end_date;
1976: */
1977:
1976: */
1977:
1978: IF p_emp_type = 'EMP' THEN -- Added IF for 5680366
1979: select count(*) into l_count
1980: from pa_resources_denorm
1981: where resource_organization_id = p_org_id
1982: and p_date between resource_effective_start_date and resource_effective_end_date
1983: AND RESOURCE_PERSON_TYPE = 'EMP';
1984: ELSIF p_emp_type = 'CWK' THEN -- Added ELSE for 5680366
1982: and p_date between resource_effective_start_date and resource_effective_end_date
1983: AND RESOURCE_PERSON_TYPE = 'EMP';
1984: ELSIF p_emp_type = 'CWK' THEN -- Added ELSE for 5680366
1985: select count(*) into l_count
1986: from pa_resources_denorm
1987: where resource_organization_id = p_org_id
1988: and p_date between resource_effective_start_date and resource_effective_end_date
1989: AND RESOURCE_PERSON_TYPE = 'CWK';
1990: ELSE ---Same as earlier
1988: and p_date between resource_effective_start_date and resource_effective_end_date
1989: AND RESOURCE_PERSON_TYPE = 'CWK';
1990: ELSE ---Same as earlier
1991: select count(*) into l_count
1992: from pa_resources_denorm
1993: where resource_organization_id = p_org_id
1994: and p_date between resource_effective_start_date and resource_effective_end_date;
1995: END IF;
1996:
2033: p_end_date in DATE,
2034: p_year in NUMBER) RETURN NUMBER
2035: IS
2036: --MOAC Changes : Bug 4363092: Get the value of org from PA_MOAC_UTILS.GET_CURRENT_ORG_ID
2037: /* CURSOR c_suborg(p_org_id in pa_resources_denorm.resource_organization_id%TYPE) IS
2038: select org.child_organization_id c_org
2039: from pa_org_hierarchy_denorm org,
2040: pa_implementations imp
2041: where org.parent_organization_id = p_org_id
2045: and nvl(org.org_id,nvl(to_number(decode(substr(userenv('client_info'),1,1),' ',null,
2046: substr(userenv('client_info'),1,10))), -99)) =
2047: nvl(to_number(decode(substr(userenv('client_info'),1,1),' ',null,substr(userenv('client_info'),1,10))),-99)
2048: order by org.child_organization_id; */
2049: CURSOR c_suborg(p_org_id in pa_resources_denorm.resource_organization_id%TYPE) IS
2050: select org.child_organization_id c_org
2051: from pa_org_hierarchy_denorm org,
2052: pa_implementations imp
2053: where org.parent_organization_id = p_org_id
2378: BEGIN
2379: -- reset current_project_id before set it up again
2380: PA_RESOURCE_UTILS.G_CURRENT_PROJECT_ID := NULL;
2381:
2382: -- 4778041 : For performance , removed join of pa_resources_denorm
2383: SELECT proj.name || '(' || proj.segment1 || ')',
2384: proj.project_id
2385: INTO l_proj_name_number,
2386: l_project_id
2383: SELECT proj.name || '(' || proj.segment1 || ')',
2384: proj.project_id
2385: INTO l_proj_name_number,
2386: l_project_id
2387: FROM --pa_resources_denorm res,
2388: pa_project_assignments asgmt,
2389: pa_projects_all proj,
2390: pa_project_statuses ps
2391: WHERE --trunc(sysdate) between trunc(res.resource_effective_start_date)
2867: -- FUNCTION
2868: -- Is_Future_Resource
2869: -- PURPOSE
2870: -- This procedure checks if a person has only future
2871: -- records in pa_resources_denorm
2872: --
2873: -- HISTORY
2874: -- 31-AUG-2001 created virangan
2875: --
2881: BEGIN
2882:
2883: SELECT min(resource_effective_start_date)
2884: INTO l_start_date
2885: FROM pa_resources_denorm
2886: WHERE resource_id = p_resource_id
2887: ;
2888:
2889: IF l_start_date <= sysdate THEN
2906: -- FUNCTION
2907: -- Get_Resource_Start_date
2908: -- PURPOSE
2909: -- This procedure returns the start date of the resource
2910: -- in pa_resources_denorm
2911: --
2912: -- HISTORY
2913: -- 31-AUG-2001 created virangan
2914: --
2921: BEGIN
2922:
2923: SELECT min(resource_effective_start_date)
2924: INTO l_start_date
2925: FROM pa_resources_denorm
2926: WHERE resource_id = p_resource_id
2927: ;
2928:
2929: RETURN l_start_date;
2939: -- FUNCTION
2940: -- Get_Resource_Effective_date
2941: -- PURPOSE
2942: -- This procedure returns the effective date of the resource
2943: -- in pa_resources_denorm. This is the resource_effective_start_date
2944: -- for a future resource or sysdate for active resources
2945: --
2946: -- HISTORY
2947: -- 17-SEP-2001 created virangan
3092:
3093: BEGIN
3094: SELECT resource_organization_id
3095: INTO l_organization_id
3096: FROM pa_resources_denorm
3097: WHERE p_wk_date BETWEEN resource_effective_start_date AND resource_effective_end_date
3098: AND resource_id = p_resource_id ;
3099:
3100: EXCEPTION
3121: BEGIN
3122:
3123: SELECT jcra.calendar_id
3124: INTO l_calendar_id
3125: FROM pa_resources par,
3126: jtf_cal_resource_assign jcra
3127: WHERE par.jtf_resource_id = jcra.resource_id
3128: AND par.resource_id = p_resource_id
3129: AND p_wk_date between jcra.start_date_time and nvl(jcra.end_date_time,to_date('31-12-4712', 'DD-MM-YYYY'));
3333: -- this cursor checks whether the person is the Resource Manager of
3334: -- the resource in the supervisor hierarchy
3335: CURSOR check_res_mgr IS
3336: SELECT 'Y'
3337: FROM pa_resources_denorm
3338: WHERE sysdate < resource_effective_end_date
3339: AND manager_id = l_manager_id
3340: START WITH resource_id = l_resource_id
3341: CONNECT BY
3347: -- this cursor checks whether the person is the Staffing Manager of
3348: -- the resource
3349: CURSOR check_staff_mgr IS
3350: SELECT 'Y'
3351: FROM pa_resources_denorm res,
3352: fnd_grants fg,
3353: fnd_objects fob,
3354: per_all_people_f per,
3355: wf_roles wfr,
3490: -- PROCEDURE
3491: -- validate_person
3492: -- PURPOSE
3493: -- This procedure checks if the resource is valid as of the assignment
3494: -- start date in the pa_resources_denorm table
3495: -- HISTORY
3496: -- 26-FEB-2002 adabdull Created
3497: --
3498: PROCEDURE validate_person ( p_person_id IN NUMBER,
3586: and asgn.assignment_type in ('E', 'C'); /* Bug 2777643 */
3587:
3588: cursor validate_resource is
3589: select person_id
3590: from pa_resources_denorm
3591: where person_id = p_person_id
3592: and p_start_date between resource_effective_start_date
3593: and resource_effective_end_date;
3594:
3596: BEGIN
3597: PA_DEBUG.set_err_stack('Validate_person');
3598:
3599: -------------------------------------------------------------------------
3600: --Cursor which checks if record exists in pa_resources_denorm
3601: --as of the p_Start_date
3602: -------------------------------------------------------------------------
3603: OPEN validate_resource;
3604: FETCH validate_resource into l_person_id;
3704: BEGIN
3705:
3706: SELECT resource_type_code
3707: INTO l_resource_type
3708: FROM pa_resources pr, pa_resource_types pt
3709: WHERE pr.resource_id = p_resource_id
3710: AND pr.resource_type_id = pt.resource_type_id;
3711:
3712: RETURN l_resource_type;
3928: p_resource_source_id IN NUMBER)
3929: RETURN VARCHAR2 IS
3930:
3931: l_resource_type_code pa_resource_types.resource_type_code%TYPE;
3932: l_name pa_resources.name%TYPE;
3933:
3934: BEGIN
3935:
3936: BEGIN
3980: -- PROCEDURE
3981: -- get_resource_name
3982: -- PURPOSE
3983: -- This function returns the resource_name of the
3984: -- resource_id passed in using pa_resources table
3985: FUNCTION get_resource_name(p_resource_id IN NUMBER)
3986: RETURN VARCHAR2
3987: IS
3988: l_name pa_resources.name%TYPE;
3984: -- resource_id passed in using pa_resources table
3985: FUNCTION get_resource_name(p_resource_id IN NUMBER)
3986: RETURN VARCHAR2
3987: IS
3988: l_name pa_resources.name%TYPE;
3989: BEGIN
3990: SELECT name
3991: INTO l_name
3992: FROM pa_resources
3988: l_name pa_resources.name%TYPE;
3989: BEGIN
3990: SELECT name
3991: INTO l_name
3992: FROM pa_resources
3993: WHERE resource_id = p_resource_id;
3994:
3995: RETURN l_name;
3996: EXCEPTION
4098: BEGIN
4099:
4100: SELECT person_id, resource_name
4101: INTO x_person_id, x_person_name
4102: FROM pa_resources_denorm
4103: WHERE resource_name like p_person_name
4104: AND rownum=1;
4105:
4106: EXCEPTION
4131: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
4132: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
4133: ,x_error_message_code OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
4134: IS
4135: l_manager_name PA_RESOURCES_DENORM.RESOURCE_NAME%TYPE;
4136: l_manager_id NUMBER;
4137: BEGIN
4138:
4139: -- this comes from My Resources page because the manager_name passed
4159: -- is Resource Manager
4160: IF p_responsibility = 'RM' THEN
4161: -- Changes for bug 3616010 - added hint and removed use
4162: -- of view for performance
4163: select /* +index PA_RESOURCES_DENORM PA_RESOURCES_DENORM_N2 */
4164: manager_id into x_manager_id
4165: from pa_resources_denorm --pa_rep_res_mgr_v
4166: where manager_name = l_manager_name
4167: and rownum = 1; -- to stop multiple rows error
4161: -- Changes for bug 3616010 - added hint and removed use
4162: -- of view for performance
4163: select /* +index PA_RESOURCES_DENORM PA_RESOURCES_DENORM_N2 */
4164: manager_id into x_manager_id
4165: from pa_resources_denorm --pa_rep_res_mgr_v
4166: where manager_name = l_manager_name
4167: and rownum = 1; -- to stop multiple rows error
4168: --dbms_output.put_line('mgr id RM - id null ' || x_manager_id);
4169:
4184: IF p_responsibility = 'RM' THEN
4185: -- Changes for bug 3616010 - removed use
4186: -- of view for performance
4187: select manager_id into x_manager_id
4188: from pa_resources_denorm --pa_rep_res_mgr_v
4189: where manager_name = l_manager_name
4190: and manager_id = l_manager_id
4191: and rownum = 1;
4192: --dbms_output.put_line('mgr id RM - id not null ' || x_manager_id);
4459: IS
4460:
4461: l_formula_id NUMBER;
4462: l_term_type VARCHAR2(1);
4463: l_resource_person_type PA_RESOURCES_DENORM.RESOURCE_PERSON_TYPE%TYPE ;
4464:
4465: l_leav_reas PER_PERIODS_OF_SERVICE.LEAVING_REASON%TYPE ;
4466: l_term_reas PER_PERIODS_OF_PLACEMENT.TERMINATION_REASON%TYPE ;
4467:
4511: ELSE
4512:
4513: SELECT distinct(resource_person_type)
4514: INTO l_resource_person_type
4515: FROM pa_resources_denorm
4516: WHERE person_id = p_person_id;
4517:
4518: IF ( l_resource_person_type = 'EMP') THEN
4519:
4576: l_return_end_date DATE;
4577: l_wait_days NUMBER;
4578:
4579: l_resource_effective_end_date DATE ;
4580: l_future_term_wf_flag pa_resources.future_term_wf_flag%TYPE ;
4581:
4582: l_msg_index_out NUMBER;
4583:
4584: BEGIN
4613: IF (NVL(G_FTE_FLAG,'N') = 'Y') THEN
4614:
4615: SELECT max(resource_effective_end_date)
4616: INTO l_resource_effective_end_date
4617: FROM pa_resources_denorm
4618: WHERE person_id = G_TERM_PERSON_ID; --l_person_id
4619:
4620: UPDATE pa_resources_denorm
4621: SET resource_effective_end_date = G_FTE_DATE,
4616: INTO l_resource_effective_end_date
4617: FROM pa_resources_denorm
4618: WHERE person_id = G_TERM_PERSON_ID; --l_person_id
4619:
4620: UPDATE pa_resources_denorm
4621: SET resource_effective_end_date = G_FTE_DATE,
4622: last_update_date = sysdate,
4623: last_updated_by = fnd_global.user_id,
4624: last_update_login = fnd_global.login_id
4712: -- PROCEDURE
4713: -- set_fte_flag
4714: -- PURPOSE
4715: -- This procedure sets the new future_term_wf_flag
4716: -- in table pa_resources for the passed person_id
4717: -- HISTORY
4718: -- 05-MAR-207 kjai Created for Bug 5683340
4719: --
4720: PROCEDURE set_fte_flag(p_person_id IN PA_EMPLOYEES.PERSON_ID%TYPE,
4717: -- HISTORY
4718: -- 05-MAR-207 kjai Created for Bug 5683340
4719: --
4720: PROCEDURE set_fte_flag(p_person_id IN PA_EMPLOYEES.PERSON_ID%TYPE,
4721: p_future_term_wf_flag IN PA_RESOURCES.FUTURE_TERM_WF_FLAG%TYPE,
4722: x_return_status OUT NOCOPY VARCHAR2,
4723: x_msg_data OUT NOCOPY VARCHAR2,
4724: x_msg_count OUT NOCOPY NUMBER)
4725: IS
4722: x_return_status OUT NOCOPY VARCHAR2,
4723: x_msg_data OUT NOCOPY VARCHAR2,
4724: x_msg_count OUT NOCOPY NUMBER)
4725: IS
4726: l_resource_id PA_RESOURCES.RESOURCE_ID%TYPE ;
4727:
4728: l_msg_index_out NUMBER;
4729:
4730: BEGIN
4736: l_resource_id := pa_resource_utils.get_resource_id(p_person_id);
4737:
4738: IF NVL(l_resource_id,-999) <> -999 THEN
4739:
4740: UPDATE pa_resources
4741: SET future_term_wf_flag = p_future_term_wf_flag,
4742: last_update_date = sysdate,
4743: last_updated_by = fnd_global.user_id,
4744: last_update_login = fnd_global.login_id
4777: -- FUNCTION
4778: -- get_fte_flag
4779: -- PURPOSE
4780: -- This function gets the new future_term_wf_flag
4781: -- in table pa_resources for the passed person_id
4782: -- HISTORY
4783: -- 05-MAR-207 kjai Created for Bug 5683340
4784: --
4785: PROCEDURE Get_fte_flag(p_person_id IN PA_EMPLOYEES.PERSON_ID%TYPE,
4782: -- HISTORY
4783: -- 05-MAR-207 kjai Created for Bug 5683340
4784: --
4785: PROCEDURE Get_fte_flag(p_person_id IN PA_EMPLOYEES.PERSON_ID%TYPE,
4786: x_future_term_wf_flag OUT NOCOPY PA_RESOURCES.FUTURE_TERM_WF_FLAG%TYPE,
4787: x_return_status OUT NOCOPY VARCHAR2,
4788: x_msg_data OUT NOCOPY VARCHAR2,
4789: x_msg_count OUT NOCOPY NUMBER)
4790: IS
4787: x_return_status OUT NOCOPY VARCHAR2,
4788: x_msg_data OUT NOCOPY VARCHAR2,
4789: x_msg_count OUT NOCOPY NUMBER)
4790: IS
4791: l_resource_id PA_RESOURCES.RESOURCE_ID%TYPE ;
4792: l_future_term_wf_flag PA_RESOURCES.FUTURE_TERM_WF_FLAG%TYPE ;
4793:
4794: l_msg_index_out NUMBER;
4795:
4788: x_msg_data OUT NOCOPY VARCHAR2,
4789: x_msg_count OUT NOCOPY NUMBER)
4790: IS
4791: l_resource_id PA_RESOURCES.RESOURCE_ID%TYPE ;
4792: l_future_term_wf_flag PA_RESOURCES.FUTURE_TERM_WF_FLAG%TYPE ;
4793:
4794: l_msg_index_out NUMBER;
4795:
4796: BEGIN
4802: l_resource_id := pa_resource_utils.get_resource_id(p_person_id);
4803:
4804: IF NVL(l_resource_id,-999) <> -999 THEN
4805:
4806: SELECT pa_resources.future_term_wf_flag
4807: INTO l_future_term_wf_flag
4808: FROM pa_resources
4809: WHERE resource_id = l_resource_id;
4810:
4804: IF NVL(l_resource_id,-999) <> -999 THEN
4805:
4806: SELECT pa_resources.future_term_wf_flag
4807: INTO l_future_term_wf_flag
4808: FROM pa_resources
4809: WHERE resource_id = l_resource_id;
4810:
4811: ELSIF NVL(l_resource_id,-999) = -999 THEN
4812:
4857: x_return_status OUT NOCOPY VARCHAR2,
4858: x_msg_data OUT NOCOPY VARCHAR2,
4859: x_msg_count OUT NOCOPY NUMBER)
4860: IS
4861: l_resource_person_type PA_RESOURCES_DENORM.RESOURCE_PERSON_TYPE%TYPE ;
4862: l_end_date DATE ;
4863: l_valid_end_date DATE ;
4864: l_time_left NUMBER ;
4865:
4872: x_return_status := FND_API.G_RET_STS_SUCCESS;
4873:
4874: SELECT distinct(resource_person_type)
4875: INTO l_resource_person_type
4876: FROM pa_resources_denorm
4877: WHERE person_id = p_person_id;
4878:
4879: IF ( l_resource_person_type = 'EMP') THEN
4880:
4967:
4968:
4969: SELECT TRUNC (MAX (resource_effective_end_date))
4970: INTO l_max_res_denorm_end_date
4971: FROM pa_resources_denorm
4972: WHERE person_id = p_person_id;
4973:
4974: IF ( (l_max_res_denorm_end_date <> to_date('31/12/4712','DD/MM/YYYY'))
4975: AND
5038: WHERE ACT_TERM_DATE IS NOT NULL ;
5039:
5040:
5041: l_person_id PA_EMPLOYEES.PERSON_ID%TYPE;
5042: l_future_term_wf_flag pa_resources.future_term_wf_flag%TYPE ;
5043: l_end_date DATE ;
5044:
5045: l_msg_count NUMBER;
5046: l_msg_data VARCHAR(2000);
5064: l_person_id := wf_engine.GetItemAttrNumber(itemtype => itemtype,
5065: itemkey => itemkey,
5066: aname => 'PERSON_ID' );
5067:
5068: --get the future_term_wf_flag from pa_resources
5069: --
5070: pa_resource_utils.get_fte_flag(p_person_id => l_person_id,
5071: x_future_term_wf_flag => l_future_term_wf_flag,
5072: x_msg_data => l_msg_data,