[Home] [Help]
20: l_rbs_header_id NUMBER;
21:
22: Begin
23:
24: Pa_Debug.G_Stage := 'Entering Process_Rbs_Elements() Pvt.';
25: Pa_Debug.TrackPath('ADD','Process_Rbs_Elements Pvt');
26:
27: If P_Process_Type = 'D' Then
28:
21:
22: Begin
23:
24: Pa_Debug.G_Stage := 'Entering Process_Rbs_Elements() Pvt.';
25: Pa_Debug.TrackPath('ADD','Process_Rbs_Elements Pvt');
26:
27: If P_Process_Type = 'D' Then
28:
29: Pa_Debug.G_Stage := 'Call DeleteRbsElement() procedure.';
25: Pa_Debug.TrackPath('ADD','Process_Rbs_Elements Pvt');
26:
27: If P_Process_Type = 'D' Then
28:
29: Pa_Debug.G_Stage := 'Call DeleteRbsElement() procedure.';
30:
31: -- We can delete an element in an RBS from the working version
32: -- only if none of the previous RBS versions are used in any
33: -- allocations rules. If the version is used, we prevent the
56: X_RBS_Element_id := null;
57:
58: ElsIf P_Process_Type = 'U' Then
59:
60: Pa_Debug.G_Stage := 'Call UpdateExistingRbsElement() procedure.';
61:
62: Pa_Rbs_Elements_Pvt.UpdateExisingRbsElement(
63: P_Rbs_Version_Id => P_Rbs_Version_Id,
64: P_Parent_Element_Id => P_Parent_Element_Id,
75: X_RBS_Element_id := P_Parent_Element_Id;
76:
77: Else
78:
79: Pa_Debug.G_Stage := 'Call CreateNewRbsElement() procedure.';
80: Pa_Rbs_Elements_Pvt.CreateNewRbsElement(
81: P_Rbs_Version_Id => P_Rbs_Version_Id,
82: P_Parent_Element_Id => P_Parent_Element_Id,
83: P_Rbs_Element_Id => P_Element_Id,
91: X_Error_Msg_Data => X_Error_Msg_Data);
92:
93: End If;
94:
95: Pa_Debug.G_Stage := 'Leaving Process_Rbs_Elements() Pvt procedure.';
96: Pa_Debug.TrackPath('STRIP','Process_Rbs_Elements Pvt');
97:
98:
99: Exception
92:
93: End If;
94:
95: Pa_Debug.G_Stage := 'Leaving Process_Rbs_Elements() Pvt procedure.';
96: Pa_Debug.TrackPath('STRIP','Process_Rbs_Elements Pvt');
97:
98:
99: Exception
100: When Others Then
157: INTO l_parent_outline_number
158: FROM pa_rbs_elements
159: WHERE rbs_element_id = l_parent_id;
160:
161: Pa_Debug.G_Stage := 'Entering DeleteRbsElement().';
162: Pa_Debug.TrackPath('ADD','DeleteRbsElement');
163:
164: Pa_Debug.G_Stage := 'Call DeleteRbsElement() procedure.';
165: IF Pa_Rbs_Elements_Utils.RbsElementExists( P_Element_Id => P_Element_Id ) = 'Y' Then
158: FROM pa_rbs_elements
159: WHERE rbs_element_id = l_parent_id;
160:
161: Pa_Debug.G_Stage := 'Entering DeleteRbsElement().';
162: Pa_Debug.TrackPath('ADD','DeleteRbsElement');
163:
164: Pa_Debug.G_Stage := 'Call DeleteRbsElement() procedure.';
165: IF Pa_Rbs_Elements_Utils.RbsElementExists( P_Element_Id => P_Element_Id ) = 'Y' Then
166:
160:
161: Pa_Debug.G_Stage := 'Entering DeleteRbsElement().';
162: Pa_Debug.TrackPath('ADD','DeleteRbsElement');
163:
164: Pa_Debug.G_Stage := 'Call DeleteRbsElement() procedure.';
165: IF Pa_Rbs_Elements_Utils.RbsElementExists( P_Element_Id => P_Element_Id ) = 'Y' Then
166:
167: Pa_Debug.G_Stage := 'Delete the children elements/nodes using cursor and loop.';
168: Open c1(P_Element_Id);
163:
164: Pa_Debug.G_Stage := 'Call DeleteRbsElement() procedure.';
165: IF Pa_Rbs_Elements_Utils.RbsElementExists( P_Element_Id => P_Element_Id ) = 'Y' Then
166:
167: Pa_Debug.G_Stage := 'Delete the children elements/nodes using cursor and loop.';
168: Open c1(P_Element_Id);
169: Loop
170:
171: Fetch c1 Into l_id;
170:
171: Fetch c1 Into l_id;
172: Exit When c1%NotFound;
173:
174: Pa_Debug.G_Stage := 'Delete child element/node by calling table handler.';
175: Pa_Rbs_Elements_Pkg.Delete_Row(P_Rbs_Element_Id => l_id);
176:
177:
178: End Loop;
180: Close c1;
181:
182: Else -- The element does not exist
183:
184: Pa_Debug.G_Stage := 'Could not find the element/node to delete.';
185: Raise No_Data_Found;
186:
187: END IF;
188:
241: END LOOP;
242:
243: CLOSE get_later_sibs;
244:
245: Pa_Debug.G_Stage := 'Leaving DeleteRbsElement() procedure.';
246: Pa_Debug.TrackPath('STRIP','DeleteRbsElement');
247:
248: EXCEPTION
249: When Others Then
242:
243: CLOSE get_later_sibs;
244:
245: Pa_Debug.G_Stage := 'Leaving DeleteRbsElement() procedure.';
246: Pa_Debug.TrackPath('STRIP','DeleteRbsElement');
247:
248: EXCEPTION
249: When Others Then
250: Raise;
303: Start With Parent_Element_Id = P_Rbs_Element_Id
304: Connect By Prior Rbs_Element_Id = Parent_Element_Id;
305: BEGIN
306:
307: Pa_Debug.G_Stage := 'Entering UpdateExisingRbsElement().';
308: Pa_Debug.TrackPath('ADD','UpdateExisingRbsElement');
309:
310:
311: -- Check if the parent element is valid.
304: Connect By Prior Rbs_Element_Id = Parent_Element_Id;
305: BEGIN
306:
307: Pa_Debug.G_Stage := 'Entering UpdateExisingRbsElement().';
308: Pa_Debug.TrackPath('ADD','UpdateExisingRbsElement');
309:
310:
311: -- Check if the parent element is valid.
312: Pa_Debug.G_Stage := 'Check to see if parent element/node exists.';
308: Pa_Debug.TrackPath('ADD','UpdateExisingRbsElement');
309:
310:
311: -- Check if the parent element is valid.
312: Pa_Debug.G_Stage := 'Check to see if parent element/node exists.';
313:
314:
315: If Pa_Rbs_Elements_Utils.RbsElementExists( P_Element_Id => P_Parent_Element_Id ) = 'Y' Then
316:
314:
315: If Pa_Rbs_Elements_Utils.RbsElementExists( P_Element_Id => P_Parent_Element_Id ) = 'Y' Then
316:
317:
318: Pa_Debug.G_Stage := 'Call ValidateAndBuildElement() procedure.';
319:
320: Pa_Rbs_Elements_Pvt.ValidateAndBuildElement(
321: P_Mode => l_Mode,
322: P_Rbs_Version_Id => P_Rbs_Version_Id,
357:
358: If X_Error_Msg_Data is Null Then
359:
360: -- call the table handler to update the record.
361: Pa_Debug.G_Stage := 'Call Pa_Rbs_Elements_Pkg.Update_Row() procedure.';
362:
363: Pa_Rbs_Elements_Pkg.Update_Row(
364: P_Rbs_Element_Id => P_Rbs_Element_Id,
365: P_Rbs_Element_Name_Id => l_Rbs_Element_Name_Id,
439:
440: -- Bug 3636175
441: -- This call is to update the elements below the one just updated with the changes made
442: -- so that the mapping for the rbs does not become broken.
443: PA_Debug.G_Stage := 'Call Pa_Rbs_Elements_Pvt.Update_Children_Data() procedure.';
444: Pa_Rbs_Elements_Pvt.Update_Children_Data(
445: P_Rbs_Element_Id => P_Rbs_Element_Id,
446: X_Error_Msg_Data => X_Error_Msg_Data);
447:
451: End If; -- error returned from ResourceNameCheck() procedure
452:
453: Else -- The parent element does not exist
454:
455: Pa_Debug.G_Stage := 'Parent element/node does not exists.';
456: Raise No_Data_Found;
457:
458: End If; -- Pa_Rbs_Elements_Utils.RbsElementExists()
459:
456: Raise No_Data_Found;
457:
458: End If; -- Pa_Rbs_Elements_Utils.RbsElementExists()
459:
460: Pa_Debug.G_Stage := 'Leaving UpdateExisingRbsElement() procedure.';
461: Pa_Debug.TrackPath('STRIP','UpdateExisingRbsElement');
462:
463:
464: EXCEPTION
457:
458: End If; -- Pa_Rbs_Elements_Utils.RbsElementExists()
459:
460: Pa_Debug.G_Stage := 'Leaving UpdateExisingRbsElement() procedure.';
461: Pa_Debug.TrackPath('STRIP','UpdateExisingRbsElement');
462:
463:
464: EXCEPTION
465: WHEN OTHERS THEN
513: l_Mode Varchar2(1) := 'A';
514:
515: Begin
516:
517: Pa_Debug.G_Stage := 'Entering CreateNewRbsElement().';
518: Pa_Debug.TrackPath('ADD','CreateNewRbsElement');
519:
520: -- Check if the parent element is valid.
521: Pa_Debug.G_Stage := 'Check to see if parent element/node exists.';
514:
515: Begin
516:
517: Pa_Debug.G_Stage := 'Entering CreateNewRbsElement().';
518: Pa_Debug.TrackPath('ADD','CreateNewRbsElement');
519:
520: -- Check if the parent element is valid.
521: Pa_Debug.G_Stage := 'Check to see if parent element/node exists.';
522: If Pa_Rbs_Elements_Utils.RbsElementExists( P_Element_Id => P_Parent_Element_Id ) = 'Y' Then
517: Pa_Debug.G_Stage := 'Entering CreateNewRbsElement().';
518: Pa_Debug.TrackPath('ADD','CreateNewRbsElement');
519:
520: -- Check if the parent element is valid.
521: Pa_Debug.G_Stage := 'Check to see if parent element/node exists.';
522: If Pa_Rbs_Elements_Utils.RbsElementExists( P_Element_Id => P_Parent_Element_Id ) = 'Y' Then
523:
524: Pa_Debug.G_Stage := 'Call ValidateAndBuildElement() procedure.';
525: Pa_Rbs_Elements_Pvt.ValidateAndBuildElement(
520: -- Check if the parent element is valid.
521: Pa_Debug.G_Stage := 'Check to see if parent element/node exists.';
522: If Pa_Rbs_Elements_Utils.RbsElementExists( P_Element_Id => P_Parent_Element_Id ) = 'Y' Then
523:
524: Pa_Debug.G_Stage := 'Call ValidateAndBuildElement() procedure.';
525: Pa_Rbs_Elements_Pvt.ValidateAndBuildElement(
526: P_Mode => l_Mode,
527: P_Rbs_Version_Id => P_Rbs_Version_Id,
528: P_Parent_Element_Id => P_Parent_Element_Id,
561:
562: If X_Error_Msg_Data is Null Then
563:
564: -- call the table handler to update the record.
565: Pa_Debug.G_Stage := 'Call Pa_Rbs_Elements_Pkg.Insert_Row() procedure.';
566: Pa_Rbs_Elements_Pkg.Insert_Row(
567: P_Rbs_Element_Name_Id => l_Rbs_Element_Name_Id,
568: P_Rbs_Version_Id => P_Rbs_Version_Id,
569: P_Outline_Number => l_outline_number,
610: End If; -- error returned from ResourceNameCheck() procedure
611:
612: Else -- The parent element does not exist
613:
614: Pa_Debug.G_Stage := 'Parent element/node does not exist.';
615: Raise No_Data_Found;
616:
617: End If; -- Pa_Rbs_Elements_Utils.RbsElementExists()
618:
615: Raise No_Data_Found;
616:
617: End If; -- Pa_Rbs_Elements_Utils.RbsElementExists()
618:
619: Pa_Debug.G_Stage := 'Leaving CreateNewRbsElement() procedure.';
620: Pa_Debug.TrackPath('STRIP','CreateNewRbsElement');
621:
622: Exception
623: When Others Then
616:
617: End If; -- Pa_Rbs_Elements_Utils.RbsElementExists()
618:
619: Pa_Debug.G_Stage := 'Leaving CreateNewRbsElement() procedure.';
620: Pa_Debug.TrackPath('STRIP','CreateNewRbsElement');
621:
622: Exception
623: When Others Then
624: Raise;
710: -- hr_utility.trace_on(NULL, 'RMRBS');
711: -- hr_utility.trace('******** START ******* ');
712: --dbms_output.put_line('******** START *******');
713:
714: Pa_Debug.G_Stage := 'Entering ValidateAndBuildElement().';
715: Pa_Debug.TrackPath('ADD','ValidateAndBuildElement');
716:
717: IF p_mode = 'U' THEN
718: -- Get the old Resource Type Id and Resource Source Id for
711: -- hr_utility.trace('******** START ******* ');
712: --dbms_output.put_line('******** START *******');
713:
714: Pa_Debug.G_Stage := 'Entering ValidateAndBuildElement().';
715: Pa_Debug.TrackPath('ADD','ValidateAndBuildElement');
716:
717: IF p_mode = 'U' THEN
718: -- Get the old Resource Type Id and Resource Source Id for
719: -- the element.
724: FROM PA_RBS_ELEMENTS
725: WHERE rbs_element_id = p_rbs_element_id;
726: END IF;
727:
728: Pa_Debug.G_Stage := 'Call ValidateRbsElement() procedure.';
729: --dbms_output.put_line('before ValidateRbsElement');
730: Pa_Rbs_Elements_Pvt.ValidateRbsElement(
731: P_Mode => P_Mode,
732: P_Rbs_Version_Id => P_Rbs_Version_Id,
741:
742: --dbms_output.put_line('after ValidateRbsElement');
743: If X_Error_Msg_Data is Null Then
744:
745: Pa_Debug.G_Stage := 'Call GetParentRbsData() procedure.';
746: --dbms_output.put_line('before GetParentRbsData');
747: Pa_Rbs_Elements_Pvt.GetParentRbsData(
748: P_Parent_Element_Id => P_Parent_Element_Id,
749: X_Person_Id => X_Person_Id,
772: --dbms_output.put_line('after GetParentRbsData');
773:
774: If l_Resource_Type = 'BOM_LABOR' Then
775:
776: Pa_Debug.G_Stage := 'Assign the resource source id to BOM Labor.';
777: X_BOM_Labor_Id := P_Resource_Source_Id;
778:
779: Elsif l_Resource_Type = 'BOM_EQUIPMENT' Then
780:
777: X_BOM_Labor_Id := P_Resource_Source_Id;
778:
779: Elsif l_Resource_Type = 'BOM_EQUIPMENT' Then
780:
781: Pa_Debug.G_Stage := 'Assign the resource source id to BOM Equipment.';
782: X_BOM_Equip_Id := P_Resource_Source_Id;
783:
784: Elsif l_Resource_Type = 'NAMED_PERSON' Then
785:
782: X_BOM_Equip_Id := P_Resource_Source_Id;
783:
784: Elsif l_Resource_Type = 'NAMED_PERSON' Then
785:
786: Pa_Debug.G_Stage := 'Assign the resource source id to Named Person.';
787: X_Person_Id := P_Resource_Source_Id;
788:
789: Elsif l_Resource_Type = 'EVENT_TYPE' Then
790:
787: X_Person_Id := P_Resource_Source_Id;
788:
789: Elsif l_Resource_Type = 'EVENT_TYPE' Then
790:
791: Pa_Debug.G_Stage := 'Assign the resource source id to Event Type.';
792: X_Event_Type_Id := P_Resource_Source_Id;
793:
794: Elsif l_Resource_Type = 'EXPENDITURE_CATEGORY' Then
795:
792: X_Event_Type_Id := P_Resource_Source_Id;
793:
794: Elsif l_Resource_Type = 'EXPENDITURE_CATEGORY' Then
795:
796: Pa_Debug.G_Stage := 'Assign the resource source id to Expenditure Category.';
797: X_Exp_Cat_Id := P_Resource_Source_Id;
798:
799: Elsif l_Resource_Type = 'EXPENDITURE_TYPE' Then
800:
797: X_Exp_Cat_Id := P_Resource_Source_Id;
798:
799: Elsif l_Resource_Type = 'EXPENDITURE_TYPE' Then
800:
801: Pa_Debug.G_Stage := 'Assign the resource source id to Expenditure Type.';
802: X_Exp_Type_Id := P_Resource_Source_Id;
803:
804: Elsif l_Resource_Type = 'ITEM_CATEGORY' Then
805:
802: X_Exp_Type_Id := P_Resource_Source_Id;
803:
804: Elsif l_Resource_Type = 'ITEM_CATEGORY' Then
805:
806: Pa_Debug.G_Stage := 'Assign the resource source id to Item Category.';
807: X_Item_Cat_Id := P_Resource_Source_Id;
808:
809: Elsif l_Resource_Type = 'INVENTORY_ITEM' Then
810:
807: X_Item_Cat_Id := P_Resource_Source_Id;
808:
809: Elsif l_Resource_Type = 'INVENTORY_ITEM' Then
810:
811: Pa_Debug.G_Stage := 'Assign the resource source id to Inventory Item.';
812: X_Inv_Item_Id := P_Resource_Source_Id;
813:
814: Elsif l_Resource_Type = 'JOB' Then
815:
812: X_Inv_Item_Id := P_Resource_Source_Id;
813:
814: Elsif l_Resource_Type = 'JOB' Then
815:
816: Pa_Debug.G_Stage := 'Assign the resource source id to Job.';
817: X_Job_Id := P_Resource_Source_Id;
818:
819: Elsif l_Resource_Type = 'ORGANIZATION' Then
820:
817: X_Job_Id := P_Resource_Source_Id;
818:
819: Elsif l_Resource_Type = 'ORGANIZATION' Then
820:
821: Pa_Debug.G_Stage := 'Assign the resource source id to Organization.';
822: X_Organization_Id := P_Resource_Source_Id;
823:
824: Elsif l_Resource_Type = 'PERSON_TYPE' Then
825:
822: X_Organization_Id := P_Resource_Source_Id;
823:
824: Elsif l_Resource_Type = 'PERSON_TYPE' Then
825:
826: Pa_Debug.G_Stage := 'Assign the resource source id to Person Type.';
827: X_Person_Type_Id := P_Resource_Source_Id;
828:
829: Elsif l_Resource_Type = 'NON_LABOR_RESOURCE' Then
830:
827: X_Person_Type_Id := P_Resource_Source_Id;
828:
829: Elsif l_Resource_Type = 'NON_LABOR_RESOURCE' Then
830:
831: Pa_Debug.G_Stage := 'Assign the resource source id to Non Labor Resource.';
832: X_Non_Labor_Res_Id := P_Resource_Source_Id;
833:
834: Elsif l_Resource_Type = 'RESOURCE_CLASS' Then
835:
832: X_Non_Labor_Res_Id := P_Resource_Source_Id;
833:
834: Elsif l_Resource_Type = 'RESOURCE_CLASS' Then
835:
836: Pa_Debug.G_Stage := 'Assign the resource source id to Resource Class.';
837: X_Res_Class_Id := P_Resource_Source_Id;
838:
839: Elsif l_Resource_Type = 'REVENUE_CATEGORY' Then
840:
837: X_Res_Class_Id := P_Resource_Source_Id;
838:
839: Elsif l_Resource_Type = 'REVENUE_CATEGORY' Then
840:
841: Pa_Debug.G_Stage := 'Assign the resource source id to Revenue Category.';
842: X_Rev_Cat_Id := P_Resource_Source_Id;
843:
844: Elsif l_Resource_Type = 'ROLE' Then
845:
842: X_Rev_Cat_Id := P_Resource_Source_Id;
843:
844: Elsif l_Resource_Type = 'ROLE' Then
845:
846: Pa_Debug.G_Stage := 'Assign the resource source id to Role.';
847: X_Role_Id := P_Resource_Source_Id;
848:
849: Elsif l_Resource_Type = 'SUPPLIER' Then
850:
847: X_Role_Id := P_Resource_Source_Id;
848:
849: Elsif l_Resource_Type = 'SUPPLIER' Then
850:
851: Pa_Debug.G_Stage := 'Assign the resource source id to Supplier.';
852: X_Supplier_Id := P_Resource_Source_Id;
853:
854: Elsif l_Resource_Type = 'USER_DEFINED' Then
855:
852: X_Supplier_Id := P_Resource_Source_Id;
853:
854: Elsif l_Resource_Type = 'USER_DEFINED' Then
855:
856: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined.';
857: If X_User_Def_Custom1_Id Is Null Then
858:
859: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined 1.';
860: X_User_Def_Custom1_Id := P_Resource_Source_Id;
855:
856: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined.';
857: If X_User_Def_Custom1_Id Is Null Then
858:
859: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined 1.';
860: X_User_Def_Custom1_Id := P_Resource_Source_Id;
861:
862: ElsIf X_User_Def_Custom2_Id Is Null Then
863:
860: X_User_Def_Custom1_Id := P_Resource_Source_Id;
861:
862: ElsIf X_User_Def_Custom2_Id Is Null Then
863:
864: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined 2.';
865: X_User_Def_Custom2_Id := P_Resource_Source_Id;
866:
867: ElsIf X_User_Def_Custom3_Id Is Null Then
868:
865: X_User_Def_Custom2_Id := P_Resource_Source_Id;
866:
867: ElsIf X_User_Def_Custom3_Id Is Null Then
868:
869: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined 3.';
870: X_User_Def_Custom3_Id := P_Resource_Source_Id;
871:
872: ElsIf X_User_Def_Custom4_Id Is Null Then
873:
870: X_User_Def_Custom3_Id := P_Resource_Source_Id;
871:
872: ElsIf X_User_Def_Custom4_Id Is Null Then
873:
874: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined 4.';
875: X_User_Def_Custom4_Id := P_Resource_Source_Id;
876:
877: ElsIf X_User_Def_Custom5_Id Is Null Then
878:
875: X_User_Def_Custom4_Id := P_Resource_Source_Id;
876:
877: ElsIf X_User_Def_Custom5_Id Is Null Then
878:
879: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined 5.';
880: X_User_Def_Custom5_Id := P_Resource_Source_Id;
881:
882: Else
883:
880: X_User_Def_Custom5_Id := P_Resource_Source_Id;
881:
882: Else
883:
884: Pa_Debug.G_Stage := 'All user defined resources field populated.';
885: Raise MAX_USER_DEF_RES_IDS;
886:
887: End If;
888:
892: --Modified for bug fix 3736374.
893: --Rule flag is set 'N' for an instance based node and all RBS nodes
894: --(both rule and instance-based) below it.
895: --Top most node of an RBS has rule flag = 'N'.
896: Pa_Debug.G_Stage := 'Determine the rule based flag.';
897: --dbms_output.put_line('get rule based flag');
898: Select
899: Decode(r.parent_element_id,null,Decode(P_Resource_Source_Id,-1,'Y','N'),
900: Decode(r.rule_flag,'Y',Decode(P_Resource_Source_Id,-1,'Y','N'),'N'))
907:
908: --dbms_output.put_line('after get rule based flag');
909: -- Need to increment the Rbs Level for the child we got
910: -- the value from the parent.
911: Pa_Debug.G_Stage := 'Increment the rbs level based on the parent level.';
912: X_Rbs_level := X_Rbs_Level + 1;
913:
914: IF X_Rbs_Level > 10 THEN
915: -- We do not allow more then 10 Levels. So error out.
915: -- We do not allow more then 10 Levels. So error out.
916: RAISE MAX_RBS_LEVELS;
917: END IF;
918:
919: PA_DEBUG.G_Stage := 'Check if element is variation of same combination in different combination - Job-Org vs Org-Job.';
920: -- Fix bugs 3909551 and 3882731 by checking to see if the new/upd
921: -- element already exists in the RBS; if so, then check the entire
922: -- branch (except UDR) and ensure they are not the same. This will
923: -- prevent creation of DBA-Cons East and Cons East-DBA, and the
943: EXIT WHEN chk_element_exists%NOTFOUND OR
944: l_unique_branch = 'N';
945:
946: -- If element exists, then check uniqueness on branch:
947: PA_DEBUG.G_Stage := 'Check if element is unique combination - validation check 10.';
948:
949: IF l_ele_exists = 'Y' THEN
950: -- hr_utility.trace('ELE EXISTS');
951: BEGIN
1107:
1108: -- The procedure Pa_Rbs_Utils.Populate_RBS_Element_Name() handles
1109: -- returning the rbs_element_name_id and creating rbs element name
1110: -- records if needed.
1111: Pa_Debug.G_Stage := 'Call Pa_Rbs_Utils.Populate_RBS_Element_Name() procedure.';
1112:
1113:
1114: Pa_Rbs_Utils.Populate_RBS_Element_Name (
1115: P_Resource_Source_Id => P_Resource_Source_Id,
1119:
1120:
1121: If l_Dummy_Error_Status <> FND_API.G_RET_STS_SUCCESS
1122: Then
1123: Pa_Debug.G_Stage := 'Call to Pa_Rbs_Utils.Populate_RBS_Element_Name() procedure failed.';
1124: Raise GET_ELEMENT_NAME_ID_FAILED;
1125: End If;
1126:
1127: -- Get the Element Identifier
1124: Raise GET_ELEMENT_NAME_ID_FAILED;
1125: End If;
1126:
1127: -- Get the Element Identifier
1128: Pa_Debug.G_Stage := 'Check if update or add to determine element identifier value.';
1129: IF P_Mode = 'A' THEN
1130:
1131: Pa_Debug.G_Stage := 'Get the next available element identifier sequence value for add.';
1132: -- Get the next value in the sequence
1127: -- Get the Element Identifier
1128: Pa_Debug.G_Stage := 'Check if update or add to determine element identifier value.';
1129: IF P_Mode = 'A' THEN
1130:
1131: Pa_Debug.G_Stage := 'Get the next available element identifier sequence value for add.';
1132: -- Get the next value in the sequence
1133: Select Pa_Rbs_Element_Identifier_S.NextVal
1134: Into X_Element_Identifier
1135: From Dual;
1135: From Dual;
1136:
1137: ELSE
1138:
1139: Pa_Debug.G_Stage := 'Retrieve the element identifier value from pa_rbs_elements for update.';
1140: -- Get the value from the rbs_elements table.
1141: Select Element_Identifier
1142: Into X_Element_Identifier
1143: From Pa_Rbs_Elements
1181:
1182:
1183: END IF;
1184:
1185: Pa_Debug.G_Stage := 'Leaving ValidateAndBuildElement() procedure.';
1186: Pa_Debug.TrackPath('STRIP','ValidateAndBuildElement');
1187:
1188: Exception
1189: When MAX_USER_DEF_RES_IDS Then
1182:
1183: END IF;
1184:
1185: Pa_Debug.G_Stage := 'Leaving ValidateAndBuildElement() procedure.';
1186: Pa_Debug.TrackPath('STRIP','ValidateAndBuildElement');
1187:
1188: Exception
1189: When MAX_USER_DEF_RES_IDS Then
1190: X_Error_Msg_Data := 'PA_MAX_USER_DEF_RES_IDS';
1309:
1310:
1311: BEGIN
1312:
1313: Pa_Debug.G_Stage := 'Entering ValidateRbsElement().';
1314: Pa_Debug.TrackPath('ADD','ValidateRbsElement');
1315:
1316: -- 1. Validate the resource_type
1317: -- We need this validation irrespective of whether the resource type is
1310:
1311: BEGIN
1312:
1313: Pa_Debug.G_Stage := 'Entering ValidateRbsElement().';
1314: Pa_Debug.TrackPath('ADD','ValidateRbsElement');
1315:
1316: -- 1. Validate the resource_type
1317: -- We need this validation irrespective of whether the resource type is
1318: -- changed or not. The x_resource_type we get below is used by the
1324:
1325: IF X_Resource_Type is Null or X_Resource_Type = 'NAMED_ROLE'
1326: THEN
1327:
1328: Pa_Debug.G_Stage := 'Invalid resource type id passed in.';
1329: RAISE INVAL_RES_TYPE;
1330: END IF;
1331:
1332: -- If the resource type or the resource source id has not changed from
1338: END IF;
1339:
1340:
1341: -- 2. If the element is rule based, and resource_type is user-defined, it's an error.
1342: Pa_Debug.G_Stage := 'Determine if rule and user-defined which is not allowed.';
1343: If P_Resource_Source_Id = -1 and X_Resource_Type = 'USER_DEFINED' Then
1344:
1345: Pa_Debug.G_Stage := 'Rule and user defined raise user defined error.';
1346: Raise ELEMENT_USER_DEF_RULE;
1341: -- 2. If the element is rule based, and resource_type is user-defined, it's an error.
1342: Pa_Debug.G_Stage := 'Determine if rule and user-defined which is not allowed.';
1343: If P_Resource_Source_Id = -1 and X_Resource_Type = 'USER_DEFINED' Then
1344:
1345: Pa_Debug.G_Stage := 'Rule and user defined raise user defined error.';
1346: Raise ELEMENT_USER_DEF_RULE;
1347:
1348: End If;
1349:
1348: End If;
1349:
1350: -- 3. If the element is not rule based, and resource_type is not user-defined,
1351: -- validate the resource_source_id.
1352: Pa_Debug.G_Stage := 'Validate the resource by calling the ValidateResource() procedure.';
1353: Pa_Rbs_Elements_Pvt.ValidateResource(
1354: P_Resource_Type_Id => P_Resource_Type_Id,
1355: P_Resource_Source_Id => P_Resource_Source_Id,
1356: P_Resource_Type => X_Resource_Type,
1357: X_Error_Msg_Data => X_Error_Msg_Data);
1358:
1359: If X_Error_Msg_Data is Not Null Then
1360:
1361: Pa_Debug.G_Stage := 'The Resource is invalid. Raise user defined error.';
1362: Raise INVALID_RESOURCE;
1363:
1364: End If;
1365:
1363:
1364: End If;
1365:
1366: -- 4. Validate that the element is not the same as it's siblings.
1367: Pa_Debug.G_Stage := 'Open c_CheckDupSiblings cursor - validation check 4.';
1368: Open c_CheckDupSiblings(P_Rbs_Version_Id,
1369: P_Parent_Element_Id,
1370: P_Resource_Source_Id,
1371: P_Resource_Type_Id);
1377: IF l_dummy_count = 0
1378: THEN
1379: Null;
1380: ELSE
1381: Pa_Debug.G_Stage := 'Records found! Close c_CheckDupSiblings cursor. ' ||
1382: 'Raise user defined error - validation check 4.';
1383: RAISE DUP_SIBLING_RES_RES_TYPE;
1384: END IF;
1385:
1399: OPEN GET_RBS_HEADER_INFO;
1400: FETCH GET_RBS_HEADER_INFO INTO L_CBS_FLAG;
1401: CLOSE GET_RBS_HEADER_INFO;
1402: IF(L_CBS_FLAG = 'N') THEN --Skipping this validation for CBS
1403: Pa_Debug.G_Stage := 'Raise user defined error - validation check 5.';
1404: Raise DUP_PARENT_RES_RES_TYPE;
1405: END IF;
1406: END IF;
1407:
1407:
1408: -- 6. Validate that the element is not repeated in the branches below it.
1409: -- This check does not need to be done when adding a element/node. It won't have children
1410: -- to worry about.
1411: Pa_Debug.G_Stage := 'Check if validation is for updating an element - validation check 6.';
1412: If P_Mode = 'U' THEN
1413:
1414: Open c_CheckExistChildMatch(P_Resource_Type_Id,P_Resource_Source_Id,P_Rbs_Element_Id);
1415:
1418:
1419: IF l_dummy_count = 0 THEN
1420: Null;
1421: ELSE
1422: Pa_Debug.G_Stage := 'Raise user defined error - validation check 6.';
1423: Raise DUP_CHILD_RES_RES_TYPE;
1424: END IF;
1425:
1426: END IF;
1424: END IF;
1425:
1426: END IF;
1427:
1428: PA_DEBUG.G_Stage := 'Check if element/node is rule based - validation check 7.';
1429:
1430: -- 7. Resources of Same Resource Type can be repeated in a branch only
1431: -- in consecutive generations and if both the elements are instance
1432: -- based (not rule based)
1550:
1551: END IF;
1552:
1553: END IF; /* p_mode = 'U' */
1554: Pa_Debug.G_Stage := 'Leaving ValidateRbsElement() procedure.';
1555: Pa_Debug.TrackPath('STRIP','ValidateRbsElement');
1556:
1557: EXCEPTION
1558: WHEN INVAL_RES_TYPE THEN
1551: END IF;
1552:
1553: END IF; /* p_mode = 'U' */
1554: Pa_Debug.G_Stage := 'Leaving ValidateRbsElement() procedure.';
1555: Pa_Debug.TrackPath('STRIP','ValidateRbsElement');
1556:
1557: EXCEPTION
1558: WHEN INVAL_RES_TYPE THEN
1559: X_Error_Msg_Data := 'PA_RBS_INVAL_RES_TYPE';
1743:
1744: Begin
1745:
1746:
1747: Pa_Debug.G_Stage := 'Entering ValidateResource().';
1748: Pa_Debug.TrackPath('ADD','ValidateResource');
1749:
1750: Pa_Debug.G_Stage := 'Check what the resource type is to determine how to validate the resource.';
1751:
1744: Begin
1745:
1746:
1747: Pa_Debug.G_Stage := 'Entering ValidateResource().';
1748: Pa_Debug.TrackPath('ADD','ValidateResource');
1749:
1750: Pa_Debug.G_Stage := 'Check what the resource type is to determine how to validate the resource.';
1751:
1752: If P_Resource_Type IN ('BOM_LABOR','BOM_EQUIPMENT') And
1746:
1747: Pa_Debug.G_Stage := 'Entering ValidateResource().';
1748: Pa_Debug.TrackPath('ADD','ValidateResource');
1749:
1750: Pa_Debug.G_Stage := 'Check what the resource type is to determine how to validate the resource.';
1751:
1752: If P_Resource_Type IN ('BOM_LABOR','BOM_EQUIPMENT') And
1753: P_Resource_Source_Id <> -1 Then
1754:
1751:
1752: If P_Resource_Type IN ('BOM_LABOR','BOM_EQUIPMENT') And
1753: P_Resource_Source_Id <> -1 Then
1754:
1755: Pa_Debug.G_Stage := 'Validating BOM Labor or BOM Equipment resource.';
1756: Open c_BOM(P_Resource_Source_Id);
1757: Fetch c_BOM Into l_Dummy;
1758:
1759: If c_BOM%NotFound Then
1765:
1766: Elsif P_Resource_Type = 'NAMED_PERSON' And
1767: P_Resource_Source_Id <> -1 Then
1768:
1769: Pa_Debug.G_Stage := 'Validating Name Person resource.';
1770: Open c_People(P_Resource_Source_Id);
1771: Fetch c_People Into l_Dummy;
1772:
1773: If c_People%NotFound Then
1779:
1780: Elsif P_Resource_Type = 'EVENT_TYPE' And
1781: P_Resource_Source_Id <> -1 Then
1782:
1783: Pa_Debug.G_Stage := 'Validating Event Type resource.';
1784: Open c_EventType(P_Resource_Source_Id);
1785: Fetch c_EventType Into l_Dummy;
1786:
1787: If c_EventType%NotFound Then
1793:
1794: Elsif P_Resource_Type = 'EXPENDITURE_CATEGORY' And
1795: P_Resource_Source_Id <> -1 Then
1796:
1797: Pa_Debug.G_Stage := 'Validating Expenditure Category resource.';
1798: Open c_ExpCat(P_Resource_Source_Id);
1799: Fetch c_ExpCat Into l_Dummy;
1800:
1801: If c_ExpCat%NotFound Then
1807:
1808: Elsif P_Resource_Type = 'EXPENDITURE_TYPE' And
1809: P_Resource_Source_Id <> -1 Then
1810:
1811: Pa_Debug.G_Stage := 'Validating Expenditure Type resource.';
1812: Open c_ExpType(P_Resource_Source_Id);
1813: Fetch c_ExpType Into l_Dummy;
1814:
1815: If c_ExpType%NotFound Then
1821:
1822: Elsif P_Resource_Type = 'ITEM_CATEGORY' And
1823: P_Resource_Source_Id <> -1 Then
1824:
1825: Pa_Debug.G_Stage := 'Validating Item Category resource.';
1826: Open c_ItemCat(P_Resource_Source_Id);
1827: Fetch c_ItemCat Into l_Dummy;
1828:
1829: If c_ItemCat%NotFound Then
1835:
1836: Elsif P_Resource_Type = 'INVENTORY_ITEM' And
1837: P_Resource_Source_Id <> -1 Then
1838:
1839: Pa_Debug.G_Stage := 'Validating Inventory Item resource.';
1840: Open c_InvenItem(P_Resource_Source_Id);
1841: Fetch c_InvenItem Into l_Dummy;
1842:
1843: If c_InvenItem%NotFound Then
1849:
1850: Elsif P_Resource_Type = 'JOB' And
1851: P_Resource_Source_Id <> -1 Then
1852:
1853: Pa_Debug.G_Stage := 'Validating Job resource.';
1854: Open c_Job(P_Resource_Source_Id);
1855: Fetch c_Job Into l_Dummy;
1856:
1857: If c_Job%NotFound Then
1863:
1864: Elsif P_Resource_Type = 'ORGANIZATION' And
1865: P_Resource_Source_Id <> -1 Then
1866:
1867: Pa_Debug.G_Stage := 'Validating Organization resource.';
1868: Open c_Org(P_Resource_Source_Id);
1869: Fetch c_Org Into l_Dummy;
1870:
1871: If c_Org%NotFound Then
1877:
1878: Elsif P_Resource_Type = 'PERSON_TYPE' And
1879: P_Resource_Source_Id <> -1 Then
1880:
1881: Pa_Debug.G_Stage := 'Validating Person Type resource.';
1882: --Commented for Bug 3780201
1883: /* Open c_PerTypes(P_Resource_Source_Id);
1884: Fetch c_PerTypes Into l_Dummy;
1885:
1915:
1916: Elsif P_Resource_Type = 'NON_LABOR_RESOURCE' And
1917: P_Resource_Source_Id <> -1 Then
1918:
1919: Pa_Debug.G_Stage := 'Validating Non Labor Resource resource.';
1920: Open c_NLRs(P_Resource_Source_Id);
1921: Fetch c_NLRs Into l_Dummy;
1922:
1923: If c_NLRs%NotFound Then
1929:
1930: Elsif P_Resource_Type = 'RESOURCE_CLASS' And
1931: P_Resource_Source_Id <> -1 Then
1932:
1933: Pa_Debug.G_Stage := 'Validating Resource Class resource.';
1934: Open c_ResClass(P_Resource_Source_Id);
1935: Fetch c_ResClass Into l_Dummy;
1936:
1937: If c_ResClass%NotFound Then
1943:
1944: Elsif P_Resource_Type = 'REVENUE_CATEGORY' And
1945: P_Resource_Source_Id <> -1 Then
1946:
1947: Pa_Debug.G_Stage := 'Validating Revenue Category resource.';
1948: Open c_GetResCode(P_Resource_Type_Id,P_Resource_Source_Id);
1949: Fetch c_GetResCode Into l_Rev_Code;
1950: Close c_GetResCode;
1951:
1969:
1970: Elsif P_Resource_Type = 'ROLE' And
1971: P_Resource_Source_Id <> -1 Then
1972:
1973: Pa_Debug.G_Stage := 'Validating Role resource.';
1974: Open c_PrjRoles(P_Resource_Source_Id);
1975: Fetch c_PrjRoles Into l_Dummy;
1976:
1977: If c_PrjRoles%NotFound Then
1983:
1984: Elsif P_Resource_Type = 'SUPPLIER' And
1985: P_Resource_Source_Id <> -1 Then
1986:
1987: Pa_Debug.G_Stage := 'Validating Supplier resource.';
1988: Open c_Supplier(P_Resource_Source_Id);
1989: Fetch c_Supplier Into l_Dummy;
1990: If c_Supplier%NotFound Then
1991:
1995: Close c_Supplier;
1996:
1997: End If;
1998:
1999: Pa_Debug.G_Stage := 'Leaving ValidateResource() procedure.';
2000: Pa_Debug.TrackPath('STRIP','ValidateResource');
2001:
2002: Exception
2003: When Others Then
1996:
1997: End If;
1998:
1999: Pa_Debug.G_Stage := 'Leaving ValidateResource() procedure.';
2000: Pa_Debug.TrackPath('STRIP','ValidateResource');
2001:
2002: Exception
2003: When Others Then
2004: Raise;
2034: Is
2035:
2036: Begin
2037:
2038: Pa_Debug.G_Stage := 'Entering GetParentRbsData().';
2039: Pa_Debug.TrackPath('ADD','GetParentRbsData');
2040:
2041: Pa_Debug.G_Stage := 'Retrieve the parent rbs element data for use in child element/node.';
2042: Select
2035:
2036: Begin
2037:
2038: Pa_Debug.G_Stage := 'Entering GetParentRbsData().';
2039: Pa_Debug.TrackPath('ADD','GetParentRbsData');
2040:
2041: Pa_Debug.G_Stage := 'Retrieve the parent rbs element data for use in child element/node.';
2042: Select
2043: Person_Id,
2037:
2038: Pa_Debug.G_Stage := 'Entering GetParentRbsData().';
2039: Pa_Debug.TrackPath('ADD','GetParentRbsData');
2040:
2041: Pa_Debug.G_Stage := 'Retrieve the parent rbs element data for use in child element/node.';
2042: Select
2043: Person_Id,
2044: Job_Id,
2045: Organization_Id,
2092: Where
2093: Rbs_Element_Id = P_Parent_Element_Id;
2094: -- And Rbs_Level <> 0;
2095:
2096: Pa_Debug.G_Stage := 'Leaving GetParentRbsData() procedure.';
2097: Pa_Debug.TrackPath('STRIP','GetParentRbsData');
2098:
2099: Exception
2100: When No_Data_Found Then
2093: Rbs_Element_Id = P_Parent_Element_Id;
2094: -- And Rbs_Level <> 0;
2095:
2096: Pa_Debug.G_Stage := 'Leaving GetParentRbsData() procedure.';
2097: Pa_Debug.TrackPath('STRIP','GetParentRbsData');
2098:
2099: Exception
2100: When No_Data_Found Then
2101: Null;
2151: l_rbs_rec c3%RowType;
2152:
2153: Begin
2154:
2155: Pa_Debug.G_Stage := 'Entering UpdateOrderOutlineNumber().';
2156: Pa_Debug.TrackPath('ADD','UpdateOrderOutlineNumber');
2157:
2158: Pa_Debug.G_Stage := 'Begin loop thru the parent array table to process the elements/nodes for the parents.';
2159: For i in P_Parent_Element_Id_Tbl.First .. P_Parent_Element_Id_Tbl.Last
2152:
2153: Begin
2154:
2155: Pa_Debug.G_Stage := 'Entering UpdateOrderOutlineNumber().';
2156: Pa_Debug.TrackPath('ADD','UpdateOrderOutlineNumber');
2157:
2158: Pa_Debug.G_Stage := 'Begin loop thru the parent array table to process the elements/nodes for the parents.';
2159: For i in P_Parent_Element_Id_Tbl.First .. P_Parent_Element_Id_Tbl.Last
2160: Loop
2154:
2155: Pa_Debug.G_Stage := 'Entering UpdateOrderOutlineNumber().';
2156: Pa_Debug.TrackPath('ADD','UpdateOrderOutlineNumber');
2157:
2158: Pa_Debug.G_Stage := 'Begin loop thru the parent array table to process the elements/nodes for the parents.';
2159: For i in P_Parent_Element_Id_Tbl.First .. P_Parent_Element_Id_Tbl.Last
2160: Loop
2161:
2162: Pa_Debug.G_Stage := 'Check if working with new parent element/node.';
2158: Pa_Debug.G_Stage := 'Begin loop thru the parent array table to process the elements/nodes for the parents.';
2159: For i in P_Parent_Element_Id_Tbl.First .. P_Parent_Element_Id_Tbl.Last
2160: Loop
2161:
2162: Pa_Debug.G_Stage := 'Check if working with new parent element/node.';
2163: If l_par_element_id <> P_Parent_Element_Id_Tbl(i) Then
2164:
2165: Pa_Debug.G_Stage := 'Assign parent element/node id to local variable for if check.';
2166: l_par_element_id := P_Parent_Element_Id_Tbl(i);
2161:
2162: Pa_Debug.G_Stage := 'Check if working with new parent element/node.';
2163: If l_par_element_id <> P_Parent_Element_Id_Tbl(i) Then
2164:
2165: Pa_Debug.G_Stage := 'Assign parent element/node id to local variable for if check.';
2166: l_par_element_id := P_Parent_Element_Id_Tbl(i);
2167:
2168: -- Get the max order number for the children of the current parent
2169: Pa_Debug.G_Stage := 'Get the max order number for all the children of ' ||
2165: Pa_Debug.G_Stage := 'Assign parent element/node id to local variable for if check.';
2166: l_par_element_id := P_Parent_Element_Id_Tbl(i);
2167:
2168: -- Get the max order number for the children of the current parent
2169: Pa_Debug.G_Stage := 'Get the max order number for all the children of ' ||
2170: 'the current parent element id being processed.';
2171: open c1(P_Parent_Element_Id_Tbl(i));
2172: Fetch c1 into l_order_number;
2173: Close c1;
2172: Fetch c1 into l_order_number;
2173: Close c1;
2174:
2175: -- Get the parent outline number
2176: Pa_Debug.G_Stage := 'Get parent outline number to use to append the child ' ||
2177: 'order number to for the new child outline number.';
2178: open c2(P_Parent_Element_Id_Tbl(i));
2179: Fetch c2 into l_par_outline_number;
2180: Close c2;
2179: Fetch c2 into l_par_outline_number;
2180: Close c2;
2181:
2182: -- Get all the children for the parent for update
2183: Pa_Debug.G_Stage := 'Open cursor to get all child elements for the current ' ||
2184: 'parent element id.';
2185: Open c3(P_Parent_Element_Id_Tbl(i));
2186: Loop
2187:
2184: 'parent element id.';
2185: Open c3(P_Parent_Element_Id_Tbl(i));
2186: Loop
2187:
2188: Pa_Debug.G_Stage := 'Fetch record from cursor with all the child ' ||
2189: 'elements of the current parent element being processed.';
2190: Fetch c3 into l_Rbs_Rec;
2191: Exit When c3%NotFound;
2192:
2189: 'elements of the current parent element being processed.';
2190: Fetch c3 into l_Rbs_Rec;
2191: Exit When c3%NotFound;
2192:
2193: Pa_Debug.G_Stage := 'Check if the child element/node has an order number = -1.';
2194: If l_Rbs_Rec.Order_Number = -1 Then
2195:
2196: Pa_Debug.G_Stage := 'Assign order number to a child that does ' ||
2197: 'not currently have one.';
2192:
2193: Pa_Debug.G_Stage := 'Check if the child element/node has an order number = -1.';
2194: If l_Rbs_Rec.Order_Number = -1 Then
2195:
2196: Pa_Debug.G_Stage := 'Assign order number to a child that does ' ||
2197: 'not currently have one.';
2198: l_order_number := l_order_number + 1;
2199:
2200: Pa_Debug.G_Stage := 'Update the child rbs element record with new ' ||
2196: Pa_Debug.G_Stage := 'Assign order number to a child that does ' ||
2197: 'not currently have one.';
2198: l_order_number := l_order_number + 1;
2199:
2200: Pa_Debug.G_Stage := 'Update the child rbs element record with new ' ||
2201: 'order number and outline number - update 1.';
2202: Update pa_rbs_elements
2203: Set
2204: Order_Number = l_Order_Number,
2209: Rbs_Element_Id = l_Rbs_Rec.Rbs_Element_id;
2210:
2211: Else
2212:
2213: Pa_Debug.G_Stage := 'Update the child rbs element record with the ' ||
2214: 'outline number - update 2 .';
2215: Update Pa_Rbs_Elements
2216: Set
2217: Outline_Number = decode(l_Par_Outline_Number,'0',
2227: End If;
2228:
2229: End Loop;
2230:
2231: Pa_Debug.G_Stage := 'Leaving UpdateOrderOutlineNumber() procedure.';
2232: Pa_Debug.TrackPath('STRIP','UpdateOrderOutlineNumber');
2233:
2234: Exception
2235: When Others Then
2228:
2229: End Loop;
2230:
2231: Pa_Debug.G_Stage := 'Leaving UpdateOrderOutlineNumber() procedure.';
2232: Pa_Debug.TrackPath('STRIP','UpdateOrderOutlineNumber');
2233:
2234: Exception
2235: When Others Then
2236: Raise;
2290: MAX_USER_DEF_RES_IDS Exception;
2291:
2292: Begin
2293:
2294: Pa_Debug.G_Stage := 'Entering Update_Children_Data().';
2295: Pa_Debug.TrackPath('ADD','Update_Children_Data');
2296:
2297: Pa_Debug.G_Stage := 'Open c1 cursor to get rbs elements to update.';
2298: Open c1(P_Rbs_Elem_Id => P_Rbs_Element_Id);
2291:
2292: Begin
2293:
2294: Pa_Debug.G_Stage := 'Entering Update_Children_Data().';
2295: Pa_Debug.TrackPath('ADD','Update_Children_Data');
2296:
2297: Pa_Debug.G_Stage := 'Open c1 cursor to get rbs elements to update.';
2298: Open c1(P_Rbs_Elem_Id => P_Rbs_Element_Id);
2299:
2293:
2294: Pa_Debug.G_Stage := 'Entering Update_Children_Data().';
2295: Pa_Debug.TrackPath('ADD','Update_Children_Data');
2296:
2297: Pa_Debug.G_Stage := 'Open c1 cursor to get rbs elements to update.';
2298: Open c1(P_Rbs_Elem_Id => P_Rbs_Element_Id);
2299:
2300: Loop
2301:
2298: Open c1(P_Rbs_Elem_Id => P_Rbs_Element_Id);
2299:
2300: Loop
2301:
2302: Pa_Debug.G_Stage := 'Fetch the current child record.';
2303: Fetch c1 Into l_Child_Rec;
2304: Exit When c1%NotFound;
2305:
2306: Pa_Debug.G_Stage := 'Call GetParentRbsData() procedure.';
2302: Pa_Debug.G_Stage := 'Fetch the current child record.';
2303: Fetch c1 Into l_Child_Rec;
2304: Exit When c1%NotFound;
2305:
2306: Pa_Debug.G_Stage := 'Call GetParentRbsData() procedure.';
2307: Pa_Rbs_Elements_Pvt.GetParentRbsData(
2308: P_Parent_Element_Id => l_Child_Rec.Parent_Element_Id,
2309: X_Person_Id => l_Person_Id,
2310: X_Job_Id => l_Job_Id,
2329: X_Supplier_Id => l_Supplier_Id,
2330: X_Rbs_Level => l_Dummy_Rbs_Level,
2331: X_Outline_Number => l_Dummy_Outline_Number);
2332:
2333: Pa_Debug.G_Stage := 'Get the Resource Type by calling Pa_Rbs_Elements_Utils.GetResTypeCode() function.';
2334: l_Resource_Type := Pa_Rbs_Elements_Utils.GetResTypeCode(P_Res_Type_Id => l_Child_Rec.Resource_Type_Id);
2335:
2336: Pa_Debug.G_Stage := 'Determine which resource type we have for this element to properly assign the resource source id.';
2337: If l_Resource_Type = 'BOM_LABOR' Then
2332:
2333: Pa_Debug.G_Stage := 'Get the Resource Type by calling Pa_Rbs_Elements_Utils.GetResTypeCode() function.';
2334: l_Resource_Type := Pa_Rbs_Elements_Utils.GetResTypeCode(P_Res_Type_Id => l_Child_Rec.Resource_Type_Id);
2335:
2336: Pa_Debug.G_Stage := 'Determine which resource type we have for this element to properly assign the resource source id.';
2337: If l_Resource_Type = 'BOM_LABOR' Then
2338:
2339: Pa_Debug.G_Stage := 'Assign the resource source id to BOM Labor.';
2340: l_BOM_Labor_Id := l_Child_Rec.Resource_Source_Id;
2335:
2336: Pa_Debug.G_Stage := 'Determine which resource type we have for this element to properly assign the resource source id.';
2337: If l_Resource_Type = 'BOM_LABOR' Then
2338:
2339: Pa_Debug.G_Stage := 'Assign the resource source id to BOM Labor.';
2340: l_BOM_Labor_Id := l_Child_Rec.Resource_Source_Id;
2341:
2342: Elsif l_Resource_Type = 'BOM_EQUIPMENT' Then
2343:
2340: l_BOM_Labor_Id := l_Child_Rec.Resource_Source_Id;
2341:
2342: Elsif l_Resource_Type = 'BOM_EQUIPMENT' Then
2343:
2344: Pa_Debug.G_Stage := 'Assign the resource source id to BOM Equipment.';
2345: l_BOM_Equip_Id := l_Child_Rec.Resource_Source_Id;
2346:
2347: Elsif l_Resource_Type = 'NAMED_PERSON' Then
2348:
2345: l_BOM_Equip_Id := l_Child_Rec.Resource_Source_Id;
2346:
2347: Elsif l_Resource_Type = 'NAMED_PERSON' Then
2348:
2349: Pa_Debug.G_Stage := 'Assign the resource source id to Named Person.';
2350: l_Person_Id := l_Child_Rec.Resource_Source_Id;
2351:
2352: Elsif l_Resource_Type = 'EVENT_TYPE' Then
2353:
2350: l_Person_Id := l_Child_Rec.Resource_Source_Id;
2351:
2352: Elsif l_Resource_Type = 'EVENT_TYPE' Then
2353:
2354: Pa_Debug.G_Stage := 'Assign the resource source id to Event Type.';
2355: l_Event_Type_Id := l_Child_Rec.Resource_Source_Id;
2356:
2357: Elsif l_Resource_Type = 'EXPENDITURE_CATEGORY' Then
2358:
2355: l_Event_Type_Id := l_Child_Rec.Resource_Source_Id;
2356:
2357: Elsif l_Resource_Type = 'EXPENDITURE_CATEGORY' Then
2358:
2359: Pa_Debug.G_Stage := 'Assign the resource source id to Expenditure Category.';
2360: l_Exp_Cat_Id := l_Child_Rec.Resource_Source_Id;
2361:
2362: Elsif l_Resource_Type = 'EXPENDITURE_TYPE' Then
2363:
2360: l_Exp_Cat_Id := l_Child_Rec.Resource_Source_Id;
2361:
2362: Elsif l_Resource_Type = 'EXPENDITURE_TYPE' Then
2363:
2364: Pa_Debug.G_Stage := 'Assign the resource source id to Expenditure Type.';
2365: l_Exp_Type_Id := l_Child_Rec.Resource_Source_Id;
2366:
2367: Elsif l_Resource_Type = 'ITEM_CATEGORY' Then
2368:
2365: l_Exp_Type_Id := l_Child_Rec.Resource_Source_Id;
2366:
2367: Elsif l_Resource_Type = 'ITEM_CATEGORY' Then
2368:
2369: Pa_Debug.G_Stage := 'Assign the resource source id to Item Category.';
2370: l_Item_Cat_Id := l_Child_Rec.Resource_Source_Id;
2371:
2372: Elsif l_Resource_Type = 'INVENTORY_ITEM' Then
2373:
2370: l_Item_Cat_Id := l_Child_Rec.Resource_Source_Id;
2371:
2372: Elsif l_Resource_Type = 'INVENTORY_ITEM' Then
2373:
2374: Pa_Debug.G_Stage := 'Assign the resource source id to Inventory Item.';
2375: l_Inv_Item_Id := l_Child_Rec.Resource_Source_Id;
2376:
2377: Elsif l_Resource_Type = 'JOB' Then
2378:
2375: l_Inv_Item_Id := l_Child_Rec.Resource_Source_Id;
2376:
2377: Elsif l_Resource_Type = 'JOB' Then
2378:
2379: Pa_Debug.G_Stage := 'Assign the resource source id to Job.';
2380: l_Job_Id := l_Child_Rec.Resource_Source_Id;
2381:
2382: Elsif l_Resource_Type = 'ORGANIZATION' Then
2383:
2380: l_Job_Id := l_Child_Rec.Resource_Source_Id;
2381:
2382: Elsif l_Resource_Type = 'ORGANIZATION' Then
2383:
2384: Pa_Debug.G_Stage := 'Assign the resource source id to Organization.';
2385: l_Organization_Id := l_Child_Rec.Resource_Source_Id;
2386:
2387: Elsif l_Resource_Type = 'PERSON_TYPE' Then
2388:
2385: l_Organization_Id := l_Child_Rec.Resource_Source_Id;
2386:
2387: Elsif l_Resource_Type = 'PERSON_TYPE' Then
2388:
2389: Pa_Debug.G_Stage := 'Assign the resource source id to Person Type.';
2390: l_Person_Type_Id := l_Child_Rec.Resource_Source_Id;
2391:
2392: Elsif l_Resource_Type = 'NON_LABOR_RESOURCE' Then
2393:
2390: l_Person_Type_Id := l_Child_Rec.Resource_Source_Id;
2391:
2392: Elsif l_Resource_Type = 'NON_LABOR_RESOURCE' Then
2393:
2394: Pa_Debug.G_Stage := 'Assign the resource source id to Non Labor Resource.';
2395: l_Non_Labor_Res_Id := l_Child_Rec.Resource_Source_Id;
2396:
2397: Elsif l_Resource_Type = 'RESOURCE_CLASS' Then
2398:
2395: l_Non_Labor_Res_Id := l_Child_Rec.Resource_Source_Id;
2396:
2397: Elsif l_Resource_Type = 'RESOURCE_CLASS' Then
2398:
2399: Pa_Debug.G_Stage := 'Assign the resource source id to Resource Class.';
2400: l_Res_Class_Id := l_Child_Rec.Resource_Source_Id;
2401:
2402: Elsif l_Resource_Type = 'REVENUE_CATEGORY' Then
2403:
2400: l_Res_Class_Id := l_Child_Rec.Resource_Source_Id;
2401:
2402: Elsif l_Resource_Type = 'REVENUE_CATEGORY' Then
2403:
2404: Pa_Debug.G_Stage := 'Assign the resource source id to Revenue Category.';
2405: l_Rev_Cat_Id := l_Child_Rec.Resource_Source_Id;
2406:
2407: Elsif l_Resource_Type = 'ROLE' Then
2408:
2405: l_Rev_Cat_Id := l_Child_Rec.Resource_Source_Id;
2406:
2407: Elsif l_Resource_Type = 'ROLE' Then
2408:
2409: Pa_Debug.G_Stage := 'Assign the resource source id to Role.';
2410: l_Role_Id := l_Child_Rec.Resource_Source_Id;
2411:
2412: Elsif l_Resource_Type = 'SUPPLIER' Then
2413:
2410: l_Role_Id := l_Child_Rec.Resource_Source_Id;
2411:
2412: Elsif l_Resource_Type = 'SUPPLIER' Then
2413:
2414: Pa_Debug.G_Stage := 'Assign the resource source id to Supplier.';
2415: l_Supplier_Id := l_Child_Rec.Resource_Source_Id;
2416:
2417: Elsif l_Resource_Type = 'USER_DEFINED' Then
2418:
2415: l_Supplier_Id := l_Child_Rec.Resource_Source_Id;
2416:
2417: Elsif l_Resource_Type = 'USER_DEFINED' Then
2418:
2419: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined.';
2420: If l_User_Def_Custom1_Id Is Null Then
2421:
2422: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined 1.';
2423: l_User_Def_Custom1_Id := l_Child_Rec.Resource_Source_Id;
2418:
2419: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined.';
2420: If l_User_Def_Custom1_Id Is Null Then
2421:
2422: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined 1.';
2423: l_User_Def_Custom1_Id := l_Child_Rec.Resource_Source_Id;
2424:
2425: ElsIf l_User_Def_Custom2_Id Is Null Then
2426:
2423: l_User_Def_Custom1_Id := l_Child_Rec.Resource_Source_Id;
2424:
2425: ElsIf l_User_Def_Custom2_Id Is Null Then
2426:
2427: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined 2.';
2428: l_User_Def_Custom2_Id := l_Child_Rec.Resource_Source_Id;
2429:
2430: ElsIf l_User_Def_Custom3_Id Is Null Then
2431:
2428: l_User_Def_Custom2_Id := l_Child_Rec.Resource_Source_Id;
2429:
2430: ElsIf l_User_Def_Custom3_Id Is Null Then
2431:
2432: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined 3.';
2433: l_User_Def_Custom3_Id := l_Child_Rec.Resource_Source_Id;
2434:
2435: ElsIf l_User_Def_Custom4_Id Is Null Then
2436:
2433: l_User_Def_Custom3_Id := l_Child_Rec.Resource_Source_Id;
2434:
2435: ElsIf l_User_Def_Custom4_Id Is Null Then
2436:
2437: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined 4.';
2438: l_User_Def_Custom4_Id := l_Child_Rec.Resource_Source_Id;
2439:
2440: ElsIf l_User_Def_Custom5_Id Is Null Then
2441:
2438: l_User_Def_Custom4_Id := l_Child_Rec.Resource_Source_Id;
2439:
2440: ElsIf l_User_Def_Custom5_Id Is Null Then
2441:
2442: Pa_Debug.G_Stage := 'Assign the resource source id to User Defined 5.';
2443: l_User_Def_Custom5_Id := l_Child_Rec.Resource_Source_Id;
2444:
2445: Else
2446:
2443: l_User_Def_Custom5_Id := l_Child_Rec.Resource_Source_Id;
2444:
2445: Else
2446:
2447: Pa_Debug.G_Stage := 'All user defined resources field populated.';
2448: Raise MAX_USER_DEF_RES_IDS;
2449:
2450: End If;
2451:
2450: End If;
2451:
2452: End If;
2453:
2454: Pa_Debug.G_Stage := 'Update the child element record.';
2455: Update Pa_Rbs_Elements
2456: Set
2457: Person_Id = l_Person_Id,
2458: Job_Id = l_Job_Id,
2478: Where Rbs_Element_Id = l_Child_Rec.Rbs_Element_Id;
2479:
2480: End Loop;
2481:
2482: Pa_Debug.G_Stage := 'Close the primary cursor c1.';
2483: Close c1;
2484:
2485: Pa_Debug.G_Stage := 'Leaving Update_Children_Data() procedure.';
2486: Pa_Debug.TrackPath('STRIP','Update_Children_Data');
2481:
2482: Pa_Debug.G_Stage := 'Close the primary cursor c1.';
2483: Close c1;
2484:
2485: Pa_Debug.G_Stage := 'Leaving Update_Children_Data() procedure.';
2486: Pa_Debug.TrackPath('STRIP','Update_Children_Data');
2487:
2488: Exception
2489: When MAX_USER_DEF_RES_IDS Then
2482: Pa_Debug.G_Stage := 'Close the primary cursor c1.';
2483: Close c1;
2484:
2485: Pa_Debug.G_Stage := 'Leaving Update_Children_Data() procedure.';
2486: Pa_Debug.TrackPath('STRIP','Update_Children_Data');
2487:
2488: Exception
2489: When MAX_USER_DEF_RES_IDS Then
2490: X_Error_Msg_Data := 'PA_MAX_USER_DEF_RES_IDS';