[Home] [Help]
131:
132: /* Start of Changes for Bug 6056112 */
133: SELECT pa_resource_utils.get_resource_id(p_resource_id)
134: INTO l_pa_resource_id
135: FROM dual;
136:
137: IF (l_pa_resource_id <> -999) THEN
138: SELECT nvl(future_term_wf_flag,'N')
139: INTO l_future_term_wf_flag
580: l_effective_date DATE;
581: -- Bug 8567601
582: cursor cur_exist(l_res_id in NUMBER, l_date IN date) is
583: select 'X'
584: from dual
585: where exists (select res.resource_id
586: from pa_resources_denorm res,
587: pa_all_organizations org
588: where org.pa_org_use_type = 'EXPENDITURES'
665: cursor cur_exist(l_res_id IN NUMBER,
666: l_start_date_active IN DATE,
667: l_end_date_active IN DATE) is
668: select 'X'
669: from dual
670: where exists (select res.resource_id
671: from pa_resources_denorm res,
672: pa_all_organizations org
673: where org.pa_org_use_type = 'EXPENDITURES'
2935:
2936: /* Bug# 2499051 */
2937: select pa_security_pvt.get_menu_id(p_prim_role_name)
2938: into l_menu_id
2939: from dual;
2940: /* Bug# 2499051 */
2941:
2942: SELECT pep.full_name,
2943: pep.person_id
2947: fnd_objects fob,
2948: per_all_people_f pep, -- Bug 4684198 - use base table not secure view
2949: wf_roles wfr
2950: /* Bug# 2499051 - Moved the function call to fetch to a local variable at the start of the procedure
2951: (select pa_security_pvt.get_menu_id(p_prim_role_name) menu_id from dual) temp */
2952: WHERE fg.object_id = fob.object_id
2953: AND fob.obj_name = 'ORGANIZATION'
2954: AND fg.instance_pk1_value = to_char(p_org_id)
2955: /* AND fg.menu_id = temp.menu_id -- Bug# 2499051 - Using local variable */
3615: fnd_objects fob,
3616: per_all_people_f per,
3617: wf_roles wfr,
3618: (select pa_security_pvt.get_menu_id('PA_PRM_RES_AUTH') menu_id
3619: from dual) res_auth_menu
3620: WHERE fob.obj_name = 'ORGANIZATION'
3621: and res.resource_id = l_resource_id
3622: and trunc(sysdate) < res.resource_effective_end_date --Bug 9403051
3623: and fg.instance_pk1_value = to_char(res.resource_organization_id)
4763:
4764: BEGIN
4765: SELECT 'Y'
4766: INTO l_in_use
4767: FROM DUAL
4768: WHERE EXISTS (SELECT 'Y'
4769: FROM pa_resource_list_members
4770: WHERE vendor_id = p_supplier_id
4771: UNION ALL