1618: If P_Type = 'H' Then
1619:
1620: For Hierarchy_Rec in Hierarchy
1621: Loop
1622: Per_hierarchy_api.CREATE_HIERARCHY
1623: (P_HIERARCHY_ID => l_Hierarchy_id ,
1624: P_BUSINESS_GROUP_ID => p_Business_group_Id,
1625: P_NAME => P_Name ,
1626: P_TYPE => Hierarchy_rec.Type ,
2192: Begin
2193:
2194: If p_Type = 'P' and P_Trntype = 'I' Then
2195:
2196: Per_hierarchy_api.CREATE_HIERARCHY
2197: (P_HIERARCHY_ID => l_Hierarchy_id ,
2198: P_BUSINESS_GROUP_ID => p_Business_group_Id,
2199: P_NAME => P_Description ,
2200: P_TYPE => 'OPERATION_PLAN' ,
2235: P_EFFECTIVE_DATE => P_Effective_Date);
2236:
2237: if(l_version_count < 2) then
2238: l_object_version_number := c2rec.hovn;
2239: Per_Hierarchy_api.Delete_Hierarchy
2240: (P_Hierarchy_Id => C2rec.Hierarchy_id,
2241: P_Object_Version_Number => l_Object_Version_Number);
2242: End if;
2243: End Loop;