[Home] [Help]
1: PACKAGE BODY PA_ALLOC_UTILS AS
2: /* $Header: PAXALUTB.pls 120.1 2005/08/10 13:46:35 dlanka noship $ */
3:
4: ------------------------------------------------------------------------
5: --- is_resource_in_rules
589: Into X_name
590: from pa_resource_list_members prlm
591: where prlm.resource_list_member_id = p_resource_id;
592: Elsif l_source_res_struct_type = 'RBS' Then
593: Select pa_alloc_utils.Get_Resource_Name_TL (RBS_ELEMENT_NAME_ID)
594: Into X_name
595: From pa_rbs_elements
596: Where rbs_element_id = p_resource_id
597: And rownum = 1;
603: Into X_name
604: from pa_resource_list_members prlm
605: where prlm.resource_list_member_id = p_resource_id;
606: Elsif l_basis_res_struct_type = 'RBS' Then
607: select pa_alloc_utils.Get_Resource_Name_TL (RBS_ELEMENT_NAME_ID)
608: Into X_name
609: from pa_rbs_elements
610: where rbs_element_id = p_resource_id
611: and rownum = 1;
795: from pa_resource_list_members slf , pa_resource_list_members prt
796: Where prt.resource_list_member_id (+) = slf.parent_member_id
797: and slf.resource_list_member_id = p_resource_id;
798: Cursor c_element_name
799: IS SELECT pa_alloc_utils.Get_Resource_Name_TL(ele.rbs_element_name_id) Resource_Name
800: FROM pa_rbs_elements ele
801: CONNECT BY PRIOR ele.parent_element_id = ele.rbs_element_id
802: START WITH ele.rbs_element_id = p_resource_id
803: ORDER BY ele.rbs_level DESC;
892: Return Null;
893: End Get_Resource_Name_TL;
894:
895:
896: END pa_alloc_utils ;