[Home] [Help]
17: l_rbs_header_id NUMBER;
18:
19: Begin
20:
21: Pa_Debug.G_Stage := 'Entering Process_Rbs_Elements() Pvt.';
22: Pa_Debug.TrackPath('ADD','Process_Rbs_Elements Pvt');
23:
24: If P_Process_Type = 'D' Then
25:
18:
19: Begin
20:
21: Pa_Debug.G_Stage := 'Entering Process_Rbs_Elements() Pvt.';
22: Pa_Debug.TrackPath('ADD','Process_Rbs_Elements Pvt');
23:
24: If P_Process_Type = 'D' Then
25:
26: Pa_Debug.G_Stage := 'Call DeleteRbsElement() procedure.';
22: Pa_Debug.TrackPath('ADD','Process_Rbs_Elements Pvt');
23:
24: If P_Process_Type = 'D' Then
25:
26: Pa_Debug.G_Stage := 'Call DeleteRbsElement() procedure.';
27:
28: -- We can delete an element in an RBS from the working version
29: -- only if none of the previous RBS versions are used in any
30: -- allocations rules. If the version is used, we prevent the
53: X_RBS_Element_id := null;
54:
55: ElsIf P_Process_Type = 'U' Then
56:
57: Pa_Debug.G_Stage := 'Call UpdateExistingRbsElement() procedure.';
58: Pa_Rbs_Elements_Pvt.UpdateExisingRbsElement(
59: P_Rbs_Version_Id => P_Rbs_Version_Id,
60: P_Parent_Element_Id => P_Parent_Element_Id,
61: P_Rbs_Element_Id => P_Element_Id,
68: X_RBS_Element_id := P_Parent_Element_Id;
69:
70: Else
71:
72: Pa_Debug.G_Stage := 'Call CreateNewRbsElement() procedure.';
73: Pa_Rbs_Elements_Pvt.CreateNewRbsElement(
74: P_Rbs_Version_Id => P_Rbs_Version_Id,
75: P_Parent_Element_Id => P_Parent_Element_Id,
76: P_Rbs_Element_Id => P_Element_Id,
81: X_Error_Msg_Data => X_Error_Msg_Data);
82:
83: End If;
84:
85: Pa_Debug.G_Stage := 'Leaving Process_Rbs_Elements() Pvt procedure.';
86: Pa_Debug.TrackPath('STRIP','Process_Rbs_Elements Pvt');
87:
88: Exception
89: When Others Then
82:
83: End If;
84:
85: Pa_Debug.G_Stage := 'Leaving Process_Rbs_Elements() Pvt procedure.';
86: Pa_Debug.TrackPath('STRIP','Process_Rbs_Elements Pvt');
87:
88: Exception
89: When Others Then
90: Raise;
146: INTO l_parent_outline_number
147: FROM pa_rbs_elements
148: WHERE rbs_element_id = l_parent_id;
149:
150: Pa_Debug.G_Stage := 'Entering DeleteRbsElement().';
151: Pa_Debug.TrackPath('ADD','DeleteRbsElement');
152:
153: Pa_Debug.G_Stage := 'Call DeleteRbsElement() procedure.';
154: IF Pa_Rbs_Elements_Utils.RbsElementExists( P_Element_Id => P_Element_Id ) = 'Y' Then
147: FROM pa_rbs_elements
148: WHERE rbs_element_id = l_parent_id;
149:
150: Pa_Debug.G_Stage := 'Entering DeleteRbsElement().';
151: Pa_Debug.TrackPath('ADD','DeleteRbsElement');
152:
153: Pa_Debug.G_Stage := 'Call DeleteRbsElement() procedure.';
154: IF Pa_Rbs_Elements_Utils.RbsElementExists( P_Element_Id => P_Element_Id ) = 'Y' Then
155:
149:
150: Pa_Debug.G_Stage := 'Entering DeleteRbsElement().';
151: Pa_Debug.TrackPath('ADD','DeleteRbsElement');
152:
153: Pa_Debug.G_Stage := 'Call DeleteRbsElement() procedure.';
154: IF Pa_Rbs_Elements_Utils.RbsElementExists( P_Element_Id => P_Element_Id ) = 'Y' Then
155:
156: Pa_Debug.G_Stage := 'Delete the children elements/nodes using cursor and loop.';
157: Open c1(P_Element_Id);
152:
153: Pa_Debug.G_Stage := 'Call DeleteRbsElement() procedure.';
154: IF Pa_Rbs_Elements_Utils.RbsElementExists( P_Element_Id => P_Element_Id ) = 'Y' Then
155:
156: Pa_Debug.G_Stage := 'Delete the children elements/nodes using cursor and loop.';
157: Open c1(P_Element_Id);
158: Loop
159:
160: Fetch c1 Into l_id;
159:
160: Fetch c1 Into l_id;
161: Exit When c1%NotFound;
162:
163: Pa_Debug.G_Stage := 'Delete child element/node by calling table handler.';
164: Pa_Rbs_Elements_Pkg.Delete_Row(P_Rbs_Element_Id => l_id);
165:
166:
167: End Loop;
169: Close c1;
170:
171: Else -- The element does not exist
172:
173: Pa_Debug.G_Stage := 'Could not find the element/node to delete.';
174: Raise No_Data_Found;
175:
176: END IF;
177:
230: END LOOP;
231:
232: CLOSE get_later_sibs;
233:
234: Pa_Debug.G_Stage := 'Leaving DeleteRbsElement() procedure.';
235: Pa_Debug.TrackPath('STRIP','DeleteRbsElement');
236:
237: EXCEPTION
238: When Others Then
231:
232: CLOSE get_later_sibs;
233:
234: Pa_Debug.G_Stage := 'Leaving DeleteRbsElement() procedure.';
235: Pa_Debug.TrackPath('STRIP','DeleteRbsElement');
236:
237: EXCEPTION
238: When Others Then
239: Raise;
289: Start With Parent_Element_Id = P_Rbs_Element_Id
290: Connect By Prior Rbs_Element_Id = Parent_Element_Id;
291: BEGIN
292:
293: Pa_Debug.G_Stage := 'Entering UpdateExisingRbsElement().';
294: Pa_Debug.TrackPath('ADD','UpdateExisingRbsElement');
295:
296: -- Check if the parent element is valid.
297: Pa_Debug.G_Stage := 'Check to see if parent element/node exists.';
290: Connect By Prior Rbs_Element_Id = Parent_Element_Id;
291: BEGIN
292:
293: Pa_Debug.G_Stage := 'Entering UpdateExisingRbsElement().';
294: Pa_Debug.TrackPath('ADD','UpdateExisingRbsElement');
295:
296: -- Check if the parent element is valid.
297: Pa_Debug.G_Stage := 'Check to see if parent element/node exists.';
298:
293: Pa_Debug.G_Stage := 'Entering UpdateExisingRbsElement().';
294: Pa_Debug.TrackPath('ADD','UpdateExisingRbsElement');
295:
296: -- Check if the parent element is valid.
297: Pa_Debug.G_Stage := 'Check to see if parent element/node exists.';
298:
299:
300: If Pa_Rbs_Elements_Utils.RbsElementExists( P_Element_Id => P_Parent_Element_Id ) = 'Y' Then
301:
299:
300: If Pa_Rbs_Elements_Utils.RbsElementExists( P_Element_Id => P_Parent_Element_Id ) = 'Y' Then
301:
302:
303: Pa_Debug.G_Stage := 'Call ValidateAndBuildElement() procedure.';
304: Pa_Rbs_Elements_Pvt.ValidateAndBuildElement(
305: P_Mode => l_Mode,
306: P_Rbs_Version_Id => P_Rbs_Version_Id,
307: P_Parent_Element_Id => P_Parent_Element_Id,
341:
342: If X_Error_Msg_Data is Null Then
343:
344: -- call the table handler to update the record.
345: Pa_Debug.G_Stage := 'Call Pa_Rbs_Elements_Pkg.Update_Row() procedure.';
346: Pa_Rbs_Elements_Pkg.Update_Row(
347: P_Rbs_Element_Id => P_Rbs_Element_Id,
348: P_Rbs_Element_Name_Id => l_Rbs_Element_Name_Id,
349: P_Rbs_Version_Id => P_Rbs_Version_Id,
419:
420: -- Bug 3636175
421: -- This call is to update the elements below the one just updated with the changes made
422: -- so that the mapping for the rbs does not become broken.
423: PA_Debug.G_Stage := 'Call Pa_Rbs_Elements_Pvt.Update_Children_Data() procedure.';
424: Pa_Rbs_Elements_Pvt.Update_Children_Data(
425: P_Rbs_Element_Id => P_Rbs_Element_Id,
426: X_Error_Msg_Data => X_Error_Msg_Data);
427:
431: End If; -- error returned from ResourceNameCheck() procedure
432:
433: Else -- The parent element does not exist
434:
435: Pa_Debug.G_Stage := 'Parent element/node does not exists.';
436: Raise No_Data_Found;
437:
438: End If; -- Pa_Rbs_Elements_Utils.RbsElementExists()
439:
436: Raise No_Data_Found;
437:
438: End If; -- Pa_Rbs_Elements_Utils.RbsElementExists()
439:
440: Pa_Debug.G_Stage := 'Leaving UpdateExisingRbsElement() procedure.';
441: Pa_Debug.TrackPath('STRIP','UpdateExisingRbsElement');
442:
443:
444: EXCEPTION
437:
438: End If; -- Pa_Rbs_Elements_Utils.RbsElementExists()
439:
440: Pa_Debug.G_Stage := 'Leaving UpdateExisingRbsElement() procedure.';
441: Pa_Debug.TrackPath('STRIP','UpdateExisingRbsElement');
442:
443:
444: EXCEPTION
445: WHEN OTHERS THEN
490: l_Mode Varchar2(1) := 'A';
491:
492: Begin
493:
494: Pa_Debug.G_Stage := 'Entering CreateNewRbsElement().';
495: Pa_Debug.TrackPath('ADD','CreateNewRbsElement');
496:
497: -- Check if the parent element is valid.
498: Pa_Debug.G_Stage := 'Check to see if parent element/node exists.';
491:
492: Begin
493:
494: Pa_Debug.G_Stage := 'Entering CreateNewRbsElement().';
495: Pa_Debug.TrackPath('ADD','CreateNewRbsElement');
496:
497: -- Check if the parent element is valid.
498: Pa_Debug.G_Stage := 'Check to see if parent element/node exists.';
499: If Pa_Rbs_Elements_Utils.RbsElementExists( P_Element_Id => P_Parent_Element_Id ) = 'Y' Then
494: Pa_Debug.G_Stage := 'Entering CreateNewRbsElement().';
495: Pa_Debug.TrackPath('ADD','CreateNewRbsElement');
496:
497: -- Check if the parent element is valid.
498: Pa_Debug.G_Stage := 'Check to see if parent element/node exists.';
499: If Pa_Rbs_Elements_Utils.RbsElementExists( P_Element_Id => P_Parent_Element_Id ) = 'Y' Then
500:
501: Pa_Debug.G_Stage := 'Call ValidateAndBuildElement() procedure.';
502: Pa_Rbs_Elements_Pvt.ValidateAndBuildElement(
497: -- Check if the parent element is valid.
498: Pa_Debug.G_Stage := 'Check to see if parent element/node exists.';
499: If Pa_Rbs_Elements_Utils.RbsElementExists( P_Element_Id => P_Parent_Element_Id ) = 'Y' Then
500:
501: Pa_Debug.G_Stage := 'Call ValidateAndBuildElement() procedure.';
502: Pa_Rbs_Elements_Pvt.ValidateAndBuildElement(
503: P_Mode => l_Mode,
504: P_Rbs_Version_Id => P_Rbs_Version_Id,
505: P_Parent_Element_Id => P_Parent_Element_Id,
538:
539: If X_Error_Msg_Data is Null Then
540:
541: -- call the table handler to update the record.
542: Pa_Debug.G_Stage := 'Call Pa_Rbs_Elements_Pkg.Insert_Row() procedure.';
543: Pa_Rbs_Elements_Pkg.Insert_Row(
544: P_Rbs_Element_Name_Id => l_Rbs_Element_Name_Id,
545: P_Rbs_Version_Id => P_Rbs_Version_Id,
546: P_Outline_Number => l_outline_number,
584: End If; -- error returned from ResourceNameCheck() procedure
585:
586: Else -- The parent element does not exist
587:
588: Pa_Debug.G_Stage := 'Parent element/node does not exist.';
589: Raise No_Data_Found;
590:
591: End If; -- Pa_Rbs_Elements_Utils.RbsElementExists()
592:
589: Raise No_Data_Found;
590:
591: End If; -- Pa_Rbs_Elements_Utils.RbsElementExists()
592:
593: Pa_Debug.G_Stage := 'Leaving CreateNewRbsElement() procedure.';
594: Pa_Debug.TrackPath('STRIP','CreateNewRbsElement');
595:
596: Exception
597: When Others Then
590:
591: End If; -- Pa_Rbs_Elements_Utils.RbsElementExists()
592:
593: Pa_Debug.G_Stage := 'Leaving CreateNewRbsElement() procedure.';
594: Pa_Debug.TrackPath('STRIP','CreateNewRbsElement');
595:
596: Exception
597: When Others Then
598: Raise;
684: -- hr_utility.trace_on(NULL, 'RMRBS');
685: -- hr_utility.trace('******** START ******* ');
686: --dbms_output.put_line('******** START *******');
687:
688: Pa_Debug.G_Stage := 'Entering ValidateAndBuildElement().';
689: Pa_Debug.TrackPath('ADD','ValidateAndBuildElement');
690:
691: IF p_mode = 'U' THEN
692: -- Get the old Resource Type Id and Resource Source Id for
685: -- hr_utility.trace('******** START ******* ');
686: --dbms_output.put_line('******** START *******');
687:
688: Pa_Debug.G_Stage := 'Entering ValidateAndBuildElement().';
689: Pa_Debug.TrackPath('ADD','ValidateAndBuildElement');
690:
691: IF p_mode = 'U' THEN
692: -- Get the old Resource Type Id and Resource Source Id for
693: -- the element.
698: FROM PA_RBS_ELEMENTS
699: WHERE rbs_element_id = p_rbs_element_id;
700: END IF;
701:
702: Pa_Debug.G_Stage := 'Call ValidateRbsElement() procedure.';
703: --dbms_output.put_line('before ValidateRbsElement');
704: Pa_Rbs_Elements_Pvt.ValidateRbsElement(
705: P_Mode => P_Mode,
706: P_Rbs_Version_Id => P_Rbs_Version_Id,
715:
716: --dbms_output.put_line('after ValidateRbsElement');
717: If X_Error_Msg_Data is Null Then
718:
719: Pa_Debug.G_Stage := 'Call GetParentRbsData() procedure.';
720: --dbms_output.put_line('before GetParentRbsData');
721: Pa_Rbs_Elements_Pvt.GetParentRbsData(
722: P_Parent_Element_Id => P_Parent_Element_Id,
723: X_Person_Id => X_Person_Id,
746: --dbms_output.put_line('after GetParentRbsData');
747:
748: If l_Resource_Type = 'BOM_LABOR' Then
749:
750: Pa_Debug.G_Stage := 'Assign the resource source id to BOM Labor.';
751: X_BOM_Labor_Id := P_Resource_Source_Id;
752:
753: Elsif l_Resource_Type = 'BOM_EQUIPMENT' Then
754:
751: X_BOM_Labor_Id := P_Resource_Source_Id;
752:
753: Elsif l_Resource_Type = 'BOM_EQUIPMENT' Then
754:
755: Pa_Debug.G_Stage := 'Assign the resource source id to BOM Equipment.';
756: X_BOM_Equip_Id := P_Resource_Source_Id;
757:
758: Elsif l_Resource_Type = 'NAMED_PERSON' Then
759:
756: X_BOM_Equip_Id := P_Resource_Source_Id;
757:
758: Elsif l_Resource_Type = 'NAMED_PERSON' Then
759:
760: Pa_Debug.G_Stage := 'Assign the resource source id to Named Person.';
761: X_Person_Id := P_Resource_Source_Id;
762:
763: Elsif l_Resource_Type = 'EVENT_TYPE' Then
764:
761: X_Person_Id := P_Resource_Source_Id;
762:
763: Elsif l_Resource_Type = 'EVENT_TYPE' Then
764:
765: Pa_Debug.G_Stage := 'Assign the resource source id to Event Type.';
766: X_Event_Type_Id := P_Resource_Source_Id;
767:
768: Elsif l_Resource_Type = 'EXPENDITURE_CATEGORY' Then
769:
766: X_Event_Type_Id := P_Resource_Source_Id;
767:
768: Elsif l_Resource_Type = 'EXPENDITURE_CATEGORY' Then
769:
770: Pa_Debug.G_Stage := 'Assign the resource source id to Expenditure Category.';
771: X_Exp_Cat_Id := P_Resource_Source_Id;
772:
773: Elsif l_Resource_Type = 'EXPENDITURE_TYPE' Then
774:
771: X_Exp_Cat_Id := P_Resource_Source_Id;
772:
773: Elsif l_Resource_Type = 'EXPENDITURE_TYPE' Then
774:
775: Pa_Debug.G_Stage := 'Assign the resource source id to Expenditure Type.';
776: X_Exp_Type_Id := P_Resource_Source_Id;
777:
778: Elsif l_Resource_Type = 'ITEM_CATEGORY' Then
779:
776: X_Exp_Type_Id := P_Resource_Source_Id;
777:
778: Elsif l_Resource_Type = 'ITEM_CATEGORY' Then
779:
780: Pa_Debug.G_Stage := 'Assign the resource source id to Item Category.';
781: X_Item_Cat_Id := P_Resource_Source_Id;
782:
783: Elsif l_Resource_Type = 'INVENTORY_ITEM' Then
784:
781: X_Item_Cat_Id := P_Resource_Source_Id;
782:
783: Elsif l_Resource_Type = 'INVENTORY_ITEM' Then
784:
785: Pa_Debug.G_Stage := 'Assign the resource source id to Inventory Item.';
786: X_Inv_Item_Id := P_Resource_Source_Id;
787:
788: Elsif l_Resource_Type = 'JOB' Then
789:
786: X_Inv_Item_Id := P_Resource_Source_Id;
787:
788: Elsif l_Resource_Type = 'JOB' Then
789:
790: Pa_Debug.G_Stage := 'Assign the resource source id to Job.';
791: X_Job_Id := P_Resource_Source_Id;
792:
793: Elsif l_Resource_Type = 'ORGANIZATION' Then
794:
791: X_Job_Id := P_Resource_Source_Id;
792:
793: Elsif l_Resource_Type = 'ORGANIZATION' Then
794:
795: Pa_Debug.G_Stage := 'Assign the resource source id to Organization.';
796: X_Organization_Id := P_Resource_Source_Id;
797:
798: Elsif l_Resource_Type = 'PERSON_TYPE' Then
799:
796: X_Organization_Id := P_Resource_Source_Id;
797:
798: Elsif l_Resource_Type = 'PERSON_TYPE' Then
799:
800: Pa_Debug.G_Stage := 'Assign the resource source id to Person Type.';
801: X_Person_Type_Id := P_Resource_Source_Id;
802:
803: Elsif l_Resource_Type = 'NON_LABOR_RESOURCE' Then
804:
801: X_Person_Type_Id := P_Resource_Source_Id;
802:
803: Elsif l_Resource_Type = 'NON_LABOR_RESOURCE' Then
804:
805: Pa_Debug.G_Stage := 'Assign the resource source id to Non Labor Resource.';
806: X_Non_Labor_Res_Id := P_Resource_Source_Id;
807:
808: Elsif l_Resource_Type = 'RESOURCE_CLASS' Then
809:
806: X_Non_Labor_Res_Id := P_Resource_Source_Id;
807:
808: Elsif l_Resource_Type = 'RESOURCE_CLASS' Then
809:
810: Pa_Debug.G_Stage := 'Assign the resource source id to Resource Class.';
811: X_Res_Class_Id := P_Resource_Source_Id;
812:
813: Elsif l_Resource_Type = 'REVENUE_CATEGORY' Then
814:
811: X_Res_Class_Id := P_Resource_Source_Id;
812:
813: Elsif l_Resource_Type = 'REVENUE_CATEGORY' Then
814:
815: Pa_Debug.G_Stage := 'Assign the resource source id to Revenue Category.';
816: X_Rev_Cat_Id := P_Resource_Source_Id;
817:
818: Elsif l_Resource_Type = 'ROLE' Then
819:
816: X_Rev_Cat_Id := P_Resource_Source_Id;
817:
818: Elsif l_Resource_Type = 'ROLE' Then
819:
820: Pa_Debug.G_Stage := 'Assign the resource source id to Role.';
821: X_Role_Id := P_Resource_Source_Id;
822:
823: Elsif l_Resource_Type = 'SUPPLIER' Then
824:
821: X_Role_Id := P_Resource_Source_Id;
822:
823: Elsif l_Resource_Type = 'SUPPLIER' Then
824:
825: Pa_Debug.G_Stage := 'Assign the resource source id to Supplier.';
826: X_Supplier_Id := P_Resource_Source_Id;
827:
828: Elsif l_Resource_Type = 'USER_DEFINED' Then
829:
826: X_Supplier_Id := P_Resource_Source_Id;
827:
828: Elsif l_Resource_Type = 'USER_DEFINED' Then
829:
830: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined.';
831: If X_User_Def_Custom1_Id Is Null Then
832:
833: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined 1.';
834: X_User_Def_Custom1_Id := P_Resource_Source_Id;
829:
830: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined.';
831: If X_User_Def_Custom1_Id Is Null Then
832:
833: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined 1.';
834: X_User_Def_Custom1_Id := P_Resource_Source_Id;
835:
836: ElsIf X_User_Def_Custom2_Id Is Null Then
837:
834: X_User_Def_Custom1_Id := P_Resource_Source_Id;
835:
836: ElsIf X_User_Def_Custom2_Id Is Null Then
837:
838: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined 2.';
839: X_User_Def_Custom2_Id := P_Resource_Source_Id;
840:
841: ElsIf X_User_Def_Custom3_Id Is Null Then
842:
839: X_User_Def_Custom2_Id := P_Resource_Source_Id;
840:
841: ElsIf X_User_Def_Custom3_Id Is Null Then
842:
843: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined 3.';
844: X_User_Def_Custom3_Id := P_Resource_Source_Id;
845:
846: ElsIf X_User_Def_Custom4_Id Is Null Then
847:
844: X_User_Def_Custom3_Id := P_Resource_Source_Id;
845:
846: ElsIf X_User_Def_Custom4_Id Is Null Then
847:
848: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined 4.';
849: X_User_Def_Custom4_Id := P_Resource_Source_Id;
850:
851: ElsIf X_User_Def_Custom5_Id Is Null Then
852:
849: X_User_Def_Custom4_Id := P_Resource_Source_Id;
850:
851: ElsIf X_User_Def_Custom5_Id Is Null Then
852:
853: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined 5.';
854: X_User_Def_Custom5_Id := P_Resource_Source_Id;
855:
856: Else
857:
854: X_User_Def_Custom5_Id := P_Resource_Source_Id;
855:
856: Else
857:
858: Pa_Debug.G_Stage := 'All user defined resources field populated.';
859: Raise MAX_USER_DEF_RES_IDS;
860:
861: End If;
862:
866: --Modified for bug fix 3736374.
867: --Rule flag is set 'N' for an instance based node and all RBS nodes
868: --(both rule and instance-based) below it.
869: --Top most node of an RBS has rule flag = 'N'.
870: Pa_Debug.G_Stage := 'Determine the rule based flag.';
871: --dbms_output.put_line('get rule based flag');
872: Select
873: Decode(r.parent_element_id,null,Decode(P_Resource_Source_Id,-1,'Y','N'),
874: Decode(r.rule_flag,'Y',Decode(P_Resource_Source_Id,-1,'Y','N'),'N'))
881:
882: --dbms_output.put_line('after get rule based flag');
883: -- Need to increment the Rbs Level for the child we got
884: -- the value from the parent.
885: Pa_Debug.G_Stage := 'Increment the rbs level based on the parent level.';
886: X_Rbs_level := X_Rbs_Level + 1;
887:
888: IF X_Rbs_Level > 10 THEN
889: -- We do not allow more then 10 Levels. So error out.
889: -- We do not allow more then 10 Levels. So error out.
890: RAISE MAX_RBS_LEVELS;
891: END IF;
892:
893: PA_DEBUG.G_Stage := 'Check if element is variation of same combination in different combination - Job-Org vs Org-Job.';
894: -- Fix bugs 3909551 and 3882731 by checking to see if the new/upd
895: -- element already exists in the RBS; if so, then check the entire
896: -- branch (except UDR) and ensure they are not the same. This will
897: -- prevent creation of DBA-Cons East and Cons East-DBA, and the
917: EXIT WHEN chk_element_exists%NOTFOUND OR
918: l_unique_branch = 'N';
919:
920: -- If element exists, then check uniqueness on branch:
921: PA_DEBUG.G_Stage := 'Check if element is unique combination - validation check 10.';
922:
923: IF l_ele_exists = 'Y' THEN
924: -- hr_utility.trace('ELE EXISTS');
925: BEGIN
1081:
1082: -- The procedure Pa_Rbs_Utils.Populate_RBS_Element_Name() handles
1083: -- returning the rbs_element_name_id and creating rbs element name
1084: -- records if needed.
1085: Pa_Debug.G_Stage := 'Call Pa_Rbs_Utils.Populate_RBS_Element_Name() procedure.';
1086:
1087:
1088: Pa_Rbs_Utils.Populate_RBS_Element_Name (
1089: P_Resource_Source_Id => P_Resource_Source_Id,
1093:
1094:
1095: If l_Dummy_Error_Status <> FND_API.G_RET_STS_SUCCESS
1096: Then
1097: Pa_Debug.G_Stage := 'Call to Pa_Rbs_Utils.Populate_RBS_Element_Name() procedure failed.';
1098: Raise GET_ELEMENT_NAME_ID_FAILED;
1099: End If;
1100:
1101: -- Get the Element Identifier
1098: Raise GET_ELEMENT_NAME_ID_FAILED;
1099: End If;
1100:
1101: -- Get the Element Identifier
1102: Pa_Debug.G_Stage := 'Check if update or add to determine element identifier value.';
1103: IF P_Mode = 'A' THEN
1104:
1105: Pa_Debug.G_Stage := 'Get the next available element identifier sequence value for add.';
1106: -- Get the next value in the sequence
1101: -- Get the Element Identifier
1102: Pa_Debug.G_Stage := 'Check if update or add to determine element identifier value.';
1103: IF P_Mode = 'A' THEN
1104:
1105: Pa_Debug.G_Stage := 'Get the next available element identifier sequence value for add.';
1106: -- Get the next value in the sequence
1107: Select Pa_Rbs_Element_Identifier_S.NextVal
1108: Into X_Element_Identifier
1109: From Dual;
1109: From Dual;
1110:
1111: ELSE
1112:
1113: Pa_Debug.G_Stage := 'Retrieve the element identifier value from pa_rbs_elements for update.';
1114: -- Get the value from the rbs_elements table.
1115: Select Element_Identifier
1116: Into X_Element_Identifier
1117: From Pa_Rbs_Elements
1155:
1156:
1157: END IF;
1158:
1159: Pa_Debug.G_Stage := 'Leaving ValidateAndBuildElement() procedure.';
1160: Pa_Debug.TrackPath('STRIP','ValidateAndBuildElement');
1161:
1162: Exception
1163: When MAX_USER_DEF_RES_IDS Then
1156:
1157: END IF;
1158:
1159: Pa_Debug.G_Stage := 'Leaving ValidateAndBuildElement() procedure.';
1160: Pa_Debug.TrackPath('STRIP','ValidateAndBuildElement');
1161:
1162: Exception
1163: When MAX_USER_DEF_RES_IDS Then
1164: X_Error_Msg_Data := 'PA_MAX_USER_DEF_RES_IDS';
1273: WHERE parent_element_id = P_Rbs_Element_Id;
1274:
1275: BEGIN
1276:
1277: Pa_Debug.G_Stage := 'Entering ValidateRbsElement().';
1278: Pa_Debug.TrackPath('ADD','ValidateRbsElement');
1279:
1280: -- 1. Validate the resource_type
1281: -- We need this validation irrespective of whether the resource type is
1274:
1275: BEGIN
1276:
1277: Pa_Debug.G_Stage := 'Entering ValidateRbsElement().';
1278: Pa_Debug.TrackPath('ADD','ValidateRbsElement');
1279:
1280: -- 1. Validate the resource_type
1281: -- We need this validation irrespective of whether the resource type is
1282: -- changed or not. The x_resource_type we get below is used by the
1288:
1289: IF X_Resource_Type is Null or X_Resource_Type = 'NAMED_ROLE'
1290: THEN
1291:
1292: Pa_Debug.G_Stage := 'Invalid resource type id passed in.';
1293: RAISE INVAL_RES_TYPE;
1294: END IF;
1295:
1296: -- If the resource type or the resource source id has not changed from
1302: END IF;
1303:
1304:
1305: -- 2. If the element is rule based, and resource_type is user-defined, it's an error.
1306: Pa_Debug.G_Stage := 'Determine if rule and user-defined which is not allowed.';
1307: If P_Resource_Source_Id = -1 and X_Resource_Type = 'USER_DEFINED' Then
1308:
1309: Pa_Debug.G_Stage := 'Rule and user defined raise user defined error.';
1310: Raise ELEMENT_USER_DEF_RULE;
1305: -- 2. If the element is rule based, and resource_type is user-defined, it's an error.
1306: Pa_Debug.G_Stage := 'Determine if rule and user-defined which is not allowed.';
1307: If P_Resource_Source_Id = -1 and X_Resource_Type = 'USER_DEFINED' Then
1308:
1309: Pa_Debug.G_Stage := 'Rule and user defined raise user defined error.';
1310: Raise ELEMENT_USER_DEF_RULE;
1311:
1312: End If;
1313:
1312: End If;
1313:
1314: -- 3. If the element is not rule based, and resource_type is not user-defined,
1315: -- validate the resource_source_id.
1316: Pa_Debug.G_Stage := 'Validate the resource by calling the ValidateResource() procedure.';
1317: Pa_Rbs_Elements_Pvt.ValidateResource(
1318: P_Resource_Type_Id => P_Resource_Type_Id,
1319: P_Resource_Source_Id => P_Resource_Source_Id,
1320: P_Resource_Type => X_Resource_Type,
1321: X_Error_Msg_Data => X_Error_Msg_Data);
1322:
1323: If X_Error_Msg_Data is Not Null Then
1324:
1325: Pa_Debug.G_Stage := 'The Resource is invalid. Raise user defined error.';
1326: Raise INVALID_RESOURCE;
1327:
1328: End If;
1329:
1327:
1328: End If;
1329:
1330: -- 4. Validate that the element is not the same as it's siblings.
1331: Pa_Debug.G_Stage := 'Open c_CheckDupSiblings cursor - validation check 4.';
1332: Open c_CheckDupSiblings(P_Rbs_Version_Id,
1333: P_Parent_Element_Id,
1334: P_Resource_Source_Id,
1335: P_Resource_Type_Id);
1341: IF l_dummy_count = 0
1342: THEN
1343: Null;
1344: ELSE
1345: Pa_Debug.G_Stage := 'Records found! Close c_CheckDupSiblings cursor. ' ||
1346: 'Raise user defined error - validation check 4.';
1347: RAISE DUP_SIBLING_RES_RES_TYPE;
1348: END IF;
1349:
1357:
1358: IF l_dummy_count = 0 THEN
1359: Null;
1360: ELSE
1361: Pa_Debug.G_Stage := 'Raise user defined error - validation check 5.';
1362: Raise DUP_PARENT_RES_RES_TYPE;
1363: END IF;
1364:
1365: -- 6. Validate that the element is not repeated in the branches below it.
1364:
1365: -- 6. Validate that the element is not repeated in the branches below it.
1366: -- This check does not need to be done when adding a element/node. It won't have children
1367: -- to worry about.
1368: Pa_Debug.G_Stage := 'Check if validation is for updating an element - validation check 6.';
1369: If P_Mode = 'U' THEN
1370:
1371: Open c_CheckExistChildMatch(P_Resource_Type_Id,P_Resource_Source_Id,P_Rbs_Element_Id);
1372:
1375:
1376: IF l_dummy_count = 0 THEN
1377: Null;
1378: ELSE
1379: Pa_Debug.G_Stage := 'Raise user defined error - validation check 6.';
1380: Raise DUP_CHILD_RES_RES_TYPE;
1381: END IF;
1382:
1383: END IF;
1381: END IF;
1382:
1383: END IF;
1384:
1385: PA_DEBUG.G_Stage := 'Check if element/node is rule based - validation check 7.';
1386:
1387: -- 7. Resources of Same Resource Type can be repeated in a branch only
1388: -- in consecutive generations and if both the elements are instance
1389: -- based (not rule based)
1507:
1508: END IF;
1509:
1510: END IF; /* p_mode = 'U' */
1511: Pa_Debug.G_Stage := 'Leaving ValidateRbsElement() procedure.';
1512: Pa_Debug.TrackPath('STRIP','ValidateRbsElement');
1513:
1514: EXCEPTION
1515: WHEN INVAL_RES_TYPE THEN
1508: END IF;
1509:
1510: END IF; /* p_mode = 'U' */
1511: Pa_Debug.G_Stage := 'Leaving ValidateRbsElement() procedure.';
1512: Pa_Debug.TrackPath('STRIP','ValidateRbsElement');
1513:
1514: EXCEPTION
1515: WHEN INVAL_RES_TYPE THEN
1516: X_Error_Msg_Data := 'PA_RBS_INVAL_RES_TYPE';
1700:
1701: Begin
1702:
1703:
1704: Pa_Debug.G_Stage := 'Entering ValidateResource().';
1705: Pa_Debug.TrackPath('ADD','ValidateResource');
1706:
1707: Pa_Debug.G_Stage := 'Check what the resource type is to determine how to validate the resource.';
1708:
1701: Begin
1702:
1703:
1704: Pa_Debug.G_Stage := 'Entering ValidateResource().';
1705: Pa_Debug.TrackPath('ADD','ValidateResource');
1706:
1707: Pa_Debug.G_Stage := 'Check what the resource type is to determine how to validate the resource.';
1708:
1709: If P_Resource_Type IN ('BOM_LABOR','BOM_EQUIPMENT') And
1703:
1704: Pa_Debug.G_Stage := 'Entering ValidateResource().';
1705: Pa_Debug.TrackPath('ADD','ValidateResource');
1706:
1707: Pa_Debug.G_Stage := 'Check what the resource type is to determine how to validate the resource.';
1708:
1709: If P_Resource_Type IN ('BOM_LABOR','BOM_EQUIPMENT') And
1710: P_Resource_Source_Id <> -1 Then
1711:
1708:
1709: If P_Resource_Type IN ('BOM_LABOR','BOM_EQUIPMENT') And
1710: P_Resource_Source_Id <> -1 Then
1711:
1712: Pa_Debug.G_Stage := 'Validating BOM Labor or BOM Equipment resource.';
1713: Open c_BOM(P_Resource_Source_Id);
1714: Fetch c_BOM Into l_Dummy;
1715:
1716: If c_BOM%NotFound Then
1722:
1723: Elsif P_Resource_Type = 'NAMED_PERSON' And
1724: P_Resource_Source_Id <> -1 Then
1725:
1726: Pa_Debug.G_Stage := 'Validating Name Person resource.';
1727: Open c_People(P_Resource_Source_Id);
1728: Fetch c_People Into l_Dummy;
1729:
1730: If c_People%NotFound Then
1736:
1737: Elsif P_Resource_Type = 'EVENT_TYPE' And
1738: P_Resource_Source_Id <> -1 Then
1739:
1740: Pa_Debug.G_Stage := 'Validating Event Type resource.';
1741: Open c_EventType(P_Resource_Source_Id);
1742: Fetch c_EventType Into l_Dummy;
1743:
1744: If c_EventType%NotFound Then
1750:
1751: Elsif P_Resource_Type = 'EXPENDITURE_CATEGORY' And
1752: P_Resource_Source_Id <> -1 Then
1753:
1754: Pa_Debug.G_Stage := 'Validating Expenditure Category resource.';
1755: Open c_ExpCat(P_Resource_Source_Id);
1756: Fetch c_ExpCat Into l_Dummy;
1757:
1758: If c_ExpCat%NotFound Then
1764:
1765: Elsif P_Resource_Type = 'EXPENDITURE_TYPE' And
1766: P_Resource_Source_Id <> -1 Then
1767:
1768: Pa_Debug.G_Stage := 'Validating Expenditure Type resource.';
1769: Open c_ExpType(P_Resource_Source_Id);
1770: Fetch c_ExpType Into l_Dummy;
1771:
1772: If c_ExpType%NotFound Then
1778:
1779: Elsif P_Resource_Type = 'ITEM_CATEGORY' And
1780: P_Resource_Source_Id <> -1 Then
1781:
1782: Pa_Debug.G_Stage := 'Validating Item Category resource.';
1783: Open c_ItemCat(P_Resource_Source_Id);
1784: Fetch c_ItemCat Into l_Dummy;
1785:
1786: If c_ItemCat%NotFound Then
1792:
1793: Elsif P_Resource_Type = 'INVENTORY_ITEM' And
1794: P_Resource_Source_Id <> -1 Then
1795:
1796: Pa_Debug.G_Stage := 'Validating Inventory Item resource.';
1797: Open c_InvenItem(P_Resource_Source_Id);
1798: Fetch c_InvenItem Into l_Dummy;
1799:
1800: If c_InvenItem%NotFound Then
1806:
1807: Elsif P_Resource_Type = 'JOB' And
1808: P_Resource_Source_Id <> -1 Then
1809:
1810: Pa_Debug.G_Stage := 'Validating Job resource.';
1811: Open c_Job(P_Resource_Source_Id);
1812: Fetch c_Job Into l_Dummy;
1813:
1814: If c_Job%NotFound Then
1820:
1821: Elsif P_Resource_Type = 'ORGANIZATION' And
1822: P_Resource_Source_Id <> -1 Then
1823:
1824: Pa_Debug.G_Stage := 'Validating Organization resource.';
1825: Open c_Org(P_Resource_Source_Id);
1826: Fetch c_Org Into l_Dummy;
1827:
1828: If c_Org%NotFound Then
1834:
1835: Elsif P_Resource_Type = 'PERSON_TYPE' And
1836: P_Resource_Source_Id <> -1 Then
1837:
1838: Pa_Debug.G_Stage := 'Validating Person Type resource.';
1839: --Commented for Bug 3780201
1840: /* Open c_PerTypes(P_Resource_Source_Id);
1841: Fetch c_PerTypes Into l_Dummy;
1842:
1872:
1873: Elsif P_Resource_Type = 'NON_LABOR_RESOURCE' And
1874: P_Resource_Source_Id <> -1 Then
1875:
1876: Pa_Debug.G_Stage := 'Validating Non Labor Resource resource.';
1877: Open c_NLRs(P_Resource_Source_Id);
1878: Fetch c_NLRs Into l_Dummy;
1879:
1880: If c_NLRs%NotFound Then
1886:
1887: Elsif P_Resource_Type = 'RESOURCE_CLASS' And
1888: P_Resource_Source_Id <> -1 Then
1889:
1890: Pa_Debug.G_Stage := 'Validating Resource Class resource.';
1891: Open c_ResClass(P_Resource_Source_Id);
1892: Fetch c_ResClass Into l_Dummy;
1893:
1894: If c_ResClass%NotFound Then
1900:
1901: Elsif P_Resource_Type = 'REVENUE_CATEGORY' And
1902: P_Resource_Source_Id <> -1 Then
1903:
1904: Pa_Debug.G_Stage := 'Validating Revenue Category resource.';
1905: Open c_GetResCode(P_Resource_Type_Id,P_Resource_Source_Id);
1906: Fetch c_GetResCode Into l_Rev_Code;
1907: Close c_GetResCode;
1908:
1926:
1927: Elsif P_Resource_Type = 'ROLE' And
1928: P_Resource_Source_Id <> -1 Then
1929:
1930: Pa_Debug.G_Stage := 'Validating Role resource.';
1931: Open c_PrjRoles(P_Resource_Source_Id);
1932: Fetch c_PrjRoles Into l_Dummy;
1933:
1934: If c_PrjRoles%NotFound Then
1940:
1941: Elsif P_Resource_Type = 'SUPPLIER' And
1942: P_Resource_Source_Id <> -1 Then
1943:
1944: Pa_Debug.G_Stage := 'Validating Supplier resource.';
1945: Open c_Supplier(P_Resource_Source_Id);
1946: Fetch c_Supplier Into l_Dummy;
1947: If c_Supplier%NotFound Then
1948:
1952: Close c_Supplier;
1953:
1954: End If;
1955:
1956: Pa_Debug.G_Stage := 'Leaving ValidateResource() procedure.';
1957: Pa_Debug.TrackPath('STRIP','ValidateResource');
1958:
1959: Exception
1960: When Others Then
1953:
1954: End If;
1955:
1956: Pa_Debug.G_Stage := 'Leaving ValidateResource() procedure.';
1957: Pa_Debug.TrackPath('STRIP','ValidateResource');
1958:
1959: Exception
1960: When Others Then
1961: Raise;
1991: Is
1992:
1993: Begin
1994:
1995: Pa_Debug.G_Stage := 'Entering GetParentRbsData().';
1996: Pa_Debug.TrackPath('ADD','GetParentRbsData');
1997:
1998: Pa_Debug.G_Stage := 'Retrieve the parent rbs element data for use in child element/node.';
1999: Select
1992:
1993: Begin
1994:
1995: Pa_Debug.G_Stage := 'Entering GetParentRbsData().';
1996: Pa_Debug.TrackPath('ADD','GetParentRbsData');
1997:
1998: Pa_Debug.G_Stage := 'Retrieve the parent rbs element data for use in child element/node.';
1999: Select
2000: Person_Id,
1994:
1995: Pa_Debug.G_Stage := 'Entering GetParentRbsData().';
1996: Pa_Debug.TrackPath('ADD','GetParentRbsData');
1997:
1998: Pa_Debug.G_Stage := 'Retrieve the parent rbs element data for use in child element/node.';
1999: Select
2000: Person_Id,
2001: Job_Id,
2002: Organization_Id,
2049: Where
2050: Rbs_Element_Id = P_Parent_Element_Id;
2051: -- And Rbs_Level <> 0;
2052:
2053: Pa_Debug.G_Stage := 'Leaving GetParentRbsData() procedure.';
2054: Pa_Debug.TrackPath('STRIP','GetParentRbsData');
2055:
2056: Exception
2057: When No_Data_Found Then
2050: Rbs_Element_Id = P_Parent_Element_Id;
2051: -- And Rbs_Level <> 0;
2052:
2053: Pa_Debug.G_Stage := 'Leaving GetParentRbsData() procedure.';
2054: Pa_Debug.TrackPath('STRIP','GetParentRbsData');
2055:
2056: Exception
2057: When No_Data_Found Then
2058: Null;
2108: l_rbs_rec c3%RowType;
2109:
2110: Begin
2111:
2112: Pa_Debug.G_Stage := 'Entering UpdateOrderOutlineNumber().';
2113: Pa_Debug.TrackPath('ADD','UpdateOrderOutlineNumber');
2114:
2115: Pa_Debug.G_Stage := 'Begin loop thru the parent array table to process the elements/nodes for the parents.';
2116: For i in P_Parent_Element_Id_Tbl.First .. P_Parent_Element_Id_Tbl.Last
2109:
2110: Begin
2111:
2112: Pa_Debug.G_Stage := 'Entering UpdateOrderOutlineNumber().';
2113: Pa_Debug.TrackPath('ADD','UpdateOrderOutlineNumber');
2114:
2115: Pa_Debug.G_Stage := 'Begin loop thru the parent array table to process the elements/nodes for the parents.';
2116: For i in P_Parent_Element_Id_Tbl.First .. P_Parent_Element_Id_Tbl.Last
2117: Loop
2111:
2112: Pa_Debug.G_Stage := 'Entering UpdateOrderOutlineNumber().';
2113: Pa_Debug.TrackPath('ADD','UpdateOrderOutlineNumber');
2114:
2115: Pa_Debug.G_Stage := 'Begin loop thru the parent array table to process the elements/nodes for the parents.';
2116: For i in P_Parent_Element_Id_Tbl.First .. P_Parent_Element_Id_Tbl.Last
2117: Loop
2118:
2119: Pa_Debug.G_Stage := 'Check if working with new parent element/node.';
2115: Pa_Debug.G_Stage := 'Begin loop thru the parent array table to process the elements/nodes for the parents.';
2116: For i in P_Parent_Element_Id_Tbl.First .. P_Parent_Element_Id_Tbl.Last
2117: Loop
2118:
2119: Pa_Debug.G_Stage := 'Check if working with new parent element/node.';
2120: If l_par_element_id <> P_Parent_Element_Id_Tbl(i) Then
2121:
2122: Pa_Debug.G_Stage := 'Assign parent element/node id to local variable for if check.';
2123: l_par_element_id := P_Parent_Element_Id_Tbl(i);
2118:
2119: Pa_Debug.G_Stage := 'Check if working with new parent element/node.';
2120: If l_par_element_id <> P_Parent_Element_Id_Tbl(i) Then
2121:
2122: Pa_Debug.G_Stage := 'Assign parent element/node id to local variable for if check.';
2123: l_par_element_id := P_Parent_Element_Id_Tbl(i);
2124:
2125: -- Get the max order number for the children of the current parent
2126: Pa_Debug.G_Stage := 'Get the max order number for all the children of ' ||
2122: Pa_Debug.G_Stage := 'Assign parent element/node id to local variable for if check.';
2123: l_par_element_id := P_Parent_Element_Id_Tbl(i);
2124:
2125: -- Get the max order number for the children of the current parent
2126: Pa_Debug.G_Stage := 'Get the max order number for all the children of ' ||
2127: 'the current parent element id being processed.';
2128: open c1(P_Parent_Element_Id_Tbl(i));
2129: Fetch c1 into l_order_number;
2130: Close c1;
2129: Fetch c1 into l_order_number;
2130: Close c1;
2131:
2132: -- Get the parent outline number
2133: Pa_Debug.G_Stage := 'Get parent outline number to use to append the child ' ||
2134: 'order number to for the new child outline number.';
2135: open c2(P_Parent_Element_Id_Tbl(i));
2136: Fetch c2 into l_par_outline_number;
2137: Close c2;
2136: Fetch c2 into l_par_outline_number;
2137: Close c2;
2138:
2139: -- Get all the children for the parent for update
2140: Pa_Debug.G_Stage := 'Open cursor to get all child elements for the current ' ||
2141: 'parent element id.';
2142: Open c3(P_Parent_Element_Id_Tbl(i));
2143: Loop
2144:
2141: 'parent element id.';
2142: Open c3(P_Parent_Element_Id_Tbl(i));
2143: Loop
2144:
2145: Pa_Debug.G_Stage := 'Fetch record from cursor with all the child ' ||
2146: 'elements of the current parent element being processed.';
2147: Fetch c3 into l_Rbs_Rec;
2148: Exit When c3%NotFound;
2149:
2146: 'elements of the current parent element being processed.';
2147: Fetch c3 into l_Rbs_Rec;
2148: Exit When c3%NotFound;
2149:
2150: Pa_Debug.G_Stage := 'Check if the child element/node has an order number = -1.';
2151: If l_Rbs_Rec.Order_Number = -1 Then
2152:
2153: Pa_Debug.G_Stage := 'Assign order number to a child that does ' ||
2154: 'not currently have one.';
2149:
2150: Pa_Debug.G_Stage := 'Check if the child element/node has an order number = -1.';
2151: If l_Rbs_Rec.Order_Number = -1 Then
2152:
2153: Pa_Debug.G_Stage := 'Assign order number to a child that does ' ||
2154: 'not currently have one.';
2155: l_order_number := l_order_number + 1;
2156:
2157: Pa_Debug.G_Stage := 'Update the child rbs element record with new ' ||
2153: Pa_Debug.G_Stage := 'Assign order number to a child that does ' ||
2154: 'not currently have one.';
2155: l_order_number := l_order_number + 1;
2156:
2157: Pa_Debug.G_Stage := 'Update the child rbs element record with new ' ||
2158: 'order number and outline number - update 1.';
2159: Update pa_rbs_elements
2160: Set
2161: Order_Number = l_Order_Number,
2166: Rbs_Element_Id = l_Rbs_Rec.Rbs_Element_id;
2167:
2168: Else
2169:
2170: Pa_Debug.G_Stage := 'Update the child rbs element record with the ' ||
2171: 'outline number - update 2 .';
2172: Update Pa_Rbs_Elements
2173: Set
2174: Outline_Number = decode(l_Par_Outline_Number,'0',
2184: End If;
2185:
2186: End Loop;
2187:
2188: Pa_Debug.G_Stage := 'Leaving UpdateOrderOutlineNumber() procedure.';
2189: Pa_Debug.TrackPath('STRIP','UpdateOrderOutlineNumber');
2190:
2191: Exception
2192: When Others Then
2185:
2186: End Loop;
2187:
2188: Pa_Debug.G_Stage := 'Leaving UpdateOrderOutlineNumber() procedure.';
2189: Pa_Debug.TrackPath('STRIP','UpdateOrderOutlineNumber');
2190:
2191: Exception
2192: When Others Then
2193: Raise;
2247: MAX_USER_DEF_RES_IDS Exception;
2248:
2249: Begin
2250:
2251: Pa_Debug.G_Stage := 'Entering Update_Children_Data().';
2252: Pa_Debug.TrackPath('ADD','Update_Children_Data');
2253:
2254: Pa_Debug.G_Stage := 'Open c1 cursor to get rbs elements to update.';
2255: Open c1(P_Rbs_Elem_Id => P_Rbs_Element_Id);
2248:
2249: Begin
2250:
2251: Pa_Debug.G_Stage := 'Entering Update_Children_Data().';
2252: Pa_Debug.TrackPath('ADD','Update_Children_Data');
2253:
2254: Pa_Debug.G_Stage := 'Open c1 cursor to get rbs elements to update.';
2255: Open c1(P_Rbs_Elem_Id => P_Rbs_Element_Id);
2256:
2250:
2251: Pa_Debug.G_Stage := 'Entering Update_Children_Data().';
2252: Pa_Debug.TrackPath('ADD','Update_Children_Data');
2253:
2254: Pa_Debug.G_Stage := 'Open c1 cursor to get rbs elements to update.';
2255: Open c1(P_Rbs_Elem_Id => P_Rbs_Element_Id);
2256:
2257: Loop
2258:
2255: Open c1(P_Rbs_Elem_Id => P_Rbs_Element_Id);
2256:
2257: Loop
2258:
2259: Pa_Debug.G_Stage := 'Fetch the current child record.';
2260: Fetch c1 Into l_Child_Rec;
2261: Exit When c1%NotFound;
2262:
2263: Pa_Debug.G_Stage := 'Call GetParentRbsData() procedure.';
2259: Pa_Debug.G_Stage := 'Fetch the current child record.';
2260: Fetch c1 Into l_Child_Rec;
2261: Exit When c1%NotFound;
2262:
2263: Pa_Debug.G_Stage := 'Call GetParentRbsData() procedure.';
2264: Pa_Rbs_Elements_Pvt.GetParentRbsData(
2265: P_Parent_Element_Id => l_Child_Rec.Parent_Element_Id,
2266: X_Person_Id => l_Person_Id,
2267: X_Job_Id => l_Job_Id,
2286: X_Supplier_Id => l_Supplier_Id,
2287: X_Rbs_Level => l_Dummy_Rbs_Level,
2288: X_Outline_Number => l_Dummy_Outline_Number);
2289:
2290: Pa_Debug.G_Stage := 'Get the Resource Type by calling Pa_Rbs_Elements_Utils.GetResTypeCode() function.';
2291: l_Resource_Type := Pa_Rbs_Elements_Utils.GetResTypeCode(P_Res_Type_Id => l_Child_Rec.Resource_Type_Id);
2292:
2293: Pa_Debug.G_Stage := 'Determine which resource type we have for this element to properly assign the resource source id.';
2294: If l_Resource_Type = 'BOM_LABOR' Then
2289:
2290: Pa_Debug.G_Stage := 'Get the Resource Type by calling Pa_Rbs_Elements_Utils.GetResTypeCode() function.';
2291: l_Resource_Type := Pa_Rbs_Elements_Utils.GetResTypeCode(P_Res_Type_Id => l_Child_Rec.Resource_Type_Id);
2292:
2293: Pa_Debug.G_Stage := 'Determine which resource type we have for this element to properly assign the resource source id.';
2294: If l_Resource_Type = 'BOM_LABOR' Then
2295:
2296: Pa_Debug.G_Stage := 'Assign the resource source id to BOM Labor.';
2297: l_BOM_Labor_Id := l_Child_Rec.Resource_Source_Id;
2292:
2293: Pa_Debug.G_Stage := 'Determine which resource type we have for this element to properly assign the resource source id.';
2294: If l_Resource_Type = 'BOM_LABOR' Then
2295:
2296: Pa_Debug.G_Stage := 'Assign the resource source id to BOM Labor.';
2297: l_BOM_Labor_Id := l_Child_Rec.Resource_Source_Id;
2298:
2299: Elsif l_Resource_Type = 'BOM_EQUIPMENT' Then
2300:
2297: l_BOM_Labor_Id := l_Child_Rec.Resource_Source_Id;
2298:
2299: Elsif l_Resource_Type = 'BOM_EQUIPMENT' Then
2300:
2301: Pa_Debug.G_Stage := 'Assign the resource source id to BOM Equipment.';
2302: l_BOM_Equip_Id := l_Child_Rec.Resource_Source_Id;
2303:
2304: Elsif l_Resource_Type = 'NAMED_PERSON' Then
2305:
2302: l_BOM_Equip_Id := l_Child_Rec.Resource_Source_Id;
2303:
2304: Elsif l_Resource_Type = 'NAMED_PERSON' Then
2305:
2306: Pa_Debug.G_Stage := 'Assign the resource source id to Named Person.';
2307: l_Person_Id := l_Child_Rec.Resource_Source_Id;
2308:
2309: Elsif l_Resource_Type = 'EVENT_TYPE' Then
2310:
2307: l_Person_Id := l_Child_Rec.Resource_Source_Id;
2308:
2309: Elsif l_Resource_Type = 'EVENT_TYPE' Then
2310:
2311: Pa_Debug.G_Stage := 'Assign the resource source id to Event Type.';
2312: l_Event_Type_Id := l_Child_Rec.Resource_Source_Id;
2313:
2314: Elsif l_Resource_Type = 'EXPENDITURE_CATEGORY' Then
2315:
2312: l_Event_Type_Id := l_Child_Rec.Resource_Source_Id;
2313:
2314: Elsif l_Resource_Type = 'EXPENDITURE_CATEGORY' Then
2315:
2316: Pa_Debug.G_Stage := 'Assign the resource source id to Expenditure Category.';
2317: l_Exp_Cat_Id := l_Child_Rec.Resource_Source_Id;
2318:
2319: Elsif l_Resource_Type = 'EXPENDITURE_TYPE' Then
2320:
2317: l_Exp_Cat_Id := l_Child_Rec.Resource_Source_Id;
2318:
2319: Elsif l_Resource_Type = 'EXPENDITURE_TYPE' Then
2320:
2321: Pa_Debug.G_Stage := 'Assign the resource source id to Expenditure Type.';
2322: l_Exp_Type_Id := l_Child_Rec.Resource_Source_Id;
2323:
2324: Elsif l_Resource_Type = 'ITEM_CATEGORY' Then
2325:
2322: l_Exp_Type_Id := l_Child_Rec.Resource_Source_Id;
2323:
2324: Elsif l_Resource_Type = 'ITEM_CATEGORY' Then
2325:
2326: Pa_Debug.G_Stage := 'Assign the resource source id to Item Category.';
2327: l_Item_Cat_Id := l_Child_Rec.Resource_Source_Id;
2328:
2329: Elsif l_Resource_Type = 'INVENTORY_ITEM' Then
2330:
2327: l_Item_Cat_Id := l_Child_Rec.Resource_Source_Id;
2328:
2329: Elsif l_Resource_Type = 'INVENTORY_ITEM' Then
2330:
2331: Pa_Debug.G_Stage := 'Assign the resource source id to Inventory Item.';
2332: l_Inv_Item_Id := l_Child_Rec.Resource_Source_Id;
2333:
2334: Elsif l_Resource_Type = 'JOB' Then
2335:
2332: l_Inv_Item_Id := l_Child_Rec.Resource_Source_Id;
2333:
2334: Elsif l_Resource_Type = 'JOB' Then
2335:
2336: Pa_Debug.G_Stage := 'Assign the resource source id to Job.';
2337: l_Job_Id := l_Child_Rec.Resource_Source_Id;
2338:
2339: Elsif l_Resource_Type = 'ORGANIZATION' Then
2340:
2337: l_Job_Id := l_Child_Rec.Resource_Source_Id;
2338:
2339: Elsif l_Resource_Type = 'ORGANIZATION' Then
2340:
2341: Pa_Debug.G_Stage := 'Assign the resource source id to Organization.';
2342: l_Organization_Id := l_Child_Rec.Resource_Source_Id;
2343:
2344: Elsif l_Resource_Type = 'PERSON_TYPE' Then
2345:
2342: l_Organization_Id := l_Child_Rec.Resource_Source_Id;
2343:
2344: Elsif l_Resource_Type = 'PERSON_TYPE' Then
2345:
2346: Pa_Debug.G_Stage := 'Assign the resource source id to Person Type.';
2347: l_Person_Type_Id := l_Child_Rec.Resource_Source_Id;
2348:
2349: Elsif l_Resource_Type = 'NON_LABOR_RESOURCE' Then
2350:
2347: l_Person_Type_Id := l_Child_Rec.Resource_Source_Id;
2348:
2349: Elsif l_Resource_Type = 'NON_LABOR_RESOURCE' Then
2350:
2351: Pa_Debug.G_Stage := 'Assign the resource source id to Non Labor Resource.';
2352: l_Non_Labor_Res_Id := l_Child_Rec.Resource_Source_Id;
2353:
2354: Elsif l_Resource_Type = 'RESOURCE_CLASS' Then
2355:
2352: l_Non_Labor_Res_Id := l_Child_Rec.Resource_Source_Id;
2353:
2354: Elsif l_Resource_Type = 'RESOURCE_CLASS' Then
2355:
2356: Pa_Debug.G_Stage := 'Assign the resource source id to Resource Class.';
2357: l_Res_Class_Id := l_Child_Rec.Resource_Source_Id;
2358:
2359: Elsif l_Resource_Type = 'REVENUE_CATEGORY' Then
2360:
2357: l_Res_Class_Id := l_Child_Rec.Resource_Source_Id;
2358:
2359: Elsif l_Resource_Type = 'REVENUE_CATEGORY' Then
2360:
2361: Pa_Debug.G_Stage := 'Assign the resource source id to Revenue Category.';
2362: l_Rev_Cat_Id := l_Child_Rec.Resource_Source_Id;
2363:
2364: Elsif l_Resource_Type = 'ROLE' Then
2365:
2362: l_Rev_Cat_Id := l_Child_Rec.Resource_Source_Id;
2363:
2364: Elsif l_Resource_Type = 'ROLE' Then
2365:
2366: Pa_Debug.G_Stage := 'Assign the resource source id to Role.';
2367: l_Role_Id := l_Child_Rec.Resource_Source_Id;
2368:
2369: Elsif l_Resource_Type = 'SUPPLIER' Then
2370:
2367: l_Role_Id := l_Child_Rec.Resource_Source_Id;
2368:
2369: Elsif l_Resource_Type = 'SUPPLIER' Then
2370:
2371: Pa_Debug.G_Stage := 'Assign the resource source id to Supplier.';
2372: l_Supplier_Id := l_Child_Rec.Resource_Source_Id;
2373:
2374: Elsif l_Resource_Type = 'USER_DEFINED' Then
2375:
2372: l_Supplier_Id := l_Child_Rec.Resource_Source_Id;
2373:
2374: Elsif l_Resource_Type = 'USER_DEFINED' Then
2375:
2376: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined.';
2377: If l_User_Def_Custom1_Id Is Null Then
2378:
2379: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined 1.';
2380: l_User_Def_Custom1_Id := l_Child_Rec.Resource_Source_Id;
2375:
2376: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined.';
2377: If l_User_Def_Custom1_Id Is Null Then
2378:
2379: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined 1.';
2380: l_User_Def_Custom1_Id := l_Child_Rec.Resource_Source_Id;
2381:
2382: ElsIf l_User_Def_Custom2_Id Is Null Then
2383:
2380: l_User_Def_Custom1_Id := l_Child_Rec.Resource_Source_Id;
2381:
2382: ElsIf l_User_Def_Custom2_Id Is Null Then
2383:
2384: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined 2.';
2385: l_User_Def_Custom2_Id := l_Child_Rec.Resource_Source_Id;
2386:
2387: ElsIf l_User_Def_Custom3_Id Is Null Then
2388:
2385: l_User_Def_Custom2_Id := l_Child_Rec.Resource_Source_Id;
2386:
2387: ElsIf l_User_Def_Custom3_Id Is Null Then
2388:
2389: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined 3.';
2390: l_User_Def_Custom3_Id := l_Child_Rec.Resource_Source_Id;
2391:
2392: ElsIf l_User_Def_Custom4_Id Is Null Then
2393:
2390: l_User_Def_Custom3_Id := l_Child_Rec.Resource_Source_Id;
2391:
2392: ElsIf l_User_Def_Custom4_Id Is Null Then
2393:
2394: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined 4.';
2395: l_User_Def_Custom4_Id := l_Child_Rec.Resource_Source_Id;
2396:
2397: ElsIf l_User_Def_Custom5_Id Is Null Then
2398:
2395: l_User_Def_Custom4_Id := l_Child_Rec.Resource_Source_Id;
2396:
2397: ElsIf l_User_Def_Custom5_Id Is Null Then
2398:
2399: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined 5.';
2400: l_User_Def_Custom5_Id := l_Child_Rec.Resource_Source_Id;
2401:
2402: Else
2403:
2400: l_User_Def_Custom5_Id := l_Child_Rec.Resource_Source_Id;
2401:
2402: Else
2403:
2404: Pa_Debug.G_Stage := 'All user defined resources field populated.';
2405: Raise MAX_USER_DEF_RES_IDS;
2406:
2407: End If;
2408:
2407: End If;
2408:
2409: End If;
2410:
2411: Pa_Debug.G_Stage := 'Update the child element record.';
2412: Update Pa_Rbs_Elements
2413: Set
2414: Person_Id = l_Person_Id,
2415: Job_Id = l_Job_Id,
2435: Where Rbs_Element_Id = l_Child_Rec.Rbs_Element_Id;
2436:
2437: End Loop;
2438:
2439: Pa_Debug.G_Stage := 'Close the primary cursor c1.';
2440: Close c1;
2441:
2442: Pa_Debug.G_Stage := 'Leaving Update_Children_Data() procedure.';
2443: Pa_Debug.TrackPath('STRIP','Update_Children_Data');
2438:
2439: Pa_Debug.G_Stage := 'Close the primary cursor c1.';
2440: Close c1;
2441:
2442: Pa_Debug.G_Stage := 'Leaving Update_Children_Data() procedure.';
2443: Pa_Debug.TrackPath('STRIP','Update_Children_Data');
2444:
2445: Exception
2446: When MAX_USER_DEF_RES_IDS Then
2439: Pa_Debug.G_Stage := 'Close the primary cursor c1.';
2440: Close c1;
2441:
2442: Pa_Debug.G_Stage := 'Leaving Update_Children_Data() procedure.';
2443: Pa_Debug.TrackPath('STRIP','Update_Children_Data');
2444:
2445: Exception
2446: When MAX_USER_DEF_RES_IDS Then
2447: X_Error_Msg_Data := 'PA_MAX_USER_DEF_RES_IDS';