516: API Desc : Return 'Y' if RBS Element is used in Allocations.
517: API Created Date : 19-Mar-04
518: API Created By : Vthakkar
519: */
520: FUNCTION Is_RBS_Element_In_Rules ( P_RBS_ELEMENT_ID IN pa_rbs_elements.RBS_ELEMENT_ID%type ) RETURN
521: VARCHAR2
522:
523: IS
524: l_exists Varchar2(1) := 'N';
577: API Created By : Vthakkar
578: */
579: Function Resource_Name (
580: p_alloc_type IN Varchar2 ,
581: p_resource_id IN pa_rbs_elements.RBS_ELEMENT_ID%type ,
582: p_rule_id IN pa_alloc_rules.rule_id%type
583: ) Return Varchar2
584: IS
585: l_source_res_struct_type pa_alloc_rules_all.ALLOC_RESOURCE_STRUCT_TYPE%type;
604: where prlm.resource_list_member_id = p_resource_id;
605: Elsif l_source_res_struct_type = 'RBS' Then
606: Select pa_alloc_utils.Get_Resource_Name_TL (RBS_ELEMENT_NAME_ID)
607: Into X_name
608: From pa_rbs_elements
609: Where rbs_element_id = p_resource_id
610: And rownum = 1;
611:
612: End If;
618: where prlm.resource_list_member_id = p_resource_id;
619: Elsif l_basis_res_struct_type = 'RBS' Then
620: select pa_alloc_utils.Get_Resource_Name_TL (RBS_ELEMENT_NAME_ID)
621: Into X_name
622: from pa_rbs_elements
623: where rbs_element_id = p_resource_id
624: and rownum = 1;
625: End If;
626: End If;
667:
668: Update pa_alloc_resources ARS
669: Set resource_list_member_id = (
670: select new.rbs_element_id
671: from pa_rbs_elements new
672: ,pa_rbs_elements old
673: where new.element_identifier = old.element_identifier
674: and old.rbs_version_Id = ALLOC_CUR.alloc_rbs_version
675: and new.rbs_version_Id = p_rbs_version_id
668: Update pa_alloc_resources ARS
669: Set resource_list_member_id = (
670: select new.rbs_element_id
671: from pa_rbs_elements new
672: ,pa_rbs_elements old
673: where new.element_identifier = old.element_identifier
674: and old.rbs_version_Id = ALLOC_CUR.alloc_rbs_version
675: and new.rbs_version_Id = p_rbs_version_id
676: and old.rbs_element_id = ars.resource_list_member_id
693:
694: Update pa_alloc_resources ARS
695: Set resource_list_member_id = (
696: select new.rbs_element_id
697: from pa_rbs_elements new
698: ,pa_rbs_elements old
699: where new.element_identifier = old.element_identifier
700: and old.rbs_version_Id = ALLOC_CUR.basis_rbs_version
701: and new.rbs_version_Id = p_rbs_version_id
694: Update pa_alloc_resources ARS
695: Set resource_list_member_id = (
696: select new.rbs_element_id
697: from pa_rbs_elements new
698: ,pa_rbs_elements old
699: where new.element_identifier = old.element_identifier
700: and old.rbs_version_Id = ALLOC_CUR.basis_rbs_version
701: and new.rbs_version_Id = p_rbs_version_id
702: and old.rbs_element_id = ars.resource_list_member_id
712: /* Commenting out the code for bug 4107924
713: Update pa_alloc_resources ARS
714: Set resource_list_member_id = (
715: select new.rbs_element_id
716: from pa_rbs_elements new
717: ,pa_rbs_elements old
718: ,pa_alloc_rules_all ar
719: where ar.alloc_resource_list_id = p_rbs_header_id
720: and decode ( ars.member_type ,
713: Update pa_alloc_resources ARS
714: Set resource_list_member_id = (
715: select new.rbs_element_id
716: from pa_rbs_elements new
717: ,pa_rbs_elements old
718: ,pa_alloc_rules_all ar
719: where ar.alloc_resource_list_id = p_rbs_header_id
720: and decode ( ars.member_type ,
721: 'S' , nvl(ar.alloc_resource_struct_type,'RL') ,
809: Where prt.resource_list_member_id (+) = slf.parent_member_id
810: and slf.resource_list_member_id = p_resource_id;
811: Cursor c_element_name
812: IS SELECT pa_alloc_utils.Get_Resource_Name_TL(ele.rbs_element_name_id) Resource_Name
813: FROM pa_rbs_elements ele
814: CONNECT BY PRIOR ele.parent_element_id = ele.rbs_element_id
815: START WITH ele.rbs_element_id = p_resource_id
816: ORDER BY ele.rbs_level DESC;
817: Begin