152: Pa_Debug.G_Stage := 'Delete the working version element/nodes.';
153: Begin
154: Delete
155: From
156: Pa_Rbs_Elements
157: Where
158: Rbs_Version_Id = P_Rbs_Version_Id;
159:
160: Exception
335: Cursor C_GetRbsElementNameId(l_Rbs_Version_Id IN Number) is
336: Select
337: rbs_element_name_id
338: From
339: pa_rbs_elements
340: Where
341: rbs_version_id = l_Rbs_Version_Id
342: and outline_number = '0';
343:
417: P_Record_Version_Number => P_Record_Version_Number,
418: X_Error_Msg_Data => X_Error_Msg_Data);
419:
420: Pa_Debug.G_Stage := 'Delete the record in pa_rbs_element_names table corresponding to that ' ||
421: 'of top most element in pa_rbs_elements table.';
422: If X_Error_Msg_Data is null then
423:
424: Begin
425:
574:
575: Pa_Debug.G_Stage := 'Entering Copy_Frozen_Rbs_Elements() procedure.';
576: Pa_Debug.TrackPath('ADD','Copy_Frozen_Rbs_Elements');
577:
578: Pa_Debug.G_Stage := 'Delete all records from Pa_Rbs_Elements_Temp.';
579: Begin
580:
581: Delete
582: From Pa_Rbs_Elements_Temp;
578: Pa_Debug.G_Stage := 'Delete all records from Pa_Rbs_Elements_Temp.';
579: Begin
580:
581: Delete
582: From Pa_Rbs_Elements_Temp;
583:
584: Exception
585: When No_Data_Found Then
586: null;
586: null;
587:
588: End;
589:
590: Pa_Debug.G_Stage := 'Insert into Pa_Rbs_Elements_Temp that are to be copied.';
591: /*******************************************************
592: * Bug - 3591534
593: * Desc - while inserting into Pa_Rbs_Elements_Temp elements that
594: * are to be copied, we should only select elements where
589:
590: Pa_Debug.G_Stage := 'Insert into Pa_Rbs_Elements_Temp that are to be copied.';
591: /*******************************************************
592: * Bug - 3591534
593: * Desc - while inserting into Pa_Rbs_Elements_Temp elements that
594: * are to be copied, we should only select elements where
595: * user_created flag = 'Y'.
596: ******************************************************/
597: Insert Into Pa_Rbs_Elements_Temp(
593: * Desc - while inserting into Pa_Rbs_Elements_Temp elements that
594: * are to be copied, we should only select elements where
595: * user_created flag = 'Y'.
596: ******************************************************/
597: Insert Into Pa_Rbs_Elements_Temp(
598: New_Element_Id,
599: Old_Element_Id,
600: Old_Parent_Element_Id,
601: New_Parent_Element_Id )
599: Old_Element_Id,
600: Old_Parent_Element_Id,
601: New_Parent_Element_Id )
602: (Select
603: Pa_Rbs_Elements_S.NextVal,
604: Rbs_Element_Id,
605: Parent_Element_Id,
606: Null
607: From
604: Rbs_Element_Id,
605: Parent_Element_Id,
606: Null
607: From
608: Pa_Rbs_Elements
609: Where
610: Rbs_Version_Id = P_Rbs_Version_From_Id
611: and user_created_flag = 'Y' );
612:
609: Where
610: Rbs_Version_Id = P_Rbs_Version_From_Id
611: and user_created_flag = 'Y' );
612:
613: Pa_Debug.G_Stage := 'Update Pa_Rbs_Elements_Temp records with the correct parent element id.';
614: Update Pa_Rbs_Elements_Temp Tmp1
615: Set New_Parent_Element_Id =
616: (Select
617: New_Element_Id
610: Rbs_Version_Id = P_Rbs_Version_From_Id
611: and user_created_flag = 'Y' );
612:
613: Pa_Debug.G_Stage := 'Update Pa_Rbs_Elements_Temp records with the correct parent element id.';
614: Update Pa_Rbs_Elements_Temp Tmp1
615: Set New_Parent_Element_Id =
616: (Select
617: New_Element_Id
618: From
615: Set New_Parent_Element_Id =
616: (Select
617: New_Element_Id
618: From
619: Pa_Rbs_Elements_Temp Tmp2
620: Where
621: Tmp1.Old_Parent_Element_Id = Tmp2.Old_Element_Id);
622:
623: Pa_Debug.G_Stage := 'Insert into Pa_Rbs_Elements new records.';
619: Pa_Rbs_Elements_Temp Tmp2
620: Where
621: Tmp1.Old_Parent_Element_Id = Tmp2.Old_Element_Id);
622:
623: Pa_Debug.G_Stage := 'Insert into Pa_Rbs_Elements new records.';
624:
625: /*Bug 4377886 : Included explicitly the column names in the INSERT statement
626: to remove the GSCC Warning File.Sql.33 */
627: Insert Into Pa_Rbs_Elements
623: Pa_Debug.G_Stage := 'Insert into Pa_Rbs_Elements new records.';
624:
625: /*Bug 4377886 : Included explicitly the column names in the INSERT statement
626: to remove the GSCC Warning File.Sql.33 */
627: Insert Into Pa_Rbs_Elements
628: (
629: RBS_ELEMENT_ID,
630: RBS_ELEMENT_NAME_ID,
631: RBS_VERSION_ID,
707: Pa_Rbs_Versions_Pvt.G_Created_By,
708: Pa_Rbs_Versions_Pvt.G_Last_Update_Login,
709: 1
710: From
711: Pa_Rbs_Elements_Temp Tmp,
712: Pa_Rbs_Elements Rbs_Elements
713: Where
714: Tmp.Old_Element_Id = Rbs_Elements.Rbs_Element_Id;
715:
708: Pa_Rbs_Versions_Pvt.G_Last_Update_Login,
709: 1
710: From
711: Pa_Rbs_Elements_Temp Tmp,
712: Pa_Rbs_Elements Rbs_Elements
713: Where
714: Tmp.Old_Element_Id = Rbs_Elements.Rbs_Element_Id;
715:
716: --Bug 3592145
726: 'root element element_name_id.';
727: If l_Dummy_Error_Status = Fnd_Api.G_Ret_Sts_Success Then
728:
729: Pa_Debug.G_Stage := 'Updating the root element rbs record with the new element_name_id.';
730: Update Pa_Rbs_Elements
731: Set Rbs_Element_Name_Id = l_New_Element_Name_Id,
732: Resource_Source_Id = P_Rbs_Version_To_Id
733: Where Rbs_Version_Id = P_Rbs_Version_To_Id
734: And Resource_Type_Id = -1